//XMITOTR1 JOB (TD,0000,0000,T),PROD.MON.OTRDATA,                       00010011
//         MSGCLASS=X,CLASS=P,                                          00010011
//         NOTIFY=ECNTSUP,MSGLEVEL=(1,1),                               00010011
//         USER=#DOADTS,                                                00010011
//***      USER=DCGEXS,                                                 00010011
//         REGION=4M                         //**** PROD VERSION
//PROCLIB JCLLIB ORDER=PROD.PROCLIB    BY Z/OS
//*****                                                                 00010011
//**               OTR = OFF.O.TAX & REV EMPLOYER UPDATE DATA           00010011
//**  THIS JOB IS DESIGNED TO RUN AT DOESJES2 AND XMIT A FILE           00010011
//**  TO PROCESS AT ODC2.  THE FILE CONTAINS UPDATED EMPLOYER DATA      00010011
//**  FOR FURTHER PROCESSING AT ODC2 (BY OTR).  IT IS USUALLY CREATED   00010011
//**  AT MONTH-END BY JOB DTSBX460.                                     00010011
//****                                                                  00010011
//      SET LINFILE='DOESTAX.PROD.OTR.TRNS.FILE(-1)'                    00010011
//****                                                                  00010011
//** STEP010 UNLOADS THE FILE TO BE SENT TO A SENDABLE FORMAT           00010011
//** DD INFILE MUST POINT TO YOUR SEQUENTIAL INPUT DATA FILE            00010011
//****                                                                  00010011
//STEP010   EXEC PGM=IKJEFT01                                           00010011
//SYSTSPRT DD SYSOUT=*                                                  00010011
//SYSPRINT DD SYSOUT=*                                                  00010011
//INFILE   DD DISP=SHR,DSN=&LINFILE.                                    00010011
//OUTTEMP  DD DSN=&&TEMP,DCB=(RECFM=FB,LRECL=80,BLKSIZE=80),            00010011
//         DISP=(NEW,PASS,DELETE),UNIT=SYSDA,                           00010011
//         SPACE=(CYL,(1,1),RLSE)                                       00010011
//SYSTSIN  DD *                                                         00010011
 TRANSMIT A.B SEQ NONOTIFY NOLOG DDNAME(INFILE) OUTDDNAME(OUTTEMP)      00010011
/*                                                                      00010011
//********************************************************************  00010011
//** TRANSMIT A.B DDNAME(INFILE) OUTDDNAME(OUTTEMP) SEQ NONOTIFY NOLOG  00010011
//** STEP020 ASSEMBLES THE REMOTE JOB AND SENDS IT TO THE JES2       *  00010011
//** READER.      CHANGE NOTHING ABOVE THE SYSUT1 CARD!!             *  00010011
//**             MAKE ONLY THE FOLLOWING CHANGES BELOW SYSUT1:      **  00010011
//** CHANGE THE JOBCARD TO BE VALID FOR EXECUTION ON THE REMOTE SYS **  00010011
//** CHANGE THE /*ROUTE XEQ CARD TO A VALID REMOTE NJE NODE NAME    **  00010011
//** CHANGE DSNAME('XXX.YYY.ZZZ') TO THE VALID REMOTE FILENAME TO   **  00010011
//**          BE CREATED ON THE REMOTE SYSTEM  (NOT A GDG!)         **  00010011
//** AND MAKE SURE ALL NEEDED SECURITY IS IN PLACE                  **  00010011
//********************************************************************  00010011
//STEP020   EXEC PGM=IEBGENER                                           00010011
//SYSPRINT DD SYSOUT=*                                                  00010011
//SYSUT2   DD SYSOUT=(A,INTRDR),DCB=BLKSIZE=80                          00010011
//SYSIN    DD DUMMY                                                     00010011
//*                                                                     00010011
//SYSUT1   DD DATA,DLM=YY                                               00010011
//PRNDOTR1  JOB (DC000),'OFF OF TAX & REV',                             00010011
//         CLASS=R,MSGCLASS=X,TIME=5,                                   00010011
//         NOTIFY=DOESJES2.ECNTJP2,                                     00010011
//         REGION=0M,USER=UINJE01                                       00010011
//PROCLIB JCLLIB ORDER=PROD.PROCLIB    BY Z/OS
//*                                                                     00010011
//**                                 //* NODE.USERID (TSO)              00010011
//**                                 //* NODE.VMGUESTID (VM)            00010011
//**                              //* GOES TO ODC2.OS12 (DEFAULT)       00010011
/*ROUTE XEQ ODC2                                                        00010011
//**                              //* CHK PRND* SYSOUTS FOR $INFO       00010011
/*ROUTE PRINT U@PRT65
//****                            //** PULL DATA FROM NJE PIPELINE      00010011
//STEP01   EXEC PGM=IKJEFT01                                            00010011
//SYSTSPRT DD SYSOUT=*                                                  00010011
//SYSPRINT DD SYSOUT=*                                                  00010011
//SYSTSIN  DD *                                                         00010011
 RECEIVE LOGDATASET('FRDWH.PRD.LOG.MISC') INDDNAME(INFILE)              00010011
 DSNAME('FRDWH.PRD.RS21.PRNDOTRE.DAT.TEMP')                             00010011
/*                                                                      00010011
//INFILE  DD *                                                          00010011
YY                                                                      00010011
//         DD DISP=(OLD,DELETE),DSN=&&TEMP                              00010011
//         DD DATA,DLM=ZZ                                               00010011
/*                                                                      00010011
//****                              //* DELETE OLD PRNDOTRE.DAT
//DELETE1  EXEC PGM=IDCAMS,
//             COND=(0,LT)
//SYSPRINT DD  SYSOUT=*
//SYSIN    DD  *
    DEL-
       FRDWH.PRD.RS21.PRNDOTRE.DAT-
       NOERASE

    IF LASTCC=8 THEN-
      SET MAXCC=0
/*
//****                               //* CREATE NEW PRNDOTRE.DAT        00010011
//STEP02   EXEC PGM=IDCAMS,                                             00010011
//            COND=(0,LT)                                               00010011
//SYSPRINT DD SYSOUT=*
//INDD01   DD DSN=FRDWH.PRD.RS21.PRNDOTRE.DAT.TEMP,
//            DISP=(OLD,DELETE,DELETE)
//OUTDD01  DD DSN=FRDWH.PRD.RS21.PRNDOTRE.DAT,
//            DISP=(,CATLG,DELETE),
//            UNIT=SYSDA,
//            SPACE=(CYL,(20,10),RLSE),
//            DCB=(FM60.MODEL.DSCB,
//             RECFM=FB,LRECL=333,BLKSIZE=3330)
//SYSIN    DD  *
  REPRO  INFILE(INDD01)  OUTFILE(OUTDD01)
/*
ZZ
/*                                                                      00010011
//*****                                                                 00010011