This program creates a background job to mass delete PSA after BW data load.

REPORT ZDELPSA.
*&--------------------------------------------------
*& Programme : ZDELPSA
*& Type de programme : Utilitaire de purge
*& Auteur : François Henrotte (EPONA Solutions)
*& Description du programme : purge en masse des PSA
*&--------------------------------------------------

TABLES : RSREQICODS, " table des PSA a traiter
         RSPSADEL. " tables des PSA a mettre à jour

DATA: SUBRC LIKE SY-SUBRC,
      JOBNAME LIKE TBTCJOB-JOBNAME,
      JOBCOUNT LIKE TBTCJOB-JOBCOUNT,
      PROGNAME LIKE TRDIR-NAME VALUE 'RADBAT01',
      PROGVARIANT LIKE RALDB-VARIANT VALUE ' ',
      USERNAME LIKE TBATG-GUSER,
      CALL_MODE LIKE TBATG-EXECMODE VALUE 'B',
      MODE_FLAG LIKE DDXTT-MODEFLAG,
      RETURNCODE(1) TYPE C,
      PROTNAME LIKE TSTRF01-FILE.
DATA: OBJ_NAME LIKE TBATG-TABNAME,
      OBJ_TYPE LIKE TBATG-OBJECT,
      JOB_RELEASED TYPE C.
DATA: WV_COMPT(10) TYPE N.
DATA: BEGIN OF WT_RSREQICODS OCCURS 0,
        TABNAME LIKE RSREQICODS-TABNAME,
      END OF WT_RSREQICODS.
DATA: WT_RSPSADEL LIKE RSPSADEL OCCURS 0 WITH HEADER LINE.

SELECTION-SCREEN: BEGIN OF BLOCK B01 WITH FRAME TITLE TEXT-001.
SELECT-OPTIONS: S_TAB FOR RSREQICODS-TABNAME.
PARAMETERS: P_NBDAY(3) TYPE N DEFAULT 8.
SELECTION-SCREEN: END OF BLOCK B01,
                  SKIP,
                  BEGIN OF BLOCK B02 WITH FRAME TITLE TEXT-002.
PARAMETERS: P_TEST RADIOBUTTON GROUP G1,
P_REEL RADIOBUTTON GROUP G1.
SELECTION-SCREEN: END OF BLOCK B02.

** Début de la selection