********************************************************************** 00001000 * DB90S 5.4 PTF CZ104.009 June 2002 * 00002000 * * 00002100 * KEYWORDS : S0C1 DBEZCUP3 * 00002200 * * 00002300 * DESCRIPTION: DBEZCUP3 may abend S0C1 at offset 1118 * 00002400 * * 00002500 * * 00002600 * Tapes : DB90S C10402 CA-IDMS R15 * 00002700 * * 00002800 ********************************************************************** 00002900 * CZ104.009 * 00003000 ********************************************************************** 00003100 NAME DBEZCUP2 DBEZCUP2 00003200 VER 1FE6 58F0,C0D0 L R15,DBKRCON 00003300 VER 1FEA 5EF0,C0D4 AL R15,=F'1' 00003400 VER 1FEE 50F0,C0D0 ST R15,DBKRCON 00003500 VER 1FF2 D203,1008,C0D0 MVC DRKNDBKY,DBKRCON 00003600 REP 1FE6 58E0,6018 L R14,CCSAPTCH 00003700 REP 1FEA 47F0,E180 B CCSAPTCH+X'180' 00003800 REP 1FEE 50F0,1008 ST R15,DBKNDBKY seq for DBK3 sort 00003900 REP 1FF2 0700,0700,0700 NOPS 00004000 NAME COXAPTCH COXAPTCH 00004100 VER 0180 F180,F182,F184,F186,F188,F18A,F18C,F18E 00004200 VER 0190 F190,F192,F194,F196,F198,F19A,F19C,F19E 00004300 VER 01A0 F1A0,F1A2,F1A4,F1A6,F1A8,F1AA,F1AC,F1AE 00004400 VER 01B0 F1B0,F1B2,F1B4,F1B6,F1B8,F1BA,F1BC,F1BE 00004500 VER 01C0 F1C0,F1C2,F1C4,F1C6,F1C8,F1CA,F1CC,F1CE 00004600 VER 01D0 F1D0,F1D2,F1D4,F1D6,F1D8 00004700 REP 0180 95E8,E1D8 * CLI PATCH+X'1D8',C'Y' Set value yet 00004800 REP 0184 4780,E1AC * BE PATCH+X'1AC' yes 00004900 REP 0188 58F0,3008 * L R15,DRDLSEQ+4 00005000 REP 018C 55F0,E1D4 * CL R15,=F'1000000' 00006000 REP 0190 4740,E1AC * BL PATCH+X'1A4' use zeros for values 00007000 REP 0194 5FF0,E1D4 * SL R15,=F'1000000' 00008000 REP 0198 50F0,E1C8 * ST R15,PATCH+X'1C8' subtraction factor 00009000 REP 019C 58F0,E1D0 * L R15,=F'-1' 00010000 REP 01A0 5FF0,E1C8 * SL R15,PATCH+X'1C8' 00020000 REP 01A4 50F0,E1CC * ST R15,PATCH+X'1CC' addition factor 00030000 REP 01A8 92E8,E1D8 * MVI PATCH+X'1D0',C'Y' say set value 00040000 REP 01AC 58F0,3008 * L R15,DRDLSEQ+4 00050000 REP 01B0 55F0,E1C8 * CL R15,PATCH+X'1C8' less than sub 00060000 REP 01B4 4740,E1C0 * BL PATCH=X'1C0' yes so add 00070000 REP 01B8 5FF0,E1C8 * SL R15,PATCH 00080000 REP 01BC 47F0,C072 * Branch in line 00090000 REP 01C0 5EF0,E1CC * AL R15,PATCH+X'1CC' 00091000 REP 01C4 47F0,C072 * Branch in line 00092000 REP 01C8 0000,0000 * Save area for JSEQ subtraction factor 00093000 REP 01CC 0000,0000 * Save area for JSEQ addition factor 00094000 REP 01D0 FFFF,FFFF * DC F'-1' 00095000 REP 01D4 000F,4240 * DC F'1000000' 00096000 REP 01D8 D500 * DC C'N' 00097000 NAME COXAPTCH COXAZAPS 00097100 VER 0040 0000,0000,0000,0000 00097200 REP 0040 C3E9,F1F0,F4F0,F0F9 * CZ104.009 00097300