ESGE TITLE 'BLSRESGE--RETRIEVE EQUATE SYMBOL RECORD DEFINITION *00001000 ' 00002000 */* CHANGE ACTIVITY -------------------------------------------------*/ 00003000 */* THIS MODULE WAS WRITTEN FOR @G57LPRW */ 00004000 */*------------------------------------------------------------------*/ 00005000 BLSRESGE CSECT , 01S0002 00006000 @MAINENT DS 0H 01S0002 00007000 USING *,@15 01S0002 00008000 B @PROLOG 01S0002 00009000 DC AL1(16) 01S0002 00010000 DC C'BLSRESGE 78.057' 01S0002 00011000 DROP @15 00012000 @PROLOG STM @14,@12,12(@13) 01S0002 00013000 BALR @12,0 01S0002 00014000 @PSTART DS 0H 01S0002 00015000 USING @PSTART,@12 01S0002 00016000 L @00,@SIZDATD 01S0002 00017000 BLSUALLS R,LV=(0) 00018000 LR @11,@01 01S0002 00019000 USING @DATD,@11 01S0002 00020000 ST @13,@SA00001+4 01S0002 00021000 LM @00,@01,20(@13) 01S0002 00022000 ST @11,8(,@13) 01S0002 00023000 LR @13,@11 01S0002 00024000 MVC @PC00001(8),0(@01) 01S0002 00025000 * ESBAPTR=ADDR(ESPA); /* ->ESBA (ALIAS FOR ESPA) */ 00026000 L ESBAPTR,@PC00001+4 01S0138 00027000 * ESAU=ESCO; /* MODEL RECORD */ 00028000 L @14,ZZ2ESSYP(,R9) 01S0139 00029000 MVC ESAU(182),ESCO(@14) 01S0139 00030000 * ESAURDX=ZZ6DRDX; /* DATA SET INDEX */ 00031000 L @14,ZZ2AZZ6P(,R9) 01S0140 00032000 MVC ESAURDX(4),ZZ6DRDX(@14) 01S0140 00033000 * ESAUAS=ZZ2AQAS; /* DEFAULT ADDRESS SPACE */ 00034000 MVC ESAUAS(16),ZZ2AQAS(R9) 01S0141 00035000 * ESAUD=ZZ2AQD; /* DEFAULT DATA CHARACTERISTICS */ 00036000 MVC ESAUD(60),ZZ2AQD(R9) 01S0142 00037000 * ESAUSYM=ESBASYM; /* SYMBOL */ 00038000 MVC ESAUSYM(31),ESBASYM(ESBAPTR) 01S0143 00039000 * TR(ESAUSYM,ZZ1TREBC); /* ASSURE EBCDIC SYMBOL */ 00040000 L @14,ZZ2ZZ1P(,R9) 01S0144 00041000 TR ESAUSYM(31),ZZ1TREBC(@14) 01S0144 00042000 * ESAUDT=ESBADT; /* DATA TYPE */ 00043000 MVC ESAUDT(34),ESBADT(ESBAPTR) 01S0145 00044000 * TR(ESAUDTY,ZZ1TREBC); /* ASSURE EBCDIC DATA TYPE */ 00045000 TR ESAUDTY(1),ZZ1TREBC(@14) 01S0146 00046000 * IF ESAUDTY^=ESBADTY|ESAUDTY=' ' THEN/* IMPLICIT DATA TYPE */ 00047000 CLC ESAUDTY(1),ESBADTY(ESBAPTR) 01S0147 00048000 BNE @RT00147 01S0147 00049000 CLI ESAUDTY,C' ' 01S0147 00050000 BNE @RF00147 01S0147 00051000 @RT00147 DS 0H 01S0148 00052000 * ESAUDT=ZZ2AQDT; /* DEFAULT DATA TYPE */ 00053000 MVC ESAUDT(34),ZZ2AQDT(R9) 01S0148 00054000 * ELSE /* EXPLICIT DATA TYPE */ 00055000 * TR(ESAUDTD,ZZ1TREBC); /* ASSURE EBCDIC DICTIONARY NAME */ 00056000 B @RC00147 01S0149 00057000 @RF00147 L @14,ZZ2ZZ1P(,R9) 01S0149 00058000 TR ESAUDTD(31),ZZ1TREBC(@14) 01S0149 00059000 * ESBA(1:LENGTH(ESAU))=ESAU; /* NORMALIZE RECORD */ 00060000 @RC00147 MVC ESBA(182,ESBAPTR),ESAU 01S0150 00061000 * IF ESAUSYM=ZZZSYM40 THEN /* NO SYMBOL SPECIFIED */ 00062000 * 01S0151 00063000 CLC ESAUSYM(31),@CC00178 01S0151 00064000 BNE @RF00151 01S0151 00065000 * /***************************************************************/ 00066000 * /* */ 00067000 * /* NO SYMBOL SPECIFIED */ 00068000 * /* */ 00069000 * /***************************************************************/ 00070000 * 01S0152 00071000 * DO; /* NO SYMBOL SPECIFIED */ 00072000 * RETC=ZZZFLAGW; /* RETURN CODE */ 00073000 LA RETC,4 01S0153 00074000 * GO TO EXIT; /* COMMON EXIT PATH */ 00075000 B EXIT 01S0154 00076000 * END; /* NO SYMBOL SPECIFIED */ 00077000 * CALL BLSRESGQ; /* GET ACTIVE ES RECORD */ 00078000 @RF00151 L @10,ZZ2RVTP(,R9) 01S0156 00079000 L @15,RVTESGQP(,@10) 01S0156 00080000 BALR @14,@15 01S0156 00081000 * IF RF=ZZZFLAGI THEN /* ACTIVE RECORD FOUND */ 00082000 * 01S0157 00083000 LTR RF,RF 01S0157 00084000 BNZ @RF00157 01S0157 00085000 * /***************************************************************/ 00086000 * /* */ 00087000 * /* ACTIVE RECORD FOUND */ 00088000 * /* */ 00089000 * /***************************************************************/ 00090000 * 01S0158 00091000 * DO; /* ACTIVE RECORD FOUND */ 00092000 * RETC=ZZZFLAGI; /* RETURN CODE */ 00093000 SLR RETC,RETC 01S0159 00094000 * GO TO EXIT; /* COMMON EXIT PATH */ 00095000 B EXIT 01S0160 00096000 * END; /* ACTIVE RECORD FOUND */ 00097000 * CALL BLSRESGC; /* GET ES RECORD FROM CLUSTER */ 00098000 @RF00157 L @10,ZZ2RVTP(,R9) 01S0162 00099000 L @15,RVTESGCP(,@10) 01S0162 00100000 BALR @14,@15 01S0162 00101000 * IF RF^=ZZZFLAGW THEN /* CONCLUSIVE RESULT FROM GET */ 00102000 * 01S0163 00103000 CH RF,@CH00043 01S0163 00104000 BE @RF00163 01S0163 00105000 * /***************************************************************/ 00106000 * /* */ 00107000 * /* CONCLUSIVE RESULT FROM GET */ 00108000 * /* */ 00109000 * /***************************************************************/ 00110000 * 01S0164 00111000 * DO; /* CONCLUSIVE RESULT FROM GET */ 00112000 * RETC=RF; /* RETURN CODE */ 00113000 LR RETC,RF 01S0165 00114000 * GO TO EXIT; /* COMMON EXIT PATH */ 00115000 B EXIT 01S0166 00116000 * END; /* CONCLUSIVE RESULT FROM GET */ 00117000 * RETC=ZZZFLAGS; /* RETURN CODE */ 00118000 @RF00163 LA RETC,12 01S0168 00119000 * IF ESBADTY=ZZZDTYL THEN /* LOAD MODULE */ 00120000 CLI ESBADTY(ESBAPTR),C'L' 01S0169 00121000 BNE @RF00169 01S0169 00122000 * ZZ2PGM='BLSSLLPA'; /* SEARCH LPA FOR NAMED MODULE */ 00123000 MVC ZZ2PGM(8,R9),@CC01209 01S0170 00124000 * ELSE /* NOT A LOAD MODULE */ 00125000 * IF ESBADTD=ZZZSYM40 THEN /* NO SPECIFIC DATA TYPE */ 00126000 B @RC00169 01S0171 00127000 @RF00169 CLC ESBADTD(31,ESBAPTR),@CC00178 01S0171 00128000 BE @RT00171 01S0171 00129000 * GO TO EXIT; /* COMMON EXIT PATH */ 00130000 * ELSE /* SPECIFIC DATA TYPE */ 00131000 * 01S0173 00132000 * /*************************************************************/ 00133000 * /* */ 00134000 * /* SPECIFIC DATA TYPE */ 00135000 * /* */ 00136000 * /*************************************************************/ 00137000 * 01S0173 00138000 * DO; /* SPECIFIC DATA TYPE */ 00139000 * IF ESBADTY=ZZZDTYM THEN /* STRUCTURE */ 00140000 CLI ESBADTY(ESBAPTR),C'M' 01S0174 00141000 BNE @RF00174 01S0174 00142000 * DTDTPTR=RVTDTMTP; /* ->BLSRDTMT */ 00143000 L @14,ZZ2RVTP(,R9) 01S0175 00144000 L DTDTPTR,RVTDTMTP(,@14) 01S0175 00145000 * ELSE /* NOT A STRUCTURE */ 00146000 * IF ESBADTY=ZZZDTYU THEN /* AREA */ 00147000 B @RC00174 01S0176 00148000 @RF00174 CLI ESBADTY(ESBAPTR),C'U' 01S0176 00149000 BNE @RF00176 01S0176 00150000 * DTDTPTR=RVTDTUTP; /* ->BLSRDTUT */ 00151000 L @14,ZZ2RVTP(,R9) 01S0177 00152000 L DTDTPTR,RVTDTUTP(,@14) 01S0177 00153000 * ELSE /* UNSUPPORTED DATA TYPE CODE */ 00154000 * GO TO EXIT; /* COMMON EXIT PATH */ 00155000 * DO; /* BLRSRCH(ESBADTD) ARRAY(DTDTDTD 00156000 * )DIMENSION(DTDTDIM)SET(J1) */ 00157000 @RC00174 DS 0H 01S0180 00158000 * J1=0; /* CURRENT POSITION */ 00159000 SLR J1,J1 01S0180 00160000 * SCH0001G=DTDTDIM; /* PROBE DISTANCE */ 00161000 * 01S0181 00162000 L SCH0001G,DTDTDIM(,DTDTPTR) 01S0181 00163000 * /*********************************************************/ 00164000 * /* */ 00165000 * /* SEARCH SORTED ARRAY DTDTDTD FOR ESBADTD */ 00166000 * /* */ 00167000 * /*********************************************************/ 00168000 * 01S0182 00169000 * DO WHILE(SCH0001G>0); /* SEARCH SORTED ARRAY */ 00170000 B @DE00182 01S0182 00171000 @DL00182 DS 0H 01S0183 00172000 * SCH0001A=J1+SCH0001G; /* PROBE POSITION */ 00173000 LR SCH0001A,J1 01S0183 00174000 ALR SCH0001A,SCH0001G 01S0183 00175000 * IF SCH0001A>DTDTDIM THEN/* PROBE BEYOND ARRAY */ 00176000 CL SCH0001A,DTDTDIM(,DTDTPTR) 01S0184 00177000 BNH @RF00184 01S0184 00178000 * IF SCH0001G=1 THEN /* ADJACENT ARRAY ENTRIES */ 00179000 * 01S0185 00180000 CL SCH0001G,@CF00046 01S0185 00181000 BNE @RF00185 01S0185 00182000 * /***************************************************/ 00183000 * /* */ 00184000 * /* ESBADTD COLLATES HIGHER THAN DTDTDTD(DTDTDIM) */ 00185000 * /* */ 00186000 * /***************************************************/ 00187000 * 01S0186 00188000 * DO; /* ADJACENT ARRAY ENTRIES */ 00189000 * J1=0; /* SEARCH IS UNSUCCESSFUL */ 00190000 SLR J1,J1 01S0187 00191000 * SCH0001G=0; /* SEARCH IS COMPLETE */ 00192000 SLR SCH0001G,SCH0001G 01S0188 00193000 * END; /* ADJACENT ARRAY ENTRIES */ 00194000 * ELSE /* INTERVENING ENTRY(IES) */ 00195000 * ; /* NEW PROBE POSITION */ 00196000 @RF00185 DS 0H 01S0191 00197000 * ELSE /* PROBE POSITION IN ARRAY */ 00198000 * IF DTDTDTD(SCH0001A)<=ESBADTD THEN 01S0191 00199000 * 01S0191 00200000 B @RC00184 01S0191 00201000 @RF00184 LR @14,SCH0001A 01S0191 00202000 MH @14,@CH01224 01S0191 00203000 ALR @14,DTDTPTR 01S0191 00204000 AL @14,@CF01225 01S0191 00205000 CLC DTDTDTD-13(31,@14),ESBADTD(ESBAPTR) 01S0191 00206000 BH @RF00191 01S0191 00207000 * /***************************************************/ 00208000 * /* */ 00209000 * /* SEARCH HIGHER IN ARRAY */ 00210000 * /* */ 00211000 * /***************************************************/ 00212000 * 01S0192 00213000 * DO; /* CURRENT POSITION TOO LOW */ 00214000 * BC(7,SCH0001L); /* IF DTDTDTD(SCH0001A)=ESBADTD 00215000 * THEN SEARCH IS SUCCESSFUL */ 00216000 BC 7,SCH0001L 01S0193 00217000 * SCH0001G=0; /* SEARCH IS COMPLETE */ 00218000 SLR SCH0001G,SCH0001G 01S0194 00219000 *SCH0001L: /* ELSE CONTINUE THE SEARCH */ 00220000 * J1=SCH0001A; /* CURRENT POSITION */ 00221000 SCH0001L LR J1,SCH0001A 01S0195 00222000 * END; /* CURRENT POSITION TOO LOW */ 00223000 * ELSE /* CURRENT POSITION HIGH ENOUGH */ 00224000 * IF SCH0001G=1 THEN/* ADJACENT ARRAY ENTRIES */ 00225000 * 01S0197 00226000 B @RC00191 01S0197 00227000 @RF00191 CL SCH0001G,@CF00046 01S0197 00228000 BNE @RF00197 01S0197 00229000 * /*************************************************/ 00230000 * /* */ 00231000 * /* ESBADTD COLLATES BETWEEN ENTRIES OR LOW */ 00232000 * /* */ 00233000 * /*************************************************/ 00234000 * 01S0198 00235000 * DO; /* ADJACENT ARRAY ENTRIES */ 00236000 * J1=0; /* SEARCH IS UNSUCCESSFUL */ 00237000 SLR J1,J1 01S0199 00238000 * SCH0001G=0; /* SEARCH IS COMPLETE */ 00239000 SLR SCH0001G,SCH0001G 01S0200 00240000 * END; /* ADJACENT ARRAY ENTRIES */ 00241000 * SCH0001G=SCH0001G+1; /* PROBE DISTANCE */ 00242000 @RF00197 DS 0H 01S0202 00243000 @RC00191 DS 0H 01S0202 00244000 @RC00184 AL SCH0001G,@CF00046 01S0202 00245000 * SRL(SCH0001G,1); /* PROBE DISTANCE */ 00246000 SRL SCH0001G,1 01S0203 00247000 * END; /* SEARCH SORTED ARRAY */ 00248000 @DE00182 SLR @14,@14 01S0204 00249000 CLR SCH0001G,@14 01S0204 00250000 BH @DL00182 01S0204 00251000 * END; /* BLRSRCH(ESBADTD) ARRAY(DTDTDTD 00252000 * )DIMENSION(DTDTDIM)SET(J1) */ 00253000 * IF J1=0 THEN /* UNSUPPORTED DATA TYPE */ 00254000 CR J1,@14 01S0206 00255000 BE @RT00206 01S0206 00256000 * GO TO EXIT; /* COMMON EXIT PATH */ 00257000 * ZZ2PGM=DTDTDSEP(J1); /* FIND EXIT ENTRY POINT NAME */ 00258000 LR @14,J1 01S0208 00259000 MH @14,@CH01224 01S0208 00260000 ALR @14,DTDTPTR 01S0208 00261000 AL @14,@CF01226 01S0208 00262000 MVC ZZ2PGM(8,R9),DTDTDSEP-48(@14) 01S0208 00263000 * IF ZZ2PGM=ZZZPGM40 THEN /* NO FIND EXIT */ 00264000 CLC ZZ2PGM(8,R9),@CC00162 01S0209 00265000 BE @RT00209 01S0209 00266000 * GO TO EXIT; /* COMMON EXIT PATH */ 00267000 * END; /* SPECIFIC DATA TYPE */ 00268000 * CALL BLSUPGMC; /* CALL NON-RESIDENT PROGRAM */ 00269000 @RC00169 L @10,ZZ2BVTP(,R9) 01S0212 00270000 L @15,BVTPGMCP(,@10) 01S0212 00271000 BALR @14,@15 01S0212 00272000 * RETC=RF; /* RETURN CODE */ 00273000 LR RETC,RF 01S0213 00274000 * IF RETC>ZZZFLAGE THEN /* SERIOUS ERROR */ 00275000 CH RETC,@CH00054 01S0214 00276000 BH @RT00214 01S0214 00277000 * GO TO EXIT; /* COMMON EXIT PATH */ 00278000 * ESBAFCD='1'B; /* PROVIDE DROP PROTECTION */ 00279000 OI ESBAFCD(ESBAPTR),B'10000000' 01S0216 00280000 * CALL BLSRESPU; /* ADD EQUATE SYMBOL RECORD */ 00281000 L @15,@CV01202 01S0217 00282000 BALR @14,@15 01S0217 00283000 *EXIT: /* COMMON EXIT PATH */ 00284000 * RETURN CODE(RETC); 01S0218 00285000 * 01S0218 00286000 EXIT L @13,4(,@13) 01S0218 00287000 L @00,@SIZDATD 01S0218 00288000 LR @01,@11 01S0218 00289000 BLSUFRES R,LV=(0),A=(1) 00290000 LR @15,@07 01S0218 00291000 L @14,12(,@13) 01S0218 00292000 LM @00,@12,20(@13) 01S0218 00293000 BR @14 01S0218 00294000 */*BLSRPEND--DEBUGGING MODULE */ 00295000 */*BLSUPEND--MVS IPCS MODULE */ 00296000 * 01S0219 00297000 * DECLARE /* DATA FOR AHB MACROS */ 00298000 * (SCH0001A, /* PROBE INDEX FOR SEARCH */ 00299000 * SCH0001G) UNSIGNED BINARY(32);/* PROBE DISTANCE FOR SEARCH */ 00300000 * DECLARE /* COMMON VARIABLES */ 00301000 * I256C CHAR(256) BASED, 01S0220 00302000 * I031F FIXED(31) BASED, 01S0220 00303000 * I031P PTR(31) BASED, 01S0220 00304000 * I015F FIXED(15) BASED, 01S0220 00305000 * I015P PTR(15) BASED, 01S0220 00306000 * I008P PTR(8) BASED, 01S0220 00307000 * I001C CHAR(1) BASED; 01S0220 00308000 * GENERATE NODEFS NOREFS DATA; 01S0221 00309000 * END BLSRESGE /* BLRPEND(BLSRESGE) */ 00310000 * 01S0222 00311000 */* THE FOLLOWING INCLUDE STATEMENTS WERE FOUND IN THIS PROGRAM. */ 00312000 */*%INCLUDE SYSLIB (BLSRZZZ ) */ 00313000 */*%INCLUDE SYSLIB (BLSUZZZ ) */ 00314000 */*%INCLUDE SYSLIB (BLRFULL ) */ 00315000 */*%INCLUDE SYSLIB (IKJCPPL ) */ 00316000 */*%INCLUDE SYSLIB (IKJPSCB ) */ 00317000 */*%INCLUDE SYSLIB (IKJECT ) */ 00318000 */*%INCLUDE SYSLIB (IKJUPT ) */ 00319000 */*%INCLUDE SYSLIB (BLSUSERV) */ 00320000 */*%INCLUDE SYSLIB (BLRSERV ) */ 00321000 */*%INCLUDE SYSLIB (BLRSERVD) */ 00322000 */*%INCLUDE SYSLIB (BLSRSERV) */ 00323000 */*%INCLUDE SYSLIB (BLSRDTDT) */ 00324000 * 01S0222 00325000 * ; 01S0222 00326000 @EL00001 L @13,4(,@13) 01S0222 00327000 @EF00001 L @00,@SIZDATD 01S0222 00328000 LR @01,@11 01S0222 00329000 BLSUFRES R,LV=(0),A=(1) 00330000 @ER00001 LM @14,@12,12(@13) 01S0222 00331000 BR @14 01S0222 00332000 @DATA DS 0H 00333000 @CH00043 DC H'4' 00334000 @CH00054 DC H'8' 00335000 @CH01224 DC H'52' 00336000 @DATD DSECT 00337000 DS 0F 00338000 @SA00001 DS 18F 00339000 @PC00001 DS 2F 00340000 BLSRESGE CSECT 00341000 DS 0F 00342000 @CF00046 DC F'1' 00343000 @CF01225 DC F'-39' 00344000 @CF01226 DC F'-4' 00345000 @DATD DSECT 00346000 DS 0D 00347000 ESAU DS CL182 00348000 ORG ESAU 00349000 ESAURID DS CL2 00350000 @NM00089 DS BL6 00351000 @NM00090 DS CL8 00352000 @NM00091 DS BL8 00353000 ESAURDX DS FL4 00354000 ESAUSYM DS CL31 00355000 ESAUELK DS 0C 00356000 ESAURV1 DS CL1 00357000 ESAUAS DS CL16 00358000 ORG ESAUAS 00359000 ESAUAS0 DS 0C 00360000 ESAUAST DS CL2 00361000 @NM00092 DS BL2 00362000 ESAUAS1 DS FL4 00363000 ESAUAS2 DS FL4 00364000 @NM00093 DS BL4 00365000 ESAUAS9 DS 0C 00366000 ORG ESAU+76 00367000 ESAULAD DS AL4 00368000 ESAUD DS CL60 00369000 ORG ESAUD 00370000 ESAUD00 DS 0C 00371000 ESAUDOF DS FL4 00372000 ESAUDLE DS FL4 00373000 ESAUDOB DS FL1 00374000 ESAUDLB DS FL1 00375000 ESAUDT DS CL34 00376000 ORG ESAUDT 00377000 ESAUDT0 DS 0C 00378000 ESAUDTY DS CL1 00379000 @NM00094 DS BL1 00380000 ESAUDTD DS CL31 00381000 ESAUDTE DS CL1 00382000 ESAUDT9 DS 0C 00383000 ORG ESAUD+44 00384000 ESAUDIM DS FL4 00385000 ESAUDIL DS FL4 00386000 ESAUDF DS BL4 00387000 ORG ESAUDF 00388000 ESAUDFA DS BL1 00389000 @NM00095 EQU ESAUDF+0 00390000 ORG ESAUD+56 00391000 @NM00096 DS BL4 00392000 ESAUD99 DS 0C 00393000 ORG ESAU+140 00394000 ESAUMAD DS AL4 00395000 @NM00097 DS BL16 00396000 ESAUKEY DS BL1 00397000 ESAUF DS BL3 00398000 ORG ESAUF 00399000 ESAUFS DS BL1 00400000 ORG ESAUFS 00401000 ESAUFSC DS BL1 00402000 ESAUFS2 EQU ESAUFS+0 00403000 ESAUFSM EQU ESAUFS+0 00404000 ESAUFSA EQU ESAUFS+0 00405000 ESAUFSP EQU ESAUFS+0 00406000 ESAUFSR EQU ESAUFS+0 00407000 ESAUFSX EQU ESAUFS+0 00408000 ESAUFSS EQU ESAUFS+0 00409000 ORG ESAUF+1 00410000 ESAUFC DS BL1 00411000 ORG ESAUFC 00412000 ESAUFCD DS BL1 00413000 @NM00098 EQU ESAUFC+0 00414000 ORG ESAUF+2 00415000 @NM00099 DS BL1 00416000 ORG ESAU+164 00417000 ESAUABS DS FL4 00418000 @NM00100 DS BL12 00419000 ESAUR DS CL2 00420000 ORG ESAUR 00421000 ESAURL DS FL2 00422000 ESAURT DS 0C 00423000 ORG ESAURT 00424000 ESAURT1 DS 0C 00425000 ORG ESAU+182 00426000 ESAU999 DS 0C 00427000 ORG ESAU+182 00428000 BLSRESGE CSECT 00429000 DS 0F 00430000 @SIZDATD DC AL1(0) 00431000 DC AL3(@ENDDATD-@DATD) 00432000 @CV01202 DC V(BLSRESPU) 00433000 DS 0D 00434000 @CC00178 DC C' ' 00435000 @CC00162 EQU @CC00178 00436000 @CC01209 DC C'BLSSLLPA' 00437000 @DATD DSECT 00438000 SPACE 2 00439000 *********************************************************************** 00440000 * THE FOLLOWING AREA, BLRPATCH, IS RESERVED FOR PATCH APPLICATION * 00441000 * TO OBTAIN PATCH ROOM IN THE @DATD AUTOMATIC STORAGE AREA, MODIFY * 00442000 * CONSTANT @SIZDATD TO REFLECT THE DESIRED @DATD SIZE * 00443000 *********************************************************************** 00444000 SPACE 00445000 BLSRESGE CSECT 00446000 ORG 00447000 DS 0D 00448000 BLRPATCH DC CL8'ZAPAREA',(((*-BLSRESGE+19)/20+7)/8)CL8'BLSRESGE' 00449000 @DATD DSECT 00450000 DS 0H 00451000 @DATD DSECT 00452000 SPACE 2 00453000 *********************************************************************** 00454000 * ALIGN END OF DATA ON A DOUBLEWORD BOUNDARY * 00455000 *********************************************************************** 00456000 SPACE 00457000 DS 0D 00458000 @DATD DSECT 00459000 ORG *+1-(*-@DATD)/(*-@DATD) INSURE DSECT DATA 00460000 @ENDDATD EQU * 00461000 BLSRESGE CSECT 00462000 @00 EQU 00 EQUATES FOR REGISTERS 0-15 00463000 @01 EQU 01 00464000 @02 EQU 02 00465000 @03 EQU 03 00466000 @04 EQU 04 00467000 @05 EQU 05 00468000 @06 EQU 06 00469000 @07 EQU 07 00470000 @08 EQU 08 00471000 @09 EQU 09 00472000 @10 EQU 10 00473000 @11 EQU 11 00474000 @12 EQU 12 00475000 @13 EQU 13 00476000 @14 EQU 14 00477000 @15 EQU 15 00478000 SCH0001A EQU @10 00479000 SCH0001G EQU @04 00480000 RETC EQU @07 00481000 J1 EQU @06 00482000 ESBAPTR EQU @05 00483000 DTDTPTR EQU @08 00484000 R9 EQU @09 00485000 R0 EQU @00 00486000 R1 EQU @01 00487000 R2 EQU @02 00488000 R3 EQU @03 00489000 R4 EQU @04 00490000 R5 EQU @05 00491000 RB EQU @11 00492000 RD EQU @13 00493000 RE EQU @14 00494000 RF EQU @15 00495000 RA EQU @10 00496000 RC EQU @12 00497000 R6 EQU @06 00498000 R7 EQU @07 00499000 R8 EQU @08 00500000 ZZ1 EQU 0 00501000 ZZ1ATTN EQU ZZ1+360 00502000 ZZ1EVE EQU ZZ1ATTN+4 00503000 ZZ1F EQU ZZ1+368 00504000 ZZ1TREBC EQU ZZ1+824 00505000 ZZ1N EQU ZZ1+1116 00506000 ZZ2 EQU 0 00507000 ZZ2AMD EQU ZZ2 00508000 @NM00025 EQU ZZ2AMD+7 00509000 ZZ2PRT EQU ZZ2+138 00510000 ZZ2PRTT EQU ZZ2PRT+4 00511000 ZZ2PRTT1 EQU ZZ2PRTT+1 00512000 ZZ2A EQU ZZ2+272 00513000 ZZ2AF EQU ZZ2A+16 00514000 ZZ2APID EQU ZZ2A+64 00515000 ZZ2AD EQU ZZ2A+74 00516000 ZZ2ADD EQU ZZ2AD 00517000 ZZ2ADDT EQU ZZ2ADD+2 00518000 ZZ2ADM EQU ZZ2AD+46 00519000 ZZ2ADMT EQU ZZ2ADM+2 00520000 ZZ2ADP EQU ZZ2AD+56 00521000 ZZ2ADPT EQU ZZ2ADP+2 00522000 ZZ2AZZ6P EQU ZZ2A+140 00523000 ZZ2AQAS EQU ZZ2A+144 00524000 ZZ2AQD EQU ZZ2A+160 00525000 ZZ2AQDT EQU ZZ2AQD+10 00526000 ZZ2AQDF EQU ZZ2AQD+52 00527000 ZZ2STG EQU ZZ2+960 00528000 ZZ2ALLOP EQU ZZ2+992 00529000 ZZ2FREEP EQU ZZ2+996 00530000 ZZ2FF19P EQU ZZ2+1000 00531000 ZZ2FRE1P EQU ZZ2+1004 00532000 ZZ2FF18P EQU ZZ2+1008 00533000 ZZ2DYNAP EQU ZZ2+1012 00534000 ZZ2ZZ2CP EQU ZZ2+1016 00535000 ZZ2ZZ2DP EQU ZZ2+1020 00536000 ZZ2STAIP EQU ZZ2+1024 00537000 ZZ2FF02P EQU ZZ2+1028 00538000 ZZ2GETLP EQU ZZ2+1032 00539000 ZZ2PARSP EQU ZZ2+1036 00540000 ZZ2PTGTP EQU ZZ2+1040 00541000 ZZ2PUTLP EQU ZZ2+1044 00542000 ZZ2SCANP EQU ZZ2+1048 00543000 ZZ2STCKP EQU ZZ2+1052 00544000 ZZ2TRMOP EQU ZZ2+1064 00545000 ZZ2TRMVP EQU ZZ2+1068 00546000 ZZ2PUTNP EQU ZZ2+1084 00547000 ZZ2TRMNP EQU ZZ2+1088 00548000 ZZ2ZZ1P EQU ZZ2+1264 00549000 ZZ2BVTP EQU ZZ2+1280 00550000 ZZ2RVTP EQU ZZ2+1284 00551000 ZZ2CPPL EQU ZZ2+1292 00552000 ZZ2CPPLC EQU ZZ2CPPL 00553000 ZZ2ESSYP EQU ZZ2+1328 00554000 ZZ2PGM EQU ZZ2+1536 00555000 ZZ2ITR EQU ZZ2+2840 00556000 ZZ2ITRE EQU ZZ2ITR+16 00557000 ZZ2ITSE EQU ZZ2+2864 00558000 ZZ2ES EQU ZZ2+2872 00559000 ZZ2AMDX EQU ZZ2+7160 00560000 ZZ2AXO EQU ZZ2+7934 00561000 ZZ2AXOT EQU ZZ2AXO+2 00562000 CMD EQU 0 00563000 CMDT EQU CMD+4 00564000 PSCB EQU 0 00565000 PSCBATR1 EQU PSCB+16 00566000 ECT EQU 0 00567000 ECTSWS EQU ECT+28 00568000 ECTSWS2 EQU ECT+40 00569000 ECTSWS21 EQU ECTSWS2 00570000 UPT EQU 0 00571000 UPTSWS EQU UPT+12 00572000 SA EQU 0 00573000 SA1 EQU SA 00574000 SAR EQU SA+12 00575000 SAR1 EQU SAR+12 00576000 BLSUPGMC EQU 0 00577000 BVT EQU 0 00578000 BVTPUTLP EQU BVT+4 00579000 BVTPUTOP EQU BVT+12 00580000 BVTPUTTP EQU BVT+16 00581000 BVTPUTVP EQU BVT+20 00582000 BVTPUTAP EQU BVT+24 00583000 BVTPRTTP EQU BVT+28 00584000 BVTPRTAP EQU BVT+32 00585000 BVTPUTDP EQU BVT+36 00586000 BVTMONP EQU BVT+40 00587000 BVTMON2P EQU BVT+44 00588000 BVTVSARP EQU BVT+48 00589000 BVTVSENP EQU BVT+64 00590000 BVTVSERP EQU BVT+68 00591000 BVTVSGEP EQU BVT+72 00592000 BVTVSGUP EQU BVT+76 00593000 BVTVSPOP EQU BVT+80 00594000 BVTVSPUP EQU BVT+84 00595000 BVTMPKNP EQU BVT+104 00596000 BVTMONLP EQU BVT+108 00597000 BVTPUTCP EQU BVT+132 00598000 BVTMPK1P EQU BVT+136 00599000 BVTZZ2RP EQU BVT+140 00600000 BVTPGMRP EQU BVT+144 00601000 BVTMONAP EQU BVT+148 00602000 BVTBLDDP EQU BVT+152 00603000 BVTBLDLP EQU BVT+156 00604000 BVTPGMCP EQU BVT+160 00605000 BVTPGMDP EQU BVT+164 00606000 BVTPGMLP EQU BVT+168 00607000 BVTMONCP EQU BVT+180 00608000 BVTMONDP EQU BVT+184 00609000 BVTMONTP EQU BVT+188 00610000 BVTPARIP EQU BVT+192 00611000 BVTPARUP EQU BVT+196 00612000 BVTPRTNP EQU BVT+204 00613000 BVTVSCRP EQU BVT+208 00614000 BVTVSMRP EQU BVT+212 00615000 BVTMONXP EQU BVT+216 00616000 BVTTRMAP EQU BVT+228 00617000 ZZ6 EQU 0 00618000 ZZ6D EQU ZZ6+128 00619000 ZZ6DD EQU ZZ6D+8 00620000 ZZ6DDT EQU ZZ6DD+4 00621000 ZZ6DRDX EQU ZZ6D+64 00622000 ZZ6DQA EQU ZZ6D+68 00623000 ZZ6DF EQU ZZ6D+92 00624000 ZZ6B EQU ZZ6+768 00625000 BLSRESGC EQU 0 00626000 BLSRESGQ EQU 0 00627000 RVT EQU 0 00628000 RVTADDRP EQU RVT 00629000 RVTT01P EQU RVT+4 00630000 RVTTAP EQU RVT+8 00631000 RVTTBP EQU RVT+12 00632000 RVTTCP EQU RVT+16 00633000 RVTTFP EQU RVT+24 00634000 RVTTYP EQU RVT+40 00635000 RVTT02P EQU RVT+48 00636000 RVTT03P EQU RVT+52 00637000 RVTT04P EQU RVT+56 00638000 RVTACCLP EQU RVT+60 00639000 RVTRACCP EQU RVT+64 00640000 RVTTLP EQU RVT+68 00641000 RVTTMP EQU RVT+72 00642000 RVTTUP EQU RVT+80 00643000 RVTESGUP EQU RVT+88 00644000 RVTESARP EQU RVT+92 00645000 RVTRAARP EQU RVT+96 00646000 RVTRAGEP EQU RVT+100 00647000 RVTADDPP EQU RVT+104 00648000 RVTACCQP EQU RVT+108 00649000 RVTSAGUP EQU RVT+124 00650000 RVTSAGEP EQU RVT+128 00651000 RVTESCKP EQU RVT+132 00652000 RVTMSGAP EQU RVT+136 00653000 RVTMSGDP EQU RVT+140 00654000 RVTADDTP EQU RVT+160 00655000 RVTADDUP EQU RVT+164 00656000 RVTADD1P EQU RVT+176 00657000 RVTADD2P EQU RVT+180 00658000 RVTRSAGP EQU RVT+184 00659000 RVTMSGBP EQU RVT+188 00660000 RVTADDSP EQU RVT+192 00661000 RVTADD3P EQU RVT+196 00662000 RVTT05P EQU RVT+200 00663000 RVTPADSP EQU RVT+204 00664000 RVTTRP EQU RVT+228 00665000 RVTADD4P EQU RVT+232 00666000 RVTSAPCP EQU RVT+236 00667000 RVTSAARP EQU RVT+240 00668000 RVTSAGNP EQU RVT+244 00669000 RVTT06P EQU RVT+248 00670000 RVTSAGCP EQU RVT+252 00671000 RVTSAGQP EQU RVT+256 00672000 RVTESGCP EQU RVT+260 00673000 RVTESGQP EQU RVT+264 00674000 RVTDTMTP EQU RVT+268 00675000 RVTDTUTP EQU RVT+272 00676000 RVTDUCKP EQU RVT+276 00677000 RVTDUCCP EQU RVT+280 00678000 DTDT EQU 0 00679000 DTDTDIM EQU DTDT+8 00680000 DTDTD EQU DTDT+12 00681000 DTDTDTD EQU DTDTD+1 00682000 DTDTDSEP EQU DTDTD+36 00683000 ESBA EQU 0 00684000 ESBASYM EQU ESBA+28 00685000 ESBAAS EQU ESBA+60 00686000 ESBAD EQU ESBA+80 00687000 ESBADT EQU ESBAD+10 00688000 ESBADTY EQU ESBADT 00689000 ESBADTD EQU ESBADT+2 00690000 ESBADF EQU ESBAD+52 00691000 ESBAF EQU ESBA+161 00692000 ESBAFS EQU ESBAF 00693000 ESBAFC EQU ESBAF+1 00694000 ESBAFCD EQU ESBAFC 00695000 ESBAR EQU ESBA+180 00696000 ESBART EQU ESBAR+2 00697000 ESCO EQU 0 00698000 ESCOAS EQU ESCO+60 00699000 ESCOD EQU ESCO+80 00700000 ESCODT EQU ESCOD+10 00701000 ESCODF EQU ESCOD+52 00702000 ESCOF EQU ESCO+161 00703000 ESCOFS EQU ESCOF 00704000 ESCOFC EQU ESCOF+1 00705000 ESCOR EQU ESCO+180 00706000 ESCORT EQU ESCOR+2 00707000 BLSRACC EQU 0 00708000 BLSRACCL EQU 0 00709000 BLSRACCQ EQU 0 00710000 BLSRADDP EQU 0 00711000 BLSRADDR EQU 0 00712000 BLSRADDS EQU 0 00713000 BLSRADDT EQU 0 00714000 BLSRADDU EQU 0 00715000 BLSRADD1 EQU 0 00716000 BLSRADD2 EQU 0 00717000 BLSRADD3 EQU 0 00718000 BLSRADD4 EQU 0 00719000 BLSRDUCC EQU 0 00720000 BLSRDUCK EQU 0 00721000 BLSRESAR EQU 0 00722000 BLSRESCK EQU 0 00723000 BLSRESGU EQU 0 00724000 BLSRMSGA EQU 0 00725000 BLSRMSGB EQU 0 00726000 BLSRMSGD EQU 0 00727000 BLSRPADS EQU 0 00728000 BLSRRAAR EQU 0 00729000 BLSRRAGE EQU 0 00730000 BLSRSAAR EQU 0 00731000 BLSRSAG EQU 0 00732000 BLSRSAGC EQU 0 00733000 BLSRSAGE EQU 0 00734000 BLSRSAGN EQU 0 00735000 BLSRSAGQ EQU 0 00736000 BLSRSAGU EQU 0 00737000 BLSRSAPC EQU 0 00738000 BLSTA EQU 0 00739000 BLSTB EQU 0 00740000 BLSTC EQU 0 00741000 BLSTF EQU 0 00742000 BLSTL EQU 0 00743000 BLSTM EQU 0 00744000 BLSTR EQU 0 00745000 BLSTU EQU 0 00746000 BLSTY EQU 0 00747000 BLST01 EQU 0 00748000 BLST02 EQU 0 00749000 BLST03 EQU 0 00750000 BLST04 EQU 0 00751000 BLST05 EQU 0 00752000 BLST06 EQU 0 00753000 BLSUALLO EQU 0 00754000 BLSUBLDD EQU 0 00755000 BLSUBLDL EQU 0 00756000 BLSUDYNA EQU 0 00757000 BLSUFREE EQU 0 00758000 BLSUFRE1 EQU 0 00759000 BLSUMON EQU 0 00760000 BLSUMONA EQU 0 00761000 BLSUMONC EQU 0 00762000 BLSUMOND EQU 0 00763000 BLSUMONL EQU 0 00764000 BLSUMONT EQU 0 00765000 BLSUMONX EQU 0 00766000 BLSUMON2 EQU 0 00767000 BLSUMPKN EQU 0 00768000 BLSUMPK1 EQU 0 00769000 BLSUPARI EQU 0 00770000 BLSUPARU EQU 0 00771000 BLSUPGMD EQU 0 00772000 BLSUPGML EQU 0 00773000 BLSUPGMR EQU 0 00774000 BLSUPRTA EQU 0 00775000 BLSUPRTN EQU 0 00776000 BLSUPRTT EQU 0 00777000 BLSUPUTA EQU 0 00778000 BLSUPUTC EQU 0 00779000 BLSUPUTD EQU 0 00780000 BLSUPUTL EQU 0 00781000 BLSUPUTN EQU 0 00782000 BLSUPUTO EQU 0 00783000 BLSUPUTT EQU 0 00784000 BLSUPUTV EQU 0 00785000 BLSUSTAI EQU 0 00786000 BLSUTRMA EQU 0 00787000 BLSUTRMN EQU 0 00788000 BLSUTRMO EQU 0 00789000 BLSUTRMV EQU 0 00790000 BLSUVSAR EQU 0 00791000 BLSUVSCR EQU 0 00792000 BLSUVSEN EQU 0 00793000 BLSUVSER EQU 0 00794000 BLSUVSGE EQU 0 00795000 BLSUVSGU EQU 0 00796000 BLSUVSMR EQU 0 00797000 BLSUVSPO EQU 0 00798000 BLSUVSPU EQU 0 00799000 BLSUZZ2C EQU 0 00800000 BLSUZZ2D EQU 0 00801000 BLSUZZ2R EQU 0 00802000 IKJEFF02 EQU 0 00803000 IKJEFF18 EQU 0 00804000 IKJEFF19 EQU 0 00805000 IKJGETL EQU 0 00806000 IKJPARS EQU 0 00807000 IKJPTGT EQU 0 00808000 IKJPUTL EQU 0 00809000 IKJSCAN EQU 0 00810000 IKJSTCK EQU 0 00811000 I001C EQU 0 00812000 I008P EQU 0 00813000 I015F EQU 0 00814000 I015P EQU 0 00815000 I031F EQU 0 00816000 I031P EQU 0 00817000 I256C EQU 0 00818000 PZ2 EQU 0 00819000 ESPA EQU 0 00820000 ESPAAS EQU ESPA+60 00821000 ESPAD EQU ESPA+80 00822000 ESPADT EQU ESPAD+10 00823000 ESPADF EQU ESPAD+52 00824000 ESPAF EQU ESPA+161 00825000 ESPAFS EQU ESPAF 00826000 ESPAFC EQU ESPAF+1 00827000 ESPAR EQU ESPA+180 00828000 ESPART EQU ESPAR+2 00829000 CPPL EQU ZZ2CPPL 00830000 CPPLUPT EQU CPPL+4 00831000 CPPLPSCB EQU CPPL+8 00832000 CPPLECT EQU CPPL+12 00833000 AGO .@UNREFD START UNREFERENCED COMPONENTS 00834000 CPPLCBUF EQU CPPL 00835000 ESPA999 EQU ESPA+694 00836000 ESPART1 EQU ESPART 00837000 ESPARL EQU ESPAR 00838000 @NM00012 EQU ESPA+168 00839000 ESPAABS EQU ESPA+164 00840000 @NM00011 EQU ESPAF+2 00841000 @NM00010 EQU ESPAFC 00842000 ESPAFCD EQU ESPAFC 00843000 ESPAFSS EQU ESPAFS 00844000 ESPAFSX EQU ESPAFS 00845000 ESPAFSR EQU ESPAFS 00846000 ESPAFSP EQU ESPAFS 00847000 ESPAFSA EQU ESPAFS 00848000 ESPAFSM EQU ESPAFS 00849000 ESPAFS2 EQU ESPAFS 00850000 ESPAFSC EQU ESPAFS 00851000 ESPAKEY EQU ESPA+160 00852000 @NM00009 EQU ESPA+144 00853000 ESPAMAD EQU ESPA+140 00854000 ESPAD99 EQU ESPAD+60 00855000 @NM00008 EQU ESPAD+56 00856000 @NM00007 EQU ESPADF 00857000 ESPADFA EQU ESPADF 00858000 ESPADIL EQU ESPAD+48 00859000 ESPADIM EQU ESPAD+44 00860000 ESPADT9 EQU ESPADT+34 00861000 ESPADTE EQU ESPADT+33 00862000 ESPADTD EQU ESPADT+2 00863000 @NM00006 EQU ESPADT+1 00864000 ESPADTY EQU ESPADT 00865000 ESPADT0 EQU ESPADT 00866000 ESPADLB EQU ESPAD+9 00867000 ESPADOB EQU ESPAD+8 00868000 ESPADLE EQU ESPAD+4 00869000 ESPADOF EQU ESPAD 00870000 ESPAD00 EQU ESPAD 00871000 ESPALAD EQU ESPA+76 00872000 ESPAAS9 EQU ESPAAS+16 00873000 @NM00005 EQU ESPAAS+12 00874000 ESPAAS2 EQU ESPAAS+8 00875000 ESPAAS1 EQU ESPAAS+4 00876000 @NM00004 EQU ESPAAS+2 00877000 ESPAAST EQU ESPAAS 00878000 ESPAAS0 EQU ESPAAS 00879000 ESPARV1 EQU ESPA+59 00880000 ESPAELK EQU ESPA+59 00881000 ESPASYM EQU ESPA+28 00882000 ESPARDX EQU ESPA+24 00883000 @NM00003 EQU ESPA+16 00884000 @NM00002 EQU ESPA+8 00885000 @NM00001 EQU ESPA+2 00886000 ESPARID EQU ESPA 00887000 ESCO999 EQU ESCO+182 00888000 ESCORT1 EQU ESCORT 00889000 ESCORL EQU ESCOR 00890000 @NM00124 EQU ESCO+168 00891000 ESCOABS EQU ESCO+164 00892000 @NM00123 EQU ESCOF+2 00893000 @NM00122 EQU ESCOFC 00894000 ESCOFCD EQU ESCOFC 00895000 ESCOFSS EQU ESCOFS 00896000 ESCOFSX EQU ESCOFS 00897000 ESCOFSR EQU ESCOFS 00898000 ESCOFSP EQU ESCOFS 00899000 ESCOFSA EQU ESCOFS 00900000 ESCOFSM EQU ESCOFS 00901000 ESCOFS2 EQU ESCOFS 00902000 ESCOFSC EQU ESCOFS 00903000 ESCOKEY EQU ESCO+160 00904000 @NM00121 EQU ESCO+144 00905000 ESCOMAD EQU ESCO+140 00906000 ESCOD99 EQU ESCOD+60 00907000 @NM00120 EQU ESCOD+56 00908000 @NM00119 EQU ESCODF 00909000 ESCODFA EQU ESCODF 00910000 ESCODIL EQU ESCOD+48 00911000 ESCODIM EQU ESCOD+44 00912000 ESCODT9 EQU ESCODT+34 00913000 ESCODTE EQU ESCODT+33 00914000 ESCODTD EQU ESCODT+2 00915000 @NM00118 EQU ESCODT+1 00916000 ESCODTY EQU ESCODT 00917000 ESCODT0 EQU ESCODT 00918000 ESCODLB EQU ESCOD+9 00919000 ESCODOB EQU ESCOD+8 00920000 ESCODLE EQU ESCOD+4 00921000 ESCODOF EQU ESCOD 00922000 ESCOD00 EQU ESCOD 00923000 ESCOLAD EQU ESCO+76 00924000 ESCOAS9 EQU ESCOAS+16 00925000 @NM00117 EQU ESCOAS+12 00926000 ESCOAS2 EQU ESCOAS+8 00927000 ESCOAS1 EQU ESCOAS+4 00928000 @NM00116 EQU ESCOAS+2 00929000 ESCOAST EQU ESCOAS 00930000 ESCOAS0 EQU ESCOAS 00931000 ESCORV1 EQU ESCO+59 00932000 ESCOELK EQU ESCO+59 00933000 ESCOSYM EQU ESCO+28 00934000 ESCORDX EQU ESCO+24 00935000 @NM00115 EQU ESCO+16 00936000 @NM00114 EQU ESCO+8 00937000 @NM00113 EQU ESCO+2 00938000 ESCORID EQU ESCO 00939000 ESBA999 EQU ESBA+694 00940000 ESBART1 EQU ESBART 00941000 ESBARL EQU ESBAR 00942000 @NM00112 EQU ESBA+168 00943000 ESBAABS EQU ESBA+164 00944000 @NM00111 EQU ESBAF+2 00945000 @NM00110 EQU ESBAFC 00946000 ESBAFSS EQU ESBAFS 00947000 ESBAFSX EQU ESBAFS 00948000 ESBAFSR EQU ESBAFS 00949000 ESBAFSP EQU ESBAFS 00950000 ESBAFSA EQU ESBAFS 00951000 ESBAFSM EQU ESBAFS 00952000 ESBAFS2 EQU ESBAFS 00953000 ESBAFSC EQU ESBAFS 00954000 ESBAKEY EQU ESBA+160 00955000 @NM00109 EQU ESBA+144 00956000 ESBAMAD EQU ESBA+140 00957000 ESBAD99 EQU ESBAD+60 00958000 @NM00108 EQU ESBAD+56 00959000 @NM00107 EQU ESBADF 00960000 ESBADFA EQU ESBADF 00961000 ESBADIL EQU ESBAD+48 00962000 ESBADIM EQU ESBAD+44 00963000 ESBADT9 EQU ESBADT+34 00964000 ESBADTE EQU ESBADT+33 00965000 @NM00106 EQU ESBADT+1 00966000 ESBADT0 EQU ESBADT 00967000 ESBADLB EQU ESBAD+9 00968000 ESBADOB EQU ESBAD+8 00969000 ESBADLE EQU ESBAD+4 00970000 ESBADOF EQU ESBAD 00971000 ESBAD00 EQU ESBAD 00972000 ESBALAD EQU ESBA+76 00973000 ESBAAS9 EQU ESBAAS+16 00974000 @NM00105 EQU ESBAAS+12 00975000 ESBAAS2 EQU ESBAAS+8 00976000 ESBAAS1 EQU ESBAAS+4 00977000 @NM00104 EQU ESBAAS+2 00978000 ESBAAST EQU ESBAAS 00979000 ESBAAS0 EQU ESBAAS 00980000 ESBARV1 EQU ESBA+59 00981000 ESBAELK EQU ESBA+59 00982000 ESBARDX EQU ESBA+24 00983000 @NM00103 EQU ESBA+16 00984000 @NM00102 EQU ESBA+8 00985000 @NM00101 EQU ESBA+2 00986000 ESBARID EQU ESBA 00987000 DTDTDVEP EQU DTDTD+44 00988000 DTDTDTN EQU DTDTD+32 00989000 DTDTDTL EQU DTDTD 00990000 DTDTID EQU DTDT 00991000 RVT99999 EQU RVT+384 00992000 RVT0096P EQU RVT+380 00993000 RVT0095P EQU RVT+376 00994000 RVT0094P EQU RVT+372 00995000 RVT0093P EQU RVT+368 00996000 RVT0092P EQU RVT+364 00997000 RVT0091P EQU RVT+360 00998000 RVT0090P EQU RVT+356 00999000 RVT0089P EQU RVT+352 01000000 RVT0088P EQU RVT+348 01001000 RVT0087P EQU RVT+344 01002000 RVT0086P EQU RVT+340 01003000 RVT0085P EQU RVT+336 01004000 RVT0084P EQU RVT+332 01005000 RVT0083P EQU RVT+328 01006000 RVT0082P EQU RVT+324 01007000 RVT0081P EQU RVT+320 01008000 RVT0080P EQU RVT+316 01009000 RVT0079P EQU RVT+312 01010000 RVT0078P EQU RVT+308 01011000 RVT0077P EQU RVT+304 01012000 RVT0076P EQU RVT+300 01013000 RVT0075P EQU RVT+296 01014000 RVT0074P EQU RVT+292 01015000 RVT0073P EQU RVT+288 01016000 RVT0072P EQU RVT+284 01017000 RVT0057P EQU RVT+224 01018000 RVT0056P EQU RVT+220 01019000 RVT0055P EQU RVT+216 01020000 RVT0054P EQU RVT+212 01021000 RVT0053P EQU RVT+208 01022000 RVT0044P EQU RVT+172 01023000 RVT0043P EQU RVT+168 01024000 RVT0040P EQU RVT+156 01025000 RVT0039P EQU RVT+152 01026000 RVT0038P EQU RVT+148 01027000 RVT0037P EQU RVT+144 01028000 RVT0031P EQU RVT+120 01029000 RVT0030P EQU RVT+116 01030000 RVT0029P EQU RVT+112 01031000 RVTESGEP EQU RVT+84 01032000 RVT0020P EQU RVT+76 01033000 RVT0012P EQU RVT+44 01034000 RVT0010P EQU RVT+36 01035000 RVT0009P EQU RVT+32 01036000 RVT0008P EQU RVT+28 01037000 RVT0006P EQU RVT+20 01038000 ZZ69999 EQU ZZ6+1792 01039000 ZZ6BRB EQU ZZ6B+12 01040000 ZZ6BRC EQU ZZ6B+8 01041000 @NM00088 EQU ZZ6B+6 01042000 ZZ6BFL EQU ZZ6B+4 01043000 ZZ6BDA EQU ZZ6B 01044000 @NM00087 EQU ZZ6+540 01045000 ZZ6BUFI EQU ZZ6+536 01046000 ZZ6BUFP EQU ZZ6+532 01047000 ZZ6FILE EQU ZZ6+524 01048000 ZZ6BUFB EQU ZZ6+520 01049000 ZZ6BUFL EQU ZZ6+518 01050000 ZZ6BUFN EQU ZZ6+516 01051000 ZZ6ZZ6P EQU ZZ6+512 01052000 @NM00086 EQU ZZ6+256 01053000 ZZ6D999 EQU ZZ6D+128 01054000 @NM00085 EQU ZZ6D+116 01055000 ZZ6DCAP EQU ZZ6D+112 01056000 ZZ6DPRP EQU ZZ6D+108 01057000 ZZ6DDA2 EQU ZZ6D+104 01058000 ZZ6DDA1 EQU ZZ6D+100 01059000 @NM00084 EQU ZZ6DF 01060000 ZZ6DFSU EQU ZZ6DF 01061000 ZZ6DFST EQU ZZ6DF 01062000 ZZ6DFAB EQU ZZ6DF 01063000 ZZ6DFMP EQU ZZ6DF 01064000 ZZ6DFDU EQU ZZ6DF 01065000 ZZ6DFBS EQU ZZ6DF 01066000 ZZ6DQ2 EQU ZZ6D+88 01067000 ZZ6DQ1 EQU ZZ6D+84 01068000 ZZ6DQA9 EQU ZZ6DQA+16 01069000 @NM00083 EQU ZZ6DQA+12 01070000 ZZ6DQA2 EQU ZZ6DQA+8 01071000 ZZ6DQA1 EQU ZZ6DQA+4 01072000 @NM00082 EQU ZZ6DQA+2 01073000 ZZ6DQAT EQU ZZ6DQA 01074000 ZZ6DQA0 EQU ZZ6DQA 01075000 ZZ6DELK EQU ZZ6D+64 01076000 ZZ6DMEM EQU ZZ6D+56 01077000 ZZ6DDT1 EQU ZZ6DDT 01078000 ZZ6DDO EQU ZZ6DD+2 01079000 ZZ6DDL EQU ZZ6DD 01080000 @NM00081 EQU ZZ6D+2 01081000 ZZ6DRID EQU ZZ6D 01082000 ZZ6RDCB EQU ZZ6 01083000 ZZ60000 EQU ZZ6 01084000 BVT99999 EQU BVT+256 01085000 BVT0064P EQU BVT+252 01086000 BVT0063P EQU BVT+248 01087000 BVT0062P EQU BVT+244 01088000 BVT0061P EQU BVT+240 01089000 BVT0060P EQU BVT+236 01090000 BVT0059P EQU BVT+232 01091000 BVT0057P EQU BVT+224 01092000 BVT0056P EQU BVT+220 01093000 BVTSTBLP EQU BVT+200 01094000 BVT0045P EQU BVT+176 01095000 BVT0044P EQU BVT+172 01096000 BVT0033P EQU BVT+128 01097000 BVT0032P EQU BVT+124 01098000 BVT0031P EQU BVT+120 01099000 BVT0030P EQU BVT+116 01100000 BVT0029P EQU BVT+112 01101000 BVT0026P EQU BVT+100 01102000 BVT0025P EQU BVT+96 01103000 BVT0024P EQU BVT+92 01104000 BVT0023P EQU BVT+88 01105000 BVT0016P EQU BVT+60 01106000 BVT0015P EQU BVT+56 01107000 BVT0014P EQU BVT+52 01108000 BVT0003P EQU BVT+8 01109000 BVT0001P EQU BVT 01110000 SA99 EQU SA+72 01111000 SARC EQU SAR+56 01112000 SARB EQU SAR+52 01113000 SARA EQU SAR+48 01114000 SAR9 EQU SAR+44 01115000 SAR8 EQU SAR+40 01116000 SAR7 EQU SAR+36 01117000 SAR6 EQU SAR+32 01118000 SAR5 EQU SAR+28 01119000 SAR4 EQU SAR+24 01120000 SAR3 EQU SAR+20 01121000 SAR2 EQU SAR+16 01122000 SAR0 EQU SAR+8 01123000 SARF EQU SAR+4 01124000 SARE EQU SAR 01125000 SAFWD EQU SA+8 01126000 SABAK EQU SA+4 01127000 SA1L EQU SA1+1 01128000 SA1P EQU SA1 01129000 UPTPREFL EQU UPT+23 01130000 UPTPREFX EQU UPT+16 01131000 @NM00080 EQU UPT+15 01132000 UPTLDEL EQU UPT+14 01133000 UPTCDEL EQU UPT+13 01134000 UPTWTP EQU UPTSWS 01135000 UPTMODE EQU UPTSWS 01136000 UPTALD EQU UPTSWS 01137000 UPTPAUS EQU UPTSWS 01138000 UPTNCOM EQU UPTSWS 01139000 UPTMID EQU UPTSWS 01140000 UPTNPRM EQU UPTSWS 01141000 UPTRCVR EQU UPTSWS 01142000 UPTUSER EQU UPT+2 01143000 @NM00079 EQU UPT 01144000 @NM00078 EQU ECT+52 01145000 @NM00077 EQU ECT+48 01146000 @NM00076 EQU ECT+44 01147000 @NM00075 EQU ECTSWS2+1 01148000 @NM00074 EQU ECTSWS21 01149000 ECTTABND EQU ECTSWS21 01150000 ECTDEFCS EQU ECTSWS21 01151000 ECTBKPB EQU ECT+36 01152000 ECTUSER EQU ECT+32 01153000 ECTDDNUM EQU ECT+29 01154000 ECTATTN EQU ECTSWS 01155000 ECTBKGRD EQU ECTSWS 01156000 ECTNNOT EQU ECTSWS 01157000 ECTNMAL EQU ECTSWS 01158000 ECTLOGF EQU ECTSWS 01159000 ECTATRM EQU ECTSWS 01160000 @NM00073 EQU ECTSWS 01161000 ECTNOPD EQU ECTSWS 01162000 ECTSCMD EQU ECT+20 01163000 ECTPCMD EQU ECT+12 01164000 ECTSMSG EQU ECT+9 01165000 ECTMSGF EQU ECT+8 01166000 ECTIOWA EQU ECT+4 01167000 ECTRTCD EQU ECT+1 01168000 ECTRCDF EQU ECT 01169000 PSCBU EQU PSCB+64 01170000 PSCBRSZ EQU PSCB+60 01171000 PSCBLINE EQU PSCB+59 01172000 PSCBCHAR EQU PSCB+58 01173000 PSCBUPTL EQU PSCB+56 01174000 PSCBUPT EQU PSCB+52 01175000 PSCBRLGB EQU PSCB+48 01176000 PSCBDEST EQU PSCB+40 01177000 @NM00072 EQU PSCB+36 01178000 @NM00071 EQU PSCB+32 01179000 @NM00070 EQU PSCB+28 01180000 PSCBLTI2 EQU PSCB+24 01181000 PSCBLTIM EQU PSCB+20 01182000 PSCBATR2 EQU PSCB+18 01183000 @NM00069 EQU PSCBATR1 01184000 @NM00068 EQU PSCBATR1 01185000 @NM00067 EQU PSCBATR1 01186000 PSCBATTN EQU PSCBATR1 01187000 PSCBVMNT EQU PSCBATR1 01188000 PSCBJCL EQU PSCBATR1 01189000 PSCBACCT EQU PSCBATR1 01190000 PSCBCTRL EQU PSCBATR1 01191000 PSCBGPNM EQU PSCB+8 01192000 PSCBUSRL EQU PSCB+7 01193000 PSCBUSER EQU PSCB 01194000 CMDT1 EQU CMDT 01195000 CMDO EQU CMD+2 01196000 CMDL EQU CMD 01197000 ZZ299999 EQU ZZ2+8192 01198000 ZZ2AXOT1 EQU ZZ2AXOT 01199000 ZZ2AXOL EQU ZZ2AXO 01200000 @NM00066 EQU ZZ2+7288 01201000 @NM00065 EQU ZZ2AMDX+4 01202000 ZZ2AMDXC EQU ZZ2AMDX 01203000 ZZ2HSD EQU ZZ2+3056 01204000 @NM00064 EQU ZZ2ES 01205000 @NM00063 EQU ZZ2+2868 01206000 ZZ2ITSEC EQU ZZ2ITSE+1 01207000 @NM00062 EQU ZZ2ITSE 01208000 ZZ2ITSEP EQU ZZ2ITSE 01209000 ZZ2ITSEW EQU ZZ2ITSE 01210000 @NM00061 EQU ZZ2ITR+20 01211000 ZZ2ITREC EQU ZZ2ITRE+1 01212000 @NM00060 EQU ZZ2ITRE 01213000 ZZ2ITREP EQU ZZ2ITRE 01214000 ZZ2ITREW EQU ZZ2ITRE 01215000 @NM00059 EQU ZZ2ITR+9 01216000 ZZ2ITRRC EQU ZZ2ITR+8 01217000 ZZ2ITR2P EQU ZZ2ITR+4 01218000 ZZ2ITRPP EQU ZZ2ITR 01219000 @NM00058 EQU ZZ2+1544 01220000 @NM00057 EQU ZZ2+1526 01221000 ZZ2CW EQU ZZ2+1524 01222000 @NM00056 EQU ZZ2+1504 01223000 @NM00055 EQU ZZ2+1352 01224000 ZZ2FFSYP EQU ZZ2+1348 01225000 ZZ2SASYP EQU ZZ2+1344 01226000 ZZ2RDSYP EQU ZZ2+1340 01227000 ZZ2RASYP EQU ZZ2+1336 01228000 ZZ2PHSYP EQU ZZ2+1332 01229000 ZZ200SYP EQU ZZ2+1324 01230000 ZZ2SCWP EQU ZZ2+1320 01231000 ZZ2TTLP EQU ZZ2+1316 01232000 ZZ2LOADP EQU ZZ2+1312 01233000 ZZ2VRESP EQU ZZ2+1308 01234000 ZZ2CPPLE EQU ZZ2CPPL+12 01235000 ZZ2CPPLP EQU ZZ2CPPL+8 01236000 ZZ2CPPLU EQU ZZ2CPPL+4 01237000 ZZ2VRSAP EQU ZZ2+1288 01238000 ZZ2DVTP EQU ZZ2+1276 01239000 @NM00054 EQU ZZ2+1272 01240000 @NM00053 EQU ZZ2+1268 01241000 ZZ2RPLP EQU ZZ2+1260 01242000 ZZ2TCBP EQU ZZ2+1256 01243000 @NM00052 EQU ZZ2+1252 01244000 ZZ2ZZ2P EQU ZZ2+1248 01245000 @NM00051 EQU ZZ2+1112 01246000 ZZ2FPDRP EQU ZZ2+1108 01247000 ZZ2FDSDP EQU ZZ2+1104 01248000 ZZ2APDRP EQU ZZ2+1100 01249000 ZZ2ADSDP EQU ZZ2+1096 01250000 ZZ2ENQ0P EQU ZZ2+1092 01251000 @NM00050 EQU ZZ2+1080 01252000 ZZ2MSG0P EQU ZZ2+1076 01253000 ZZ2FT25P EQU ZZ2+1072 01254000 ZZ2MSGSP EQU ZZ2+1060 01255000 ZZ2ALOCP EQU ZZ2+1056 01256000 @NM00049 EQU ZZ2+976 01257000 ZZ2TOD EQU ZZ2+968 01258000 ZZ2STGN EQU ZZ2STG+4 01259000 ZZ2STGP EQU ZZ2STG 01260000 @NM00048 EQU ZZ2+952 01261000 ZZ2SCMDE EQU ZZ2+944 01262000 ZZ2SCMDN EQU ZZ2+936 01263000 ZZ2IDENT EQU ZZ2+928 01264000 ZZ2A9999 EQU ZZ2A+656 01265000 @NM00047 EQU ZZ2A+224 01266000 @NM00046 EQU ZZ2A+220 01267000 ZZ2AQD99 EQU ZZ2AQD+60 01268000 @NM00045 EQU ZZ2AQD+56 01269000 @NM00044 EQU ZZ2AQDF 01270000 ZZ2AQDFA EQU ZZ2AQDF 01271000 ZZ2AQDIL EQU ZZ2AQD+48 01272000 ZZ2AQDIM EQU ZZ2AQD+44 01273000 ZZ2AQDT9 EQU ZZ2AQDT+34 01274000 ZZ2AQDTE EQU ZZ2AQDT+33 01275000 ZZ2AQDTD EQU ZZ2AQDT+2 01276000 @NM00043 EQU ZZ2AQDT+1 01277000 ZZ2AQDTY EQU ZZ2AQDT 01278000 ZZ2AQDT0 EQU ZZ2AQDT 01279000 ZZ2AQDLB EQU ZZ2AQD+9 01280000 ZZ2AQDOB EQU ZZ2AQD+8 01281000 ZZ2AQDLE EQU ZZ2AQD+4 01282000 ZZ2AQDOF EQU ZZ2AQD 01283000 ZZ2AQD00 EQU ZZ2AQD 01284000 ZZ2AQAS9 EQU ZZ2AQAS+16 01285000 @NM00042 EQU ZZ2AQAS+12 01286000 ZZ2AQAS2 EQU ZZ2AQAS+8 01287000 ZZ2AQAS1 EQU ZZ2AQAS+4 01288000 @NM00041 EQU ZZ2AQAS+2 01289000 ZZ2AQAST EQU ZZ2AQAS 01290000 ZZ2AQAS0 EQU ZZ2AQAS 01291000 ZZ2ADPTA EQU ZZ2ADPT 01292000 ZZ2ADPL EQU ZZ2ADP 01293000 ZZ2ADMTA EQU ZZ2ADMT 01294000 ZZ2ADML EQU ZZ2ADM 01295000 ZZ2ADDTA EQU ZZ2ADDT 01296000 ZZ2ADDL EQU ZZ2ADD 01297000 @NM00040 EQU ZZ2A+72 01298000 ZZ2APIDB EQU ZZ2APID+3 01299000 ZZ2APIDA EQU ZZ2APID 01300000 @NM00039 EQU ZZ2A+24 01301000 @NM00038 EQU ZZ2AF+5 01302000 ZZ2AFX EQU ZZ2AF+5 01303000 @NM00037 EQU ZZ2AF+3 01304000 ZZ2AFS EQU ZZ2AF+2 01305000 ZZ2AFD EQU ZZ2AF+2 01306000 ZZ2AFQ EQU ZZ2AF+2 01307000 ZZ2AF$ EQU ZZ2AF+2 01308000 @NM00036 EQU ZZ2AF+2 01309000 ZZ2AFM EQU ZZ2AF+2 01310000 @NM00035 EQU ZZ2AF+2 01311000 @NM00034 EQU ZZ2AF+1 01312000 ZZ2AFV EQU ZZ2AF+1 01313000 @NM00033 EQU ZZ2AF+1 01314000 ZZ2AFC EQU ZZ2AF+1 01315000 @NM00032 EQU ZZ2AF 01316000 ZZ2AFFS EQU ZZ2AF 01317000 ZZ2AFT EQU ZZ2AF 01318000 ZZ2AFP EQU ZZ2AF 01319000 @NM00031 EQU ZZ2A+8 01320000 ZZ2ALINE EQU ZZ2A+4 01321000 @NM00030 EQU ZZ2A+3 01322000 ZZ2ASE EQU ZZ2A+2 01323000 ZZ2ACH EQU ZZ2A 01324000 @NM00029 EQU ZZ2+264 01325000 @NM00028 EQU ZZ2+263 01326000 ZZ2PRTT0 EQU ZZ2PRTT 01327000 ZZ2PRTO EQU ZZ2PRT+2 01328000 ZZ2PRTL EQU ZZ2PRT 01329000 @NM00027 EQU ZZ2AMD+56 01330000 ZZ2AMDXP EQU ZZ2AMD+52 01331000 ZZ2AMDD EQU ZZ2AMD+48 01332000 ZZ2AMDL EQU ZZ2AMD+44 01333000 ZZ2AMDU EQU ZZ2AMD+28 01334000 ZZ2AMDF EQU ZZ2AMD+24 01335000 ZZ2AMDS EQU ZZ2AMD+20 01336000 ZZ2AMDC EQU ZZ2AMD+16 01337000 ZZ2AMDP EQU ZZ2AMD+12 01338000 ZZ2AMDB EQU ZZ2AMD+8 01339000 @NM00026 EQU @NM00025 01340000 ZZ2AMD2 EQU @NM00025 01341000 ZZ2AMD1 EQU @NM00025 01342000 ZZ2AMD0 EQU ZZ2AMD+6 01343000 ZZ2AMDA EQU ZZ2AMD+4 01344000 ZZ2AMDT EQU ZZ2AMD 01345000 ZZ199999 EQU ZZ1+3072 01346000 @NM00024 EQU ZZ1+2160 01347000 ZZ1TRTAS EQU ZZ1+1904 01348000 ZZ1TRUPC EQU ZZ1+1648 01349000 ZZ1TRCTX EQU ZZ1+1392 01350000 ZZ1NASID EQU ZZ1N+274 01351000 ZZ1NSTRL EQU ZZ1N+272 01352000 ZZ1NOFF EQU ZZ1N+268 01353000 ZZ1NBDY EQU ZZ1N+264 01354000 ZZ1NADE EQU ZZ1N+260 01355000 ZZ1NADB EQU ZZ1N+256 01356000 ZZ1NSTR EQU ZZ1N 01357000 @NM00023 EQU ZZ1+1080 01358000 ZZ1TRHEX EQU ZZ1+568 01359000 @NM00022 EQU ZZ1+377 01360000 ZZ1USTAE EQU ZZ1+376 01361000 @NM00021 EQU ZZ1F+1 01362000 @NM00020 EQU ZZ1F 01363000 ZZ1FM EQU ZZ1F 01364000 ZZ1FX EQU ZZ1F 01365000 ZZ1FU EQU ZZ1F 01366000 ZZ1EVEC EQU ZZ1EVE+1 01367000 @NM00019 EQU ZZ1EVE 01368000 ZZ1EVEP EQU ZZ1EVE 01369000 ZZ1EVEW EQU ZZ1EVE 01370000 ZZ1ACMP EQU ZZ1ATTN 01371000 @NM00018 EQU ZZ1+144 01372000 ZZ1FPP EQU ZZ1+140 01373000 ZZ1ZZ6P EQU ZZ1+136 01374000 @NM00017 EQU ZZ1+84 01375000 ZZ1PLINE EQU ZZ1+80 01376000 ZZ1PGSZ EQU ZZ1+76 01377000 ZZ1PCNT EQU ZZ1+72 01378000 @NM00016 EQU ZZ1+68 01379000 ZZ1TPAGE EQU ZZ1+64 01380000 ZZ1TLINE EQU ZZ1+60 01381000 @NM00015 EQU ZZ1+48 01382000 ZZ1DSDP EQU ZZ1+44 01383000 ZZ1PDRP EQU ZZ1+40 01384000 ZZ1ZZ2P EQU ZZ1+36 01385000 ZZ1327WP EQU ZZ1+32 01386000 ZZ1ACBP EQU ZZ1+28 01387000 @NM00014 EQU ZZ1+24 01388000 ZZ1PDCBP EQU ZZ1+20 01389000 ZZ1BLRBL EQU ZZ1+16 01390000 @NM00013 EQU ZZ1+12 01391000 ZZ1PNULL EQU ZZ1+8 01392000 ZZ1NULL EQU ZZ1+4 01393000 ZZ1IDE EQU ZZ1 01394000 .@UNREFD ANOP END UNREFERENCED COMPONENTS 01395000 @RT00171 EQU EXIT 01396000 @RF00176 EQU EXIT 01397000 @RT00206 EQU EXIT 01398000 @RT00209 EQU EXIT 01399000 @RT00214 EQU EXIT 01400000 @ENDDATA EQU * 01401000 END BLSRESGE,(C'PLS1740',0701,78057) 01402000