zOs/JCL/DODCM
//A540769T JOB (WAK47392,0000,,3653),'TAG-PARSER ',MSGCLASS=T
//*
//*MAIN CLASS=PVS
//*
//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
// DD DISP=SHR,DSN=CMN.DIV.P0.A18Q.#002314.LLB 00090001
// DD DISP=SHR,DSN=PCL.U0000.E0.RZ1AKT.PROM.@008.LLB 00100001
// DD DISP=SHR,DSN=PCL.U0000.E0.RZ1AKT.PROM.@008.LLG 00110000
// DD DISP=SHR,DSN=PCL.U0000.S0.RZ1AKT.PROM.@008.LLB 00120000
// DD DISP=SHR,DSN=PCL.U0000.S0.RZ1AKT.PROM.@008.LLG 00130000
// DD DISP=SHR,DSN=PCL.U0000.P0.RZ1AKT.PERM.@008.LLB 00140000
// DD DISP=SHR,DSN=PCL.U0000.P0.RZ1AKT.PERM.@008.LLG 00150000
//USEDPROC JCLLIB ORDER=(IOA.U0000.T0.RZ1I.PROCLIB, 00160000
// ID.RZ1.X0.PROC) 00170000
//*
//*-------------------------------------------------------------------
//* delete datasets
//*-------------------------------------------------------------------
//E00 EXEC PGM=IEFBR14
//P0 DD DISP=(MOD,DELETE,DELETE),
// DSN=A540769.DODPVS.AA0000.FUENF.SECHS
//S0 DD DISP=(MOD,DELETE,DELETE),
// DSN=A540769.DODSECM.AA0000.FUENF.SECHS
//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
//*-------------------------------------------------------------------
//S01 EXEC PGM=DO7010,PARM=',trace,'
//SYSUDUMP DD SYSOUT=*
//PLIDUMP DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//DDMSG DD SYSOUT=*
//DDLOG DD SYSOUT=*
//DDTRACE DD SYSOUT=*
//*DD7000 DD SYSOUT=*,DCB=(RECFM=FBA,LRECL=80)
//DD7000 DD DSN=&&DD7000,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=(RECFM=FB,LRECL=80),
// SPACE=(80,(100,100)),AVGREC=U
//DDPARM DD DISP=SHR,DSN=A540769.PAR.PAR(DOD)
//DDIN00 DD DISP=SHR,DSN=A540769.PAR.PAR(DOD1F00)
//* 00230000
//S02 EXEC PROC=IDS0011X, 00250011
// KENNUNG='d<', 00260011
// DSNAME=A540769.PAR.PAR 00270011
//E01.DDINST DD DISP=OLD,DSN=&&DD7000 00280011
//E01.DDIN01 DD DISP=SHR,DSN=A540769.PAR.PAR 00280011
//*------------------------------------- 00500000
//*- KONTROLLE - 00510000
//*------------------------------------- 00520000
// IF (S02.PROC#OK.RUN=TRUE) THEN 00530000
//ALLES#IO EXEC PGM=IEFBR14 00540000
// ELSE 00550000
//FAILED EXEC PGM=IEFBR14 00560000
// ENDIF 00570000
//* 00580000