zOs/JCL/ERRORDOC
//YERRODOC JOB (PEK27456,0240,,9904),TSOJOB,MSGCLASS=T, 00010099
// NOTIFY=&SYSUID.,TIME=1440 00020099
//*MAIN CLASS=LOG 00030099
//* cat files blocksize --> like ??? 00040099
//* 00050099
//**********************************************************************00060099
//* VARIABLENDEFINITION: FEHLERNUMMER UND DATUM ANPASSEN|| 00070099
//**********************************************************************00080099
//SETVAR SET ID=259 DBA FEHLERNR 00090099
//SETVAR SET DAT=D110920 DATUM 00100099
//SETVAR SET CHANGE=C0008501 00110099
//SETVAR SET CHATIM=AN094236 00120099
//SETVAR SET DBXPRE=DSN.DBQ PRÄFIX DBX 00130099
//SETVAR SET DBXPRE=DSN.DBX PRÄFIX DBX 00140099
//SETVAR SET DBXMBR=WK999040 ddl/cdl/etc mbr 00150099
//SETVAR SET DBXMB2=NI021390VERGESSEN ddl/cdl/etc mbr 00160099
//SETVAR SET MASK=DSN.TX.CASE MASK LIBRARY 00170099
//SETVAR SET MASK=DSN.DBX.MASK MASK LIBRARY 00180099
//SETVAR SET WORK=DSN.DBA.DBTF prefix work 00190099
//SETVAR SET RUNJ=DSN.DBA.DBTF.RUN.JCL pds for runJcl 00200099
//**********************************************************************00210099
//* VARIABLENDEFINITION FUER OUTPUT 00220099
//* OUTPUT MUSS ZUERST AUS DEM EJ EXPORTIERT WERDEN|| 00230099
//**********************************************************************00240099
//SETVAR SET OCOM=&SYSUID..IBM.ER&ID..COM OUTPUT COMPARE 00250099
//SETVAR SET OIMP=&SYSUID..IBM.ER&ID..IMP OUTPUT IMPORT 00260099
//SETVAR SET OANA=&SYSUID..IBM.ER&ID..ANA OUTPUT ANALYZE 00270099
//SETVAR SET ORUN=&SYSUID..IBM.ER&ID..RUN OUTPUT RUN 00280099
//SETVAR SET OLOA=&SYSUID..IBM.ER&ID..LOA OUTPUT RUN 00290099
//**********************************************************************00300099
//* VARIABLENDEFINITION 00310099
//**********************************************************************00320099
//SETVAR SET MASKC=&MASK(WK974MSK) MASK COMPARE 00330099
//SETVAR SET MASKC=&MASK(DBTWAL4) mask 00340099
//SETVAR SET MASKC=&MASK(PROTDBTF) MASK COMPARE 00350099
//SETVAR SET IGNOR=&MASK(DBAEMPTY) ignore 00360099
//SETVAR SET IGNOR=&MASK(IGNORE) ignore 00370099
//SETVAR SET MASKI=&MASK(TWALDQ0G) MASK IMPORT 00380099
//SETVAR SET MASKI=&MASK(WK974MSI) MASK COMPARE 00390099
//SETVAR SET MASKI=&MASK(DBAEMPTY) MASK IMPORT 00400099
//SETVAR SET MASKI=&MASK(DBTFDBTF) MASK IMPORT 00410099
//SETVAR SET CDL=&DBXPRE..CDL(&DBXMBR) CDL MEMBER 00420099
//SETVAR SET CD2=&DBXPRE..CDL(PC010260) CDL MEMBER 00430099
//SETVAR SET SDDL=&DBXPRE..SRCDDL(&DBXMBR) SOURCE DDL 00440099
//SETVAR SET SVRS=&DBXPRE..SRCCAT(&DBXMBR) SOURCE DDL 00450099
//SETVAR SET TDDL=&DBXPRE..TRGDDL(&DBXMBR) TARGET DDL 00460099
//SETVAR SET TVRS=&DBXPRE..TRGCAT(&DBXMBR) TARGET DDL 00470099
//*SETVAR SET OVER=&MASK(OVERRIDE) OVERRIDE 00480099
//SETVAR SET SHRV=&WORK..&CHANGE..&CHATIM..SHV 00490099
//SETVAR SET CHAN=&WORK..&CHANGE..&CHATIM..CHG 00500099
//SETVAR SET WSL=&WORK..ANA.WSL 00510099
//SETVAR SET IFF=&WORK..&CHANGE..&CHATIM..IFF 00520099
//* 00530099
//**********************************************************************00540099
//* copy Prozeduren: löschen, allozieren und kopieren 00550099
//**********************************************************************00560099
//* vb seqential 00570099
//COPYVB PROC I=INPUTVERGESSEN,O=OUTPUTVERGESSEN 00580099
// IF RC <= 4 THEN 00590099
//DEL EXEC PGM=IEFBR14 00600099
//DEL DD DISP=(MOD,DELETE,DELETE),DSN=DSN.IBM.ER&ID..&DAT..&O 00610099
// ENDIF 00620099
// IF RC <= 4 THEN 00630099
//COPY EXEC PGM=IEBGENER 00640099
//SYSPRINT DD SYSOUT=* 00650099
//SYSIN DD DUMMY 00660099
//SYSUT1 DD DISP=SHR,DSN=DSN.DBA.ALLOC.TEXTVB 00670099
// DD DISP=MOD,DSN=&I 00680099
//SYSUT2 DD DISP=(NEW,CATLG,CATLG),DSN=DSN.IBM.ER&ID..&DAT..&O, 00690099
// MGMTCLAS=COM#A092, 00700099
// SPACE=(CYL,(5,2),RLSE), 00710099
// DCB=(DSORG=PS,RECFM=VB,LRECL=16384,BLKSIZE=32000) 00720099
// ENDIF 00730099
//COPYVB PEND 00740099
//* fb sequential 00750099
//COPYFB PROC I=INPUTVERGESSEN,O=OUTPUTVERGESSEN 00760099
// IF RC <= 4 THEN 00770099
//DEL EXEC PGM=IEFBR14 00780099
//DEL DD DISP=(MOD,DELETE,DELETE),DSN=DSN.IBM.ER&ID..&DAT..&O 00790099
// ENDIF 00800099
// IF RC <= 4 THEN 00810099
//COPY EXEC PGM=IEBGENER 00820099
//SYSPRINT DD SYSOUT=* 00830099
//SYSIN DD DUMMY 00840099
//SYSUT1 DD DISP=OLD,DSN=DSN.DBA.ALLOC.TEXTFB 00850099
// DD DISP=MOD,DSN=&I 00860099
//SYSUT2 DD DISP=(NEW,CATLG,CATLG),DSN=DSN.IBM.ER&ID..&DAT..&O, 00870099
// MGMTCLAS=COM#A092, 00880099
// SPACE=(CYL,(5,2),RLSE), 00890099
// DCB=(DSORG=PS,RECFM=FB,LRECL=80,BLKSIZE=27920) 00900099
// ENDIF 00910099
//COPYFB PEND 00920099
//* vb PDS 00930099
//COPYPOVB PROC I=INPUTVERGESSEN,O=OUTPUTVERGESSEN 00940099
// IF RC <= 4 THEN 00950099
//DEL EXEC PGM=IEFBR14 00960099
//DEL DD DISP=(MOD,DELETE,DELETE),DSN=DSN.IBM.ER&ID..&DAT..&O 00970099
// ENDIF 00980099
// IF RC <= 4 THEN 00990099
//COPY EXEC PGM=IEBCOPY 01000099
//SYSPRINT DD SYSOUT=* 01010099
//I1 DD DISP=MOD,DSN=&I 01020099
//O1 DD DISP=(NEW,CATLG,CATLG),DSN=DSN.IBM.ER&ID..&DAT..&O, 01030099
// MGMTCLAS=COM#A092, 01040099
// SPACE=(CYL,(5,2,50),RLSE), 01050099
// DCB=(DSORG=PO,RECFM=VB,LRECL=2048) 01060099
// ENDIF 01070099
//COPYPOVB PEND 01080099
//* fb PDS 01090099
//COPYPOFB PROC I=INPUTVERGESSEN,O=OUTPUTVERGESSEN 01100099
// IF RC <= 4 THEN 01110099
//DEL EXEC PGM=IEFBR14 01120099
//DEL DD DISP=(MOD,DELETE,DELETE),DSN=DSN.IBM.ER&ID..&DAT..&O 01130099
// ENDIF 01140099
// IF RC <= 4 THEN 01150099
//COPY EXEC PGM=IEBCOPY 01160099
//SYSPRINT DD SYSOUT=* 01170099
//I1 DD DISP=MOD,DSN=&I 01180099
//O1 DD DISP=(NEW,CATLG,CATLG),DSN=DSN.IBM.ER&ID..&DAT..&O, 01190099
// MGMTCLAS=COM#A092, 01200099
// SPACE=(CYL,(5,2,50),RLSE), 01210099
// DCB=(DSORG=PO,RECFM=FB,LRECL=80) 01220099
// ENDIF 01230099
//COPYPOFB PEND 01240099
//**********************************************************************01250099
//* kopieren 01260099
//**********************************************************************01270099
//* compare job datasets kopieren 01280099
//CMPJES EXEC PROC=COPYVB,I=&OCOM,O=OUTPUT.COMPARE 01290099
//CMPMASK EXEC PROC=COPYFB,I=&MASKC,O=MASK.COMPARE 01300099
//CMPIGNO EXEC PROC=COPYFB,I=&IGNOR,O=IGNORE 01310099
//*CMPOVER EXEC PROC=COPYFB,I=&OVER,O=OVERRIDE 01320099
//SRCDDL EXEC PROC=COPYFB,I=&SDDL,O=SOURCE.DDL 01330099
//SRCVRS EXEC PROC=COPYVB,I=&SVRS,O=SOURCE.VERSION 01340099
//TRGDDL EXEC PROC=COPYFB,I=&TDDL,O=TARGET.DDL 01350099
//TRGVRS EXEC PROC=COPYVB,I=&TVRS,O=TARGET.VERSION 01360099
//CDL EXEC PROC=COPYVB,I=&CDL,O=CDL 01370099
//CD2 EXEC PROC=COPYVB,I=&CD2,O=CD2 01380099
//* import job datasets kopieren 01390099
//IMPJES EXEC PROC=COPYVB,I=&OIMP,O=OUTPUT.IMPORT 01400099
//IMPMASK EXEC PROC=COPYFB,I=&MASKI,O=MASK.IMPORT 01410099
//* analyze job datasets kopieren 01420099
//*NA2 EXEC PROC=COPYVB,I=A540769.IBM.ER259.ANA.EXDLTA.VEROUT, 01430099
//* O=ANA.EXDLTA.VEROUT 01440099
//*NA3 EXEC PROC=COPYVB,I=A540769.IBM.ER259.ANA.GNSQL2.CAT, 01450099
//* O=ANA.GNSQL2.CAT 01460099
//ANAJES EXEC PROC=COPYVB,I=&OANA,O=OUTPUT.ANALYZE 01470099
//** ANAJESNO EXEC PROC=COPYVB,I=&OANA.NOVA,O=OUTPUT.ANANOVA 01480099
//CHANGES EXEC PROC=COPYVB,I=&CHAN,O=CHANGES 01490099
//IFF EXEC PROC=COPYPOVB,I=&IFF,O=IFF 01500099
//COPY.SYSIN DD * 01510099
COPY O=O1,I=((I1,R)) 01520099
//SHRVARS EXEC PROC=COPYPOFB,I=&SHRV,O=SHRVARS 01530099
//COPY.SYSIN DD * 01540099
COPY O=O1,I=((I1,R)) 01550099
//RUNJCL EXEC PROC=COPYPOFB,I=&RUNJ,O=RUNJCL 01560099
//COPY.SYSIN DD * 01570099
COPY O=O1,I=((I1,R)) 01580099
SELECT M=E0008501 01590099
//WSL EXEC PROC=COPYPOFB,I=&WSL,O=WSL 01600099
//COPY.SYSIN DD * 01610099
COPY O=O1,I=((I1,R)) 01620099
SELECT M=C0008501 01630099
//RUNJES EXEC PROC=COPYVB,I=&ORUN,O=OUTPUT.RUN 01640099
//*RUNJES1 EXEC PROC=COPYVB,I=&ORUN.1,O=OUTPUT.RUN1 01650099
//*UNJES2 EXEC PROC=COPYVB,I=&ORUN.2,O=OUTPUT.RUN2 01660099
//*RUNLOA EXEC PROC=COPYVB,I=&OLOA,O=OUTPUT.LOA 01670099