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