//BCGBP591 JOB (UI,4300,3400,T),PROD.FACHRG.DATAOUT,                    00000010
//          CLASS=P,MSGCLASS=X,                                         00000010
//****      TYPRUN=SCAN,
//****      USER=OPCSUB,
//          NOTIFY=ECNTSUP,REGION=0M
/*ROUTE PRINT U@PRT65               -  BY Z/OS UPGRADE
//PROCLIB JCLLIB ORDER=PROD.PROCS.BATCH.LIB    BY Z/OS
//****                               *CHARGING* FISC.AGNT. DOWNLOAD
//  SET LVLNODE='PROD'
//  SET  LYRQTR='QTR093'
//* SET TVOLSER='X00022'
//* SET LFAGENT='FAOUTADP'                /* ADP INC.        (CART)
//  SET LFAGENT='FAOUTTA'                 /* TALX UCM SERV.  (CART)
//* SET LFAGENT='FAOUTEU'  LABEL=(,NL)    /* EMPL UNITY      (CART)
//***                        /* GATES MCDONALD  {'GM' IS NOW 'TA'}
//***      !!!    BUT... HAS NOT YET CHANGED THE CODE ON THE CART.
//***      !!!                  THIS CHANGE IS PLANNED FOR QTR20032.
//**SET LFAGENT='FAOUTJF'    /* J FRICK & CO    {'JF' NOW IS 'TA'}
//****     !!!    FINALLY ACCOMPLISHED FOR 20033    !!!
//**SET LFAGENT='FAOUTGM'    /* GATES MCDONALD  {'GM' IS NOW 'TA'}
//****     !!!    FINALLY ACCOMPLISHED FOR 20034    !!!
//****
//**  THIS JOB TRANSFERS THE QTRLY OUTPUT OF DTSCHRGS
//**          (SPLIT OF DTSCHGQ1 OUTPUT FROM CHARGING)
//**   TO A MEDIUM FOR SHIPMENT TO AND PROCESSING BY FISCAL AGENT(S)
//****
//STEPCPY1 EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//INDD01  DD DSN=DOESTAX.&LVLNODE..CHG.&LFAGENT..&LYRQTR.,
//         DISP=SHR
//INDD02 DD DSN=MAILOUT.DOESTAX.&LVLNODE..CHG.&LFAGENT..&LYRQTR.,
//         VOL=SER=&TVOLSER.,
//**       UNIT=700,
//         UNIT=CART90,
//         DISP=(NEW,KEEP,DELETE),
//****     LABEL=(2,BLP),       /* (BLP=SECURITY VIOLATION AT IBM KY)
//         LABEL=(,SL,EXPDT=98000),
//***      LABEL=(,NL,EXPDT=98000),
//         DCB=(RECFM=FB,LRECL=133,BLKSIZE=13300)
//SYSIN   DD *
   REPRO INFILE(INDD01) OUTFILE(INDD02)
/*
//