TITLE 'IPCS GET PDR RECORD EXPECT RECORD FOUND OR NOREC *00001000 ' 00002000 * /* CHANGE ACTIVITY */ 00003000 *THIS MODULE WRITTEN FOR @G57LPGS 00004000 BLSFGP00 CSECT , 0002 00005000 @MAINENT DS 0H 0002 00006000 USING *,@15 0002 00007000 B @PROLOG 0002 00008000 DC AL1(16) 0002 00009000 DC C'BLSFGP00 78.065' 0002 00010000 DROP @15 00011000 @PROLOG STM @14,@12,12(@13) 0002 00012000 BALR @12,0 0002 00013000 @PSTART DS 0H 0002 00014000 USING @PSTART,@12 0002 00015000 L @00,@SIZDATD 0002 00016000 BLSUALLS R,LV=(0) 00017000 LR @11,@01 0002 00018000 USING @DATD,@11 0002 00019000 ST @13,@SA00001+4 0002 00020000 LM @00,@01,20(@13) 0002 00021000 ST @11,8(,@13) 0002 00022000 LR @13,@11 0002 00023000 MVC @PC00001(12),0(@01) 0002 00024000 * 0128 00025000 */********************************************************************/ 00026000 */* */ 00027000 */* BEGIN MODULE EXECUATABLE CODE */ 00028000 */* */ 00029000 */********************************************************************/ 00030000 * 0128 00031000 * ZZ2PTR=ADDR(ATV); /* SET ZZ2 BASING EXPRESSION */ 00032000 L ZZ2PTR,@PC00001 0128 00033000 * AREALEN=LENGTH(PDREC)+LENGTH(PDRSTREC);/* INIT LEN OF PDR BUF */ 00034000 LA AREALEN,416 0129 00035000 * GPOPENED=OFF; /* SET SWITCH TO OFF */ 00036000 NI GPOPENED,B'01111111' 0130 00037000 * RETC=ZERO; /* ZERO THE RETURN CODE */ 00038000 SLR RETC,RETC 0131 00039000 * IF DMCBSIN=OFF&DMCBSOUT=OFF THEN/* IS DMCB OPEN */ 00040000 L @10,ZZ2ZZ1P(,ZZ2PTR) 0132 00041000 L @10,ZZ1PDRP(,@10) 0132 00042000 TM DMCBSIN(@10),B'11000000' 0132 00043000 BNZ @RF00132 0132 00044000 * DO; /* NO, OPEN FOR INPUT TO GET 0133 00045000 * REQUESTED REC */ 00046000 * GPOPENED=ON; /* INDICATE THAT GPOPENED THE PDR*/ 00047000 OI GPOPENED,B'10000000' 0134 00048000 * DO; /* BLSOPEN(ZZ1PDRP) */ 00049000 * RFY 0136 00050000 * GPR01P RSTD; 0136 00051000 * GPR01P=ZZ1PDRP; /* ADDRESS DMCB */ 00052000 LR GPR01P,@10 0137 00053000 * RFY 0138 00054000 * DMCB BASED(GPR01P); 0138 00055000 * IF((GPR01P&'FFFFFFF8'X)=GPR01P)&DMCBID='DMCB'/* VALID DMCB 00056000 * ? */ 00057000 * THEN 0139 00058000 LR @10,GPR01P 0139 00059000 N @10,@CF01042 0139 00060000 CLR @10,GPR01P 0139 00061000 BNE @RF00139 0139 00062000 CLC DMCBID(4,GPR01P),@CC01043 0139 00063000 BNE @RF00139 0139 00064000 * DO; 0140 00065000 * DMCBRQST=DMCBOPR; /* INDICATE OPEN REQUEST */ 00066000 MVI DMCBRQST(GPR01P),X'01' 0141 00067000 * DMCBOUT='0'B; /* INDICATE OPEN FOR INPUT */ 00068000 NI DMCBOUT(GPR01P),B'01111111' 0142 00069000 * CALL DMCBRI->DMCBDMGR;/* CALL BLSCRQST */ 00070000 L @15,DMCBRI(,GPR01P) 0143 00071000 BALR @14,@15 0143 00072000 * END; 0144 00073000 * ELSE 0145 00074000 * DO; 0145 00075000 B @RC00139 0145 00076000 @RF00139 DS 0H 0146 00077000 * RFY 0146 00078000 * (GPR00F, 0146 00079000 * GPR15F) RSTD; 0146 00080000 * GPR00F=0; /* INDICATE NO MESSAGE CHAIN */ 00081000 SLR GPR00F,GPR00F 0147 00082000 * GPR15F=16; /* INDICATE INVALID DMCB */ 00083000 LA GPR15F,16 0148 00084000 * RFY 0149 00085000 * (GPR00F, 0149 00086000 * GPR15F); 0149 00087000 * END; 0150 00088000 * RFY 0151 00089000 * DMCB; 0151 00090000 @RC00139 DS 0H 0152 00091000 * RFY 0152 00092000 * GPR01P; 0152 00093000 * END; /* BLSOPEN(ZZ1PDRP) NO, OPEN FOR 00094000 * INPUT TO GET REQUESTED REC */ 00095000 * RESPECIFY 0154 00096000 * RF RESTRICTED; /* RESTRICT REG 15 TO SAVE RETURN 00097000 * CODE */ 00098000 * RETC=RF; /* SAVE THE RETURN CODE */ 00099000 LR RETC,RF 0155 00100000 * RESPECIFY 0156 00101000 * RF UNRESTRICTED; /* FREE REG 15 TO COMPILER */ 00102000 * END; /* END GG00 DID OPEN */ 00103000 * IF RETC=ZERO THEN /* DID OPEN WORK */ 00104000 @RF00132 LTR RETC,RETC 0158 00105000 BNZ @RF00158 0158 00106000 * DO; /* YES, CONTINUE */ 00107000 */* BLSGET (ZZ1PDRP) AREA(AREA)AREALEN(AREALEN)ARG(PROBKEY)KEYEQ ARGLE 00108000 *(LENGTH(PROBKEY)) */ 00109000 * 0160 00110000 * DO; /* BLSGET (ZZ1PDRP) AREA(AREA)ARE 00111000 * ALEN(AREALEN)ARG(PROBKEY)KEYEQ 00112000 * ARGLEN(LENGTH(PROBKEY)) */ 00113000 * RFY 0161 00114000 * GPR01P RSTD; 0161 00115000 * GPR01P=ZZ1PDRP; /* ADDRESS DMCB */ 00116000 L @10,ZZ2ZZ1P(,ZZ2PTR) 0162 00117000 L GPR01P,ZZ1PDRP(,@10) 0162 00118000 * RFY 0163 00119000 * DMCB BASED(GPR01P); 0163 00120000 * IF((GPR01P&'FFFFFFF8'X)=GPR01P)&DMCBID='DMCB'/* VALID DMCB 00121000 * ? */ 00122000 * THEN 0164 00123000 LR @10,GPR01P 0164 00124000 N @10,@CF01042 0164 00125000 CLR @10,GPR01P 0164 00126000 BNE @RF00164 0164 00127000 CLC DMCBID(4,GPR01P),@CC01043 0164 00128000 BNE @RF00164 0164 00129000 * DO; 0165 00130000 * DMCBBUFP=ADDR(AREA); /* PLACE BUFFER ADDRESS IN DMCB */ 00131000 L @10,@PC00001+8 0166 00132000 ST @10,DMCBBUFP(,GPR01P) 0166 00133000 * DMCBBLEN=AREALEN&'7FFFFFFF'X;/* PLACE BUFFER LENGTH IN 00134000 * DMCB */ 00135000 LR @10,AREALEN 0167 00136000 N @10,@CF01047 0167 00137000 ST @10,DMCBBLEN(,GPR01P) 0167 00138000 * DMCBKEYP=ADDR(PROBKEY);/* PLACE KEY ADDRESS IN DMCB */ 00139000 L @10,@PC00001+4 0168 00140000 ST @10,DMCBKEYP(,GPR01P) 0168 00141000 * DMCBKEYL=(LENGTH(PROBKEY))&'7FFFFFFF'X;/* PLACE KEY 0169 00142000 * LENGTH IN DMCB */ 00143000 MVC DMCBKEYL(4,GPR01P),@CF00910 0169 00144000 * DMCBKYD='1'B; /* INDICATE KEYED ACCESS */ 00145000 * DMCBAPX='0'B; /* INDICATE EXACT KEY MATCH */ 00146000 * DMCBGKY='0'B; /* INDICATE FULL KEY SEARCH */ 00147000 * DMCBUPD='0'B; /* DEFAULT FOR GET IS NUP */ 00148000 OI DMCBKYD(GPR01P),B'10000000' 0173 00149000 NI DMCBAPX(GPR01P),B'10001111' 0173 00150000 * DMCBRQST=DMCBGER; /* INDICATE GET REQUEST */ 00151000 MVI DMCBRQST(GPR01P),X'04' 0174 00152000 * CALL DMCBRI->DMCBDMGR;/* CALL BLSCRQST */ 00153000 L @15,DMCBRI(,GPR01P) 0175 00154000 BALR @14,@15 0175 00155000 * END; 0176 00156000 * ELSE 0177 00157000 * DO; 0177 00158000 B @RC00164 0177 00159000 @RF00164 DS 0H 0178 00160000 * RFY 0178 00161000 * (GPR00F, 0178 00162000 * GPR15F) RSTD; 0178 00163000 * GPR00F=0; /* INDICATE NO MESSAGE CHAIN */ 00164000 SLR GPR00F,GPR00F 0179 00165000 * GPR15F=16; /* INDICATE INVALID DMCB */ 00166000 LA GPR15F,16 0180 00167000 * RFY 0181 00168000 * (GPR00F, 0181 00169000 * GPR15F); 0181 00170000 * END; 0182 00171000 * RFY 0183 00172000 * DMCB; 0183 00173000 @RC00164 DS 0H 0184 00174000 * RFY 0184 00175000 * GPR01P; 0184 00176000 * END; /* BLSGET (ZZ1PDRP) AREA(AREA)ARE 00177000 * ALEN(AREALEN)ARG(PROBKEY)KEYEQ 00178000 * ARGLEN(LENGTH(PROBKEY)) GET 0185 00179000 * PDR REC REQUEST */ 00180000 * RESPECIFY 0186 00181000 * RF RESTRICTED; /* RESTRICT REG 15 TO SAVE RETURN 00182000 * CODE */ 00183000 * RETC=RF; /* SAVE THE RETURN CODE */ 00184000 LR RETC,RF 0187 00185000 * IF RETC^=ZERO&RETC^=EIGHT THEN/* RETCODE NOT ZERO OR EIGHT */ 00186000 LTR RETC,RETC 0188 00187000 BZ @RF00188 0188 00188000 C RETC,@CF00054 0188 00189000 BE @RF00188 0188 00190000 * DO; 0189 00191000 * RETC=MAX(RETC,TWELVE); /* SHOW AT LEAST SEVER ERROR */ 00192000 LA @14,12 0190 00193000 CR RETC,@14 0190 00194000 BNL *+6 00195000 LR RETC,@14 0190 00196000 * DO; /* BLSDMSG 0191 00197000 * (ZZ2,GETERR,DMCBMSG,BLSDMSGS) 00198000 * ROUTE(TERM)LIFO */ 00199000 * CALL BLSDMSG0(ZZ2,GETERR,DMCBMSG,BLSDMSGS,'10010000'B,0); 00200000 ST ZZ2PTR,@AL00001 0192 00201000 LA @14,@CF01030 0192 00202000 ST @14,@AL00001+4 0192 00203000 L @14,ZZ2ZZ1P(,ZZ2PTR) 0192 00204000 L @14,ZZ1PDRP(,@14) 0192 00205000 LA @14,DMCBMSG(,@14) 0192 00206000 ST @14,@AL00001+8 0192 00207000 L @14,ZZ2MSGSP(,ZZ2PTR) 0192 00208000 ST @14,@AL00001+12 0192 00209000 LA @14,@CB01049 0192 00210000 ST @14,@AL00001+16 0192 00211000 LA @14,@CF00051 0192 00212000 ST @14,@AL00001+20 0192 00213000 L @15,ZZ2MSG0P(,ZZ2PTR) 0192 00214000 LA @01,@AL00001 0192 00215000 BALR @14,@15 0192 00216000 * /* BUILD MESSAGE */ 00217000 * END; /* BLSDMSG 0193 00218000 * (ZZ2,GETERR,DMCBMSG,BLSDMSGS) 00219000 * ROUTE(TERM)LIFO MSG */ 00220000 * DO; /* ABEND(101) DUMP USER */ 00221000 * RESPECIFY 0195 00222000 * (GPR01F) RESTRICTED; 0195 00223000 * GPR01F=(101)&'00000FFF'X;/* COMP CODE IN BITS 20-31 */ 00224000 LA GPR01F,101 0196 00225000 * GPR01F=GPR01F|'80000000'X;/* DUMP/STEP/DUMPOPTS FLAG */ 00226000 O GPR01F,@CF00066 0197 00227000 * SVC(13); /* ISSUE ABEND SVC */ 00228000 SVC 13 0198 00229000 * RESPECIFY 0199 00230000 * (GPR01F) UNRESTRICTED; 0199 00231000 * END; /* ABEND(101) DUMP USER YES, 0200 00232000 * ABEND TO GET INTO TEST */ 00233000 * END; /* END RETC ^= 0 OR 8 */ 00234000 * ELSE /* ALL OK ON GET, PURGE THE MSG 00235000 * STACK */ 00236000 * DO; /* BLSDMSG (ZZ2,MINUSONE,DMCBMSG, 00237000 * BLSDMSGS) */ 00238000 B @RC00188 0202 00239000 @RF00188 DS 0H 0203 00240000 * CALL BLSDMSG0(ZZ2,MINUSONE,DMCBMSG,BLSDMSGS,'00000000'B,0); 00241000 ST ZZ2PTR,@AL00001 0203 00242000 LA @14,@CF01020 0203 00243000 ST @14,@AL00001+4 0203 00244000 L @14,ZZ2ZZ1P(,ZZ2PTR) 0203 00245000 L @14,ZZ1PDRP(,@14) 0203 00246000 LA @14,DMCBMSG(,@14) 0203 00247000 ST @14,@AL00001+8 0203 00248000 L @14,ZZ2MSGSP(,ZZ2PTR) 0203 00249000 ST @14,@AL00001+12 0203 00250000 LA @14,@CB01054 0203 00251000 ST @14,@AL00001+16 0203 00252000 LA @14,@CF00051 0203 00253000 ST @14,@AL00001+20 0203 00254000 L @15,ZZ2MSG0P(,ZZ2PTR) 0203 00255000 LA @01,@AL00001 0203 00256000 BALR @14,@15 0203 00257000 * /* BUILD MESSAGE */ 00258000 * END; /* BLSDMSG (ZZ2,MINUSONE,DMCBMSG, 00259000 * BLSDMSGS) PURGE DAS MSGS */ 00260000 * IF GPOPENED=ON THEN /* DID BLSDG00 OPEN THE DSD */ 00261000 @RC00188 TM GPOPENED,B'10000000' 0205 00262000 BNO @RF00205 0205 00263000 * DO; /* YES, CLOSE THE DSD BEFORE 0206 00264000 * EXITING */ 00265000 * DO; /* BLSCLOSE(ZZ1PDRP) */ 00266000 * RFY 0208 00267000 * GPR01P RSTD; 0208 00268000 * GPR01P=ZZ1PDRP; /* ADDRESS THE DMCB */ 00269000 L @14,ZZ2ZZ1P(,ZZ2PTR) 0209 00270000 L GPR01P,ZZ1PDRP(,@14) 0209 00271000 * RFY 0210 00272000 * DMCB BASED(GPR01P); 0210 00273000 * IF((GPR01P&'FFFFFFF8'X)=GPR01P)&DMCBID='DMCB'/* VALID 00274000 * DMCB ? */ 00275000 * THEN 0211 00276000 LR @14,GPR01P 0211 00277000 N @14,@CF01042 0211 00278000 CLR @14,GPR01P 0211 00279000 BNE @RF00211 0211 00280000 CLC DMCBID(4,GPR01P),@CC01043 0211 00281000 BNE @RF00211 0211 00282000 * DO; 0212 00283000 * DMCBRQST=DMCBCLR; /* INDICATE CLOSE REQUEST */ 00284000 MVI DMCBRQST(GPR01P),X'02' 0213 00285000 * DMCBTMP='0'B; /* INDICATE NON TEMP CLOSE */ 00286000 * DMCBRM6='0'B; /* INDICATE */ 00287000 * DMCBRM5='0'B; /* DISP OPTION */ 00288000 NI DMCBTMP(GPR01P),B'00011111' 0216 00289000 * CALL DMCBRI->DMCBDMGR;/* CALL BLSCRQST */ 00290000 L @15,DMCBRI(,GPR01P) 0217 00291000 BALR @14,@15 0217 00292000 * END; 0218 00293000 * ELSE 0219 00294000 * DO; 0219 00295000 B @RC00211 0219 00296000 @RF00211 DS 0H 0220 00297000 * RFY 0220 00298000 * (GPR00F, 0220 00299000 * GPR15F) RSTD; 0220 00300000 * GPR00F=0; /* INDICATE NO MESSAGE CHAIN */ 00301000 SLR GPR00F,GPR00F 0221 00302000 * GPR15F=16; /* INDICATE INVALID DMCB */ 00303000 LA GPR15F,16 0222 00304000 * RFY 0223 00305000 * (GPR00F, 0223 00306000 * GPR15F); 0223 00307000 * END; 0224 00308000 * RFY 0225 00309000 * DMCB; 0225 00310000 @RC00211 DS 0H 0226 00311000 * RFY 0226 00312000 * GPR01P; 0226 00313000 * END; /* BLSCLOSE(ZZ1PDRP) CLOSE THE 0227 00314000 * DSD */ 00315000 * RESPECIFY 0228 00316000 * RF RESTRICTED; /* REST REGISTER 15 TO SAVE 0228 00317000 * RETURN CD */ 00318000 * IF RF^=ZERO THEN /* NON ZERO RETURN CODE */ 00319000 LTR RF,RF 0229 00320000 BZ @RF00229 0229 00321000 * DO; /* SET ERROR RETURN CODE AND 0230 00322000 * CHECK TEST */ 00323000 * RETC=MAX(RF,TWELVE);/* SHOW AT LEAST SEVERE ERROR */ 00324000 LA RETC,12 0231 00325000 CR RETC,RF 0231 00326000 BNL *+6 00327000 LR RETC,RF 0231 00328000 * DO; /* BLSDMSG 0232 00329000 * (ZZ2,CLOSERR,DMCBMSG,BLSDMSGS) 00330000 * LIFO ROUTE(TERM) */ 00331000 * CALL BLSDMSG0(ZZ2,CLOSERR,DMCBMSG,BLSDMSGS,'10010000' 00332000 * ,0); /* BUILD MESSAGE */ 00333000 ST ZZ2PTR,@AL00001 0233 00334000 LA @14,@CF01032 0233 00335000 ST @14,@AL00001+4 0233 00336000 L @14,ZZ2ZZ1P(,ZZ2PTR) 0233 00337000 L @14,ZZ1PDRP(,@14) 0233 00338000 LA @14,DMCBMSG(,@14) 0233 00339000 ST @14,@AL00001+8 0233 00340000 L @14,ZZ2MSGSP(,ZZ2PTR) 0233 00341000 ST @14,@AL00001+12 0233 00342000 LA @14,@CB01049 0233 00343000 ST @14,@AL00001+16 0233 00344000 LA @14,@CF00051 0233 00345000 ST @14,@AL00001+20 0233 00346000 L @15,ZZ2MSG0P(,ZZ2PTR) 0233 00347000 LA @01,@AL00001 0233 00348000 BALR @14,@15 0233 00349000 * END; /* BLSDMSG 0234 00350000 * (ZZ2,CLOSERR,DMCBMSG,BLSDMSGS) 00351000 * LIFO ROUTE(TERM) MSG */ 00352000 * DO; /* ABEND(102) DUMP USER */ 00353000 * RESPECIFY 0236 00354000 * (GPR01F) RESTRICTED; 0236 00355000 * GPR01F=(102)&'00000FFF'X;/* COMP CODE IN BITS 20-31*/ 00356000 LA GPR01F,102 0237 00357000 * GPR01F=GPR01F|'80000000'X;/* DUMP/STEP/DUMPOPTS 0238 00358000 * FLAG */ 00359000 O GPR01F,@CF00066 0238 00360000 * SVC(13); /* ISSUE ABEND SVC */ 00361000 SVC 13 0239 00362000 * RESPECIFY 0240 00363000 * (GPR01F) UNRESTRICTED; 0240 00364000 * END; /* ABEND(102) DUMP USER YES, 0241 00365000 * ABEND TO GET INTO TEST */ 00366000 * END; /* END NON ZERO CODE FROM CLOSE */ 00367000 * RESPECIFY 0243 00368000 * RF UNRESTRICTED; /* RETURN REG */ 00369000 @RF00229 DS 0H 0244 00370000 * END; /* END BLSFGP00 OPENED THE DSD */ 00371000 * END; /* END OPEN WORKED */ 00372000 * ELSE /* OPEN FAILED */ 00373000 * DO; /* DO RETURN CODE PROCESSING */ 00374000 B @RC00158 0246 00375000 @RF00158 DS 0H 0247 00376000 * DO; /* BLSDMSG 0247 00377000 * (ZZ2,OPENERR,DMCBMSG,BLSDMSGS) 00378000 * LIFO ROUTE(TERM) */ 00379000 * CALL BLSDMSG0(ZZ2,OPENERR,DMCBMSG,BLSDMSGS,'10010000'B,0); 00380000 ST ZZ2PTR,@AL00001 0248 00381000 LA @10,@CF01028 0248 00382000 ST @10,@AL00001+4 0248 00383000 L @10,ZZ2ZZ1P(,ZZ2PTR) 0248 00384000 L @10,ZZ1PDRP(,@10) 0248 00385000 LA @10,DMCBMSG(,@10) 0248 00386000 ST @10,@AL00001+8 0248 00387000 L @10,ZZ2MSGSP(,ZZ2PTR) 0248 00388000 ST @10,@AL00001+12 0248 00389000 LA @10,@CB01049 0248 00390000 ST @10,@AL00001+16 0248 00391000 LA @10,@CF00051 0248 00392000 ST @10,@AL00001+20 0248 00393000 L @15,ZZ2MSG0P(,ZZ2PTR) 0248 00394000 LA @01,@AL00001 0248 00395000 BALR @14,@15 0248 00396000 * /* BUILD MESSAGE */ 00397000 * END; /* BLSDMSG 0249 00398000 * (ZZ2,OPENERR,DMCBMSG,BLSDMSGS) 00399000 * LIFO ROUTE(TERM) MSG */ 00400000 * IF RETC^=FOUR THEN /* TEST IN EFFECT & NOT ATTEN */ 00401000 C RETC,@CF00043 0250 00402000 BE @RF00250 0250 00403000 * DO; /* ABEND(100) DUMP USER */ 00404000 * RESPECIFY 0252 00405000 * (GPR01F) RESTRICTED; 0252 00406000 * GPR01F=(100)&'00000FFF'X;/* COMP CODE IN BITS 20-31 */ 00407000 LA GPR01F,100 0253 00408000 * GPR01F=GPR01F|'80000000'X;/* DUMP/STEP/DUMPOPTS FLAG */ 00409000 O GPR01F,@CF00066 0254 00410000 * SVC(13); /* ISSUE ABEND SVC */ 00411000 SVC 13 0255 00412000 * RESPECIFY 0256 00413000 * (GPR01F) UNRESTRICTED; 0256 00414000 * END; /* ABEND(100) DUMP USER YES, 0257 00415000 * ABEND TO GET INTO TEST */ 00416000 * RETC=MAX(RETC,TWELVE); /* BUMP RETURN CODE TO ERROR 0258 00417000 * CONDITION */ 00418000 @RF00250 LA @10,12 0258 00419000 CR RETC,@10 0258 00420000 BNL *+6 00421000 LR RETC,@10 0258 00422000 * END; /* END OPEN ERROR PROCESSING */ 00423000 * RETURN CODE(RETC); /* RETURN WITH RETURN CODE */ 00424000 @RC00158 L @13,4(,@13) 0260 00425000 L @00,@SIZDATD 0260 00426000 LR @01,@11 0260 00427000 BLSUFRES R,LV=(0),A=(1) 00428000 LR @15,@06 0260 00429000 L @14,12(,@13) 0260 00430000 LM @00,@12,20(@13) 0260 00431000 BR @14 0260 00432000 * DECLARE /* GENERAL PURPOSE REGISTERS */ 00433000 * GPR00F FIXED(31) REG(0), 0261 00434000 * GPR01F FIXED(31) REG(1), 0261 00435000 * GPR15F FIXED(31) REG(15), 0261 00436000 * GPR01P PTR(31) REG(1); 0261 00437000 * DECLARE /* COMMON VARIABLES */ 00438000 * I256C CHAR(256) BASED, 0262 00439000 * I031F FIXED(31) BASED, 0262 00440000 * I031P PTR(31) BASED, 0262 00441000 * I015F FIXED(15) BASED, 0262 00442000 * I015P PTR(15) BASED, 0262 00443000 * I008P PTR(8) BASED, 0262 00444000 * I001C CHAR(1) BASED; 0262 00445000 * GENERATE NODEFS NOREFS DATA; 0263 00446000 * END /* BLRPEND END BLSFGP00 */ 00447000 * 0264 00448000 */* THE FOLLOWING INCLUDE STATEMENTS WERE FOUND IN THIS PROGRAM. */ 00449000 */*%INCLUDE SYSLIB (BLSUZZZ ) */ 00450000 */*%INCLUDE SYSLIB (BLRFULL ) */ 00451000 */*%INCLUDE SYSLIB (IKJCPPL ) */ 00452000 */*%INCLUDE SYSLIB (IKJPSCB ) */ 00453000 */*%INCLUDE SYSLIB (IKJECT ) */ 00454000 */*%INCLUDE SYSLIB (IKJUPT ) */ 00455000 */*%INCLUDE SYSLIB (BLSUSERV) */ 00456000 */*%INCLUDE SYSLIB (BLRSERV ) */ 00457000 */*%INCLUDE SYSLIB (BLRSERVD) */ 00458000 */*%INCLUDE SYSLIB (BLSDSERV) */ 00459000 */*%INCLUDE SYSLIB (BLSPDR ) */ 00460000 * 0264 00461000 * ; 0264 00462000 @EL00001 L @13,4(,@13) 0264 00463000 @EF00001 L @00,@SIZDATD 0264 00464000 LR @01,@11 0264 00465000 BLSUFRES R,LV=(0),A=(1) 00466000 @ER00001 LM @14,@12,12(@13) 0264 00467000 BR @14 0264 00468000 @DATA DS 0H 00469000 @DATD DSECT 00470000 DS 0F 00471000 @SA00001 DS 18F 00472000 @PC00001 DS 3F 00473000 @AL00001 DS 6A 00474000 BLSFGP00 CSECT 00475000 DS 0F 00476000 @CF00051 DC F'0' 00477000 @CF00043 DC F'4' 00478000 @CF00054 DC F'8' 00479000 @CF00910 DC F'14' 00480000 @CF01028 DC F'4042' 00481000 @CF01030 DC F'4043' 00482000 @CF01032 DC F'4045' 00483000 @CF01020 DC F'-1' 00484000 @CF00066 DC XL4'80000000' 00485000 @CF01042 DC XL4'FFFFFFF8' 00486000 @CF01047 DC XL4'7FFFFFFF' 00487000 @DATD DSECT 00488000 DS 0D 00489000 GPOPENED DS BL1 00490000 BLSFGP00 CSECT 00491000 DS 0F 00492000 @SIZDATD DC AL1(0) 00493000 DC AL3(@ENDDATD-@DATD) 00494000 DS 0D 00495000 @CC01043 DC C'DMCB' 00496000 @CB01049 DC B'10010000' 00497000 @CB01054 DC B'00000000' 00498000 @DATD DSECT 00499000 SPACE 2 00500000 *********************************************************************** 00501000 * THE FOLLOWING AREA, BLRPATCH, IS RESERVED FOR PATCH APPLICATION * 00502000 * TO OBTAIN PATCH ROOM IN THE @DATD AUTOMATIC STORAGE AREA, MODIFY * 00503000 * CONSTANT @SIZDATD TO REFLECT THE DESIRED @DATD SIZE * 00504000 *********************************************************************** 00505000 SPACE 00506000 BLSFGP00 CSECT 00507000 ORG 00508000 DS 0D 00509000 BLRPATCH DC CL8'ZAPAREA',(((*-BLSFGP00+19)/20+7)/8)CL8'BLSFGP00' 00510000 @DATD DSECT 00511000 SPACE 2 00512000 *********************************************************************** 00513000 * ALIGN END OF DATA ON A DOUBLEWORD BOUNDARY * 00514000 *********************************************************************** 00515000 SPACE 00516000 DS 0D 00517000 @DATD DSECT 00518000 ORG *+1-(*-@DATD)/(*-@DATD) INSURE DSECT DATA 00519000 @ENDDATD EQU * 00520000 BLSFGP00 CSECT 00521000 @00 EQU 00 EQUATES FOR REGISTERS 0-15 00522000 @01 EQU 01 00523000 @02 EQU 02 00524000 @03 EQU 03 00525000 @04 EQU 04 00526000 @05 EQU 05 00527000 @06 EQU 06 00528000 @07 EQU 07 00529000 @08 EQU 08 00530000 @09 EQU 09 00531000 @10 EQU 10 00532000 @11 EQU 11 00533000 @12 EQU 12 00534000 @13 EQU 13 00535000 @14 EQU 14 00536000 @15 EQU 15 00537000 AREALEN EQU @07 00538000 RETC EQU @06 00539000 ZZ2PTR EQU @05 00540000 R0 EQU @00 00541000 R1 EQU @01 00542000 R2 EQU @02 00543000 R3 EQU @03 00544000 R4 EQU @04 00545000 R5 EQU @05 00546000 R9 EQU @09 00547000 RB EQU @11 00548000 RD EQU @13 00549000 RE EQU @14 00550000 RF EQU @15 00551000 GPR01P EQU @01 00552000 GPR00F EQU @00 00553000 GPR15F EQU @15 00554000 GPR01F EQU @01 00555000 RA EQU @10 00556000 RC EQU @12 00557000 R6 EQU @06 00558000 R7 EQU @07 00559000 R8 EQU @08 00560000 ZZ1 EQU 0 00561000 ZZ1PDRP EQU ZZ1+40 00562000 ZZ1ATTN EQU ZZ1+360 00563000 ZZ1EVE EQU ZZ1ATTN+4 00564000 ZZ1F EQU ZZ1+368 00565000 ZZ1N EQU ZZ1+1116 00566000 ZZ2 EQU 0 00567000 ZZ2AMD EQU ZZ2 00568000 @NM00013 EQU ZZ2AMD+7 00569000 ZZ2PRT EQU ZZ2+138 00570000 ZZ2PRTT EQU ZZ2PRT+4 00571000 ZZ2PRTT1 EQU ZZ2PRTT+1 00572000 ZZ2A EQU ZZ2+272 00573000 ZZ2AF EQU ZZ2A+16 00574000 ZZ2APID EQU ZZ2A+64 00575000 ZZ2AD EQU ZZ2A+74 00576000 ZZ2ADD EQU ZZ2AD 00577000 ZZ2ADDT EQU ZZ2ADD+2 00578000 ZZ2ADM EQU ZZ2AD+46 00579000 ZZ2ADMT EQU ZZ2ADM+2 00580000 ZZ2ADP EQU ZZ2AD+56 00581000 ZZ2ADPT EQU ZZ2ADP+2 00582000 ZZ2AQAS EQU ZZ2A+144 00583000 ZZ2AQD EQU ZZ2A+160 00584000 ZZ2AQDT EQU ZZ2AQD+10 00585000 ZZ2AQDF EQU ZZ2AQD+52 00586000 ZZ2STG EQU ZZ2+960 00587000 ZZ2ALLOP EQU ZZ2+992 00588000 ZZ2FREEP EQU ZZ2+996 00589000 ZZ2FF19P EQU ZZ2+1000 00590000 ZZ2FRE1P EQU ZZ2+1004 00591000 ZZ2FF18P EQU ZZ2+1008 00592000 ZZ2DYNAP EQU ZZ2+1012 00593000 ZZ2ZZ2CP EQU ZZ2+1016 00594000 ZZ2ZZ2DP EQU ZZ2+1020 00595000 ZZ2STAIP EQU ZZ2+1024 00596000 ZZ2FF02P EQU ZZ2+1028 00597000 ZZ2GETLP EQU ZZ2+1032 00598000 ZZ2PARSP EQU ZZ2+1036 00599000 ZZ2PTGTP EQU ZZ2+1040 00600000 ZZ2PUTLP EQU ZZ2+1044 00601000 ZZ2SCANP EQU ZZ2+1048 00602000 ZZ2STCKP EQU ZZ2+1052 00603000 ZZ2ALOCP EQU ZZ2+1056 00604000 ZZ2MSGSP EQU ZZ2+1060 00605000 ZZ2TRMOP EQU ZZ2+1064 00606000 ZZ2TRMVP EQU ZZ2+1068 00607000 ZZ2MSG0P EQU ZZ2+1076 00608000 ZZ2PUTNP EQU ZZ2+1084 00609000 ZZ2TRMNP EQU ZZ2+1088 00610000 ZZ2ENQ0P EQU ZZ2+1092 00611000 ZZ2ADSDP EQU ZZ2+1096 00612000 ZZ2APDRP EQU ZZ2+1100 00613000 ZZ2FDSDP EQU ZZ2+1104 00614000 ZZ2FPDRP EQU ZZ2+1108 00615000 ZZ2ZZ1P EQU ZZ2+1264 00616000 ZZ2DVTP EQU ZZ2+1276 00617000 ZZ2BVTP EQU ZZ2+1280 00618000 ZZ2CPPL EQU ZZ2+1292 00619000 ZZ2CPPLC EQU ZZ2CPPL 00620000 ZZ2ITR EQU ZZ2+2840 00621000 ZZ2ITRE EQU ZZ2ITR+16 00622000 ZZ2ITSE EQU ZZ2+2864 00623000 ZZ2ES EQU ZZ2+2872 00624000 ZZ2AMDX EQU ZZ2+7160 00625000 ZZ2AXO EQU ZZ2+7934 00626000 ZZ2AXOT EQU ZZ2AXO+2 00627000 CMD EQU 0 00628000 CMDT EQU CMD+4 00629000 PSCB EQU 0 00630000 PSCBATR1 EQU PSCB+16 00631000 ECT EQU 0 00632000 ECTSWS EQU ECT+28 00633000 ECTSWS2 EQU ECT+40 00634000 ECTSWS21 EQU ECTSWS2 00635000 UPT EQU 0 00636000 UPTSWS EQU UPT+12 00637000 SA EQU 0 00638000 SA1 EQU SA 00639000 SAR EQU SA+12 00640000 BVT EQU 0 00641000 BVTPUTLP EQU BVT+4 00642000 BVTPUTOP EQU BVT+12 00643000 BVTPUTTP EQU BVT+16 00644000 BVTPUTVP EQU BVT+20 00645000 BVTPUTAP EQU BVT+24 00646000 BVTPRTTP EQU BVT+28 00647000 BVTPRTAP EQU BVT+32 00648000 BVTPUTDP EQU BVT+36 00649000 BVTMONP EQU BVT+40 00650000 BVTMON2P EQU BVT+44 00651000 BVTVSARP EQU BVT+48 00652000 BVTVSENP EQU BVT+64 00653000 BVTVSERP EQU BVT+68 00654000 BVTVSGEP EQU BVT+72 00655000 BVTVSGUP EQU BVT+76 00656000 BVTVSPOP EQU BVT+80 00657000 BVTVSPUP EQU BVT+84 00658000 BVTMPKNP EQU BVT+104 00659000 BVTMONLP EQU BVT+108 00660000 BVTPUTCP EQU BVT+132 00661000 BVTMPK1P EQU BVT+136 00662000 BVTZZ2RP EQU BVT+140 00663000 BVTPGMRP EQU BVT+144 00664000 BVTMONAP EQU BVT+148 00665000 BVTBLDDP EQU BVT+152 00666000 BVTBLDLP EQU BVT+156 00667000 BVTPGMCP EQU BVT+160 00668000 BVTPGMDP EQU BVT+164 00669000 BVTPGMLP EQU BVT+168 00670000 BVTMONCP EQU BVT+180 00671000 BVTMONDP EQU BVT+184 00672000 BVTMONTP EQU BVT+188 00673000 BVTPARIP EQU BVT+192 00674000 BVTPARUP EQU BVT+196 00675000 BVTPRTNP EQU BVT+204 00676000 BVTVSCRP EQU BVT+208 00677000 BVTVSMRP EQU BVT+212 00678000 BVTMONXP EQU BVT+216 00679000 BVTTRMAP EQU BVT+228 00680000 BLSDMSGS EQU 0 00681000 BLSDMSG0 EQU 0 00682000 DVT EQU 0 00683000 DVTDEQPP EQU DVT+8 00684000 DVTENQPP EQU DVT+12 00685000 DVTAUTHP EQU DVT+20 00686000 DVTLPCLP EQU DVT+24 00687000 DVTBP00P EQU DVT+28 00688000 DVTCN00P EQU DVT+32 00689000 DVTDF00P EQU DVT+36 00690000 DVTDS00P EQU DVT+44 00691000 DVTFL00P EQU DVT+48 00692000 DVTFP00P EQU DVT+52 00693000 DVTGD00P EQU DVT+56 00694000 DVTGG00P EQU DVT+60 00695000 DVTND00P EQU DVT+68 00696000 DVTND01P EQU DVT+72 00697000 DVTOD00P EQU DVT+76 00698000 DVTPS00P EQU DVT+80 00699000 DVTSD00P EQU DVT+84 00700000 DVTSL00P EQU DVT+88 00701000 DVTTL00P EQU DVT+92 00702000 DVTUD00P EQU DVT+96 00703000 DVTUP00P EQU DVT+100 00704000 DVTLP00P EQU DVT+104 00705000 DVTLALLP EQU DVT+108 00706000 DVTLPFMP EQU DVT+112 00707000 DVTCLOSP EQU DVT+116 00708000 DVTOPENP EQU DVT+120 00709000 DVTPERAP EQU DVT+124 00710000 DVTDALLP EQU DVT+128 00711000 DMCB EQU 0 00712000 DMCBID EQU DMCB 00713000 DMCBFTY EQU DMCB+20 00714000 DMCBOPN EQU DMCB+21 00715000 DMCBSIN EQU DMCBOPN 00716000 DMCBSOUT EQU DMCBOPN 00717000 DMCBRQST EQU DMCB+22 00718000 DMCBRMOD EQU DMCB+23 00719000 DMCBOUT EQU DMCBRMOD 00720000 DMCBTMP EQU DMCBOUT 00721000 DMCBRM6 EQU DMCBRMOD 00722000 DMCBRM5 EQU DMCBRMOD 00723000 DMCBOPTS EQU DMCB+24 00724000 DMCBKYD EQU DMCBOPTS 00725000 DMCBGKY EQU DMCBOPTS 00726000 DMCBAPX EQU DMCBOPTS 00727000 DMCBUPD EQU DMCBOPTS 00728000 DMCBMFLG EQU DMCB+28 00729000 DMCBBUFP EQU DMCB+32 00730000 DMCBBLEN EQU DMCB+36 00731000 DMCBKEYP EQU DMCB+44 00732000 DMCBKEYL EQU DMCB+48 00733000 DMCBMSG EQU DMCB+52 00734000 DMCBRI EQU DMCB+64 00735000 DMCBACBE EQU DMCB+124 00736000 DMCBSPEC EQU DMCB+380 00737000 DMCBAMS EQU DMCB+416 00738000 DMCBAUDT EQU DMCB+568 00739000 DMCBLSCP EQU DMCBAUDT+16 00740000 DMCBDMGR EQU 0 00741000 PDREC EQU 0 00742000 PDRKEY EQU PDREC 00743000 PDRGRP EQU PDRKEY 00744000 PDRKPID EQU PDRGRP+2 00745000 PDRINFO EQU PDREC+16 00746000 BLSCALOC EQU 0 00747000 BLSDADSD EQU 0 00748000 BLSDAPDR EQU 0 00749000 BLSDDEQP EQU 0 00750000 BLSDENQP EQU 0 00751000 BLSDENQ0 EQU 0 00752000 BLSDFDSD EQU 0 00753000 BLSDFPDR EQU 0 00754000 BLSEAUTH EQU 0 00755000 BLSELPCL EQU 0 00756000 BLSELPFM EQU 0 00757000 BLSFBP00 EQU 0 00758000 BLSFCLOS EQU 0 00759000 BLSFCN00 EQU 0 00760000 BLSFDALL EQU 0 00761000 BLSFDF00 EQU 0 00762000 BLSFDS00 EQU 0 00763000 BLSFFL00 EQU 0 00764000 BLSFFP00 EQU 0 00765000 BLSFGD00 EQU 0 00766000 BLSFGG00 EQU 0 00767000 BLSFLALL EQU 0 00768000 BLSFLP00 EQU 0 00769000 BLSFND00 EQU 0 00770000 BLSFND01 EQU 0 00771000 BLSFOD00 EQU 0 00772000 BLSFOPEN EQU 0 00773000 BLSFPERA EQU 0 00774000 BLSFPS00 EQU 0 00775000 BLSFSD00 EQU 0 00776000 BLSFSL00 EQU 0 00777000 BLSFTL00 EQU 0 00778000 BLSFUD00 EQU 0 00779000 BLSFUP00 EQU 0 00780000 BLSUALLO EQU 0 00781000 BLSUBLDD EQU 0 00782000 BLSUBLDL EQU 0 00783000 BLSUDYNA EQU 0 00784000 BLSUFREE EQU 0 00785000 BLSUFRE1 EQU 0 00786000 BLSUMON EQU 0 00787000 BLSUMONA EQU 0 00788000 BLSUMONC EQU 0 00789000 BLSUMOND EQU 0 00790000 BLSUMONL EQU 0 00791000 BLSUMONT EQU 0 00792000 BLSUMONX EQU 0 00793000 BLSUMON2 EQU 0 00794000 BLSUMPKN EQU 0 00795000 BLSUMPK1 EQU 0 00796000 BLSUPARI EQU 0 00797000 BLSUPARU EQU 0 00798000 BLSUPGMC EQU 0 00799000 BLSUPGMD EQU 0 00800000 BLSUPGML EQU 0 00801000 BLSUPGMR EQU 0 00802000 BLSUPRTA EQU 0 00803000 BLSUPRTN EQU 0 00804000 BLSUPRTT EQU 0 00805000 BLSUPUTA EQU 0 00806000 BLSUPUTC EQU 0 00807000 BLSUPUTD EQU 0 00808000 BLSUPUTL EQU 0 00809000 BLSUPUTN EQU 0 00810000 BLSUPUTO EQU 0 00811000 BLSUPUTT EQU 0 00812000 BLSUPUTV EQU 0 00813000 BLSUSTAI EQU 0 00814000 BLSUTRMA EQU 0 00815000 BLSUTRMN EQU 0 00816000 BLSUTRMO EQU 0 00817000 BLSUTRMV EQU 0 00818000 BLSUVSAR EQU 0 00819000 BLSUVSCR EQU 0 00820000 BLSUVSEN EQU 0 00821000 BLSUVSER EQU 0 00822000 BLSUVSGE EQU 0 00823000 BLSUVSGU EQU 0 00824000 BLSUVSMR EQU 0 00825000 BLSUVSPO EQU 0 00826000 BLSUVSPU EQU 0 00827000 BLSUZZ2C EQU 0 00828000 BLSUZZ2D EQU 0 00829000 BLSUZZ2R EQU 0 00830000 DMCBRQC EQU 0 00831000 IKJEFF02 EQU 0 00832000 IKJEFF18 EQU 0 00833000 IKJEFF19 EQU 0 00834000 IKJGETL EQU 0 00835000 IKJPARS EQU 0 00836000 IKJPTGT EQU 0 00837000 IKJPUTL EQU 0 00838000 IKJSCAN EQU 0 00839000 IKJSTCK EQU 0 00840000 I001C EQU 0 00841000 I008P EQU 0 00842000 I015F EQU 0 00843000 I015P EQU 0 00844000 I031F EQU 0 00845000 I031P EQU 0 00846000 I256C EQU 0 00847000 ATV EQU 0 00848000 PROBKEY EQU 0 00849000 AREA EQU 0 00850000 CPPL EQU ZZ2CPPL 00851000 CPPLUPT EQU CPPL+4 00852000 CPPLPSCB EQU CPPL+8 00853000 CPPLECT EQU CPPL+12 00854000 DMCBVSM EQU DMCBAMS 00855000 DMCBQSM EQU DMCBAMS 00856000 PDRSTREC EQU PDRINFO 00857000 PDRODATE EQU PDRSTREC 00858000 PDROWNNM EQU PDRSTREC+32 00859000 PDRDEREC EQU PDRINFO 00860000 PDRDESCR EQU PDRDEREC 00861000 PDRTRREC EQU PDRINFO 00862000 PDRTRARR EQU PDRTRREC 00863000 PDRHSREC EQU PDRINFO 00864000 PDRDSREC EQU PDRINFO 00865000 PDRDSNM EQU PDRDSREC 00866000 PDRSVALU EQU PDRODATE 00867000 * START UNREFERENCED COMPONENTS 00868000 PDRSVNUM EQU PDRSVALU+3 00869000 PDRSVRES EQU PDRSVALU 00870000 PDRDSRES EQU PDRDSREC+52 00871000 PDRMEMB EQU PDRDSNM+44 00872000 PDRDSN EQU PDRDSNM 00873000 PDRHYMSD EQU PDRHSREC+4 00874000 PDRHSLEN EQU PDRHSREC 00875000 PDRTRKD EQU PDRTRARR 00876000 PDRDESC EQU PDRDESCR 00877000 PDRDSSEQ EQU PDRSTREC+396 00878000 PDRRES6 EQU PDRSTREC+392 00879000 PDRTRKL EQU PDRSTREC+388 00880000 PDRDESCL EQU PDRSTREC+384 00881000 PDRABS EQU PDRSTREC+256 00882000 PDRRES5 EQU PDRSTREC+252 00883000 PDRFIXID EQU PDRSTREC+192 00884000 PDRFTIME EQU PDRSTREC+184 00885000 PDRFDATE EQU PDRSTREC+176 00886000 PDRFSTAT EQU PDRSTREC+172 00887000 PDRRES4 EQU PDRSTREC+167 00888000 PDRPTFID EQU PDRSTREC+160 00889000 PDRTTIME EQU PDRSTREC+152 00890000 PDRTDATE EQU PDRSTREC+144 00891000 PDRTSTAT EQU PDRSTREC+140 00892000 PDRRES3 EQU PDRSTREC+135 00893000 PDRAPRID EQU PDRSTREC+128 00894000 PDRITIME EQU PDRSTREC+120 00895000 PDRIDATE EQU PDRSTREC+112 00896000 PDRISTAT EQU PDRSTREC+104 00897000 PDRRTIME EQU PDRSTREC+96 00898000 PDRRDATE EQU PDRSTREC+88 00899000 PDRPTIME EQU PDRSTREC+80 00900000 PDRPDATE EQU PDRSTREC+72 00901000 PDRPSTAT EQU PDRSTREC+64 00902000 PDRUSER EQU PDRSTREC+56 00903000 PDRSYS EQU PDRSTREC+48 00904000 PDRGROUP EQU PDRSTREC+40 00905000 PDROWNLN EQU PDROWNNM+7 00906000 PDROWNID EQU PDROWNNM 00907000 PDRRES1 EQU PDRSTREC+27 00908000 PDRSEV EQU PDRSTREC+26 00909000 PDRCOMP EQU PDRSTREC+16 00910000 PDROTIME EQU PDRSTREC+8 00911000 DMCBRES7 EQU DMCBQSM+96 00912000 DMCBDCB EQU DMCBQSM 00913000 DMCBACB EQU DMCBVSM+76 00914000 DMCBRPL EQU DMCBVSM 00915000 CPPLCBUF EQU CPPL 00916000 PDRKEYSN EQU PROBKEY+10 00917000 PDRKEYPN EQU PROBKEY+2 00918000 PDRKEYTY EQU PROBKEY 00919000 PDRRESV EQU PDREC+14 00920000 PDRRECSQ EQU PDRKEY+10 00921000 PDRKPNUM EQU PDRKPID+3 00922000 PDRKPREF EQU PDRKPID 00923000 PDRKRCTY EQU PDRGRP 00924000 DMCBWRK EQU DMCB+648 00925000 DMCBRES8 EQU DMCB+640 00926000 DMCBMODN EQU DMCB+632 00927000 DMCBCARY EQU DMCBAUDT+20 00928000 DMCBCLC EQU DMCBAUDT+12 00929000 DMCBOPC EQU DMCBAUDT+8 00930000 DMCBFRC EQU DMCBAUDT+4 00931000 DMCBALC EQU DMCBAUDT 00932000 DMCBFR EQU DMCB+412 00933000 DMCBRES6 EQU DMCB+410 00934000 DMCBIRSC EQU DMCB+408 00935000 DMCBSUBC EQU DMCB+404 00936000 DMCBDRBP EQU DMCB+400 00937000 DMCBRSZM EQU DMCB+398 00938000 DMCBRSZA EQU DMCB+396 00939000 DMCBCISZ EQU DMCB+394 00940000 DMCBDCBL EQU DMCB+392 00941000 DMCBDCLR EQU DMCB+390 00942000 DMCBDCFM EQU DMCB+389 00943000 DMCBRES5 EQU DMCB+388 00944000 DMCBLBRT EQU DMCB+386 00945000 DMCBLBSQ EQU DMCB+384 00946000 DMCBLBPS EQU DMCB+383 00947000 DMCBLBTY EQU DMCB+382 00948000 DMCBRES4 EQU DMCB+381 00949000 DMCBSPRS EQU DMCBSPEC 00950000 DMCBSPRN EQU DMCBSPEC 00951000 DMCBSPCT EQU DMCBSPEC 00952000 DMCBSPRL EQU DMCBSPEC 00953000 DMCBSPSE EQU DMCB+376 00954000 DMCBSPPR EQU DMCB+372 00955000 DMCBSPTY EQU DMCB+369 00956000 DMCBODIS EQU DMCB+368 00957000 DMCBDISP EQU DMCB+367 00958000 DMCBSTAT EQU DMCB+366 00959000 DMCBRES3 EQU DMCB+364 00960000 DMCBMEMB EQU DMCB+356 00961000 DMCBMODL EQU DMCB+348 00962000 DMCBRES9 EQU DMCB+340 00963000 DMCBPID EQU DMCB+332 00964000 DMCBTYPE EQU DMCB+328 00965000 DMCBDSN EQU DMCB+284 00966000 DMCBUNIT EQU DMCB+276 00967000 DMCBDSOR EQU DMCB+274 00968000 DMCBVOL EQU DMCB+268 00969000 DMCBDDNM EQU DMCB+260 00970000 DMCBSYNM EQU DMCB+132 00971000 DMCBRPLF EQU DMCB+128 00972000 DMCBDCBE EQU DMCBACBE 00973000 DMCBARC EQU DMCB+120 00974000 DMCBCPC EQU DMCB+116 00975000 DMCBRET EQU DMCB+112 00976000 DMCBSTL EQU DMCB+96 00977000 DMCBEOB EQU DMCB+92 00978000 DMCBFRE EQU DMCB+88 00979000 DMCBRES2 EQU DMCB+85 00980000 DMCBSPID EQU DMCB+84 00981000 DMCBRESC EQU DMCB+80 00982000 DMCBZZ1P EQU DMCB+76 00983000 DMCBMSGS EQU DMCB+72 00984000 DMCBMSG0 EQU DMCB+68 00985000 DMCBRRL EQU DMCB+60 00986000 DMCBRBA EQU DMCB+56 00987000 DMCBKPC EQU DMCBKEYP 00988000 DMCBORL EQU DMCB+40 00989000 DMCBBFPC EQU DMCBBUFP 00990000 DMCBRES1 EQU DMCB+31 00991000 DMCBACCM EQU DMCB+30 00992000 DMCBREJ EQU DMCB+29 00993000 DMCBRESB EQU DMCBMFLG 00994000 DMCBFMOD EQU DMCBMFLG 00995000 DMCBLOPT EQU DMCB+27 00996000 DMCBLRM EQU DMCB+26 00997000 DMCBLRQ EQU DMCB+25 00998000 DMCBOPRS EQU DMCBOPTS 00999000 DMCBLRD EQU DMCBOPTS 01000000 DMCBBWD EQU DMCBOPTS 01001000 DMCBRNO EQU DMCBGKY 01002000 DMCBRMRS EQU DMCBRMOD 01003000 DMCBRESA EQU DMCBOPN 01004000 DMCBVSF EQU DMCBFTY 01005000 DMCBKSF EQU DMCBFTY 01006000 DMCBFTRS EQU DMCBFTY 01007000 DMCBSHF EQU DMCBFTY 01008000 DMCBIRL EQU DMCB+16 01009000 DMCBRTC EQU DMCB+12 01010000 DMCBTVP EQU DMCB+8 01011000 DMCBNEXT EQU DMCB+4 01012000 DVT99999 EQU DVT+256 01013000 DVT0064P EQU DVT+252 01014000 DVT0063P EQU DVT+248 01015000 DVT0062P EQU DVT+244 01016000 DVT0061P EQU DVT+240 01017000 DVT0060P EQU DVT+236 01018000 DVT0059P EQU DVT+232 01019000 DVT0058P EQU DVT+228 01020000 DVT0057P EQU DVT+224 01021000 DVT0056P EQU DVT+220 01022000 DVT0055P EQU DVT+216 01023000 DVT0054P EQU DVT+212 01024000 DVT0053P EQU DVT+208 01025000 DVT0052P EQU DVT+204 01026000 DVT0051P EQU DVT+200 01027000 DVT0050P EQU DVT+196 01028000 DVT0049P EQU DVT+192 01029000 DVT0048P EQU DVT+188 01030000 DVT0047P EQU DVT+184 01031000 DVT0046P EQU DVT+180 01032000 DVT0045P EQU DVT+176 01033000 DVT0044P EQU DVT+172 01034000 DVT0043P EQU DVT+168 01035000 DVT0042P EQU DVT+164 01036000 DVT0041P EQU DVT+160 01037000 DVT0040P EQU DVT+156 01038000 DVT0039P EQU DVT+152 01039000 DVT0038P EQU DVT+148 01040000 DVT0037P EQU DVT+144 01041000 DVT0036P EQU DVT+140 01042000 DVT0035P EQU DVT+136 01043000 DVT0034P EQU DVT+132 01044000 DVTGP00P EQU DVT+64 01045000 DVT0011P EQU DVT+40 01046000 DVT0005P EQU DVT+16 01047000 DVT0002P EQU DVT+4 01048000 DVT0001P EQU DVT 01049000 BVT99999 EQU BVT+256 01050000 BVT0064P EQU BVT+252 01051000 BVT0063P EQU BVT+248 01052000 BVT0062P EQU BVT+244 01053000 BVT0061P EQU BVT+240 01054000 BVT0060P EQU BVT+236 01055000 BVT0059P EQU BVT+232 01056000 BVT0057P EQU BVT+224 01057000 BVT0056P EQU BVT+220 01058000 BVTSTBLP EQU BVT+200 01059000 BVT0045P EQU BVT+176 01060000 BVT0044P EQU BVT+172 01061000 BVT0033P EQU BVT+128 01062000 BVT0032P EQU BVT+124 01063000 BVT0031P EQU BVT+120 01064000 BVT0030P EQU BVT+116 01065000 BVT0029P EQU BVT+112 01066000 BVT0026P EQU BVT+100 01067000 BVT0025P EQU BVT+96 01068000 BVT0024P EQU BVT+92 01069000 BVT0023P EQU BVT+88 01070000 BVT0016P EQU BVT+60 01071000 BVT0015P EQU BVT+56 01072000 BVT0014P EQU BVT+52 01073000 BVT0003P EQU BVT+8 01074000 BVT0001P EQU BVT 01075000 SA99 EQU SA+72 01076000 SARC EQU SAR+56 01077000 SARB EQU SAR+52 01078000 SARA EQU SAR+48 01079000 SAR9 EQU SAR+44 01080000 SAR8 EQU SAR+40 01081000 SAR7 EQU SAR+36 01082000 SAR6 EQU SAR+32 01083000 SAR5 EQU SAR+28 01084000 SAR4 EQU SAR+24 01085000 SAR3 EQU SAR+20 01086000 SAR2 EQU SAR+16 01087000 SAR1 EQU SAR+12 01088000 SAR0 EQU SAR+8 01089000 SARF EQU SAR+4 01090000 SARE EQU SAR 01091000 SAFWD EQU SA+8 01092000 SABAK EQU SA+4 01093000 SA1L EQU SA1+1 01094000 SA1P EQU SA1 01095000 UPTPREFL EQU UPT+23 01096000 UPTPREFX EQU UPT+16 01097000 @NM00068 EQU UPT+15 01098000 UPTLDEL EQU UPT+14 01099000 UPTCDEL EQU UPT+13 01100000 UPTWTP EQU UPTSWS 01101000 UPTMODE EQU UPTSWS 01102000 UPTALD EQU UPTSWS 01103000 UPTPAUS EQU UPTSWS 01104000 UPTNCOM EQU UPTSWS 01105000 UPTMID EQU UPTSWS 01106000 UPTNPRM EQU UPTSWS 01107000 UPTRCVR EQU UPTSWS 01108000 UPTUSER EQU UPT+2 01109000 @NM00067 EQU UPT 01110000 @NM00066 EQU ECT+52 01111000 @NM00065 EQU ECT+48 01112000 @NM00064 EQU ECT+44 01113000 @NM00063 EQU ECTSWS2+1 01114000 @NM00062 EQU ECTSWS21 01115000 ECTTABND EQU ECTSWS21 01116000 ECTDEFCS EQU ECTSWS21 01117000 ECTBKPB EQU ECT+36 01118000 ECTUSER EQU ECT+32 01119000 ECTDDNUM EQU ECT+29 01120000 ECTATTN EQU ECTSWS 01121000 ECTBKGRD EQU ECTSWS 01122000 ECTNNOT EQU ECTSWS 01123000 ECTNMAL EQU ECTSWS 01124000 ECTLOGF EQU ECTSWS 01125000 ECTATRM EQU ECTSWS 01126000 @NM00061 EQU ECTSWS 01127000 ECTNOPD EQU ECTSWS 01128000 ECTSCMD EQU ECT+20 01129000 ECTPCMD EQU ECT+12 01130000 ECTSMSG EQU ECT+9 01131000 ECTMSGF EQU ECT+8 01132000 ECTIOWA EQU ECT+4 01133000 ECTRTCD EQU ECT+1 01134000 ECTRCDF EQU ECT 01135000 PSCBU EQU PSCB+64 01136000 PSCBRSZ EQU PSCB+60 01137000 PSCBLINE EQU PSCB+59 01138000 PSCBCHAR EQU PSCB+58 01139000 PSCBUPTL EQU PSCB+56 01140000 PSCBUPT EQU PSCB+52 01141000 PSCBRLGB EQU PSCB+48 01142000 PSCBDEST EQU PSCB+40 01143000 @NM00060 EQU PSCB+36 01144000 @NM00059 EQU PSCB+32 01145000 @NM00058 EQU PSCB+28 01146000 PSCBLTI2 EQU PSCB+24 01147000 PSCBLTIM EQU PSCB+20 01148000 PSCBATR2 EQU PSCB+18 01149000 @NM00057 EQU PSCBATR1 01150000 @NM00056 EQU PSCBATR1 01151000 @NM00055 EQU PSCBATR1 01152000 PSCBATTN EQU PSCBATR1 01153000 PSCBVMNT EQU PSCBATR1 01154000 PSCBJCL EQU PSCBATR1 01155000 PSCBACCT EQU PSCBATR1 01156000 PSCBCTRL EQU PSCBATR1 01157000 PSCBGPNM EQU PSCB+8 01158000 PSCBUSRL EQU PSCB+7 01159000 PSCBUSER EQU PSCB 01160000 CMDT1 EQU CMDT 01161000 CMDO EQU CMD+2 01162000 CMDL EQU CMD 01163000 ZZ299999 EQU ZZ2+8192 01164000 ZZ2AXOT1 EQU ZZ2AXOT 01165000 ZZ2AXOL EQU ZZ2AXO 01166000 @NM00054 EQU ZZ2+7288 01167000 @NM00053 EQU ZZ2AMDX+4 01168000 ZZ2AMDXC EQU ZZ2AMDX 01169000 ZZ2HSD EQU ZZ2+3056 01170000 @NM00052 EQU ZZ2ES 01171000 @NM00051 EQU ZZ2+2868 01172000 ZZ2ITSEC EQU ZZ2ITSE+1 01173000 @NM00050 EQU ZZ2ITSE 01174000 ZZ2ITSEP EQU ZZ2ITSE 01175000 ZZ2ITSEW EQU ZZ2ITSE 01176000 @NM00049 EQU ZZ2ITR+20 01177000 ZZ2ITREC EQU ZZ2ITRE+1 01178000 @NM00048 EQU ZZ2ITRE 01179000 ZZ2ITREP EQU ZZ2ITRE 01180000 ZZ2ITREW EQU ZZ2ITRE 01181000 @NM00047 EQU ZZ2ITR+9 01182000 ZZ2ITRRC EQU ZZ2ITR+8 01183000 ZZ2ITR2P EQU ZZ2ITR+4 01184000 ZZ2ITRPP EQU ZZ2ITR 01185000 @NM00046 EQU ZZ2+1544 01186000 ZZ2PGM EQU ZZ2+1536 01187000 @NM00045 EQU ZZ2+1526 01188000 ZZ2CW EQU ZZ2+1524 01189000 @NM00044 EQU ZZ2+1504 01190000 @NM00043 EQU ZZ2+1352 01191000 ZZ2FFSYP EQU ZZ2+1348 01192000 ZZ2SASYP EQU ZZ2+1344 01193000 ZZ2RDSYP EQU ZZ2+1340 01194000 ZZ2RASYP EQU ZZ2+1336 01195000 ZZ2PHSYP EQU ZZ2+1332 01196000 ZZ2ESSYP EQU ZZ2+1328 01197000 ZZ200SYP EQU ZZ2+1324 01198000 ZZ2SCWP EQU ZZ2+1320 01199000 ZZ2TTLP EQU ZZ2+1316 01200000 ZZ2LOADP EQU ZZ2+1312 01201000 ZZ2VRESP EQU ZZ2+1308 01202000 ZZ2CPPLE EQU ZZ2CPPL+12 01203000 ZZ2CPPLP EQU ZZ2CPPL+8 01204000 ZZ2CPPLU EQU ZZ2CPPL+4 01205000 ZZ2VRSAP EQU ZZ2+1288 01206000 ZZ2RVTP EQU ZZ2+1284 01207000 @NM00042 EQU ZZ2+1272 01208000 @NM00041 EQU ZZ2+1268 01209000 ZZ2RPLP EQU ZZ2+1260 01210000 ZZ2TCBP EQU ZZ2+1256 01211000 @NM00040 EQU ZZ2+1252 01212000 ZZ2ZZ2P EQU ZZ2+1248 01213000 @NM00039 EQU ZZ2+1112 01214000 @NM00038 EQU ZZ2+1080 01215000 ZZ2FT25P EQU ZZ2+1072 01216000 @NM00037 EQU ZZ2+976 01217000 ZZ2TOD EQU ZZ2+968 01218000 ZZ2STGN EQU ZZ2STG+4 01219000 ZZ2STGP EQU ZZ2STG 01220000 @NM00036 EQU ZZ2+952 01221000 ZZ2SCMDE EQU ZZ2+944 01222000 ZZ2SCMDN EQU ZZ2+936 01223000 ZZ2IDENT EQU ZZ2+928 01224000 ZZ2A9999 EQU ZZ2A+656 01225000 @NM00035 EQU ZZ2A+224 01226000 @NM00034 EQU ZZ2A+220 01227000 ZZ2AQD99 EQU ZZ2AQD+60 01228000 @NM00033 EQU ZZ2AQD+56 01229000 @NM00032 EQU ZZ2AQDF 01230000 ZZ2AQDFA EQU ZZ2AQDF 01231000 ZZ2AQDIL EQU ZZ2AQD+48 01232000 ZZ2AQDIM EQU ZZ2AQD+44 01233000 ZZ2AQDT9 EQU ZZ2AQDT+34 01234000 ZZ2AQDTE EQU ZZ2AQDT+33 01235000 ZZ2AQDTD EQU ZZ2AQDT+2 01236000 @NM00031 EQU ZZ2AQDT+1 01237000 ZZ2AQDTY EQU ZZ2AQDT 01238000 ZZ2AQDT0 EQU ZZ2AQDT 01239000 ZZ2AQDLB EQU ZZ2AQD+9 01240000 ZZ2AQDOB EQU ZZ2AQD+8 01241000 ZZ2AQDLE EQU ZZ2AQD+4 01242000 ZZ2AQDOF EQU ZZ2AQD 01243000 ZZ2AQD00 EQU ZZ2AQD 01244000 ZZ2AQAS9 EQU ZZ2AQAS+16 01245000 @NM00030 EQU ZZ2AQAS+12 01246000 ZZ2AQAS2 EQU ZZ2AQAS+8 01247000 ZZ2AQAS1 EQU ZZ2AQAS+4 01248000 @NM00029 EQU ZZ2AQAS+2 01249000 ZZ2AQAST EQU ZZ2AQAS 01250000 ZZ2AQAS0 EQU ZZ2AQAS 01251000 ZZ2AZZ6P EQU ZZ2A+140 01252000 ZZ2ADPTA EQU ZZ2ADPT 01253000 ZZ2ADPL EQU ZZ2ADP 01254000 ZZ2ADMTA EQU ZZ2ADMT 01255000 ZZ2ADML EQU ZZ2ADM 01256000 ZZ2ADDTA EQU ZZ2ADDT 01257000 ZZ2ADDL EQU ZZ2ADD 01258000 @NM00028 EQU ZZ2A+72 01259000 ZZ2APIDB EQU ZZ2APID+3 01260000 ZZ2APIDA EQU ZZ2APID 01261000 @NM00027 EQU ZZ2A+24 01262000 @NM00026 EQU ZZ2AF+5 01263000 ZZ2AFX EQU ZZ2AF+5 01264000 @NM00025 EQU ZZ2AF+3 01265000 ZZ2AFS EQU ZZ2AF+2 01266000 ZZ2AFD EQU ZZ2AF+2 01267000 ZZ2AFQ EQU ZZ2AF+2 01268000 ZZ2AF$ EQU ZZ2AF+2 01269000 @NM00024 EQU ZZ2AF+2 01270000 ZZ2AFM EQU ZZ2AF+2 01271000 @NM00023 EQU ZZ2AF+2 01272000 @NM00022 EQU ZZ2AF+1 01273000 ZZ2AFV EQU ZZ2AF+1 01274000 @NM00021 EQU ZZ2AF+1 01275000 ZZ2AFC EQU ZZ2AF+1 01276000 @NM00020 EQU ZZ2AF 01277000 ZZ2AFFS EQU ZZ2AF 01278000 ZZ2AFT EQU ZZ2AF 01279000 ZZ2AFP EQU ZZ2AF 01280000 @NM00019 EQU ZZ2A+8 01281000 ZZ2ALINE EQU ZZ2A+4 01282000 @NM00018 EQU ZZ2A+3 01283000 ZZ2ASE EQU ZZ2A+2 01284000 ZZ2ACH EQU ZZ2A 01285000 @NM00017 EQU ZZ2+264 01286000 @NM00016 EQU ZZ2+263 01287000 ZZ2PRTT0 EQU ZZ2PRTT 01288000 ZZ2PRTO EQU ZZ2PRT+2 01289000 ZZ2PRTL EQU ZZ2PRT 01290000 @NM00015 EQU ZZ2AMD+56 01291000 ZZ2AMDXP EQU ZZ2AMD+52 01292000 ZZ2AMDD EQU ZZ2AMD+48 01293000 ZZ2AMDL EQU ZZ2AMD+44 01294000 ZZ2AMDU EQU ZZ2AMD+28 01295000 ZZ2AMDF EQU ZZ2AMD+24 01296000 ZZ2AMDS EQU ZZ2AMD+20 01297000 ZZ2AMDC EQU ZZ2AMD+16 01298000 ZZ2AMDP EQU ZZ2AMD+12 01299000 ZZ2AMDB EQU ZZ2AMD+8 01300000 @NM00014 EQU @NM00013 01301000 ZZ2AMD2 EQU @NM00013 01302000 ZZ2AMD1 EQU @NM00013 01303000 ZZ2AMD0 EQU ZZ2AMD+6 01304000 ZZ2AMDA EQU ZZ2AMD+4 01305000 ZZ2AMDT EQU ZZ2AMD 01306000 ZZ199999 EQU ZZ1+3072 01307000 @NM00012 EQU ZZ1+2160 01308000 ZZ1TRTAS EQU ZZ1+1904 01309000 ZZ1TRUPC EQU ZZ1+1648 01310000 ZZ1TRCTX EQU ZZ1+1392 01311000 ZZ1NASID EQU ZZ1N+274 01312000 ZZ1NSTRL EQU ZZ1N+272 01313000 ZZ1NOFF EQU ZZ1N+268 01314000 ZZ1NBDY EQU ZZ1N+264 01315000 ZZ1NADE EQU ZZ1N+260 01316000 ZZ1NADB EQU ZZ1N+256 01317000 ZZ1NSTR EQU ZZ1N 01318000 @NM00011 EQU ZZ1+1080 01319000 ZZ1TREBC EQU ZZ1+824 01320000 ZZ1TRHEX EQU ZZ1+568 01321000 @NM00010 EQU ZZ1+377 01322000 ZZ1USTAE EQU ZZ1+376 01323000 @NM00009 EQU ZZ1F+1 01324000 @NM00008 EQU ZZ1F 01325000 ZZ1FM EQU ZZ1F 01326000 ZZ1FX EQU ZZ1F 01327000 ZZ1FU EQU ZZ1F 01328000 ZZ1EVEC EQU ZZ1EVE+1 01329000 @NM00007 EQU ZZ1EVE 01330000 ZZ1EVEP EQU ZZ1EVE 01331000 ZZ1EVEW EQU ZZ1EVE 01332000 ZZ1ACMP EQU ZZ1ATTN 01333000 @NM00006 EQU ZZ1+144 01334000 ZZ1FPP EQU ZZ1+140 01335000 ZZ1ZZ6P EQU ZZ1+136 01336000 @NM00005 EQU ZZ1+84 01337000 ZZ1PLINE EQU ZZ1+80 01338000 ZZ1PGSZ EQU ZZ1+76 01339000 ZZ1PCNT EQU ZZ1+72 01340000 @NM00004 EQU ZZ1+68 01341000 ZZ1TPAGE EQU ZZ1+64 01342000 ZZ1TLINE EQU ZZ1+60 01343000 @NM00003 EQU ZZ1+52 01344000 ZZ1DMCBP EQU ZZ1+48 01345000 ZZ1DSDP EQU ZZ1+44 01346000 ZZ1ZZ2P EQU ZZ1+36 01347000 ZZ1327WP EQU ZZ1+32 01348000 ZZ1ACBP EQU ZZ1+28 01349000 @NM00002 EQU ZZ1+24 01350000 ZZ1PDCBP EQU ZZ1+20 01351000 ZZ1BLRBL EQU ZZ1+16 01352000 @NM00001 EQU ZZ1+12 01353000 ZZ1PNULL EQU ZZ1+8 01354000 ZZ1NULL EQU ZZ1+4 01355000 ZZ1IDE EQU ZZ1 01356000 * END UNREFERENCED COMPONENTS 01357000 @RF00205 EQU @RC00158 01358000 @ENDDATA EQU * 01359000 END BLSFGP00,(C'PLS1718',0701,78065) 01360000