Tips and Tricks for the ABAP® Programming Language

ABAP® Program – Y9030007 – DELETE Data from table INDX

A small data base application with “IMPORT”, “EXPORT” and “DELETE” The following 3 reports belong together [Y9030005 until Y9030007 ]. It should be demonstrated that heterogeneous data e.g. from a subsystem, can be relatively simple transferred to the R/3(r) system and later administrated there.

Any data list (e.g. addresses, birthday, hobbies and so forth) is complemented with date and time and saved as a data cluster in the table INDX with the command “EXPORT …” . Through “IMPORT …” the data saved in the INDX are selected and displayed again. Here, any period of time can be selected on the basis of the time axis (DATE, TIME). Via “DELETE …” the possibility exists to delete no more required data from the respective cluster. The examples only use the field “TEXT1” as “useful information”, any other data contents can be used alternatively here in the reports.

Parameters:
The total keyword in the INDX consists of 22 bytes (in release 3.1), where 20 bytes are used. A time window can be used for the precise selection of an up/to area:

    • MOVE P_KDNR TO KEY_VON+0(6). “e.g. customer number
    • MOVE P_DATVON TO KEY_VON+6(8). “Date of
    • MOVE P_TIMVON TO KEY_VON+14(6). “Time of

ABAP-Source-Code

You can cut and paste the source code directly into the ABAP-Workbench.

REPORT Y9030007 LINE-SIZE 130.     "Release 3.1G, 4.5A
************************************************************************
* Copyright (c) 1999 by CT-Team, 33415 Verl, http://www.ct-software.com
*
*     You can use or modify this report for your own work as long
*               as you don't try to sell or republish it.
*      In no event will the author be liable for indirect, special,
*        Incidental, or consequental damages (if any) arising out of
*                       the use of this report.
*
************************************************************************
BREAK-POINT.
*#######################################################################
*  1. Attention the report deletes data from the INDX DB (Cluster YT)
*
*  2. The deletion will be carried out if the paramter (P_DELETE)
*     is settet to "J" ("N" is default). On "N" only the keys which
*     would be deleted are displayed (but not deleted).
*#######################################################################
 MOVE: 'TESTREPORT for  "SELECT * FROM etab" with "D E L E T E"  '
        TO SY-TITLE.
************************************************************************
*
PARAMETERS: P_KDNVON(6) TYPE C DEFAULT '100007',    "= Customer-VON
            P_KDNBIS(6) TYPE C DEFAULT '100007',    "= Customer-BIS
*................Zeitachse-Von..........................................
            P_DATVON TYPE D    DEFAULT '19950101',     "jhjjmmtt !!
            P_TIMVON TYPE T    DEFAULT '000001',
*................Zeitachse-Bis..........................................
            P_DATBIS TYPE D    DEFAULT SY-DATUM,          "jhjjmmtt !!
            P_TIMBIS TYPE T    DEFAULT SY-UZEIT,
*................DELETE-Schalter .......................................
            P_DELETE TYPE C    DEFAULT 'N'.
************************************************************************
*
TABLES: INDX.
************************************************************************
*.......................................................................
DATA: BEGIN OF KEY_VON,                "key CT-CLUSTER of
      TEXTVON(22),
      END OF KEY_VON.
*.......................................................................
DATA: BEGIN OF KEY_BIS,                "key CT-CLUSTER up to
      TEXTBIS(22),
      END OF KEY_BIS.
*...............The INDX has primary key of 22 chars ...................
DATA: KEY_LOW(22) VALUE '0000000000000000000000'.
DATA: KEY_HIGH(22) VALUE '9999999999999999999999'.
*.......................................................................
************************************************************************
*//////////////////////////////////////////////////////////////////////*
*************               Main Section             *******************
*//////////////////////////////////////////////////////////////////////*
*
 END-OF-SELECTION.

 PERFORM KEY-FUELLEN-INDX-LESEN.
 PERFORM LESEN-INDX.
*#######################################################################
*  To delete a cluster "bunch of data" from the INDX,
*  the index record must be read (with "SELECT ..").
*  If the index was found, the corresponding cluster can be
*  deleted with "DELETE INDX" .
*#######################################################################
 SKIP.
*//////////////////////////////////////////////////////////////////////*
*************                Subroutines             *******************
*//////////////////////////////////////////////////////////////////////*
*
************************************************************************
*               Preparing the key to read from the INDX                *
************************************************************************
 FORM KEY-FUELLEN-INDX-LESEN.           "the KEY of INDX will be filled
*
*..........    Key fuellen .............................................
      MOVE KEY_LOW TO KEY_VON.               "All 0
      MOVE P_KDNVON    TO KEY_VON+0(6).      "Text number from
      MOVE P_DATVON    TO KEY_VON+6(8).      "Date from
      MOVE P_TIMVON    TO KEY_VON+14(6).     "Date from
*.......................................................................
      MOVE KEY_HIGH TO KEY_BIS.              "All 9
      MOVE P_KDNBIS    TO KEY_BIS+0(6).      "Text number until
      MOVE P_DATBIS    TO KEY_BIS+6(8).      "Date until
      MOVE P_TIMBIS    TO KEY_BIS+14(6).     "Time until
*
 ENDFORM.

************************************************************************
*-            THE FILE INDX IS SEQUENTIALLY READED                    -*
************************************************************************
FORM LESEN-INDX.
*......................................................................*
  SELECT * FROM INDX
     WHERE RELID EQ 'YT'
           AND SRTFD BETWEEN KEY_VON
                     AND     KEY_BIS
           ORDER BY PRIMARY KEY.                  "ascending please
*          Commit work.                    "when deleting mass data
     IF P_DELETE EQ 'J'.
*#######################################################################
        PERFORM DELETE-INDX.
*#######################################################################
     ELSE.
        WRITE: / 'Key found, ''P_DELETE'' auf ''N'' '.
        WRITE: / 'If really delete then set ''P_DELETE'' to ''J'' '
                 COLOR 6, INDX-SRTFD.
     ENDIF.
*
  ENDSELECT.
*
  IF INDX-SRTFD IS INITIAL.
     WRITE: /1 'No data available in the INDX , RELID/Key: YT'.
     WRITE: /10 'KEY_VON:', KEY_VON, 'KEY_BIS:', KEY_BIS.
  ENDIF.
*
ENDFORM.
************************************************************************
*              Deletion of the Cluster YT from the INDX                *
************************************************************************
FORM DELETE-INDX.
*
*#######################################################################
* For the Deletion of cluster "SELECT SINGLE ..." is used,
* here only the cluster specified in the key should be deleted.
*#######################################################################
   SELECT SINGLE FOR UPDATE * FROM INDX    "= Locking for other USER
          WHERE RELID EQ 'YT'
          AND   SRTFD EQ INDX-SRTFD
          AND   SRTF2 EQ INDX-SRTF2.
          DELETE  INDX.
*                   "only the current key of the INDX will be deleted
*                   " not the whole DB     (... all-clear ...)
  IF SY-SUBRC EQ 0.
     WRITE: / 'Clusterdata YT from INDX will be deleted',
              'Key:', INDX-SRTFD.
  ELSE.
    PERFORM FEHLER-BEIM-DELETE.
  ENDIF.
*
ENDFORM.
************************************************************************
*         Error message, if YT is not available in the INDX            *
************************************************************************
FORM FEHLER-BEIM-DELETE.
*
     WRITE: / '*****************************************************'.
     WRITE: / 'ERROR WHILE DELETING DB INDX(YT):   '.
     WRITE: / '         KEY: ', INDX.
     WRITE: / '*****************************************************'.

ENDFORM.
************************************************************************
***************  END OF PROGRAM ****************************************
************************************************************************
pixelstats trackingpixel