* $$ 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
//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