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