TITLE 'BLSFPS00-BUILD PDR STATUS RECORD KEY *00001000 ' 00002000 * /* CHANGE ACTIVITY */ 00003000 * THIS MODULE IS WRITTEN FOR @G57LPRM 00004000 BLSFPS00 CSECT , 01S0002 00005000 @MAINENT DS 0H 01S0002 00006000 USING *,@15 01S0002 00007000 B @PROLOG 01S0002 00008000 DC AL1(16) 01S0002 00009000 DC C'BLSFPS00 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(16),0(@01) 01S0002 00024000 * 01S0159 00025000 */* *********************************************************** */ 00026000 */* */ 00027000 */* START OF DEFAULT PROCESSING */ 00028000 */* */ 00029000 */* *********************************************************** */ 00030000 * 01S0159 00031000 * ZZ2PTR=ADDR(ZZ2CB); /* GET TASK VARIABLE ADDR */ 00032000 L ZZ2PTR,@PC00001 01S0159 00033000 * RETC=ZERO; /* INITIALIZE THE RETC */ 00034000 SLR RETC,RETC 01S0160 00035000 */* *********************************************************** */ 00036000 */* */ 00037000 */* START OF MODULE PROCESSING */ 00038000 */* */ 00039000 */* *********************************************************** */ 00040000 * 01S0161 00041000 * RETCODE=ZERO; /* INIT RETCODE FOR INTERNAL 00042000 * PROCS */ 00043000 SLR RETCODE,RETCODE 01S0161 00044000 * RESPECIFY 01S0162 00045000 * PRN BASED(ADDR(PROBPDE)); /* ADDRESS PROB PDE */ 00046000 * CURPID=''; /* CLEAR PROBLEM NUMBER */ 00047000 L @10,@PC00001+8 01S0163 00048000 MVI CURPID(@10),C' ' 01S0163 00049000 MVC CURPID+1(7,@10),CURPID(@10) 01S0163 00050000 * CALL GETPROB; /* CALL FOR CURRENT PROBNUMBER */ 00051000 BAL @14,GETPROB 01S0164 00052000 * IF RETCODE=ZERO& /* CURRENT PROB NUMBER AND PREFIX 00053000 * FOUND */ 00054000 * ZZ1EVEP='0'B THEN /* NO REQUEST FOR TERMINATION */ 00055000 LTR RETCODE,RETCODE 01S0165 00056000 BNZ @RF00165 01S0165 00057000 L @10,ZZ2ZZ1P(,ZZ2PTR) 01S0165 00058000 TM ZZ1EVEP(@10),B'01000000' 01S0165 00059000 BNZ @RF00165 01S0165 00060000 * DO; /* VERIFY PROBLEM EXISTS */ 00061000 * 01S0166 00062000 * /*************************************************************/ 00063000 * /* */ 00064000 * /* BUILD PDR STATUS RECORD KEY */ 00065000 * /* */ 00066000 * /*************************************************************/ 00067000 * 01S0167 00068000 * RESPECIFY 01S0167 00069000 * PDREC BASED(ADDR(PDRSTKEY));/* POINT TO AREA FOR KEY */ 00070000 * PDRKEY=PDRKEY&&PDRKEY; /* SET FIELD TO NULLS */ 00071000 L @10,@PC00001+12 01S0168 00072000 XC PDRKEY(14,@10),PDRKEY(@10) 01S0168 00073000 * PDRKRCTY=PDRSTATC; /* STATUS RECORD TYPE */ 00074000 MVC PDRKRCTY(2,@10),@CC00318 01S0169 00075000 * PDRKPID=CURPID; /* CURRENT PROBLEM NUMBER */ 00076000 L @05,@PC00001+8 01S0170 00077000 MVC PDRKPID(8,@10),CURPID(@05) 01S0170 00078000 * PDRRECSQ=ZCHAR; /* STATUS RECORD SEQ NUMBER IS 00079000 * ZERO */ 00080000 MVC PDRRECSQ(4,@10),ZCHAR 01S0171 00081000 * END; /* END OF PDR STATUS KEY */ 00082000 * ELSE /* CURRENT PROB AND PREFIX NOT 00083000 * FOUND */ 00084000 * RETC=TWELVE; /* EXIT WITH REQ TO TERMINATE */ 00085000 B @RC00165 01S0173 00086000 @RF00165 LA RETC,12 01S0173 00087000 * RETURN CODE(RETC); /* RETURN TO CALLER */ 00088000 @RC00165 L @13,4(,@13) 01S0174 00089000 L @00,@SIZDATD 01S0174 00090000 LR @01,@11 01S0174 00091000 BLSUFRES R,LV=(0),A=(1) 00092000 LR @15,@04 01S0174 00093000 L @14,12(,@13) 01S0174 00094000 LM @00,@12,20(@13) 01S0174 00095000 BR @14 01S0174 00096000 *GETPROB: 01S0175 00097000 * PROCEDURE; /* CURRENT PROBLEM NUMBER 01S0175 00098000 * PROCESSOR */ 00099000 GETPROB STM @14,@02,@SA00002 01S0175 00100000 STM @04,@12,@SA00002+20 01S0175 00101000 * RETCODE=ZERO; /* ZERO RETURN CODE */ 00102000 SLR RETCODE,RETCODE 01S0176 00103000 * IF PRNIFP='1'B THEN /* IS PROBLEM NUMBER PRESENT ? */ 00104000 L @10,@PC00001+4 01S0177 00105000 TM PRNIFP(@10),B'10000000' 01S0177 00106000 BNO @RF00177 01S0177 00107000 * DO; 01S0178 00108000 * 01S0178 00109000 * /*************************************************************/ 00110000 * /* */ 00111000 * /* MOVE IN THE CURRENT PROBLEM IN PROPER OFFSET */ 00112000 * /* */ 00113000 * /*************************************************************/ 00114000 * 01S0179 00115000 * CURPROB(((5-PRNIL)+ONE):5)=PRNI(ONE:PRNIL); 01S0179 00116000 LH @15,PRNIL(,@10) 01S0179 00117000 LA @14,5 01S0179 00118000 SLR @14,@15 01S0179 00119000 L @09,@PC00001+8 01S0179 00120000 ALR @14,@09 01S0179 00121000 LCR @15,@15 01S0179 00122000 AL @15,@CF00098 01S0179 00123000 LCR @15,@15 01S0179 00124000 AL @15,@CF00045 01S0179 00125000 L @10,PRNIP(,@10) 01S0179 00126000 EX @15,@SM01036 01S0179 00127000 * CURPROB=CURPROB|ZEROCHAR(ONE:5);/* SET UP 0 CHAR */ 00128000 OC CURPROB(5,@09),ZEROCHAR 01S0180 00129000 * CURPREF=FPDBPIDP; /* MOVE IN THE PREFIX FOR DATA 00130000 * BASE */ 00131000 L @10,ZZ2ZZ1P(,ZZ2PTR) 01S0181 00132000 L @10,ZZ1FPP(,@10) 01S0181 00133000 MVC CURPREF(3,@09),FPDBPIDP(@10) 01S0181 00134000 * END; 01S0182 00135000 * ELSE /* NO PROBLEM NUMBER SUPPLIED */ 00136000 * IF ZZ2APIDB=BLANKS THEN /* DEFAULT IS NOT SUPPLIED */ 00137000 B @RC00177 01S0183 00138000 @RF00177 CLC ZZ2APIDB(5,ZZ2PTR),BLANKS 01S0183 00139000 BNE @RF00183 01S0183 00140000 * DO; /* NO DEFAULT PROBLEM SPECIFIED 00141000 * -EXIT */ 00142000 * 01S0184 00143000 * /***********************************************************/ 00144000 * /* */ 00145000 * /* ISSUE A MESSAGE - NO DEFAULT PROBLEM NUMBER EXISTS, ADD */ 00146000 * /* DSN IS TERMINATED */ 00147000 * /* */ 00148000 * /***********************************************************/ 00149000 * 01S0185 00150000 * MSGPTR=ZERO; /* NO CHAIN */ 00151000 SLR @10,@10 01S0185 00152000 ST @10,MSGPTR 01S0185 00153000 * DO; /* BLSDMSG 01S0186 00154000 * (ZZ2,04003,MSGPTR,BLSDMSGS) 00155000 * LIFO ROUTE(TERM) */ 00156000 * CALL BLSDMSG0(ZZ2,04003,MSGPTR,BLSDMSGS,'10010000'B,0);/* 00157000 * BUILD MESSAGE */ 00158000 ST ZZ2PTR,@AL00001 01S0187 00159000 LA @10,@CF01020 01S0187 00160000 ST @10,@AL00001+4 01S0187 00161000 LA @10,MSGPTR 01S0187 00162000 ST @10,@AL00001+8 01S0187 00163000 L @10,ZZ2MSGSP(,ZZ2PTR) 01S0187 00164000 ST @10,@AL00001+12 01S0187 00165000 LA @10,@CB01021 01S0187 00166000 ST @10,@AL00001+16 01S0187 00167000 LA @10,@CF00053 01S0187 00168000 ST @10,@AL00001+20 01S0187 00169000 L @15,ZZ2MSG0P(,ZZ2PTR) 01S0187 00170000 LA @01,@AL00001 01S0187 00171000 BALR @14,@15 01S0187 00172000 * END; /* BLSDMSG 01S0188 00173000 * (ZZ2,04003,MSGPTR,BLSDMSGS) 00174000 * LIFO ROUTE(TERM) */ 00175000 * RETCODE=TWELVE; /* INDICATE TERMINATE COMMAND */ 00176000 LA RETCODE,12 01S0189 00177000 * END; /* END OF NO DEFAULT PROBLEM */ 00178000 * ELSE /* DEFAULT PROBLEM EXISTS */ 00179000 * DO; /* PROCESS DEFAULT PROBLEM */ 00180000 B @RC00183 01S0191 00181000 @RF00183 DS 0H 01S0192 00182000 * CURPID=ZZ2APID; /* MOVE IN CURRENT PROBLEM */ 00183000 * 01S0192 00184000 L @10,@PC00001+8 01S0192 00185000 MVC CURPID(8,@10),ZZ2APID(ZZ2PTR) 01S0192 00186000 * /***********************************************************/ 00187000 * /* */ 00188000 * /* CHECK FOR NUMERICS */ 00189000 * /* */ 00190000 * /***********************************************************/ 00191000 * 01S0193 00192000 * IF(CURPROB(ONE:FIVE)&ZEROCHAR(ONE:FIVE))^=ZEROCHAR(ONE:FIVE) 00193000 * THEN 01S0193 00194000 MVC @TS00001(5),CURPROB(@10) 01S0193 00195000 NC @TS00001(5),ZEROCHAR 01S0193 00196000 CLC @TS00001(5),ZEROCHAR 01S0193 00197000 BE @RF00193 01S0193 00198000 * DO; /* PROB NUMBER NOT NUMERIC */ 00199000 * 01S0194 00200000 * /*******************************************************/ 00201000 * /* */ 00202000 * /* ISSUE MESSAGE - THE CURRENT DEFAULT NUMBER IS */ 00203000 * /* INVALID */ 00204000 * /* */ 00205000 * /*******************************************************/ 00206000 * 01S0195 00207000 * MSGPTR=ZERO; /* NO MSG CHAIN */ 00208000 SLR @03,@03 01S0195 00209000 ST @03,MSGPTR 01S0195 00210000 * DO; /* BLSDMSG 01S0196 00211000 * (ZZ2,04065,MSGPTR,BLSDMSGS) 00212000 * LIFO ROUTE(TERM)INSERT(FPPIDP, 00213000 * CURPROB) */ 00214000 * IOPTLIST(1)=ADDR(IOPTLIST(4));/* CHAIN TO NEXT INSERT*/ 00215000 LA @15,IOPTLIST+12 01S0197 00216000 ST @15,IOPTLIST 01S0197 00217000 * IOPTLIST(2)=ADDR(FPPIDP);/* INSERT NAME POINTER */ 00218000 L @01,ZZ2ZZ1P(,ZZ2PTR) 01S0198 00219000 L @01,ZZ1FPP(,@01) 01S0198 00220000 LA @15,FPPIDP(,@01) 01S0198 00221000 ST @15,IOPTLIST+4 01S0198 00222000 * IOPTLIST(3)=0; /* ZERO RESERVED FIELD */ 00223000 SLR @15,@15 01S0199 00224000 ST @15,IOPTLIST+8 01S0199 00225000 * RFY 01S0200 00226000 * I015F BASED(ADDR(IOPTLIST(3)));/* ACCESS BYTES 1-2 */ 00227000 * I015F=LENGTH(FPPIDP);/* INSERT LENGTH */ 00228000 LA @14,IOPTLIST+8 01S0201 00229000 MVC I015F(2,@14),@CH00101 01S0201 00230000 * IOPTLIST(4)=0; /* LAST INSERT */ 00231000 ST @15,IOPTLIST+12 01S0202 00232000 * IOPTLIST(5)=ADDR(CURPROB);/* INSERT NAME POINTER */ 00233000 LA @10,CURPROB(,@10) 01S0203 00234000 ST @10,IOPTLIST+16 01S0203 00235000 * IOPTLIST(6)=0; /* ZERO RESERVED FIELD */ 00236000 ST @15,IOPTLIST+20 01S0204 00237000 * RFY 01S0205 00238000 * I015F BASED(ADDR(IOPTLIST(6)));/* ACCESS BYTES 1-2 */ 00239000 * I015F=LENGTH(CURPROB);/* INSERT LENGTH */ 00240000 LA @10,IOPTLIST+20 01S0206 00241000 MVC I015F(2,@10),@CH00098 01S0206 00242000 * CALL BLSDMSG0(ZZ2,04065,MSGPTR,BLSDMSGS,'10010000'B, 00243000 * ADDR(IOPTLIST));/* BUILD MESSAGE */ 00244000 ST ZZ2PTR,@AL00001 01S0207 00245000 LA @10,@CF01028 01S0207 00246000 ST @10,@AL00001+4 01S0207 00247000 LA @10,MSGPTR 01S0207 00248000 ST @10,@AL00001+8 01S0207 00249000 L @10,ZZ2MSGSP(,ZZ2PTR) 01S0207 00250000 ST @10,@AL00001+12 01S0207 00251000 LA @10,@CB01021 01S0207 00252000 ST @10,@AL00001+16 01S0207 00253000 LA @10,IOPTLIST 01S0207 00254000 ST @10,@AFTEMPS 01S0207 00255000 LA @10,@AFTEMPS 01S0207 00256000 ST @10,@AL00001+20 01S0207 00257000 L @15,ZZ2MSG0P(,ZZ2PTR) 01S0207 00258000 LA @01,@AL00001 01S0207 00259000 BALR @14,@15 01S0207 00260000 * END; /* BLSDMSG 01S0208 00261000 * (ZZ2,04065,MSGPTR,BLSDMSGS) 00262000 * LIFO ROUTE(TERM)INSERT(FPPIDP, 00263000 * CURPROB) */ 00264000 * RETCODE=TWELVE; /* SET UP ERROR CONDITION */ 00265000 LA RETCODE,12 01S0209 00266000 * END; /* END PROBLEM NUMBER NO NUMERIC */ 00267000 * END; /* END OF DEFAULT PROB NUMBER */ 00268000 * END GETPROB; /* END OF CURRENT PROBLEM 01S0212 00269000 * PROCESSING */ 00270000 @EL00002 DS 0H 01S0212 00271000 @EF00002 DS 0H 01S0212 00272000 @ER00002 LM @14,@02,@SA00002 01S0212 00273000 LM @04,@12,@SA00002+20 01S0212 00274000 BR @14 01S0212 00275000 */*BLSUPEND--MVS IPCS MODULE */ 00276000 * 01S0213 00277000 * DECLARE /* COMMON VARIABLES */ 00278000 * I256C CHAR(256) BASED, 01S0213 00279000 * I031F FIXED(31) BASED, 01S0213 00280000 * I031P PTR(31) BASED, 01S0213 00281000 * I015F FIXED(15) BASED, 01S0213 00282000 * I015P PTR(15) BASED, 01S0213 00283000 * I008P PTR(8) BASED, 01S0213 00284000 * I001C CHAR(1) BASED; 01S0213 00285000 * DECLARE 01S0214 00286000 * IOPTLIST(6) PTR(31) BDY(WORD);/* OPTION LIST ARRAY */ 00287000 * GENERATE NODEFS NOREFS DATA; 01S0215 00288000 * END /* BLRPEND END OF PROCESSING */ 00289000 * 01S0216 00290000 */* THE FOLLOWING INCLUDE STATEMENTS WERE FOUND IN THIS PROGRAM. */ 00291000 */*%INCLUDE SYSLIB (BLSFAD ) */ 00292000 */*%INCLUDE SYSLIB (BLSFP ) */ 00293000 */*%INCLUDE SYSLIB (BLSPDR ) */ 00294000 */*%INCLUDE SYSLIB (BLSUZZZ ) */ 00295000 */*%INCLUDE SYSLIB (BLRFULL ) */ 00296000 */*%INCLUDE SYSLIB (IKJCPPL ) */ 00297000 */*%INCLUDE SYSLIB (IKJPSCB ) */ 00298000 */*%INCLUDE SYSLIB (IKJECT ) */ 00299000 */*%INCLUDE SYSLIB (IKJUPT ) */ 00300000 */*%INCLUDE SYSLIB (BLSUSERV) */ 00301000 */*%INCLUDE SYSLIB (BLRSERV ) */ 00302000 */*%INCLUDE SYSLIB (BLRSERVD) */ 00303000 */*%INCLUDE SYSLIB (BLSDSERV) */ 00304000 * 01S0216 00305000 * ; 01S0216 00306000 @EL00001 L @13,4(,@13) 01S0216 00307000 @EF00001 L @00,@SIZDATD 01S0216 00308000 LR @01,@11 01S0216 00309000 BLSUFRES R,LV=(0),A=(1) 00310000 @ER00001 LM @14,@12,12(@13) 01S0216 00311000 BR @14 01S0216 00312000 @DATA DS 0H 00313000 @CH00101 DC H'3' 00314000 @SM01036 MVC CURPROB(0,@14),PRNI(@10) 00315000 @DATD DSECT 00316000 DS 0F 00317000 @SA00001 DS 18F 00318000 @PC00001 DS 4F 00319000 @SA00002 DS 14F 00320000 @AL00001 DS 6A 00321000 @AFTEMPS DS 1F 00322000 BLSFPS00 CSECT 00323000 DS 0F 00324000 @CF00053 DC F'0' 00325000 @CF00045 DC F'4' 00326000 @CF00098 DC F'5' 00327000 @CH00098 EQU @CF00098+2 00328000 @CF01020 DC F'4003' 00329000 @CF01028 DC F'4065' 00330000 @DATD DSECT 00331000 DS 0D 00332000 MSGPTR DS A 00333000 @TS00001 DS CL5 00334000 DS CL3 00335000 IOPTLIST DS 6A 00336000 BLSFPS00 CSECT 00337000 DS 0F 00338000 @SIZDATD DC AL1(0) 00339000 DC AL3(@ENDDATD-@DATD) 00340000 DS 0D 00341000 @CC00318 DC C'ST' 00342000 @CB01021 DC B'10010000' 00343000 ZEROCHAR DC CL10'0000000000' 00344000 BLANKS DC CL5' ' 00345000 ZCHAR DC CL4'0000' 00346000 @DATD DSECT 00347000 SPACE 2 00348000 *********************************************************************** 00349000 * THE FOLLOWING AREA, BLRPATCH, IS RESERVED FOR PATCH APPLICATION * 00350000 * TO OBTAIN PATCH ROOM IN THE @DATD AUTOMATIC STORAGE AREA, MODIFY * 00351000 * CONSTANT @SIZDATD TO REFLECT THE DESIRED @DATD SIZE * 00352000 *********************************************************************** 00353000 SPACE 00354000 BLSFPS00 CSECT 00355000 ORG 00356000 DS 0D 00357000 BLRPATCH DC CL8'ZAPAREA',(((*-BLSFPS00+19)/20+7)/8)CL8'BLSFPS00' 00358000 @DATD DSECT 00359000 SPACE 2 00360000 *********************************************************************** 00361000 * ALIGN END OF DATA ON A DOUBLEWORD BOUNDARY * 00362000 *********************************************************************** 00363000 SPACE 00364000 DS 0D 00365000 @DATD DSECT 00366000 ORG *+1-(*-@DATD)/(*-@DATD) INSURE DSECT DATA 00367000 @ENDDATD EQU * 00368000 BLSFPS00 CSECT 00369000 @00 EQU 00 EQUATES FOR REGISTERS 0-15 00370000 @01 EQU 01 00371000 @02 EQU 02 00372000 @03 EQU 03 00373000 @04 EQU 04 00374000 @05 EQU 05 00375000 @06 EQU 06 00376000 @07 EQU 07 00377000 @08 EQU 08 00378000 @09 EQU 09 00379000 @10 EQU 10 00380000 @11 EQU 11 00381000 @12 EQU 12 00382000 @13 EQU 13 00383000 @14 EQU 14 00384000 @15 EQU 15 00385000 RETCODE EQU @03 00386000 RETC EQU @04 00387000 ZZ2PTR EQU @02 00388000 R0 EQU @00 00389000 R1 EQU @01 00390000 R2 EQU @02 00391000 R3 EQU @03 00392000 R4 EQU @04 00393000 R5 EQU @05 00394000 R9 EQU @09 00395000 RB EQU @11 00396000 RD EQU @13 00397000 RE EQU @14 00398000 RF EQU @15 00399000 RA EQU @10 00400000 RC EQU @12 00401000 R6 EQU @06 00402000 R7 EQU @07 00403000 R8 EQU @08 00404000 PD EQU 0 00405000 DSNS EQU 0 00406000 DSNSDP EQU DSNS 00407000 DSNSDF EQU DSNS+6 00408000 DSNSMP EQU DSNS+8 00409000 DSNSMF EQU DSNS+14 00410000 DSNSPP EQU DSNS+16 00411000 DSNSPF EQU DSNS+22 00412000 PRN EQU 0 00413000 PRNIP EQU PRN 00414000 PRNIL EQU PRN+4 00415000 PRNIF EQU PRN+6 00416000 PRNIFP EQU PRNIF 00417000 PRNI EQU 0 00418000 DSC EQU 0 00419000 DSCQP EQU DSC 00420000 DSCQF EQU DSC+6 00421000 FPBLOK EQU 0 00422000 FPPIDP EQU FPBLOK+96 00423000 FPDBPIDP EQU FPBLOK+100 00424000 FPADMNM EQU FPBLOK+120 00425000 FPDELNM EQU FPBLOK+128 00426000 PDREC EQU 0 00427000 PDRKEY EQU PDREC 00428000 PDRGRP EQU PDRKEY 00429000 PDRKRCTY EQU PDRGRP 00430000 PDRKPID EQU PDRGRP+2 00431000 PDRRECSQ EQU PDRKEY+10 00432000 PDRINFO EQU PDREC+16 00433000 ZZ1 EQU 0 00434000 ZZ1FPP EQU ZZ1+140 00435000 ZZ1ATTN EQU ZZ1+360 00436000 ZZ1EVE EQU ZZ1ATTN+4 00437000 ZZ1EVEP EQU ZZ1EVE 00438000 ZZ1F EQU ZZ1+368 00439000 ZZ1N EQU ZZ1+1116 00440000 ZZ2 EQU 0 00441000 ZZ2AMD EQU ZZ2 00442000 @NM00023 EQU ZZ2AMD+7 00443000 ZZ2PRT EQU ZZ2+138 00444000 ZZ2PRTT EQU ZZ2PRT+4 00445000 ZZ2PRTT1 EQU ZZ2PRTT+1 00446000 ZZ2A EQU ZZ2+272 00447000 ZZ2AF EQU ZZ2A+16 00448000 ZZ2APID EQU ZZ2A+64 00449000 ZZ2APIDB EQU ZZ2APID+3 00450000 ZZ2AD EQU ZZ2A+74 00451000 ZZ2ADD EQU ZZ2AD 00452000 ZZ2ADDT EQU ZZ2ADD+2 00453000 ZZ2ADM EQU ZZ2AD+46 00454000 ZZ2ADMT EQU ZZ2ADM+2 00455000 ZZ2ADP EQU ZZ2AD+56 00456000 ZZ2ADPT EQU ZZ2ADP+2 00457000 ZZ2AQAS EQU ZZ2A+144 00458000 ZZ2AQD EQU ZZ2A+160 00459000 ZZ2AQDT EQU ZZ2AQD+10 00460000 ZZ2AQDF EQU ZZ2AQD+52 00461000 ZZ2STG EQU ZZ2+960 00462000 ZZ2ALLOP EQU ZZ2+992 00463000 ZZ2FREEP EQU ZZ2+996 00464000 ZZ2FF19P EQU ZZ2+1000 00465000 ZZ2FRE1P EQU ZZ2+1004 00466000 ZZ2FF18P EQU ZZ2+1008 00467000 ZZ2DYNAP EQU ZZ2+1012 00468000 ZZ2ZZ2CP EQU ZZ2+1016 00469000 ZZ2ZZ2DP EQU ZZ2+1020 00470000 ZZ2STAIP EQU ZZ2+1024 00471000 ZZ2FF02P EQU ZZ2+1028 00472000 ZZ2GETLP EQU ZZ2+1032 00473000 ZZ2PARSP EQU ZZ2+1036 00474000 ZZ2PTGTP EQU ZZ2+1040 00475000 ZZ2PUTLP EQU ZZ2+1044 00476000 ZZ2SCANP EQU ZZ2+1048 00477000 ZZ2STCKP EQU ZZ2+1052 00478000 ZZ2ALOCP EQU ZZ2+1056 00479000 ZZ2MSGSP EQU ZZ2+1060 00480000 ZZ2TRMOP EQU ZZ2+1064 00481000 ZZ2TRMVP EQU ZZ2+1068 00482000 ZZ2MSG0P EQU ZZ2+1076 00483000 ZZ2PUTNP EQU ZZ2+1084 00484000 ZZ2TRMNP EQU ZZ2+1088 00485000 ZZ2ENQ0P EQU ZZ2+1092 00486000 ZZ2ADSDP EQU ZZ2+1096 00487000 ZZ2APDRP EQU ZZ2+1100 00488000 ZZ2FDSDP EQU ZZ2+1104 00489000 ZZ2FPDRP EQU ZZ2+1108 00490000 ZZ2ZZ1P EQU ZZ2+1264 00491000 ZZ2DVTP EQU ZZ2+1276 00492000 ZZ2BVTP EQU ZZ2+1280 00493000 ZZ2CPPL EQU ZZ2+1292 00494000 ZZ2CPPLC EQU ZZ2CPPL 00495000 ZZ2ITR EQU ZZ2+2840 00496000 ZZ2ITRE EQU ZZ2ITR+16 00497000 ZZ2ITSE EQU ZZ2+2864 00498000 ZZ2ES EQU ZZ2+2872 00499000 ZZ2AMDX EQU ZZ2+7160 00500000 ZZ2AXO EQU ZZ2+7934 00501000 ZZ2AXOT EQU ZZ2AXO+2 00502000 CMD EQU 0 00503000 CMDT EQU CMD+4 00504000 PSCB EQU 0 00505000 PSCBATR1 EQU PSCB+16 00506000 ECT EQU 0 00507000 ECTSWS EQU ECT+28 00508000 ECTSWS2 EQU ECT+40 00509000 ECTSWS21 EQU ECTSWS2 00510000 UPT EQU 0 00511000 UPTSWS EQU UPT+12 00512000 SA EQU 0 00513000 SA1 EQU SA 00514000 SAR EQU SA+12 00515000 BVT EQU 0 00516000 BVTPUTLP EQU BVT+4 00517000 BVTPUTOP EQU BVT+12 00518000 BVTPUTTP EQU BVT+16 00519000 BVTPUTVP EQU BVT+20 00520000 BVTPUTAP EQU BVT+24 00521000 BVTPRTTP EQU BVT+28 00522000 BVTPRTAP EQU BVT+32 00523000 BVTPUTDP EQU BVT+36 00524000 BVTMONP EQU BVT+40 00525000 BVTMON2P EQU BVT+44 00526000 BVTVSARP EQU BVT+48 00527000 BVTVSENP EQU BVT+64 00528000 BVTVSERP EQU BVT+68 00529000 BVTVSGEP EQU BVT+72 00530000 BVTVSGUP EQU BVT+76 00531000 BVTVSPOP EQU BVT+80 00532000 BVTVSPUP EQU BVT+84 00533000 BVTMPKNP EQU BVT+104 00534000 BVTMONLP EQU BVT+108 00535000 BVTPUTCP EQU BVT+132 00536000 BVTMPK1P EQU BVT+136 00537000 BVTZZ2RP EQU BVT+140 00538000 BVTPGMRP EQU BVT+144 00539000 BVTMONAP EQU BVT+148 00540000 BVTBLDDP EQU BVT+152 00541000 BVTBLDLP EQU BVT+156 00542000 BVTPGMCP EQU BVT+160 00543000 BVTPGMDP EQU BVT+164 00544000 BVTPGMLP EQU BVT+168 00545000 BVTMONCP EQU BVT+180 00546000 BVTMONDP EQU BVT+184 00547000 BVTMONTP EQU BVT+188 00548000 BVTPARIP EQU BVT+192 00549000 BVTPARUP EQU BVT+196 00550000 BVTPRTNP EQU BVT+204 00551000 BVTVSCRP EQU BVT+208 00552000 BVTVSMRP EQU BVT+212 00553000 BVTMONXP EQU BVT+216 00554000 BVTTRMAP EQU BVT+228 00555000 BLSDMSGS EQU 0 00556000 BLSDMSG0 EQU 0 00557000 DVT EQU 0 00558000 DVTDEQPP EQU DVT+8 00559000 DVTENQPP EQU DVT+12 00560000 DVTAUTHP EQU DVT+20 00561000 DVTLPCLP EQU DVT+24 00562000 DVTBP00P EQU DVT+28 00563000 DVTCN00P EQU DVT+32 00564000 DVTDF00P EQU DVT+36 00565000 DVTDS00P EQU DVT+44 00566000 DVTFL00P EQU DVT+48 00567000 DVTFP00P EQU DVT+52 00568000 DVTGD00P EQU DVT+56 00569000 DVTGG00P EQU DVT+60 00570000 DVTGP00P EQU DVT+64 00571000 DVTND00P EQU DVT+68 00572000 DVTND01P EQU DVT+72 00573000 DVTOD00P EQU DVT+76 00574000 DVTSD00P EQU DVT+84 00575000 DVTSL00P EQU DVT+88 00576000 DVTTL00P EQU DVT+92 00577000 DVTUD00P EQU DVT+96 00578000 DVTUP00P EQU DVT+100 00579000 DVTLP00P EQU DVT+104 00580000 DVTLALLP EQU DVT+108 00581000 DVTLPFMP EQU DVT+112 00582000 DVTCLOSP EQU DVT+116 00583000 DVTOPENP EQU DVT+120 00584000 DVTPERAP EQU DVT+124 00585000 DVTDALLP EQU DVT+128 00586000 CURPID EQU 0 00587000 CURPREF EQU CURPID 00588000 CURPROB EQU CURPID+3 00589000 I015F EQU 0 00590000 BLSCALOC EQU 0 00591000 BLSDADSD EQU 0 00592000 BLSDAPDR EQU 0 00593000 BLSDDEQP EQU 0 00594000 BLSDENQP EQU 0 00595000 BLSDENQ0 EQU 0 00596000 BLSDFDSD EQU 0 00597000 BLSDFPDR EQU 0 00598000 BLSEAUTH EQU 0 00599000 BLSELPCL EQU 0 00600000 BLSELPFM EQU 0 00601000 BLSFBP00 EQU 0 00602000 BLSFCLOS EQU 0 00603000 BLSFCN00 EQU 0 00604000 BLSFDALL EQU 0 00605000 BLSFDF00 EQU 0 00606000 BLSFDS00 EQU 0 00607000 BLSFFL00 EQU 0 00608000 BLSFFP00 EQU 0 00609000 BLSFGD00 EQU 0 00610000 BLSFGG00 EQU 0 00611000 BLSFGP00 EQU 0 00612000 BLSFLALL EQU 0 00613000 BLSFLP00 EQU 0 00614000 BLSFND00 EQU 0 00615000 BLSFND01 EQU 0 00616000 BLSFOD00 EQU 0 00617000 BLSFOPEN EQU 0 00618000 BLSFPERA EQU 0 00619000 BLSFSD00 EQU 0 00620000 BLSFSL00 EQU 0 00621000 BLSFTL00 EQU 0 00622000 BLSFUD00 EQU 0 00623000 BLSFUP00 EQU 0 00624000 BLSUALLO EQU 0 00625000 BLSUBLDD EQU 0 00626000 BLSUBLDL EQU 0 00627000 BLSUDYNA EQU 0 00628000 BLSUFREE EQU 0 00629000 BLSUFRE1 EQU 0 00630000 BLSUMON EQU 0 00631000 BLSUMONA EQU 0 00632000 BLSUMONC EQU 0 00633000 BLSUMOND EQU 0 00634000 BLSUMONL EQU 0 00635000 BLSUMONT EQU 0 00636000 BLSUMONX EQU 0 00637000 BLSUMON2 EQU 0 00638000 BLSUMPKN EQU 0 00639000 BLSUMPK1 EQU 0 00640000 BLSUPARI EQU 0 00641000 BLSUPARU EQU 0 00642000 BLSUPGMC EQU 0 00643000 BLSUPGMD EQU 0 00644000 BLSUPGML EQU 0 00645000 BLSUPGMR EQU 0 00646000 BLSUPRTA EQU 0 00647000 BLSUPRTN EQU 0 00648000 BLSUPRTT EQU 0 00649000 BLSUPUTA EQU 0 00650000 BLSUPUTC EQU 0 00651000 BLSUPUTD EQU 0 00652000 BLSUPUTL EQU 0 00653000 BLSUPUTN EQU 0 00654000 BLSUPUTO EQU 0 00655000 BLSUPUTT EQU 0 00656000 BLSUPUTV EQU 0 00657000 BLSUSTAI EQU 0 00658000 BLSUTRMA EQU 0 00659000 BLSUTRMN EQU 0 00660000 BLSUTRMO EQU 0 00661000 BLSUTRMV EQU 0 00662000 BLSUVSAR EQU 0 00663000 BLSUVSCR EQU 0 00664000 BLSUVSEN EQU 0 00665000 BLSUVSER EQU 0 00666000 BLSUVSGE EQU 0 00667000 BLSUVSGU EQU 0 00668000 BLSUVSMR EQU 0 00669000 BLSUVSPO EQU 0 00670000 BLSUVSPU EQU 0 00671000 BLSUZZ2C EQU 0 00672000 BLSUZZ2D EQU 0 00673000 BLSUZZ2R EQU 0 00674000 DCR EQU 0 00675000 DESCSUB EQU 0 00676000 DFT EQU 0 00677000 DSCQ EQU 0 00678000 DSNSD EQU 0 00679000 DSNSM EQU 0 00680000 DSNSP EQU 0 00681000 DSNSUB EQU 0 00682000 DSNWD EQU 0 00683000 IKJEFF02 EQU 0 00684000 IKJEFF18 EQU 0 00685000 IKJEFF19 EQU 0 00686000 IKJGETL EQU 0 00687000 IKJPARS EQU 0 00688000 IKJPTGT EQU 0 00689000 IKJPUTL EQU 0 00690000 IKJSCAN EQU 0 00691000 IKJSTCK EQU 0 00692000 I001C EQU 0 00693000 I008P EQU 0 00694000 I015P EQU 0 00695000 I031F EQU 0 00696000 I031P EQU 0 00697000 I256C EQU 0 00698000 LISTEND EQU 0 00699000 MAN EQU 0 00700000 PRO EQU 0 00701000 PROBSUB EQU 0 00702000 PXCONF EQU 0 00703000 PXTEST EQU 0 00704000 TYP EQU 0 00705000 TYPESUB EQU 0 00706000 TYS EQU 0 00707000 ZZ2CB EQU 0 00708000 PROBPDE EQU 0 00709000 DEFPROB EQU 0 00710000 PDRSTKEY EQU 0 00711000 PDRSTREC EQU PDRINFO 00712000 PDRODATE EQU PDRSTREC 00713000 PDROWNNM EQU PDRSTREC+32 00714000 PDRDEREC EQU PDRINFO 00715000 PDRDESCR EQU PDRDEREC 00716000 PDRTRREC EQU PDRINFO 00717000 PDRTRARR EQU PDRTRREC 00718000 PDRHSREC EQU PDRINFO 00719000 PDRDSREC EQU PDRINFO 00720000 PDRDSNM EQU PDRDSREC 00721000 PDRSVALU EQU PDRODATE 00722000 CPPL EQU ZZ2CPPL 00723000 CPPLUPT EQU CPPL+4 00724000 CPPLPSCB EQU CPPL+8 00725000 CPPLECT EQU CPPL+12 00726000 * START UNREFERENCED COMPONENTS 00727000 CPPLCBUF EQU CPPL 00728000 PDRSVNUM EQU PDRSVALU+3 00729000 PDRSVRES EQU PDRSVALU 00730000 PDRDSRES EQU PDRDSREC+52 00731000 PDRMEMB EQU PDRDSNM+44 00732000 PDRDSN EQU PDRDSNM 00733000 PDRHYMSD EQU PDRHSREC+4 00734000 PDRHSLEN EQU PDRHSREC 00735000 PDRTRKD EQU PDRTRARR 00736000 PDRDESC EQU PDRDESCR 00737000 PDRDSSEQ EQU PDRSTREC+396 00738000 PDRRES6 EQU PDRSTREC+392 00739000 PDRTRKL EQU PDRSTREC+388 00740000 PDRDESCL EQU PDRSTREC+384 00741000 PDRABS EQU PDRSTREC+256 00742000 PDRRES5 EQU PDRSTREC+252 00743000 PDRFIXID EQU PDRSTREC+192 00744000 PDRFTIME EQU PDRSTREC+184 00745000 PDRFDATE EQU PDRSTREC+176 00746000 PDRFSTAT EQU PDRSTREC+172 00747000 PDRRES4 EQU PDRSTREC+167 00748000 PDRPTFID EQU PDRSTREC+160 00749000 PDRTTIME EQU PDRSTREC+152 00750000 PDRTDATE EQU PDRSTREC+144 00751000 PDRTSTAT EQU PDRSTREC+140 00752000 PDRRES3 EQU PDRSTREC+135 00753000 PDRAPRID EQU PDRSTREC+128 00754000 PDRITIME EQU PDRSTREC+120 00755000 PDRIDATE EQU PDRSTREC+112 00756000 PDRISTAT EQU PDRSTREC+104 00757000 PDRRTIME EQU PDRSTREC+96 00758000 PDRRDATE EQU PDRSTREC+88 00759000 PDRPTIME EQU PDRSTREC+80 00760000 PDRPDATE EQU PDRSTREC+72 00761000 PDRPSTAT EQU PDRSTREC+64 00762000 PDRUSER EQU PDRSTREC+56 00763000 PDRSYS EQU PDRSTREC+48 00764000 PDRGROUP EQU PDRSTREC+40 00765000 PDROWNLN EQU PDROWNNM+7 00766000 PDROWNID EQU PDROWNNM 00767000 PDRRES1 EQU PDRSTREC+27 00768000 PDRSEV EQU PDRSTREC+26 00769000 PDRCOMP EQU PDRSTREC+16 00770000 PDROTIME EQU PDRSTREC+8 00771000 DVT99999 EQU DVT+256 00772000 DVT0064P EQU DVT+252 00773000 DVT0063P EQU DVT+248 00774000 DVT0062P EQU DVT+244 00775000 DVT0061P EQU DVT+240 00776000 DVT0060P EQU DVT+236 00777000 DVT0059P EQU DVT+232 00778000 DVT0058P EQU DVT+228 00779000 DVT0057P EQU DVT+224 00780000 DVT0056P EQU DVT+220 00781000 DVT0055P EQU DVT+216 00782000 DVT0054P EQU DVT+212 00783000 DVT0053P EQU DVT+208 00784000 DVT0052P EQU DVT+204 00785000 DVT0051P EQU DVT+200 00786000 DVT0050P EQU DVT+196 00787000 DVT0049P EQU DVT+192 00788000 DVT0048P EQU DVT+188 00789000 DVT0047P EQU DVT+184 00790000 DVT0046P EQU DVT+180 00791000 DVT0045P EQU DVT+176 00792000 DVT0044P EQU DVT+172 00793000 DVT0043P EQU DVT+168 00794000 DVT0042P EQU DVT+164 00795000 DVT0041P EQU DVT+160 00796000 DVT0040P EQU DVT+156 00797000 DVT0039P EQU DVT+152 00798000 DVT0038P EQU DVT+148 00799000 DVT0037P EQU DVT+144 00800000 DVT0036P EQU DVT+140 00801000 DVT0035P EQU DVT+136 00802000 DVT0034P EQU DVT+132 00803000 DVTPS00P EQU DVT+80 00804000 DVT0011P EQU DVT+40 00805000 DVT0005P EQU DVT+16 00806000 DVT0002P EQU DVT+4 00807000 DVT0001P EQU DVT 00808000 BVT99999 EQU BVT+256 00809000 BVT0064P EQU BVT+252 00810000 BVT0063P EQU BVT+248 00811000 BVT0062P EQU BVT+244 00812000 BVT0061P EQU BVT+240 00813000 BVT0060P EQU BVT+236 00814000 BVT0059P EQU BVT+232 00815000 BVT0057P EQU BVT+224 00816000 BVT0056P EQU BVT+220 00817000 BVTSTBLP EQU BVT+200 00818000 BVT0045P EQU BVT+176 00819000 BVT0044P EQU BVT+172 00820000 BVT0033P EQU BVT+128 00821000 BVT0032P EQU BVT+124 00822000 BVT0031P EQU BVT+120 00823000 BVT0030P EQU BVT+116 00824000 BVT0029P EQU BVT+112 00825000 BVT0026P EQU BVT+100 00826000 BVT0025P EQU BVT+96 00827000 BVT0024P EQU BVT+92 00828000 BVT0023P EQU BVT+88 00829000 BVT0016P EQU BVT+60 00830000 BVT0015P EQU BVT+56 00831000 BVT0014P EQU BVT+52 00832000 BVT0003P EQU BVT+8 00833000 BVT0001P EQU BVT 00834000 SA99 EQU SA+72 00835000 SARC EQU SAR+56 00836000 SARB EQU SAR+52 00837000 SARA EQU SAR+48 00838000 SAR9 EQU SAR+44 00839000 SAR8 EQU SAR+40 00840000 SAR7 EQU SAR+36 00841000 SAR6 EQU SAR+32 00842000 SAR5 EQU SAR+28 00843000 SAR4 EQU SAR+24 00844000 SAR3 EQU SAR+20 00845000 SAR2 EQU SAR+16 00846000 SAR1 EQU SAR+12 00847000 SAR0 EQU SAR+8 00848000 SARF EQU SAR+4 00849000 SARE EQU SAR 00850000 SAFWD EQU SA+8 00851000 SABAK EQU SA+4 00852000 SA1L EQU SA1+1 00853000 SA1P EQU SA1 00854000 UPTPREFL EQU UPT+23 00855000 UPTPREFX EQU UPT+16 00856000 @NM00078 EQU UPT+15 00857000 UPTLDEL EQU UPT+14 00858000 UPTCDEL EQU UPT+13 00859000 UPTWTP EQU UPTSWS 00860000 UPTMODE EQU UPTSWS 00861000 UPTALD EQU UPTSWS 00862000 UPTPAUS EQU UPTSWS 00863000 UPTNCOM EQU UPTSWS 00864000 UPTMID EQU UPTSWS 00865000 UPTNPRM EQU UPTSWS 00866000 UPTRCVR EQU UPTSWS 00867000 UPTUSER EQU UPT+2 00868000 @NM00077 EQU UPT 00869000 @NM00076 EQU ECT+52 00870000 @NM00075 EQU ECT+48 00871000 @NM00074 EQU ECT+44 00872000 @NM00073 EQU ECTSWS2+1 00873000 @NM00072 EQU ECTSWS21 00874000 ECTTABND EQU ECTSWS21 00875000 ECTDEFCS EQU ECTSWS21 00876000 ECTBKPB EQU ECT+36 00877000 ECTUSER EQU ECT+32 00878000 ECTDDNUM EQU ECT+29 00879000 ECTATTN EQU ECTSWS 00880000 ECTBKGRD EQU ECTSWS 00881000 ECTNNOT EQU ECTSWS 00882000 ECTNMAL EQU ECTSWS 00883000 ECTLOGF EQU ECTSWS 00884000 ECTATRM EQU ECTSWS 00885000 @NM00071 EQU ECTSWS 00886000 ECTNOPD EQU ECTSWS 00887000 ECTSCMD EQU ECT+20 00888000 ECTPCMD EQU ECT+12 00889000 ECTSMSG EQU ECT+9 00890000 ECTMSGF EQU ECT+8 00891000 ECTIOWA EQU ECT+4 00892000 ECTRTCD EQU ECT+1 00893000 ECTRCDF EQU ECT 00894000 PSCBU EQU PSCB+64 00895000 PSCBRSZ EQU PSCB+60 00896000 PSCBLINE EQU PSCB+59 00897000 PSCBCHAR EQU PSCB+58 00898000 PSCBUPTL EQU PSCB+56 00899000 PSCBUPT EQU PSCB+52 00900000 PSCBRLGB EQU PSCB+48 00901000 PSCBDEST EQU PSCB+40 00902000 @NM00070 EQU PSCB+36 00903000 @NM00069 EQU PSCB+32 00904000 @NM00068 EQU PSCB+28 00905000 PSCBLTI2 EQU PSCB+24 00906000 PSCBLTIM EQU PSCB+20 00907000 PSCBATR2 EQU PSCB+18 00908000 @NM00067 EQU PSCBATR1 00909000 @NM00066 EQU PSCBATR1 00910000 @NM00065 EQU PSCBATR1 00911000 PSCBATTN EQU PSCBATR1 00912000 PSCBVMNT EQU PSCBATR1 00913000 PSCBJCL EQU PSCBATR1 00914000 PSCBACCT EQU PSCBATR1 00915000 PSCBCTRL EQU PSCBATR1 00916000 PSCBGPNM EQU PSCB+8 00917000 PSCBUSRL EQU PSCB+7 00918000 PSCBUSER EQU PSCB 00919000 CMDT1 EQU CMDT 00920000 CMDO EQU CMD+2 00921000 CMDL EQU CMD 00922000 ZZ299999 EQU ZZ2+8192 00923000 ZZ2AXOT1 EQU ZZ2AXOT 00924000 ZZ2AXOL EQU ZZ2AXO 00925000 @NM00064 EQU ZZ2+7288 00926000 @NM00063 EQU ZZ2AMDX+4 00927000 ZZ2AMDXC EQU ZZ2AMDX 00928000 ZZ2HSD EQU ZZ2+3056 00929000 @NM00062 EQU ZZ2ES 00930000 @NM00061 EQU ZZ2+2868 00931000 ZZ2ITSEC EQU ZZ2ITSE+1 00932000 @NM00060 EQU ZZ2ITSE 00933000 ZZ2ITSEP EQU ZZ2ITSE 00934000 ZZ2ITSEW EQU ZZ2ITSE 00935000 @NM00059 EQU ZZ2ITR+20 00936000 ZZ2ITREC EQU ZZ2ITRE+1 00937000 @NM00058 EQU ZZ2ITRE 00938000 ZZ2ITREP EQU ZZ2ITRE 00939000 ZZ2ITREW EQU ZZ2ITRE 00940000 @NM00057 EQU ZZ2ITR+9 00941000 ZZ2ITRRC EQU ZZ2ITR+8 00942000 ZZ2ITR2P EQU ZZ2ITR+4 00943000 ZZ2ITRPP EQU ZZ2ITR 00944000 @NM00056 EQU ZZ2+1544 00945000 ZZ2PGM EQU ZZ2+1536 00946000 @NM00055 EQU ZZ2+1526 00947000 ZZ2CW EQU ZZ2+1524 00948000 @NM00054 EQU ZZ2+1504 00949000 @NM00053 EQU ZZ2+1352 00950000 ZZ2FFSYP EQU ZZ2+1348 00951000 ZZ2SASYP EQU ZZ2+1344 00952000 ZZ2RDSYP EQU ZZ2+1340 00953000 ZZ2RASYP EQU ZZ2+1336 00954000 ZZ2PHSYP EQU ZZ2+1332 00955000 ZZ2ESSYP EQU ZZ2+1328 00956000 ZZ200SYP EQU ZZ2+1324 00957000 ZZ2SCWP EQU ZZ2+1320 00958000 ZZ2TTLP EQU ZZ2+1316 00959000 ZZ2LOADP EQU ZZ2+1312 00960000 ZZ2VRESP EQU ZZ2+1308 00961000 ZZ2CPPLE EQU ZZ2CPPL+12 00962000 ZZ2CPPLP EQU ZZ2CPPL+8 00963000 ZZ2CPPLU EQU ZZ2CPPL+4 00964000 ZZ2VRSAP EQU ZZ2+1288 00965000 ZZ2RVTP EQU ZZ2+1284 00966000 @NM00052 EQU ZZ2+1272 00967000 @NM00051 EQU ZZ2+1268 00968000 ZZ2RPLP EQU ZZ2+1260 00969000 ZZ2TCBP EQU ZZ2+1256 00970000 @NM00050 EQU ZZ2+1252 00971000 ZZ2ZZ2P EQU ZZ2+1248 00972000 @NM00049 EQU ZZ2+1112 00973000 @NM00048 EQU ZZ2+1080 00974000 ZZ2FT25P EQU ZZ2+1072 00975000 @NM00047 EQU ZZ2+976 00976000 ZZ2TOD EQU ZZ2+968 00977000 ZZ2STGN EQU ZZ2STG+4 00978000 ZZ2STGP EQU ZZ2STG 00979000 @NM00046 EQU ZZ2+952 00980000 ZZ2SCMDE EQU ZZ2+944 00981000 ZZ2SCMDN EQU ZZ2+936 00982000 ZZ2IDENT EQU ZZ2+928 00983000 ZZ2A9999 EQU ZZ2A+656 00984000 @NM00045 EQU ZZ2A+224 00985000 @NM00044 EQU ZZ2A+220 00986000 ZZ2AQD99 EQU ZZ2AQD+60 00987000 @NM00043 EQU ZZ2AQD+56 00988000 @NM00042 EQU ZZ2AQDF 00989000 ZZ2AQDFA EQU ZZ2AQDF 00990000 ZZ2AQDIL EQU ZZ2AQD+48 00991000 ZZ2AQDIM EQU ZZ2AQD+44 00992000 ZZ2AQDT9 EQU ZZ2AQDT+34 00993000 ZZ2AQDTE EQU ZZ2AQDT+33 00994000 ZZ2AQDTD EQU ZZ2AQDT+2 00995000 @NM00041 EQU ZZ2AQDT+1 00996000 ZZ2AQDTY EQU ZZ2AQDT 00997000 ZZ2AQDT0 EQU ZZ2AQDT 00998000 ZZ2AQDLB EQU ZZ2AQD+9 00999000 ZZ2AQDOB EQU ZZ2AQD+8 01000000 ZZ2AQDLE EQU ZZ2AQD+4 01001000 ZZ2AQDOF EQU ZZ2AQD 01002000 ZZ2AQD00 EQU ZZ2AQD 01003000 ZZ2AQAS9 EQU ZZ2AQAS+16 01004000 @NM00040 EQU ZZ2AQAS+12 01005000 ZZ2AQAS2 EQU ZZ2AQAS+8 01006000 ZZ2AQAS1 EQU ZZ2AQAS+4 01007000 @NM00039 EQU ZZ2AQAS+2 01008000 ZZ2AQAST EQU ZZ2AQAS 01009000 ZZ2AQAS0 EQU ZZ2AQAS 01010000 ZZ2AZZ6P EQU ZZ2A+140 01011000 ZZ2ADPTA EQU ZZ2ADPT 01012000 ZZ2ADPL EQU ZZ2ADP 01013000 ZZ2ADMTA EQU ZZ2ADMT 01014000 ZZ2ADML EQU ZZ2ADM 01015000 ZZ2ADDTA EQU ZZ2ADDT 01016000 ZZ2ADDL EQU ZZ2ADD 01017000 @NM00038 EQU ZZ2A+72 01018000 ZZ2APIDA EQU ZZ2APID 01019000 @NM00037 EQU ZZ2A+24 01020000 @NM00036 EQU ZZ2AF+5 01021000 ZZ2AFX EQU ZZ2AF+5 01022000 @NM00035 EQU ZZ2AF+3 01023000 ZZ2AFS EQU ZZ2AF+2 01024000 ZZ2AFD EQU ZZ2AF+2 01025000 ZZ2AFQ EQU ZZ2AF+2 01026000 ZZ2AF$ EQU ZZ2AF+2 01027000 @NM00034 EQU ZZ2AF+2 01028000 ZZ2AFM EQU ZZ2AF+2 01029000 @NM00033 EQU ZZ2AF+2 01030000 @NM00032 EQU ZZ2AF+1 01031000 ZZ2AFV EQU ZZ2AF+1 01032000 @NM00031 EQU ZZ2AF+1 01033000 ZZ2AFC EQU ZZ2AF+1 01034000 @NM00030 EQU ZZ2AF 01035000 ZZ2AFFS EQU ZZ2AF 01036000 ZZ2AFT EQU ZZ2AF 01037000 ZZ2AFP EQU ZZ2AF 01038000 @NM00029 EQU ZZ2A+8 01039000 ZZ2ALINE EQU ZZ2A+4 01040000 @NM00028 EQU ZZ2A+3 01041000 ZZ2ASE EQU ZZ2A+2 01042000 ZZ2ACH EQU ZZ2A 01043000 @NM00027 EQU ZZ2+264 01044000 @NM00026 EQU ZZ2+263 01045000 ZZ2PRTT0 EQU ZZ2PRTT 01046000 ZZ2PRTO EQU ZZ2PRT+2 01047000 ZZ2PRTL EQU ZZ2PRT 01048000 @NM00025 EQU ZZ2AMD+56 01049000 ZZ2AMDXP EQU ZZ2AMD+52 01050000 ZZ2AMDD EQU ZZ2AMD+48 01051000 ZZ2AMDL EQU ZZ2AMD+44 01052000 ZZ2AMDU EQU ZZ2AMD+28 01053000 ZZ2AMDF EQU ZZ2AMD+24 01054000 ZZ2AMDS EQU ZZ2AMD+20 01055000 ZZ2AMDC EQU ZZ2AMD+16 01056000 ZZ2AMDP EQU ZZ2AMD+12 01057000 ZZ2AMDB EQU ZZ2AMD+8 01058000 @NM00024 EQU @NM00023 01059000 ZZ2AMD2 EQU @NM00023 01060000 ZZ2AMD1 EQU @NM00023 01061000 ZZ2AMD0 EQU ZZ2AMD+6 01062000 ZZ2AMDA EQU ZZ2AMD+4 01063000 ZZ2AMDT EQU ZZ2AMD 01064000 ZZ199999 EQU ZZ1+3072 01065000 @NM00022 EQU ZZ1+2160 01066000 ZZ1TRTAS EQU ZZ1+1904 01067000 ZZ1TRUPC EQU ZZ1+1648 01068000 ZZ1TRCTX EQU ZZ1+1392 01069000 ZZ1NASID EQU ZZ1N+274 01070000 ZZ1NSTRL EQU ZZ1N+272 01071000 ZZ1NOFF EQU ZZ1N+268 01072000 ZZ1NBDY EQU ZZ1N+264 01073000 ZZ1NADE EQU ZZ1N+260 01074000 ZZ1NADB EQU ZZ1N+256 01075000 ZZ1NSTR EQU ZZ1N 01076000 @NM00021 EQU ZZ1+1080 01077000 ZZ1TREBC EQU ZZ1+824 01078000 ZZ1TRHEX EQU ZZ1+568 01079000 @NM00020 EQU ZZ1+377 01080000 ZZ1USTAE EQU ZZ1+376 01081000 @NM00019 EQU ZZ1F+1 01082000 @NM00018 EQU ZZ1F 01083000 ZZ1FM EQU ZZ1F 01084000 ZZ1FX EQU ZZ1F 01085000 ZZ1FU EQU ZZ1F 01086000 ZZ1EVEC EQU ZZ1EVE+1 01087000 @NM00017 EQU ZZ1EVE 01088000 ZZ1EVEW EQU ZZ1EVE 01089000 ZZ1ACMP EQU ZZ1ATTN 01090000 @NM00016 EQU ZZ1+144 01091000 ZZ1ZZ6P EQU ZZ1+136 01092000 @NM00015 EQU ZZ1+84 01093000 ZZ1PLINE EQU ZZ1+80 01094000 ZZ1PGSZ EQU ZZ1+76 01095000 ZZ1PCNT EQU ZZ1+72 01096000 @NM00014 EQU ZZ1+68 01097000 ZZ1TPAGE EQU ZZ1+64 01098000 ZZ1TLINE EQU ZZ1+60 01099000 @NM00013 EQU ZZ1+52 01100000 ZZ1DMCBP EQU ZZ1+48 01101000 ZZ1DSDP EQU ZZ1+44 01102000 ZZ1PDRP EQU ZZ1+40 01103000 ZZ1ZZ2P EQU ZZ1+36 01104000 ZZ1327WP EQU ZZ1+32 01105000 ZZ1ACBP EQU ZZ1+28 01106000 @NM00012 EQU ZZ1+24 01107000 ZZ1PDCBP EQU ZZ1+20 01108000 ZZ1BLRBL EQU ZZ1+16 01109000 @NM00011 EQU ZZ1+12 01110000 ZZ1PNULL EQU ZZ1+8 01111000 ZZ1NULL EQU ZZ1+4 01112000 ZZ1IDE EQU ZZ1 01113000 PDRRESV EQU PDREC+14 01114000 PDRKPNUM EQU PDRKPID+3 01115000 PDRKPREF EQU PDRKPID 01116000 FPRES6 EQU FPBLOK+136 01117000 FPDELLN EQU FPDELNM+7 01118000 FPDELID EQU FPDELNM 01119000 FPADMLN EQU FPADMNM+7 01120000 FPADMID EQU FPADMNM 01121000 FPGRPID EQU FPBLOK+112 01122000 FPSYSID EQU FPBLOK+104 01123000 FPRES4 EQU FPBLOK+103 01124000 FPRES3 EQU FPBLOK+99 01125000 FPRES2 EQU FPBLOK+92 01126000 FPDSDS EQU FPBLOK+48 01127000 FPRES1 EQU FPBLOK+44 01128000 FPPDDS EQU FPBLOK 01129000 @NM00010 EQU DSC+8 01130000 @NM00009 EQU DSC+7 01131000 DSCQF8 EQU DSCQF 01132000 DSCQF7 EQU DSCQF 01133000 DSCQF6 EQU DSCQF 01134000 DSCQF5 EQU DSCQF 01135000 DSCQF4 EQU DSCQF 01136000 DSCQF3 EQU DSCQF 01137000 DSCQF2 EQU DSCQF 01138000 DSCQFP EQU DSCQF 01139000 DSCQL EQU DSC+4 01140000 @NM00008 EQU PRN+8 01141000 @NM00007 EQU PRN+7 01142000 PRNIF8 EQU PRNIF 01143000 PRNIF7 EQU PRNIF 01144000 PRNIF6 EQU PRNIF 01145000 PRNIF5 EQU PRNIF 01146000 PRNIF4 EQU PRNIF 01147000 PRNIF3 EQU PRNIF 01148000 PRNIF2 EQU PRNIF 01149000 @NM00006 EQU DSNS+24 01150000 @NM00005 EQU DSNS+23 01151000 DSNSPF8 EQU DSNSPF 01152000 DSNSPF7 EQU DSNSPF 01153000 DSNSPF6 EQU DSNSPF 01154000 DSNSPF5 EQU DSNSPF 01155000 DSNSPF4 EQU DSNSPF 01156000 DSNSPF3 EQU DSNSPF 01157000 DSNSPF2 EQU DSNSPF 01158000 DSNSPFP EQU DSNSPF 01159000 DSNSPL EQU DSNS+20 01160000 @NM00004 EQU DSNS+15 01161000 DSNSMF8 EQU DSNSMF 01162000 DSNSMF7 EQU DSNSMF 01163000 DSNSMF6 EQU DSNSMF 01164000 DSNSMF5 EQU DSNSMF 01165000 DSNSMF4 EQU DSNSMF 01166000 DSNSMF3 EQU DSNSMF 01167000 DSNSMF2 EQU DSNSMF 01168000 DSNSMFP EQU DSNSMF 01169000 DSNSML EQU DSNS+12 01170000 @NM00003 EQU DSNS+7 01171000 @NM00002 EQU DSNSDF 01172000 DSNSDFQ EQU DSNSDF 01173000 DSNSDFP EQU DSNSDF 01174000 DSNSDL EQU DSNS+4 01175000 PDL EQU PD+5 01176000 PDSP EQU PD+4 01177000 PDXP EQU PD+1 01178000 @NM00001 EQU PD 01179000 * END UNREFERENCED COMPONENTS 01180000 @RC00183 EQU @EL00002 01181000 @RC00177 EQU @EL00002 01182000 @RF00193 EQU @EL00002 01183000 @ENDDATA EQU * 01184000 END BLSFPS00,(C'PLS2119',0701,78065) 01185000