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 ****************************************
************************************************************************