//DTSBX460 JOB (UI,4300,3400,T),PROD.OTR.EMPLR.DATA,                    00000010
//         CLASS=P,MSGCLASS=X,                                          00000010
//         USER=#DOADTS,
//****     TYPRUN=SCAN,
//         NOTIFY=ECNTSUP,REGION=0M
/*ROUTE PRINT U@PRT65               -  BY Z/OS UPGRADE
//**
// SET  UINODE='PROD'
// SET MSTNODE='PROD'
// SET LVLNODE='PROD'
//**
//PROCLIB  JCLLIB ORDER=DOESTAX.&LVLNODE..PROCLIB                       00001600
//LOADLIBS INCLUDE MEMBER=DTSIJLIB                                      00001600
//**                                                                    00001700
//*   FILE IS CREATED FOR OTR.  OTR WILL FTP (GET) FIRST WORK OF MON)   00001700
//*     (DATA ARE UPDATES TO UI TAX EMPLOYER NAMES AND ADDRESSES)       00001700
//*            {CONTACT PERSON AT OTR IS MS. WIGGLESWORTH}              00001700
//*               (NO BKP NEEDED FOR THIS MONTHLY RUN)                  00001700
//*                                                                     00001700
//STEP0100 EXEC PGM=DTSBX460,
//             COND=(0,LT)
//SYSOUT   DD  SYSOUT=*
//SYSABOUT DD  SYSOUT=*
//SYSABEND DD  SYSOUT=*
//CAIMRPTS DD  SYSOUT=*
//*                                                                     00001700
//DTSFMSTR INCLUDE MEMBER=DTSIMSTR
//*                                                                     00001700
//* IPRIFILE IS A DUMMY THE 1ST TIME (CREATES THE 1ST RECYCLE FILE)     00001700
//*              (THEREAFTER IT'S LAST GEN. TO NEW GEN.)                00001700
//*                                                                     00001700
//****IPRIFILE DD  DUMMY                                                00001700
//IPRIFILE DD  DSN=DOESTAX.&LVLNODE..OTR.COMP.FILE(+0),                 00001700
//            DISP=SHR                                                  00001700
//*                                                                     00001700
//OCURFILE DD  DSN=DOESTAX.&LVLNODE..UI.OTR.COMP.FILE(+1),              00001700
//             DISP=(NEW,CATLG,DELETE),                                 00001700
//****             UNIT=3490,                                           00001700
//             UNIT=SYSDA,                                              00001700
//             SPACE=(CYL,(60,10),RLSE),                                00038000
//             DCB=(SYS3.MODEL,RECFM=FB,LRECL=332,BLKSIZE=3320)         00001700
//*                                                                     00001700
//OTRNFILE DD  DSN=&&TRANS01,                                           00001700
//             DISP=(NEW,PASS,DELETE),                                  00001700
//             UNIT=SYSDA,                                              00001700
//*            SPACE=(3330,(2000,1000),RLSE),                           00001700
//             SPACE=(CYL,(40,10),RLSE),                                00038000
//             DCB=(RECFM=FB,LRECL=333,BLKSIZE=3330)                    00001700
//*                                                                     00001700
//STEP0200 EXEC PGM=SORT,PARM='VLTEST=0',                               00015000
//          COND=(0,NE)                                                 00015000
//SYSOUT   DD SYSOUT=(*)                                                00017000
//SYSPRINT DD SYSOUT=(*)                                                00018000
//*                                                                     00019000
//SORTIN DD DSN=&&TRANS01,                                              00020000
//           DISP=(OLD,DELETE,DELETE)                                   00020000
//SORTWK01 DD  UNIT=SYSDA,SPACE=(CYL,(20,20),RLSE)                      00031000
//SORTWK02 DD  UNIT=SYSDA,SPACE=(CYL,(20,20),RLSE)                      00032000
//SORTWK03 DD  UNIT=SYSDA,SPACE=(CYL,(20,20),RLSE)                      00033000
//SORTWK04 DD  UNIT=SYSDA,SPACE=(CYL,(20,20),RLSE)                      00034000
//*                                                                     00030000
//SORTOUT DD DSN=&&TRANS02,                                             00035000
//      DISP=(NEW,PASS,DELETE),                                         00036000
//      UNIT=SYSDA,                                                     00037000
//      SPACE=(CYL,(40,10),RLSE),                                       00038000
//      DCB=(SYS3.MODEL,RECFM=FB,LRECL=333,BLKSIZE=3330)                00001700
//SYSIN    DD *                                                         00043000
  SORT FIELDS=(2,10,CH,A,12,8,CH,D)
/*                                                                      00046000
//*                         THIS SORT STEP ALSO ELIMINATES DUPLICATES   00047000
//*                                                                     00047000
//STEP0300 EXEC PGM=SORT,PARM='VLTEST=0',                               00015000
//          COND=(0,NE)                                                 00015000
//SYSOUT DD SYSOUT=(*)                                                  00017000
//SYSPRINT DD SYSOUT=(*)                                                00018000
//*                                                                     00019000
//SORTIN DD DSN=&&TRANS02,                                              00020000
//           DISP=(OLD,DELETE,DELETE)                                   00020000
//SORTWK01 DD  UNIT=SYSDA,SPACE=(CYL,(20,20),RLSE)                      00031000
//SORTWK02 DD  UNIT=SYSDA,SPACE=(CYL,(20,20),RLSE)                      00032000
//SORTWK03 DD  UNIT=SYSDA,SPACE=(CYL,(20,20),RLSE)                      00033000
//SORTWK04 DD  UNIT=SYSDA,SPACE=(CYL,(20,20),RLSE)                      00034000
//*                                                                     00030000
//SORTOUT DD DSN=DOESTAX.&LVLNODE..UI.OTR.TRNS.FILE(+1),                00035000
//       DISP=(NEW,CATLG,DELETE),                                       00036000
//       UNIT=SYSDA,                                                    00037000
//       SPACE=(CYL,(50,10),RLSE),                                      00038000
//       DCB=(SYS3.MODEL,RECFM=FB,LRECL=333,BLKSIZE=3330)               00040000
//*                                                                     00042000
//SYSIN    DD *                                                         00043000
  SORT FIELDS=(2,9,CH,A)                                                00044000
  SUM FIELDS=NONE                                                       00046000
/*                                                                      00046000
//*
//STEP0400 EXEC PGM=FTP,REGION=2M
//*YSFTPD  DD DISP=SHR,DSN=SYS2.TCPIP.ODC3.PARMLIB(FTCMFTS9)
//SYSFTPD  DD DISP=SHR,DSN=SYS2.TCPIP.ODC3.PARMLIB(FTCMGAW9)
//SYSIN    DD *
FWFRIENDLY TRUE
//SYSPRINT DD SYSOUT=*,HOLD=YES
//OUTPUT   DD SYSOUT=*
//*NPUT    DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSFX460),DISP=SHR
//INPUT    DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSFX460),DISP=SHR
//*                                                                     00047000