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