//DTSUC30T JOB (UI,4300,3400,T),PROD.UC30.TAPE,                         00000128
//         CLASS=P,MSGCLASS=X,                                          00000227
//****     TYPRUN=SCAN,                                                 00000317
//         NOTIFY=ECNTSUP,REGION=0K                                     00000417
/*ROUTE PRINT U@PRT65               -  BY Z/OS UPGRADE
//**                                                                    00000510
//   SET LVLNODE='PROD'                                                 00001327
//***SET LVOLSER='300154'                                               00001427
//*                                                                     00001612
//PROCLIB  JCLLIB ORDER=DOESTAX.&LVLNODE..PROCLIB                       00001712
//LOADLIBS INCLUDE MEMBER=DTSIJLIB                                      00001812
//****                                                                  00001927
//**    - CREATE A CART./TAPE WITH CONTRIBUTION/WAGE DATA (E.G.,        00002027
//**      THE UI RATE) FOR SHIPMENT TO A **>VENDOR FOR PRINTING<**      00002129
//****                                                                  00002227
//STEPCPY1 EXEC PGM=IDCAMS                                              00100027
//SYSPRINT DD SYSOUT=*                                                  00101027
//INDD01  DD DSN=DOESTAX.PROD.UC30DATA,                                 00102027
//         DISP=SHR                                                     00103027
//INDD02  DD DSN=DOESTAX.UC30DATA,                                      00104027
//         UNIT=E85,                                                    00105027
//****     UNIT=3480,                                                   00105127
//****     VOL=SER=&LVOLSER.,                                           00106028
//         VOLUME=(,RETAIN),                                            00107027
//         DISP=(NEW,KEEP,DELETE),                                      00108027
//         LABEL=(1,SL),                                                00109027
//****     LABEL=EXPDT=98000,                                           00109127
//         DCB=(RECFM=FB,LRECL=385,BLKSIZE=385)                         00109227
//SYSIN   DD *                                                          00109327
   REPRO INFILE(INDD01) OUTFILE(INDD02)                                 00109427
/*                                                                      00109527
//                                                                      00109627
//**                                                                    00110000