//* JCL TO DUMP ALL NECESSARY FILES (ALSO KNOWN AS APAR TAPE //* ADD A JOB CARD //* //* FIRST COPY ALL FILES ALLOCATED AS DSORG=PSU TO A NON-PSU FILE TO //* MAKE THEM EASY TO RESTORE //* //COPY1 EXEC PGM=IEBGENER //SYSPRINT DD SYSOUT=* //SYSUT1 DD DISP=SHR,DSN=ZWS.V10R1M0.EV //SYSUT2 DD DISP=(NEW,CATLG),DSN=ZWS.V10R1M0.EV.NONPSU, // UNIT=SYSDA,LIKE=ZWS.V10R1M0.EV,DSORG=PS //SYSIN DD DUMMY //COPY2 EXEC PGM=IEBGENER //SYSPRINT DD SYSOUT=* //SYSUT1 DD DISP=SHR,DSN=ZWS.V10R1M0.EV01 //SYSUT2 DD DISP=(NEW,CATLG),DSN=ZWS.V10R1M0.EV01.NONPSU, // UNIT=SYSDA,LIKE=ZWS.V10R1M0.EV01,DSORG=PS //SYSIN DD DUMMY //COPY3 EXEC PGM=IEBGENER //SYSPRINT DD SYSOUT=* //SYSUT1 DD DISP=SHR,DSN=ZWS.V10R1M0.HTEV //SYSUT2 DD DISP=(NEW,CATLG),DSN=ZWS.V10R1M0.HTEV.NONPSU, // UNIT=SYSDA,LIKE=ZWS.V10R1M0.HTEV,DSORG=PS //SYSIN DD DUMMY //COPY4 EXEC PGM=IEBGENER //SYSPRINT DD SYSOUT=* //SYSUT1 DD DISP=SHR,DSN=ZWS.V10R1M0.TWSIN //SYSUT2 DD DISP=(NEW,CATLG),DSN=ZWS.V10R1M0.TWSIN.NONPSU, // UNIT=SYSDA,LIKE=ZWS.V10R1M0.TWSIN,DSORG=PS //SYSIN DD DUMMY //COPY5 EXEC PGM=IEBGENER //SYSPRINT DD SYSOUT=* //SYSUT1 DD DISP=SHR,DSN=ZWS.V10R1M0.TWSOU //SYSUT2 DD DISP=(NEW,CATLG),DSN=ZWS.V10R1M0.TWSOU.NONPSU, // UNIT=SYSDA,LIKE=ZWS.V10R1M0.TWSOU,DSORG=PS //SYSIN DD DUMMY //COPY6 EXEC PGM=IEBGENER //SYSPRINT DD SYSOUT=* //SYSUT1 DD DISP=SHR,DSN=ZWS.V10R1M0.OUCEV //SYSUT2 DD DISP=(NEW,CATLG),DSN=ZWS.V10R1M0.OUCEV.NONPSU, // UNIT=SYSDA,LIKE=ZWS.V10R1M0.OUCEV,DSORG=PS //SYSIN DD DUMMY //COPY7 EXEC PGM=IEBGENER //SYSPRINT DD SYSOUT=* //SYSUT1 DD DISP=SHR,DSN=ZWS.V10R1M0.MONDS //SYSUT2 DD DISP=(NEW,CATLG),DSN=ZWS.V10R1M0.MONDS.NONPSU, // UNIT=SYSDA,LIKE=ZWS.V10R1M0.MONDS,DSORG=PS //SYSIN DD DUMMY //* //* NEXT COPY ALL FILES TO A SINGLE BACKUP FILE //* //DUMPDSV EXEC PGM=ADRDSSU,REGION=6M,PARM='UTILMSG=YES' //SYSPRINT DD SYSOUT=* //SYSOUT DD SYSOUT=* //DASD DD DSNAME=TWSZ.DFDSS,DISP=(NEW,CATLG), // SPACE=(CYL,(200,200),RLSE),UNIT=SYSDA //* NOTES //* 1. ALL FILES BELOW ARE FROM THE CONTROLLER TASK UNLESS //* OTHERWISE NOTED //* 2. REMOVE ANY FILES THAT ARE NOT NEEDED //* 3. ALL FILES ALLOCATED AS DSORG=PSU MUST BE COPIED FIRST //* THIS INCLUDES EQQEVDS, EQQMONDS, EQQTWSIN, EQQTWSOU, //* EQQHTTP0. EQOUCEV. ADDITIONAL COPY STEPS MAY NEED //* TO BE ADDED //* 4. ADDITIONAL EQQUDFXX AND EQQSDFXX FILES MAY NEED TO //* BE ADDED //* 5. ADDITIONAL TRACKER EQQEVDS DATASETS MAY NEED TO BE //* ADDED //* 6. IN GENERAL IT DOES NOT CAUSE PROBLEMS TO BACK UP MORE //* DATASETS THAN ARE NEEDED //* 7. THE OUTPUT FILE (DD DASD) MUST BE TERSED BEFORE IT //* CAN BE SENT IN TO SUPPORT VIA FTP OR ATTACHED TO A CASE //* 8. ANY ADDITION DUMPS OR EQQMLOGS MAY BE ADDED TO THE //* LIST OF FILES BEING BACKED UP //* //SYSIN DD * DUMP DATASET(INCLUDE( - /* SEQQLMD0 LIBRARY USED */ - ZWS.V10R1M0.SEQQLMD0 - /* E2E ONLY */ - ZWS.V10R1M0.ZFS /* WRKDIR ZFS */ - ZWS.V10R1M0.TWSIN.NONPSU /* EQQTWSIN */ - ZWS.V10R1M0.TWSOU.NONPSU /* EQQTWSOU */ - ZWS.V10R1M0.SCRPTLIB /* EQQSCLIB */ - /* RESTART AND CLEANUP PROBLEMS ONLY */ - /* DATASTORE TASK FILES */ - ZWS.V10R1M0.DS.PKI01.** /* EQQPKI01 */ - ZWS.V10R1M0.DS.SKI01.** /* EQQSKI01 */ - ZWS.V10R1M0.DS.SDF01.** /* EQQSDF01 */ - ZWS.V10R1M0.DS.SDF02.** /* EQQSDF02 */ - ZWS.V10R1M0.DS.SDF03.** /* EQQSDF03 */ - ZWS.V10R1M0.DS.UDF01.** /* EQQUDF01 */ - ZWS.V10R1M0.DS.UDF02.** /* EQQUDF02 */ - ZWS.V10R1M0.DS.UDF03.** /* EQQUDF03 */ - /* CONTROLLER TASK FILES */ - ZWS.V10R1M0.PKI01.** /* EQQPKI01 */ - ZWS.V10R1M0.SKI01.** /* EQQSKI01 */ - ZWS.V10R1M0.SDF01.** /* EQQSDF01 */ - ZWS.V10R1M0.SDF02.** /* EQQSDF02 */ - ZWS.V10R1M0.SDF03.** /* EQQSDF03 */ - /* OUTPUT COLLECTOR ONLY */ - ZWS.V10R1M0.OUCEV.NONPSU /* EQQOUCEV */ - ZWS.V10R1M0.OUCKP /* EQQOUCKP */ - /* JOB TRACKING ONLY */ - ZWS.V10R1M0.EV.NONPSU /* EQQEVDS */ - /* NEXT FILE IS FROM TRACKER */ - ZWS.V10R1M0.EV01.NONPSU /* EQQEVDS */ - /* ZCENTRIC ONLY */ - ZWS.V10R1M0.HTEV.NONPSU /* EQQHTTP0 */ - /* MONITORING ONLY */ - ZWS.V10R1M0.MONDS.NONPSU /* EQQMONDS */ - /* ALL */ - ZWS.V10R1M0.CKPT /* EQQCKPT */ - ZWS.V10R1M0.SCP.** /* EQQSCPDS */ - ZWS.V10R1M0.WS.** /* EQQWSDS */ - ZWS.V10R1M0.AD.** /* EQQADDS */ - ZWS.V10R1M0.RD.** /* EQQRDDS */ - ZWS.V10R1M0.SI.** /* EQQSIDS */ - ZWS.V10R1M0.OI.** /* EQQLTDS */ - ZWS.V10R1M0.LT.** /* EQQLTDS */ - /* NEXT 2 FILES ARE FROM LT BATCH JOB */ - ZWS.V10R1M0.LD.** /* EQQLTBKP */ - ZWS.V10R1M0.LB.** /* EQQLDDS */ - ZWS.V10R1M0.JS1.** /* EQQJS1DS */ - ZWS.V10R1M0.JS2.** /* EQQJS2DS */ - ZWS.V10R1M0.CP1.** /* EQQCP1DS */ - ZWS.V10R1M0.CP2.** /* EQQCP2DS */ - ZWS.V10R1M0.NCP.** /* EQQNCPDS */ - ZWS.V10R1M0.XD1.** /* EQQXD1DS */ - ZWS.V10R1M0.XD2.** /* EQQXD2DS */ - ZWS.V10R1M0.NXD.** /* EQQNXDDS */ - ZWS.V10R1M0.CX.** /* EQQCXDS */ - ZWS.V10R1M0.NCX.** /* EQQNCXDS */ - ZWS.V10R1M0.JTARC /* EQQJTARC */ - ZWS.V10R1M0.JT1 /* EQQJT01 */ - ZWS.V10R1M0.JT2 /* EQQJT02 */ - ZWS.V10R1M0.JT3 /* EQQJT03 */ - ZWS.V10R1M0.JT4 /* EQQJT04 */ - ZWS.V10R1M0.JT5 /* EQQJT05 */ - ZWS.V10R1M0.JTABL /* EQQJTABL */ - ZWS.V10R1M0.LOGRC /* EQQLOGRC */ - ZWS.V10R1M0.EVLIB /* EQQEVLIB */ - )) - OUTDD(DASD) - TOLERATE(ENQF) /* NOTE: SIMPLIFIED BACKUP IF NAMING CONVENTION WAS USED IF ALL THE FILES ALLOCATED TO THE CONTROLLER HAVE A COMMON NAMING CONVENTION, THE JCL CAN BE SIMPLIFIED: //* JCL TO DUMP ALL NECESSARY FILES (ALSO KNOWN AS APAR TAPE //* ADD A JOB CARD //* //* FIRST COPY ALL FILES ALLOCATED AS DSORG=PSU TO A NON-PSU FILE TO //* MAKE THEM EASY TO RESTORE //* //COPY1 EXEC PGM=IEBGENER //SYSPRINT DD SYSOUT=* //SYSUT1 DD DISP=SHR,DSN=ZWS.V10R1M0.EV //SYSUT2 DD DISP=(NEW,CATLG),DSN=ZWS.V10R1M0.EV.NONPSU, // UNIT=SYSDA,LIKE=ZWS.V10R1M0.EV,DSORG=PS //SYSIN DD DUMMY //COPY2 EXEC PGM=IEBGENER //SYSPRINT DD SYSOUT=* //SYSUT1 DD DISP=SHR,DSN=ZWS.V10R1M0.EV01 //SYSUT2 DD DISP=(NEW,CATLG),DSN=ZWS.V10R1M0.EV01.NONPSU, // UNIT=SYSDA,LIKE=ZWS.V10R1M0.EV01,DSORG=PS //SYSIN DD DUMMY //COPY3 EXEC PGM=IEBGENER //SYSPRINT DD SYSOUT=* //SYSUT1 DD DISP=SHR,DSN=ZWS.V10R1M0.HTEV //SYSUT2 DD DISP=(NEW,CATLG),DSN=ZWS.V10R1M0.HTEV.NONPSU, // UNIT=SYSDA,LIKE=ZWS.V10R1M0.HTEV,DSORG=PS //SYSIN DD DUMMY //COPY4 EXEC PGM=IEBGENER //SYSPRINT DD SYSOUT=* //SYSUT1 DD DISP=SHR,DSN=ZWS.V10R1M0.TWSIN //SYSUT2 DD DISP=(NEW,CATLG),DSN=ZWS.V10R1M0.TWSIN.NONPSU, // UNIT=SYSDA,LIKE=ZWS.V10R1M0.TWSIN,DSORG=PS //SYSIN DD DUMMY //COPY5 EXEC PGM=IEBGENER //SYSPRINT DD SYSOUT=* //SYSUT1 DD DISP=SHR,DSN=ZWS.V10R1M0.TWSOU //SYSUT2 DD DISP=(NEW,CATLG),DSN=ZWS.V10R1M0.TWSOU.NONPSU, // UNIT=SYSDA,LIKE=ZWS.V10R1M0.TWSOU,DSORG=PS //SYSIN DD DUMMY //COPY6 EXEC PGM=IEBGENER //SYSPRINT DD SYSOUT=* //SYSUT1 DD DISP=SHR,DSN=ZWS.V10R1M0.OUCEV //SYSUT2 DD DISP=(NEW,CATLG),DSN=ZWS.V10R1M0.OUCEV.NONPSU, // UNIT=SYSDA,LIKE=ZWS.V10R1M0.OUCEV,DSORG=PS //SYSIN DD DUMMY //COPY7 EXEC PGM=IEBGENER //SYSPRINT DD SYSOUT=* //SYSUT1 DD DISP=SHR,DSN=ZWS.V10R1M0.MONDS //SYSUT2 DD DISP=(NEW,CATLG),DSN=ZWS.V10R1M0.MONDS.NONPSU, // UNIT=SYSDA,LIKE=ZWS.V10R1M0.MONDS,DSORG=PS //SYSIN DD DUMMY //* //* NEXT COPY ALL FILES TO A SINGLE BACKUP FILE //* //DUMPDSV EXEC PGM=ADRDSSU,REGION=6M,PARM='UTILMSG=YES' //SYSPRINT DD SYSOUT=* //SYSOUT DD SYSOUT=* //DASD DD DSNAME=TWSZ.DFDSS,DISP=(NEW,CATLG), // SPACE=(CYL,(200,200),RLSE),UNIT=SYSDA //SYSIN DD * DUMP DATASET(INCLUDE( - ZWS.V10R1M0.** - )) - OUTDD(DASD) - TOLERATE(ENQF) /*