ENQ0 TITLE 'BLSDENQ0- ENQUEUE ON A PROBLEM IN THE IPCS DATA BASE *00001000 ' 00002000 * /* CHANGE ACTIVITY 00003000 * THIS MODULE IS WRITTEN FOR @G57LPJD 00004000 BLSDENQ0 CSECT , 0002 00005000 @MAINENT DS 0H 0002 00006000 USING *,@15 0002 00007000 B @PROLOG 0002 00008000 DC AL1(16) 0002 00009000 DC C'BLSDENQ0 78.062' 0002 00010000 DROP @15 00011000 @PROLOG STM @14,@12,12(@13) 0002 00012000 BALR @12,0 0002 00013000 @PSTART DS 0H 0002 00014000 USING @PSTART,@12 0002 00015000 L @00,@SIZDATD 0002 00016000 BLSUALLS R,LV=(0) 00017000 LR @11,@01 0002 00018000 USING @DATD,@11 0002 00019000 ST @13,@SA00001+4 0002 00020000 LM @00,@01,20(@13) 0002 00021000 ST @11,8(,@13) 0002 00022000 LR @13,@11 0002 00023000 MVC @PC00001(20),0(@01) 0002 00024000 * 0112 00025000 * /*****************************************************************/ 00026000 * /* */ 00027000 * /* MAIN CODE BEGINS */ 00028000 * /* */ 00029000 * /*****************************************************************/ 00030000 * 0112 00031000 * RETC=0; /* RESET RETURN CODE */ 00032000 SLR RETC,RETC 0112 00033000 * SW=0; /* RESET LOOP TERMINATION SWITCH */ 00034000 SLR SW,SW 0113 00035000 * DO WHILE SW=0; /* LOOP WHILE SWITCH IS ZERO */ 00036000 B @DE00114 0114 00037000 @DL00114 DS 0H 0115 00038000 * IF ZZ1EVEP=ON THEN /* IF ATTENTION SIGNAL RECEIVED */ 00039000 L @10,@PC00001 0115 00040000 L @10,ZZ2ZZ1P(,@10) 0115 00041000 TM ZZ1EVEP(@10),B'01000000' 0115 00042000 BNO @RF00115 0115 00043000 * DO; /* RETURN WITHOUT GETTING 0116 00044000 * RESOURCE */ 00045000 * SW=1; /* TERMINATE THE LOOP */ 00046000 LA SW,1 0117 00047000 * RETC=FOUR; /* SET RETURN CODE TO FOUR */ 00048000 LA RETC,4 0118 00049000 * END; /* ALL DONE */ 00050000 * ELSE 0120 00051000 * DO; /* NO ATTENTION SIGNAL */ 00052000 B @RC00115 0120 00053000 @RF00115 DS 0H 0121 00054000 * IF TYPE='E' THEN /* CHECK FOR EXCLUSIVE REQUEST */ 00055000 L @10,@PC00001+16 0121 00056000 CLI TYPE(@10),C'E' 0121 00057000 BNE @RF00121 0121 00058000 * DO; /* ENQ 0122 00059000 * (QNAME,RNAME,E,RNAMEL,SYSTEMS) 00060000 * RET(USE) */ 00061000 * RESPECIFY 0123 00062000 * (GPR01P) RESTRICTED; 0123 00063000 * I056(1:20)=I056(1:20)&&I056(1:20);/* ZERO OUT THE TABLE*/ 00064000 XC I056(20),I056 0124 00065000 * I05604(1)=RNAMEL; /* LENGTH OF MINOR RESOURCE NAME */ 00066000 L @10,@PC00001+12 0125 00067000 L @10,RNAMEL(,@10) 0125 00068000 STC @10,I05604 0125 00069000 * I05606(1)=ADDR(QNAME);/* ADDRESS OF MAJOR RESOURCE NAME*/ 00070000 L @10,@PC00001+4 0126 00071000 ST @10,I05606 0126 00072000 * I05607(1)=ADDR(RNAME);/* ADDRESS OF MINOR RESOURCE NAME*/ 00073000 L @10,@PC00001+8 0127 00074000 ST @10,I05607 0127 00075000 * I05603(1)='01000000'B;/* SET BIT STRING 1 FOR RESOURCE 00076000 * ELEMENT */ 00077000 MVI I05603,B'01000000' 0128 00078000 * I05605(1)='01001011'B;/* SET BIT STRING 2 FOR RESOURCE 00079000 * ELEMENT */ 00080000 MVI I05605,B'01001011' 0129 00081000 * I05603(1,1)='1'B; /* SET END OF LIST BIT */ 00082000 OI I05603,B'10000000' 0130 00083000 * GPR01P=ADDR(I05602); /* LOAD LIST ADDRESS */ 00084000 LA GPR01P,I05602 0131 00085000 * SVC(56); /* ISSUE ENQ SVC */ 00086000 SVC 56 0132 00087000 * RESPECIFY 0133 00088000 * (GPR01P) UNRESTRICTED; 0133 00089000 * END; /* ENQ 0134 00090000 * (QNAME,RNAME,E,RNAMEL,SYSTEMS) 00091000 * RET(USE) */ 00092000 * ELSE 0135 00093000 * DO; /* ENQ 0135 00094000 * (QNAME,RNAME,S,RNAMEL,SYSTEMS) 00095000 * RET(USE) */ 00096000 B @RC00121 0135 00097000 @RF00121 DS 0H 0136 00098000 * RESPECIFY 0136 00099000 * (GPR01P) RESTRICTED; 0136 00100000 * I056(1:20)=I056(1:20)&&I056(1:20);/* ZERO OUT THE TABLE*/ 00101000 XC I056(20),I056 0137 00102000 * I05604(1)=RNAMEL; /* LENGTH OF MINOR RESOURCE NAME */ 00103000 L @10,@PC00001+12 0138 00104000 L @10,RNAMEL(,@10) 0138 00105000 STC @10,I05604 0138 00106000 * I05606(1)=ADDR(QNAME);/* ADDRESS OF MAJOR RESOURCE NAME*/ 00107000 L @10,@PC00001+4 0139 00108000 ST @10,I05606 0139 00109000 * I05607(1)=ADDR(RNAME);/* ADDRESS OF MINOR RESOURCE NAME*/ 00110000 L @10,@PC00001+8 0140 00111000 ST @10,I05607 0140 00112000 * I05603(1)='01000000'B;/* SET BIT STRING 1 FOR RESOURCE 00113000 * ELEMENT */ 00114000 MVI I05603,B'01000000' 0141 00115000 * I05605(1)='11001011'B;/* SET BIT STRING 2 FOR RESOURCE 00116000 * ELEMENT */ 00117000 MVI I05605,B'11001011' 0142 00118000 * I05603(1,1)='1'B; /* SET END OF LIST BIT */ 00119000 OI I05603,B'10000000' 0143 00120000 * GPR01P=ADDR(I05602); /* LOAD LIST ADDRESS */ 00121000 LA GPR01P,I05602 0144 00122000 * SVC(56); /* ISSUE ENQ SVC */ 00123000 SVC 56 0145 00124000 * RESPECIFY 0146 00125000 * (GPR01P) UNRESTRICTED; 0146 00126000 * END; /* ENQ 0147 00127000 * (QNAME,RNAME,S,RNAMEL,SYSTEMS) 00128000 * RET(USE) */ 00129000 * RESPECIFY 0148 00130000 * RF RESTRICTED; 0148 00131000 @RC00121 DS 0H 0149 00132000 * IF RF=0 THEN /* IF RESOURCE ENQUEUED */ 00133000 LTR RF,RF 0149 00134000 BNZ @RF00149 0149 00135000 * SW=1; /* TERMINATE LOOP */ 00136000 LA SW,1 0150 00137000 * ELSE 0151 00138000 * DO; /* DID NOT GET RESOURCE */ 00139000 B @RC00149 0151 00140000 @RF00149 DS 0H 0152 00141000 * GEN(STIMER WAIT,,BINTVL=WAITTIME)/* WAIT A SECOND */ 00142000 * REFS(WAITTIME) SETS(0,1);/* AFTER ONE SECOND, TRY AGAIN*/ 00143000 STIMER WAIT,,BINTVL=WAITTIME 00144000 * END; 0153 00145000 * RESPECIFY 0154 00146000 * RF UNRESTRICTED; /* RELEASE REGISTER 15 */ 00147000 @RC00149 DS 0H 0155 00148000 * END; 0155 00149000 * END; 0156 00150000 @RC00115 DS 0H 0156 00151000 @DE00114 LTR SW,SW 0156 00152000 BZ @DL00114 0156 00153000 * RETURN CODE(RETC); /* RETURN TO CALLER */ 00154000 * 0157 00155000 L @13,4(,@13) 0157 00156000 L @00,@SIZDATD 0157 00157000 LR @01,@11 0157 00158000 BLSUFRES R,LV=(0),A=(1) 00159000 LR @15,@04 0157 00160000 L @14,12(,@13) 0157 00161000 LM @00,@12,20(@13) 0157 00162000 BR @14 0157 00163000 * /*****************************************************************/ 00164000 * /* */ 00165000 * /* MAIN CODE ENDS */ 00166000 * /* */ 00167000 * /*****************************************************************/ 00168000 * 0158 00169000 * 0158 00170000 */*BLSUPEND--MVS IPCS MODULE */ 00171000 * 0158 00172000 * DECLARE /* GENERAL PURPOSE REGISTERS */ 00173000 * GPR01P PTR(31) REG(1); 0158 00174000 * DCL 0159 00175000 * 1 I056 DEF(ILIST) BDY(WORD) CHAR(32767),/* LIST FOR ENQ */ 00176000 * 3 I05600 PTR(31), /* TCB ADDR IF BOTH TCB AND ECB */ 00177000 * 3 I05601 PTR(31), /* TCB OR ECB ADDRESS */ 00178000 * 3 I05602(*) CHAR(12) BDY(WORD),/* ARRAY OF RESOURCE ELEMENTS */ 00179000 * 5 I05603 BIT(8), /* BIT FLAGS 1 */ 00180000 * 5 I05604 PTR(8), /* MINOR RESOURCE NAME LENGTH */ 00181000 * 5 I05605 BIT(8), /* BIT FLAGS 2 */ 00182000 * 5 I05655 CHAR(1), /* CONTROL PGM USE */ 00183000 * 5 I05606 PTR(31), /* MAJOR RESOURCE NAME ADDR */ 00184000 * 5 I05607 PTR(31); /* MINOR RESOURCE NAME ADDR */ 00185000 * DECLARE 0160 00186000 * ILIST CHAR(16) BDY(DWORD); /* STANDARD LIST */ 00187000 * DECLARE /* COMMON VARIABLES */ 00188000 * I256C CHAR(256) BASED, 0161 00189000 * I031F FIXED(31) BASED, 0161 00190000 * I031P PTR(31) BASED, 0161 00191000 * I015F FIXED(15) BASED, 0161 00192000 * I015P PTR(15) BASED, 0161 00193000 * I008P PTR(8) BASED, 0161 00194000 * I001C CHAR(1) BASED; 0161 00195000 * GENERATE NODEFS NOREFS DATA; 0162 00196000 * END /* BLRPEND */ 00197000 * 0163 00198000 */* THE FOLLOWING INCLUDE STATEMENTS WERE FOUND IN THIS PROGRAM. */ 00199000 */*%INCLUDE SYSLIB (BLSUZZZ ) */ 00200000 */*%INCLUDE SYSLIB (BLRFULL ) */ 00201000 */*%INCLUDE SYSLIB (IKJCPPL ) */ 00202000 */*%INCLUDE SYSLIB (IKJPSCB ) */ 00203000 */*%INCLUDE SYSLIB (IKJECT ) */ 00204000 */*%INCLUDE SYSLIB (IKJUPT ) */ 00205000 */*%INCLUDE SYSLIB (BLSUSERV) */ 00206000 */*%INCLUDE SYSLIB (BLRSERV ) */ 00207000 */*%INCLUDE SYSLIB (BLRSERVD) */ 00208000 */*%INCLUDE SYSLIB (BLSDSERV) */ 00209000 * 0163 00210000 * ; 0163 00211000 @EL00001 L @13,4(,@13) 0163 00212000 @EF00001 L @00,@SIZDATD 0163 00213000 LR @01,@11 0163 00214000 BLSUFRES R,LV=(0),A=(1) 00215000 @ER00001 LM @14,@12,12(@13) 0163 00216000 BR @14 0163 00217000 @DATA DS 0H 00218000 @DATD DSECT 00219000 DS 0F 00220000 @SA00001 DS 18F 00221000 @PC00001 DS 5F 00222000 BLSDENQ0 CSECT 00223000 DS 0F 00224000 @DATD DSECT 00225000 DS 0D 00226000 ILIST DS CL16 00227000 BLSDENQ0 CSECT 00228000 DS 0F 00229000 @SIZDATD DC AL1(0) 00230000 DC AL3(@ENDDATD-@DATD) 00231000 DS 0D 00232000 WAITTIME DC F'100' 00233000 @DATD DSECT 00234000 SPACE 2 00235000 *********************************************************************** 00236000 * THE FOLLOWING AREA, BLRPATCH, IS RESERVED FOR PATCH APPLICATION * 00237000 * TO OBTAIN PATCH ROOM IN THE @DATD AUTOMATIC STORAGE AREA, MODIFY * 00238000 * CONSTANT @SIZDATD TO REFLECT THE DESIRED @DATD SIZE * 00239000 *********************************************************************** 00240000 SPACE 00241000 BLSDENQ0 CSECT 00242000 ORG 00243000 DS 0D 00244000 BLRPATCH DC CL8'ZAPAREA',(((*-BLSDENQ0+19)/20+7)/8)CL8'BLSDENQ0' 00245000 @DATD DSECT 00246000 SPACE 2 00247000 *********************************************************************** 00248000 * ALIGN END OF DATA ON A DOUBLEWORD BOUNDARY * 00249000 *********************************************************************** 00250000 SPACE 00251000 DS 0D 00252000 @DATD DSECT 00253000 ORG *+1-(*-@DATD)/(*-@DATD) INSURE DSECT DATA 00254000 @ENDDATD EQU * 00255000 BLSDENQ0 CSECT 00256000 @00 EQU 00 EQUATES FOR REGISTERS 0-15 00257000 @01 EQU 01 00258000 @02 EQU 02 00259000 @03 EQU 03 00260000 @04 EQU 04 00261000 @05 EQU 05 00262000 @06 EQU 06 00263000 @07 EQU 07 00264000 @08 EQU 08 00265000 @09 EQU 09 00266000 @10 EQU 10 00267000 @11 EQU 11 00268000 @12 EQU 12 00269000 @13 EQU 13 00270000 @14 EQU 14 00271000 @15 EQU 15 00272000 RETC EQU @04 00273000 SW EQU @03 00274000 R0 EQU @00 00275000 R1 EQU @01 00276000 R2 EQU @02 00277000 R3 EQU @03 00278000 R4 EQU @04 00279000 R5 EQU @05 00280000 R9 EQU @09 00281000 RB EQU @11 00282000 RD EQU @13 00283000 RE EQU @14 00284000 RF EQU @15 00285000 GPR01P EQU @01 00286000 RA EQU @10 00287000 RC EQU @12 00288000 R6 EQU @06 00289000 R7 EQU @07 00290000 R8 EQU @08 00291000 ZZ1 EQU 0 00292000 ZZ1ATTN EQU ZZ1+360 00293000 ZZ1EVE EQU ZZ1ATTN+4 00294000 ZZ1EVEP EQU ZZ1EVE 00295000 ZZ1F EQU ZZ1+368 00296000 ZZ1N EQU ZZ1+1116 00297000 CMD EQU 0 00298000 CMDT EQU CMD+4 00299000 PSCB EQU 0 00300000 PSCBATR1 EQU PSCB+16 00301000 ECT EQU 0 00302000 ECTSWS EQU ECT+28 00303000 ECTSWS2 EQU ECT+40 00304000 ECTSWS21 EQU ECTSWS2 00305000 UPT EQU 0 00306000 UPTSWS EQU UPT+12 00307000 SA EQU 0 00308000 SA1 EQU SA 00309000 SAR EQU SA+12 00310000 BVT EQU 0 00311000 BVTPUTLP EQU BVT+4 00312000 BVTPUTOP EQU BVT+12 00313000 BVTPUTTP EQU BVT+16 00314000 BVTPUTVP EQU BVT+20 00315000 BVTPUTAP EQU BVT+24 00316000 BVTPRTTP EQU BVT+28 00317000 BVTPRTAP EQU BVT+32 00318000 BVTPUTDP EQU BVT+36 00319000 BVTMONP EQU BVT+40 00320000 BVTMON2P EQU BVT+44 00321000 BVTVSARP EQU BVT+48 00322000 BVTVSENP EQU BVT+64 00323000 BVTVSERP EQU BVT+68 00324000 BVTVSGEP EQU BVT+72 00325000 BVTVSGUP EQU BVT+76 00326000 BVTVSPOP EQU BVT+80 00327000 BVTVSPUP EQU BVT+84 00328000 BVTMPKNP EQU BVT+104 00329000 BVTMONLP EQU BVT+108 00330000 BVTPUTCP EQU BVT+132 00331000 BVTMPK1P EQU BVT+136 00332000 BVTZZ2RP EQU BVT+140 00333000 BVTPGMRP EQU BVT+144 00334000 BVTMONAP EQU BVT+148 00335000 BVTBLDDP EQU BVT+152 00336000 BVTBLDLP EQU BVT+156 00337000 BVTPGMCP EQU BVT+160 00338000 BVTPGMDP EQU BVT+164 00339000 BVTPGMLP EQU BVT+168 00340000 BVTMONCP EQU BVT+180 00341000 BVTMONDP EQU BVT+184 00342000 BVTMONTP EQU BVT+188 00343000 BVTPARIP EQU BVT+192 00344000 BVTPARUP EQU BVT+196 00345000 BVTPRTNP EQU BVT+204 00346000 BVTVSCRP EQU BVT+208 00347000 BVTVSMRP EQU BVT+212 00348000 BVTMONXP EQU BVT+216 00349000 BVTTRMAP EQU BVT+228 00350000 DVT EQU 0 00351000 DVTDEQPP EQU DVT+8 00352000 DVTENQPP EQU DVT+12 00353000 DVTAUTHP EQU DVT+20 00354000 DVTLPCLP EQU DVT+24 00355000 DVTBP00P EQU DVT+28 00356000 DVTCN00P EQU DVT+32 00357000 DVTDF00P EQU DVT+36 00358000 DVTDS00P EQU DVT+44 00359000 DVTFL00P EQU DVT+48 00360000 DVTFP00P EQU DVT+52 00361000 DVTGD00P EQU DVT+56 00362000 DVTGG00P EQU DVT+60 00363000 DVTGP00P EQU DVT+64 00364000 DVTND00P EQU DVT+68 00365000 DVTND01P EQU DVT+72 00366000 DVTOD00P EQU DVT+76 00367000 DVTPS00P EQU DVT+80 00368000 DVTSD00P EQU DVT+84 00369000 DVTSL00P EQU DVT+88 00370000 DVTTL00P EQU DVT+92 00371000 DVTUD00P EQU DVT+96 00372000 DVTUP00P EQU DVT+100 00373000 DVTLP00P EQU DVT+104 00374000 DVTLALLP EQU DVT+108 00375000 DVTLPFMP EQU DVT+112 00376000 DVTCLOSP EQU DVT+116 00377000 DVTOPENP EQU DVT+120 00378000 DVTPERAP EQU DVT+124 00379000 DVTDALLP EQU DVT+128 00380000 BLSCALOC EQU 0 00381000 BLSDADSD EQU 0 00382000 BLSDAPDR EQU 0 00383000 BLSDDEQP EQU 0 00384000 BLSDENQP EQU 0 00385000 BLSDFDSD EQU 0 00386000 BLSDFPDR EQU 0 00387000 BLSDMSGS EQU 0 00388000 BLSDMSG0 EQU 0 00389000 BLSEAUTH EQU 0 00390000 BLSELPCL EQU 0 00391000 BLSELPFM EQU 0 00392000 BLSFBP00 EQU 0 00393000 BLSFCLOS EQU 0 00394000 BLSFCN00 EQU 0 00395000 BLSFDALL EQU 0 00396000 BLSFDF00 EQU 0 00397000 BLSFDS00 EQU 0 00398000 BLSFFL00 EQU 0 00399000 BLSFFP00 EQU 0 00400000 BLSFGD00 EQU 0 00401000 BLSFGG00 EQU 0 00402000 BLSFGP00 EQU 0 00403000 BLSFLALL EQU 0 00404000 BLSFLP00 EQU 0 00405000 BLSFND00 EQU 0 00406000 BLSFND01 EQU 0 00407000 BLSFOD00 EQU 0 00408000 BLSFOPEN EQU 0 00409000 BLSFPERA EQU 0 00410000 BLSFPS00 EQU 0 00411000 BLSFSD00 EQU 0 00412000 BLSFSL00 EQU 0 00413000 BLSFTL00 EQU 0 00414000 BLSFUD00 EQU 0 00415000 BLSFUP00 EQU 0 00416000 BLSUALLO EQU 0 00417000 BLSUBLDD EQU 0 00418000 BLSUBLDL EQU 0 00419000 BLSUDYNA EQU 0 00420000 BLSUFREE EQU 0 00421000 BLSUFRE1 EQU 0 00422000 BLSUMON EQU 0 00423000 BLSUMONA EQU 0 00424000 BLSUMONC EQU 0 00425000 BLSUMOND EQU 0 00426000 BLSUMONL EQU 0 00427000 BLSUMONT EQU 0 00428000 BLSUMONX EQU 0 00429000 BLSUMON2 EQU 0 00430000 BLSUMPKN EQU 0 00431000 BLSUMPK1 EQU 0 00432000 BLSUPARI EQU 0 00433000 BLSUPARU EQU 0 00434000 BLSUPGMC EQU 0 00435000 BLSUPGMD EQU 0 00436000 BLSUPGML EQU 0 00437000 BLSUPGMR EQU 0 00438000 BLSUPRTA EQU 0 00439000 BLSUPRTN EQU 0 00440000 BLSUPRTT EQU 0 00441000 BLSUPUTA EQU 0 00442000 BLSUPUTC EQU 0 00443000 BLSUPUTD EQU 0 00444000 BLSUPUTL EQU 0 00445000 BLSUPUTN EQU 0 00446000 BLSUPUTO EQU 0 00447000 BLSUPUTT EQU 0 00448000 BLSUPUTV EQU 0 00449000 BLSUSTAI EQU 0 00450000 BLSUTRMA EQU 0 00451000 BLSUTRMN EQU 0 00452000 BLSUTRMO EQU 0 00453000 BLSUTRMV EQU 0 00454000 BLSUVSAR EQU 0 00455000 BLSUVSCR EQU 0 00456000 BLSUVSEN EQU 0 00457000 BLSUVSER EQU 0 00458000 BLSUVSGE EQU 0 00459000 BLSUVSGU EQU 0 00460000 BLSUVSMR EQU 0 00461000 BLSUVSPO EQU 0 00462000 BLSUVSPU EQU 0 00463000 BLSUZZ2C EQU 0 00464000 BLSUZZ2D EQU 0 00465000 BLSUZZ2R EQU 0 00466000 IKJEFF02 EQU 0 00467000 IKJEFF18 EQU 0 00468000 IKJEFF19 EQU 0 00469000 IKJGETL EQU 0 00470000 IKJPARS EQU 0 00471000 IKJPTGT EQU 0 00472000 IKJPUTL EQU 0 00473000 IKJSCAN EQU 0 00474000 IKJSTCK EQU 0 00475000 I001C EQU 0 00476000 I008P EQU 0 00477000 I015F EQU 0 00478000 I015P EQU 0 00479000 I031F EQU 0 00480000 I031P EQU 0 00481000 I256C EQU 0 00482000 ZZ2 EQU 0 00483000 ZZ2AMD EQU ZZ2 00484000 @NM00013 EQU ZZ2AMD+7 00485000 ZZ2PRT EQU ZZ2+138 00486000 ZZ2PRTT EQU ZZ2PRT+4 00487000 ZZ2PRTT1 EQU ZZ2PRTT+1 00488000 ZZ2A EQU ZZ2+272 00489000 ZZ2AF EQU ZZ2A+16 00490000 ZZ2APID EQU ZZ2A+64 00491000 ZZ2AD EQU ZZ2A+74 00492000 ZZ2ADD EQU ZZ2AD 00493000 ZZ2ADDT EQU ZZ2ADD+2 00494000 ZZ2ADM EQU ZZ2AD+46 00495000 ZZ2ADMT EQU ZZ2ADM+2 00496000 ZZ2ADP EQU ZZ2AD+56 00497000 ZZ2ADPT EQU ZZ2ADP+2 00498000 ZZ2AQAS EQU ZZ2A+144 00499000 ZZ2AQD EQU ZZ2A+160 00500000 ZZ2AQDT EQU ZZ2AQD+10 00501000 ZZ2AQDF EQU ZZ2AQD+52 00502000 ZZ2STG EQU ZZ2+960 00503000 ZZ2ALLOP EQU ZZ2+992 00504000 ZZ2FREEP EQU ZZ2+996 00505000 ZZ2FF19P EQU ZZ2+1000 00506000 ZZ2FRE1P EQU ZZ2+1004 00507000 ZZ2FF18P EQU ZZ2+1008 00508000 ZZ2DYNAP EQU ZZ2+1012 00509000 ZZ2ZZ2CP EQU ZZ2+1016 00510000 ZZ2ZZ2DP EQU ZZ2+1020 00511000 ZZ2STAIP EQU ZZ2+1024 00512000 ZZ2FF02P EQU ZZ2+1028 00513000 ZZ2GETLP EQU ZZ2+1032 00514000 ZZ2PARSP EQU ZZ2+1036 00515000 ZZ2PTGTP EQU ZZ2+1040 00516000 ZZ2PUTLP EQU ZZ2+1044 00517000 ZZ2SCANP EQU ZZ2+1048 00518000 ZZ2STCKP EQU ZZ2+1052 00519000 ZZ2ALOCP EQU ZZ2+1056 00520000 ZZ2MSGSP EQU ZZ2+1060 00521000 ZZ2TRMOP EQU ZZ2+1064 00522000 ZZ2TRMVP EQU ZZ2+1068 00523000 ZZ2MSG0P EQU ZZ2+1076 00524000 ZZ2PUTNP EQU ZZ2+1084 00525000 ZZ2TRMNP EQU ZZ2+1088 00526000 ZZ2ADSDP EQU ZZ2+1096 00527000 ZZ2APDRP EQU ZZ2+1100 00528000 ZZ2FDSDP EQU ZZ2+1104 00529000 ZZ2FPDRP EQU ZZ2+1108 00530000 ZZ2ZZ1P EQU ZZ2+1264 00531000 ZZ2DVTP EQU ZZ2+1276 00532000 ZZ2BVTP EQU ZZ2+1280 00533000 ZZ2CPPL EQU ZZ2+1292 00534000 ZZ2CPPLC EQU ZZ2CPPL 00535000 ZZ2ITR EQU ZZ2+2840 00536000 ZZ2ITRE EQU ZZ2ITR+16 00537000 ZZ2ITSE EQU ZZ2+2864 00538000 ZZ2ES EQU ZZ2+2872 00539000 ZZ2AMDX EQU ZZ2+7160 00540000 ZZ2AXO EQU ZZ2+7934 00541000 ZZ2AXOT EQU ZZ2AXO+2 00542000 QNAME EQU 0 00543000 RNAME EQU 0 00544000 RNAMEL EQU 0 00545000 TYPE EQU 0 00546000 CPPL EQU ZZ2CPPL 00547000 CPPLUPT EQU CPPL+4 00548000 CPPLPSCB EQU CPPL+8 00549000 CPPLECT EQU CPPL+12 00550000 I056 EQU ILIST 00551000 I05602 EQU I056+8 00552000 I05603 EQU I05602 00553000 I05604 EQU I05602+1 00554000 I05605 EQU I05602+2 00555000 I05606 EQU I05602+4 00556000 I05607 EQU I05602+8 00557000 * START UNREFERENCED COMPONENTS 00558000 I05655 EQU I05602+3 00559000 I05601 EQU I056+4 00560000 I05600 EQU I056 00561000 CPPLCBUF EQU CPPL 00562000 ZZ299999 EQU ZZ2+8192 00563000 ZZ2AXOT1 EQU ZZ2AXOT 00564000 ZZ2AXOL EQU ZZ2AXO 00565000 @NM00054 EQU ZZ2+7288 00566000 @NM00053 EQU ZZ2AMDX+4 00567000 ZZ2AMDXC EQU ZZ2AMDX 00568000 ZZ2HSD EQU ZZ2+3056 00569000 @NM00052 EQU ZZ2ES 00570000 @NM00051 EQU ZZ2+2868 00571000 ZZ2ITSEC EQU ZZ2ITSE+1 00572000 @NM00050 EQU ZZ2ITSE 00573000 ZZ2ITSEP EQU ZZ2ITSE 00574000 ZZ2ITSEW EQU ZZ2ITSE 00575000 @NM00049 EQU ZZ2ITR+20 00576000 ZZ2ITREC EQU ZZ2ITRE+1 00577000 @NM00048 EQU ZZ2ITRE 00578000 ZZ2ITREP EQU ZZ2ITRE 00579000 ZZ2ITREW EQU ZZ2ITRE 00580000 @NM00047 EQU ZZ2ITR+9 00581000 ZZ2ITRRC EQU ZZ2ITR+8 00582000 ZZ2ITR2P EQU ZZ2ITR+4 00583000 ZZ2ITRPP EQU ZZ2ITR 00584000 @NM00046 EQU ZZ2+1544 00585000 ZZ2PGM EQU ZZ2+1536 00586000 @NM00045 EQU ZZ2+1526 00587000 ZZ2CW EQU ZZ2+1524 00588000 @NM00044 EQU ZZ2+1504 00589000 @NM00043 EQU ZZ2+1352 00590000 ZZ2FFSYP EQU ZZ2+1348 00591000 ZZ2SASYP EQU ZZ2+1344 00592000 ZZ2RDSYP EQU ZZ2+1340 00593000 ZZ2RASYP EQU ZZ2+1336 00594000 ZZ2PHSYP EQU ZZ2+1332 00595000 ZZ2ESSYP EQU ZZ2+1328 00596000 ZZ200SYP EQU ZZ2+1324 00597000 ZZ2SCWP EQU ZZ2+1320 00598000 ZZ2TTLP EQU ZZ2+1316 00599000 ZZ2LOADP EQU ZZ2+1312 00600000 ZZ2VRESP EQU ZZ2+1308 00601000 ZZ2CPPLE EQU ZZ2CPPL+12 00602000 ZZ2CPPLP EQU ZZ2CPPL+8 00603000 ZZ2CPPLU EQU ZZ2CPPL+4 00604000 ZZ2VRSAP EQU ZZ2+1288 00605000 ZZ2RVTP EQU ZZ2+1284 00606000 @NM00042 EQU ZZ2+1272 00607000 @NM00041 EQU ZZ2+1268 00608000 ZZ2RPLP EQU ZZ2+1260 00609000 ZZ2TCBP EQU ZZ2+1256 00610000 @NM00040 EQU ZZ2+1252 00611000 ZZ2ZZ2P EQU ZZ2+1248 00612000 @NM00039 EQU ZZ2+1112 00613000 ZZ2ENQ0P EQU ZZ2+1092 00614000 @NM00038 EQU ZZ2+1080 00615000 ZZ2FT25P EQU ZZ2+1072 00616000 @NM00037 EQU ZZ2+976 00617000 ZZ2TOD EQU ZZ2+968 00618000 ZZ2STGN EQU ZZ2STG+4 00619000 ZZ2STGP EQU ZZ2STG 00620000 @NM00036 EQU ZZ2+952 00621000 ZZ2SCMDE EQU ZZ2+944 00622000 ZZ2SCMDN EQU ZZ2+936 00623000 ZZ2IDENT EQU ZZ2+928 00624000 ZZ2A9999 EQU ZZ2A+656 00625000 @NM00035 EQU ZZ2A+224 00626000 @NM00034 EQU ZZ2A+220 00627000 ZZ2AQD99 EQU ZZ2AQD+60 00628000 @NM00033 EQU ZZ2AQD+56 00629000 @NM00032 EQU ZZ2AQDF 00630000 ZZ2AQDFA EQU ZZ2AQDF 00631000 ZZ2AQDIL EQU ZZ2AQD+48 00632000 ZZ2AQDIM EQU ZZ2AQD+44 00633000 ZZ2AQDT9 EQU ZZ2AQDT+34 00634000 ZZ2AQDTE EQU ZZ2AQDT+33 00635000 ZZ2AQDTD EQU ZZ2AQDT+2 00636000 @NM00031 EQU ZZ2AQDT+1 00637000 ZZ2AQDTY EQU ZZ2AQDT 00638000 ZZ2AQDT0 EQU ZZ2AQDT 00639000 ZZ2AQDLB EQU ZZ2AQD+9 00640000 ZZ2AQDOB EQU ZZ2AQD+8 00641000 ZZ2AQDLE EQU ZZ2AQD+4 00642000 ZZ2AQDOF EQU ZZ2AQD 00643000 ZZ2AQD00 EQU ZZ2AQD 00644000 ZZ2AQAS9 EQU ZZ2AQAS+16 00645000 @NM00030 EQU ZZ2AQAS+12 00646000 ZZ2AQAS2 EQU ZZ2AQAS+8 00647000 ZZ2AQAS1 EQU ZZ2AQAS+4 00648000 @NM00029 EQU ZZ2AQAS+2 00649000 ZZ2AQAST EQU ZZ2AQAS 00650000 ZZ2AQAS0 EQU ZZ2AQAS 00651000 ZZ2AZZ6P EQU ZZ2A+140 00652000 ZZ2ADPTA EQU ZZ2ADPT 00653000 ZZ2ADPL EQU ZZ2ADP 00654000 ZZ2ADMTA EQU ZZ2ADMT 00655000 ZZ2ADML EQU ZZ2ADM 00656000 ZZ2ADDTA EQU ZZ2ADDT 00657000 ZZ2ADDL EQU ZZ2ADD 00658000 @NM00028 EQU ZZ2A+72 00659000 ZZ2APIDB EQU ZZ2APID+3 00660000 ZZ2APIDA EQU ZZ2APID 00661000 @NM00027 EQU ZZ2A+24 00662000 @NM00026 EQU ZZ2AF+5 00663000 ZZ2AFX EQU ZZ2AF+5 00664000 @NM00025 EQU ZZ2AF+3 00665000 ZZ2AFS EQU ZZ2AF+2 00666000 ZZ2AFD EQU ZZ2AF+2 00667000 ZZ2AFQ EQU ZZ2AF+2 00668000 ZZ2AF$ EQU ZZ2AF+2 00669000 @NM00024 EQU ZZ2AF+2 00670000 ZZ2AFM EQU ZZ2AF+2 00671000 @NM00023 EQU ZZ2AF+2 00672000 @NM00022 EQU ZZ2AF+1 00673000 ZZ2AFV EQU ZZ2AF+1 00674000 @NM00021 EQU ZZ2AF+1 00675000 ZZ2AFC EQU ZZ2AF+1 00676000 @NM00020 EQU ZZ2AF 00677000 ZZ2AFFS EQU ZZ2AF 00678000 ZZ2AFT EQU ZZ2AF 00679000 ZZ2AFP EQU ZZ2AF 00680000 @NM00019 EQU ZZ2A+8 00681000 ZZ2ALINE EQU ZZ2A+4 00682000 @NM00018 EQU ZZ2A+3 00683000 ZZ2ASE EQU ZZ2A+2 00684000 ZZ2ACH EQU ZZ2A 00685000 @NM00017 EQU ZZ2+264 00686000 @NM00016 EQU ZZ2+263 00687000 ZZ2PRTT0 EQU ZZ2PRTT 00688000 ZZ2PRTO EQU ZZ2PRT+2 00689000 ZZ2PRTL EQU ZZ2PRT 00690000 @NM00015 EQU ZZ2AMD+56 00691000 ZZ2AMDXP EQU ZZ2AMD+52 00692000 ZZ2AMDD EQU ZZ2AMD+48 00693000 ZZ2AMDL EQU ZZ2AMD+44 00694000 ZZ2AMDU EQU ZZ2AMD+28 00695000 ZZ2AMDF EQU ZZ2AMD+24 00696000 ZZ2AMDS EQU ZZ2AMD+20 00697000 ZZ2AMDC EQU ZZ2AMD+16 00698000 ZZ2AMDP EQU ZZ2AMD+12 00699000 ZZ2AMDB EQU ZZ2AMD+8 00700000 @NM00014 EQU @NM00013 00701000 ZZ2AMD2 EQU @NM00013 00702000 ZZ2AMD1 EQU @NM00013 00703000 ZZ2AMD0 EQU ZZ2AMD+6 00704000 ZZ2AMDA EQU ZZ2AMD+4 00705000 ZZ2AMDT EQU ZZ2AMD 00706000 DVT99999 EQU DVT+256 00707000 DVT0064P EQU DVT+252 00708000 DVT0063P EQU DVT+248 00709000 DVT0062P EQU DVT+244 00710000 DVT0061P EQU DVT+240 00711000 DVT0060P EQU DVT+236 00712000 DVT0059P EQU DVT+232 00713000 DVT0058P EQU DVT+228 00714000 DVT0057P EQU DVT+224 00715000 DVT0056P EQU DVT+220 00716000 DVT0055P EQU DVT+216 00717000 DVT0054P EQU DVT+212 00718000 DVT0053P EQU DVT+208 00719000 DVT0052P EQU DVT+204 00720000 DVT0051P EQU DVT+200 00721000 DVT0050P EQU DVT+196 00722000 DVT0049P EQU DVT+192 00723000 DVT0048P EQU DVT+188 00724000 DVT0047P EQU DVT+184 00725000 DVT0046P EQU DVT+180 00726000 DVT0045P EQU DVT+176 00727000 DVT0044P EQU DVT+172 00728000 DVT0043P EQU DVT+168 00729000 DVT0042P EQU DVT+164 00730000 DVT0041P EQU DVT+160 00731000 DVT0040P EQU DVT+156 00732000 DVT0039P EQU DVT+152 00733000 DVT0038P EQU DVT+148 00734000 DVT0037P EQU DVT+144 00735000 DVT0036P EQU DVT+140 00736000 DVT0035P EQU DVT+136 00737000 DVT0034P EQU DVT+132 00738000 DVT0011P EQU DVT+40 00739000 DVT0005P EQU DVT+16 00740000 DVT0002P EQU DVT+4 00741000 DVT0001P EQU DVT 00742000 BVT99999 EQU BVT+256 00743000 BVT0064P EQU BVT+252 00744000 BVT0063P EQU BVT+248 00745000 BVT0062P EQU BVT+244 00746000 BVT0061P EQU BVT+240 00747000 BVT0060P EQU BVT+236 00748000 BVT0059P EQU BVT+232 00749000 BVT0057P EQU BVT+224 00750000 BVT0056P EQU BVT+220 00751000 BVTSTBLP EQU BVT+200 00752000 BVT0045P EQU BVT+176 00753000 BVT0044P EQU BVT+172 00754000 BVT0033P EQU BVT+128 00755000 BVT0032P EQU BVT+124 00756000 BVT0031P EQU BVT+120 00757000 BVT0030P EQU BVT+116 00758000 BVT0029P EQU BVT+112 00759000 BVT0026P EQU BVT+100 00760000 BVT0025P EQU BVT+96 00761000 BVT0024P EQU BVT+92 00762000 BVT0023P EQU BVT+88 00763000 BVT0016P EQU BVT+60 00764000 BVT0015P EQU BVT+56 00765000 BVT0014P EQU BVT+52 00766000 BVT0003P EQU BVT+8 00767000 BVT0001P EQU BVT 00768000 SA99 EQU SA+72 00769000 SARC EQU SAR+56 00770000 SARB EQU SAR+52 00771000 SARA EQU SAR+48 00772000 SAR9 EQU SAR+44 00773000 SAR8 EQU SAR+40 00774000 SAR7 EQU SAR+36 00775000 SAR6 EQU SAR+32 00776000 SAR5 EQU SAR+28 00777000 SAR4 EQU SAR+24 00778000 SAR3 EQU SAR+20 00779000 SAR2 EQU SAR+16 00780000 SAR1 EQU SAR+12 00781000 SAR0 EQU SAR+8 00782000 SARF EQU SAR+4 00783000 SARE EQU SAR 00784000 SAFWD EQU SA+8 00785000 SABAK EQU SA+4 00786000 SA1L EQU SA1+1 00787000 SA1P EQU SA1 00788000 UPTPREFL EQU UPT+23 00789000 UPTPREFX EQU UPT+16 00790000 @NM00068 EQU UPT+15 00791000 UPTLDEL EQU UPT+14 00792000 UPTCDEL EQU UPT+13 00793000 UPTWTP EQU UPTSWS 00794000 UPTMODE EQU UPTSWS 00795000 UPTALD EQU UPTSWS 00796000 UPTPAUS EQU UPTSWS 00797000 UPTNCOM EQU UPTSWS 00798000 UPTMID EQU UPTSWS 00799000 UPTNPRM EQU UPTSWS 00800000 UPTRCVR EQU UPTSWS 00801000 UPTUSER EQU UPT+2 00802000 @NM00067 EQU UPT 00803000 @NM00066 EQU ECT+52 00804000 @NM00065 EQU ECT+48 00805000 @NM00064 EQU ECT+44 00806000 @NM00063 EQU ECTSWS2+1 00807000 @NM00062 EQU ECTSWS21 00808000 ECTTABND EQU ECTSWS21 00809000 ECTDEFCS EQU ECTSWS21 00810000 ECTBKPB EQU ECT+36 00811000 ECTUSER EQU ECT+32 00812000 ECTDDNUM EQU ECT+29 00813000 ECTATTN EQU ECTSWS 00814000 ECTBKGRD EQU ECTSWS 00815000 ECTNNOT EQU ECTSWS 00816000 ECTNMAL EQU ECTSWS 00817000 ECTLOGF EQU ECTSWS 00818000 ECTATRM EQU ECTSWS 00819000 @NM00061 EQU ECTSWS 00820000 ECTNOPD EQU ECTSWS 00821000 ECTSCMD EQU ECT+20 00822000 ECTPCMD EQU ECT+12 00823000 ECTSMSG EQU ECT+9 00824000 ECTMSGF EQU ECT+8 00825000 ECTIOWA EQU ECT+4 00826000 ECTRTCD EQU ECT+1 00827000 ECTRCDF EQU ECT 00828000 PSCBU EQU PSCB+64 00829000 PSCBRSZ EQU PSCB+60 00830000 PSCBLINE EQU PSCB+59 00831000 PSCBCHAR EQU PSCB+58 00832000 PSCBUPTL EQU PSCB+56 00833000 PSCBUPT EQU PSCB+52 00834000 PSCBRLGB EQU PSCB+48 00835000 PSCBDEST EQU PSCB+40 00836000 @NM00060 EQU PSCB+36 00837000 @NM00059 EQU PSCB+32 00838000 @NM00058 EQU PSCB+28 00839000 PSCBLTI2 EQU PSCB+24 00840000 PSCBLTIM EQU PSCB+20 00841000 PSCBATR2 EQU PSCB+18 00842000 @NM00057 EQU PSCBATR1 00843000 @NM00056 EQU PSCBATR1 00844000 @NM00055 EQU PSCBATR1 00845000 PSCBATTN EQU PSCBATR1 00846000 PSCBVMNT EQU PSCBATR1 00847000 PSCBJCL EQU PSCBATR1 00848000 PSCBACCT EQU PSCBATR1 00849000 PSCBCTRL EQU PSCBATR1 00850000 PSCBGPNM EQU PSCB+8 00851000 PSCBUSRL EQU PSCB+7 00852000 PSCBUSER EQU PSCB 00853000 CMDT1 EQU CMDT 00854000 CMDO EQU CMD+2 00855000 CMDL EQU CMD 00856000 ZZ199999 EQU ZZ1+3072 00857000 @NM00012 EQU ZZ1+2160 00858000 ZZ1TRTAS EQU ZZ1+1904 00859000 ZZ1TRUPC EQU ZZ1+1648 00860000 ZZ1TRCTX EQU ZZ1+1392 00861000 ZZ1NASID EQU ZZ1N+274 00862000 ZZ1NSTRL EQU ZZ1N+272 00863000 ZZ1NOFF EQU ZZ1N+268 00864000 ZZ1NBDY EQU ZZ1N+264 00865000 ZZ1NADE EQU ZZ1N+260 00866000 ZZ1NADB EQU ZZ1N+256 00867000 ZZ1NSTR EQU ZZ1N 00868000 @NM00011 EQU ZZ1+1080 00869000 ZZ1TREBC EQU ZZ1+824 00870000 ZZ1TRHEX EQU ZZ1+568 00871000 @NM00010 EQU ZZ1+377 00872000 ZZ1USTAE EQU ZZ1+376 00873000 @NM00009 EQU ZZ1F+1 00874000 @NM00008 EQU ZZ1F 00875000 ZZ1FM EQU ZZ1F 00876000 ZZ1FX EQU ZZ1F 00877000 ZZ1FU EQU ZZ1F 00878000 ZZ1EVEC EQU ZZ1EVE+1 00879000 @NM00007 EQU ZZ1EVE 00880000 ZZ1EVEW EQU ZZ1EVE 00881000 ZZ1ACMP EQU ZZ1ATTN 00882000 @NM00006 EQU ZZ1+144 00883000 ZZ1FPP EQU ZZ1+140 00884000 ZZ1ZZ6P EQU ZZ1+136 00885000 @NM00005 EQU ZZ1+84 00886000 ZZ1PLINE EQU ZZ1+80 00887000 ZZ1PGSZ EQU ZZ1+76 00888000 ZZ1PCNT EQU ZZ1+72 00889000 @NM00004 EQU ZZ1+68 00890000 ZZ1TPAGE EQU ZZ1+64 00891000 ZZ1TLINE EQU ZZ1+60 00892000 @NM00003 EQU ZZ1+52 00893000 ZZ1DMCBP EQU ZZ1+48 00894000 ZZ1DSDP EQU ZZ1+44 00895000 ZZ1PDRP EQU ZZ1+40 00896000 ZZ1ZZ2P EQU ZZ1+36 00897000 ZZ1327WP EQU ZZ1+32 00898000 ZZ1ACBP EQU ZZ1+28 00899000 @NM00002 EQU ZZ1+24 00900000 ZZ1PDCBP EQU ZZ1+20 00901000 ZZ1BLRBL EQU ZZ1+16 00902000 @NM00001 EQU ZZ1+12 00903000 ZZ1PNULL EQU ZZ1+8 00904000 ZZ1NULL EQU ZZ1+4 00905000 ZZ1IDE EQU ZZ1 00906000 * END UNREFERENCED COMPONENTS 00907000 @ENDDATA EQU * 00908000 END BLSDENQ0,(C'PLS2047',0701,78062) 00909000