IBM Mainframe Forum

//*                                                                     
//CAVIEW   OUTPUT JESDS=ALL                                             
//NONPRINT OUTPUT DEST=NONPRINT,DEFAULT=Y                               
//STANDARD OUTPUT DEST=LOCAL,JESDS=ALL,DEFAULT=Y,CLASS=Y               
//*                                                                     
//*********************************************************************
//*  THIS JOB BACKS UP AND RESETS VARIOUS FILES FOR ITS REAL TIME       
//*  ADJUDICATION                                                       
//*                                                                     
//* SIMILAR TEST JOB - TDSCM.HRBSM.USRJCL(TEST02DD)   (B.LAPAGE)       
//*********************************************************************
//*                                                                     
//JS005   EXEC PGM=IKJEFT1B,DYNAMNBR=20               **SPUFI DUMP     
//STEPLIB  DD  DISP=SHR,DSN=D2T1.DSNEXIT                               
//         DD  DISP=SHR,DSN=D2T1.DSNLOAD                               
//SYSIN    DD  *                                                       
  SELECT *                                                             
    FROM DSC1TEST.ITS_CNTL                                             
//SYSTSPRT DD  SYSOUT=*                                                 
//*                                                                     
//*YSPRINT  DD SYSOUT=*                                                 
//SYSPRINT  DD DSN=TDSCM.KPK.TEMPFL2(+1),                               
//             DISP=(NEW,CATLG,CATLG),                                 
//             MGMTCLAS=MC001608,   PERMDA:PRIMRY=5 NONUSE EXP=15       
//             SPACE=(27998,(75,50),RLSE),                             
//             DCB=(SYS3.DSCB,                                         
//             LRECL=133,BLKSIZE=13300,RECFM=FBA)                       
//SYSUDUMP DD  SYSOUT=*                                                 
//SYSTSIN  DD  *                                                       
  DSN SYSTEM(D2T1)                                                     
    RUN PROGRAM(DSNTEP2) PLAN(DSNTEP2)                                 
  END                                                                   
//*                                                                     
//*********************************************************************
//*                                                                     
//PS510   EXEC PGM=IKJEFT01                           **UNLD ITS_CNTL* 
//STEPLIB   DD DSN=D2T1.DSNEXIT,                                       
//             DISP=(SHR,PASS,KEEP)                                     
//          DD DSN=D2T1.DSNLOAD,                                       
//             DISP=(SHR,PASS,KEEP)                                     
//SYSPUNCH  DD SYSOUT=*                                                 
//SYSREC00  DD DSN=TDSCM.KPK.TEMPFL3(+1),             ITS_CNTL UNLOAD   
//             DISP=(NEW,CATLG,DELETE),                                 
//             MGMTCLAS=MC002400,                                       
//             VOL=(,,,9),                                             
//             SPACE=(27998,(500,250),RLSE),                           
//*            DCB=BUFNO=30,                                           
//             DCB=(SYS3.DSCB)                                         
//*YSTSIN   DD DSN=PDSCM.HRBSM.VCYC.SYSIN(HRSI20P1),  SQL ENVIRONMENT   
//*            DISP=(SHR,KEEP,KEEP)                                     
//SYSTSIN   DD *                                                       
  DSN SYSTEM(D2T1)                                                     
  RUN PROGRAM(DSNTIAUL) PLAN(DSNTIAUL) PARMS('SQL') -                   
    LIB('D2T1.DSNLOAD')                                                 
/*                                                                     
//*YSIN     DD DSN=PDSCM.HRBSM.VCYC.SYSIN(HRSI20P2),  UNLOAD SELECT     
//*            DISP=(SHR,KEEP,KEEP)                                     
//SYSIN     DD *                                                       
  SELECT *                                                             
    FROM  DSC1TEST.ITS_CNTL                                             
    ORDER BY CNTL_NUM,                                                 
             HOST_HOME_IND,                                             
             RECORD_TYPE                                               
  ;                                                                     
/*                                                                     
//SYSOUT    DD SYSOUT=*                                                 
//SYSPRINT  DD SYSOUT=*                                                 
//SYSTSPRT  DD SYSOUT=*                                                 
//SYSUDUMP  DD SYSOUT=6,OUTPUT=(*.NONPRINT)                             
//*                                                                     
//PS520   EXEC PGM=WAAPABND,                          **ABEND IF BAD **
//             COND=(4,GE,PS510),                                       
//             PARM='1000,ERROR EXTRACTING RECS FROM ITS_CNTL DB'       
//SYSPRINT  DD SYSOUT=*                                                 
//SYSUDUMP  DD SYSOUT=(,),OUTPUT=(*.NONPRINT)                           
//*                                                                     
//PS530   EXEC PGM=DSNUTILB,                          **EMPTY ITSCNTL**
//             PARM=(D2T1,'ITS_CNTL')               *CLEANUP DCDT TBL   
//***                                                                   
//****** PARM=(D2T1,'ITS_CNTL',RESTART(PHASE))         <- AFTER ABEND   
//***                                                                   
//STEPLIB   DD DSN=D2T1.DSNEXIT,                                       
//             DISP=(SHR,KEEP,KEEP)                                     
//          DD DSN=D2T1.DSNLOAD,                                       
//             DISP=(SHR,KEEP,KEEP)                                     
//SORTLIB   DD DSN=SYS1.SORTLIB,                                       
//             DISP=(SHR,KEEP,KEEP)                                     
//SORTWK01  DD DSN=TDSCM.KPKDB.SDCM20CT.SORTWK01,                       
//             DISP=(MOD,DELETE,CATLG),                                 
//             MGMTCLAS=MC0008,                                         
//             VOL=(,,,9),                                             
//             SPACE=(27998,(500,250))                                 
//SORTOUT   DD DSN=TDSCM.KPKDB.SDCM20CT.SORTOUT,                       
//             DISP=(MOD,DELETE,CATLG),                                 
//             MGMTCLAS=MC0008,                                         
//             VOL=(,,,9),                                             
//             SPACE=(27998,(500,250))                                 
//SYSUT1    DD DSN=TDSCM.KPKDB.WDCM20CT.SYSUT1,                         
//             DISP=(MOD,DELETE,CATLG),                                 
//             MGMTCLAS=MC0008,                                         
//             VOL=(,,,9),                                             
//             SPACE=(27998,(500,250))                                 
//SYSMAP    DD DSN=TDSCM.KPKDB.WDCM20CT.SYSMAP,                       
//             DISP=(MOD,DELETE,CATLG),                               
//             MGMTCLAS=MC0008,                                       
//             VOL=(,,,9),                                             
//             SPACE=(27998,(500,250))                                 
//SYSDISC   DD DSN=TDSCM.KPKDB.SDCM20CT.SYSDISC,                       
//             DISP=(MOD,DELETE,CATLG),                               
//             MGMTCLAS=MC0008,                                       
//             VOL=(,,,9),                                             
//             SPACE=(27998,(500,250))                                 
//SYSERR    DD DSN=TDSCM.KPKDB.SDCM20CT.SYSERR,                       
//             DISP=(MOD,DELETE,CATLG),                               
//             MGMTCLAS=MC0008,                                       
//             VOL=(,,,9),                                             
//             SPACE=(27998,(500,250))                                 
//SYSREC00  DD DUMMY                                                   
//*YSIN     DD DSN=PDSCM.HRBSM.VCYC.SYSIN(HRSI20P3),  REPL WITH DUMMY 
//*            DISP=(SHR,KEEP,KEEP)                                   
//SYSIN     DD *                                                       
  LOAD DATA INDDN SYSREC00 REPLACE LOG YES                             
    INTO TABLE DSC1TEST.ITS_CNTL                                       
/*                                                                     
//UTPRINT   DD SYSOUT=*                                               
//SYSPRINT  DD SYSOUT=*                                               
//SYSUDUMP  DD SYSOUT=6,OUTPUT=(*.NONPRINT)                           
//*                                                                   
//PS540   EXEC PGM=WAAPABND,                          **ABEND IF BAD **
//             COND=(4,GE,PS530),                                     
//             PARM='5000,ERROR WHILE EMPTYING ITS_CNTL DB'           
//SYSPRINT  DD SYSOUT=*                                               
//SYSUDUMP  DD SYSOUT=(,),OUTPUT=*.NONPRINT                           
//*                                                                   
//********************************************************************
//JS800   EXEC PGM=IKJEFT1B,DYNAMNBR=20               **SPUFI DUMP     
//STEPLIB  DD  DISP=SHR,DSN=D2T1.DSNEXIT                               
//         DD  DISP=SHR,DSN=D2T1.DSNLOAD                               
//SYSIN    DD  *                                                       
  SELECT *                                                             
    FROM DSC1TEST.ITS_CNTL                                             
//SYSTSPRT DD  SYSOUT=*                                                 
//*                                                                     
//*YSPRINT  DD SYSOUT=*                                                 
//SYSPRINT  DD DSN=TDSCM.KPK.TEMPFL4(+1),                               
//             DISP=(NEW,CATLG,CATLG),                                 
//             MGMTCLAS=MC001608,   PERMDA:PRIMRY=5 NONUSE EXP=15       
//             SPACE=(27998,(75,50),RLSE),                             
//             DCB=(SYS3.DSCB,                                         
//             LRECL=133,BLKSIZE=13300,RECFM=FBA)                       
//SYSUDUMP DD  SYSOUT=*                                                 
//SYSTSIN  DD  *                                                       
  DSN SYSTEM(D2T1)                                                     
    RUN PROGRAM(DSNTEP2) PLAN(DSNTEP2)                                 
  END                                                                   
//*                                                                     
//