zOs/JCL/ERRORDOW
//YERRODOC JOB (PEK27456,0240,,9904),TSOJOB,MSGCLASS=T, 00010008
// NOTIFY=&SYSUID.,TIME=1440 00020008
//*MAIN CLASS=LOG 00030008
//* cat files blocksize --> like ??? 00040008
//* 00050008
//**********************************************************************00060008
//* VARIABLENDEFINITION: FEHLERNUMMER UND DATUM ANPASSEN|| 00070008
//**********************************************************************00080008
//SETVAR SET ID=251 DBA FEHLERNR 00090008
//SETVAR SET DAT=D110609 DATUM 00100008
//SETVAR SET WSL=WK98401Q DATUM 00110008
//SETVAR SET WSLL=DSN.DBA.CLON.WSL(&WSL) DATUM 00120008
//SETVAR SET CHANGE=C00113XX 00130008
//SETVAR SET CHATIM=AN1424XX 00140008
//SETVAR SET DBXPRE=DSN.DBQ PRÄFIX DBX 00150008
//SETVAR SET DBXPRE=DSN.DBX PRÄFIX DBX 00160008
//SETVAR SET DBXMBR=WK984010 ddl/cdl/etc mbr 00170008
//SETVAR SET DBXMB2=NI021390VERGESSEN ddl/cdl/etc mbr 00180008
//SETVAR SET MASK=DSN.DBX.MASK MASK LIBRARY 00190008
//SETVAR SET MASK=A540769.TX.CASE MASK LIBRARY 00200008
//SETVAR SET PRE=DSN.DBA prefix work 00210008
//SETVAR SET WORK=&PRE..DBAF prefix work 00220008
//SETVAR SET RUNJ=DSN.DBA.DBAF.RUN.JCL pds for runJcl 00230008
//**********************************************************************00240008
//* VARIABLENDEFINITION FUER OUTPUT 00250008
//* OUTPUT MUSS ZUERST AUS DEM EJ EXPORTIERT WERDEN|| 00260008
//**********************************************************************00270008
//SETVAR SET OCOM=&SYSUID..IBM.ER&ID..COM OUTPUT COMPARE 00280008
//SETVAR SET OIMP=&SYSUID..IBM.ER&ID..IMP OUTPUT IMPORT 00290008
//SETVAR SET OANA=&SYSUID..IBM.ER&ID..ANA OUTPUT ANALYZE 00300008
//SETVAR SET ORUN=&SYSUID..IBM.ER&ID..RUN OUTPUT RUN 00310008
//SETVAR SET OLOA=&SYSUID..IBM.ER&ID..LOA OUTPUT RUN 00320008
//**********************************************************************00330008
//* VARIABLENDEFINITION 00340008
//**********************************************************************00350008
//SETVAR SET MASKC=&MASK(PROTDBAF) MASK COMPARE 00360008
//SETVAR SET MASKC=&MASK(WK974MSK) MASK COMPARE 00370008
//SETVAR SET MASKC=&MASK(DBTWAL4) mask 00380008
//SETVAR SET IGNOR=&MASK(IGNORE) ignore 00390008
//SETVAR SET IGNOR=&MASK(WK983IGN) ignore 00400008
//SETVAR SET IGNOR=&MASK(DBAEMPTY) ignore 00410008
//SETVAR SET MASKI=&MASK(TWALDQ0G) MASK IMPORT 00420008
//SETVAR SET MASKI=&MASK(DBAFDBTF) MASK IMPORT 00430008
//SETVAR SET MASKI=&MASK(WK974MSI) MASK COMPARE 00440008
//SETVAR SET MASKI=&MASK(DBAEMPTY) MASK IMPORT 00450008
//SETVAR SET CDL=&DBXPRE..CDL(&DBXMBR) CDL MEMBER 00460008
//*ETVAR SET CD2=&DBXPRE..CDL(&DBXMB2) CDL MEMBER 00470008
//SETVAR SET SDDL=&DBXPRE..SRCDDL(&DBXMBR) SOURCE DDL 00480008
//SETVAR SET SVRS=&DBXPRE..SRCCAT(&DBXMBR) SOURCE DDL 00490008
//SETVAR SET TDDL=&DBXPRE..TRGDDL(&DBXMBR) TARGET DDL 00500008
//SETVAR SET TVRS=&DBXPRE..TRGCAT(&DBXMBR) TARGET DDL 00510008
//*SETVAR SET OVER=&MASK(OVERRIDE) OVERRIDE 00520008
//SETVAR SET SHRV=&PRE..&WSL..SHV 00530008
//SETVAR SET CHAN=&PRE..&WSL..CHG 00540008
//SETVAR SET IFF=&PRE..&WSL..IFF 00550008
//* 00560008
//**********************************************************************00570008
//* copy Prozeduren: löschen, allozieren und kopieren 00580008
//**********************************************************************00590008
//* vb seqential 00600008
//COPYVB PROC I=INPUTVERGESSEN,O=OUTPUTVERGESSEN 00610008
// IF RC <= 4 THEN 00620008
//DEL EXEC PGM=IEFBR14 00630008
//DEL DD DISP=(MOD,DELETE,DELETE),DSN=DSN.IBM.ER&ID..&DAT..&O 00640008
// ENDIF 00650008
// IF RC <= 4 THEN 00660008
//COPY EXEC PGM=IEBGENER 00670008
//SYSPRINT DD SYSOUT=* 00680008
//SYSIN DD DUMMY 00690008
//SYSUT1 DD DISP=SHR,DSN=DSN.DBA.ALLOC.TEXTVB 00700008
// DD DISP=MOD,DSN=&I 00710008
//SYSUT2 DD DISP=(NEW,CATLG,CATLG),DSN=DSN.IBM.ER&ID..&DAT..&O, 00720008
// MGMTCLAS=COM#A092, 00730008
// SPACE=(CYL,(5,2),RLSE), 00740008
// DCB=(DSORG=PS,RECFM=VB,LRECL=16384,BLKSIZE=32000) 00750008
// ENDIF 00760008
//COPYVB PEND 00770008
//* fb sequential 00780008
//COPYFB PROC I=INPUTVERGESSEN,O=OUTPUTVERGESSEN 00790008
// IF RC <= 4 THEN 00800008
//DEL EXEC PGM=IEFBR14 00810008
//DEL DD DISP=(MOD,DELETE,DELETE),DSN=DSN.IBM.ER&ID..&DAT..&O 00820008
// ENDIF 00830008
// IF RC <= 4 THEN 00840008
//COPY EXEC PGM=IEBGENER 00850008
//SYSPRINT DD SYSOUT=* 00860008
//SYSIN DD DUMMY 00870008
//SYSUT1 DD DISP=OLD,DSN=DSN.DBA.ALLOC.TEXTFB 00880008
// DD DISP=MOD,DSN=&I 00890008
//SYSUT2 DD DISP=(NEW,CATLG,CATLG),DSN=DSN.IBM.ER&ID..&DAT..&O, 00900008
// MGMTCLAS=COM#A092, 00910008
// SPACE=(CYL,(5,2),RLSE), 00920008
// DCB=(DSORG=PS,RECFM=FB,LRECL=80,BLKSIZE=27920) 00930008
// ENDIF 00940008
//COPYFB PEND 00950008
//* vb PDS 00960008
//COPYPOVB PROC I=INPUTVERGESSEN,O=OUTPUTVERGESSEN 00970008
// IF RC <= 4 THEN 00980008
//DEL EXEC PGM=IEFBR14 00990008
//DEL DD DISP=(MOD,DELETE,DELETE),DSN=DSN.IBM.ER&ID..&DAT..&O 01000008
// ENDIF 01010008
// IF RC <= 4 THEN 01020008
//COPY EXEC PGM=IEBCOPY 01030008
//SYSPRINT DD SYSOUT=* 01040008
//I1 DD DISP=MOD,DSN=&I 01050008
//O1 DD DISP=(NEW,CATLG,CATLG),DSN=DSN.IBM.ER&ID..&DAT..&O, 01060008
// MGMTCLAS=COM#A092, 01070008
// SPACE=(CYL,(5,2,50),RLSE), 01080008
// DCB=(DSORG=PO,RECFM=VB,LRECL=2048) 01090008
// ENDIF 01100008
//COPYPOVB PEND 01110008
//* fb PDS 01120008
//COPYPOFB PROC I=INPUTVERGESSEN,O=OUTPUTVERGESSEN 01130008
// IF RC <= 4 THEN 01140008
//DEL EXEC PGM=IEFBR14 01150008
//DEL DD DISP=(MOD,DELETE,DELETE),DSN=DSN.IBM.ER&ID..&DAT..&O 01160008
// ENDIF 01170008
// IF RC <= 4 THEN 01180008
//COPY EXEC PGM=IEBCOPY 01190008
//SYSPRINT DD SYSOUT=* 01200008
//I1 DD DISP=MOD,DSN=&I 01210008
//O1 DD DISP=(NEW,CATLG,CATLG),DSN=DSN.IBM.ER&ID..&DAT..&O, 01220008
// MGMTCLAS=COM#A092, 01230008
// SPACE=(CYL,(5,2,50),RLSE), 01240008
// DCB=(DSORG=PO,RECFM=FB,LRECL=80) 01250008
// ENDIF 01260008
//COPYPOFB PEND 01270008
//**********************************************************************01280008
//* kopieren 01290008
//**********************************************************************01300008
//* compare job datasets kopieren 01310008
//CMPJES EXEC PROC=COPYVB,I=&OCOM,O=OUTPUT.COMPARE 01320008
//CMPMASK EXEC PROC=COPYFB,I=&MASKC,O=MASK.COMPARE 01330008
//CMPIGNO EXEC PROC=COPYFB,I=&IGNOR,O=IGNORE 01340008
//*CMPOVER EXEC PROC=COPYFB,I=&OVER,O=OVERRIDE 01350008
//SRCDDL EXEC PROC=COPYFB,I=&SDDL,O=SOURCE.DDL 01360008
//SRCVRS EXEC PROC=COPYVB,I=&SVRS,O=SOURCE.VERSION 01370008
//TRGDDL EXEC PROC=COPYFB,I=&TDDL,O=TARGET.DDL 01380008
//TRGVRS EXEC PROC=COPYVB,I=&TVRS,O=TARGET.VERSION 01390008
//*CDL EXEC PROC=COPYVB,I=&CDL,O=CDL 01400008
//*D2 EXEC PROC=COPYVB,I=&CD2,O=CD2 01410008
//* import job datasets kopieren 01420008
//*IMPJES EXEC PROC=COPYVB,I=&OIMP,O=OUTPUT.IMPORT 01430008
//*IMPMASK EXEC PROC=COPYFB,I=&MASKI,O=MASK.IMPORT 01440008
//* analyze job datasets kopieren 01450008
//*ANAJES EXEC PROC=COPYVB,I=&OANA,O=OUTPUT.ANALYZE 01460008
//** ANAJESNO EXEC PROC=COPYVB,I=&OANA.NOVA,O=OUTPUT.ANANOVA 01470008
//CHANGES EXEC PROC=COPYVB,I=&CHAN,O=CHANGES 01480008
//*IFF EXEC PROC=COPYPOVB,I=&IFF,O=IFF 01490008
//*COPY.SYSIN DD * 01500008
//* COPY O=O1,I=((I1,R)) 01510008
//SHRVARS EXEC PROC=COPYPOFB,I=&SHRV,O=SHRVARS 01520008
//COPY.SYSIN DD * 01530008
COPY O=O1,I=((I1,R)) 01540008
//WSL EXEC PROC=COPYPOFB,I=&WSLL,O=WSL 01550008
//COPY.SYSIN DD * 01560008
COPY O=O1,I=((I1,R)) 01570008
SELECT M=WK98401Q 01580008
//RUNJES EXEC PROC=COPYVB,I=&ORUN,O=OUTPUT.RUN 01590008
//*RUNJES1 EXEC PROC=COPYVB,I=&ORUN.1,O=OUTPUT.RUN1 01600008
//*UNJES2 EXEC PROC=COPYVB,I=&ORUN.2,O=OUTPUT.RUN2 01610008
//*RUNLOA EXEC PROC=COPYVB,I=&OLOA,O=OUTPUT.LOA 01620008