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