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