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