77 lines
6.0 KiB
Plaintext
77 lines
6.0 KiB
Plaintext
//BCGBHRGS JOB (SP,4230,3130,P),CHRG.QTRLY.SRTOUTFA,CLASS=A, 00010025
|
|
// MSGLEVEL=(1,1), 00010100
|
|
//*** TYPRUN=SCAN, 00010214
|
|
//*** USER=#DOADTS, 00010314
|
|
// MSGCLASS=X,NOTIFY=ECNTSUP, 00010426
|
|
//*** MSGCLASS=X,NOTIFY=ECNTSUP, 00010522
|
|
// REGION=0M 00010614
|
|
/*ROUTE PRINT U@PRT65 - BY Z/OS UPGRADE
|
|
//PROCLIB JCLLIB ORDER=PROD.PROCLIB BY Z/OS
|
|
//**** 00010714
|
|
//* SORT & SPLIT STEP AFTER QTRLY CHARGE RUN 00010814
|
|
//* TO PRODUCE FILES TO BE SENT BACK TO FISCAL AGENTS 00010914
|
|
//* (E.G., BY CARTRIDGE) 00011014
|
|
//* WHO PROVIDE A 'CHARGING SERVICE' TO D.C. EMPLOYERS 00011114
|
|
//* 00011214
|
|
//* SET QTRLY FROM THE DTSCHGQ1 RUN (CHECK OUTPUT FILE NAMES) 00011314
|
|
//**** (ADD NEW FISC.AGNTS AS NEEDED) 00012022
|
|
// SET QTRLY='QTR092' 00013030
|
|
// SET LVLNODE='PROD' 00014014
|
|
//* FISCAL AGENT FILE 00015022
|
|
//STEP0100 EXEC PGM=SYNCSORT,PARM='RC16=ABE',COND=(0,NE) 00017000
|
|
//SYSOUT DD SYSOUT=(*) 00018000
|
|
//SYSPRINT DD SYSOUT=(*) 00019000
|
|
//* 00019103
|
|
//SORTIN DD DSN=DOESTAX.&LVLNODE..CHG.FISCAL.AGENT.&QTRLY., 00020014
|
|
// DISP=SHR 00030000
|
|
//SORTOF1 DD DSN=&&FAADP, 00040000
|
|
// DISP=(NEW,PASS,DELETE), 00041005
|
|
// UNIT=SYSDA, 00042000
|
|
// SPACE=(TRK,(10,05),RLSE), 00043020
|
|
// DCB=(RECFM=FB,LRECL=136,BLKSIZE=13600) 00044002
|
|
//SORTOF2 DD DSN=&&FATA, 00048221
|
|
// DISP=(NEW,PASS,DELETE), 00048305
|
|
// UNIT=SYSDA, 00048400
|
|
// SPACE=(TRK,(10,05),RLSE), 00048520
|
|
// DCB=(RECFM=FB,LRECL=136,BLKSIZE=13600) 00048602
|
|
//SYSIN DD * 00048700
|
|
SORT FIELDS=COPY 00048800
|
|
OUTFIL FILES=1, 00048900
|
|
INCLUDE=(1,3,CH,EQ,C'ADP') 00049000
|
|
OUTFIL FILES=2, 00070021
|
|
INCLUDE=(1,3,CH,EQ,C'TA ') 00080016
|
|
/* 00090000
|
|
//* FISCAL AGENT FILE (1) 00101022
|
|
//STEP0200 EXEC PGM=SYNCSORT,PARM='RC16=ABE',COND=(0,NE) 00110000
|
|
//SYSOUT DD SYSOUT=(*) 00120000
|
|
//SYSPRINT DD SYSOUT=(*) 00130000
|
|
//SORTIN DD DSN=&&FAADP, 00131007
|
|
// DISP=(OLD,DELETE,DELETE) 00131107
|
|
//* 00131203
|
|
//SORTOUT DD DSN=DOESTAX.&LVLNODE..CHG.FAOUTADP.&QTRLY., 00132014
|
|
// DISP=(NEW,CATLG,DELETE), 00132214
|
|
// UNIT=SYSDA, 00132314
|
|
// SPACE=(TRK,(10,05),RLSE), 00132420
|
|
// DCB=(RECFM=FB,LRECL=133,BLKSIZE=13300) 00132514
|
|
//SYSIN DD * 00132614
|
|
SORT FIELDS=COPY 00132714
|
|
INREC FIELDS=(1:4,133) 00132814
|
|
/* 00132914
|
|
//* FISCAL AGENT FILE (2) 00136222
|
|
//STEP0400 EXEC PGM=SYNCSORT,PARM='RC16=ABE',COND=(0,NE) 00136300
|
|
//SYSOUT DD SYSOUT=(*) 00136400
|
|
//SYSPRINT DD SYSOUT=(*) 00136500
|
|
//SORTIN DD DSN=&&FATA, 00136616
|
|
// DISP=(OLD,DELETE,DELETE) 00136707
|
|
//* 00136803
|
|
//SORTOUT DD DSN=DOESTAX.&LVLNODE..CHG.FAOUTTA.&QTRLY., 00136916
|
|
// DISP=(NEW,CATLG,DELETE), 00137000
|
|
// UNIT=SYSDA, 00137100
|
|
// SPACE=(TRK,(10,05),RLSE), 00137220
|
|
// DCB=(RECFM=FB,LRECL=133,BLKSIZE=13300) 00137302
|
|
//SYSIN DD * 00138000
|
|
SORT FIELDS=COPY 00138100
|
|
INREC FIELDS=(1:4,133) 00138202
|
|
/* 00138300
|
|
//* 00138500
|