zOs/JCL/EL013

//A540769L JOB (CP00,KE50),'DB2 COPY',
//           MSGCLASS=T,TIME=1440,
//           NOTIFY=&SYSUID,REGION=0M
//*MAIN CLASS=LOG SYSTEM=S14
//*
//*   archivierungsJob:
//*            copy beide
//*        reorg discard in source  tel013a1
//*        load resume   in history tel013h1
//*            copy/runstats        tel013h1
//*
//P02      EXEC PGM=DSNUTILB,
//             PARM='DBTF,A540769F.HISTO'
//SYSPRINT   DD SYSOUT=*
//UTPRINT    DD SYSOUT=*
//SYSUDUMP   DD SYSOUT=*
//SYSTEMPL   DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//*              || mit ctrl-m timestamp
//*              ||     damit es nicht ueberschrieben
//*              ||     aber beim Restart muss dass bereits
//*              ||         entladene File wieder genommen werden|
//DISC       DD DSN=A540769.TST.TEL013.DISC,
//             DISP=(MOD,CATLG,CATLG),UNIT=DISK,
//             SPACE=(CYL,(100,100)),MGMTCLAS=BAT#NW
//PUNCH      DD DSN=A540769.TST.TEL013.PUNCH,
//             DISP=(MOD,CATLG,CATLG),UNIT=DISK,
//             SPACE=(TRK,(10,10)),MGMTCLAS=BAT#NW
//SYSIN      DD *
LISTDEF C#LIST                                                          00010000
  INCLUDE TABLESPACE EL02A1T.A013*  PARTLEVEL                           8620
   COPY LIST C#LIST
      COPYDDN(TCOPYD)
      SHRLEVEL CHANGE
REORG TABLESPACE EL02A1T.A013A
    LOG NO
    SORTDATA
    SHRLEVEL CHANGE
              -- || mappingTable mit Jobnamen bei Kidi 63 bestellen
    MAPPINGTABLE S100447.MAPTAB02
    MAXRO 30
    DRAIN ALL
    DELAY 1500
    TIMEOUT TERM
    UNLOAD CONTINUE
    STATISTICS
      INDEX ALL KEYCARD
      UPDATE ALL
    SORTDEVT DISK
    COPYDDN(TCOPYD)
    WORKDDN(TSYUTD,TSOUTD)
    PUNCHDDN(PUNCH) DISCARDDN(DISC)
    DISCARD FROM TABLE OA1T.TEL013A1
       WHEN(EL013CTS < CURRENT DATE - 47 DAYS)

LOAD DATA INDDN DISC
    LOG NO RESUME YES SHRLEVEL NONE
    EBCDIC  CCSID(00500,00000,00000)
    WORKDDN(TSYUTD,TSOUTD)
    SORTKEYS
    SORTDEVT DISK
    INTO TABLE OA1T.TEL013H1
        ( "EL013RID"
               POSITION(00007:00014) BIGINT
        , "EL013CTS"
               POSITION(00015:00040) TIMESTAMP EXTERNAL
        , "EL013PART"
               POSITION(00041:00042) CHAR(002)
        , "EL013CPID"
               POSITION(00043:00050) CHAR(008)
        , "EL013SERV"
               POSITION(00051:00054) CHAR(004)
        , "EL013ARQ"
               POSITION(00055:00084) CHAR(030)
        , "EL013AGR"
               POSITION(00085:00104) CHAR(020)
        , "EL013AGRT"
               POSITION(00105:00108) CHAR(004)
        , "EL013OWN"
               POSITION(00109:00120) CHAR(012)
        , "EL013RETC"
               POSITION(00121:00124) CHAR(004)
        , "EL013REAS"
               POSITION(00125:00128) CHAR(004)
        , "EL013IMS"
               POSITION(00129:00136) CHAR(008)
        , "EL013REG"
               POSITION(00137:00140) CHAR(004)
        , "EL013ART"
               POSITION(00141:00148) CHAR(008)
        , "EL013JOB" -- gekuerzt ||||||||
               POSITION(00149:00154) CHAR(006)
        , "EL013PGM"
               POSITION(00157:00164) CHAR(008)
        , "EL013MTS"
               POSITION(00165:00190) TIMESTAMP EXTERNAL
        , "EL013MID"
               POSITION(00191:00200) CHAR(010)
        )
 COPY TABLESPACE EL02A1T.A013H
     COPYDDN(TCOPYD)
     SHRLEVEL REFERENCE
 RUNSTATS TABLESPACE EL02A1T.A013H
     SHRLEVEL CHANGE
     INDEX(ALL KEYCARD)
     REPORT NO  UPDATE ALL