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