zOs/JCL/DOD

//A540769X JOB (WAK47392,0000,,3653),'TAG-PARSER      ',MSGCLASS=T
//*
//*MAIN CLASS=CMNA
//*
//JOBLIB    DD DSN=CMN.DIV.P0.A18Q.#002267.LLB,DISP=SHR
//*         DD DSN=CMN.U0000.P0.RZ1AKT.BASE000.@008.LLB,DISP=SHR
//*         DD DSN=CMN.U0000.P0.RZ1AKT.BASE000.@008.LLG,DISP=SHR
//*
//*-------------------------------------------------------------------
//* delete datasets
//*-------------------------------------------------------------------
//E00     EXEC PGM=IEFBR14
//P0        DD DISP=(MOD,DELETE,DELETE),
//             DSN=A540769.DODPVS.TSTVERS.LLINR000.DDATUMMM.R
//S0        DD DISP=(MOD,DELETE,DELETE),
//             DSN=A540769.DODSMH.TSTVERS.LLINR000.DDATUMMM.R
//P1        DD DISP=(MOD,DELETE,DELETE),
//             DSN=A540769.DODPVS.L1230001.TST001
//S1        DD DISP=(MOD,DELETE,DELETE),
//             DSN=A540769.DODSECM.L1230001.TST001
//P2        DD DISP=(MOD,DELETE,DELETE),
//             DSN=A540769.DODPVS.L1230002.TST001
//S2        DD DISP=(MOD,DELETE,DELETE),
//             DSN=A540769.DODSECM.L1230002.TST001
//*-------------------------------------------------------------------
//* DOD TEST
//*-------------------------------------------------------------------
//        SET  DB2SYS=DBTF
//        SET  DODPARM=DOD.RZ1.X0.PARM
//P01     EXEC PGM=DO7010,
//             PARM='/&DB2SYS,NOTRACE,,5'
//DDPARM   DD  DSN=&DODPARM(DODCHAP0),DISP=SHR
//DOD000   DD  DSN=DOD.GP.POVTV11.LTL11000.D2004300.T1212000.R1,
//             DISP=SHR
//DD7000   DD  DSN=&&DD7000,
//             DISP=(NEW,PASS),
//             UNIT=VIO,
//             SPACE=(80,(100,100)),AVGREC=U,
//             DCB=(RECFM=FB,LRECL=80)
//SYSUDUMP DD  SYSOUT=*
//PLIDUMP  DD  SYSOUT=*
//SYSPRINT DD  SYSOUT=*
//DDMSG    DD  SYSOUT=*
//DDUUID   DD  SYSOUT=*
//DDTRACE  DD  SYSOUT=*
//
//
//E01     EXEC PGM=DO7010,PARM='TRAP(ON)/,Trace,4,'
//SYSUDUMP  DD SYSOUT=*
//PLIDUMP   DD SYSOUT=*
//SYSPRINT  DD SYSOUT=*
//DDMSG     DD SYSOUT=*
//DDUUID    DD SYSOUT=*
//DDTRACE   DD SYSOUT=*
//DD7000    DD SYSOUT=*,
//             DCB=(RECFM=FBA,LRECL=80)
//DDPARM   DD DISP=SHR,DSN=A540769.PAR.PAR(DOD)
//DOD000   DD DISP=SHR,DSN=A540769.PAR.PAR(DOD1F00)
//
//JCLNCC    DD DISP=(NEW,CATLG,CATLG),DSN=A540769.TST.JCLNCC
//JCLNCD    DD DISP=(NEW,CATLG,DELETE),DSN=A540769.TST.JCLNCD
//JCLNDC    DD DISP=(NEW,DELETE,CATLG),DSN=A540769.TST.JCLNDC
//JCLNDD    DD DISP=(NEW,DELETE,DELETE),DSN=A540769.TST.JCLNDD
//JCLOCC    DD DISP=(OLD,CATLG,CATLG),DSN=A540769.TST.JCLOCC
//JCLOCD    DD DISP=(OLD,CATLG,DELETE),DSN=A540769.TST.JCLOCD
//JCLODC    DD DISP=(OLD,DELETE,CATLG),DSN=A540769.TST.JCLODC
//JCLODD    DD DISP=(OLD,DELETE,DELETE),DSN=A540769.TST.JCLODD
//
//DDMSG     DD SYSOUT=*
//DDSRC     DD DISP=SHR,DSN=PVST.RZ1.T0.XML.INPUT(&MBR)
//OUTPUT    DD DISP=SHR,DSN=PVST.RZ1.T0.XML.OUTPUT(&MBR)
//
//OUTPUT    DD DSN=PVT.FT.TST.XMLTEST,
//             DISP=(NEW,CATLG,DELETE),
//             SPACE=(CYL,(10,01),RLSE),
//             DCB=(RECFM=VBA,LRECL=32756),
//             UNIT=DISK
//
//        SET MBR=W2
//E00     EXEC PGM=IEFBR14
//DYNNCC    DD DISP=(MOD,DELETE,DELETE),DSN=A540769.TST.DYNNCC
//DYNNCD    DD DISP=(MOD,DELETE,DELETE),DSN=A540769.TST.DYNNCD
//DYNNDC    DD DISP=(MOD,DELETE,DELETE),DSN=A540769.TST.DYNNDC
//DYNNDD    DD DISP=(MOD,DELETE,DELETE),DSN=A540769.TST.DYNNDD
//JCLNCC    DD DISP=(MOD,DELETE,DELETE),DSN=A540769.TST.JCLNCC
//JCLNCD    DD DISP=(MOD,DELETE,DELETE),DSN=A540769.TST.JCLNCD
//JCLNDC    DD DISP=(MOD,DELETE,DELETE),DSN=A540769.TST.JCLNDC
//JCLNDD    DD DISP=(MOD,DELETE,DELETE),DSN=A540769.TST.JCLNDD
//JCLOCC    DD DISP=(MOD,CATLG),DSN=A540769.TST.JCLOCC
//JCLOCD    DD DISP=(MOD,CATLG),DSN=A540769.TST.JCLOCD
//JCLODC    DD DISP=(MOD,CATLG),DSN=A540769.TST.JCLODC
//JCLODD    DD DISP=(MOD,CATLG),DSN=A540769.TST.JCLODD