//*++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
//* COPY TRLOG FROM PREVIOUS PERIOD TO REPORT-GDG
//*++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
//* STEP1 - COPY TRLOG TO GDG AND DEFINE TRLOG FOR NEW PERIOD
//*++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
//COPYTR   EXEC PGM=IEBGENER
//SYSUT1   DD DISP=SHR,DSN=HLQ..SYSMOD.TRLOG
//SYSUT2   DD DSN=HLQ..REPORT.TRLOG(+1),
//            DISP=(NEW,CATLG),
//            DCB=*.SYSUT1,
//            SPACE=(CYL,(50,20)),
//            UNIT=SYSDA
//SYSPRINT DD SYSOUT=*
//SYSIN    DD DUMMY
//*********************************************************************
//IF01     IF (COPYTR.RC EQ 0) THEN
//*********************************************************************
//DELTR   EXEC PGM=IEFBR14
//DEL01    DD DSN=HLQ..SYSMOD.TRLOG,
//            DISP=(MOD,DELETE,DELETE),
//            DCB=(RECFM=VBS,DSORG=PS,LRECL=32000),
//            SPACE=(CYL,(0,0)),
//            UNIT=SYSDA
//*++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
//* STEP3  - ALLOC TRLOG FOR NEW PLANING-PERIOD
//*++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
//DEFTR    EXEC PGM=IEBGENER
//SYSUT1   DD DUMMY,
//            DCB=(RECFM=VBS,LRECL=32000,BLKSIZE=32004)
//SYSUT2   DD DSN=HLQ..SYSMOD.TRLOG,
//            DISP=(NEW,CATLG),
//            DCB=(RECFM=VBS,DSORG=PS,LRECL=32000),
//            SPACE=(CYL,(50,20)),
//            UNIT=SYSDA
//SYSPRINT DD SYSOUT=*
//SYSIN    DD DUMMY
//*********************************************************************
//IF01END  ENDIF
//*********************************************************************