zOs/JCL/ERRORDOD
//YERRODOC JOB (PEK27456,0240,,9904),TSOJOB,MSGCLASS=T, 00010000
// NOTIFY=&SYSUID.,TIME=1440 00020000
//*MAIN CLASS=LOG 00030000
//* errordoc for object Compare 00040000
//* cat files blocksize --> like ??? 00050000
//* 00060000
//**********************************************************************00070000
//* VARIABLENDEFINITION: FEHLERNUMMER UND DATUM ANPASSEN|| 00080000
//**********************************************************************00090000
//SETVAR SET ID=187 DBA FEHLERNR 00100002
//SETVAR SET DAT=D090908 DATUM 00110000
//SETVAR SET DBXPRE=DSN.DBX ddl/cdl/etc mbr 00120000
//SETVAR SET CATMBR=WK92301A ddl/cdl/etc mbr 00130001
//SETVAR SET MASK=A540769.TX.CASE MASK LIBRARY 00140000
//**********************************************************************00150000
//* VARIABLENDEFINITION FUER OUTPUT 00160000
//* OUTPUT MUSS ZUERST AUS DEM EJ EXPORTIERT WERDEN|| 00170000
//**********************************************************************00180000
//SETVAR SET OCOM=&SYSUID..IBM.ER&ID..COM OUTPUT COMPARE 00190000
//SETVAR SET OCLO=&SYSUID..IBM.ER&ID..CLO OUTPUT IMPORT 00200000
//**********************************************************************00210000
//* VARIABLENDEFINITION 00220000
//**********************************************************************00230000
//SETVAR SET MASKC=&MASK(WK923MAS) MASK COMPARE 00240000
//SETVAR SET IGNOR=&MASK(DBAEMPTY) ignore 00250000
//SETVAR SET MASCL=&MASK(DBAEMPTY) MASK IMPORT 00260000
//SETVAR SET SVRS=&DBXPRE..SRCCAT(&CATMBR) SOURCE DDL 00270000
//SETVAR SET TVRS=&DBXPRE..TRGCAT(&CATMBR) TARGET DDL 00280000
//SETVAR SET WSL=DSN.DBA.CLON.WSL 00290000
//SETVAR SET WS2=DSN.DBA.DBAF.WSL 00300000
//* 00310000
//**********************************************************************00320000
//* copy Prozeduren: löschen, allozieren und kopieren 00330000
//**********************************************************************00340000
//* vb seqential 00350000
//COPYVB PROC I=INPUTVERGESSEN,O=OUTPUTVERGESSEN 00360000
// IF RC <= 4 THEN 00370000
//DEL EXEC PGM=IEFBR14 00380000
//DEL DD DISP=(MOD,DELETE,DELETE),DSN=DSN.IBM.ER&ID..&DAT..&O 00390000
// ENDIF 00400000
// IF RC <= 4 THEN 00410000
//COPY EXEC PGM=IEBGENER 00420000
//SYSPRINT DD SYSOUT=* 00430000
//SYSIN DD DUMMY 00440000
//SYSUT1 DD DISP=SHR,DSN=DSN.DBA.ALLOC.TEXTVB 00450000
// DD DISP=MOD,DSN=&I 00460000
//SYSUT2 DD DISP=(NEW,CATLG,CATLG),DSN=DSN.IBM.ER&ID..&DAT..&O, 00470000
// MGMTCLAS=COM#A092, 00480000
// SPACE=(CYL,(5,2),RLSE), 00490000
// DCB=(DSORG=PS,RECFM=VB,LRECL=16384,BLKSIZE=32000) 00500000
// ENDIF 00510000
//COPYVB PEND 00520000
//* fb sequential 00530000
//COPYFB PROC I=INPUTVERGESSEN,O=OUTPUTVERGESSEN 00540000
// IF RC <= 4 THEN 00550000
//DEL EXEC PGM=IEFBR14 00560000
//DEL DD DISP=(MOD,DELETE,DELETE),DSN=DSN.IBM.ER&ID..&DAT..&O 00570000
// ENDIF 00580000
// IF RC <= 4 THEN 00590000
//COPY EXEC PGM=IEBGENER 00600000
//SYSPRINT DD SYSOUT=* 00610000
//SYSIN DD DUMMY 00620000
//SYSUT1 DD DISP=OLD,DSN=DSN.DBA.ALLOC.TEXTFB 00630000
// DD DISP=MOD,DSN=&I 00640000
//SYSUT2 DD DISP=(NEW,CATLG,CATLG),DSN=DSN.IBM.ER&ID..&DAT..&O, 00650000
// MGMTCLAS=COM#A092, 00660000
// SPACE=(CYL,(5,2),RLSE), 00670000
// DCB=(DSORG=PS,RECFM=FB,LRECL=80,BLKSIZE=27920) 00680000
// ENDIF 00690000
//COPYFB PEND 00700000
//* vb PDS 00710000
//COPYPOVB PROC I=INPUTVERGESSEN,O=OUTPUTVERGESSEN 00720000
// IF RC <= 4 THEN 00730000
//DEL EXEC PGM=IEFBR14 00740000
//DEL DD DISP=(MOD,DELETE,DELETE),DSN=DSN.IBM.ER&ID..&DAT..&O 00750000
// ENDIF 00760000
// IF RC <= 4 THEN 00770000
//COPY EXEC PGM=IEBCOPY 00780000
//SYSPRINT DD SYSOUT=* 00790000
//I1 DD DISP=MOD,DSN=&I 00800000
//O1 DD DISP=(NEW,CATLG,CATLG),DSN=DSN.IBM.ER&ID..&DAT..&O, 00810000
// MGMTCLAS=COM#A092, 00820000
// SPACE=(CYL,(5,2,50),RLSE), 00830000
// DCB=(DSORG=PO,RECFM=VB,LRECL=2048) 00840000
// ENDIF 00850000
//COPYPOVB PEND 00860000
//* fb PDS 00870000
//COPYPOFB PROC I=INPUTVERGESSEN,O=OUTPUTVERGESSEN 00880000
// IF RC <= 4 THEN 00890000
//DEL EXEC PGM=IEFBR14 00900000
//DEL DD DISP=(MOD,DELETE,DELETE),DSN=DSN.IBM.ER&ID..&DAT..&O 00910000
// ENDIF 00920000
// IF RC <= 4 THEN 00930000
//COPY EXEC PGM=IEBCOPY 00940000
//SYSPRINT DD SYSOUT=* 00950000
//I1 DD DISP=MOD,DSN=&I 00960000
//O1 DD DISP=(NEW,CATLG,CATLG),DSN=DSN.IBM.ER&ID..&DAT..&O, 00970000
// MGMTCLAS=COM#A092, 00980000
// SPACE=(CYL,(5,2,50),RLSE), 00990000
// DCB=(DSORG=PO,RECFM=FB,LRECL=80) 01000000
// ENDIF 01010000
//COPYPOFB PEND 01020000
//**********************************************************************01030000
//* kopieren 01040000
//**********************************************************************01050000
//* compare job datasets kopieren 01060000
//CMPJES EXEC PROC=COPYVB,I=&OCOM,O=OUTPUT.COMPARE 01070000
//CMPMASK EXEC PROC=COPYFB,I=&MASKC,O=MASK.COMPARE 01080000
//CMPIGNO EXEC PROC=COPYFB,I=&IGNOR,O=IGNORE 01090000
//SRCVRS EXEC PROC=COPYVB,I=&SVRS,O=SOURCE.VERSION 01100000
//TRGVRS EXEC PROC=COPYVB,I=&TVRS,O=TARGET.VERSION 01110000
//WSL EXEC PROC=COPYPOFB,I=&WSL,O=WSL 01120000
//COPY.SYSIN DD * 01130000
COPY O=O1,I=((I1,R)) 01140000
SELECT M=C0005967 01150000
//*DL EXEC PROC=COPYVB,I=&CDL,O=CDL 01160000
//*CD2 EXEC PROC=COPYVB,I=&CD2,O=CD2 01170000
//* import job datasets kopieren 01180000
//CLOJES EXEC PROC=COPYVB,I=&OCLO,O=OUTPUT.CLONE 01190000
//CLOMASK EXEC PROC=COPYFB,I=&MASCL,O=MASK.CLONE 01200000
//WSL EXEC PROC=COPYPOFB,I=&WSL,O=WSL 01210000
//COPY.SYSIN DD * 01220000
COPY O=O1,I=((I1,R)) 01230000
SELECT M=WK92301Q 01240000
//WS2 EXEC PROC=COPYPOFB,I=&WS2,O=WSLTO 01250000
//COPY.SYSIN DD * 01260000
COPY O=O1,I=((I1,R)) 01270000
SELECT M=WK92301C 01280000
//* run job datasets kopieren 01290000