//A540769W JOB (CP00,KE50),'DB2 REO', 00010000
// MSGCLASS=T,TIME=1440, 00020000
// NOTIFY=&SYSUID,REGION=0M,SCHENV=DB2 00030000
//*MAIN CLASS=LOG 00040000
// SET RZ=RZ2 00041018
// SET ZZ=RZ2 00041118
// SET DBSYS=DBOF 00041218
// SET PRE=DSN.ABLF.LOGE2.&RZ. 00041317
// SET PRP=&DBSYS..DBAA.ABLF.LOGE2 00041418
//* SET PRP=&PRE. rz4, dp4g ist verboten 00041517
//************************************* delete and allocate 00042007
//DEL EXEC PGM=IEFBR14 00050000
//PARMNEW DD DSN=&PRP..PARMNEW, 00060016
// DISP=(MOD,DELETE,DELETE) 00070000
//PARMOLD DD DSN=&PRP..PARMOLD, 00071016
// DISP=(MOD,CATLG,CATLG), 00071100
// MGMTCLAS=COM#A091,SPACE=(TRK,(1,10),RLSE), 00072000
// DCB=(RECFM=FB,LRECL=80) 00074000
//EJESEXT DD DSN=&PRE..EJESEXT, 00080000
// DISP=(MOD,DELETE,DELETE) 00090000
//BETAREPA DD DSN=&PRE..BETAREPA, 00091007
// DISP=(MOD,DELETE,DELETE) 00092002
//BETAFIPA DD DSN=&PRE..BETAFIPA, 00092113
// DISP=(MOD,DELETE,DELETE) 00092213
//BETAEXPA DD DSN=&PRE..BETAEXPA, 00092307
// DISP=(MOD,DELETE,DELETE) 00092407
//BETAREP DD DSN=&PRE..BETAREP, 00093005
// DISP=(MOD,DELETE,DELETE) 00094005
//BETAEXT DD DSN=&PRE..BETAEXT, 00100000
// DISP=(MOD,DELETE,DELETE) 00110000
//************************************* tso exDb2Log fun1 00111007
//FUN1 EXEC PGM=IKJEFT01,DYNAMNBR=200,TIME=99, 00120000
// PARM='%exDB2Log 1' 00130015
//SYSIN DD DUMMY 00150015
//SYSTSIN DD DUMMY 00160015
//SYSTSPRT DD SYSOUT=* 00170015
//SYSPROC DD DISP=SHR,DSN=A540769.WK.REXX 00210015
//PARMOLD DD DSN=*.DEL.PARMOLD,DISP=SHR 00211003
//PARMNEW DD DSN=*.DEL.PARMNEW, 00211102
// DISP=(NEW,CATLG,CATLG), 00212000
// MGMTCLAS=COM#A091,SPACE=(TRK,(1,10),RLSE), 00213000
// DCB=(RECFM=FB,LRECL=80) 00214000
//BETAREPA DD DSN=*.DEL.BETAREPA, 00214107
// DISP=(NEW,CATLG,CATLG), 00214202
// MGMTCLAS=COM#A091,SPACE=(TRK,(1,10),RLSE), 00214302
// DCB=(RECFM=FB,LRECL=80) 00214402
//EJESEXT DD DSN=*.DEL.EJESEXT, 00215001
// DISP=(MOD,CATLG,CATLG), 00216001
// MGMTCLAS=COM#A091,SPACE=(CYL,(10,100),RLSE), 00217001
// DCB=(RECFM=VB,LRECL=133) 00218010
//BETAEXT DD DSN=*.DEL.BETAEXT, 00218119
// DISP=(MOD,CATLG,CATLG), 00218219
// MGMTCLAS=COM#A091,SPACE=(CYL,(10,100),RLSE), 00218319
// DCB=(RECFM=VB,LRECL=133) 00218419
//************************************* beta: report D***MSTR 00218507
//BETAREP EXEC PGM=BST01RFF,REGION=0M, 00219005
// PARM=('S=92,B01LST=00,B92LST=00', 00220005
// 'PGM=B92BFJBR') 00230005
//STEPLIB DD DISP=SHR, 00250007
// DSN=BSA.U0000.P0.&ZZ.I.LOAD 00260017
// DD DISP=SHR, 00270007
// DSN=B92.U0000.P0.&ZZ.I.LOAD 00280017
//B92DEF DD DUMMY 00300007
//SFFPARM DD DISP=SHR, 00320007
// DSN=BSA.U0000.P0.&ZZ.I.PARM 00330017
//SFFFDUMP DD SYSOUT=* 00350007
//SYSUDUMP DD SYSOUT=* 00360007
//OMSPRINT DD DSN=*.DEL.BETAREP, 00371005
// DISP=(NEW,CATLG,CATLG), 00372005
// MGMTCLAS=COM#A091,SPACE=(CYL,(1,10),RLSE), 00373005
// DCB=(RECFM=VB,LRECL=133) 00374010
//SYSIN DD DISP=SHR,DSN=*.DEL.BETAREPA 00380007
//************************************* tso exDb2Log fun1 00390007
//FUN2 EXEC PGM=IKJEFT01,DYNAMNBR=200,TIME=99, 00400007
// PARM='%exDB2Log 2 &PRE..BETAEXT' 00410015
//SYSIN DD DUMMY 00430015
//SYSTSIN DD DUMMY 00440015
//SYSTSPRT DD SYSOUT=* 00450015
//SYSPROC DD DISP=SHR,DSN=A540769.WK.REXX 00480015
//PARMNEW DD DSN=*.DEL.PARMNEW, 00500007
// DISP=SHR 00510007
//BETAREP DD DSN=*.DEL.BETAREP, 00520008
// DISP=SHR 00521008
//BETAEXPA DD DSN=*.DEL.BETAEXPA, 00522009
// DISP=(NEW,CATLG,CATLG), 00523009
// MGMTCLAS=COM#A091,SPACE=(TRK,(1,10),RLSE), 00524009
// DCB=(RECFM=FB,LRECL=80) 00525009
//BETAFIPA DD DSN=*.DEL.BETAFIPA, 00526013
// DISP=(NEW,CATLG,CATLG), 00527013
// MGMTCLAS=COM#A091,SPACE=(TRK,(1,10),RLSE), 00528013
// DCB=(RECFM=FB,LRECL=80) 00529013
//************************************* beta finad and restore 00610213
// IF FUN2.RUN AND FUN2.RC = 0 THEN 00610315
//BETAFIND EXEC PGM=BST01RFF,REGION=0M, 00610413
// PARM=('S=92,B01LST=00,B92LST=00', 00610513
// 'PGM=B92FFIND') 00610613
//STEPLIB DD DISP=SHR, 00610713
// DSN=BSA.U0000.P0.&ZZ.I.LOAD 00610817
// DD DISP=SHR, 00610913
// DSN=B92.U0000.P0.&ZZ.I.LOAD 00611017
//B92DEF DD DUMMY 00611113
//SFFPARM DD DISP=SHR, 00611213
// DSN=BSA.U0000.P0.&ZZ.I.PARM 00611317
//SFFFDUMP DD SYSOUT=* 00611413
//SYSUDUMP DD SYSOUT=* 00611513
//OMSPRINT DD SYSOUT=* 00611613
//B92LOG DD SYSOUT=* 00611713
//SYSIN DD DSN=*.DEL.BETAFIPA, 00611814
// DISP=SHR 00611913
//************************************* beta extract 00612013
//BETAEXT EXEC PGM=BST01RFF,REGION=0M, 00620007
// PARM=('S=92,B01LST=00,B92LST=00', 00630007
// 'PGM=B92PRINT') 00640007
//STEPLIB DD DISP=SHR, 00660007
// DSN=BSA.U0000.P0.&ZZ.I.LOAD 00670017
// DD DISP=SHR, 00680007
// DSN=B92.U0000.P0.&ZZ.I.LOAD 00690017
//B92DEF DD DUMMY 00710007
//SFFPARM DD DISP=SHR, 00730007
// DSN=BSA.U0000.P0.&ZZ.I.PARM 00740017
//SFFFDUMP DD SYSOUT=* 00760007
//SYSUDUMP DD SYSOUT=* 00770007
//OMSPRINT DD SYSOUT=* 00780007
//B92LOG DD SYSOUT=* 00790007
//SYSIN DD DSN=*.DEL.BETAEXPA, 00810007
// DISP=SHR 00820007
// ENDIF 00821015
//FUN3 EXEC PGM=IKJEFT01,DYNAMNBR=200,TIME=99, 00830011
// PARM='%exDB2Log 3' 00840016
//SYSIN DD DUMMY 00850011
//SYSTSIN DD DUMMY 00860011
//SYSTSPRT DD SYSOUT=* 00870011
//SYSPROC DD DISP=SHR,DSN=A540769.WK.REXX 00900011
//PARMNEW DD DISP=SHR,DSN=*.DEL.PARMNEW 00910016
//DDIN1 DD DISP=SHR,DSN=*.DEL.EJESEXT 00930012
// DD DISP=SHR,DSN=*.DEL.BETAEXT 00931012