zOs/JCL/ERRORDOE
//YERRODOC JOB (PEK27456,0240,,9904),TSOJOB,MSGCLASS=T, 00010000
// NOTIFY=&SYSUID.,TIME=1440 00020000
//*MAIN CLASS=LOG 00030000
//* cat files blocksize --> like ??? 00040000
//* 00050000
//****** ohne vorkonkatinierte texte *********************************00060000
//* VARIABLENDEFINITION: FEHLERNUMMER UND DATUM ANPASSEN|| 00070000
//**********************************************************************00080000
//SETVAR SET ID=197 DBA FEHLERNR 00090000
//SETVAR SET DAT=D091112 DATUM 00100000
//SETVAR SET CHANGE=C0006306 00110000
//SETVAR SET CHATIM=AN175812 00120000
//SETVAR SET DBXPRE=DSN.DBX PRÄFIX DBX 00130000
//SETVAR SET DBQPRE=DSN.DBQ PRÄFIX DBX 00140000
//SETVAR SET DBXMBR=PC220011 ddl/cdl/etc mbr 00150000
//SETVAR SET DBXMB2=WK910011VERGESSEN ddl/cdl/etc mbr 00160000
//SETVAR SET MASK=A540769.TX.CASE MASK LIBRARY 00170000
//SETVAR SET MASK=DSN.DBX.MASK MASK LIBRARY 00180000
//SETVAR SET WORK=DSN.DBA.DBAF prefix work 00190000
//SETVAR SET RUNJ=DSN.DBA.DBAF.RUN.JCL pds for runJcl 00200000
//**********************************************************************00210000
//* VARIABLENDEFINITION FUER OUTPUT 00220000
//* OUTPUT MUSS ZUERST AUS DEM EJ EXPORTIERT WERDEN|| 00230000
//**********************************************************************00240000
//SETVAR SET OCOM=&SYSUID..IBM.ER&ID..COM OUTPUT COMPARE 00250000
//SETVAR SET OIMP=&SYSUID..IBM.ER&ID..IMP OUTPUT IMPORT 00260000
//SETVAR SET OANA=&SYSUID..IBM.ER&ID..ANA OUTPUT ANALYZE 00270000
//SETVAR SET ORUN=&SYSUID..IBM.ER&ID..RUN OUTPUT RUN 00280000
//**********************************************************************00290000
//* VARIABLENDEFINITION 00300000
//**********************************************************************00310000
//SETVAR SET MASKC=&MASK(DBTWAL) MASK COMPARE 00320000
//SETVAR SET MASKC=&MASK(PROTDBA2) MASK COMPARE 00330000
//SETVAR SET IGNOR=&MASK(DBAEMPTY) ignore 00340000
//SETVAR SET IGNOR=&MASK(IGNORE) ignore 00350000
//SETVAR SET MASKI=&MASK(DBAEMPTY) MASK IMPORT 00360000
//SETVAR SET MASKI=&MASK(DBAFDBAF) MASK IMPORT 00370000
//SETVAR SET CDL=&DBXPRE..CDL(&DBXMBR) CDL MEMBER 00380000
//*ETVAR SET CD2=&DBXPRE..CDL(&DBXMB2) CDL MEMBER 00390000
//SETVAR SET SDDL=&DBXPRE..SRCDDL(&DBXMBR) SOURCE DDL 00400000
//SETVAR SET SVRS=&DBXPRE..SRCCAT(&DBXMBR) SOURCE DDL 00410000
//SETVAR SET TDDL=&DBXPRE..TRGDDL(&DBXMBR) TARGET DDL 00420000
//SETVAR SET TVRS=&DBXPRE..TRGCAT(&DBXMBR) TARGET DDL 00430000
//*SETVAR SET OVER=&MASK(OVERRIDE) OVERRIDE 00440000
//SETVAR SET SHRV=&WORK..&CHANGE..&CHATIM..SHV 00450000
//SETVAR SET CHAN=&WORK..&CHANGE..&CHATIM..CHG 00460000
//SETVAR SET WSL=DSN.DBQ.DQ0G.ANA.WSL 00470000
//SETVAR SET WSL=&WORK..ANA.WSL 00480000
//SETVAR SET IFF=&WORK..&CHANGE..&CHATIM..IFF 00490000
//* 00500000
//**********************************************************************00510000
//* copy Prozeduren: löschen, allozieren und kopieren 00520000
//**********************************************************************00530000
//* vb seqential 00540000
//COPYVB PROC I=INPUTVERGESSEN,O=OUTPUTVERGESSEN 00550000
// IF RC <= 4 THEN 00560000
//DEL EXEC PGM=IEFBR14 00570000
//DEL DD DISP=(MOD,DELETE,DELETE),DSN=DSN.IBM.ER&ID..&DAT..&O 00580000
// ENDIF 00590000
// IF RC <= 4 THEN 00600000
//COPY EXEC PGM=IEBGENER 00610000
//SYSPRINT DD SYSOUT=* 00620000
//SYSIN DD DUMMY 00630000
//*YSUT1 DD DISP=SHR,DSN=DSN.DBA.ALLOC.TEXTVB 00640000
//SYSUT1 DD DISP=MOD,DSN=&I 00650000
//SYSUT2 DD DISP=(NEW,CATLG,CATLG),DSN=DSN.IBM.ER&ID..&DAT..&O, 00660000
// MGMTCLAS=COM#A092, 00670000
// SPACE=(CYL,(5,2),RLSE), 00680000
// DCB=(DSORG=PS,RECFM=VB,LRECL=16384,BLKSIZE=32000) 00690000
// ENDIF 00700000
//COPYVB PEND 00710000
//* fb sequential 00720000
//COPYFB PROC I=INPUTVERGESSEN,O=OUTPUTVERGESSEN 00730000
// IF RC <= 4 THEN 00740000
//DEL EXEC PGM=IEFBR14 00750000
//DEL DD DISP=(MOD,DELETE,DELETE),DSN=DSN.IBM.ER&ID..&DAT..&O 00760000
// ENDIF 00770000
// IF RC <= 4 THEN 00780000
//COPY EXEC PGM=IEBGENER 00790000
//SYSPRINT DD SYSOUT=* 00800000
//SYSIN DD DUMMY 00810000
//*YSUT1 DD DISP=OLD,DSN=DSN.DBA.ALLOC.TEXTFB 00820000
//SYSUT1 DD DISP=MOD,DSN=&I 00830000
//SYSUT2 DD DISP=(NEW,CATLG,CATLG),DSN=DSN.IBM.ER&ID..&DAT..&O, 00840000
// MGMTCLAS=COM#A092, 00850000
// SPACE=(CYL,(5,2),RLSE), 00860000
// DCB=(DSORG=PS,RECFM=FB,LRECL=80,BLKSIZE=27920) 00870000
// ENDIF 00880000
//COPYFB PEND 00890000
//* vb PDS 00900000
//COPYPOVB PROC I=INPUTVERGESSEN,O=OUTPUTVERGESSEN 00910000
// IF RC <= 4 THEN 00920000
//DEL EXEC PGM=IEFBR14 00930000
//DEL DD DISP=(MOD,DELETE,DELETE),DSN=DSN.IBM.ER&ID..&DAT..&O 00940000
// ENDIF 00950000
// IF RC <= 4 THEN 00960000
//COPY EXEC PGM=IEBCOPY 00970000
//SYSPRINT DD SYSOUT=* 00980000
//I1 DD DISP=MOD,DSN=&I 00990000
//O1 DD DISP=(NEW,CATLG,CATLG),DSN=DSN.IBM.ER&ID..&DAT..&O, 01000000
// MGMTCLAS=COM#A092, 01010000
// SPACE=(CYL,(5,2,50),RLSE), 01020000
// DCB=(DSORG=PO,RECFM=VB,LRECL=2048) 01030000
// ENDIF 01040000
//COPYPOVB PEND 01050000
//* fb PDS 01060000
//COPYPOFB PROC I=INPUTVERGESSEN,O=OUTPUTVERGESSEN 01070000
// IF RC <= 4 THEN 01080000
//DEL EXEC PGM=IEFBR14 01090000
//DEL DD DISP=(MOD,DELETE,DELETE),DSN=DSN.IBM.ER&ID..&DAT..&O 01100000
// ENDIF 01110000
// IF RC <= 4 THEN 01120000
//COPY EXEC PGM=IEBCOPY 01130000
//SYSPRINT DD SYSOUT=* 01140000
//I1 DD DISP=MOD,DSN=&I 01150000
//O1 DD DISP=(NEW,CATLG,CATLG),DSN=DSN.IBM.ER&ID..&DAT..&O, 01160000
// MGMTCLAS=COM#A092, 01170000
// SPACE=(CYL,(5,2,50),RLSE), 01180000
// DCB=(DSORG=PO,RECFM=FB,LRECL=80) 01190000
// ENDIF 01200000
//COPYPOFB PEND 01210000
//**********************************************************************01220000
//* kopieren 01230000
//**********************************************************************01240000
//* compare job datasets kopieren 01250000
//CMPJES EXEC PROC=COPYVB,I=&OCOM,O=OUTPUT.COMPARE 01260000
//CMPMASK EXEC PROC=COPYFB,I=&MASKC,O=MASK.COMPARE 01270000
//CMPIGNO EXEC PROC=COPYFB,I=&IGNOR,O=IGNORE 01280000
//*CMPOVER EXEC PROC=COPYFB,I=&OVER,O=OVERRIDE 01290000
//SRCDDL EXEC PROC=COPYFB,I=&SDDL,O=SOURCE.DDL 01300000
//SRCVRS EXEC PROC=COPYVB,I=&SVRS,O=SOURCE.VERSION 01310000
//TRGDDL EXEC PROC=COPYFB,I=&TDDL,O=TARGET.DDL 01320000
//TRGVRS EXEC PROC=COPYVB,I=&TVRS,O=TARGET.VERSION 01330000
//CDL EXEC PROC=COPYVB,I=&CDL,O=CDL 01340000
//*CD2 EXEC PROC=COPYVB,I=&CD2,O=CD2 01350000
//* import job datasets kopieren 01360000
//IMPJES EXEC PROC=COPYVB,I=&OIMP,O=OUTPUT.IMPORT 01370000
//IMPMASK EXEC PROC=COPYFB,I=&MASKI,O=MASK.IMPORT 01380000
//* analyze job datasets kopieren 01390000
//ANAJES EXEC PROC=COPYVB,I=&OANA,O=OUTPUT.ANALYZE 01400000
//** ANAJESNO EXEC PROC=COPYVB,I=&OANA.NOVA,O=OUTPUT.ANANOVA 01410000
//CHANGES EXEC PROC=COPYVB,I=&CHAN,O=CHANGES 01420000
//IFF EXEC PROC=COPYPOVB,I=&IFF,O=IFF 01430000
//COPY.SYSIN DD * 01440000
COPY O=O1,I=((I1,R)) 01450000
//SHRVARS EXEC PROC=COPYPOFB,I=&SHRV,O=SHRVARS 01460000
//COPY.SYSIN DD * 01470000
COPY O=O1,I=((I1,R)) 01480000
//RUNJCL EXEC PROC=COPYPOFB,I=&RUNJ,O=RUNJCL 01490000
//COPY.SYSIN DD * 01500000
COPY O=O1,I=((I1,R)) 01510000
SELECT M=E0006306 01520000
//WSL EXEC PROC=COPYPOFB,I=&WSL,O=WSL 01530000
//COPY.SYSIN DD * 01540000
COPY O=O1,I=((I1,R)) 01550000
SELECT M=C0006306 01560000
//* run job datasets kopieren 01570000
//RUNJES EXEC PROC=COPYVB,I=&ORUN,O=OUTPUT.RUN 01580000