Return to the Sample Job Stream List

FZABD3XJ Sample Job Stream

Original JCL (VSE)

* $$ JOB JNM=FZABD3XJ,CLASS=A,DISP=D,USER='ABS  DAILY'
* $$ LST CLASS=Q,DISP=H,LST=SYSLST,FNO=PRT1
// JOB FZABD3XJ  (BABD145)  LOAD COUNTY PAYMENT RECORDS
// OPTION LOG
* $$ LST CLASS=B,DISP=K,LST=01E,JSEP=1,FNO=LNP1,PRI=6,COPY=2,          X
* $$ USER='ACCT LJ GLENDA'
* $$ LST CLASS=B,DISP=K,LST=02E,JSEP=1,FNO=LNP1,PRI=6,COPY=2,          X
* $$ USER='ACCT  LJ CR '
* $$ LST CLASS=B,DISP=K,LST=03E,JSEP=1,FNO=LNP1,PRI=6,COPY=2,          X
* $$ USER='ACCT  LJ CR '
* $$ LST CLASS=B,DISP=K,LST=04E,JSEP=1,FNO=LNP1,PRI=6,COPY=2,          X
* $$ USER='ACCT  LJ VI '
// ASSGN SYS007,01E
// ASSGN SYS008,02E
// ASSGN SYS009,03E
// ASSGN SYS010,04E
// DLBL HABMSTR,'HOAB.CL.HAB310.ABS.MASTER',,VSAM,CAT=VSAM10
*/***** CONT0.P            /BEGIN/  FZABD3XJ.Z         002 */
// DLBL CONT0,'PROD.FPS.CONTROL.FILE0',0,VSAM,CAT=VSAM05,              *
               RECORDS=76,RECSIZE=92
*/***** CONT0.P            //END//  FZABD3XJ.Z         002 */
*    SLI P.CTYINFO           COUNTY INFO
// DLBL CNTYPAY,'FLAB.PRO.BABS030.CPAY.FILE',,VSAM,CAT=WORK
// DLBL ABSPAY,'FLAB.PRO.BABD145.CPAY.PAYMENTS',0,VSAM,CAT=WORK,       *
               RECORDS=1000,RECSIZE=150
// DLBL CNTYDEP,'PROD.COUNTY.PAY.DEPOSIT.FILE',0,VSAM,CAT=VSAM03,      X
               RECORDS=500,RECSIZE=130
// DLBL ACCTOUT,'FLAB.PRO.BABD145.DLY.CPAY.ACCTING',0,VSAM,CAT=WORK,   *
               RECORDS=1000,RECSIZE=150
// DLBL CNTYSUM,'FLAB.PRO.BABD145.DLY.CPAY.SUMMARY',0,VSAM,CAT=WORK,   *
               RECORDS=500,RECSIZE=100
// EXEC BABD145,SIZE=(BABD145,64K)
/*
/&
* $$ EOJ
   

Return to the Sample Job Stream List

Translated JCL (MVS)

//FZABD3XJ JOB (FZABD3XJ),'                    ',
//             CLASS=A,
//             MSGCLASS=X,
//             MSGLEVEL=(1,1),
//             REGION=6M
//*
//JOBLIB  INCLUDE MEMBER=JOBLIB
//*
//*/***** CONT0.P            /BEGIN/  FZABD3XJ.Z         002 */
//*/***** CONT0.P            //END//  FZABD3XJ.Z         002 */
//*    SLI P.CTYINFO           COUNTY INFO
//*
//*     STEP0010  PGM=BABD145
//*
//STEP0010 EXEC PGM=BABD145
//* VS VS    I VSAM10   S          'HOAB.CL.HAB8XX.ABS.CONFIG'
//HABCNFG  DD  DSN=MVS.HOAB.CL.HAB8XX.ABS.CONFIG,
//             DISP=SHR
//* VS VS    U VSAM03              'PROD.COUNTY.PAY.DEPOSIT.FILE'
//CNTYDEP  DD  DSN=MVS.PROD.COUNTY.PAY.DEPOSIT.FILE,
//             DISP=SHR
//* VS VS    I VSAM01   S          'PROD.COUNTY.INFO.FILE'
//CTYINFO  DD  DSN=MVS.PROD.COUNTY.INFO.FILE,
//             DISP=SHR
//* SD VS    I WORKCAT             'FLAB.PRO.BABS030.CPAY.FILE'
//CNTYPAY  DD  DSN=FLAB.PRO.BABS030.CPAY.FILE,
//             DISP=SHR
//* SD VS    I VSAM05              'PROD.FPS.CONTROL.FILE0'             BFPXDATE
//CONT0    DD  DSN=PROD.FPS.CONTROL.FILE0,
//             DISP=SHR
//* VS VS    I VSAM10              'HOAB.CL.HAB310.ABS.MASTER'          HAB993
//HABMSTR  DD  DSN=MVS.HOAB.CL.HAB310.ABS.MASTER,
//             DISP=SHR
//* VS VS    I VSAM02   S          'PROD.UTILITY.MAINT.FILE'            IDPXB02
//FBMNTFL  DD  DSN=MVS.PROD.UTILITY.MAINT.FILE,
//             DISP=SHR
//* SD VS    O WORKCAT             'FLAB.PRO.BABD145.CPAY.PAYMENTS'
//ABSPAY   DD  DSN=FLAB.PRO.BABD145.CPAY.PAYMENTS,
//             DISP=(NEW,CATLG,DELETE),
//             SPACE=(TRK,(3,1),RLSE),
//             UNIT=SYSDA
//* SD VS    O WORKCAT             'FLAB.PRO.BABD145.DLY.CPAY.ACCTING'
//ACCTOUT  DD  DSN=FLAB.PRO.BABD145.DLY.CPAY.ACCTING,
//             DISP=(NEW,CATLG,DELETE),
//             SPACE=(TRK,(3,1),RLSE),
//             UNIT=SYSDA
//* SD VS    O WORKCAT             'FLAB.PRO.BABD145.DLY.CPAY.SUMMARY'
//CNTYSUM  DD  DSN=FLAB.PRO.BABD145.DLY.CPAY.SUMMARY(+1),
//             DISP=(NEW,CATLG,DELETE),
//             SPACE=(TRK,(1,1),RLSE),
//             UNIT=SYSDA
//* PR O SYS007 01E 0002
//SYS007   DD  SYSOUT=(B,,LNP1),
//             COPIES=2
//* PR O SYS008 02E 0003
//SYS008   DD  SYSOUT=(B,,LNP1),
//             COPIES=2
//* PR O SYS009 03E 0004
//SYS009   DD  SYSOUT=(B,,LNP1),
//             COPIES=2
//* PR O SYS010 04E 0005
//SYS010   DD  SYSOUT=(B,,LNP1),
//             COPIES=2
//SYSOUT  INCLUDE MEMBER=SYSOUT
//* CD I SYSIPT 00C
//SYSIN    DD  *
/*
//SORTCNTL DD  *
 OPTION FILSZ=500000
//*
//NEVROPEN EXEC PGM=CLEANUP,PARM=NEVEROPEN
//*
//OPEN001   DD  DSN=FLAB.PRO.BABD145.DLY.CPAY.ACCTING,DISP=OLD
//OPEN002   DD  DSN=FLAB.PRO.BABD145.DLY.CPAY.SUMMARY(+1),DISP=OLD
//
   

Return to the Sample Job Stream List