//ECNT800R JOB (UI,4300,3400,T),'DTSBR451/452',CLASS=A,MSGCLASS=X,      00000199
//         NOTIFY=ECNTSUP                                               00000299
/*ROUTE PRINT U@PRT65               -  BY Z/OS UPGRADE
//**                                                                    00000499
//   SET LVLNODE='PROD'                                                 00000599
//   SET MSTNODE='PROD'                                                 00000699
//   SET PGMNODE='PROD'                                                 00000799
//PROCLIB  JCLLIB ORDER=DOESTAX.DEVL.PROCLIB                            00001399
//*                                                                     00001400
//LOADLIBS INCLUDE MEMBER=&PGMNODE.JLIB                                 00001599
//*                                                                     00001600
//****                    GENERATE A DUMMY RECORD FOR THE LABELS FILE   00001799
//DOESIEDG EXEC PGM=IEBDG                                               00001899
//SYSPRINT DD SYSOUT=*                                                  00001999
//LBLOUT  DD DSN=&&TEMP,DISP=(,PASS,DELETE),                            00002099
//           UNIT=SYSDA,                                                00002199
//           SPACE=(TRK,1),                                             00002299
//           DCB=(RECFM=VB,LRECL=4093,BLKSIZE=8192)                     00002399
//SYSIN   DD  *                                                         00002499
  DSD OUTPUT=(LBLOUT)                                                   00002599
  FD  NAME=F1,LENGTH=350,STARTLOC=1,FILL='0'                            00002699
  CREATE QUANTITY=1,NAME=(F1)                                           00002799
  END                                                                   00002899
/*                                                                      00002999
//DOESICAN EXEC PGM=IDCAMS                                              00003099
//SYSPRINT DD SYSOUT=*                                                  00003199
//FILEIN   DD DSN=&&TEMP,                                               00003299
//            DISP=(OLD,PASS),                                          00003399
//            UNIT=SYSDA                                                00003499
//*OESVRO1 DD  DSN=DOESTAX.DEVL.TESTR901.LABELS,DISP=SHR                00003599
//DOESVRO1 DD  DSN=&&LABELS,                                            00003699
//             DISP=(NEW,PASS,DELETE),                                  00003799
//             UNIT=SYSDA,                                              00003899
//             SPACE=(8192,(1000,1000),RLSE),                           00003999
//             DCB=(RECFM=VB,LRECL=4093,BLKSIZE=8192)                   00004099
//SYSIN    DD *                                                         00004199
  REPRO  INFILE(FILEIN) OUTFILE(DOESVRO1)                               00004299
/*                                                                      00004399
//*                                                                     00004499
//********************************************************************* 00004549
//STEP0100 EXEC PGM=SORT,PARM='VLTEST=0',         SORT REPORT RECORDS   00004600
//             COND=(0,LT)                                              00004700
//SYSOUT   DD  SYSOUT=*                                                 00004800
//SORTIN   DD  DSN=DOESTAX.PROD.CHG.BD220.RPT.QTR142,DISP=SHR           00005099
//*                                                                     00006399
//SORTOUT  DD  DSN=&&SRTRPT,                                            00006899
//             DISP=(,PASS,DELETE),                                     00006999
//             UNIT=SYSDA,                                              00007099
//             SPACE=(8192,(1000,1000),RLSE),                           00007199
//             DCB=(RECFM=FB,LRECL=388,BLKSIZE=31040)                   00007299
//SYSIN    DD  DSN=DOESTAX.PROD.APPL.PARMLIB(DTSSRREC),DISP=SHR         00007399
//SORTWK01 DD  UNIT=SYSDA,SPACE=(CYL,(150,10),RLSE)                     00007499
//SORTWK02 DD  UNIT=SYSDA,SPACE=(CYL,(150,10),RLSE)                     00008099
//SORTWK03 DD  UNIT=SYSDA,SPACE=(CYL,(150,10),RLSE)                     00009099
//SORTWK04 DD  UNIT=SYSDA,SPACE=(CYL,(150,10),RLSE)                     00010099
//SORTWK05 DD  UNIT=SYSDA,SPACE=(CYL,(150,10),RLSE)                     00011099
//********************************************************************* 00018000
//STEP0200 EXEC PGM=CHGBD800,                     OUTPUT GENERATION     00018100
//**           TIME=(0,20),                                             00018299
//             COND=(0,LT)                                              00018300
//SYSOUT   DD  SYSOUT=*                                                 00018400
//SYSABOUT DD  SYSOUT=*                                                 00018500
//SYSUDUMP DD  SYSOUT=*                                                 00018600
//*BD800,INC,102,103,105,108,109.112.115.117.127.319                    00018799
//PARMIN   DD  *                                                        00018899
CHGBD800,INC,100                                                        00019199
/*                                                                      00019599
//**                                                                    00019699
//ATLSTIN  DD  *                                                        00020000
DTSBD800,                                                               00030000
/*                                                                      00031000
//** 117 W CLASS                                                        00040099
//DTSFVRI1 DD  DSN=&&SRTRPT,DISP=(OLD,DELETE,DELETE)                    00050099
//**** NEED FOR 604 ONLY*****                                           00051099
//**                                                                    00060000
//DTSFMSTR INCLUDE MEMBER=DTSIMSTR                                      00070099
//DTSFREF  DD  DSN=DOESTAX.PROD.VSAM.REF,DISP=SHR,                      00071099
//             AMP=('BUFNI=5,BUFND=10')                                 00080000
//*                                                                     00090099
//DOESVRO1 DD  DSN=&&LABELS,DISP=(OLD,PASS,DELETE)                      00100099
//*                                                                     00100199
//RPC100R1 DD  SYSOUT=*                                                 00100299
//RPC100R2 DD  SYSOUT=*                                                 00100399
//RPC100R3 DD  SYSOUT=*                                                 00100499
//RPC110R1 DD  SYSOUT=*                                                 00100699
//RPC110R2 DD  SYSOUT=*                                                 00100799
//RPC120R1 DD  SYSOUT=*                                                 00100899
//RPC130R1 DD  SYSOUT=*                                                 00100999
//RPC140R1 DD  SYSOUT=*                                                 00101099
//RPC150R1 DD  SYSOUT=*                                                 00101199
//RPC160R1 DD  SYSOUT=*                                                 00101299
//RPT980R1 DD  SYSOUT=*                                                 00101299
//RPT980R2 DD  SYSOUT=*                                                 00101299