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