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