TITLE 'BLSEDEL0 DELPROB SUBCOMMAND PROCESSOR FOR MVS/IPCS *00001000 ' 00002000 * /* CHANGE ACTIVITY */ 00003000 * THIS MODULE IS WRITTEN FOR @G57LPRD 00004000 BLSEDEL0 CSECT , 0002 00005000 @MAINENT DS 0H 0002 00006000 USING *,@15 0002 00007000 B @PROLOG 0002 00008000 DC AL1(16) 0002 00009000 DC C'BLSEDEL0 78.069' 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 BLSUALLR 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 * ZZ2PTR=R1; /* GET TASK VARIABLE */ 00024000 LR ZZ2PTR,R1 0171 00025000 * RESPECIFY 0172 00026000 * R1 UNRESTRICTED; 0172 00027000 * RETC=ZERO; /* INITIALIZE THE RETURN CODE */ 00028000 SLR RETC,RETC 0173 00029000 * MSGQ=ZERO; 0174 00030000 SLR @10,@10 0174 00031000 ST @10,MSGQ 0174 00032000 * DO; /* BLSUPARS CONFIRMATION MF(E,PX)*/ 00033000 * CALL BLSUPARI(ZZ2,PCCSECT,PDAPTR);/* PARSE OPERANDS */ 00034000 ST ZZ2PTR,@AL00001 0176 00035000 L @10,PCPTR 0176 00036000 ST @10,@AL00001+4 0176 00037000 LA @10,PDAPTR 0176 00038000 ST @10,@AL00001+8 0176 00039000 L @10,ZZ2BVTP(,ZZ2PTR) 0176 00040000 L @15,BVTPARIP(,@10) 0176 00041000 LA @01,@AL00001 0176 00042000 BALR @14,@15 0176 00043000 * RESPECIFY 0177 00044000 * (GPR15F) RESTRICTED; 0177 00045000 * IF GPR15F^=ZZZFLAGI THEN 0178 00046000 * 0178 00047000 LTR GPR15F,GPR15F 0178 00048000 BZ @RF00178 0178 00049000 * /*************************************************************/ 00050000 * /* */ 00051000 * /* UNABLE TO PARSE */ 00052000 * /* */ 00053000 * /*************************************************************/ 00054000 * 0179 00055000 * DO; /* UNABLE TO PARSE */ 00056000 * RETC=GPR15F; /* RETURN CODE */ 00057000 LR RETC,GPR15F 0180 00058000 * GO TO EXITNORL; /* EXIT WITHOUT PDL */ 00059000 B EXITNORL 0181 00060000 * END; 0182 00061000 * RESPECIFY 0183 00062000 * (GPR15F) UNRESTRICTED; 0183 00063000 @RF00178 DS 0H 0184 00064000 * RESPECIFY 0184 00065000 * (PDRPTR) RESTRICTED; 0184 00066000 * PDRPTR=PDAPTR; /* ->PDL */ 00067000 L PDRPTR,PDAPTR 0185 00068000 * GENERATE REFS(PD,PDRPTR) CODE(USING PD,PDRPTR); 0186 00069000 USING PD,PDRPTR 00070000 * IF PXTEST=PXTEST1 THEN 0187 00071000 CLC PXTEST(2),@CH00040 0187 00072000 BNE @RF00187 0187 00073000 * ZZ2AFX=ZZZ1; /* TEST */ 00074000 OI ZZ2AFX(ZZ2PTR),B'10000000' 0188 00075000 * ELSE 0189 00076000 * IF PXTEST=PXTEST0 THEN 0189 00077000 B @RC00187 0189 00078000 @RF00187 CLC PXTEST(2),@CH00067 0189 00079000 BNE @RF00189 0189 00080000 * ZZ2AFX=ZZZ0; /* NOTEST */ 00081000 NI ZZ2AFX(ZZ2PTR),B'01111111' 0190 00082000 * IF PXCONF=PXCONF1 THEN 0191 00083000 @RF00189 DS 0H 0191 00084000 @RC00187 CLC PXCONF(2),@CH00040 0191 00085000 BNE @RF00191 0191 00086000 * ZZ2AFC=ZZZ1; /* CONFIRM */ 00087000 OI ZZ2AFC(ZZ2PTR),B'10000000' 0192 00088000 * ELSE 0193 00089000 * IF PXCONF=PXCONF0 THEN 0193 00090000 B @RC00191 0193 00091000 @RF00191 CLC PXCONF(2),@CH00067 0193 00092000 BNE @RF00193 0193 00093000 * ZZ2AFC=ZZZ0; /* NOCONFIRM */ 00094000 NI ZZ2AFC(ZZ2PTR),B'01111111' 0194 00095000 * END; /* BLSUPARS CONFIRMATION MF(E,PX) 00096000 * CALL IKJPARS */ 00097000 * 0195 00098000 @RF00193 DS 0H 0195 00099000 @RC00191 DS 0H 0196 00100000 * /*****************************************************************/ 00101000 * /* */ 00102000 * /* 3. COPY PARSED PARAMETERS INTO INTERNAL VARIABLES */ 00103000 * /* */ 00104000 * /*****************************************************************/ 00105000 * 0196 00106000 * ZZ2AFP=OFF; /* DONT SEND CONFIRMATION 0196 00107000 * MESSAGES TO PRINTER */ 00108000 * ZZ2AFT=ON; /* DO SEND THEM TO THE TERMINAL */ 00109000 OI ZZ2AFT(ZZ2PTR),B'01000000' 0197 00110000 NI ZZ2AFP(ZZ2PTR),B'01111111' 0197 00111000 * DELPID=ZEROPID; /* INITIALIZE PID TO EBCDIC 0198 00112000 * ZEROES */ 00113000 MVC DELPID(8),@CC01089 0198 00114000 * IF PIDIFP=ON /* WAS PROBLEM ID SPECIFIED */ 00115000 * THEN 0199 00116000 TM PIDIFP,B'10000000' 0199 00117000 BNO @RF00199 0199 00118000 * DO; /* PROBLEM ID WAS SPECIFIED */ 00119000 * DELPNUM(LENGTH(DELPNUM)-PIDIL+1:LENGTH(DELPNUM))=PIDI(1:PIDIL); 00120000 LH @10,PIDIL 0201 00121000 LA @07,5 0201 00122000 SLR @07,@10 0201 00123000 LA @04,DELPNUM(@07) 0201 00124000 LCR @10,@10 0201 00125000 AL @10,@CF00090 0201 00126000 LCR @10,@10 0201 00127000 AL @10,@CF00037 0201 00128000 L @07,PIDIP 0201 00129000 EX @10,@SM01179 0201 00130000 * DELPREF=FPDBPIDP; /* PUT IN PID PREFIX */ 00131000 L @10,ZZ2ZZ1P(,ZZ2PTR) 0202 00132000 L @10,ZZ1FPP(,@10) 0202 00133000 MVC DELPREF(3),FPDBPIDP(@10) 0202 00134000 * END; /* PROBLEM ID WAS SPECIFIED */ 00135000 * ELSE 0204 00136000 * DO; /* PROBLEM ID WAS NOT SPECIFIED */ 00137000 * 0204 00138000 B @RC00199 0204 00139000 @RF00199 DS 0H 0205 00140000 * /*************************************************************/ 00141000 * /* */ 00142000 * /* 4. IF PROBLEM ID WAS NOT SPECIFIED IN COMMAND THEN INSERT */ 00143000 * /* DEFAULT PROBLEM ID FROM FPBLOK, IF NO DEFAULT IN EFFECT */ 00144000 * /* ISSUE MESSAGE BLS04003I AND RETURN CODE 8. */ 00145000 * /* */ 00146000 * /*************************************************************/ 00147000 * 0205 00148000 * IF ZZ2APID^=ZZZNPROB /* IS DEFAULT PROBLEM IN EFFECT */ 00149000 * THEN 0205 00150000 CLC ZZ2APID(8,ZZ2PTR),@CC00103 0205 00151000 BE @RF00205 0205 00152000 * DO; /* DEFAULT PROBLEM IS IN EFFECT */ 00153000 * DELPID=ZZ2APID; 0207 00154000 MVC DELPID(8),ZZ2APID(ZZ2PTR) 0207 00155000 * END; /* DEFAULT PROBLEM IS IN EFFECT */ 00156000 * ELSE 0209 00157000 * DO; /* DEFAULT PROBLEM IS NOT IN 0209 00158000 * EFFECT */ 00159000 B @RC00205 0209 00160000 @RF00205 DS 0H 0210 00161000 * DO; /* BLSDMSG 0210 00162000 * (ZZ2,BLS04003,MSGQ,BLSDMSGS) 00163000 * ROUTE(TERM) */ 00164000 * CALL BLSDMSG0(ZZ2,BLS04003,MSGQ,BLSDMSGS,'00010000'B,0); 00165000 ST ZZ2PTR,@AL00001 0211 00166000 LA @10,@CF01111 0211 00167000 ST @10,@AL00001+4 0211 00168000 LA @10,MSGQ 0211 00169000 ST @10,@AL00001+8 0211 00170000 L @10,ZZ2MSGSP(,ZZ2PTR) 0211 00171000 ST @10,@AL00001+12 0211 00172000 LA @10,@CB01127 0211 00173000 ST @10,@AL00001+16 0211 00174000 LA @10,@CF00045 0211 00175000 ST @10,@AL00001+20 0211 00176000 L @15,ZZ2MSG0P(,ZZ2PTR) 0211 00177000 LA @01,@AL00001 0211 00178000 BALR @14,@15 0211 00179000 * /* BUILD MESSAGE */ 00180000 * END; /* BLSDMSG 0212 00181000 * (ZZ2,BLS04003,MSGQ,BLSDMSGS) 00182000 * ROUTE(TERM) */ 00183000 * RETC=EIGHT; 0213 00184000 LA RETC,8 0213 00185000 * RETURN CODE(RETC); 0214 00186000 L @13,4(,@13) 0214 00187000 L @00,@SIZDATD 0214 00188000 LR @01,@11 0214 00189000 BLSUFRER R,LV=(0),A=(1) 00190000 LR @15,@07 0214 00191000 L @14,12(,@13) 0214 00192000 LM @00,@12,20(@13) 0214 00193000 BR @14 0214 00194000 * END; /* DEFAULT PROBLEM IS NOT IN 0215 00195000 * EFFECT */ 00196000 * END; /* PROBLEM ID WAS NOT SPECIFIED */ 00197000 * 0216 00198000 @RC00205 DS 0H 0217 00199000 * /*****************************************************************/ 00200000 * /* */ 00201000 * /* 5. CHECK FOR USER ATTENTION CANCEL */ 00202000 * /* */ 00203000 * /*****************************************************************/ 00204000 * 0217 00205000 * IF ZZ1EVEP=ON /* HAS ATTENTION BEEN POSTED */ 00206000 * THEN 0217 00207000 @RC00199 L @10,ZZ2ZZ1P(,ZZ2PTR) 0217 00208000 TM ZZ1EVEP(@10),B'01000000' 0217 00209000 BNO @RF00217 0217 00210000 * DO; /* ATTENTION HAS BEEN POSTED */ 00211000 * RETC=TWELVE; 0219 00212000 LA RETC,12 0219 00213000 * END; /* ATTENTION HAS BEEN POSTED */ 00214000 * ELSE /* ATTENTION HAS NOT BEEN POSTED */ 00215000 * DO; 0221 00216000 * 0221 00217000 B @RC00217 0221 00218000 @RF00217 DS 0H 0222 00219000 * /*************************************************************/ 00220000 * /* */ 00221000 * /* 6. ENQ THE PROBLEM TO PREVENT CHANGES BETWEEN */ 00222000 * /* AUTHORIZATION AND DELETION. QNAME = 'SYSBLSPR', RNAME = 5 */ 00223000 * /* DIGIT PROBLEM NUMBER */ 00224000 * /* */ 00225000 * /*************************************************************/ 00226000 * 0222 00227000 * CALL BLSDENQP(ZZ2,DELPNUM,EXC); 0222 00228000 ST ZZ2PTR,@AL00001 0222 00229000 LA @10,DELPNUM 0222 00230000 ST @10,@AL00001+4 0222 00231000 LA @10,@CC01097 0222 00232000 ST @10,@AL00001+8 0222 00233000 L @10,ZZ2DVTP(,ZZ2PTR) 0222 00234000 L @15,DVTENQPP(,@10) 0222 00235000 LA @01,@AL00001 0222 00236000 BALR @14,@15 0222 00237000 * RESPECIFY 0223 00238000 * RF RESTRICTED; 0223 00239000 * RETC=RF; 0224 00240000 LR RETC,RF 0224 00241000 * RESPECIFY 0225 00242000 * RF; 0225 00243000 * END; 0226 00244000 * IF RETC=ZERO /* SHOULD WE PROCEED */ 00245000 * THEN 0227 00246000 @RC00217 LTR RETC,RETC 0227 00247000 BNZ @RF00227 0227 00248000 * DO; /* PROCEED WITH DELETION */ 00249000 * 0228 00250000 * /*************************************************************/ 00251000 * /* */ 00252000 * /* 7. OPEN THE PROBLEM DIRECTORY. */ 00253000 * /* */ 00254000 * /*************************************************************/ 00255000 * 0229 00256000 * PDRDMCBP=ZZ1PDRP; /* COPY DMCB POINTER FOR PDR */ 00257000 L @10,ZZ2ZZ1P(,ZZ2PTR) 0229 00258000 L PDRDMCBP,ZZ1PDRP(,@10) 0229 00259000 * DO; /* BLSOPEN(PDRDMCBP)INPUT */ 00260000 * RFY 0231 00261000 * GPR01P RSTD; 0231 00262000 * GPR01P=PDRDMCBP; /* ADDRESS DMCB */ 00263000 LR GPR01P,PDRDMCBP 0232 00264000 * RFY 0233 00265000 * DMCB BASED(GPR01P); 0233 00266000 * IF((GPR01P&'FFFFFFF8'X)=GPR01P)&DMCBID='DMCB'/* VALID DMCB 00267000 * ? */ 00268000 * THEN 0234 00269000 LR @10,GPR01P 0234 00270000 N @10,@CF01130 0234 00271000 CLR @10,GPR01P 0234 00272000 BNE @RF00234 0234 00273000 CLC DMCBID(4,GPR01P),@CC01131 0234 00274000 BNE @RF00234 0234 00275000 * DO; 0235 00276000 * DMCBRQST=DMCBOPR; /* INDICATE OPEN REQUEST */ 00277000 MVI DMCBRQST(GPR01P),X'01' 0236 00278000 * DMCBOUT='0'B; /* INDICATE OPEN FOR INPUT */ 00279000 NI DMCBOUT(GPR01P),B'01111111' 0237 00280000 * CALL DMCBRI->DMCBDMGR;/* CALL BLSCRQST */ 00281000 L @15,DMCBRI(,GPR01P) 0238 00282000 BALR @14,@15 0238 00283000 * END; 0239 00284000 * ELSE 0240 00285000 * DO; 0240 00286000 B @RC00234 0240 00287000 @RF00234 DS 0H 0241 00288000 * RFY 0241 00289000 * (GPR00F, 0241 00290000 * GPR15F) RSTD; 0241 00291000 * GPR00F=0; /* INDICATE NO MESSAGE CHAIN */ 00292000 SLR GPR00F,GPR00F 0242 00293000 * GPR15F=16; /* INDICATE INVALID DMCB */ 00294000 LA GPR15F,16 0243 00295000 * RFY 0244 00296000 * (GPR00F, 0244 00297000 * GPR15F); 0244 00298000 * END; 0245 00299000 * RFY 0246 00300000 * DMCB; 0246 00301000 @RC00234 DS 0H 0247 00302000 * RFY 0247 00303000 * GPR01P; 0247 00304000 * END; /* BLSOPEN(PDRDMCBP)INPUT */ 00305000 * RESPECIFY 0249 00306000 * DMCB BASED(PDRDMCBP); 0249 00307000 * RESPECIFY 0250 00308000 * RF RESTRICTED; 0250 00309000 * DMRTC=RF; 0251 00310000 LR DMRTC,RF 0251 00311000 * RESPECIFY 0252 00312000 * RF; 0252 00313000 * IF DMRTC=0 /* WAS OPEN SUCCESSFUL */ 00314000 * THEN 0253 00315000 LTR DMRTC,DMRTC 0253 00316000 BNZ @RF00253 0253 00317000 * DO; /* OPEN WAS SUCCESSFUL */ 00318000 * 0254 00319000 * /*********************************************************/ 00320000 * /* */ 00321000 * /* 8. READ THE PROBLEM STATUS RECORD FOR THE PROBLEM TO */ 00322000 * /* BE DELETED. */ 00323000 * /* */ 00324000 * /*********************************************************/ 00325000 * 0255 00326000 * KEYRECTY=PDRSTATC; /* BUILD KEY, START WITH RECORD 00327000 * TYPE */ 00328000 MVC KEYRECTY(2),@CC00869 0255 00329000 * KEYPID=DELPID; /* INSERT PROBLEM NUMBER */ 00330000 MVC KEYPID(8),DELPID 0256 00331000 * KEYRECSQ=ZEROSEQ; /* INSERT SEQUENCE NUMBER */ 00332000 * 0257 00333000 MVC KEYRECSQ(4),@CC01082 0257 00334000 * /*********************************************************/ 00335000 * /* */ 00336000 * /* BLSGET (PDRDMCBP) KEYEQ ARG(DELKEY)AREA(STATREC)ARGLEN*/ 00337000 * /* (LENGTH(DELKEY))AREALEN(LENGTH(STATREC)) */ 00338000 * /* */ 00339000 * /*********************************************************/ 00340000 * 0258 00341000 * DO; /* BLSGET (PDRDMCBP) KEYEQ ARG(DE 00342000 * LKEY)AREA(STATREC)ARGLEN(LENGT 00343000 * H(DELKEY))AREALEN(LENGTH(STATR 00344000 * EC)) */ 00345000 * RFY 0259 00346000 * GPR01P RSTD; 0259 00347000 * GPR01P=PDRDMCBP; /* ADDRESS DMCB */ 00348000 LR GPR01P,PDRDMCBP 0260 00349000 * RFY 0261 00350000 * DMCB BASED(GPR01P); 0261 00351000 * IF((GPR01P&'FFFFFFF8'X)=GPR01P)&DMCBID='DMCB'/* VALID 00352000 * DMCB ? */ 00353000 * THEN 0262 00354000 LR @10,GPR01P 0262 00355000 N @10,@CF01130 0262 00356000 CLR @10,GPR01P 0262 00357000 BNE @RF00262 0262 00358000 CLC DMCBID(4,GPR01P),@CC01131 0262 00359000 BNE @RF00262 0262 00360000 * DO; 0263 00361000 * DMCBBUFP=ADDR(STATREC);/* PLACE BUFFER ADDRESS IN 00362000 * DMCB */ 00363000 LA @10,STATREC 0264 00364000 ST @10,DMCBBUFP(,GPR01P) 0264 00365000 * DMCBBLEN=LENGTH(STATREC)&'7FFFFFFF'X;/* PLACE 0265 00366000 * BUFFER LENGTH IN DMCB */ 00367000 MVC DMCBBLEN(4,GPR01P),@CF01169 0265 00368000 * DMCBKEYP=ADDR(DELKEY);/* PLACE KEY ADDRESS IN DMCB */ 00369000 LA @10,DELKEY 0266 00370000 ST @10,DMCBKEYP(,GPR01P) 0266 00371000 * DMCBKEYL=(LENGTH(DELKEY))&'7FFFFFFF'X;/* PLACE KEY 00372000 * LENGTH IN DMCB */ 00373000 MVC DMCBKEYL(4,GPR01P),@CF00802 0267 00374000 * DMCBKYD='1'B; /* INDICATE KEYED ACCESS */ 00375000 * DMCBAPX='0'B; /* INDICATE EXACT KEY MATCH */ 00376000 * DMCBGKY='0'B; /* INDICATE FULL KEY SEARCH */ 00377000 * DMCBUPD='0'B; /* DEFAULT FOR GET IS NUP */ 00378000 OI DMCBKYD(GPR01P),B'10000000' 0271 00379000 NI DMCBAPX(GPR01P),B'10001111' 0271 00380000 * DMCBRQST=DMCBGER; /* INDICATE GET REQUEST */ 00381000 MVI DMCBRQST(GPR01P),X'04' 0272 00382000 * CALL DMCBRI->DMCBDMGR;/* CALL BLSCRQST */ 00383000 L @15,DMCBRI(,GPR01P) 0273 00384000 BALR @14,@15 0273 00385000 * END; 0274 00386000 * ELSE 0275 00387000 * DO; 0275 00388000 B @RC00262 0275 00389000 @RF00262 DS 0H 0276 00390000 * RFY 0276 00391000 * (GPR00F, 0276 00392000 * GPR15F) RSTD; 0276 00393000 * GPR00F=0; /* INDICATE NO MESSAGE CHAIN */ 00394000 SLR GPR00F,GPR00F 0277 00395000 * GPR15F=16; /* INDICATE INVALID DMCB */ 00396000 LA GPR15F,16 0278 00397000 * RFY 0279 00398000 * (GPR00F, 0279 00399000 * GPR15F); 0279 00400000 * END; 0280 00401000 * RFY 0281 00402000 * DMCB; 0281 00403000 @RC00262 DS 0H 0282 00404000 * RFY 0282 00405000 * GPR01P; 0282 00406000 * END; /* BLSGET (PDRDMCBP) KEYEQ ARG(DE 00407000 * LKEY)AREA(STATREC)ARGLEN(LENGT 00408000 * H(DELKEY))AREALEN(LENGTH(STATR 00409000 * EC)) */ 00410000 * RESPECIFY 0284 00411000 * DMCB BASED(PDRDMCBP); 0284 00412000 * RESPECIFY 0285 00413000 * RF RESTRICTED; 0285 00414000 * DMRTC=RF; 0286 00415000 LR DMRTC,RF 0286 00416000 * RESPECIFY 0287 00417000 * RF; 0287 00418000 * 0287 00419000 * /*********************************************************/ 00420000 * /* */ 00421000 * /* 9. IF THE PROBLEM STATUS RECORD WAS NOT FOUND ISSUE */ 00422000 * /* MESSAGE BLS04001I, OR BLS04002I, AS APPROPRIATE, AND */ 00423000 * /* SET RETURN CODE TO EIGHT */ 00424000 * /* */ 00425000 * /*********************************************************/ 00426000 * 0288 00427000 * IF DMRTC=ZERO /* CHECK RETURN CODE FROM GET */ 00428000 * THEN 0288 00429000 LTR DMRTC,DMRTC 0288 00430000 BNZ @RF00288 0288 00431000 * RECFOUND=ON; /* INDICATE STATUS RECORD FOUND */ 00432000 OI RECFOUND,B'10000000' 0289 00433000 * ELSE 0290 00434000 * DO; /* NON ZERO RETURN CODE FROM GET */ 00435000 B @RC00288 0290 00436000 @RF00288 DS 0H 0291 00437000 * IF DMRTC=EIGHT /* WAS RETURN CODE RECORD NOT 0291 00438000 * FOUND */ 00439000 * THEN 0291 00440000 C DMRTC,@CF00048 0291 00441000 BNE @RF00291 0291 00442000 * DO; /* RECORD NOT FOUND */ 00443000 * IF PIDIFP=ON /* WAS A PROBLEM SPECIFIED ? */ 00444000 * THEN 0293 00445000 TM PIDIFP,B'10000000' 0293 00446000 BNO @RF00293 0293 00447000 * DO; /* BLSDMSG 0294 00448000 * (ZZ2,BLS04001,MSGQ,BLSDMSGS) R 00449000 * OUTE(TERM)INSERT(FPPIDP,DELPNU 00450000 * M) */ 00451000 * IOPTLIST(1)=ADDR(IOPTLIST(4));/* CHAIN TO 0295 00452000 * NEXT INSERT */ 00453000 LA @10,IOPTLIST+12 0295 00454000 ST @10,IOPTLIST 0295 00455000 * IOPTLIST(2)=ADDR(FPPIDP);/* INSERT NAME 0296 00456000 * POINTER */ 00457000 L @10,ZZ2ZZ1P(,ZZ2PTR) 0296 00458000 L @10,ZZ1FPP(,@10) 0296 00459000 LA @10,FPPIDP(,@10) 0296 00460000 ST @10,IOPTLIST+4 0296 00461000 * IOPTLIST(3)=0;/* ZERO RESERVED FIELD */ 00462000 SLR @10,@10 0297 00463000 ST @10,IOPTLIST+8 0297 00464000 * RFY 0298 00465000 * I015F BASED(ADDR(IOPTLIST(3)));/* ACCESS 0298 00466000 * BYTES 1-2 */ 00467000 * I015F=LENGTH(FPPIDP);/* INSERT LENGTH */ 00468000 LA @09,IOPTLIST+8 0299 00469000 MVC I015F(2,@09),@CH00093 0299 00470000 * IOPTLIST(4)=0;/* LAST INSERT */ 00471000 ST @10,IOPTLIST+12 0300 00472000 * IOPTLIST(5)=ADDR(DELPNUM);/* INSERT NAME 0301 00473000 * POINTER */ 00474000 LA @09,DELPNUM 0301 00475000 ST @09,IOPTLIST+16 0301 00476000 * IOPTLIST(6)=0;/* ZERO RESERVED FIELD */ 00477000 ST @10,IOPTLIST+20 0302 00478000 * RFY 0303 00479000 * I015F BASED(ADDR(IOPTLIST(6)));/* ACCESS 0303 00480000 * BYTES 1-2 */ 00481000 * I015F=LENGTH(DELPNUM);/* INSERT LENGTH */ 00482000 LA @10,IOPTLIST+20 0304 00483000 MVC I015F(2,@10),@CH00090 0304 00484000 * CALL BLSDMSG0(ZZ2,BLS04001,MSGQ,BLSDMSGS, 0305 00485000 * '00010000'B,ADDR(IOPTLIST));/* BUILD 0305 00486000 * MESSAGE */ 00487000 ST ZZ2PTR,@AL00001 0305 00488000 LA @10,@CF01107 0305 00489000 ST @10,@AL00001+4 0305 00490000 LA @10,MSGQ 0305 00491000 ST @10,@AL00001+8 0305 00492000 L @10,ZZ2MSGSP(,ZZ2PTR) 0305 00493000 ST @10,@AL00001+12 0305 00494000 LA @10,@CB01127 0305 00495000 ST @10,@AL00001+16 0305 00496000 LA @10,IOPTLIST 0305 00497000 ST @10,@AFTEMPS 0305 00498000 LA @10,@AFTEMPS 0305 00499000 ST @10,@AL00001+20 0305 00500000 L @15,ZZ2MSG0P(,ZZ2PTR) 0305 00501000 LA @01,@AL00001 0305 00502000 BALR @14,@15 0305 00503000 * END; /* BLSDMSG 0306 00504000 * (ZZ2,BLS04001,MSGQ,BLSDMSGS) R 00505000 * OUTE(TERM)INSERT(FPPIDP,DELPNU 00506000 * M) */ 00507000 * ELSE 0307 00508000 * DO; /* BLSDMSG 0307 00509000 * (ZZ2,BLS04002,MSGQ,BLSDMSGS) R 00510000 * OUTE(TERM)INSERT(FPPIDP,DELPNU 00511000 * M) */ 00512000 B @RC00293 0307 00513000 @RF00293 DS 0H 0308 00514000 * IOPTLIST(1)=ADDR(IOPTLIST(4));/* CHAIN TO 0308 00515000 * NEXT INSERT */ 00516000 LA @10,IOPTLIST+12 0308 00517000 ST @10,IOPTLIST 0308 00518000 * IOPTLIST(2)=ADDR(FPPIDP);/* INSERT NAME 0309 00519000 * POINTER */ 00520000 L @10,ZZ2ZZ1P(,ZZ2PTR) 0309 00521000 L @10,ZZ1FPP(,@10) 0309 00522000 LA @10,FPPIDP(,@10) 0309 00523000 ST @10,IOPTLIST+4 0309 00524000 * IOPTLIST(3)=0;/* ZERO RESERVED FIELD */ 00525000 SLR @10,@10 0310 00526000 ST @10,IOPTLIST+8 0310 00527000 * RFY 0311 00528000 * I015F BASED(ADDR(IOPTLIST(3)));/* ACCESS 0311 00529000 * BYTES 1-2 */ 00530000 * I015F=LENGTH(FPPIDP);/* INSERT LENGTH */ 00531000 LA @09,IOPTLIST+8 0312 00532000 MVC I015F(2,@09),@CH00093 0312 00533000 * IOPTLIST(4)=0;/* LAST INSERT */ 00534000 ST @10,IOPTLIST+12 0313 00535000 * IOPTLIST(5)=ADDR(DELPNUM);/* INSERT NAME 0314 00536000 * POINTER */ 00537000 LA @09,DELPNUM 0314 00538000 ST @09,IOPTLIST+16 0314 00539000 * IOPTLIST(6)=0;/* ZERO RESERVED FIELD */ 00540000 ST @10,IOPTLIST+20 0315 00541000 * RFY 0316 00542000 * I015F BASED(ADDR(IOPTLIST(6)));/* ACCESS 0316 00543000 * BYTES 1-2 */ 00544000 * I015F=LENGTH(DELPNUM);/* INSERT LENGTH */ 00545000 LA @10,IOPTLIST+20 0317 00546000 MVC I015F(2,@10),@CH00090 0317 00547000 * CALL BLSDMSG0(ZZ2,BLS04002,MSGQ,BLSDMSGS, 0318 00548000 * '00010000'B,ADDR(IOPTLIST));/* BUILD 0318 00549000 * MESSAGE */ 00550000 ST ZZ2PTR,@AL00001 0318 00551000 LA @10,@CF01109 0318 00552000 ST @10,@AL00001+4 0318 00553000 LA @10,MSGQ 0318 00554000 ST @10,@AL00001+8 0318 00555000 L @10,ZZ2MSGSP(,ZZ2PTR) 0318 00556000 ST @10,@AL00001+12 0318 00557000 LA @10,@CB01127 0318 00558000 ST @10,@AL00001+16 0318 00559000 LA @10,IOPTLIST 0318 00560000 ST @10,@AFTEMPS 0318 00561000 LA @10,@AFTEMPS 0318 00562000 ST @10,@AL00001+20 0318 00563000 L @15,ZZ2MSG0P(,ZZ2PTR) 0318 00564000 LA @01,@AL00001 0318 00565000 BALR @14,@15 0318 00566000 * END; /* BLSDMSG 0319 00567000 * (ZZ2,BLS04002,MSGQ,BLSDMSGS) R 00568000 * OUTE(TERM)INSERT(FPPIDP,DELPNU 00569000 * M) */ 00570000 * DO; /* BLSDMSG (ZZ2,PURGECHN,DMCBMSG, 00571000 * BLSDMSGS) */ 00572000 @RC00293 DS 0H 0321 00573000 * CALL BLSDMSG0(ZZ2,PURGECHN,DMCBMSG,BLSDMSGS, 0321 00574000 * '00000000'B,0);/* BUILD MESSAGE */ 00575000 ST ZZ2PTR,@AL00001 0321 00576000 LA @10,@CF01121 0321 00577000 ST @10,@AL00001+4 0321 00578000 LA @10,DMCBMSG(,PDRDMCBP) 0321 00579000 ST @10,@AL00001+8 0321 00580000 L @10,ZZ2MSGSP(,ZZ2PTR) 0321 00581000 ST @10,@AL00001+12 0321 00582000 LA @10,@CB01147 0321 00583000 ST @10,@AL00001+16 0321 00584000 LA @10,@CF00045 0321 00585000 ST @10,@AL00001+20 0321 00586000 L @15,ZZ2MSG0P(,ZZ2PTR) 0321 00587000 LA @01,@AL00001 0321 00588000 BALR @14,@15 0321 00589000 * END; /* BLSDMSG (ZZ2,PURGECHN,DMCBMSG, 00590000 * BLSDMSGS) PURGE DMCB MSGS */ 00591000 * RESPECIFY 0323 00592000 * RF RESTRICTED; 0323 00593000 * IF RF=TWELVE /* IF USER CANCELLED THEN ... */ 00594000 * THEN 0324 00595000 LA @14,12 0324 00596000 CR RF,@14 0324 00597000 BNE @RF00324 0324 00598000 * RETC=TWELVE; /* ... USE THAT RETURN CODE */ 00599000 LR RETC,@14 0325 00600000 * ELSE 0326 00601000 * DO; /* CLEAN UP POSSIBLE ADDL RECORDS*/ 00602000 B @RC00324 0326 00603000 @RF00324 DS 0H 0327 00604000 * KEYRECTY='';/* INDICATE RECORD NOT FOUND */ 00605000 MVI KEYRECTY,C' ' 0327 00606000 MVI KEYRECTY+1,C' ' 0327 00607000 * STATREC(1:LENGTH(DELKEY))=DELKEY;/* PREPARE 00608000 * FOR CLEAN UP */ 00609000 MVC STATREC(14),DELKEY 0328 00610000 * RECFOUND=OFF;/* INDICATE RECORD NOT FOUND */ 00611000 NI RECFOUND,B'01111111' 0329 00612000 * ZZ2AFC=OFF; /* SUPPRESS CONFIRMATION */ 00613000 NI ZZ2AFC(ZZ2PTR),B'01111111' 0330 00614000 * RETC=EIGHT; /* SET RETURN CODE */ 00615000 LA RETC,8 0331 00616000 * END; /* CLEAN UP POSSIBLE ADDL RECORDS*/ 00617000 * RESPECIFY 0333 00618000 * RF; 0333 00619000 @RC00324 DS 0H 0334 00620000 * END; /* RECORD NOT FOUND */ 00621000 * ELSE 0335 00622000 * DO; /* RETURN CODE OTHER THAN RECORD 00623000 * NOT FOUND OR ZERO */ 00624000 B @RC00291 0335 00625000 @RF00291 DS 0H 0336 00626000 * IF DMRTC^=SIXTEEN THEN 0336 00627000 C DMRTC,@CF00051 0336 00628000 BE @RF00336 0336 00629000 * AUXMSGQP=ADDR(DMCBMSG); 0337 00630000 LA AUXMSGQP,DMCBMSG(,PDRDMCBP) 0337 00631000 * ELSE 0338 00632000 * AUXMSGQP=ADDR(MSGQ); 0338 00633000 B @RC00336 0338 00634000 @RF00336 LA AUXMSGQP,MSGQ 0338 00635000 * DO; /* BLSDMSG (ZZ2,BLS04043,DMCBMSG, 00636000 * BLSDMSGS) LIFO ROUTE(TERM) */ 00637000 @RC00336 DS 0H 0340 00638000 * CALL BLSDMSG0(ZZ2,BLS04043,DMCBMSG,BLSDMSGS, 0340 00639000 * '10010000'B,0);/* BUILD MESSAGE */ 00640000 ST ZZ2PTR,@AL00001 0340 00641000 LA @10,@CF01115 0340 00642000 ST @10,@AL00001+4 0340 00643000 LA @10,DMCBMSG(,PDRDMCBP) 0340 00644000 ST @10,@AL00001+8 0340 00645000 L @10,ZZ2MSGSP(,ZZ2PTR) 0340 00646000 ST @10,@AL00001+12 0340 00647000 LA @10,@CB01149 0340 00648000 ST @10,@AL00001+16 0340 00649000 LA @10,@CF00045 0340 00650000 ST @10,@AL00001+20 0340 00651000 L @15,ZZ2MSG0P(,ZZ2PTR) 0340 00652000 LA @01,@AL00001 0340 00653000 BALR @14,@15 0340 00654000 * END; /* BLSDMSG (ZZ2,BLS04043,DMCBMSG, 00655000 * BLSDMSGS) LIFO ROUTE(TERM) */ 00656000 * DO; /* ABEND(IOERRCC) DUMP USER */ 00657000 * RESPECIFY 0343 00658000 * (GPR01F) RESTRICTED; 0343 00659000 * GPR01F=(IOERRCC)&'00000FFF'X;/* COMP CODE IN 0344 00660000 * BITS 20-31 */ 00661000 LA GPR01F,106 0344 00662000 * GPR01F=GPR01F|'80000000'X;/* DUMP/STEP/DUMPOPTS 00663000 * FLAG */ 00664000 O GPR01F,@CF00060 0345 00665000 * SVC(13); /* ISSUE ABEND SVC */ 00666000 SVC 13 0346 00667000 * RESPECIFY 0347 00668000 * (GPR01F) UNRESTRICTED; 0347 00669000 * END; /* ABEND(IOERRCC) DUMP USER */ 00670000 * END; /* RETURN CODE OTHER THAN RECORD 00671000 * NOT FOUND OR ZERO */ 00672000 * END; /* NON ZERO RETURN CODE FROM GET */ 00673000 * 0350 00674000 @RC00291 DS 0H 0351 00675000 * /*********************************************************/ 00676000 * /* */ 00677000 * /* 10. CLOSE THE PROBLEM DIRECTORY. */ 00678000 * /* */ 00679000 * /*********************************************************/ 00680000 * 0351 00681000 * DO; /* BLSCLOSE(PDRDMCBP) */ 00682000 @RC00288 DS 0H 0352 00683000 * RFY 0352 00684000 * GPR01P RSTD; 0352 00685000 * GPR01P=PDRDMCBP; /* ADDRESS THE DMCB */ 00686000 LR GPR01P,PDRDMCBP 0353 00687000 * RFY 0354 00688000 * DMCB BASED(GPR01P); 0354 00689000 * IF((GPR01P&'FFFFFFF8'X)=GPR01P)&DMCBID='DMCB'/* VALID 00690000 * DMCB ? */ 00691000 * THEN 0355 00692000 LR @10,GPR01P 0355 00693000 N @10,@CF01130 0355 00694000 CLR @10,GPR01P 0355 00695000 BNE @RF00355 0355 00696000 CLC DMCBID(4,GPR01P),@CC01131 0355 00697000 BNE @RF00355 0355 00698000 * DO; 0356 00699000 * DMCBRQST=DMCBCLR; /* INDICATE CLOSE REQUEST */ 00700000 MVI DMCBRQST(GPR01P),X'02' 0357 00701000 * DMCBTMP='0'B; /* INDICATE NON TEMP CLOSE */ 00702000 * DMCBRM6='0'B; /* INDICATE */ 00703000 * DMCBRM5='0'B; /* DISP OPTION */ 00704000 NI DMCBTMP(GPR01P),B'00011111' 0360 00705000 * CALL DMCBRI->DMCBDMGR;/* CALL BLSCRQST */ 00706000 L @15,DMCBRI(,GPR01P) 0361 00707000 BALR @14,@15 0361 00708000 * END; 0362 00709000 * ELSE 0363 00710000 * DO; 0363 00711000 B @RC00355 0363 00712000 @RF00355 DS 0H 0364 00713000 * RFY 0364 00714000 * (GPR00F, 0364 00715000 * GPR15F) RSTD; 0364 00716000 * GPR00F=0; /* INDICATE NO MESSAGE CHAIN */ 00717000 SLR GPR00F,GPR00F 0365 00718000 * GPR15F=16; /* INDICATE INVALID DMCB */ 00719000 LA GPR15F,16 0366 00720000 * RFY 0367 00721000 * (GPR00F, 0367 00722000 * GPR15F); 0367 00723000 * END; 0368 00724000 * RFY 0369 00725000 * DMCB; 0369 00726000 @RC00355 DS 0H 0370 00727000 * RFY 0370 00728000 * GPR01P; 0370 00729000 * END; /* BLSCLOSE(PDRDMCBP) */ 00730000 * RESPECIFY 0372 00731000 * DMCB BASED(PDRDMCBP); 0372 00732000 * RESPECIFY 0373 00733000 * RF RESTRICTED; 0373 00734000 * DMRTC=RF; 0374 00735000 LR DMRTC,RF 0374 00736000 * RESPECIFY 0375 00737000 * RF; 0375 00738000 * IF DMRTC^=ZERO /* TEST RETURN CODE FROM CLOSE */ 00739000 * THEN 0376 00740000 LTR DMRTC,DMRTC 0376 00741000 BZ @RF00376 0376 00742000 * DO; /* CLOSE WAS UNSUCCESSFUL */ 00743000 * IF DMRTC^=SIXTEEN THEN 0378 00744000 C DMRTC,@CF00051 0378 00745000 BE @RF00378 0378 00746000 * AUXMSGQP=ADDR(DMCBMSG); 0379 00747000 LA AUXMSGQP,DMCBMSG(,PDRDMCBP) 0379 00748000 * ELSE 0380 00749000 * AUXMSGQP=ADDR(MSGQ); 0380 00750000 B @RC00378 0380 00751000 @RF00378 LA AUXMSGQP,MSGQ 0380 00752000 * DO; /* BLSDMSG (ZZ2,BLS04045,AUXMSGQ, 00753000 * BLSDMSGS) LIFO ROUTE(TERM) */ 00754000 @RC00378 DS 0H 0382 00755000 * CALL BLSDMSG0(ZZ2,BLS04045,AUXMSGQ,BLSDMSGS, 0382 00756000 * '10010000'B,0);/* BUILD MESSAGE */ 00757000 ST ZZ2PTR,@AL00001 0382 00758000 LA @10,@CF01117 0382 00759000 ST @10,@AL00001+4 0382 00760000 LA @10,AUXMSGQ 0382 00761000 ST @10,@AL00001+8 0382 00762000 L @10,ZZ2MSGSP(,ZZ2PTR) 0382 00763000 ST @10,@AL00001+12 0382 00764000 LA @10,@CB01149 0382 00765000 ST @10,@AL00001+16 0382 00766000 LA @10,@CF00045 0382 00767000 ST @10,@AL00001+20 0382 00768000 L @15,ZZ2MSG0P(,ZZ2PTR) 0382 00769000 LA @01,@AL00001 0382 00770000 BALR @14,@15 0382 00771000 * END; /* BLSDMSG (ZZ2,BLS04045,AUXMSGQ, 00772000 * BLSDMSGS) LIFO ROUTE(TERM) */ 00773000 * DO; /* ABEND(IOERRCC) DUMP USER */ 00774000 * RESPECIFY 0385 00775000 * (GPR01F) RESTRICTED; 0385 00776000 * GPR01F=(IOERRCC)&'00000FFF'X;/* COMP CODE IN BITS 00777000 * 20-31 */ 00778000 LA GPR01F,106 0386 00779000 * GPR01F=GPR01F|'80000000'X;/* DUMP/STEP/DUMPOPTS 0387 00780000 * FLAG */ 00781000 O GPR01F,@CF00060 0387 00782000 * SVC(13); /* ISSUE ABEND SVC */ 00783000 SVC 13 0388 00784000 * RESPECIFY 0389 00785000 * (GPR01F) UNRESTRICTED; 0389 00786000 * END; /* ABEND(IOERRCC) DUMP USER ABEND 00787000 * SINCE WE CANT CLOSE PDR */ 00788000 * END; /* CLOSE WAS UNSUCCESSFUL */ 00789000 * ELSE 0392 00790000 * DO; /* CLOSE WAS SUCCESSFUL */ 00791000 * 0392 00792000 B @RC00376 0392 00793000 @RF00376 DS 0H 0393 00794000 * /*****************************************************/ 00795000 * /* */ 00796000 * /* 11. CALL BLSEAUTH TO DETERMINE IF USER IS */ 00797000 * /* AUTHORIZED TO DELETE PROBLEM. */ 00798000 * /* */ 00799000 * /*****************************************************/ 00800000 * 0393 00801000 * IF RECFOUND=ON /* WAS STATUS RECORD FOUND */ 00802000 * THEN 0393 00803000 TM RECFOUND,B'10000000' 0393 00804000 BNO @RF00393 0393 00805000 * CALL BLSEAUTH(ZZ2,STATREC,DELRULE); 0394 00806000 ST ZZ2PTR,@AL00001 0394 00807000 LA @10,STATREC 0394 00808000 ST @10,@AL00001+4 0394 00809000 LA @10,@CC01091 0394 00810000 ST @10,@AL00001+8 0394 00811000 L @10,ZZ2DVTP(,ZZ2PTR) 0394 00812000 L @15,DVTAUTHP(,@10) 0394 00813000 LA @01,@AL00001 0394 00814000 BALR @14,@15 0394 00815000 * RESPECIFY 0395 00816000 * RF RESTRICTED; 0395 00817000 @RF00393 DS 0H 0396 00818000 * IF RECFOUND=ON&RF^=ZERO THEN 0396 00819000 TM RECFOUND,B'10000000' 0396 00820000 BNO @RF00396 0396 00821000 SLR @14,@14 0396 00822000 CR RF,@14 0396 00823000 BE @RF00396 0396 00824000 * DO; /* USER IS NOT AUTHORIZED */ 00825000 * 0397 00826000 * /*************************************************/ 00827000 * /* */ 00828000 * /* 12. IF USER IS NOT AUTHORIZED THEN ISSUE */ 00829000 * /* MESSAGE BLS05400 AND SET THE RETURN CODE TO 8.*/ 00830000 * /* */ 00831000 * /*************************************************/ 00832000 * 0398 00833000 * RESPECIFY 0398 00834000 * RF; 0398 00835000 * DO; /* BLSDMSG 0399 00836000 * (ZZ2,BLS05400,MSGQ,BLSDMSGS) 00837000 * LIFO ROUTE(TERM)INSERT(FPPIDP, 00838000 * DELPNUM) */ 00839000 * IOPTLIST(1)=ADDR(IOPTLIST(4));/* CHAIN TO NEXT 00840000 * INSERT */ 00841000 LA @10,IOPTLIST+12 0400 00842000 ST @10,IOPTLIST 0400 00843000 * IOPTLIST(2)=ADDR(FPPIDP);/* INSERT NAME POINTER*/ 00844000 L @10,ZZ2ZZ1P(,ZZ2PTR) 0401 00845000 L @10,ZZ1FPP(,@10) 0401 00846000 LA @10,FPPIDP(,@10) 0401 00847000 ST @10,IOPTLIST+4 0401 00848000 * IOPTLIST(3)=0;/* ZERO RESERVED FIELD */ 00849000 ST @14,IOPTLIST+8 0402 00850000 * RFY 0403 00851000 * I015F BASED(ADDR(IOPTLIST(3)));/* ACCESS 0403 00852000 * BYTES 1-2 */ 00853000 * I015F=LENGTH(FPPIDP);/* INSERT LENGTH */ 00854000 LA @10,IOPTLIST+8 0404 00855000 MVC I015F(2,@10),@CH00093 0404 00856000 * IOPTLIST(4)=0;/* LAST INSERT */ 00857000 ST @14,IOPTLIST+12 0405 00858000 * IOPTLIST(5)=ADDR(DELPNUM);/* INSERT NAME 0406 00859000 * POINTER */ 00860000 LA @10,DELPNUM 0406 00861000 ST @10,IOPTLIST+16 0406 00862000 * IOPTLIST(6)=0;/* ZERO RESERVED FIELD */ 00863000 ST @14,IOPTLIST+20 0407 00864000 * RFY 0408 00865000 * I015F BASED(ADDR(IOPTLIST(6)));/* ACCESS 0408 00866000 * BYTES 1-2 */ 00867000 * I015F=LENGTH(DELPNUM);/* INSERT LENGTH */ 00868000 LA @10,IOPTLIST+20 0409 00869000 MVC I015F(2,@10),@CH00090 0409 00870000 * CALL BLSDMSG0(ZZ2,BLS05400,MSGQ,BLSDMSGS, 0410 00871000 * '10010000'B,ADDR(IOPTLIST));/* BUILD 0410 00872000 * MESSAGE */ 00873000 ST ZZ2PTR,@AL00001 0410 00874000 LA @10,@CF01119 0410 00875000 ST @10,@AL00001+4 0410 00876000 LA @10,MSGQ 0410 00877000 ST @10,@AL00001+8 0410 00878000 L @10,ZZ2MSGSP(,ZZ2PTR) 0410 00879000 ST @10,@AL00001+12 0410 00880000 LA @10,@CB01149 0410 00881000 ST @10,@AL00001+16 0410 00882000 LA @10,IOPTLIST 0410 00883000 ST @10,@AFTEMPS 0410 00884000 LA @10,@AFTEMPS 0410 00885000 ST @10,@AL00001+20 0410 00886000 L @15,ZZ2MSG0P(,ZZ2PTR) 0410 00887000 LA @01,@AL00001 0410 00888000 BALR @14,@15 0410 00889000 * END; /* BLSDMSG 0411 00890000 * (ZZ2,BLS05400,MSGQ,BLSDMSGS) 00891000 * LIFO ROUTE(TERM)INSERT(FPPIDP, 00892000 * DELPNUM) */ 00893000 * RETC=8; 0412 00894000 LA RETC,8 0412 00895000 * END; /* USER IS NOT AUTHORIZED */ 00896000 * ELSE 0414 00897000 * DO; /* USER IS AUTHORIZED */ 00898000 * 0414 00899000 B @RC00396 0414 00900000 @RF00396 DS 0H 0415 00901000 * /*************************************************/ 00902000 * /* */ 00903000 * /* 13. CALL BLSEDEL1 TO PERFORM PROBLEM DELETION */ 00904000 * /* */ 00905000 * /*************************************************/ 00906000 * 0415 00907000 * CALL BLSEDEL1(ZZ2,STATREC); 0415 00908000 ST ZZ2PTR,@AL00001 0415 00909000 LA @10,STATREC 0415 00910000 ST @10,@AL00001+4 0415 00911000 L @15,@CV01159 0415 00912000 LA @01,@AL00001 0415 00913000 BALR @14,@15 0415 00914000 * RESPECIFY 0416 00915000 * RF RESTRICTED; 0416 00916000 * RETC=RF; 0417 00917000 LR RETC,RF 0417 00918000 * RESPECIFY 0418 00919000 * RF UNRESTRICTED; 0418 00920000 * END; /* USER IS AUTHORIZED */ 00921000 * END; /* CLOSE WAS SUCCESSFUL */ 00922000 * END; /* OPEN WAS SUCCESSFUL */ 00923000 * ELSE 0422 00924000 * DO; /* OPEN WAS UNSUCCESSFUL */ 00925000 B @RC00253 0422 00926000 @RF00253 DS 0H 0423 00927000 * IF DMRTC^=SIXTEEN THEN 0423 00928000 C DMRTC,@CF00051 0423 00929000 BE @RF00423 0423 00930000 * AUXMSGQP=ADDR(DMCBMSG); 0424 00931000 LA AUXMSGQP,DMCBMSG(,PDRDMCBP) 0424 00932000 * ELSE 0425 00933000 * AUXMSGQP=ADDR(MSGQ); 0425 00934000 B @RC00423 0425 00935000 @RF00423 LA AUXMSGQP,MSGQ 0425 00936000 * DO; /* BLSDMSG (ZZ2,BLS04042,AUXMSGQ, 00937000 * BLSDMSGS) LIFO ROUTE(TERM) */ 00938000 @RC00423 DS 0H 0427 00939000 * CALL BLSDMSG0(ZZ2,BLS04042,AUXMSGQ,BLSDMSGS,'10010000'B,0 00940000 * ); /* BUILD MESSAGE */ 00941000 ST ZZ2PTR,@AL00001 0427 00942000 LA @10,@CF01113 0427 00943000 ST @10,@AL00001+4 0427 00944000 LA @10,AUXMSGQ 0427 00945000 ST @10,@AL00001+8 0427 00946000 L @10,ZZ2MSGSP(,ZZ2PTR) 0427 00947000 ST @10,@AL00001+12 0427 00948000 LA @10,@CB01149 0427 00949000 ST @10,@AL00001+16 0427 00950000 LA @10,@CF00045 0427 00951000 ST @10,@AL00001+20 0427 00952000 L @15,ZZ2MSG0P(,ZZ2PTR) 0427 00953000 LA @01,@AL00001 0427 00954000 BALR @14,@15 0427 00955000 * END; /* BLSDMSG (ZZ2,BLS04042,AUXMSGQ, 00956000 * BLSDMSGS) LIFO ROUTE(TERM) */ 00957000 * DO; /* ABEND(IOERRCC) DUMP USER */ 00958000 * RESPECIFY 0430 00959000 * (GPR01F) RESTRICTED; 0430 00960000 * GPR01F=(IOERRCC)&'00000FFF'X;/* COMP CODE IN BITS 20-31*/ 00961000 LA GPR01F,106 0431 00962000 * GPR01F=GPR01F|'80000000'X;/* DUMP/STEP/DUMPOPTS FLAG */ 00963000 O GPR01F,@CF00060 0432 00964000 * SVC(13); /* ISSUE ABEND SVC */ 00965000 SVC 13 0433 00966000 * RESPECIFY 0434 00967000 * (GPR01F) UNRESTRICTED; 0434 00968000 * END; /* ABEND(IOERRCC) DUMP USER */ 00969000 * END; /* OPEN WAS UNSUCCESSFUL */ 00970000 * 0436 00971000 * /*************************************************************/ 00972000 * /* */ 00973000 * /* 14. DEQ THE PROBLEM. */ 00974000 * /* */ 00975000 * /*************************************************************/ 00976000 * 0437 00977000 * CALL BLSDDEQP(ZZ2,DELPNUM); 0437 00978000 @RC00253 ST ZZ2PTR,@AL00001 0437 00979000 LA @10,DELPNUM 0437 00980000 ST @10,@AL00001+4 0437 00981000 L @10,ZZ2DVTP(,ZZ2PTR) 0437 00982000 L @15,DVTDEQPP(,@10) 0437 00983000 LA @01,@AL00001 0437 00984000 BALR @14,@15 0437 00985000 * END; /* PROCEED WITH DELETION */ 00986000 SPACE 1 00987000 *EXITRLSA: 0439 00988000 * DO WHILE(PDAPTR^=0); /* BLRRLSA MF(EXECUTE,PD) */ 00989000 @RF00227 DS 0H 0439 00990000 EXITRLSA B @DE00439 0439 00991000 @DL00439 DS 0H 0440 00992000 * PDRPTR=PDAPTR; 0440 00993000 L PDRPTR,PDAPTR 0440 00994000 * PDAPTR=PDXP; 0441 00995000 L @10,PDXP-1(,PDRPTR) 0441 00996000 LA @10,0(,@10) 0441 00997000 ST @10,PDAPTR 0441 00998000 * DO; /* FREEMAIN(R) 0442 00999000 * LV(PDL)SP(1)A(PDDSECT) */ 01000000 * RESPECIFY 0443 01001000 * (GPR01F, 0443 01002000 * GPR00F) RESTRICTED; 0443 01003000 * GPR00F=PDL; /* LENGTH REQUESTED */ 01004000 L GPR00F,PDL-1(,PDRPTR) 0444 01005000 ICM GPR00F,8,@CB01181 0444 01006000 * GPR01F=1; /* SP IN REG 1 */ 01007000 LA GPR01F,1 0445 01008000 * GEN(SLL GPR01F,24) 0446 01009000 * NODEFS NOREFS NOSETS NOEXIT NOFLOWS SEQFLOW; 0446 01010000 SLL GPR01F,24 01011000 * GPR00F=GPR00F|GPR01F; /* SP IN HI BYTE */ 01012000 OR GPR00F,GPR01F 0447 01013000 * GPR01F=ADDR(PDDSECT); /* SET REGISTER ONE */ 01014000 LR GPR01F,PDRPTR 0448 01015000 * SVC(10); /* R-FORM OF GETMAIN */ 01016000 SVC 10 0449 01017000 * RESPECIFY 0450 01018000 * (GPR01F, 0450 01019000 * GPR00F) UNRESTRICTED; 0450 01020000 * END; /* FREEMAIN(R) 0451 01021000 * LV(PDL)SP(1)A(PDDSECT) */ 01022000 * END; /* BLRRLSA MF(EXECUTE,PD) FREE 0452 01023000 * PARSE DESCRIPTION LIST */ 01024000 * 0452 01025000 @DE00439 L @10,PDAPTR 0452 01026000 LTR @10,@10 0452 01027000 BNZ @DL00439 0452 01028000 * /*****************************************************************/ 01029000 * /* */ 01030000 * /* 15. RETURN WITH RETURN CODE FROM BLSEDEL1 */ 01031000 * /* */ 01032000 * /*****************************************************************/ 01033000 * 0453 01034000 * RETURN CODE(RETC); 0453 01035000 L @13,4(,@13) 0453 01036000 L @00,@SIZDATD 0453 01037000 LR @01,@11 0453 01038000 BLSUFRER R,LV=(0),A=(1) 01039000 LR @15,@07 0453 01040000 L @14,12(,@13) 0453 01041000 LM @00,@12,20(@13) 0453 01042000 BR @14 0453 01043000 SPACE 1 01044000 *EXITNORL: 0454 01045000 * RETURN CODE(TWELVE); /* ERROR DURING PARSE */ 01046000 EXITNORL L @13,4(,@13) 0454 01047000 L @00,@SIZDATD 0454 01048000 LR @01,@11 0454 01049000 BLSUFRER R,LV=(0),A=(1) 01050000 LA @15,12 0454 01051000 L @14,12(,@13) 0454 01052000 LM @00,@12,20(@13) 0454 01053000 BR @14 0454 01054000 */*BLSUPEND--MVS IPCS MODULE */ 01055000 * 0455 01056000 * DECLARE /* GENERAL PURPOSE REGISTERS */ 01057000 * GPR00F FIXED(31) REG(0), 0455 01058000 * GPR01F FIXED(31) REG(1), 0455 01059000 * GPR15F FIXED(31) REG(15), 0455 01060000 * GPR01P PTR(31) REG(1); 0455 01061000 * DECLARE /* COMMON VARIABLES */ 01062000 * I256C CHAR(256) BASED, 0456 01063000 * I031F FIXED(31) BASED, 0456 01064000 * I031P PTR(31) BASED, 0456 01065000 * I015F FIXED(15) BASED, 0456 01066000 * I015P PTR(15) BASED, 0456 01067000 * I008P PTR(8) BASED, 0456 01068000 * I001C CHAR(1) BASED; 0456 01069000 * DECLARE 0457 01070000 * IOPTLIST(6) PTR(31) BDY(WORD);/* OPTION LIST ARRAY */ 01071000 * GENERATE NODEFS NOREFS DATA; 0458 01072000 * END /* BLRPEND */ 01073000 * 0459 01074000 */* THE FOLLOWING INCLUDE STATEMENTS WERE FOUND IN THIS PROGRAM. */ 01075000 */*%INCLUDE SYSLIB (BLSUZZZ ) */ 01076000 */*%INCLUDE SYSLIB (BLRFULL ) */ 01077000 */*%INCLUDE SYSLIB (IKJCPPL ) */ 01078000 */*%INCLUDE SYSLIB (IKJPSCB ) */ 01079000 */*%INCLUDE SYSLIB (IKJECT ) */ 01080000 */*%INCLUDE SYSLIB (IKJUPT ) */ 01081000 */*%INCLUDE SYSLIB (BLSUSERV) */ 01082000 */*%INCLUDE SYSLIB (BLRSERV ) */ 01083000 */*%INCLUDE SYSLIB (BLRSERVD) */ 01084000 */*%INCLUDE SYSLIB (BLSDSERV) */ 01085000 */*%INCLUDE SYSLIB (BLSEDP ) */ 01086000 */*%INCLUDE SYSLIB (BLSPDR ) */ 01087000 */*%INCLUDE SYSLIB (BLSFP ) */ 01088000 * 0459 01089000 * ; 0459 01090000 @EL00001 L @13,4(,@13) 0459 01091000 @EF00001 L @00,@SIZDATD 0459 01092000 LR @01,@11 0459 01093000 BLSUFRER R,LV=(0),A=(1) 01094000 @ER00001 LM @14,@12,12(@13) 0459 01095000 BR @14 0459 01096000 @DATA DS 0H 01097000 @CH00040 DC H'1' 01098000 @CH00067 DC H'2' 01099000 @CH00093 DC H'3' 01100000 @SM01179 MVC 0(0,@04),PIDI(@07) 01101000 @DATD DSECT 01102000 DS 0F 01103000 @SA00001 DS 18F 01104000 @AL00001 DS 6A 01105000 @AFTEMPS DS 1F 01106000 BLSEDEL0 CSECT 01107000 DS 0F 01108000 @CF00045 DC F'0' 01109000 @CF00037 DC F'4' 01110000 @CF00090 DC F'5' 01111000 @CH00090 EQU @CF00090+2 01112000 @CF00048 DC F'8' 01113000 @CF00802 DC F'14' 01114000 @CF00051 DC F'16' 01115000 @CF01169 DC F'416' 01116000 @CF01107 DC F'4001' 01117000 @CF01109 DC F'4002' 01118000 @CF01111 DC F'4003' 01119000 @CF01113 DC F'4042' 01120000 @CF01115 DC F'4043' 01121000 @CF01117 DC F'4045' 01122000 @CF01119 DC F'5400' 01123000 @CF01121 DC F'-1' 01124000 @CF00060 DC XL4'80000000' 01125000 @CF01130 DC XL4'FFFFFFF8' 01126000 @DATD DSECT 01127000 DS 0D 01128000 PDAPTR DS A 01129000 MSGQ DS A 01130000 AUXMSGQ DS A 01131000 DS CL4 01132000 STATREC DS CL416 01133000 DELKEY DS CL14 01134000 ORG DELKEY 01135000 KEYRECTY DS CL2 01136000 KEYPID DS CL8 01137000 KEYRECSQ DS CL4 01138000 ORG DELKEY+14 01139000 DELPID DS CL8 01140000 ORG DELPID 01141000 DELPREF DS CL3 01142000 DELPNUM DS CL5 01143000 ORG DELPID+8 01144000 RECFOUND DS BL1 01145000 DS CL1 01146000 IOPTLIST DS 6A 01147000 BLSEDEL0 CSECT 01148000 DS 0F 01149000 @SIZDATD DC AL1(0) 01150000 DC AL3(@ENDDATD-@DATD) 01151000 @CV01159 DC V(BLSEDEL1) 01152000 DS 0D 01153000 PCPTR DC AL4(PC) 01154000 @CC00103 DC C'000 ' 01155000 @CC01089 DC C'00000000' 01156000 @CC01082 EQU @CC01089 01157000 @CC01131 DC C'DMCB' 01158000 @CC00869 DC C'ST' 01159000 @CC01091 EQU @CC01131 01160000 @CC01097 DC C'E' 01161000 @CB01181 DC X'00' 01162000 @CB01127 DC B'00010000' 01163000 @CB01147 DC B'00000000' 01164000 @CB01149 DC B'10010000' 01165000 @DATD DSECT 01166000 SPACE 2 01167000 *********************************************************************** 01168000 * THE FOLLOWING AREA, BLRPATCH, IS RESERVED FOR PATCH APPLICATION * 01169000 * TO OBTAIN PATCH ROOM IN THE @DATD AUTOMATIC STORAGE AREA, MODIFY * 01170000 * CONSTANT @SIZDATD TO REFLECT THE DESIRED @DATD SIZE * 01171000 *********************************************************************** 01172000 SPACE 01173000 BLSEDEL0 CSECT 01174000 ORG 01175000 DS 0D 01176000 BLRPATCH DC CL8'ZAPAREA',(((*-BLSEDEL0+19)/20+7)/8)CL8'BLSEDEL0' 01177000 @DATD DSECT 01178000 SPACE 2 01179000 *********************************************************************** 01180000 * IKJPARM--BEGIN MACROS SPECIFYING COMMAND SYNTAX * 01181000 *********************************************************************** 01182000 SPACE 01183000 BLSEDEL0 CSECT 01184000 PC IKJPARM DSECT=PD 01185000 @DATD DSECT 01186000 BLSEDEL0 CSECT 01187000 PIDWD IKJKEYWD 01188000 @DATD DSECT 01189000 BLSEDEL0 CSECT 01190000 IKJNAME 'PROBLEM',SUBFLD=PROBSUB 01191000 @DATD DSECT 01192000 BLSEDEL0 CSECT 01193000 PXTEST IKJKEYWD 01194000 @DATD DSECT 01195000 BLSEDEL0 CSECT 01196000 IKJNAME 'TEST' 01197000 @DATD DSECT 01198000 BLSEDEL0 CSECT 01199000 IKJNAME 'NOTEST' 01200000 @DATD DSECT 01201000 BLSEDEL0 CSECT 01202000 PXCONF IKJKEYWD 01203000 @DATD DSECT 01204000 BLSEDEL0 CSECT 01205000 IKJNAME 'CONFIRM' 01206000 @DATD DSECT 01207000 BLSEDEL0 CSECT 01208000 IKJNAME 'NOCONFIRM' 01209000 @DATD DSECT 01210000 BLSEDEL0 CSECT 01211000 SPACE 01212000 PROBSUB IKJSUBF 01213000 @DATD DSECT 01214000 BLSEDEL0 CSECT 01215000 PID IKJIDENT 'PID',UPPERCASE,FIRST=NUMERIC,MAXLNTH=5,OTHER=NUMERIC*01216000 ,PROMPT='PROBLEM NUMBER' 01217000 @DATD DSECT 01218000 PD DSECT 01219000 LISTEND DS 0C 01220000 BLSEDEL0 CSECT 01221000 IKJENDP 01222000 SPACE 2 01223000 *********************************************************************** 01224000 * IKJENDP--END SYNTAX DESCRIPTION * 01225000 *********************************************************************** 01226000 SPACE 01227000 @DATD DSECT 01228000 SPACE 2 01229000 *********************************************************************** 01230000 * ALIGN END OF DATA ON A DOUBLEWORD BOUNDARY * 01231000 *********************************************************************** 01232000 SPACE 01233000 DS 0D 01234000 @DATD DSECT 01235000 ORG *+1-(*-@DATD)/(*-@DATD) INSURE DSECT DATA 01236000 @ENDDATD EQU * 01237000 BLSEDEL0 CSECT 01238000 @00 EQU 00 EQUATES FOR REGISTERS 0-15 01239000 @01 EQU 01 01240000 @02 EQU 02 01241000 @03 EQU 03 01242000 @04 EQU 04 01243000 @05 EQU 05 01244000 @06 EQU 06 01245000 @07 EQU 07 01246000 @08 EQU 08 01247000 @09 EQU 09 01248000 @10 EQU 10 01249000 @11 EQU 11 01250000 @12 EQU 12 01251000 @13 EQU 13 01252000 @14 EQU 14 01253000 @15 EQU 15 01254000 AUXMSGQP EQU @02 01255000 PDRDMCBP EQU @08 01256000 DMRTC EQU @02 01257000 RETC EQU @07 01258000 ZZ2PTR EQU @06 01259000 R0 EQU @00 01260000 R1 EQU @01 01261000 R2 EQU @02 01262000 R3 EQU @03 01263000 R4 EQU @04 01264000 R5 EQU @05 01265000 R9 EQU @09 01266000 RB EQU @11 01267000 RD EQU @13 01268000 RE EQU @14 01269000 RF EQU @15 01270000 PDRPTR EQU @05 01271000 GPR15F EQU @15 01272000 GPR01P EQU @01 01273000 GPR00F EQU @00 01274000 GPR01F EQU @01 01275000 RA EQU @10 01276000 RC EQU @12 01277000 R6 EQU @06 01278000 R7 EQU @07 01279000 R8 EQU @08 01280000 ZZ1 EQU 0 01281000 ZZ1PDRP EQU ZZ1+40 01282000 ZZ1FPP EQU ZZ1+140 01283000 ZZ1ATTN EQU ZZ1+360 01284000 ZZ1EVE EQU ZZ1ATTN+4 01285000 ZZ1EVEP EQU ZZ1EVE 01286000 ZZ1F EQU ZZ1+368 01287000 ZZ1N EQU ZZ1+1116 01288000 ZZ2 EQU 0 01289000 ZZ2AMD EQU ZZ2 01290000 @NM00013 EQU ZZ2AMD+7 01291000 ZZ2PRT EQU ZZ2+138 01292000 ZZ2PRTT EQU ZZ2PRT+4 01293000 ZZ2PRTT1 EQU ZZ2PRTT+1 01294000 ZZ2A EQU ZZ2+272 01295000 ZZ2AF EQU ZZ2A+16 01296000 ZZ2AFP EQU ZZ2AF 01297000 ZZ2AFT EQU ZZ2AF 01298000 ZZ2AFC EQU ZZ2AF+1 01299000 ZZ2AFX EQU ZZ2AF+5 01300000 ZZ2APID EQU ZZ2A+64 01301000 ZZ2AD EQU ZZ2A+74 01302000 ZZ2ADD EQU ZZ2AD 01303000 ZZ2ADDT EQU ZZ2ADD+2 01304000 ZZ2ADM EQU ZZ2AD+46 01305000 ZZ2ADMT EQU ZZ2ADM+2 01306000 ZZ2ADP EQU ZZ2AD+56 01307000 ZZ2ADPT EQU ZZ2ADP+2 01308000 ZZ2AQAS EQU ZZ2A+144 01309000 ZZ2AQD EQU ZZ2A+160 01310000 ZZ2AQDT EQU ZZ2AQD+10 01311000 ZZ2AQDF EQU ZZ2AQD+52 01312000 ZZ2STG EQU ZZ2+960 01313000 ZZ2ALLOP EQU ZZ2+992 01314000 ZZ2FREEP EQU ZZ2+996 01315000 ZZ2FF19P EQU ZZ2+1000 01316000 ZZ2FRE1P EQU ZZ2+1004 01317000 ZZ2FF18P EQU ZZ2+1008 01318000 ZZ2DYNAP EQU ZZ2+1012 01319000 ZZ2ZZ2CP EQU ZZ2+1016 01320000 ZZ2ZZ2DP EQU ZZ2+1020 01321000 ZZ2STAIP EQU ZZ2+1024 01322000 ZZ2FF02P EQU ZZ2+1028 01323000 ZZ2GETLP EQU ZZ2+1032 01324000 ZZ2PARSP EQU ZZ2+1036 01325000 ZZ2PTGTP EQU ZZ2+1040 01326000 ZZ2PUTLP EQU ZZ2+1044 01327000 ZZ2SCANP EQU ZZ2+1048 01328000 ZZ2STCKP EQU ZZ2+1052 01329000 ZZ2ALOCP EQU ZZ2+1056 01330000 ZZ2MSGSP EQU ZZ2+1060 01331000 ZZ2TRMOP EQU ZZ2+1064 01332000 ZZ2TRMVP EQU ZZ2+1068 01333000 ZZ2MSG0P EQU ZZ2+1076 01334000 ZZ2PUTNP EQU ZZ2+1084 01335000 ZZ2TRMNP EQU ZZ2+1088 01336000 ZZ2ENQ0P EQU ZZ2+1092 01337000 ZZ2ADSDP EQU ZZ2+1096 01338000 ZZ2APDRP EQU ZZ2+1100 01339000 ZZ2FDSDP EQU ZZ2+1104 01340000 ZZ2FPDRP EQU ZZ2+1108 01341000 ZZ2ZZ1P EQU ZZ2+1264 01342000 ZZ2DVTP EQU ZZ2+1276 01343000 ZZ2BVTP EQU ZZ2+1280 01344000 ZZ2CPPL EQU ZZ2+1292 01345000 ZZ2CPPLC EQU ZZ2CPPL 01346000 ZZ2ITR EQU ZZ2+2840 01347000 ZZ2ITRE EQU ZZ2ITR+16 01348000 ZZ2ITSE EQU ZZ2+2864 01349000 ZZ2ES EQU ZZ2+2872 01350000 ZZ2AMDX EQU ZZ2+7160 01351000 ZZ2AXO EQU ZZ2+7934 01352000 ZZ2AXOT EQU ZZ2AXO+2 01353000 CMD EQU 0 01354000 CMDT EQU CMD+4 01355000 PSCB EQU 0 01356000 PSCBATR1 EQU PSCB+16 01357000 ECT EQU 0 01358000 ECTSWS EQU ECT+28 01359000 ECTSWS2 EQU ECT+40 01360000 ECTSWS21 EQU ECTSWS2 01361000 UPT EQU 0 01362000 UPTSWS EQU UPT+12 01363000 SA EQU 0 01364000 SA1 EQU SA 01365000 SAR EQU SA+12 01366000 BLSUPARI EQU 0 01367000 BVT EQU 0 01368000 BVTPUTLP EQU BVT+4 01369000 BVTPUTOP EQU BVT+12 01370000 BVTPUTTP EQU BVT+16 01371000 BVTPUTVP EQU BVT+20 01372000 BVTPUTAP EQU BVT+24 01373000 BVTPRTTP EQU BVT+28 01374000 BVTPRTAP EQU BVT+32 01375000 BVTPUTDP EQU BVT+36 01376000 BVTMONP EQU BVT+40 01377000 BVTMON2P EQU BVT+44 01378000 BVTVSARP EQU BVT+48 01379000 BVTVSENP EQU BVT+64 01380000 BVTVSERP EQU BVT+68 01381000 BVTVSGEP EQU BVT+72 01382000 BVTVSGUP EQU BVT+76 01383000 BVTVSPOP EQU BVT+80 01384000 BVTVSPUP EQU BVT+84 01385000 BVTMPKNP EQU BVT+104 01386000 BVTMONLP EQU BVT+108 01387000 BVTPUTCP EQU BVT+132 01388000 BVTMPK1P EQU BVT+136 01389000 BVTZZ2RP EQU BVT+140 01390000 BVTPGMRP EQU BVT+144 01391000 BVTMONAP EQU BVT+148 01392000 BVTBLDDP EQU BVT+152 01393000 BVTBLDLP EQU BVT+156 01394000 BVTPGMCP EQU BVT+160 01395000 BVTPGMDP EQU BVT+164 01396000 BVTPGMLP EQU BVT+168 01397000 BVTMONCP EQU BVT+180 01398000 BVTMONDP EQU BVT+184 01399000 BVTMONTP EQU BVT+188 01400000 BVTPARIP EQU BVT+192 01401000 BVTPARUP EQU BVT+196 01402000 BVTPRTNP EQU BVT+204 01403000 BVTVSCRP EQU BVT+208 01404000 BVTVSMRP EQU BVT+212 01405000 BVTMONXP EQU BVT+216 01406000 BVTTRMAP EQU BVT+228 01407000 BLSDDEQP EQU 0 01408000 BLSDENQP EQU 0 01409000 BLSDMSGS EQU 0 01410000 BLSDMSG0 EQU 0 01411000 BLSEAUTH EQU 0 01412000 DVT EQU 0 01413000 DVTDEQPP EQU DVT+8 01414000 DVTENQPP EQU DVT+12 01415000 DVTAUTHP EQU DVT+20 01416000 DVTLPCLP EQU DVT+24 01417000 DVTBP00P EQU DVT+28 01418000 DVTCN00P EQU DVT+32 01419000 DVTDF00P EQU DVT+36 01420000 DVTDS00P EQU DVT+44 01421000 DVTFL00P EQU DVT+48 01422000 DVTFP00P EQU DVT+52 01423000 DVTGD00P EQU DVT+56 01424000 DVTGG00P EQU DVT+60 01425000 DVTGP00P EQU DVT+64 01426000 DVTND00P EQU DVT+68 01427000 DVTND01P EQU DVT+72 01428000 DVTOD00P EQU DVT+76 01429000 DVTPS00P EQU DVT+80 01430000 DVTSD00P EQU DVT+84 01431000 DVTSL00P EQU DVT+88 01432000 DVTTL00P EQU DVT+92 01433000 DVTUD00P EQU DVT+96 01434000 DVTUP00P EQU DVT+100 01435000 DVTLP00P EQU DVT+104 01436000 DVTLALLP EQU DVT+108 01437000 DVTLPFMP EQU DVT+112 01438000 DVTCLOSP EQU DVT+116 01439000 DVTOPENP EQU DVT+120 01440000 DVTPERAP EQU DVT+124 01441000 DVTDALLP EQU DVT+128 01442000 PCCSECT EQU 0 01443000 PDDSECT EQU 0 01444000 PDXP EQU PDDSECT+1 01445000 PDL EQU PDDSECT+5 01446000 PIDI EQU 0 01447000 PDREC EQU 0 01448000 PDRKEY EQU PDREC 01449000 PDRGRP EQU PDRKEY 01450000 PDRKRCTY EQU PDRGRP 01451000 PDRKPID EQU PDRGRP+2 01452000 PDRKPREF EQU PDRKPID 01453000 PDRKPNUM EQU PDRKPID+3 01454000 PDRRECSQ EQU PDRKEY+10 01455000 PDRINFO EQU PDREC+16 01456000 FPBLOK EQU 0 01457000 FPPIDP EQU FPBLOK+96 01458000 FPDBPIDP EQU FPBLOK+100 01459000 FPADMNM EQU FPBLOK+120 01460000 FPDELNM EQU FPBLOK+128 01461000 DMCB EQU 0 01462000 DMCBID EQU DMCB 01463000 DMCBFTY EQU DMCB+20 01464000 DMCBOPN EQU DMCB+21 01465000 DMCBRQST EQU DMCB+22 01466000 DMCBRMOD EQU DMCB+23 01467000 DMCBOUT EQU DMCBRMOD 01468000 DMCBTMP EQU DMCBOUT 01469000 DMCBRM6 EQU DMCBRMOD 01470000 DMCBRM5 EQU DMCBRMOD 01471000 DMCBOPTS EQU DMCB+24 01472000 DMCBKYD EQU DMCBOPTS 01473000 DMCBGKY EQU DMCBOPTS 01474000 DMCBAPX EQU DMCBOPTS 01475000 DMCBUPD EQU DMCBOPTS 01476000 DMCBMFLG EQU DMCB+28 01477000 DMCBBUFP EQU DMCB+32 01478000 DMCBBLEN EQU DMCB+36 01479000 DMCBKEYP EQU DMCB+44 01480000 DMCBKEYL EQU DMCB+48 01481000 DMCBMSG EQU DMCB+52 01482000 DMCBRI EQU DMCB+64 01483000 DMCBACBE EQU DMCB+124 01484000 DMCBSPEC EQU DMCB+380 01485000 DMCBAMS EQU DMCB+416 01486000 DMCBAUDT EQU DMCB+568 01487000 DMCBLSCP EQU DMCBAUDT+16 01488000 DMCBDMGR EQU 0 01489000 I015F EQU 0 01490000 BLSCALOC EQU 0 01491000 BLSDADSD EQU 0 01492000 BLSDAPDR EQU 0 01493000 BLSDENQ0 EQU 0 01494000 BLSDFDSD EQU 0 01495000 BLSDFPDR EQU 0 01496000 BLSELPCL EQU 0 01497000 BLSELPFM EQU 0 01498000 BLSFBP00 EQU 0 01499000 BLSFCLOS EQU 0 01500000 BLSFCN00 EQU 0 01501000 BLSFDALL EQU 0 01502000 BLSFDF00 EQU 0 01503000 BLSFDS00 EQU 0 01504000 BLSFFL00 EQU 0 01505000 BLSFFP00 EQU 0 01506000 BLSFGD00 EQU 0 01507000 BLSFGG00 EQU 0 01508000 BLSFGP00 EQU 0 01509000 BLSFLALL EQU 0 01510000 BLSFLP00 EQU 0 01511000 BLSFND00 EQU 0 01512000 BLSFND01 EQU 0 01513000 BLSFOD00 EQU 0 01514000 BLSFOPEN EQU 0 01515000 BLSFPERA EQU 0 01516000 BLSFPS00 EQU 0 01517000 BLSFSD00 EQU 0 01518000 BLSFSL00 EQU 0 01519000 BLSFTL00 EQU 0 01520000 BLSFUD00 EQU 0 01521000 BLSFUP00 EQU 0 01522000 BLSUALLO EQU 0 01523000 BLSUBLDD EQU 0 01524000 BLSUBLDL EQU 0 01525000 BLSUDYNA EQU 0 01526000 BLSUFREE EQU 0 01527000 BLSUFRE1 EQU 0 01528000 BLSUMON EQU 0 01529000 BLSUMONA EQU 0 01530000 BLSUMONC EQU 0 01531000 BLSUMOND EQU 0 01532000 BLSUMONL EQU 0 01533000 BLSUMONT EQU 0 01534000 BLSUMONX EQU 0 01535000 BLSUMON2 EQU 0 01536000 BLSUMPKN EQU 0 01537000 BLSUMPK1 EQU 0 01538000 BLSUPARU EQU 0 01539000 BLSUPGMC EQU 0 01540000 BLSUPGMD EQU 0 01541000 BLSUPGML EQU 0 01542000 BLSUPGMR EQU 0 01543000 BLSUPRTA EQU 0 01544000 BLSUPRTN EQU 0 01545000 BLSUPRTT EQU 0 01546000 BLSUPUTA EQU 0 01547000 BLSUPUTC EQU 0 01548000 BLSUPUTD EQU 0 01549000 BLSUPUTL EQU 0 01550000 BLSUPUTN EQU 0 01551000 BLSUPUTO EQU 0 01552000 BLSUPUTT EQU 0 01553000 BLSUPUTV EQU 0 01554000 BLSUSTAI EQU 0 01555000 BLSUTRMA EQU 0 01556000 BLSUTRMN EQU 0 01557000 BLSUTRMO EQU 0 01558000 BLSUTRMV EQU 0 01559000 BLSUVSAR EQU 0 01560000 BLSUVSCR EQU 0 01561000 BLSUVSEN EQU 0 01562000 BLSUVSER EQU 0 01563000 BLSUVSGE EQU 0 01564000 BLSUVSGU EQU 0 01565000 BLSUVSMR EQU 0 01566000 BLSUVSPO EQU 0 01567000 BLSUVSPU EQU 0 01568000 BLSUZZ2C EQU 0 01569000 BLSUZZ2D EQU 0 01570000 BLSUZZ2R EQU 0 01571000 DMCBRQC EQU 0 01572000 IKJEFF02 EQU 0 01573000 IKJEFF18 EQU 0 01574000 IKJEFF19 EQU 0 01575000 IKJGETL EQU 0 01576000 IKJPARS EQU 0 01577000 IKJPTGT EQU 0 01578000 IKJPUTL EQU 0 01579000 IKJSCAN EQU 0 01580000 IKJSTCK EQU 0 01581000 I001C EQU 0 01582000 I008P EQU 0 01583000 I015P EQU 0 01584000 I031F EQU 0 01585000 I031P EQU 0 01586000 I256C EQU 0 01587000 PIDIP EQU PID 01588000 PIDIL EQU PID+4 01589000 PIDIF EQU PID+6 01590000 PIDIFP EQU PIDIF 01591000 CPPL EQU ZZ2CPPL 01592000 CPPLUPT EQU CPPL+4 01593000 CPPLPSCB EQU CPPL+8 01594000 CPPLECT EQU CPPL+12 01595000 PDRSTREC EQU PDRINFO 01596000 PDRODATE EQU PDRSTREC 01597000 PDROWNNM EQU PDRSTREC+32 01598000 PDRDEREC EQU PDRINFO 01599000 PDRDESCR EQU PDRDEREC 01600000 PDRTRREC EQU PDRINFO 01601000 PDRTRARR EQU PDRTRREC 01602000 PDRHSREC EQU PDRINFO 01603000 PDRDSREC EQU PDRINFO 01604000 PDRDSNM EQU PDRDSREC 01605000 PDRSVALU EQU PDRODATE 01606000 DMCBVSM EQU DMCBAMS 01607000 DMCBQSM EQU DMCBAMS 01608000 * START UNREFERENCED COMPONENTS 01609000 DMCBRES7 EQU DMCBQSM+96 01610000 DMCBDCB EQU DMCBQSM 01611000 DMCBACB EQU DMCBVSM+76 01612000 DMCBRPL EQU DMCBVSM 01613000 PDRSVNUM EQU PDRSVALU+3 01614000 PDRSVRES EQU PDRSVALU 01615000 PDRDSRES EQU PDRDSREC+52 01616000 PDRMEMB EQU PDRDSNM+44 01617000 PDRDSN EQU PDRDSNM 01618000 PDRHYMSD EQU PDRHSREC+4 01619000 PDRHSLEN EQU PDRHSREC 01620000 PDRTRKD EQU PDRTRARR 01621000 PDRDESC EQU PDRDESCR 01622000 PDRDSSEQ EQU PDRSTREC+396 01623000 PDRRES6 EQU PDRSTREC+392 01624000 PDRTRKL EQU PDRSTREC+388 01625000 PDRDESCL EQU PDRSTREC+384 01626000 PDRABS EQU PDRSTREC+256 01627000 PDRRES5 EQU PDRSTREC+252 01628000 PDRFIXID EQU PDRSTREC+192 01629000 PDRFTIME EQU PDRSTREC+184 01630000 PDRFDATE EQU PDRSTREC+176 01631000 PDRFSTAT EQU PDRSTREC+172 01632000 PDRRES4 EQU PDRSTREC+167 01633000 PDRPTFID EQU PDRSTREC+160 01634000 PDRTTIME EQU PDRSTREC+152 01635000 PDRTDATE EQU PDRSTREC+144 01636000 PDRTSTAT EQU PDRSTREC+140 01637000 PDRRES3 EQU PDRSTREC+135 01638000 PDRAPRID EQU PDRSTREC+128 01639000 PDRITIME EQU PDRSTREC+120 01640000 PDRIDATE EQU PDRSTREC+112 01641000 PDRISTAT EQU PDRSTREC+104 01642000 PDRRTIME EQU PDRSTREC+96 01643000 PDRRDATE EQU PDRSTREC+88 01644000 PDRPTIME EQU PDRSTREC+80 01645000 PDRPDATE EQU PDRSTREC+72 01646000 PDRPSTAT EQU PDRSTREC+64 01647000 PDRUSER EQU PDRSTREC+56 01648000 PDRSYS EQU PDRSTREC+48 01649000 PDRGROUP EQU PDRSTREC+40 01650000 PDROWNLN EQU PDROWNNM+7 01651000 PDROWNID EQU PDROWNNM 01652000 PDRRES1 EQU PDRSTREC+27 01653000 PDRSEV EQU PDRSTREC+26 01654000 PDRCOMP EQU PDRSTREC+16 01655000 PDROTIME EQU PDRSTREC+8 01656000 CPPLCBUF EQU CPPL 01657000 @NM00071 EQU PID+8 01658000 @NM00070 EQU PID+7 01659000 PIDIF8 EQU PIDIF 01660000 PIDIF7 EQU PIDIF 01661000 PIDIF6 EQU PIDIF 01662000 PIDIF5 EQU PIDIF 01663000 PIDIF4 EQU PIDIF 01664000 PIDIF3 EQU PIDIF 01665000 PIDIF2 EQU PIDIF 01666000 DMCBWRK EQU DMCB+648 01667000 DMCBRES8 EQU DMCB+640 01668000 DMCBMODN EQU DMCB+632 01669000 DMCBCARY EQU DMCBAUDT+20 01670000 DMCBCLC EQU DMCBAUDT+12 01671000 DMCBOPC EQU DMCBAUDT+8 01672000 DMCBFRC EQU DMCBAUDT+4 01673000 DMCBALC EQU DMCBAUDT 01674000 DMCBFR EQU DMCB+412 01675000 DMCBRES6 EQU DMCB+410 01676000 DMCBIRSC EQU DMCB+408 01677000 DMCBSUBC EQU DMCB+404 01678000 DMCBDRBP EQU DMCB+400 01679000 DMCBRSZM EQU DMCB+398 01680000 DMCBRSZA EQU DMCB+396 01681000 DMCBCISZ EQU DMCB+394 01682000 DMCBDCBL EQU DMCB+392 01683000 DMCBDCLR EQU DMCB+390 01684000 DMCBDCFM EQU DMCB+389 01685000 DMCBRES5 EQU DMCB+388 01686000 DMCBLBRT EQU DMCB+386 01687000 DMCBLBSQ EQU DMCB+384 01688000 DMCBLBPS EQU DMCB+383 01689000 DMCBLBTY EQU DMCB+382 01690000 DMCBRES4 EQU DMCB+381 01691000 DMCBSPRS EQU DMCBSPEC 01692000 DMCBSPRN EQU DMCBSPEC 01693000 DMCBSPCT EQU DMCBSPEC 01694000 DMCBSPRL EQU DMCBSPEC 01695000 DMCBSPSE EQU DMCB+376 01696000 DMCBSPPR EQU DMCB+372 01697000 DMCBSPTY EQU DMCB+369 01698000 DMCBODIS EQU DMCB+368 01699000 DMCBDISP EQU DMCB+367 01700000 DMCBSTAT EQU DMCB+366 01701000 DMCBRES3 EQU DMCB+364 01702000 DMCBMEMB EQU DMCB+356 01703000 DMCBMODL EQU DMCB+348 01704000 DMCBRES9 EQU DMCB+340 01705000 DMCBPID EQU DMCB+332 01706000 DMCBTYPE EQU DMCB+328 01707000 DMCBDSN EQU DMCB+284 01708000 DMCBUNIT EQU DMCB+276 01709000 DMCBDSOR EQU DMCB+274 01710000 DMCBVOL EQU DMCB+268 01711000 DMCBDDNM EQU DMCB+260 01712000 DMCBSYNM EQU DMCB+132 01713000 DMCBRPLF EQU DMCB+128 01714000 DMCBDCBE EQU DMCBACBE 01715000 DMCBARC EQU DMCB+120 01716000 DMCBCPC EQU DMCB+116 01717000 DMCBRET EQU DMCB+112 01718000 DMCBSTL EQU DMCB+96 01719000 DMCBEOB EQU DMCB+92 01720000 DMCBFRE EQU DMCB+88 01721000 DMCBRES2 EQU DMCB+85 01722000 DMCBSPID EQU DMCB+84 01723000 DMCBRESC EQU DMCB+80 01724000 DMCBZZ1P EQU DMCB+76 01725000 DMCBMSGS EQU DMCB+72 01726000 DMCBMSG0 EQU DMCB+68 01727000 DMCBRRL EQU DMCB+60 01728000 DMCBRBA EQU DMCB+56 01729000 DMCBKPC EQU DMCBKEYP 01730000 DMCBORL EQU DMCB+40 01731000 DMCBBFPC EQU DMCBBUFP 01732000 DMCBRES1 EQU DMCB+31 01733000 DMCBACCM EQU DMCB+30 01734000 DMCBREJ EQU DMCB+29 01735000 DMCBRESB EQU DMCBMFLG 01736000 DMCBFMOD EQU DMCBMFLG 01737000 DMCBLOPT EQU DMCB+27 01738000 DMCBLRM EQU DMCB+26 01739000 DMCBLRQ EQU DMCB+25 01740000 DMCBOPRS EQU DMCBOPTS 01741000 DMCBLRD EQU DMCBOPTS 01742000 DMCBBWD EQU DMCBOPTS 01743000 DMCBRNO EQU DMCBGKY 01744000 DMCBRMRS EQU DMCBRMOD 01745000 DMCBRESA EQU DMCBOPN 01746000 DMCBSOUT EQU DMCBOPN 01747000 DMCBSIN EQU DMCBOPN 01748000 DMCBVSF EQU DMCBFTY 01749000 DMCBKSF EQU DMCBFTY 01750000 DMCBFTRS EQU DMCBFTY 01751000 DMCBSHF EQU DMCBFTY 01752000 DMCBIRL EQU DMCB+16 01753000 DMCBRTC EQU DMCB+12 01754000 DMCBTVP EQU DMCB+8 01755000 DMCBNEXT EQU DMCB+4 01756000 FPRES6 EQU FPBLOK+136 01757000 FPDELLN EQU FPDELNM+7 01758000 FPDELID EQU FPDELNM 01759000 FPADMLN EQU FPADMNM+7 01760000 FPADMID EQU FPADMNM 01761000 FPGRPID EQU FPBLOK+112 01762000 FPSYSID EQU FPBLOK+104 01763000 FPRES4 EQU FPBLOK+103 01764000 FPRES3 EQU FPBLOK+99 01765000 FPRES2 EQU FPBLOK+92 01766000 FPDSDS EQU FPBLOK+48 01767000 FPRES1 EQU FPBLOK+44 01768000 FPPDDS EQU FPBLOK 01769000 PDRRESV EQU PDREC+14 01770000 PDSP EQU PDDSECT+4 01771000 @NM00069 EQU PDDSECT 01772000 DVT99999 EQU DVT+256 01773000 DVT0064P EQU DVT+252 01774000 DVT0063P EQU DVT+248 01775000 DVT0062P EQU DVT+244 01776000 DVT0061P EQU DVT+240 01777000 DVT0060P EQU DVT+236 01778000 DVT0059P EQU DVT+232 01779000 DVT0058P EQU DVT+228 01780000 DVT0057P EQU DVT+224 01781000 DVT0056P EQU DVT+220 01782000 DVT0055P EQU DVT+216 01783000 DVT0054P EQU DVT+212 01784000 DVT0053P EQU DVT+208 01785000 DVT0052P EQU DVT+204 01786000 DVT0051P EQU DVT+200 01787000 DVT0050P EQU DVT+196 01788000 DVT0049P EQU DVT+192 01789000 DVT0048P EQU DVT+188 01790000 DVT0047P EQU DVT+184 01791000 DVT0046P EQU DVT+180 01792000 DVT0045P EQU DVT+176 01793000 DVT0044P EQU DVT+172 01794000 DVT0043P EQU DVT+168 01795000 DVT0042P EQU DVT+164 01796000 DVT0041P EQU DVT+160 01797000 DVT0040P EQU DVT+156 01798000 DVT0039P EQU DVT+152 01799000 DVT0038P EQU DVT+148 01800000 DVT0037P EQU DVT+144 01801000 DVT0036P EQU DVT+140 01802000 DVT0035P EQU DVT+136 01803000 DVT0034P EQU DVT+132 01804000 DVT0011P EQU DVT+40 01805000 DVT0005P EQU DVT+16 01806000 DVT0002P EQU DVT+4 01807000 DVT0001P EQU DVT 01808000 BVT99999 EQU BVT+256 01809000 BVT0064P EQU BVT+252 01810000 BVT0063P EQU BVT+248 01811000 BVT0062P EQU BVT+244 01812000 BVT0061P EQU BVT+240 01813000 BVT0060P EQU BVT+236 01814000 BVT0059P EQU BVT+232 01815000 BVT0057P EQU BVT+224 01816000 BVT0056P EQU BVT+220 01817000 BVTSTBLP EQU BVT+200 01818000 BVT0045P EQU BVT+176 01819000 BVT0044P EQU BVT+172 01820000 BVT0033P EQU BVT+128 01821000 BVT0032P EQU BVT+124 01822000 BVT0031P EQU BVT+120 01823000 BVT0030P EQU BVT+116 01824000 BVT0029P EQU BVT+112 01825000 BVT0026P EQU BVT+100 01826000 BVT0025P EQU BVT+96 01827000 BVT0024P EQU BVT+92 01828000 BVT0023P EQU BVT+88 01829000 BVT0016P EQU BVT+60 01830000 BVT0015P EQU BVT+56 01831000 BVT0014P EQU BVT+52 01832000 BVT0003P EQU BVT+8 01833000 BVT0001P EQU BVT 01834000 SA99 EQU SA+72 01835000 SARC EQU SAR+56 01836000 SARB EQU SAR+52 01837000 SARA EQU SAR+48 01838000 SAR9 EQU SAR+44 01839000 SAR8 EQU SAR+40 01840000 SAR7 EQU SAR+36 01841000 SAR6 EQU SAR+32 01842000 SAR5 EQU SAR+28 01843000 SAR4 EQU SAR+24 01844000 SAR3 EQU SAR+20 01845000 SAR2 EQU SAR+16 01846000 SAR1 EQU SAR+12 01847000 SAR0 EQU SAR+8 01848000 SARF EQU SAR+4 01849000 SARE EQU SAR 01850000 SAFWD EQU SA+8 01851000 SABAK EQU SA+4 01852000 SA1L EQU SA1+1 01853000 SA1P EQU SA1 01854000 UPTPREFL EQU UPT+23 01855000 UPTPREFX EQU UPT+16 01856000 @NM00068 EQU UPT+15 01857000 UPTLDEL EQU UPT+14 01858000 UPTCDEL EQU UPT+13 01859000 UPTWTP EQU UPTSWS 01860000 UPTMODE EQU UPTSWS 01861000 UPTALD EQU UPTSWS 01862000 UPTPAUS EQU UPTSWS 01863000 UPTNCOM EQU UPTSWS 01864000 UPTMID EQU UPTSWS 01865000 UPTNPRM EQU UPTSWS 01866000 UPTRCVR EQU UPTSWS 01867000 UPTUSER EQU UPT+2 01868000 @NM00067 EQU UPT 01869000 @NM00066 EQU ECT+52 01870000 @NM00065 EQU ECT+48 01871000 @NM00064 EQU ECT+44 01872000 @NM00063 EQU ECTSWS2+1 01873000 @NM00062 EQU ECTSWS21 01874000 ECTTABND EQU ECTSWS21 01875000 ECTDEFCS EQU ECTSWS21 01876000 ECTBKPB EQU ECT+36 01877000 ECTUSER EQU ECT+32 01878000 ECTDDNUM EQU ECT+29 01879000 ECTATTN EQU ECTSWS 01880000 ECTBKGRD EQU ECTSWS 01881000 ECTNNOT EQU ECTSWS 01882000 ECTNMAL EQU ECTSWS 01883000 ECTLOGF EQU ECTSWS 01884000 ECTATRM EQU ECTSWS 01885000 @NM00061 EQU ECTSWS 01886000 ECTNOPD EQU ECTSWS 01887000 ECTSCMD EQU ECT+20 01888000 ECTPCMD EQU ECT+12 01889000 ECTSMSG EQU ECT+9 01890000 ECTMSGF EQU ECT+8 01891000 ECTIOWA EQU ECT+4 01892000 ECTRTCD EQU ECT+1 01893000 ECTRCDF EQU ECT 01894000 PSCBU EQU PSCB+64 01895000 PSCBRSZ EQU PSCB+60 01896000 PSCBLINE EQU PSCB+59 01897000 PSCBCHAR EQU PSCB+58 01898000 PSCBUPTL EQU PSCB+56 01899000 PSCBUPT EQU PSCB+52 01900000 PSCBRLGB EQU PSCB+48 01901000 PSCBDEST EQU PSCB+40 01902000 @NM00060 EQU PSCB+36 01903000 @NM00059 EQU PSCB+32 01904000 @NM00058 EQU PSCB+28 01905000 PSCBLTI2 EQU PSCB+24 01906000 PSCBLTIM EQU PSCB+20 01907000 PSCBATR2 EQU PSCB+18 01908000 @NM00057 EQU PSCBATR1 01909000 @NM00056 EQU PSCBATR1 01910000 @NM00055 EQU PSCBATR1 01911000 PSCBATTN EQU PSCBATR1 01912000 PSCBVMNT EQU PSCBATR1 01913000 PSCBJCL EQU PSCBATR1 01914000 PSCBACCT EQU PSCBATR1 01915000 PSCBCTRL EQU PSCBATR1 01916000 PSCBGPNM EQU PSCB+8 01917000 PSCBUSRL EQU PSCB+7 01918000 PSCBUSER EQU PSCB 01919000 CMDT1 EQU CMDT 01920000 CMDO EQU CMD+2 01921000 CMDL EQU CMD 01922000 ZZ299999 EQU ZZ2+8192 01923000 ZZ2AXOT1 EQU ZZ2AXOT 01924000 ZZ2AXOL EQU ZZ2AXO 01925000 @NM00054 EQU ZZ2+7288 01926000 @NM00053 EQU ZZ2AMDX+4 01927000 ZZ2AMDXC EQU ZZ2AMDX 01928000 ZZ2HSD EQU ZZ2+3056 01929000 @NM00052 EQU ZZ2ES 01930000 @NM00051 EQU ZZ2+2868 01931000 ZZ2ITSEC EQU ZZ2ITSE+1 01932000 @NM00050 EQU ZZ2ITSE 01933000 ZZ2ITSEP EQU ZZ2ITSE 01934000 ZZ2ITSEW EQU ZZ2ITSE 01935000 @NM00049 EQU ZZ2ITR+20 01936000 ZZ2ITREC EQU ZZ2ITRE+1 01937000 @NM00048 EQU ZZ2ITRE 01938000 ZZ2ITREP EQU ZZ2ITRE 01939000 ZZ2ITREW EQU ZZ2ITRE 01940000 @NM00047 EQU ZZ2ITR+9 01941000 ZZ2ITRRC EQU ZZ2ITR+8 01942000 ZZ2ITR2P EQU ZZ2ITR+4 01943000 ZZ2ITRPP EQU ZZ2ITR 01944000 @NM00046 EQU ZZ2+1544 01945000 ZZ2PGM EQU ZZ2+1536 01946000 @NM00045 EQU ZZ2+1526 01947000 ZZ2CW EQU ZZ2+1524 01948000 @NM00044 EQU ZZ2+1504 01949000 @NM00043 EQU ZZ2+1352 01950000 ZZ2FFSYP EQU ZZ2+1348 01951000 ZZ2SASYP EQU ZZ2+1344 01952000 ZZ2RDSYP EQU ZZ2+1340 01953000 ZZ2RASYP EQU ZZ2+1336 01954000 ZZ2PHSYP EQU ZZ2+1332 01955000 ZZ2ESSYP EQU ZZ2+1328 01956000 ZZ200SYP EQU ZZ2+1324 01957000 ZZ2SCWP EQU ZZ2+1320 01958000 ZZ2TTLP EQU ZZ2+1316 01959000 ZZ2LOADP EQU ZZ2+1312 01960000 ZZ2VRESP EQU ZZ2+1308 01961000 ZZ2CPPLE EQU ZZ2CPPL+12 01962000 ZZ2CPPLP EQU ZZ2CPPL+8 01963000 ZZ2CPPLU EQU ZZ2CPPL+4 01964000 ZZ2VRSAP EQU ZZ2+1288 01965000 ZZ2RVTP EQU ZZ2+1284 01966000 @NM00042 EQU ZZ2+1272 01967000 @NM00041 EQU ZZ2+1268 01968000 ZZ2RPLP EQU ZZ2+1260 01969000 ZZ2TCBP EQU ZZ2+1256 01970000 @NM00040 EQU ZZ2+1252 01971000 ZZ2ZZ2P EQU ZZ2+1248 01972000 @NM00039 EQU ZZ2+1112 01973000 @NM00038 EQU ZZ2+1080 01974000 ZZ2FT25P EQU ZZ2+1072 01975000 @NM00037 EQU ZZ2+976 01976000 ZZ2TOD EQU ZZ2+968 01977000 ZZ2STGN EQU ZZ2STG+4 01978000 ZZ2STGP EQU ZZ2STG 01979000 @NM00036 EQU ZZ2+952 01980000 ZZ2SCMDE EQU ZZ2+944 01981000 ZZ2SCMDN EQU ZZ2+936 01982000 ZZ2IDENT EQU ZZ2+928 01983000 ZZ2A9999 EQU ZZ2A+656 01984000 @NM00035 EQU ZZ2A+224 01985000 @NM00034 EQU ZZ2A+220 01986000 ZZ2AQD99 EQU ZZ2AQD+60 01987000 @NM00033 EQU ZZ2AQD+56 01988000 @NM00032 EQU ZZ2AQDF 01989000 ZZ2AQDFA EQU ZZ2AQDF 01990000 ZZ2AQDIL EQU ZZ2AQD+48 01991000 ZZ2AQDIM EQU ZZ2AQD+44 01992000 ZZ2AQDT9 EQU ZZ2AQDT+34 01993000 ZZ2AQDTE EQU ZZ2AQDT+33 01994000 ZZ2AQDTD EQU ZZ2AQDT+2 01995000 @NM00031 EQU ZZ2AQDT+1 01996000 ZZ2AQDTY EQU ZZ2AQDT 01997000 ZZ2AQDT0 EQU ZZ2AQDT 01998000 ZZ2AQDLB EQU ZZ2AQD+9 01999000 ZZ2AQDOB EQU ZZ2AQD+8 02000000 ZZ2AQDLE EQU ZZ2AQD+4 02001000 ZZ2AQDOF EQU ZZ2AQD 02002000 ZZ2AQD00 EQU ZZ2AQD 02003000 ZZ2AQAS9 EQU ZZ2AQAS+16 02004000 @NM00030 EQU ZZ2AQAS+12 02005000 ZZ2AQAS2 EQU ZZ2AQAS+8 02006000 ZZ2AQAS1 EQU ZZ2AQAS+4 02007000 @NM00029 EQU ZZ2AQAS+2 02008000 ZZ2AQAST EQU ZZ2AQAS 02009000 ZZ2AQAS0 EQU ZZ2AQAS 02010000 ZZ2AZZ6P EQU ZZ2A+140 02011000 ZZ2ADPTA EQU ZZ2ADPT 02012000 ZZ2ADPL EQU ZZ2ADP 02013000 ZZ2ADMTA EQU ZZ2ADMT 02014000 ZZ2ADML EQU ZZ2ADM 02015000 ZZ2ADDTA EQU ZZ2ADDT 02016000 ZZ2ADDL EQU ZZ2ADD 02017000 @NM00028 EQU ZZ2A+72 02018000 ZZ2APIDB EQU ZZ2APID+3 02019000 ZZ2APIDA EQU ZZ2APID 02020000 @NM00027 EQU ZZ2A+24 02021000 @NM00026 EQU ZZ2AF+5 02022000 @NM00025 EQU ZZ2AF+3 02023000 ZZ2AFS EQU ZZ2AF+2 02024000 ZZ2AFD EQU ZZ2AF+2 02025000 ZZ2AFQ EQU ZZ2AF+2 02026000 ZZ2AF$ EQU ZZ2AF+2 02027000 @NM00024 EQU ZZ2AF+2 02028000 ZZ2AFM EQU ZZ2AF+2 02029000 @NM00023 EQU ZZ2AF+2 02030000 @NM00022 EQU ZZ2AF+1 02031000 ZZ2AFV EQU ZZ2AF+1 02032000 @NM00021 EQU ZZ2AF+1 02033000 @NM00020 EQU ZZ2AF 02034000 ZZ2AFFS EQU ZZ2AF 02035000 @NM00019 EQU ZZ2A+8 02036000 ZZ2ALINE EQU ZZ2A+4 02037000 @NM00018 EQU ZZ2A+3 02038000 ZZ2ASE EQU ZZ2A+2 02039000 ZZ2ACH EQU ZZ2A 02040000 @NM00017 EQU ZZ2+264 02041000 @NM00016 EQU ZZ2+263 02042000 ZZ2PRTT0 EQU ZZ2PRTT 02043000 ZZ2PRTO EQU ZZ2PRT+2 02044000 ZZ2PRTL EQU ZZ2PRT 02045000 @NM00015 EQU ZZ2AMD+56 02046000 ZZ2AMDXP EQU ZZ2AMD+52 02047000 ZZ2AMDD EQU ZZ2AMD+48 02048000 ZZ2AMDL EQU ZZ2AMD+44 02049000 ZZ2AMDU EQU ZZ2AMD+28 02050000 ZZ2AMDF EQU ZZ2AMD+24 02051000 ZZ2AMDS EQU ZZ2AMD+20 02052000 ZZ2AMDC EQU ZZ2AMD+16 02053000 ZZ2AMDP EQU ZZ2AMD+12 02054000 ZZ2AMDB EQU ZZ2AMD+8 02055000 @NM00014 EQU @NM00013 02056000 ZZ2AMD2 EQU @NM00013 02057000 ZZ2AMD1 EQU @NM00013 02058000 ZZ2AMD0 EQU ZZ2AMD+6 02059000 ZZ2AMDA EQU ZZ2AMD+4 02060000 ZZ2AMDT EQU ZZ2AMD 02061000 ZZ199999 EQU ZZ1+3072 02062000 @NM00012 EQU ZZ1+2160 02063000 ZZ1TRTAS EQU ZZ1+1904 02064000 ZZ1TRUPC EQU ZZ1+1648 02065000 ZZ1TRCTX EQU ZZ1+1392 02066000 ZZ1NASID EQU ZZ1N+274 02067000 ZZ1NSTRL EQU ZZ1N+272 02068000 ZZ1NOFF EQU ZZ1N+268 02069000 ZZ1NBDY EQU ZZ1N+264 02070000 ZZ1NADE EQU ZZ1N+260 02071000 ZZ1NADB EQU ZZ1N+256 02072000 ZZ1NSTR EQU ZZ1N 02073000 @NM00011 EQU ZZ1+1080 02074000 ZZ1TREBC EQU ZZ1+824 02075000 ZZ1TRHEX EQU ZZ1+568 02076000 @NM00010 EQU ZZ1+377 02077000 ZZ1USTAE EQU ZZ1+376 02078000 @NM00009 EQU ZZ1F+1 02079000 @NM00008 EQU ZZ1F 02080000 ZZ1FM EQU ZZ1F 02081000 ZZ1FX EQU ZZ1F 02082000 ZZ1FU EQU ZZ1F 02083000 ZZ1EVEC EQU ZZ1EVE+1 02084000 @NM00007 EQU ZZ1EVE 02085000 ZZ1EVEW EQU ZZ1EVE 02086000 ZZ1ACMP EQU ZZ1ATTN 02087000 @NM00006 EQU ZZ1+144 02088000 ZZ1ZZ6P EQU ZZ1+136 02089000 @NM00005 EQU ZZ1+84 02090000 ZZ1PLINE EQU ZZ1+80 02091000 ZZ1PGSZ EQU ZZ1+76 02092000 ZZ1PCNT EQU ZZ1+72 02093000 @NM00004 EQU ZZ1+68 02094000 ZZ1TPAGE EQU ZZ1+64 02095000 ZZ1TLINE EQU ZZ1+60 02096000 @NM00003 EQU ZZ1+52 02097000 ZZ1DMCBP EQU ZZ1+48 02098000 ZZ1DSDP EQU ZZ1+44 02099000 ZZ1ZZ2P EQU ZZ1+36 02100000 ZZ1327WP EQU ZZ1+32 02101000 ZZ1ACBP EQU ZZ1+28 02102000 @NM00002 EQU ZZ1+24 02103000 ZZ1PDCBP EQU ZZ1+20 02104000 ZZ1BLRBL EQU ZZ1+16 02105000 @NM00001 EQU ZZ1+12 02106000 ZZ1PNULL EQU ZZ1+8 02107000 ZZ1NULL EQU ZZ1+4 02108000 ZZ1IDE EQU ZZ1 02109000 * END UNREFERENCED COMPONENTS 02110000 @RC00376 EQU @RC00253 02111000 @RC00396 EQU @RC00253 02112000 @ENDDATA EQU * 02113000 END BLSEDEL0,(C'PLS1008',0701,78069) 02114000