TITLE 'IPCS LIST DSN PROBLEM ASSOCIATIONS *00001000 ' 00002000 * /* CHANGE ACTIVITY */ 00003000 *THIS MODULE WRITTEN FOR @G57LPGS 00004000 BLSFTL00 CSECT , 01S0002 00005000 @MAINENT DS 0H 01S0002 00006000 USING *,@15 01S0002 00007000 B @PROLOG 01S0002 00008000 DC AL1(16) 01S0002 00009000 DC C'BLSFTL00 78.065' 01S0002 00010000 DROP @15 00011000 @PROLOG STM @14,@12,12(@13) 01S0002 00012000 BALR @12,0 01S0002 00013000 @PSTART DS 0H 01S0002 00014000 USING @PSTART,@12 01S0002 00015000 L @00,@SIZDATD 01S0002 00016000 BLSUALLS R,LV=(0) 00017000 LR @11,@01 01S0002 00018000 USING @DATD,@11 01S0002 00019000 ST @13,@SA00001+4 01S0002 00020000 LM @00,@01,20(@13) 01S0002 00021000 ST @11,8(,@13) 01S0002 00022000 LR @13,@11 01S0002 00023000 MVC @PC00001(12),0(@01) 01S0002 00024000 * 01S0140 00025000 */********************************************************************/ 00026000 */* */ 00027000 */* BEGIN MODULE EXECUTABLE CODE */ 00028000 */* */ 00029000 */********************************************************************/ 00030000 * 01S0140 00031000 * ZZ2PTR=ADDR(TV); /* SET LOCAL ZZ2 POINTER */ 00032000 L ZZ2PTR,@PC00001 01S0140 00033000 * RETC=ZERO; /* SET RETURN CODE */ 00034000 SLR RETC,RETC 01S0141 00035000 * RESPECIFY 01S0142 00036000 * DSDREC BASED(ADDR(DSDBUF)); /* SET DSD BASING EXPRESSION */ 00037000 * MSGNO=FIRST; /* SET MSG NUM FOR FIRST LINE */ 00038000 MVC MSGNO(4),@CF00819 01S0143 00039000 * DSNKEY=DSDKEY; /* SET KEY EQUAL TO BASE REC KEY */ 00040000 L @10,@PC00001+4 01S0144 00041000 MVC DSNKEY(61),DSDKEY(@10) 01S0144 00042000 * DSNKEYTY=DSDRPTYC; /* SET RECORD TYPE PREFIX */ 00043000 MVI DSNKEYTY,C'P' 01S0145 00044000 * DSNKEYPN(ONE:THREE)=FPDBPIDP; /* SET THE PROBLEM NUMBER PREFIX */ 00045000 L @05,ZZ2ZZ1P(,ZZ2PTR) 01S0146 00046000 L @05,ZZ1FPP(,@05) 01S0146 00047000 MVC DSNKEYPN(3),FPDBPIDP(@05) 01S0146 00048000 * DSNKEYPN(FOUR:EIGHT)=CHARZERO; /* SET TO LOWEST PROBLEM NUMBER */ 00049000 MVC DSNKEYPN+3(5),@CC00825 01S0147 00050000 * EXTFL1=OFF; /* SET INITIAL LOOP CONTROL */ 00051000 NI EXTFL1,B'01111111' 01S0148 00052000 * IF DSDKBSID=DSDBRECC THEN /* WAS A BASE RECORD PASSED */ 00053000 CLC DSDKBSID(8,@10),@CC00793 01S0149 00054000 BNE @RF00149 01S0149 00055000 * DO WHILE(RETC=ZERO&EXTFL1=OFF);/* YES,GO FORMAT 6 DSNS */ 00056000 B @DE00150 01S0150 00057000 @DL00150 DS 0H 01S0151 00058000 * RESPECIFY 01S0151 00059000 * DSDREC BASED(ADDR(TLDSDBUF));/* COVER TLS DSD BUFFER WITH 00060000 * DSD */ 00061000 * PROBLINE=BLANK; /* BLANK THE INSERT LINE */ 00062000 MVI PROBLINE+1,C' ' 01S0152 00063000 MVC PROBLINE+2(52),PROBLINE+1 01S0152 00064000 MVI PROBLINE,C' ' 01S0152 00065000 * EXTFL2=OFF; /* TURN OFF LOOP EXIT FLAG */ 00066000 NI EXTFL2,B'10111111' 01S0153 00067000 * DO I=ONE TO SIX WHILE(EXTFL1=OFF);/* GET 6 PROBS FOR A LINE */ 00068000 LA I,1 01S0154 00069000 @DL00154 TM EXTFL1,B'10000000' 01S0154 00070000 BNZ @DC00154 01S0154 00071000 * CALL BLSFGG00(ZZ2,DSNKEY,TLDSDBUF);/* GET THE PROBLEM ASSOC 00072000 * REC */ 00073000 ST ZZ2PTR,@AL00001 01S0155 00074000 LA @10,DSNKEY 01S0155 00075000 ST @10,@AL00001+4 01S0155 00076000 LA @10,TLDSDBUF 01S0155 00077000 ST @10,@AL00001+8 01S0155 00078000 L @10,ZZ2DVTP(,ZZ2PTR) 01S0155 00079000 L @15,DVTGG00P(,@10) 01S0155 00080000 LA @01,@AL00001 01S0155 00081000 BALR @14,@15 01S0155 00082000 * RETC=RF; /* SAVE THE RETURN CODE */ 00083000 LR RETC,RF 01S0156 00084000 * IF RETC=ZERO THEN /* DID GET WORK ? */ 00085000 LTR RETC,RETC 01S0157 00086000 BNZ @RF00157 01S0157 00087000 * DO; /* YES, CHECK IF PROPER DSN */ 00088000 * IF DSDKDSN=DSNKEYDS&DSDKMEMN=DSNKEYMN THEN/* GET A PROB 00089000 * ASSOC REC FOR THIS DSN */ 00090000 LA @10,TLDSDBUF 01S0159 00091000 CLC DSDKDSN(44,@10),DSNKEYDS 01S0159 00092000 BNE @RF00159 01S0159 00093000 CLC DSDKMEMN(8,@10),DSNKEYMN 01S0159 00094000 BNE @RF00159 01S0159 00095000 * DO; /* YES, GO PROCESS PROB AAOSC REC*/ 00096000 * EXTFL2=ON; /* SHOW AT LEAST ONE PROBLEM 00097000 * FOUND */ 00098000 OI EXTFL2,B'01000000' 01S0161 00099000 * PRPREFIX(I)=FPPIDP;/* SET DISPLAY PROB NUM PREFIX */ 00100000 LR @02,I 01S0162 00101000 MH @02,@CH00859 01S0162 00102000 LA @01,PRPREFIX-9(@02) 01S0162 00103000 L @15,ZZ2ZZ1P(,ZZ2PTR) 01S0162 00104000 L @15,ZZ1FPP(,@15) 01S0162 00105000 MVC 0(3,@01),FPPIDP(@15) 01S0162 00106000 * PROBNUM(I)=DSDKPNUM;/* YES, SAVE THE PROBLEM NUMBER*/ 00107000 LA @01,PROBNUM-9(@02) 01S0163 00108000 MVC 0(5,@01),DSDKPNUM(@10) 01S0163 00109000 * PACK(PACKAREA,PROBNUM(I));/* PACK THE PROBLEM 01S0164 00110000 * NUMBER */ 00111000 LA @10,PROBNUM-9(@02) 01S0164 00112000 PACK PACKAREA(3),0(5,@10) 01S0164 00113000 * ZAP(ACCUM,PACKAREA);/* SET THE VALUE IN ACCUMULATOR*/ 00114000 ZAP ACCUM(3),PACKAREA(3) 01S0165 00115000 * AP(ACCUM,PACKDONE);/* ADD ONE TO THE PROBLEM NUMBER*/ 00116000 AP ACCUM(3),@CB00843(1) 01S0166 00117000 * BC(ONE,OVERFLOW); /* OVERFLOW, TOO MANY PROB NUM */ 00118000 BC 1,OVERFLOW 01S0167 00119000 * UNPK(NEWPRONM,ACCUM);/* UNPACK NEW PROB NUM */ 00120000 UNPK NEWPRONM(5),ACCUM(3) 01S0168 00121000 * NEWPRONM=NEWPRONM|GOODSIGN;/* CHANGE LOW ORDER SIGN 00122000 * TO F0 */ 00123000 OC NEWPRONM(5),@CB00840 01S0169 00124000 * DSNKEYPN(FOUR:EIGHT)=NEWPRONM;/* SET IN NEW PROBLEM 00125000 * IN KEY */ 00126000 MVC DSNKEYPN+3(5),NEWPRONM 01S0170 00127000 * GOTO EXITBMIT; /* GOTO RETURN TO CALLER */ 00128000 B EXITBMIT 01S0171 00129000 *OVERFLOW: 01S0172 00130000 * EXTFL1=ON; /* SET NON ZERO EXIT CODE */ 00131000 OVERFLOW OI EXTFL1,B'10000000' 01S0172 00132000 *EXITBMIT: 01S0173 00133000 * END; /* END GOT PROB ASSOC REC */ 00134000 * ELSE /* NO, END PROCESS NO MORE PROBS */ 00135000 * EXTFL1=ON; /* SET EXIT FLAG */ 00136000 B @RC00159 01S0174 00137000 @RF00159 OI EXTFL1,B'10000000' 01S0174 00138000 * END; /* END GET WORKED */ 00139000 * ELSE /* NON ZERO RETURN CODE GG00 */ 00140000 * DO; /* YES, SET EXIT AND ZERO RETC */ 00141000 B @RC00157 01S0176 00142000 @RF00157 DS 0H 01S0177 00143000 * EXTFL1=ON; /* SET EXIT FLAG */ 00144000 OI EXTFL1,B'10000000' 01S0177 00145000 * IF RETC=EIGHT THEN /* RETURN CODE EIGHT */ 00146000 C RETC,@CF00054 01S0178 00147000 BNE @RF00178 01S0178 00148000 * RETC=ZERO; /* YES, RESET RETURN CODE */ 00149000 SLR RETC,RETC 01S0179 00150000 * END; /* END NON ZERO RETURN CODE GG00 */ 00151000 @RF00178 DS 0H 01S0181 00152000 * END; /* END GET 8 PROBLEM NUMBERS */ 00153000 @RC00157 AL I,@CF00046 01S0181 00154000 C I,@CF00159 01S0181 00155000 BNH @DL00154 01S0181 00156000 @DC00154 DS 0H 01S0182 00157000 * IF RETC=ZERO&EXTFL2=ON THEN /* DID GET PROB ASSOC REC ? */ 00158000 SLR @10,@10 01S0182 00159000 CR RETC,@10 01S0182 00160000 BNE @RF00182 01S0182 00161000 TM EXTFL2,B'01000000' 01S0182 00162000 BNO @RF00182 01S0182 00163000 * DO; /* YES, FILL IN MEMBER NAME */ 00164000 * DO; /* BLSDMSG 01S0184 00165000 * (ZZ2,MSGNO,OUTPTR,BLSDMSGS) 00166000 * FIFO NOCOMP INSERT(PROBLINE) */ 00167000 * IOPTLIST(1)=0; /* LAST INSERT */ 00168000 ST @10,IOPTLIST 01S0185 00169000 * IOPTLIST(2)=ADDR(PROBLINE);/* INSERT NAME POINTER */ 00170000 LA @05,PROBLINE 01S0186 00171000 ST @05,IOPTLIST+4 01S0186 00172000 * IOPTLIST(3)=0; /* ZERO RESERVED FIELD */ 00173000 ST @10,IOPTLIST+8 01S0187 00174000 * RFY 01S0188 00175000 * I015F BASED(ADDR(IOPTLIST(3)));/* ACCESS BYTES 1-2 */ 00176000 * I015F=LENGTH(PROBLINE);/* INSERT LENGTH */ 00177000 LA @10,IOPTLIST+8 01S0189 00178000 MVC I015F(2,@10),@CH00151 01S0189 00179000 * CALL BLSDMSG0(ZZ2,MSGNO,OUTPTR,BLSDMSGS,'01000000'B,ADDR( 00180000 * IOPTLIST)); /* BUILD MESSAGE */ 00181000 ST ZZ2PTR,@AL00001 01S0190 00182000 LA @10,MSGNO 01S0190 00183000 ST @10,@AL00001+4 01S0190 00184000 L @10,@PC00001+8 01S0190 00185000 ST @10,@AL00001+8 01S0190 00186000 L @10,ZZ2MSGSP(,ZZ2PTR) 01S0190 00187000 ST @10,@AL00001+12 01S0190 00188000 LA @10,@CB00881 01S0190 00189000 ST @10,@AL00001+16 01S0190 00190000 LA @10,IOPTLIST 01S0190 00191000 ST @10,@AFTEMPS 01S0190 00192000 LA @10,@AFTEMPS 01S0190 00193000 ST @10,@AL00001+20 01S0190 00194000 L @15,ZZ2MSG0P(,ZZ2PTR) 01S0190 00195000 LA @01,@AL00001 01S0190 00196000 BALR @14,@15 01S0190 00197000 * END; /* BLSDMSG 01S0191 00198000 * (ZZ2,MSGNO,OUTPTR,BLSDMSGS) 00199000 * FIFO NOCOMP INSERT(PROBLINE) 00200000 * INSERT LINE OF PROBLEMS */ 00201000 * MSGNO=NEXT; /* AFTER FIRST LINE SET TO ALL */ 00202000 MVC MSGNO(4),@CF00821 01S0192 00203000 * END; /* END MEMBER NAME PRESENT */ 00204000 * END; /* END VALID DSD RECORD */ 00205000 @RF00182 DS 0H 01S0194 00206000 @DE00150 LTR RETC,RETC 01S0194 00207000 BNZ @DC00150 01S0194 00208000 TM EXTFL1,B'10000000' 01S0194 00209000 BZ @DL00150 01S0194 00210000 @DC00150 DS 0H 01S0195 00211000 * ELSE /* NOT A DSD BASE RECORD PASSED */ 00212000 * DO; /* MSG USER AND RETURN */ 00213000 B @RC00149 01S0195 00214000 @RF00149 DS 0H 01S0196 00215000 * RETC=ZZZFLAGS; /* SET ERROR RETURN CODE */ 00216000 LA RETC,12 01S0196 00217000 * END; /* END BASE RECORD BAD */ 00218000 * RETURN CODE(RETC); /* RETURN WITH A RETURN CODE */ 00219000 @RC00149 L @13,4(,@13) 01S0198 00220000 L @00,@SIZDATD 01S0198 00221000 LR @01,@11 01S0198 00222000 BLSUFRES R,LV=(0),A=(1) 00223000 LR @15,@03 01S0198 00224000 L @14,12(,@13) 01S0198 00225000 LM @00,@12,20(@13) 01S0198 00226000 BR @14 01S0198 00227000 * 01S0199 00228000 */*BLSUPEND--MVS IPCS MODULE */ 00229000 * 01S0199 00230000 * DECLARE /* COMMON VARIABLES */ 00231000 * I256C CHAR(256) BASED, 01S0199 00232000 * I031F FIXED(31) BASED, 01S0199 00233000 * I031P PTR(31) BASED, 01S0199 00234000 * I015F FIXED(15) BASED, 01S0199 00235000 * I015P PTR(15) BASED, 01S0199 00236000 * I008P PTR(8) BASED, 01S0199 00237000 * I001C CHAR(1) BASED; 01S0199 00238000 * DECLARE 01S0200 00239000 * IOPTLIST(3) PTR(31) BDY(WORD);/* OPTION LIST ARRAY */ 00240000 * GENERATE NODEFS NOREFS DATA; 01S0201 00241000 * END /* BLRPEND END OF PROCESSING 00242000 * FORMAT 1ST LN */ 00243000 * 01S0202 00244000 */* THE FOLLOWING INCLUDE STATEMENTS WERE FOUND IN THIS PROGRAM. */ 00245000 */*%INCLUDE SYSLIB (BLSUZZZ ) */ 00246000 */*%INCLUDE SYSLIB (BLRFULL ) */ 00247000 */*%INCLUDE SYSLIB (IKJCPPL ) */ 00248000 */*%INCLUDE SYSLIB (IKJPSCB ) */ 00249000 */*%INCLUDE SYSLIB (IKJECT ) */ 00250000 */*%INCLUDE SYSLIB (IKJUPT ) */ 00251000 */*%INCLUDE SYSLIB (BLSUSERV) */ 00252000 */*%INCLUDE SYSLIB (BLRSERV ) */ 00253000 */*%INCLUDE SYSLIB (BLRSERVD) */ 00254000 */*%INCLUDE SYSLIB (BLSDSERV) */ 00255000 */*%INCLUDE SYSLIB (BLSDSD ) */ 00256000 */*%INCLUDE SYSLIB (BLSFP ) */ 00257000 * 01S0202 00258000 * ; 01S0202 00259000 @EL00001 L @13,4(,@13) 01S0202 00260000 @EF00001 L @00,@SIZDATD 01S0202 00261000 LR @01,@11 01S0202 00262000 BLSUFRES R,LV=(0),A=(1) 00263000 @ER00001 LM @14,@12,12(@13) 01S0202 00264000 BR @14 01S0202 00265000 @DATA DS 0H 00266000 @CH00859 DC H'9' 00267000 @CH00151 DC H'54' 00268000 @DATD DSECT 00269000 DS 0F 00270000 @SA00001 DS 18F 00271000 @PC00001 DS 3F 00272000 @AL00001 DS 6A 00273000 @AFTEMPS DS 1F 00274000 BLSFTL00 CSECT 00275000 DS 0F 00276000 @CF00046 DC F'1' 00277000 @CF00159 DC F'6' 00278000 @CF00054 DC F'8' 00279000 @CF00819 DC F'40003' 00280000 @CF00821 DC F'40004' 00281000 @DATD DSECT 00282000 DS 0D 00283000 MSGNO DS F 00284000 ACCUM DS CL3 00285000 PACKAREA DS CL3 00286000 TLDSDBUF DS CL144 00287000 NEWPRONM DS CL5 00288000 EXTFL DS CL1 00289000 ORG EXTFL 00290000 EXTFL1 DS BL1 00291000 EXTFL2 EQU EXTFL+0 00292000 @NM00069 EQU EXTFL+0 00293000 ORG EXTFL+1 00294000 DSNKEY DS CL61 00295000 ORG DSNKEY 00296000 DSNKEYTY DS CL1 00297000 DSNKEYDS DS CL44 00298000 DSNKEYMN DS CL8 00299000 DSNKEYPN DS CL8 00300000 ORG DSNKEY+61 00301000 PROBLINE DS CL54 00302000 ORG PROBLINE 00303000 PROBS DS CL9 00304000 ORG PROBS+0 00305000 PROBSEP DS CL1 00306000 PRPREFIX DS CL3 00307000 PROBNUM DS CL5 00308000 ORG PROBLINE+54 00309000 DS CL1 00310000 IOPTLIST DS 3A 00311000 BLSFTL00 CSECT 00312000 DS 0F 00313000 @SIZDATD DC AL1(0) 00314000 DC AL3(@ENDDATD-@DATD) 00315000 DS 0D 00316000 @CC00793 DC C'DSN BASE' 00317000 @CC00825 DC C'00000' 00318000 @CB00840 DC X'00000000F0' 00319000 @CB00843 DC X'1C' 00320000 @CB00881 DC B'01000000' 00321000 @DATD DSECT 00322000 SPACE 2 00323000 *********************************************************************** 00324000 * THE FOLLOWING AREA, BLRPATCH, IS RESERVED FOR PATCH APPLICATION * 00325000 * TO OBTAIN PATCH ROOM IN THE @DATD AUTOMATIC STORAGE AREA, MODIFY * 00326000 * CONSTANT @SIZDATD TO REFLECT THE DESIRED @DATD SIZE * 00327000 *********************************************************************** 00328000 SPACE 00329000 BLSFTL00 CSECT 00330000 ORG 00331000 DS 0D 00332000 BLRPATCH DC CL8'ZAPAREA',(((*-BLSFTL00+19)/20+7)/8)CL8'BLSFTL00' 00333000 @DATD DSECT 00334000 SPACE 2 00335000 *********************************************************************** 00336000 * ALIGN END OF DATA ON A DOUBLEWORD BOUNDARY * 00337000 *********************************************************************** 00338000 SPACE 00339000 DS 0D 00340000 @DATD DSECT 00341000 ORG *+1-(*-@DATD)/(*-@DATD) INSURE DSECT DATA 00342000 @ENDDATD EQU * 00343000 BLSFTL00 CSECT 00344000 @00 EQU 00 EQUATES FOR REGISTERS 0-15 00345000 @01 EQU 01 00346000 @02 EQU 02 00347000 @03 EQU 03 00348000 @04 EQU 04 00349000 @05 EQU 05 00350000 @06 EQU 06 00351000 @07 EQU 07 00352000 @08 EQU 08 00353000 @09 EQU 09 00354000 @10 EQU 10 00355000 @11 EQU 11 00356000 @12 EQU 12 00357000 @13 EQU 13 00358000 @14 EQU 14 00359000 @15 EQU 15 00360000 I EQU @05 00361000 RETC EQU @03 00362000 ZZ2PTR EQU @04 00363000 R0 EQU @00 00364000 R1 EQU @01 00365000 R2 EQU @02 00366000 R3 EQU @03 00367000 R4 EQU @04 00368000 R5 EQU @05 00369000 R9 EQU @09 00370000 RB EQU @11 00371000 RD EQU @13 00372000 RE EQU @14 00373000 RF EQU @15 00374000 RA EQU @10 00375000 RC EQU @12 00376000 R6 EQU @06 00377000 R7 EQU @07 00378000 R8 EQU @08 00379000 ZZ1 EQU 0 00380000 ZZ1FPP EQU ZZ1+140 00381000 ZZ1ATTN EQU ZZ1+360 00382000 ZZ1EVE EQU ZZ1ATTN+4 00383000 ZZ1F EQU ZZ1+368 00384000 ZZ1N EQU ZZ1+1116 00385000 ZZ2 EQU 0 00386000 ZZ2AMD EQU ZZ2 00387000 @NM00013 EQU ZZ2AMD+7 00388000 ZZ2PRT EQU ZZ2+138 00389000 ZZ2PRTT EQU ZZ2PRT+4 00390000 ZZ2PRTT1 EQU ZZ2PRTT+1 00391000 ZZ2A EQU ZZ2+272 00392000 ZZ2AF EQU ZZ2A+16 00393000 ZZ2APID EQU ZZ2A+64 00394000 ZZ2AD EQU ZZ2A+74 00395000 ZZ2ADD EQU ZZ2AD 00396000 ZZ2ADDT EQU ZZ2ADD+2 00397000 ZZ2ADM EQU ZZ2AD+46 00398000 ZZ2ADMT EQU ZZ2ADM+2 00399000 ZZ2ADP EQU ZZ2AD+56 00400000 ZZ2ADPT EQU ZZ2ADP+2 00401000 ZZ2AQAS EQU ZZ2A+144 00402000 ZZ2AQD EQU ZZ2A+160 00403000 ZZ2AQDT EQU ZZ2AQD+10 00404000 ZZ2AQDF EQU ZZ2AQD+52 00405000 ZZ2STG EQU ZZ2+960 00406000 ZZ2ALLOP EQU ZZ2+992 00407000 ZZ2FREEP EQU ZZ2+996 00408000 ZZ2FF19P EQU ZZ2+1000 00409000 ZZ2FRE1P EQU ZZ2+1004 00410000 ZZ2FF18P EQU ZZ2+1008 00411000 ZZ2DYNAP EQU ZZ2+1012 00412000 ZZ2ZZ2CP EQU ZZ2+1016 00413000 ZZ2ZZ2DP EQU ZZ2+1020 00414000 ZZ2STAIP EQU ZZ2+1024 00415000 ZZ2FF02P EQU ZZ2+1028 00416000 ZZ2GETLP EQU ZZ2+1032 00417000 ZZ2PARSP EQU ZZ2+1036 00418000 ZZ2PTGTP EQU ZZ2+1040 00419000 ZZ2PUTLP EQU ZZ2+1044 00420000 ZZ2SCANP EQU ZZ2+1048 00421000 ZZ2STCKP EQU ZZ2+1052 00422000 ZZ2ALOCP EQU ZZ2+1056 00423000 ZZ2MSGSP EQU ZZ2+1060 00424000 ZZ2TRMOP EQU ZZ2+1064 00425000 ZZ2TRMVP EQU ZZ2+1068 00426000 ZZ2MSG0P EQU ZZ2+1076 00427000 ZZ2PUTNP EQU ZZ2+1084 00428000 ZZ2TRMNP EQU ZZ2+1088 00429000 ZZ2ENQ0P EQU ZZ2+1092 00430000 ZZ2ADSDP EQU ZZ2+1096 00431000 ZZ2APDRP EQU ZZ2+1100 00432000 ZZ2FDSDP EQU ZZ2+1104 00433000 ZZ2FPDRP EQU ZZ2+1108 00434000 ZZ2ZZ1P EQU ZZ2+1264 00435000 ZZ2DVTP EQU ZZ2+1276 00436000 ZZ2BVTP EQU ZZ2+1280 00437000 ZZ2CPPL EQU ZZ2+1292 00438000 ZZ2CPPLC EQU ZZ2CPPL 00439000 ZZ2ITR EQU ZZ2+2840 00440000 ZZ2ITRE EQU ZZ2ITR+16 00441000 ZZ2ITSE EQU ZZ2+2864 00442000 ZZ2ES EQU ZZ2+2872 00443000 ZZ2AMDX EQU ZZ2+7160 00444000 ZZ2AXO EQU ZZ2+7934 00445000 ZZ2AXOT EQU ZZ2AXO+2 00446000 CMD EQU 0 00447000 CMDT EQU CMD+4 00448000 PSCB EQU 0 00449000 PSCBATR1 EQU PSCB+16 00450000 ECT EQU 0 00451000 ECTSWS EQU ECT+28 00452000 ECTSWS2 EQU ECT+40 00453000 ECTSWS21 EQU ECTSWS2 00454000 UPT EQU 0 00455000 UPTSWS EQU UPT+12 00456000 SA EQU 0 00457000 SA1 EQU SA 00458000 SAR EQU SA+12 00459000 BVT EQU 0 00460000 BVTPUTLP EQU BVT+4 00461000 BVTPUTOP EQU BVT+12 00462000 BVTPUTTP EQU BVT+16 00463000 BVTPUTVP EQU BVT+20 00464000 BVTPUTAP EQU BVT+24 00465000 BVTPRTTP EQU BVT+28 00466000 BVTPRTAP EQU BVT+32 00467000 BVTPUTDP EQU BVT+36 00468000 BVTMONP EQU BVT+40 00469000 BVTMON2P EQU BVT+44 00470000 BVTVSARP EQU BVT+48 00471000 BVTVSENP EQU BVT+64 00472000 BVTVSERP EQU BVT+68 00473000 BVTVSGEP EQU BVT+72 00474000 BVTVSGUP EQU BVT+76 00475000 BVTVSPOP EQU BVT+80 00476000 BVTVSPUP EQU BVT+84 00477000 BVTMPKNP EQU BVT+104 00478000 BVTMONLP EQU BVT+108 00479000 BVTPUTCP EQU BVT+132 00480000 BVTMPK1P EQU BVT+136 00481000 BVTZZ2RP EQU BVT+140 00482000 BVTPGMRP EQU BVT+144 00483000 BVTMONAP EQU BVT+148 00484000 BVTBLDDP EQU BVT+152 00485000 BVTBLDLP EQU BVT+156 00486000 BVTPGMCP EQU BVT+160 00487000 BVTPGMDP EQU BVT+164 00488000 BVTPGMLP EQU BVT+168 00489000 BVTMONCP EQU BVT+180 00490000 BVTMONDP EQU BVT+184 00491000 BVTMONTP EQU BVT+188 00492000 BVTPARIP EQU BVT+192 00493000 BVTPARUP EQU BVT+196 00494000 BVTPRTNP EQU BVT+204 00495000 BVTVSCRP EQU BVT+208 00496000 BVTVSMRP EQU BVT+212 00497000 BVTMONXP EQU BVT+216 00498000 BVTTRMAP EQU BVT+228 00499000 BLSDMSGS EQU 0 00500000 BLSDMSG0 EQU 0 00501000 BLSFGG00 EQU 0 00502000 DVT EQU 0 00503000 DVTDEQPP EQU DVT+8 00504000 DVTENQPP EQU DVT+12 00505000 DVTAUTHP EQU DVT+20 00506000 DVTLPCLP EQU DVT+24 00507000 DVTBP00P EQU DVT+28 00508000 DVTCN00P EQU DVT+32 00509000 DVTDF00P EQU DVT+36 00510000 DVTDS00P EQU DVT+44 00511000 DVTFL00P EQU DVT+48 00512000 DVTFP00P EQU DVT+52 00513000 DVTGD00P EQU DVT+56 00514000 DVTGG00P EQU DVT+60 00515000 DVTGP00P EQU DVT+64 00516000 DVTND00P EQU DVT+68 00517000 DVTND01P EQU DVT+72 00518000 DVTOD00P EQU DVT+76 00519000 DVTPS00P EQU DVT+80 00520000 DVTSD00P EQU DVT+84 00521000 DVTSL00P EQU DVT+88 00522000 DVTUD00P EQU DVT+96 00523000 DVTUP00P EQU DVT+100 00524000 DVTLP00P EQU DVT+104 00525000 DVTLALLP EQU DVT+108 00526000 DVTLPFMP EQU DVT+112 00527000 DVTCLOSP EQU DVT+116 00528000 DVTOPENP EQU DVT+120 00529000 DVTPERAP EQU DVT+124 00530000 DVTDALLP EQU DVT+128 00531000 DSDREC EQU 0 00532000 DSDKEY EQU DSDREC 00533000 DSDKGRP EQU DSDKEY 00534000 DSDKDSNM EQU DSDKGRP+1 00535000 DSDKDSN EQU DSDKDSNM 00536000 DSDKMEMN EQU DSDKDSNM+44 00537000 DSDKBSID EQU DSDKEY+53 00538000 DSDKPID EQU DSDKBSID 00539000 DSDKPNUM EQU DSDKPID+3 00540000 DSDINFO EQU DSDREC+64 00541000 FPBLOK EQU 0 00542000 FPPIDP EQU FPBLOK+96 00543000 FPDBPIDP EQU FPBLOK+100 00544000 FPADMNM EQU FPBLOK+120 00545000 FPDELNM EQU FPBLOK+128 00546000 I015F EQU 0 00547000 BLSCALOC EQU 0 00548000 BLSDADSD EQU 0 00549000 BLSDAPDR EQU 0 00550000 BLSDDEQP EQU 0 00551000 BLSDENQP EQU 0 00552000 BLSDENQ0 EQU 0 00553000 BLSDFDSD EQU 0 00554000 BLSDFPDR EQU 0 00555000 BLSEAUTH EQU 0 00556000 BLSELPCL EQU 0 00557000 BLSELPFM EQU 0 00558000 BLSFBP00 EQU 0 00559000 BLSFCLOS EQU 0 00560000 BLSFCN00 EQU 0 00561000 BLSFDALL EQU 0 00562000 BLSFDF00 EQU 0 00563000 BLSFDS00 EQU 0 00564000 BLSFFL00 EQU 0 00565000 BLSFFP00 EQU 0 00566000 BLSFGD00 EQU 0 00567000 BLSFGP00 EQU 0 00568000 BLSFLALL EQU 0 00569000 BLSFLP00 EQU 0 00570000 BLSFND00 EQU 0 00571000 BLSFND01 EQU 0 00572000 BLSFOD00 EQU 0 00573000 BLSFOPEN EQU 0 00574000 BLSFPERA EQU 0 00575000 BLSFPS00 EQU 0 00576000 BLSFSD00 EQU 0 00577000 BLSFSL00 EQU 0 00578000 BLSFUD00 EQU 0 00579000 BLSFUP00 EQU 0 00580000 BLSUALLO EQU 0 00581000 BLSUBLDD EQU 0 00582000 BLSUBLDL EQU 0 00583000 BLSUDYNA EQU 0 00584000 BLSUFREE EQU 0 00585000 BLSUFRE1 EQU 0 00586000 BLSUMON EQU 0 00587000 BLSUMONA EQU 0 00588000 BLSUMONC EQU 0 00589000 BLSUMOND EQU 0 00590000 BLSUMONL EQU 0 00591000 BLSUMONT EQU 0 00592000 BLSUMONX EQU 0 00593000 BLSUMON2 EQU 0 00594000 BLSUMPKN EQU 0 00595000 BLSUMPK1 EQU 0 00596000 BLSUPARI EQU 0 00597000 BLSUPARU EQU 0 00598000 BLSUPGMC EQU 0 00599000 BLSUPGMD EQU 0 00600000 BLSUPGML EQU 0 00601000 BLSUPGMR EQU 0 00602000 BLSUPRTA EQU 0 00603000 BLSUPRTN EQU 0 00604000 BLSUPRTT EQU 0 00605000 BLSUPUTA EQU 0 00606000 BLSUPUTC EQU 0 00607000 BLSUPUTD EQU 0 00608000 BLSUPUTL EQU 0 00609000 BLSUPUTN EQU 0 00610000 BLSUPUTO EQU 0 00611000 BLSUPUTT EQU 0 00612000 BLSUPUTV EQU 0 00613000 BLSUSTAI EQU 0 00614000 BLSUTRMA EQU 0 00615000 BLSUTRMN EQU 0 00616000 BLSUTRMO EQU 0 00617000 BLSUTRMV EQU 0 00618000 BLSUVSAR EQU 0 00619000 BLSUVSCR EQU 0 00620000 BLSUVSEN EQU 0 00621000 BLSUVSER EQU 0 00622000 BLSUVSGE EQU 0 00623000 BLSUVSGU EQU 0 00624000 BLSUVSMR EQU 0 00625000 BLSUVSPO EQU 0 00626000 BLSUVSPU EQU 0 00627000 BLSUZZ2C EQU 0 00628000 BLSUZZ2D EQU 0 00629000 BLSUZZ2R EQU 0 00630000 IKJEFF02 EQU 0 00631000 IKJEFF18 EQU 0 00632000 IKJEFF19 EQU 0 00633000 IKJGETL EQU 0 00634000 IKJPARS EQU 0 00635000 IKJPTGT EQU 0 00636000 IKJPUTL EQU 0 00637000 IKJSCAN EQU 0 00638000 IKJSTCK EQU 0 00639000 I001C EQU 0 00640000 I008P EQU 0 00641000 I015P EQU 0 00642000 I031F EQU 0 00643000 I031P EQU 0 00644000 I256C EQU 0 00645000 TV EQU 0 00646000 DSDBUF EQU 0 00647000 OUTPTR EQU 0 00648000 CPPL EQU ZZ2CPPL 00649000 CPPLUPT EQU CPPL+4 00650000 CPPLPSCB EQU CPPL+8 00651000 CPPLECT EQU CPPL+12 00652000 DSDBASRC EQU DSDINFO 00653000 DSDDSATR EQU DSDBASRC+8 00654000 DSDPRASR EQU DSDINFO 00655000 * START UNREFERENCED COMPONENTS 00656000 DSDPRSQN EQU DSDPRASR 00657000 DSDBRES1 EQU DSDBASRC+76 00658000 DSDDESC EQU DSDBASRC+16 00659000 DSDSLOWN EQU DSDDSATR 00660000 DSDDSNTY EQU DSDBASRC 00661000 CPPLCBUF EQU CPPL 00662000 FPRES6 EQU FPBLOK+136 00663000 FPDELLN EQU FPDELNM+7 00664000 FPDELID EQU FPDELNM 00665000 FPADMLN EQU FPADMNM+7 00666000 FPADMID EQU FPADMNM 00667000 FPGRPID EQU FPBLOK+112 00668000 FPSYSID EQU FPBLOK+104 00669000 FPRES4 EQU FPBLOK+103 00670000 FPRES3 EQU FPBLOK+99 00671000 FPRES2 EQU FPBLOK+92 00672000 FPDSDS EQU FPBLOK+48 00673000 FPRES1 EQU FPBLOK+44 00674000 FPPDDS EQU FPBLOK 00675000 DSDRES1 EQU DSDREC+61 00676000 DSDKPREF EQU DSDKPID 00677000 DSDKTYP EQU DSDKGRP 00678000 DVT99999 EQU DVT+256 00679000 DVT0064P EQU DVT+252 00680000 DVT0063P EQU DVT+248 00681000 DVT0062P EQU DVT+244 00682000 DVT0061P EQU DVT+240 00683000 DVT0060P EQU DVT+236 00684000 DVT0059P EQU DVT+232 00685000 DVT0058P EQU DVT+228 00686000 DVT0057P EQU DVT+224 00687000 DVT0056P EQU DVT+220 00688000 DVT0055P EQU DVT+216 00689000 DVT0054P EQU DVT+212 00690000 DVT0053P EQU DVT+208 00691000 DVT0052P EQU DVT+204 00692000 DVT0051P EQU DVT+200 00693000 DVT0050P EQU DVT+196 00694000 DVT0049P EQU DVT+192 00695000 DVT0048P EQU DVT+188 00696000 DVT0047P EQU DVT+184 00697000 DVT0046P EQU DVT+180 00698000 DVT0045P EQU DVT+176 00699000 DVT0044P EQU DVT+172 00700000 DVT0043P EQU DVT+168 00701000 DVT0042P EQU DVT+164 00702000 DVT0041P EQU DVT+160 00703000 DVT0040P EQU DVT+156 00704000 DVT0039P EQU DVT+152 00705000 DVT0038P EQU DVT+148 00706000 DVT0037P EQU DVT+144 00707000 DVT0036P EQU DVT+140 00708000 DVT0035P EQU DVT+136 00709000 DVT0034P EQU DVT+132 00710000 DVTTL00P EQU DVT+92 00711000 DVT0011P EQU DVT+40 00712000 DVT0005P EQU DVT+16 00713000 DVT0002P EQU DVT+4 00714000 DVT0001P EQU DVT 00715000 BVT99999 EQU BVT+256 00716000 BVT0064P EQU BVT+252 00717000 BVT0063P EQU BVT+248 00718000 BVT0062P EQU BVT+244 00719000 BVT0061P EQU BVT+240 00720000 BVT0060P EQU BVT+236 00721000 BVT0059P EQU BVT+232 00722000 BVT0057P EQU BVT+224 00723000 BVT0056P EQU BVT+220 00724000 BVTSTBLP EQU BVT+200 00725000 BVT0045P EQU BVT+176 00726000 BVT0044P EQU BVT+172 00727000 BVT0033P EQU BVT+128 00728000 BVT0032P EQU BVT+124 00729000 BVT0031P EQU BVT+120 00730000 BVT0030P EQU BVT+116 00731000 BVT0029P EQU BVT+112 00732000 BVT0026P EQU BVT+100 00733000 BVT0025P EQU BVT+96 00734000 BVT0024P EQU BVT+92 00735000 BVT0023P EQU BVT+88 00736000 BVT0016P EQU BVT+60 00737000 BVT0015P EQU BVT+56 00738000 BVT0014P EQU BVT+52 00739000 BVT0003P EQU BVT+8 00740000 BVT0001P EQU BVT 00741000 SA99 EQU SA+72 00742000 SARC EQU SAR+56 00743000 SARB EQU SAR+52 00744000 SARA EQU SAR+48 00745000 SAR9 EQU SAR+44 00746000 SAR8 EQU SAR+40 00747000 SAR7 EQU SAR+36 00748000 SAR6 EQU SAR+32 00749000 SAR5 EQU SAR+28 00750000 SAR4 EQU SAR+24 00751000 SAR3 EQU SAR+20 00752000 SAR2 EQU SAR+16 00753000 SAR1 EQU SAR+12 00754000 SAR0 EQU SAR+8 00755000 SARF EQU SAR+4 00756000 SARE EQU SAR 00757000 SAFWD EQU SA+8 00758000 SABAK EQU SA+4 00759000 SA1L EQU SA1+1 00760000 SA1P EQU SA1 00761000 UPTPREFL EQU UPT+23 00762000 UPTPREFX EQU UPT+16 00763000 @NM00068 EQU UPT+15 00764000 UPTLDEL EQU UPT+14 00765000 UPTCDEL EQU UPT+13 00766000 UPTWTP EQU UPTSWS 00767000 UPTMODE EQU UPTSWS 00768000 UPTALD EQU UPTSWS 00769000 UPTPAUS EQU UPTSWS 00770000 UPTNCOM EQU UPTSWS 00771000 UPTMID EQU UPTSWS 00772000 UPTNPRM EQU UPTSWS 00773000 UPTRCVR EQU UPTSWS 00774000 UPTUSER EQU UPT+2 00775000 @NM00067 EQU UPT 00776000 @NM00066 EQU ECT+52 00777000 @NM00065 EQU ECT+48 00778000 @NM00064 EQU ECT+44 00779000 @NM00063 EQU ECTSWS2+1 00780000 @NM00062 EQU ECTSWS21 00781000 ECTTABND EQU ECTSWS21 00782000 ECTDEFCS EQU ECTSWS21 00783000 ECTBKPB EQU ECT+36 00784000 ECTUSER EQU ECT+32 00785000 ECTDDNUM EQU ECT+29 00786000 ECTATTN EQU ECTSWS 00787000 ECTBKGRD EQU ECTSWS 00788000 ECTNNOT EQU ECTSWS 00789000 ECTNMAL EQU ECTSWS 00790000 ECTLOGF EQU ECTSWS 00791000 ECTATRM EQU ECTSWS 00792000 @NM00061 EQU ECTSWS 00793000 ECTNOPD EQU ECTSWS 00794000 ECTSCMD EQU ECT+20 00795000 ECTPCMD EQU ECT+12 00796000 ECTSMSG EQU ECT+9 00797000 ECTMSGF EQU ECT+8 00798000 ECTIOWA EQU ECT+4 00799000 ECTRTCD EQU ECT+1 00800000 ECTRCDF EQU ECT 00801000 PSCBU EQU PSCB+64 00802000 PSCBRSZ EQU PSCB+60 00803000 PSCBLINE EQU PSCB+59 00804000 PSCBCHAR EQU PSCB+58 00805000 PSCBUPTL EQU PSCB+56 00806000 PSCBUPT EQU PSCB+52 00807000 PSCBRLGB EQU PSCB+48 00808000 PSCBDEST EQU PSCB+40 00809000 @NM00060 EQU PSCB+36 00810000 @NM00059 EQU PSCB+32 00811000 @NM00058 EQU PSCB+28 00812000 PSCBLTI2 EQU PSCB+24 00813000 PSCBLTIM EQU PSCB+20 00814000 PSCBATR2 EQU PSCB+18 00815000 @NM00057 EQU PSCBATR1 00816000 @NM00056 EQU PSCBATR1 00817000 @NM00055 EQU PSCBATR1 00818000 PSCBATTN EQU PSCBATR1 00819000 PSCBVMNT EQU PSCBATR1 00820000 PSCBJCL EQU PSCBATR1 00821000 PSCBACCT EQU PSCBATR1 00822000 PSCBCTRL EQU PSCBATR1 00823000 PSCBGPNM EQU PSCB+8 00824000 PSCBUSRL EQU PSCB+7 00825000 PSCBUSER EQU PSCB 00826000 CMDT1 EQU CMDT 00827000 CMDO EQU CMD+2 00828000 CMDL EQU CMD 00829000 ZZ299999 EQU ZZ2+8192 00830000 ZZ2AXOT1 EQU ZZ2AXOT 00831000 ZZ2AXOL EQU ZZ2AXO 00832000 @NM00054 EQU ZZ2+7288 00833000 @NM00053 EQU ZZ2AMDX+4 00834000 ZZ2AMDXC EQU ZZ2AMDX 00835000 ZZ2HSD EQU ZZ2+3056 00836000 @NM00052 EQU ZZ2ES 00837000 @NM00051 EQU ZZ2+2868 00838000 ZZ2ITSEC EQU ZZ2ITSE+1 00839000 @NM00050 EQU ZZ2ITSE 00840000 ZZ2ITSEP EQU ZZ2ITSE 00841000 ZZ2ITSEW EQU ZZ2ITSE 00842000 @NM00049 EQU ZZ2ITR+20 00843000 ZZ2ITREC EQU ZZ2ITRE+1 00844000 @NM00048 EQU ZZ2ITRE 00845000 ZZ2ITREP EQU ZZ2ITRE 00846000 ZZ2ITREW EQU ZZ2ITRE 00847000 @NM00047 EQU ZZ2ITR+9 00848000 ZZ2ITRRC EQU ZZ2ITR+8 00849000 ZZ2ITR2P EQU ZZ2ITR+4 00850000 ZZ2ITRPP EQU ZZ2ITR 00851000 @NM00046 EQU ZZ2+1544 00852000 ZZ2PGM EQU ZZ2+1536 00853000 @NM00045 EQU ZZ2+1526 00854000 ZZ2CW EQU ZZ2+1524 00855000 @NM00044 EQU ZZ2+1504 00856000 @NM00043 EQU ZZ2+1352 00857000 ZZ2FFSYP EQU ZZ2+1348 00858000 ZZ2SASYP EQU ZZ2+1344 00859000 ZZ2RDSYP EQU ZZ2+1340 00860000 ZZ2RASYP EQU ZZ2+1336 00861000 ZZ2PHSYP EQU ZZ2+1332 00862000 ZZ2ESSYP EQU ZZ2+1328 00863000 ZZ200SYP EQU ZZ2+1324 00864000 ZZ2SCWP EQU ZZ2+1320 00865000 ZZ2TTLP EQU ZZ2+1316 00866000 ZZ2LOADP EQU ZZ2+1312 00867000 ZZ2VRESP EQU ZZ2+1308 00868000 ZZ2CPPLE EQU ZZ2CPPL+12 00869000 ZZ2CPPLP EQU ZZ2CPPL+8 00870000 ZZ2CPPLU EQU ZZ2CPPL+4 00871000 ZZ2VRSAP EQU ZZ2+1288 00872000 ZZ2RVTP EQU ZZ2+1284 00873000 @NM00042 EQU ZZ2+1272 00874000 @NM00041 EQU ZZ2+1268 00875000 ZZ2RPLP EQU ZZ2+1260 00876000 ZZ2TCBP EQU ZZ2+1256 00877000 @NM00040 EQU ZZ2+1252 00878000 ZZ2ZZ2P EQU ZZ2+1248 00879000 @NM00039 EQU ZZ2+1112 00880000 @NM00038 EQU ZZ2+1080 00881000 ZZ2FT25P EQU ZZ2+1072 00882000 @NM00037 EQU ZZ2+976 00883000 ZZ2TOD EQU ZZ2+968 00884000 ZZ2STGN EQU ZZ2STG+4 00885000 ZZ2STGP EQU ZZ2STG 00886000 @NM00036 EQU ZZ2+952 00887000 ZZ2SCMDE EQU ZZ2+944 00888000 ZZ2SCMDN EQU ZZ2+936 00889000 ZZ2IDENT EQU ZZ2+928 00890000 ZZ2A9999 EQU ZZ2A+656 00891000 @NM00035 EQU ZZ2A+224 00892000 @NM00034 EQU ZZ2A+220 00893000 ZZ2AQD99 EQU ZZ2AQD+60 00894000 @NM00033 EQU ZZ2AQD+56 00895000 @NM00032 EQU ZZ2AQDF 00896000 ZZ2AQDFA EQU ZZ2AQDF 00897000 ZZ2AQDIL EQU ZZ2AQD+48 00898000 ZZ2AQDIM EQU ZZ2AQD+44 00899000 ZZ2AQDT9 EQU ZZ2AQDT+34 00900000 ZZ2AQDTE EQU ZZ2AQDT+33 00901000 ZZ2AQDTD EQU ZZ2AQDT+2 00902000 @NM00031 EQU ZZ2AQDT+1 00903000 ZZ2AQDTY EQU ZZ2AQDT 00904000 ZZ2AQDT0 EQU ZZ2AQDT 00905000 ZZ2AQDLB EQU ZZ2AQD+9 00906000 ZZ2AQDOB EQU ZZ2AQD+8 00907000 ZZ2AQDLE EQU ZZ2AQD+4 00908000 ZZ2AQDOF EQU ZZ2AQD 00909000 ZZ2AQD00 EQU ZZ2AQD 00910000 ZZ2AQAS9 EQU ZZ2AQAS+16 00911000 @NM00030 EQU ZZ2AQAS+12 00912000 ZZ2AQAS2 EQU ZZ2AQAS+8 00913000 ZZ2AQAS1 EQU ZZ2AQAS+4 00914000 @NM00029 EQU ZZ2AQAS+2 00915000 ZZ2AQAST EQU ZZ2AQAS 00916000 ZZ2AQAS0 EQU ZZ2AQAS 00917000 ZZ2AZZ6P EQU ZZ2A+140 00918000 ZZ2ADPTA EQU ZZ2ADPT 00919000 ZZ2ADPL EQU ZZ2ADP 00920000 ZZ2ADMTA EQU ZZ2ADMT 00921000 ZZ2ADML EQU ZZ2ADM 00922000 ZZ2ADDTA EQU ZZ2ADDT 00923000 ZZ2ADDL EQU ZZ2ADD 00924000 @NM00028 EQU ZZ2A+72 00925000 ZZ2APIDB EQU ZZ2APID+3 00926000 ZZ2APIDA EQU ZZ2APID 00927000 @NM00027 EQU ZZ2A+24 00928000 @NM00026 EQU ZZ2AF+5 00929000 ZZ2AFX EQU ZZ2AF+5 00930000 @NM00025 EQU ZZ2AF+3 00931000 ZZ2AFS EQU ZZ2AF+2 00932000 ZZ2AFD EQU ZZ2AF+2 00933000 ZZ2AFQ EQU ZZ2AF+2 00934000 ZZ2AF$ EQU ZZ2AF+2 00935000 @NM00024 EQU ZZ2AF+2 00936000 ZZ2AFM EQU ZZ2AF+2 00937000 @NM00023 EQU ZZ2AF+2 00938000 @NM00022 EQU ZZ2AF+1 00939000 ZZ2AFV EQU ZZ2AF+1 00940000 @NM00021 EQU ZZ2AF+1 00941000 ZZ2AFC EQU ZZ2AF+1 00942000 @NM00020 EQU ZZ2AF 00943000 ZZ2AFFS EQU ZZ2AF 00944000 ZZ2AFT EQU ZZ2AF 00945000 ZZ2AFP EQU ZZ2AF 00946000 @NM00019 EQU ZZ2A+8 00947000 ZZ2ALINE EQU ZZ2A+4 00948000 @NM00018 EQU ZZ2A+3 00949000 ZZ2ASE EQU ZZ2A+2 00950000 ZZ2ACH EQU ZZ2A 00951000 @NM00017 EQU ZZ2+264 00952000 @NM00016 EQU ZZ2+263 00953000 ZZ2PRTT0 EQU ZZ2PRTT 00954000 ZZ2PRTO EQU ZZ2PRT+2 00955000 ZZ2PRTL EQU ZZ2PRT 00956000 @NM00015 EQU ZZ2AMD+56 00957000 ZZ2AMDXP EQU ZZ2AMD+52 00958000 ZZ2AMDD EQU ZZ2AMD+48 00959000 ZZ2AMDL EQU ZZ2AMD+44 00960000 ZZ2AMDU EQU ZZ2AMD+28 00961000 ZZ2AMDF EQU ZZ2AMD+24 00962000 ZZ2AMDS EQU ZZ2AMD+20 00963000 ZZ2AMDC EQU ZZ2AMD+16 00964000 ZZ2AMDP EQU ZZ2AMD+12 00965000 ZZ2AMDB EQU ZZ2AMD+8 00966000 @NM00014 EQU @NM00013 00967000 ZZ2AMD2 EQU @NM00013 00968000 ZZ2AMD1 EQU @NM00013 00969000 ZZ2AMD0 EQU ZZ2AMD+6 00970000 ZZ2AMDA EQU ZZ2AMD+4 00971000 ZZ2AMDT EQU ZZ2AMD 00972000 ZZ199999 EQU ZZ1+3072 00973000 @NM00012 EQU ZZ1+2160 00974000 ZZ1TRTAS EQU ZZ1+1904 00975000 ZZ1TRUPC EQU ZZ1+1648 00976000 ZZ1TRCTX EQU ZZ1+1392 00977000 ZZ1NASID EQU ZZ1N+274 00978000 ZZ1NSTRL EQU ZZ1N+272 00979000 ZZ1NOFF EQU ZZ1N+268 00980000 ZZ1NBDY EQU ZZ1N+264 00981000 ZZ1NADE EQU ZZ1N+260 00982000 ZZ1NADB EQU ZZ1N+256 00983000 ZZ1NSTR EQU ZZ1N 00984000 @NM00011 EQU ZZ1+1080 00985000 ZZ1TREBC EQU ZZ1+824 00986000 ZZ1TRHEX EQU ZZ1+568 00987000 @NM00010 EQU ZZ1+377 00988000 ZZ1USTAE EQU ZZ1+376 00989000 @NM00009 EQU ZZ1F+1 00990000 @NM00008 EQU ZZ1F 00991000 ZZ1FM EQU ZZ1F 00992000 ZZ1FX EQU ZZ1F 00993000 ZZ1FU EQU ZZ1F 00994000 ZZ1EVEC EQU ZZ1EVE+1 00995000 @NM00007 EQU ZZ1EVE 00996000 ZZ1EVEP EQU ZZ1EVE 00997000 ZZ1EVEW EQU ZZ1EVE 00998000 ZZ1ACMP EQU ZZ1ATTN 00999000 @NM00006 EQU ZZ1+144 01000000 ZZ1ZZ6P EQU ZZ1+136 01001000 @NM00005 EQU ZZ1+84 01002000 ZZ1PLINE EQU ZZ1+80 01003000 ZZ1PGSZ EQU ZZ1+76 01004000 ZZ1PCNT EQU ZZ1+72 01005000 @NM00004 EQU ZZ1+68 01006000 ZZ1TPAGE EQU ZZ1+64 01007000 ZZ1TLINE EQU ZZ1+60 01008000 @NM00003 EQU ZZ1+52 01009000 ZZ1DMCBP EQU ZZ1+48 01010000 ZZ1DSDP EQU ZZ1+44 01011000 ZZ1PDRP EQU ZZ1+40 01012000 ZZ1ZZ2P EQU ZZ1+36 01013000 ZZ1327WP EQU ZZ1+32 01014000 ZZ1ACBP EQU ZZ1+28 01015000 @NM00002 EQU ZZ1+24 01016000 ZZ1PDCBP EQU ZZ1+20 01017000 ZZ1BLRBL EQU ZZ1+16 01018000 @NM00001 EQU ZZ1+12 01019000 ZZ1PNULL EQU ZZ1+8 01020000 ZZ1NULL EQU ZZ1+4 01021000 ZZ1IDE EQU ZZ1 01022000 * END UNREFERENCED COMPONENTS 01023000 @RC00159 EQU @RC00157 01024000 EXITBMIT EQU @RC00159 01025000 @ENDDATA EQU * 01026000 END BLSFTL00,(C'PLS2145',0701,78065) 01027000