//RUNPBKUP JOB (UI,4300,3400,T),PROD.SOURCE.BKUP,CLASS=A,MSGCLASS=X,    00010001
//             NOTIFY=ECNTSUP                                           00030001
//**********************************************************************00050000
//**********************************************************************00090000
//STEP0100 EXEC PGM=PAN#1,PARM='OPEN=INP'                               00100000
//PANDD1   DD  DSN=DOESTAX.PROD.PANLIB,DISP=SHR                         00110000
//PANDD2   DD  SYSOUT=*                                                 00120000
//PDS      DD  DSN=&&TEMPPDS,DISP=(,PASS,DELETE),                       00130000
//             UNIT=SYSDA,                                              00140000
//             SPACE=(9000,(5000,900,900)),                             00150002
//             DCB=(RECFM=FB,LRECL=80,BLKSIZE=8000)                     00160000
//SYSPRINT DD  SYSOUT=*                                                 00170000
//SYSPUNCH DD  DUMMY                                                    00180000
//SYSIN    DD  *                                                        00190000
++OPTION OUTPUT,PDS                                                     00200000
++WRITE WORK,*                                                          00210000
/*                                                                      00220000
//**********************************************************************00260000
//STEP0200 EXEC PGM=IEBCOPY                                             00310000
//SYSOUT   DD  SYSOUT=*                                                 00320000
//SYSUDUMP DD  SYSOUT=*                                                 00330000
//SYSPRINT DD  SYSOUT=*                                                 00340000
//INPDS    DD  DSN=&&TEMPPDS,DISP=(OLD,DELETE,DELETE)                   00350000
//BACKUP   DD  DSN=DOESTAX.PROD.BKUP.PANLIB(+1),DISP=(,CATLG,DELETE),   00360001
//             UNIT=SYSDA,                                              00370001
//             SPACE=(9000,(5000,900,900)),                             00371002
//             DCB=(SYS3.MODEL,RECFM=FB,LRECL=80,BLKSIZE=8000)          00380001
//SYSUT3   DD  DSN=&&TEMPWRK,DISP=(NEW,DELETE),                         00400000
//             UNIT=SYSDA,                                              00410000
//             SPACE=(CYL,50)                                           00420000
//SYSIN    DD  *                                                        00430000
      COPY OUTDD=BACKUP,INDD=INPDS                                      00440000
/*                                                                      00450000
//************************************M*********************************00460000
//STEP0300 EXEC PGM=IEBCOPY                                             00470000
//SYSOUT   DD  SYSOUT=*                                                 00480000
//SYSUDUMP DD  SYSOUT=*                                                 00490000
//SYSPRINT DD  SYSOUT=*                                                 00500000
//INPDS    DD  DSN=DOESTAX.PROD.APPL.PARMLIB,DISP=SHR                   00510000
//BACKUP   DD  DSN=DOESTAX.PROD.BKUP.APPL.PARMLIB(+1),                  00520001
//             DISP=(,CATLG,DELETE),                                    00521000
//             UNIT=SYSDA,                                              00530001
//             SPACE=(8000,(2000,500,500)),                             00540001
//             DCB=(SYS3.MODEL,RECFM=FB,LRECL=80,BLKSIZE=8000)          00550001
//SYSUT3   DD  DSN=&&TEMPWRK,DISP=(NEW,DELETE),                         00560000
//             UNIT=SYSDA,                                              00570000
//             SPACE=(CYL,50)                                           00580000
//SYSIN    DD  *                                                        00590000
      COPY OUTDD=BACKUP,INDD=INPDS                                      00600000
/*                                                                      00610000
//**********************************************************************00620000
//STEP0400 EXEC PGM=IEBCOPY                                             00630000
//SYSOUT   DD  SYSOUT=*                                                 00640000
//SYSUDUMP DD  SYSOUT=*                                                 00650000
//SYSPRINT DD  SYSOUT=*                                                 00660000
//INPDS    DD  DSN=DOESTAX.PROD.JOBLIB,DISP=SHR                         00670000
//BACKUP   DD  DSN=DOESTAX.PROD.BKUP.JOBLIB(+1),                        00680001
//             DISP=(,CATLG,DELETE),                                    00681000
//             UNIT=SYSDA,                                              00690000
//             SPACE=(8000,(2000,500,500)),                             00700001
//             DCB=(SYS3.MODEL,RECFM=FB,LRECL=80,BLKSIZE=8000)          00710001
//SYSUT3   DD  DSN=&&TEMPWRK,DISP=(NEW,DELETE),                         00720000
//             UNIT=SYSDA,                                              00730000
//             SPACE=(CYL,50)                                           00740000
//SYSIN    DD  *                                                        00750000
      COPY OUTDD=BACKUP,INDD=INPDS                                      00760000
/*                                                                      00770000
//**********************************************************************00780000
//STEP0500 EXEC PGM=IEBCOPY                                             00790000
//SYSOUT   DD  SYSOUT=*                                                 00800000
//SYSUDUMP DD  SYSOUT=*                                                 00810000
//SYSPRINT DD  SYSOUT=*                                                 00820000
//INPDS    DD  DSN=DOESTAX.PROD.PROCS.BATCH.LIB,DISP=SHR                        00821000
//BACKUP   DD  DSN=DOESTAX.PROD.BKUP.PROCLIB(+1),                       00822001
//             DISP=(,CATLG,DELETE),                                    00840000
//             UNIT=SYSDA,                                              00850000
//             SPACE=(8000,(2000,500,500)),                             00860001
//             DCB=(SYS3.MODEL,RECFM=FB,LRECL=80,BLKSIZE=8000)          00870001
//SYSUT3   DD  DSN=&&TEMPWRK,DISP=(NEW,DELETE),                         00880000
//             UNIT=SYSDA,                                              00890000
//             SPACE=(CYL,50)                                           00900000
//SYSIN    DD  *                                                        00910000
      COPY OUTDD=BACKUP,INDD=INPDS                                      00920000
/*                                                                      00930000
//**********************************************************************00940000
//STEP0600 EXEC PGM=IEBCOPY                                             00941000
//SYSOUT   DD  SYSOUT=*                                                 00942000
//SYSUDUMP DD  SYSOUT=*                                                 00943000
//SYSPRINT DD  SYSOUT=*                                                 00944000
//INPDS    DD  DSN=DOESTAX.PROD.BATCH.LOADLIB,DISP=SHR                  00945000
//BACKUP   DD  DSN=DOESTAX.PROD.BKUP.BATCH.LOADLIB(+1),                 00946001
//             DISP=(,CATLG,DELETE),                                    00947000
//             UNIT=SYSDA,                                              00948000
//             SPACE=(8000,(2000,500,500)),                             00949001
//             DCB=(SYS3.MODEL,RECFM=U,LRECL=0,BLKSIZE=13030)           00949200
//SYSUT3   DD  DSN=&&TEMPWRK,DISP=(NEW,DELETE),                         00949300
//             UNIT=SYSDA,                                              00949400
//             SPACE=(CYL,50)                                           00949500
//SYSIN    DD  *                                                        00949600
      COPY OUTDD=BACKUP,INDD=INPDS                                      00949700
/*                                                                      00949800
//                                                                      00949903
//**********************************************************************01141000
//STEP0700 EXEC PGM=IEBCOPY                                             01142000
//SYSOUT   DD  SYSOUT=*                                                 01143000
//SYSUDUMP DD  SYSOUT=*                                                 01144000
//SYSPRINT DD  SYSOUT=*                                                 01145000
//INPDS    DD  DSN=DOESTAX.PROD.CICS.LOADLIB,DISP=SHR                   01146000
//BACKUP   DD  DSN=DOESTAX.PROD.BKUP.CICS.LOADLIB(+1),                  01147001
//             DISP=(,CATLG,DELETE),                                    01148000
//             UNIT=SYSDA,                                              01149000
//             SPACE=(8000,(2000,500,500)),                             01149101
//             DCB=(SYS3.MODEL,RECFM=U,LRECL=0,BLKSIZE=13030)           01149300
//SYSUT3   DD  DSN=&&TEMPWRK,DISP=(NEW,DELETE),                         01149400
//             UNIT=SYSDA,                                              01149500
//             SPACE=(CYL,50)                                           01149600
//SYSIN    DD  *                                                        01149700
      COPY OUTDD=BACKUP,INDD=INPDS                                      01149800
/*                                                                      01149900
//********************************************************************* 01151400
//********************************************************************* 01160000
//                                                                      01170000