********************************************************************** 00000100 * DB90S 5.4 PTF CZ104.006 MAY 2002 * 00000200 * * 00000300 * KEYWORDS : DBEZCNTL DBEZSR23 PAGE RANGE S0C1 * 00000400 * * 00000500 * DESCRIPTION: DBEZCNTL CAN EXTRACT THE INCORRECT PAGE RANGE FOR * 00000603 * AREAS BEING PROCESSED BY DBEZREORG * 00000700 * THIS CAN LEAD TO VARIOUS ERRORS INCLUDING * 00000800 * BUT NOT LIMITED TO * 00000900 * DB905530 EZ-REORG: BLK NOT IN PAGE RANGE AREA * 00001000 * S0C1 IN DBEZCUP2. S0C1 IN DBEZCUP3. * 00001100 * * 00001200 * TAPES : DB90S C10402 CA-IDMS R15 * 00001300 * * 00001400 ********************************************************************** 00001500 NAME DBEZCNTL DBEZCNTL 00001600 VER 198C 0000,1C98 =A(VDM20000) 00001700 REP 198C 0000,3830 =A(VDMC0000) 00001800 * 00001903 NAME DBEZCNTL CNTLPTCH 00002000 VER 0008 F008,F00A,F00C,F00E 00002100 VER 0010 F010,F012,F014,F016,F018,F01A,F01C,F01E 00003000 VER 0020 F020,F022,F024,F026,F028,F02A,F02C,F02E 00004000 VER 0030 F030,F032,F034,F036,F038,F03A,F03C,F03E 00005000 VER 0040 F040,F042,F044,F046,F048,F04A,F04C,F04E 00006000 VER 0050 F050,F052,F054,F056,F058,F05A,F05C,F05E 00007000 VER 0060 F060,F062,F064,F066,F068,F06A,F06C,F06E 00008000 VER 0070 F070,F072,F074,F076,F078,F07A,F07C,F07E 00009000 VER 0080 F080,F082,F084,F086,F088,F08A,F08C,F08E 00009100 VER 0090 F090,F092,F094,F096,F098,F09A,F09C,F09E 00009200 VER 00A0 F0A0,F0A2,F0A4,F0A6,F0A8,F0AA,F0AC,F0AE 00009300 VER 00B0 F0B0,F0B2,F0B4,F0B6,F0B8,F0BA,F0BC,F0BE 00009400 VER 00C0 F0C0,F0C2,F0C4,F0C6,F0C8,F0CA,F0CC,F0CE 00009500 VER 00D0 F0D0,F0D2,F0D4,F0D6,F0D8,F0DA,F0DC,F0DE 00009600 VER 00E0 F0E0,F0E2,F0E4,F0E6,F0E8,F0EA,F0EC,F0EE 00009700 VER 00F0 F0F0,F0F2,F0F4,F0F6,F0F8,F0FA,F0FC,F0FE 00009800 VER 0100 F100,F102,F104,F106,F108,F10A,F10C,F10E 00009900 VER 0110 F110,F112,F114,F116,F118 00010000 * 00011003 * VDMC0000 DS 0H 00020000 REP 0008 900E,B004 STM R0,R14,ISAR0 00030000 REP 000C 18BD LR R11,R13 00040000 REP 000E D79F,B000,B000 XC 0(ISADSLEN,R11),0 00050000 REP 0014 41D0,D0A0 LA R13,ISADSLEN(,R13) 00060000 REP 0018 5830,C6A6 L R3,VALSSEGA 00061000 REP 001C 5890,C6AA L R9,VALSDMCE 00062000 REP 0020 18CF LR BASEREG,R15 00063000 REP 0022 D203,B000,C024 MVC ISAEYE,VDMC000N 00064000 REP 0028 47F0,C028 B VDMC000S 00065000 REP 002C E5C4,D4C3 VMDC000N DC CL4'VDMC' 00066000 * VDMC000S DS 0H 00067000 REP 0030 18F9 LR R15,R9 00068000 REP 0032 4130,3050 LA R3,S49DSLEN(,R3) 00069000 * USING FAC,R1 00070000 * USING P60DS,R3 00080000 * USING S40DS,R5 00090000 * VDMC0100 DS 0H 00100000 REP 0036 193F CR R3,R15 00110000 REP 0038 47B0,C08A BNL VDMC0500 00120000 REP 003C D503,C102,3000 CLC =C'FC59',P60ID 00130000 REP 0042 4770,C046 BNE VDMC0200 00140000 REP 0046 5E30,6254 AL R3,CCSAFCBL 00150000 REP 004A 47F0,C02E B VDMC0100 00160000 * VDMC0200 DS 0H 00170000 REP 004E D503,C106,3000 CLC =C'SY40',P60ID 00180000 REP 0054 4770,C058 BNE VDMC0300 00190000 REP 0058 4130,3048 LA R3,S40DSLEN(,R3) 00200000 REP 005C 47F0,C02E B VDMC0100 00210000 * VDMC0300 DS 0H 00220000 REP 0060 D503,C10A,3000 CLC =C'FM61',P60ID 00230000 REP 0066 4770,C06A BNE VDMC0400 00240000 REP 006A 4130,307C LA R3,F61DSLEN(,R3) 00250000 REP 006E 47F0,C02E B VDMC0100 00260000 * VDMC0400 DS 0H 00270000 REP 0072 D503,C10E,3000 CLC =C'PR60',P60ID 00280000 REP 0078 4770,C08A BNE VDMC0500 00290000 REP 007C 4150,3060 LA R5,P60DSLEN(,R3) 00300000 REP 0080 D511,5006,1024 CLC S40NAME,FACNAME 00310000 REP 0086 4780,C0A6 BE VDMC0600 00320000 REP 008A 4130,5048 LA R3,S40DSLEN(,R5) 00330000 REP 008E 47F0,C02E B VDMC0100 00340000 * VDMC0500 DS 0H 00350000 REP 0092 D211,C0DF,1024 MVC M56AREA,FACNAME 00360002 REP 0098 4110,C0CC LA R1,M#905506 00370000 REP 009C 4100,0023 LA R0,IOWTO 00380000 REP 00A0 58F0,6378 L R15,CCSAIOSA 00390000 REP 00A4 05EF BALR R14,R15 00400000 REP 00A6 41F0,0004 LA R15,4 00410000 REP 00AA 47F0,C0B4 B VDMCEXIT 00420000 * VDMC0600 DS 0H 00430000 REP 00AE D203,1014,302C MVC FACLOPG,P60LOPG 00440000 REP 00B4 D203,1018,3030 MVC FACHIPG,P60HIPG 00450000 * #EXIT ID=VDMC 00460000 * VDMCEXT0 DS 0H 00470000 REP 00BA 1BFF SR R15,R15 00480000 * VDMCEXIT DS 0H 00490000 REP 00BC 925C,B000 MVI ISAEYE,C'*' 00500000 REP 00C0 41D0,00A0 LA R13,ISADSLEN 00510000 REP 00C4 1BBD SR R11,R13 00520000 REP 00C6 982E,B00C LM R2,R14,ISAR2 00530000 REP 00CA 07FE BR R14 00540000 * VDMCEXT4 DS 0H 00550000 REP 00CC 41F0,0004 LA R15,R4 00560000 REP 00D0 47F0,C114 B VDMCEXIT 00570000 * M#905506 DC PL4'9055060',AL1(L'M56MSG) 00580000 * M56MSG DC C'EZ-REORG AREA ' 00590000 * M56AREA DC C'123456789012345678' 00600000 * DC C' NOT IN SEGMENT' 00610000 REP 00D4 9055,060C,2FC5 00620000 REP 00DA E960,D9C5,D6D9,C740 00630000 REP 00E2 C1D9,C5C1,40F1 00640000 REP 00E8 F2F3,F4F5,F6F7,F8F9 00650000 REP 00F0 F0F1,F2F3,F4F5,F6F7,F840 00660000 REP 00FA D5D6,E340,C9D5,40E2 00670000 REP 0102 C5C7,D4C5,D5E3,4040 00680001 REP 010A C6C3,F5F9 DC C'FC59' 00690000 REP 010E E2E8,F4F0 DC C'SY40' 00700000 REP 0112 C6D4,F6F1 DC C'FM61' 00710000 REP 0116 D7D9,F6F0 DC C'PR60' 00720000 * 00721003 NAME COXAPTCH COXAZAPS 00730000 VER 0028 0000,0000,0000,0000 00740000 REP 0028 C3E9,F1F0,F4F0,F0F6 * CZ104.006 00750000