TITLE 'EP=BLSDFDSD -- IPCS PM/DM FREE THE DATA SET DIRECTORY *00001000 ' 00002000 * /* CHANGE ACTIVITY 00003000 * THIS MODULE IS WRITTEN FOR @G57LPSR 00004000 BLSDFDSD CSECT , 0002 00005000 @MAINENT DS 0H 0002 00006000 USING *,@15 0002 00007000 B @PROLOG 0002 00008000 DC AL1(16) 0002 00009000 DC C'BLSDFDSD 78.062' 0002 00010000 DROP @15 00011000 @PROLOG STM @14,@12,12(@13) 0002 00012000 BALR @12,0 0002 00013000 @PSTART DS 0H 0002 00014000 USING @PSTART,@12 0002 00015000 L @00,@SIZDATD 0002 00016000 BLSUALLR R,LV=(0) 00017000 LR @11,@01 0002 00018000 USING @DATD,@11 0002 00019000 ST @13,@SA00001+4 0002 00020000 LM @00,@01,20(@13) 0002 00021000 ST @11,8(,@13) 0002 00022000 LR @13,@11 0002 00023000 EJECT 00024000 * 0121 00025000 * /*****************************************************************/ 00026000 * /* */ 00027000 * /* INITIALIZE MODULE STATUS */ 00028000 * /* */ 00029000 * /*****************************************************************/ 00030000 * 0121 00031000 * MODNAME=LMODNMC; /* INIT THE MODULE NAME */ 00032000 MVC MODNAME(8),@CC01222 0121 00033000 * RETCODE=ZERO; /* INIT THE MODULE RETURN CODE */ 00034000 SLR @10,@10 0122 00035000 ST @10,RETCODE 0122 00036000 * ANCHOR=ZERO; /* INIT THE MESSAGE LIST ANCHOR */ 00037000 * 0123 00038000 ST @10,ANCHOR 0123 00039000 * /*****************************************************************/ 00040000 * /* */ 00041000 * /* VALIDATE THE ZZ1 CONTROL BLOCK POINTER */ 00042000 * /* */ 00043000 * /*****************************************************************/ 00044000 * 0124 00045000 * IF ZZ1IDE^=ZZZIDENT THEN /* TEST FOR INVALID ZZ1 BLK OR 0124 00046000 * ZZ1 PTR */ 00047000 L @08,ZZ2ZZ1P(,R9) 0124 00048000 CLC ZZ1IDE(4,@08),@CC00036 0124 00049000 BE @RF00124 0124 00050000 * DO; /* INVALID ZZ1 BLOCK OR ZZ1 0125 00051000 * POINTER */ 00052000 * CHSTR847=ZZ2ZZ1P; /* ZZ1 POINTER IN ZZ2 */ 00053000 STCM @08,15,CHSTR847 0126 00054000 * CHSTR88=LHEX0FC; /* TRANSLATE IT TO PRINTABLE HEX */ 00055000 MVI CHSTR88,X'0F' 0127 00056000 * UNPK(CTEMP,CHSTR8); 0128 00057000 UNPK CTEMP(9),CHSTR8(8) 0128 00058000 * TR(CTEMP,HEXTBL); 0129 00059000 TR CTEMP(9),HEXTBL 0129 00060000 * DO; /* BLSDMSG 0130 00061000 * (ZZ2,INVCB,ANCHOR,BLSDMSGS) 0130 00062000 * INSERT(LZZ1C,LZZ1C,CTEMP18) */ 00063000 * IOPTLIST(1)=ADDR(IOPTLIST(4));/* CHAIN TO NEXT INSERT */ 00064000 LA @08,IOPTLIST+12 0131 00065000 ST @08,IOPTLIST 0131 00066000 * IOPTLIST(2)=ADDR(LZZ1C); /* INSERT NAME POINTER */ 00067000 LA @08,@CC01220 0132 00068000 ST @08,IOPTLIST+4 0132 00069000 * IOPTLIST(3)=0; /* ZERO RESERVED FIELD */ 00070000 ST @10,IOPTLIST+8 0133 00071000 * RFY 0134 00072000 * I015F BASED(ADDR(IOPTLIST(3)));/* ACCESS BYTES 1-2 */ 00073000 * I015F=LENGTH(LZZ1C); /* INSERT LENGTH */ 00074000 LA @15,3 0135 00075000 LA @14,IOPTLIST+8 0135 00076000 STH @15,I015F(,@14) 0135 00077000 * IOPTLIST(4)=ADDR(IOPTLIST(7));/* CHAIN TO NEXT INSERT */ 00078000 LA @14,IOPTLIST+24 0136 00079000 ST @14,IOPTLIST+12 0136 00080000 * IOPTLIST(5)=ADDR(LZZ1C); /* INSERT NAME POINTER */ 00081000 ST @08,IOPTLIST+16 0137 00082000 * IOPTLIST(6)=0; /* ZERO RESERVED FIELD */ 00083000 ST @10,IOPTLIST+20 0138 00084000 * RFY 0139 00085000 * I015F BASED(ADDR(IOPTLIST(6)));/* ACCESS BYTES 1-2 */ 00086000 * I015F=LENGTH(LZZ1C); /* INSERT LENGTH */ 00087000 LA @08,IOPTLIST+20 0140 00088000 STH @15,I015F(,@08) 0140 00089000 * IOPTLIST(7)=0; /* LAST INSERT */ 00090000 ST @10,IOPTLIST+24 0141 00091000 * IOPTLIST(8)=ADDR(CTEMP18);/* INSERT NAME POINTER */ 00092000 LA @08,CTEMP18 0142 00093000 ST @08,IOPTLIST+28 0142 00094000 * IOPTLIST(9)=0; /* ZERO RESERVED FIELD */ 00095000 ST @10,IOPTLIST+32 0143 00096000 * RFY 0144 00097000 * I015F BASED(ADDR(IOPTLIST(9)));/* ACCESS BYTES 1-2 */ 00098000 * I015F=LENGTH(CTEMP18); /* INSERT LENGTH */ 00099000 LA @10,IOPTLIST+32 0145 00100000 MVC I015F(2,@10),@CH00046 0145 00101000 * CALL BLSDMSG0(ZZ2,INVCB,ANCHOR,BLSDMSGS,'00000000'B,ADDR( 00102000 * IOPTLIST)); /* BUILD MESSAGE */ 00103000 ST R9,@AL00001 0146 00104000 LA @10,@CF01208 0146 00105000 ST @10,@AL00001+4 0146 00106000 LA @10,ANCHOR 0146 00107000 ST @10,@AL00001+8 0146 00108000 L @10,ZZ2MSGSP(,R9) 0146 00109000 ST @10,@AL00001+12 0146 00110000 LA @10,@CB01236 0146 00111000 ST @10,@AL00001+16 0146 00112000 LA @10,IOPTLIST 0146 00113000 ST @10,@AFTEMPS 0146 00114000 LA @10,@AFTEMPS 0146 00115000 ST @10,@AL00001+20 0146 00116000 L @15,ZZ2MSG0P(,R9) 0146 00117000 LA @01,@AL00001 0146 00118000 BALR @14,@15 0146 00119000 * END; /* BLSDMSG 0147 00120000 * (ZZ2,INVCB,ANCHOR,BLSDMSGS) 0147 00121000 * INSERT(LZZ1C,LZZ1C,CTEMP18) */ 00122000 * DO; /* BLSDMSG 0148 00123000 * (ZZ2,HDRMSG,ANCHOR,BLSDMSGS) 00124000 * LIFO 0148 00125000 * ROUTE(TERM)INSERT(MODNAME) */ 00126000 * IOPTLIST(1)=0; /* LAST INSERT */ 00127000 SLR @10,@10 0149 00128000 ST @10,IOPTLIST 0149 00129000 * IOPTLIST(2)=ADDR(MODNAME);/* INSERT NAME POINTER */ 00130000 LA @08,MODNAME 0150 00131000 ST @08,IOPTLIST+4 0150 00132000 * IOPTLIST(3)=0; /* ZERO RESERVED FIELD */ 00133000 ST @10,IOPTLIST+8 0151 00134000 * RFY 0152 00135000 * I015F BASED(ADDR(IOPTLIST(3)));/* ACCESS BYTES 1-2 */ 00136000 * I015F=LENGTH(MODNAME); /* INSERT LENGTH */ 00137000 LA @10,IOPTLIST+8 0153 00138000 MVC I015F(2,@10),@CH00046 0153 00139000 * CALL BLSDMSG0(ZZ2,HDRMSG,ANCHOR,BLSDMSGS,'10010000'B,ADDR( 00140000 * IOPTLIST)); /* BUILD MESSAGE */ 00141000 ST R9,@AL00001 0154 00142000 LA @10,@CF01206 0154 00143000 ST @10,@AL00001+4 0154 00144000 LA @10,ANCHOR 0154 00145000 ST @10,@AL00001+8 0154 00146000 L @10,ZZ2MSGSP(,R9) 0154 00147000 ST @10,@AL00001+12 0154 00148000 LA @10,@CB01239 0154 00149000 ST @10,@AL00001+16 0154 00150000 LA @10,IOPTLIST 0154 00151000 ST @10,@AFTEMPS 0154 00152000 LA @10,@AFTEMPS 0154 00153000 ST @10,@AL00001+20 0154 00154000 L @15,ZZ2MSG0P(,R9) 0154 00155000 LA @01,@AL00001 0154 00156000 BALR @14,@15 0154 00157000 * END; /* BLSDMSG 0155 00158000 * (ZZ2,HDRMSG,ANCHOR,BLSDMSGS) 00159000 * LIFO 0155 00160000 * ROUTE(TERM)INSERT(MODNAME) */ 00161000 * DO; /* ABEND(F145C) DUMP USER */ 00162000 * RESPECIFY 0157 00163000 * (GPR01F) RESTRICTED; 0157 00164000 * GPR01F=(F145C)&'00000FFF'X;/* COMP CODE IN BITS 20-31 */ 00165000 LA GPR01F,145 0158 00166000 * GPR01F=GPR01F|'80000000'X;/* DUMP/STEP/DUMPOPTS FLAG */ 00167000 O GPR01F,@CF00059 0159 00168000 * SVC(13); /* ISSUE ABEND SVC */ 00169000 SVC 13 0160 00170000 * RESPECIFY 0161 00171000 * (GPR01F) UNRESTRICTED; 0161 00172000 * END; /* ABEND(F145C) DUMP USER INVALID 00173000 * ZZ1 POINTER OR ZZ1 BLOCK */ 00174000 * END; /* INVALID ZZ1 BLOCK OR ZZ1 0163 00175000 * POINTER */ 00176000 * 0163 00177000 * /*****************************************************************/ 00178000 * /* */ 00179000 * /* TEST IF THE DATA SET DIRECTORY IS NOT ALLOCATED */ 00180000 * /* */ 00181000 * /*****************************************************************/ 00182000 * 0164 00183000 * IF ZZ1DSDP=ZZZNULL| /* TEST FOR NOT ALLOCATED */ 00184000 * ZZ1DSDP=ZERO THEN 0164 00185000 @RF00124 L @10,ZZ2ZZ1P(,R9) 0164 00186000 L @10,ZZ1DSDP(,@10) 0164 00187000 CL @10,@CF00059 0164 00188000 BE @RT00164 0164 00189000 LTR @10,@10 0164 00190000 BNZ @RF00164 0164 00191000 @RT00164 DS 0H 0165 00192000 * DO; /* NOT ALLOCATED */ 00193000 * RETURN CODE(ZERO); /* ALL DONE */ 00194000 L @13,4(,@13) 0166 00195000 L @00,@SIZDATD 0166 00196000 LR @01,@11 0166 00197000 BLSUFRER R,LV=(0),A=(1) 00198000 SLR @15,@15 0166 00199000 L @14,12(,@13) 0166 00200000 LM @00,@12,20(@13) 0166 00201000 BR @14 0166 00202000 * END; /* NOT ALLOCATED */ 00203000 * 0167 00204000 * /*****************************************************************/ 00205000 * /* */ 00206000 * /* VALIDATE THE DMCB */ 00207000 * /* */ 00208000 * /*****************************************************************/ 00209000 * 0168 00210000 * IF DMCBID^=LDMCBC THEN /* TEST FOR INVALID DMCB OR DMCB 00211000 * POINTER */ 00212000 @RF00164 L @10,ZZ2ZZ1P(,R9) 0168 00213000 L @08,ZZ1DSDP(,@10) 0168 00214000 CLC DMCBID(4,@08),@CC01218 0168 00215000 BE @RF00168 0168 00216000 * DO; /* INVALID DMCB OR DMCB POINTER */ 00217000 * DO; /* BLSDMSG 0170 00218000 * (ZZ2,INVCB,ANCHOR,BLSDMSGS) 0170 00219000 * INSERT(LDMCBC,LDMCBC,ZZ1DSDP) */ 00220000 * IOPTLIST(1)=ADDR(IOPTLIST(4));/* CHAIN TO NEXT INSERT */ 00221000 LA @08,IOPTLIST+12 0171 00222000 ST @08,IOPTLIST 0171 00223000 * IOPTLIST(2)=ADDR(LDMCBC); /* INSERT NAME POINTER */ 00224000 LA @08,@CC01218 0172 00225000 ST @08,IOPTLIST+4 0172 00226000 * IOPTLIST(3)=0; /* ZERO RESERVED FIELD */ 00227000 SLR @15,@15 0173 00228000 ST @15,IOPTLIST+8 0173 00229000 * RFY 0174 00230000 * I015F BASED(ADDR(IOPTLIST(3)));/* ACCESS BYTES 1-2 */ 00231000 * I015F=LENGTH(LDMCBC); /* INSERT LENGTH */ 00232000 LA @14,4 0175 00233000 LA @07,IOPTLIST+8 0175 00234000 STH @14,I015F(,@07) 0175 00235000 * IOPTLIST(4)=ADDR(IOPTLIST(7));/* CHAIN TO NEXT INSERT */ 00236000 LA @07,IOPTLIST+24 0176 00237000 ST @07,IOPTLIST+12 0176 00238000 * IOPTLIST(5)=ADDR(LDMCBC); /* INSERT NAME POINTER */ 00239000 ST @08,IOPTLIST+16 0177 00240000 * IOPTLIST(6)=0; /* ZERO RESERVED FIELD */ 00241000 ST @15,IOPTLIST+20 0178 00242000 * RFY 0179 00243000 * I015F BASED(ADDR(IOPTLIST(6)));/* ACCESS BYTES 1-2 */ 00244000 * I015F=LENGTH(LDMCBC); /* INSERT LENGTH */ 00245000 LA @08,IOPTLIST+20 0180 00246000 STH @14,I015F(,@08) 0180 00247000 * IOPTLIST(7)=0; /* LAST INSERT */ 00248000 ST @15,IOPTLIST+24 0181 00249000 * IOPTLIST(8)=ADDR(ZZ1DSDP);/* INSERT NAME POINTER */ 00250000 LA @10,ZZ1DSDP(,@10) 0182 00251000 ST @10,IOPTLIST+28 0182 00252000 * IOPTLIST(9)=0; /* ZERO RESERVED FIELD */ 00253000 ST @15,IOPTLIST+32 0183 00254000 * RFY 0184 00255000 * I015F BASED(ADDR(IOPTLIST(9)));/* ACCESS BYTES 1-2 */ 00256000 * I015F=LENGTH(ZZ1DSDP); /* INSERT LENGTH */ 00257000 LA @10,IOPTLIST+32 0185 00258000 STH @14,I015F(,@10) 0185 00259000 * CALL BLSDMSG0(ZZ2,INVCB,ANCHOR,BLSDMSGS,'00000000'B,ADDR( 00260000 * IOPTLIST)); /* BUILD MESSAGE */ 00261000 ST R9,@AL00001 0186 00262000 LA @10,@CF01208 0186 00263000 ST @10,@AL00001+4 0186 00264000 LA @10,ANCHOR 0186 00265000 ST @10,@AL00001+8 0186 00266000 L @10,ZZ2MSGSP(,R9) 0186 00267000 ST @10,@AL00001+12 0186 00268000 LA @10,@CB01236 0186 00269000 ST @10,@AL00001+16 0186 00270000 LA @10,IOPTLIST 0186 00271000 ST @10,@AFTEMPS 0186 00272000 LA @10,@AFTEMPS 0186 00273000 ST @10,@AL00001+20 0186 00274000 L @15,ZZ2MSG0P(,R9) 0186 00275000 LA @01,@AL00001 0186 00276000 BALR @14,@15 0186 00277000 * END; /* BLSDMSG 0187 00278000 * (ZZ2,INVCB,ANCHOR,BLSDMSGS) 0187 00279000 * INSERT(LDMCBC,LDMCBC,ZZ1DSDP) */ 00280000 * DO; /* BLSDMSG 0188 00281000 * (ZZ2,HDRMSG,ANCHOR,BLSDMSGS) 00282000 * LIFO 0188 00283000 * ROUTE(TERM)INSERT(MODNAME) */ 00284000 * IOPTLIST(1)=0; /* LAST INSERT */ 00285000 SLR @10,@10 0189 00286000 ST @10,IOPTLIST 0189 00287000 * IOPTLIST(2)=ADDR(MODNAME);/* INSERT NAME POINTER */ 00288000 LA @08,MODNAME 0190 00289000 ST @08,IOPTLIST+4 0190 00290000 * IOPTLIST(3)=0; /* ZERO RESERVED FIELD */ 00291000 ST @10,IOPTLIST+8 0191 00292000 * RFY 0192 00293000 * I015F BASED(ADDR(IOPTLIST(3)));/* ACCESS BYTES 1-2 */ 00294000 * I015F=LENGTH(MODNAME); /* INSERT LENGTH */ 00295000 LA @10,IOPTLIST+8 0193 00296000 MVC I015F(2,@10),@CH00046 0193 00297000 * CALL BLSDMSG0(ZZ2,HDRMSG,ANCHOR,BLSDMSGS,'10010000'B,ADDR( 00298000 * IOPTLIST)); /* BUILD MESSAGE */ 00299000 ST R9,@AL00001 0194 00300000 LA @10,@CF01206 0194 00301000 ST @10,@AL00001+4 0194 00302000 LA @10,ANCHOR 0194 00303000 ST @10,@AL00001+8 0194 00304000 L @10,ZZ2MSGSP(,R9) 0194 00305000 ST @10,@AL00001+12 0194 00306000 LA @10,@CB01239 0194 00307000 ST @10,@AL00001+16 0194 00308000 LA @10,IOPTLIST 0194 00309000 ST @10,@AFTEMPS 0194 00310000 LA @10,@AFTEMPS 0194 00311000 ST @10,@AL00001+20 0194 00312000 L @15,ZZ2MSG0P(,R9) 0194 00313000 LA @01,@AL00001 0194 00314000 BALR @14,@15 0194 00315000 * END; /* BLSDMSG 0195 00316000 * (ZZ2,HDRMSG,ANCHOR,BLSDMSGS) 00317000 * LIFO 0195 00318000 * ROUTE(TERM)INSERT(MODNAME) */ 00319000 * DO; /* ABEND(F145C) DUMP USER */ 00320000 * RESPECIFY 0197 00321000 * (GPR01F) RESTRICTED; 0197 00322000 * GPR01F=(F145C)&'00000FFF'X;/* COMP CODE IN BITS 20-31 */ 00323000 LA GPR01F,145 0198 00324000 * GPR01F=GPR01F|'80000000'X;/* DUMP/STEP/DUMPOPTS FLAG */ 00325000 O GPR01F,@CF00059 0199 00326000 * SVC(13); /* ISSUE ABEND SVC */ 00327000 SVC 13 0200 00328000 * RESPECIFY 0201 00329000 * (GPR01F) UNRESTRICTED; 0201 00330000 * END; /* ABEND(F145C) DUMP USER INVALID 00331000 * DMCB POINTER OR DMCB */ 00332000 * END; /* INVALID DMCB OR DMCB POINTER */ 00333000 * 0203 00334000 * /*****************************************************************/ 00335000 * /* */ 00336000 * /* VERIFY THAT IF THE DATA SET IS TO BE CLOSED, THIS MODULE IS IS*/ 00337000 * /* EXECUTING UNDER THE SAME TASK THAT ACCESSED IT */ 00338000 * /* */ 00339000 * /*****************************************************************/ 00340000 * 0204 00341000 * IF DMCBOPN^=LHEX0C& /* TEST IF DATA SET IS OPEN AND */ 00342000 * DMCBTVP->ZZ2TCBP^=PSATOLD THEN/* IF TASKS DON'T MATCH */ 00343000 @RF00168 L @10,ZZ2ZZ1P(,R9) 0204 00344000 L @10,ZZ1DSDP(,@10) 0204 00345000 CLI DMCBOPN(@10),X'00' 0204 00346000 BE @RF00204 0204 00347000 L @10,DMCBTVP(,@10) 0204 00348000 CLC ZZ2TCBP(4,@10),PSATOLD 0204 00349000 BE @RF00204 0204 00350000 * DO; /* CLOSE IS REQUIRED AND TASKS 0205 00351000 * DON'T MATCH */ 00352000 * RETURN CODE(FOUR); /* ALL DONE */ 00353000 L @13,4(,@13) 0206 00354000 L @00,@SIZDATD 0206 00355000 LR @01,@11 0206 00356000 BLSUFRER R,LV=(0),A=(1) 00357000 LA @15,4 0206 00358000 L @14,12(,@13) 0206 00359000 LM @00,@12,20(@13) 0206 00360000 BR @14 0206 00361000 * END; /* CLOSE IS REQUIRED AND TASKS 0207 00362000 * DON'T MATCH */ 00363000 * 0207 00364000 * /*****************************************************************/ 00365000 * /* */ 00366000 * /* IF THE DATA SET DIRECTORY DATA SET IS OPEN, CLOSE IT */ 00367000 * /* */ 00368000 * /*****************************************************************/ 00369000 * 0208 00370000 * IF DMCBOPN^=LHEX0C THEN /* IF THE DSD IS OPEN */ 00371000 @RF00204 L @10,ZZ2ZZ1P(,R9) 0208 00372000 L @10,ZZ1DSDP(,@10) 0208 00373000 CLI DMCBOPN(@10),X'00' 0208 00374000 BE @RF00208 0208 00375000 * CALL CLOSE; /* CLOSE THE DATA SET DIRECTORY 00376000 * DATA SET */ 00377000 * 0209 00378000 BAL @14,CLOSE 0209 00379000 * /*****************************************************************/ 00380000 * /* */ 00381000 * /* IF NO PRIOR ERROR, FREE THE DATA SET DIRECTORY DATA SET */ 00382000 * /* */ 00383000 * /*****************************************************************/ 00384000 * 0210 00385000 * IF RETCODE=ZERO THEN /* TEST FOR PRIOR ERROR */ 00386000 @RF00208 L @10,RETCODE 0210 00387000 LTR @10,@10 0210 00388000 BNZ @RF00210 0210 00389000 * CALL FREE; /* OK SO FAR, DO FREE */ 00390000 BAL @14,FREE 0211 00391000 * RETURN CODE(RETCODE); 0212 00392000 @RF00210 L @10,RETCODE 0212 00393000 L @13,4(,@13) 0212 00394000 L @00,@SIZDATD 0212 00395000 LR @01,@11 0212 00396000 BLSUFRER R,LV=(0),A=(1) 00397000 LR @15,@10 0212 00398000 L @14,12(,@13) 0212 00399000 LM @00,@12,20(@13) 0212 00400000 BR @14 0212 00401000 EJECT 00402000 * 0213 00403000 * /*****************************************************************/ 00404000 * /* */ 00405000 * /* PROCEDURE TO CLOSE THE DATA SET DIRECTORY DATA SET */ 00406000 * /* */ 00407000 * /*****************************************************************/ 00408000 * 0213 00409000 *CLOSE: 0213 00410000 * PROCEDURE; 0213 00411000 CLOSE STM @14,@12,@SA00002 0213 00412000 * DO; /* BLSCLOSE(ZZ1DSDP) */ 00413000 * RFY 0215 00414000 * GPR01P RSTD; 0215 00415000 * GPR01P=ZZ1DSDP; /* ADDRESS THE DMCB */ 00416000 L @10,ZZ2ZZ1P(,R9) 0216 00417000 L GPR01P,ZZ1DSDP(,@10) 0216 00418000 * RFY 0217 00419000 * DMCB BASED(GPR01P); 0217 00420000 * IF((GPR01P&'FFFFFFF8'X)=GPR01P)&DMCBID='DMCB'/* VALID DMCB ? */ 00421000 * THEN 0218 00422000 LR @10,GPR01P 0218 00423000 N @10,@CF01258 0218 00424000 CLR @10,GPR01P 0218 00425000 BNE @RF00218 0218 00426000 CLC DMCBID(4,GPR01P),@CC01218 0218 00427000 BNE @RF00218 0218 00428000 * DO; 0219 00429000 * DMCBRQST=DMCBCLR; /* INDICATE CLOSE REQUEST */ 00430000 MVI DMCBRQST(GPR01P),X'02' 0220 00431000 * DMCBTMP='0'B; /* INDICATE NON TEMP CLOSE */ 00432000 * DMCBRM6='0'B; /* INDICATE */ 00433000 * DMCBRM5='0'B; /* DISP OPTION */ 00434000 NI DMCBTMP(GPR01P),B'00011111' 0223 00435000 * CALL DMCBRI->DMCBDMGR; /* CALL BLSCRQST */ 00436000 L @15,DMCBRI(,GPR01P) 0224 00437000 BALR @14,@15 0224 00438000 * END; 0225 00439000 * ELSE 0226 00440000 * DO; 0226 00441000 B @RC00218 0226 00442000 @RF00218 DS 0H 0227 00443000 * RFY 0227 00444000 * (GPR00F, 0227 00445000 * GPR15F) RSTD; 0227 00446000 * GPR00F=0; /* INDICATE NO MESSAGE CHAIN */ 00447000 SLR GPR00F,GPR00F 0228 00448000 * GPR15F=16; /* INDICATE INVALID DMCB */ 00449000 LA GPR15F,16 0229 00450000 * RFY 0230 00451000 * (GPR00F, 0230 00452000 * GPR15F); 0230 00453000 * END; 0231 00454000 * RFY 0232 00455000 * DMCB; 0232 00456000 @RC00218 DS 0H 0233 00457000 * RFY 0233 00458000 * GPR01P; 0233 00459000 * END; /* BLSCLOSE(ZZ1DSDP) CLOSE THE 0234 00460000 * DSD */ 00461000 * RESPECIFY 0235 00462000 * (RF) RESTRICTED; 0235 00463000 * RETCODE=RF; /* SAVE THE CLOSE RETCODE */ 00464000 ST RF,RETCODE 0236 00465000 * RESPECIFY 0237 00466000 * (RF) UNRESTRICTED; 0237 00467000 * IF RETCODE^=ZERO THEN /* TEST FOR DSD DATA SET CLOSE 0238 00468000 * ERROR */ 00469000 L @10,RETCODE 0238 00470000 LTR @10,@10 0238 00471000 BZ @RF00238 0238 00472000 * DO; /* DSD DATA SET CLOSE ERROR */ 00473000 * RETCODE=ERROR; /* PASS TO CALLER */ 00474000 MVC RETCODE(4),@CF00046 0240 00475000 * DO; /* BLSDMSG 0241 00476000 * (ZZ2,CLOSERR,DMCBMSG,BLSDMSGS) 00477000 * LIFO ROUTE(TERM) */ 00478000 * CALL BLSDMSG0(ZZ2,CLOSERR,DMCBMSG,BLSDMSGS,'10010000'B,0); 00479000 ST R9,@AL00001 0242 00480000 LA @10,@CF01210 0242 00481000 ST @10,@AL00001+4 0242 00482000 L @10,ZZ2ZZ1P(,R9) 0242 00483000 L @10,ZZ1DSDP(,@10) 0242 00484000 LA @10,DMCBMSG(,@10) 0242 00485000 ST @10,@AL00001+8 0242 00486000 L @10,ZZ2MSGSP(,R9) 0242 00487000 ST @10,@AL00001+12 0242 00488000 LA @10,@CB01239 0242 00489000 ST @10,@AL00001+16 0242 00490000 LA @10,@CF00043 0242 00491000 ST @10,@AL00001+20 0242 00492000 L @15,ZZ2MSG0P(,R9) 0242 00493000 LA @01,@AL00001 0242 00494000 BALR @14,@15 0242 00495000 * /* BUILD MESSAGE */ 00496000 * END; /* BLSDMSG 0243 00497000 * (ZZ2,CLOSERR,DMCBMSG,BLSDMSGS) 00498000 * LIFO ROUTE(TERM) */ 00499000 * END; /* DSD DATA SET CLOSE ERROR */ 00500000 * END CLOSE; 0245 00501000 @EL00002 DS 0H 0245 00502000 @EF00002 DS 0H 0245 00503000 @ER00002 LM @14,@12,@SA00002 0245 00504000 BR @14 0245 00505000 EJECT 00506000 * 0246 00507000 * /*****************************************************************/ 00508000 * /* */ 00509000 * /* PROCEDURE TO FREE THE DATA SET DIRECTORY DATA SET */ 00510000 * /* */ 00511000 * /*****************************************************************/ 00512000 * 0246 00513000 *FREE: 0246 00514000 * PROCEDURE; 0246 00515000 FREE STM @14,@12,@SA00003 0246 00516000 * DO; /* BLSFREE (ZZ1DSDP) */ 00517000 * IF(ZZ1DSDP&'FFFFFFF8'X)=ZZ1DSDP&ZZ1DSDP->DMCBID='DMCB' THEN/* 00518000 * TEST FOR VALID DMCB */ 00519000 L @10,ZZ2ZZ1P(,R9) 0248 00520000 L @08,ZZ1DSDP(,@10) 0248 00521000 LR @15,@08 0248 00522000 N @15,@CF01258 0248 00523000 CLR @15,@08 0248 00524000 BNE @RF00248 0248 00525000 CLC DMCBID(4,@08),@CC01218 0248 00526000 BNE @RF00248 0248 00527000 * DO; /* VALID DMCB */ 00528000 * CALL ZZ1DSDP->DMCBFR->DMCBDMGR(ZZ1DSDP->DMCB,ZZ1DSDP,0);/* 00529000 * CALL TO BLSCFREE */ 00530000 ST @08,@AL00001 0250 00531000 LA @10,ZZ1DSDP(,@10) 0250 00532000 ST @10,@AL00001+4 0250 00533000 LA @10,@CF00043 0250 00534000 ST @10,@AL00001+8 0250 00535000 L @15,DMCBFR(,@08) 0250 00536000 LA @01,@AL00001 0250 00537000 BALR @14,@15 0250 00538000 * END; /* VALID DMCB */ 00539000 * ELSE 0252 00540000 * DO; /* INVALID DMCB */ 00541000 B @RC00248 0252 00542000 @RF00248 DS 0H 0253 00543000 * RFY 0253 00544000 * (GPR00F, 0253 00545000 * GPR15F) RSTD; 0253 00546000 * GPR00F=0; /* INDICATE NO MESSAGE CHAIN */ 00547000 SLR GPR00F,GPR00F 0254 00548000 * GPR15F=16; /* INVALID DMCB */ 00549000 LA GPR15F,16 0255 00550000 * RFY 0256 00551000 * (GPR00F, 0256 00552000 * GPR15F) UNRSTD; 0256 00553000 * END; /* INVALID DMCB */ 00554000 * END; /* BLSFREE (ZZ1DSDP) FREE THE DSD*/ 00555000 @RC00248 DS 0H 0259 00556000 * RESPECIFY 0259 00557000 * (R0, 0259 00558000 * RF) RESTRICTED; 0259 00559000 * ANCHOR=R0; /* SAVE MESSAGE CHAIN IF PRESENT */ 00560000 ST R0,ANCHOR 0260 00561000 * RETCODE=RF; /* SAVE THE FREE RETCODE */ 00562000 ST RF,RETCODE 0261 00563000 * RESPECIFY 0262 00564000 * (R0, 0262 00565000 * RF) UNRESTRICTED; 0262 00566000 * IF RETCODE^=0 THEN /* TEST FOR DSD DATA SET FREE 0263 00567000 * ERROR */ 00568000 L @10,RETCODE 0263 00569000 SLR @08,@08 0263 00570000 CR @10,@08 0263 00571000 BE @RF00263 0263 00572000 * DO; /* DSD DATA SET FREE ERROR */ 00573000 * RETCODE=ERROR; /* PASS TO CALLER */ 00574000 MVC RETCODE(4),@CF00046 0265 00575000 * IF ZZ1DSDP^=ZZZNULL& /* IF STILL ALLOCATED */ 00576000 * ZZ1DSDP^=ZERO THEN 0266 00577000 L @10,ZZ2ZZ1P(,R9) 0266 00578000 L @10,ZZ1DSDP(,@10) 0266 00579000 CL @10,@CF00059 0266 00580000 BE @RF00266 0266 00581000 CLR @10,@08 0266 00582000 BE @RF00266 0266 00583000 * DMCBMSG=ZERO; /* ZERO THE DMCB MESSAGE POINTER */ 00584000 ST @08,DMCBMSG(,@10) 0267 00585000 * DO; /* BLSDMSG 0268 00586000 * (ZZ2,FREEERR,ANCHOR,BLSDMSGS) 00587000 * LIFO ROUTE(TERM) */ 00588000 @RF00266 DS 0H 0269 00589000 * CALL BLSDMSG0(ZZ2,FREEERR,ANCHOR,BLSDMSGS,'10010000'B,0);/* 00590000 * BUILD MESSAGE */ 00591000 ST R9,@AL00001 0269 00592000 LA @10,@CF01212 0269 00593000 ST @10,@AL00001+4 0269 00594000 LA @10,ANCHOR 0269 00595000 ST @10,@AL00001+8 0269 00596000 L @10,ZZ2MSGSP(,R9) 0269 00597000 ST @10,@AL00001+12 0269 00598000 LA @10,@CB01239 0269 00599000 ST @10,@AL00001+16 0269 00600000 LA @10,@CF00043 0269 00601000 ST @10,@AL00001+20 0269 00602000 L @15,ZZ2MSG0P(,R9) 0269 00603000 LA @01,@AL00001 0269 00604000 BALR @14,@15 0269 00605000 * END; /* BLSDMSG 0270 00606000 * (ZZ2,FREEERR,ANCHOR,BLSDMSGS) 00607000 * LIFO ROUTE(TERM) */ 00608000 * END; /* DSD DATA SET FREE ERROR */ 00609000 * ELSE 0272 00610000 * ZZ1DSDP=ZZZNULL; /* FREE OK, NULL THE DMCB POINTER*/ 00611000 B @RC00263 0272 00612000 @RF00263 L @10,ZZ2ZZ1P(,R9) 0272 00613000 MVC ZZ1DSDP(4,@10),@CF00059 0272 00614000 * END FREE; 0273 00615000 @EL00003 DS 0H 0273 00616000 @EF00003 DS 0H 0273 00617000 @ER00003 LM @14,@12,@SA00003 0273 00618000 BR @14 0273 00619000 EJECT 00620000 * 0274 00621000 * /*****************************************************************/ 00622000 * /* */ 00623000 * /* PROCEDURE STATEMENTS END */ 00624000 * /* */ 00625000 * /*****************************************************************/ 00626000 * 0274 00627000 */*BLSUPEND--MVS IPCS MODULE */ 00628000 * 0274 00629000 * DECLARE /* GENERAL PURPOSE REGISTERS */ 00630000 * GPR00F FIXED(31) REG(0), 0274 00631000 * GPR01F FIXED(31) REG(1), 0274 00632000 * GPR15F FIXED(31) REG(15), 0274 00633000 * GPR01P PTR(31) REG(1); 0274 00634000 * DECLARE /* COMMON VARIABLES */ 00635000 * I256C CHAR(256) BASED, 0275 00636000 * I031F FIXED(31) BASED, 0275 00637000 * I031P PTR(31) BASED, 0275 00638000 * I015F FIXED(15) BASED, 0275 00639000 * I015P PTR(15) BASED, 0275 00640000 * I008P PTR(8) BASED, 0275 00641000 * I001C CHAR(1) BASED; 0275 00642000 * DECLARE 0276 00643000 * IOPTLIST(9) PTR(31) BDY(WORD);/* OPTION LIST ARRAY */ 00644000 * GENERATE NODEFS NOREFS DATA; 0277 00645000 * END /* BLRPEND */ 00646000 * 0278 00647000 */* THE FOLLOWING INCLUDE STATEMENTS WERE FOUND IN THIS PROGRAM. */ 00648000 */*%INCLUDE SYSLIB (BLSUZZZ ) */ 00649000 */*%INCLUDE SYSLIB (BLRFULL ) */ 00650000 */*%INCLUDE SYSLIB (IKJCPPL ) */ 00651000 */*%INCLUDE SYSLIB (IKJPSCB ) */ 00652000 */*%INCLUDE SYSLIB (IKJECT ) */ 00653000 */*%INCLUDE SYSLIB (IKJUPT ) */ 00654000 */*%INCLUDE SYSLIB (BLSUSERV) */ 00655000 */*%INCLUDE SYSLIB (BLRSERV ) */ 00656000 */*%INCLUDE SYSLIB (BLRSERVD) */ 00657000 */*%INCLUDE SYSLIB (BLSDSERV) */ 00658000 */*%INCLUDE SYSLIB (IHAPSA ) */ 00659000 * 0278 00660000 * ; 0278 00661000 @EL00001 L @13,4(,@13) 0278 00662000 @EF00001 L @00,@SIZDATD 0278 00663000 LR @01,@11 0278 00664000 BLSUFRER R,LV=(0),A=(1) 00665000 @ER00001 LM @14,@12,12(@13) 0278 00666000 BR @14 0278 00667000 @DATA DS 0H 00668000 @DATD DSECT 00669000 DS 0F 00670000 @SA00001 DS 18F 00671000 @SA00002 DS 15F 00672000 @SA00003 DS 15F 00673000 @AL00001 DS 6A 00674000 @AFTEMPS DS 1F 00675000 BLSDFDSD CSECT 00676000 DS 0F 00677000 @CF00043 DC F'0' 00678000 @CF00046 DC F'8' 00679000 @CH00046 EQU @CF00046+2 00680000 @CF01210 DC F'4055' 00681000 @CF01212 DC F'4056' 00682000 @CF01206 DC F'4071' 00683000 @CF01208 DC F'4072' 00684000 @CF00059 DC XL4'80000000' 00685000 @CF01258 DC XL4'FFFFFFF8' 00686000 @DATD DSECT 00687000 DS 0D 00688000 ANCHOR DS A 00689000 MODSTAT DS CL12 00690000 ORG MODSTAT 00691000 MODNAME DS CL8 00692000 RETCODE DS FL4 00693000 ORG MODSTAT+12 00694000 CHSTR8 DS CL8 00695000 ORG CHSTR8 00696000 @NM00093 DS CL3 00697000 CHSTR847 DS CL4 00698000 ORG CHSTR847 00699000 CHSTR846 DS CL3 00700000 CHSTR87 DS CL1 00701000 ORG CHSTR8+7 00702000 CHSTR88 DS CL1 00703000 ORG CHSTR8+8 00704000 CTEMP DS CL9 00705000 ORG CTEMP 00706000 CTEMP18 DS CL8 00707000 ORG CTEMP18 00708000 CTEMP14 DS CL4 00709000 CTEMP58 DS CL4 00710000 ORG CTEMP58 00711000 CTEMP56 DS CL2 00712000 CTEMP78 DS CL2 00713000 ORG CTEMP+9 00714000 DS CL3 00715000 IOPTLIST DS 9A 00716000 BLSDFDSD CSECT 00717000 DS 0F 00718000 @SIZDATD DC AL1(0) 00719000 DC AL3(@ENDDATD-@DATD) 00720000 DS 0D 00721000 @CC01222 DC C'BLSDFDSD' 00722000 @CC00036 DC C'IPCS' 00723000 @CC01218 DC C'DMCB' 00724000 @CC01220 DC C'ZZ1' 00725000 @CB01236 DC B'00000000' 00726000 @CB01239 DC B'10010000' 00727000 @DATD DSECT 00728000 SPACE 2 00729000 *********************************************************************** 00730000 * THE FOLLOWING AREA, BLRPATCH, IS RESERVED FOR PATCH APPLICATION * 00731000 * TO OBTAIN PATCH ROOM IN THE @DATD AUTOMATIC STORAGE AREA, MODIFY * 00732000 * CONSTANT @SIZDATD TO REFLECT THE DESIRED @DATD SIZE * 00733000 *********************************************************************** 00734000 SPACE 00735000 BLSDFDSD CSECT 00736000 ORG 00737000 DS 0D 00738000 BLRPATCH DC CL8'ZAPAREA',(((*-BLSDFDSD+19)/20+7)/8)CL8'BLSDFDSD' 00739000 BLSDFDSD CSECT 00740000 * /* 00741000 HEXTBL EQU *-240 00742000 DC CL16'0123456789ABCDEF' 00743000 @DATD DSECT 00744000 SPACE 2 00745000 *********************************************************************** 00746000 * ALIGN END OF DATA ON A DOUBLEWORD BOUNDARY * 00747000 *********************************************************************** 00748000 SPACE 00749000 DS 0D 00750000 @DATD DSECT 00751000 ORG *+1-(*-@DATD)/(*-@DATD) INSURE DSECT DATA 00752000 @ENDDATD EQU * 00753000 BLSDFDSD CSECT 00754000 @00 EQU 00 EQUATES FOR REGISTERS 0-15 00755000 @01 EQU 01 00756000 @02 EQU 02 00757000 @03 EQU 03 00758000 @04 EQU 04 00759000 @05 EQU 05 00760000 @06 EQU 06 00761000 @07 EQU 07 00762000 @08 EQU 08 00763000 @09 EQU 09 00764000 @10 EQU 10 00765000 @11 EQU 11 00766000 @12 EQU 12 00767000 @13 EQU 13 00768000 @14 EQU 14 00769000 @15 EQU 15 00770000 R9 EQU @09 00771000 R0 EQU @00 00772000 R1 EQU @01 00773000 R2 EQU @02 00774000 R3 EQU @03 00775000 R4 EQU @04 00776000 R5 EQU @05 00777000 RB EQU @11 00778000 RD EQU @13 00779000 RE EQU @14 00780000 RF EQU @15 00781000 GPR01F EQU @01 00782000 GPR01P EQU @01 00783000 GPR00F EQU @00 00784000 GPR15F EQU @15 00785000 RA EQU @10 00786000 RC EQU @12 00787000 R6 EQU @06 00788000 R7 EQU @07 00789000 R8 EQU @08 00790000 PSA EQU 0 00791000 FLCRNPSW EQU PSA 00792000 FLCROPSW EQU PSA+8 00793000 FLCICCW2 EQU PSA+16 00794000 PSAEEPSW EQU PSA+132 00795000 PSAESPSW EQU PSA+136 00796000 FLCSVILC EQU PSAESPSW+1 00797000 PSAEPPSW EQU PSA+140 00798000 FLCPIILC EQU PSAEPPSW+1 00799000 FLCPICOD EQU PSAEPPSW+2 00800000 PSAPICOD EQU FLCPICOD+1 00801000 FLCTEA EQU PSAEPPSW+4 00802000 FLCPER EQU PSA+152 00803000 FLCMCLA EQU PSA+168 00804000 FLCIOEL EQU FLCMCLA+4 00805000 FLCIOA EQU FLCMCLA+16 00806000 FLCFSA EQU FLCMCLA+80 00807000 PSATOLD EQU PSA+540 00808000 PSASUPER EQU PSA+552 00809000 PSASUP1 EQU PSASUPER 00810000 PSASUP2 EQU PSASUPER+1 00811000 PSASUP3 EQU PSASUPER+2 00812000 PSASUP4 EQU PSASUPER+3 00813000 PSACLHT EQU PSA+640 00814000 PSALKSA EQU PSA+696 00815000 PSAHLHI EQU PSA+760 00816000 PSADSSFL EQU PSA+836 00817000 PSADSSF1 EQU PSADSSFL 00818000 PSADSSF3 EQU PSADSSFL+2 00819000 PSADSSF4 EQU PSADSSFL+3 00820000 PSARSVT EQU PSA+896 00821000 ZZ1 EQU 0 00822000 ZZ1IDE EQU ZZ1 00823000 ZZ1DSDP EQU ZZ1+44 00824000 ZZ1ATTN EQU ZZ1+360 00825000 ZZ1EVE EQU ZZ1ATTN+4 00826000 ZZ1F EQU ZZ1+368 00827000 ZZ1N EQU ZZ1+1116 00828000 ZZ2 EQU 0 00829000 ZZ2AMD EQU ZZ2 00830000 @NM00013 EQU ZZ2AMD+7 00831000 ZZ2PRT EQU ZZ2+138 00832000 ZZ2PRTT EQU ZZ2PRT+4 00833000 ZZ2PRTT1 EQU ZZ2PRTT+1 00834000 ZZ2A EQU ZZ2+272 00835000 ZZ2AF EQU ZZ2A+16 00836000 ZZ2APID EQU ZZ2A+64 00837000 ZZ2AD EQU ZZ2A+74 00838000 ZZ2ADD EQU ZZ2AD 00839000 ZZ2ADDT EQU ZZ2ADD+2 00840000 ZZ2ADM EQU ZZ2AD+46 00841000 ZZ2ADMT EQU ZZ2ADM+2 00842000 ZZ2ADP EQU ZZ2AD+56 00843000 ZZ2ADPT EQU ZZ2ADP+2 00844000 ZZ2AQAS EQU ZZ2A+144 00845000 ZZ2AQD EQU ZZ2A+160 00846000 ZZ2AQDT EQU ZZ2AQD+10 00847000 ZZ2AQDF EQU ZZ2AQD+52 00848000 ZZ2STG EQU ZZ2+960 00849000 ZZ2ALLOP EQU ZZ2+992 00850000 ZZ2FREEP EQU ZZ2+996 00851000 ZZ2FF19P EQU ZZ2+1000 00852000 ZZ2FRE1P EQU ZZ2+1004 00853000 ZZ2FF18P EQU ZZ2+1008 00854000 ZZ2DYNAP EQU ZZ2+1012 00855000 ZZ2ZZ2CP EQU ZZ2+1016 00856000 ZZ2ZZ2DP EQU ZZ2+1020 00857000 ZZ2STAIP EQU ZZ2+1024 00858000 ZZ2FF02P EQU ZZ2+1028 00859000 ZZ2GETLP EQU ZZ2+1032 00860000 ZZ2PARSP EQU ZZ2+1036 00861000 ZZ2PTGTP EQU ZZ2+1040 00862000 ZZ2PUTLP EQU ZZ2+1044 00863000 ZZ2SCANP EQU ZZ2+1048 00864000 ZZ2STCKP EQU ZZ2+1052 00865000 ZZ2ALOCP EQU ZZ2+1056 00866000 ZZ2MSGSP EQU ZZ2+1060 00867000 ZZ2TRMOP EQU ZZ2+1064 00868000 ZZ2TRMVP EQU ZZ2+1068 00869000 ZZ2MSG0P EQU ZZ2+1076 00870000 ZZ2PUTNP EQU ZZ2+1084 00871000 ZZ2TRMNP EQU ZZ2+1088 00872000 ZZ2ENQ0P EQU ZZ2+1092 00873000 ZZ2ADSDP EQU ZZ2+1096 00874000 ZZ2APDRP EQU ZZ2+1100 00875000 ZZ2FPDRP EQU ZZ2+1108 00876000 ZZ2TCBP EQU ZZ2+1256 00877000 ZZ2ZZ1P EQU ZZ2+1264 00878000 ZZ2DVTP EQU ZZ2+1276 00879000 ZZ2BVTP EQU ZZ2+1280 00880000 ZZ2CPPL EQU ZZ2+1292 00881000 ZZ2CPPLC EQU ZZ2CPPL 00882000 ZZ2ITR EQU ZZ2+2840 00883000 ZZ2ITRE EQU ZZ2ITR+16 00884000 ZZ2ITSE EQU ZZ2+2864 00885000 ZZ2ES EQU ZZ2+2872 00886000 ZZ2AMDX EQU ZZ2+7160 00887000 ZZ2AXO EQU ZZ2+7934 00888000 ZZ2AXOT EQU ZZ2AXO+2 00889000 CMD EQU 0 00890000 CMDT EQU CMD+4 00891000 PSCB EQU 0 00892000 PSCBATR1 EQU PSCB+16 00893000 ECT EQU 0 00894000 ECTSWS EQU ECT+28 00895000 ECTSWS2 EQU ECT+40 00896000 ECTSWS21 EQU ECTSWS2 00897000 UPT EQU 0 00898000 UPTSWS EQU UPT+12 00899000 SA EQU 0 00900000 SA1 EQU SA 00901000 SAR EQU SA+12 00902000 SAR1 EQU SAR+12 00903000 BVT EQU 0 00904000 BVTPUTLP EQU BVT+4 00905000 BVTPUTOP EQU BVT+12 00906000 BVTPUTTP EQU BVT+16 00907000 BVTPUTVP EQU BVT+20 00908000 BVTPUTAP EQU BVT+24 00909000 BVTPRTTP EQU BVT+28 00910000 BVTPRTAP EQU BVT+32 00911000 BVTPUTDP EQU BVT+36 00912000 BVTMONP EQU BVT+40 00913000 BVTMON2P EQU BVT+44 00914000 BVTVSARP EQU BVT+48 00915000 BVTVSENP EQU BVT+64 00916000 BVTVSERP EQU BVT+68 00917000 BVTVSGEP EQU BVT+72 00918000 BVTVSGUP EQU BVT+76 00919000 BVTVSPOP EQU BVT+80 00920000 BVTVSPUP EQU BVT+84 00921000 BVTMPKNP EQU BVT+104 00922000 BVTMONLP EQU BVT+108 00923000 BVTPUTCP EQU BVT+132 00924000 BVTMPK1P EQU BVT+136 00925000 BVTZZ2RP EQU BVT+140 00926000 BVTPGMRP EQU BVT+144 00927000 BVTMONAP EQU BVT+148 00928000 BVTBLDDP EQU BVT+152 00929000 BVTBLDLP EQU BVT+156 00930000 BVTPGMCP EQU BVT+160 00931000 BVTPGMDP EQU BVT+164 00932000 BVTPGMLP EQU BVT+168 00933000 BVTMONCP EQU BVT+180 00934000 BVTMONDP EQU BVT+184 00935000 BVTMONTP EQU BVT+188 00936000 BVTPARIP EQU BVT+192 00937000 BVTPARUP EQU BVT+196 00938000 BVTPRTNP EQU BVT+204 00939000 BVTVSCRP EQU BVT+208 00940000 BVTVSMRP EQU BVT+212 00941000 BVTMONXP EQU BVT+216 00942000 BVTTRMAP EQU BVT+228 00943000 BLSDMSGS EQU 0 00944000 BLSDMSG0 EQU 0 00945000 DVT EQU 0 00946000 DVTDEQPP EQU DVT+8 00947000 DVTENQPP EQU DVT+12 00948000 DVTAUTHP EQU DVT+20 00949000 DVTLPCLP EQU DVT+24 00950000 DVTBP00P EQU DVT+28 00951000 DVTCN00P EQU DVT+32 00952000 DVTDF00P EQU DVT+36 00953000 DVTDS00P EQU DVT+44 00954000 DVTFL00P EQU DVT+48 00955000 DVTFP00P EQU DVT+52 00956000 DVTGD00P EQU DVT+56 00957000 DVTGG00P EQU DVT+60 00958000 DVTGP00P EQU DVT+64 00959000 DVTND00P EQU DVT+68 00960000 DVTND01P EQU DVT+72 00961000 DVTOD00P EQU DVT+76 00962000 DVTPS00P EQU DVT+80 00963000 DVTSD00P EQU DVT+84 00964000 DVTSL00P EQU DVT+88 00965000 DVTTL00P EQU DVT+92 00966000 DVTUD00P EQU DVT+96 00967000 DVTUP00P EQU DVT+100 00968000 DVTLP00P EQU DVT+104 00969000 DVTLALLP EQU DVT+108 00970000 DVTLPFMP EQU DVT+112 00971000 DVTCLOSP EQU DVT+116 00972000 DVTOPENP EQU DVT+120 00973000 DVTPERAP EQU DVT+124 00974000 DVTDALLP EQU DVT+128 00975000 DMCB EQU 0 00976000 DMCBID EQU DMCB 00977000 DMCBTVP EQU DMCB+8 00978000 DMCBFTY EQU DMCB+20 00979000 DMCBOPN EQU DMCB+21 00980000 DMCBRQST EQU DMCB+22 00981000 DMCBRMOD EQU DMCB+23 00982000 DMCBOUT EQU DMCBRMOD 00983000 DMCBTMP EQU DMCBOUT 00984000 DMCBRM6 EQU DMCBRMOD 00985000 DMCBRM5 EQU DMCBRMOD 00986000 DMCBOPTS EQU DMCB+24 00987000 DMCBGKY EQU DMCBOPTS 00988000 DMCBMFLG EQU DMCB+28 00989000 DMCBBUFP EQU DMCB+32 00990000 DMCBKEYP EQU DMCB+44 00991000 DMCBMSG EQU DMCB+52 00992000 DMCBRI EQU DMCB+64 00993000 DMCBACBE EQU DMCB+124 00994000 DMCBSPEC EQU DMCB+380 00995000 DMCBFR EQU DMCB+412 00996000 DMCBAMS EQU DMCB+416 00997000 DMCBAUDT EQU DMCB+568 00998000 DMCBLSCP EQU DMCBAUDT+16 00999000 DMCBDMGR EQU 0 01000000 I015F EQU 0 01001000 BLSCALOC EQU 0 01002000 BLSDADSD EQU 0 01003000 BLSDAPDR EQU 0 01004000 BLSDDEQP EQU 0 01005000 BLSDENQP EQU 0 01006000 BLSDENQ0 EQU 0 01007000 BLSDFPDR EQU 0 01008000 BLSEAUTH EQU 0 01009000 BLSELPCL EQU 0 01010000 BLSELPFM EQU 0 01011000 BLSFBP00 EQU 0 01012000 BLSFCLOS EQU 0 01013000 BLSFCN00 EQU 0 01014000 BLSFDALL EQU 0 01015000 BLSFDF00 EQU 0 01016000 BLSFDS00 EQU 0 01017000 BLSFFL00 EQU 0 01018000 BLSFFP00 EQU 0 01019000 BLSFGD00 EQU 0 01020000 BLSFGG00 EQU 0 01021000 BLSFGP00 EQU 0 01022000 BLSFLALL EQU 0 01023000 BLSFLP00 EQU 0 01024000 BLSFND00 EQU 0 01025000 BLSFND01 EQU 0 01026000 BLSFOD00 EQU 0 01027000 BLSFOPEN EQU 0 01028000 BLSFPERA EQU 0 01029000 BLSFPS00 EQU 0 01030000 BLSFSD00 EQU 0 01031000 BLSFSL00 EQU 0 01032000 BLSFTL00 EQU 0 01033000 BLSFUD00 EQU 0 01034000 BLSFUP00 EQU 0 01035000 BLSUALLO EQU 0 01036000 BLSUBLDD EQU 0 01037000 BLSUBLDL EQU 0 01038000 BLSUDYNA EQU 0 01039000 BLSUFREE EQU 0 01040000 BLSUFRE1 EQU 0 01041000 BLSUMON EQU 0 01042000 BLSUMONA EQU 0 01043000 BLSUMONC EQU 0 01044000 BLSUMOND EQU 0 01045000 BLSUMONL EQU 0 01046000 BLSUMONT EQU 0 01047000 BLSUMONX EQU 0 01048000 BLSUMON2 EQU 0 01049000 BLSUMPKN EQU 0 01050000 BLSUMPK1 EQU 0 01051000 BLSUPARI EQU 0 01052000 BLSUPARU EQU 0 01053000 BLSUPGMC EQU 0 01054000 BLSUPGMD EQU 0 01055000 BLSUPGML EQU 0 01056000 BLSUPGMR EQU 0 01057000 BLSUPRTA EQU 0 01058000 BLSUPRTN EQU 0 01059000 BLSUPRTT EQU 0 01060000 BLSUPUTA EQU 0 01061000 BLSUPUTC EQU 0 01062000 BLSUPUTD EQU 0 01063000 BLSUPUTL EQU 0 01064000 BLSUPUTN EQU 0 01065000 BLSUPUTO EQU 0 01066000 BLSUPUTT EQU 0 01067000 BLSUPUTV EQU 0 01068000 BLSUSTAI EQU 0 01069000 BLSUTRMA EQU 0 01070000 BLSUTRMN EQU 0 01071000 BLSUTRMO EQU 0 01072000 BLSUTRMV EQU 0 01073000 BLSUVSAR EQU 0 01074000 BLSUVSCR EQU 0 01075000 BLSUVSEN EQU 0 01076000 BLSUVSER EQU 0 01077000 BLSUVSGE EQU 0 01078000 BLSUVSGU EQU 0 01079000 BLSUVSMR EQU 0 01080000 BLSUVSPO EQU 0 01081000 BLSUVSPU EQU 0 01082000 BLSUZZ2C EQU 0 01083000 BLSUZZ2D EQU 0 01084000 BLSUZZ2R EQU 0 01085000 DMCBRQC EQU 0 01086000 IKJEFF02 EQU 0 01087000 IKJEFF18 EQU 0 01088000 IKJEFF19 EQU 0 01089000 IKJGETL EQU 0 01090000 IKJPARS EQU 0 01091000 IKJPTGT EQU 0 01092000 IKJPUTL EQU 0 01093000 IKJSCAN EQU 0 01094000 IKJSTCK EQU 0 01095000 I001C EQU 0 01096000 I008P EQU 0 01097000 I015P EQU 0 01098000 I031F EQU 0 01099000 I031P EQU 0 01100000 I256C EQU 0 01101000 CPPL EQU ZZ2CPPL 01102000 CPPLUPT EQU CPPL+4 01103000 CPPLPSCB EQU CPPL+8 01104000 CPPLECT EQU CPPL+12 01105000 PSARSVTE EQU PSARSVT 01106000 DMCBVSM EQU DMCBAMS 01107000 DMCBQSM EQU DMCBAMS 01108000 FLC EQU PSA 01109000 AGO .@UNREFD START UNREFERENCED COMPONENTS 01110000 DMCBRES7 EQU DMCBQSM+96 01111000 DMCBDCB EQU DMCBQSM 01112000 DMCBACB EQU DMCBVSM+76 01113000 DMCBRPL EQU DMCBVSM 01114000 PSARSAV EQU PSARSVTE+60 01115000 PSARSTK EQU PSARSVTE+56 01116000 PSAESAV3 EQU PSARSVTE+52 01117000 PSAESTK3 EQU PSARSVTE+48 01118000 PSAESAV2 EQU PSARSVTE+44 01119000 PSAESTK2 EQU PSARSVTE+40 01120000 PSAESAV1 EQU PSARSVTE+36 01121000 PSAESTK1 EQU PSARSVTE+32 01122000 PSAPSAV EQU PSARSVTE+28 01123000 PSAPSTK EQU PSARSVTE+24 01124000 PSAMSAV EQU PSARSVTE+20 01125000 PSAMSTK EQU PSARSVTE+16 01126000 PSASSAV EQU PSARSVTE+12 01127000 PSASSTK EQU PSARSVTE+8 01128000 PSANSTK EQU PSARSVTE+4 01129000 PSACSTK EQU PSARSVTE 01130000 CPPLCBUF EQU CPPL 01131000 DMCBWRK EQU DMCB+648 01132000 DMCBRES8 EQU DMCB+640 01133000 DMCBMODN EQU DMCB+632 01134000 DMCBCARY EQU DMCBAUDT+20 01135000 DMCBCLC EQU DMCBAUDT+12 01136000 DMCBOPC EQU DMCBAUDT+8 01137000 DMCBFRC EQU DMCBAUDT+4 01138000 DMCBALC EQU DMCBAUDT 01139000 DMCBRES6 EQU DMCB+410 01140000 DMCBIRSC EQU DMCB+408 01141000 DMCBSUBC EQU DMCB+404 01142000 DMCBDRBP EQU DMCB+400 01143000 DMCBRSZM EQU DMCB+398 01144000 DMCBRSZA EQU DMCB+396 01145000 DMCBCISZ EQU DMCB+394 01146000 DMCBDCBL EQU DMCB+392 01147000 DMCBDCLR EQU DMCB+390 01148000 DMCBDCFM EQU DMCB+389 01149000 DMCBRES5 EQU DMCB+388 01150000 DMCBLBRT EQU DMCB+386 01151000 DMCBLBSQ EQU DMCB+384 01152000 DMCBLBPS EQU DMCB+383 01153000 DMCBLBTY EQU DMCB+382 01154000 DMCBRES4 EQU DMCB+381 01155000 DMCBSPRS EQU DMCBSPEC 01156000 DMCBSPRN EQU DMCBSPEC 01157000 DMCBSPCT EQU DMCBSPEC 01158000 DMCBSPRL EQU DMCBSPEC 01159000 DMCBSPSE EQU DMCB+376 01160000 DMCBSPPR EQU DMCB+372 01161000 DMCBSPTY EQU DMCB+369 01162000 DMCBODIS EQU DMCB+368 01163000 DMCBDISP EQU DMCB+367 01164000 DMCBSTAT EQU DMCB+366 01165000 DMCBRES3 EQU DMCB+364 01166000 DMCBMEMB EQU DMCB+356 01167000 DMCBMODL EQU DMCB+348 01168000 DMCBRES9 EQU DMCB+340 01169000 DMCBPID EQU DMCB+332 01170000 DMCBTYPE EQU DMCB+328 01171000 DMCBDSN EQU DMCB+284 01172000 DMCBUNIT EQU DMCB+276 01173000 DMCBDSOR EQU DMCB+274 01174000 DMCBVOL EQU DMCB+268 01175000 DMCBDDNM EQU DMCB+260 01176000 DMCBSYNM EQU DMCB+132 01177000 DMCBRPLF EQU DMCB+128 01178000 DMCBDCBE EQU DMCBACBE 01179000 DMCBARC EQU DMCB+120 01180000 DMCBCPC EQU DMCB+116 01181000 DMCBRET EQU DMCB+112 01182000 DMCBSTL EQU DMCB+96 01183000 DMCBEOB EQU DMCB+92 01184000 DMCBFRE EQU DMCB+88 01185000 DMCBRES2 EQU DMCB+85 01186000 DMCBSPID EQU DMCB+84 01187000 DMCBRESC EQU DMCB+80 01188000 DMCBZZ1P EQU DMCB+76 01189000 DMCBMSGS EQU DMCB+72 01190000 DMCBMSG0 EQU DMCB+68 01191000 DMCBRRL EQU DMCB+60 01192000 DMCBRBA EQU DMCB+56 01193000 DMCBKEYL EQU DMCB+48 01194000 DMCBKPC EQU DMCBKEYP 01195000 DMCBORL EQU DMCB+40 01196000 DMCBBLEN EQU DMCB+36 01197000 DMCBBFPC EQU DMCBBUFP 01198000 DMCBRES1 EQU DMCB+31 01199000 DMCBACCM EQU DMCB+30 01200000 DMCBREJ EQU DMCB+29 01201000 DMCBRESB EQU DMCBMFLG 01202000 DMCBFMOD EQU DMCBMFLG 01203000 DMCBLOPT EQU DMCB+27 01204000 DMCBLRM EQU DMCB+26 01205000 DMCBLRQ EQU DMCB+25 01206000 DMCBOPRS EQU DMCBOPTS 01207000 DMCBLRD EQU DMCBOPTS 01208000 DMCBBWD EQU DMCBOPTS 01209000 DMCBUPD EQU DMCBOPTS 01210000 DMCBAPX EQU DMCBOPTS 01211000 DMCBRNO EQU DMCBGKY 01212000 DMCBKYD EQU DMCBOPTS 01213000 DMCBRMRS EQU DMCBRMOD 01214000 DMCBRESA EQU DMCBOPN 01215000 DMCBSOUT EQU DMCBOPN 01216000 DMCBSIN EQU DMCBOPN 01217000 DMCBVSF EQU DMCBFTY 01218000 DMCBKSF EQU DMCBFTY 01219000 DMCBFTRS EQU DMCBFTY 01220000 DMCBSHF EQU DMCBFTY 01221000 DMCBIRL EQU DMCB+16 01222000 DMCBRTC EQU DMCB+12 01223000 DMCBNEXT EQU DMCB+4 01224000 DVT99999 EQU DVT+256 01225000 DVT0064P EQU DVT+252 01226000 DVT0063P EQU DVT+248 01227000 DVT0062P EQU DVT+244 01228000 DVT0061P EQU DVT+240 01229000 DVT0060P EQU DVT+236 01230000 DVT0059P EQU DVT+232 01231000 DVT0058P EQU DVT+228 01232000 DVT0057P EQU DVT+224 01233000 DVT0056P EQU DVT+220 01234000 DVT0055P EQU DVT+216 01235000 DVT0054P EQU DVT+212 01236000 DVT0053P EQU DVT+208 01237000 DVT0052P EQU DVT+204 01238000 DVT0051P EQU DVT+200 01239000 DVT0050P EQU DVT+196 01240000 DVT0049P EQU DVT+192 01241000 DVT0048P EQU DVT+188 01242000 DVT0047P EQU DVT+184 01243000 DVT0046P EQU DVT+180 01244000 DVT0045P EQU DVT+176 01245000 DVT0044P EQU DVT+172 01246000 DVT0043P EQU DVT+168 01247000 DVT0042P EQU DVT+164 01248000 DVT0041P EQU DVT+160 01249000 DVT0040P EQU DVT+156 01250000 DVT0039P EQU DVT+152 01251000 DVT0038P EQU DVT+148 01252000 DVT0037P EQU DVT+144 01253000 DVT0036P EQU DVT+140 01254000 DVT0035P EQU DVT+136 01255000 DVT0034P EQU DVT+132 01256000 DVT0011P EQU DVT+40 01257000 DVT0005P EQU DVT+16 01258000 DVT0002P EQU DVT+4 01259000 DVT0001P EQU DVT 01260000 BVT99999 EQU BVT+256 01261000 BVT0064P EQU BVT+252 01262000 BVT0063P EQU BVT+248 01263000 BVT0062P EQU BVT+244 01264000 BVT0061P EQU BVT+240 01265000 BVT0060P EQU BVT+236 01266000 BVT0059P EQU BVT+232 01267000 BVT0057P EQU BVT+224 01268000 BVT0056P EQU BVT+220 01269000 BVTSTBLP EQU BVT+200 01270000 BVT0045P EQU BVT+176 01271000 BVT0044P EQU BVT+172 01272000 BVT0033P EQU BVT+128 01273000 BVT0032P EQU BVT+124 01274000 BVT0031P EQU BVT+120 01275000 BVT0030P EQU BVT+116 01276000 BVT0029P EQU BVT+112 01277000 BVT0026P EQU BVT+100 01278000 BVT0025P EQU BVT+96 01279000 BVT0024P EQU BVT+92 01280000 BVT0023P EQU BVT+88 01281000 BVT0016P EQU BVT+60 01282000 BVT0015P EQU BVT+56 01283000 BVT0014P EQU BVT+52 01284000 BVT0003P EQU BVT+8 01285000 BVT0001P EQU BVT 01286000 SA99 EQU SA+72 01287000 SARC EQU SAR+56 01288000 SARB EQU SAR+52 01289000 SARA EQU SAR+48 01290000 SAR9 EQU SAR+44 01291000 SAR8 EQU SAR+40 01292000 SAR7 EQU SAR+36 01293000 SAR6 EQU SAR+32 01294000 SAR5 EQU SAR+28 01295000 SAR4 EQU SAR+24 01296000 SAR3 EQU SAR+20 01297000 SAR2 EQU SAR+16 01298000 SAR0 EQU SAR+8 01299000 SARF EQU SAR+4 01300000 SARE EQU SAR 01301000 SAFWD EQU SA+8 01302000 SABAK EQU SA+4 01303000 SA1L EQU SA1+1 01304000 SA1P EQU SA1 01305000 UPTPREFL EQU UPT+23 01306000 UPTPREFX EQU UPT+16 01307000 @NM00068 EQU UPT+15 01308000 UPTLDEL EQU UPT+14 01309000 UPTCDEL EQU UPT+13 01310000 UPTWTP EQU UPTSWS 01311000 UPTMODE EQU UPTSWS 01312000 UPTALD EQU UPTSWS 01313000 UPTPAUS EQU UPTSWS 01314000 UPTNCOM EQU UPTSWS 01315000 UPTMID EQU UPTSWS 01316000 UPTNPRM EQU UPTSWS 01317000 UPTRCVR EQU UPTSWS 01318000 UPTUSER EQU UPT+2 01319000 @NM00067 EQU UPT 01320000 @NM00066 EQU ECT+52 01321000 @NM00065 EQU ECT+48 01322000 @NM00064 EQU ECT+44 01323000 @NM00063 EQU ECTSWS2+1 01324000 @NM00062 EQU ECTSWS21 01325000 ECTTABND EQU ECTSWS21 01326000 ECTDEFCS EQU ECTSWS21 01327000 ECTBKPB EQU ECT+36 01328000 ECTUSER EQU ECT+32 01329000 ECTDDNUM EQU ECT+29 01330000 ECTATTN EQU ECTSWS 01331000 ECTBKGRD EQU ECTSWS 01332000 ECTNNOT EQU ECTSWS 01333000 ECTNMAL EQU ECTSWS 01334000 ECTLOGF EQU ECTSWS 01335000 ECTATRM EQU ECTSWS 01336000 @NM00061 EQU ECTSWS 01337000 ECTNOPD EQU ECTSWS 01338000 ECTSCMD EQU ECT+20 01339000 ECTPCMD EQU ECT+12 01340000 ECTSMSG EQU ECT+9 01341000 ECTMSGF EQU ECT+8 01342000 ECTIOWA EQU ECT+4 01343000 ECTRTCD EQU ECT+1 01344000 ECTRCDF EQU ECT 01345000 PSCBU EQU PSCB+64 01346000 PSCBRSZ EQU PSCB+60 01347000 PSCBLINE EQU PSCB+59 01348000 PSCBCHAR EQU PSCB+58 01349000 PSCBUPTL EQU PSCB+56 01350000 PSCBUPT EQU PSCB+52 01351000 PSCBRLGB EQU PSCB+48 01352000 PSCBDEST EQU PSCB+40 01353000 @NM00060 EQU PSCB+36 01354000 @NM00059 EQU PSCB+32 01355000 @NM00058 EQU PSCB+28 01356000 PSCBLTI2 EQU PSCB+24 01357000 PSCBLTIM EQU PSCB+20 01358000 PSCBATR2 EQU PSCB+18 01359000 @NM00057 EQU PSCBATR1 01360000 @NM00056 EQU PSCBATR1 01361000 @NM00055 EQU PSCBATR1 01362000 PSCBATTN EQU PSCBATR1 01363000 PSCBVMNT EQU PSCBATR1 01364000 PSCBJCL EQU PSCBATR1 01365000 PSCBACCT EQU PSCBATR1 01366000 PSCBCTRL EQU PSCBATR1 01367000 PSCBGPNM EQU PSCB+8 01368000 PSCBUSRL EQU PSCB+7 01369000 PSCBUSER EQU PSCB 01370000 CMDT1 EQU CMDT 01371000 CMDO EQU CMD+2 01372000 CMDL EQU CMD 01373000 ZZ299999 EQU ZZ2+8192 01374000 ZZ2AXOT1 EQU ZZ2AXOT 01375000 ZZ2AXOL EQU ZZ2AXO 01376000 @NM00054 EQU ZZ2+7288 01377000 @NM00053 EQU ZZ2AMDX+4 01378000 ZZ2AMDXC EQU ZZ2AMDX 01379000 ZZ2HSD EQU ZZ2+3056 01380000 @NM00052 EQU ZZ2ES 01381000 @NM00051 EQU ZZ2+2868 01382000 ZZ2ITSEC EQU ZZ2ITSE+1 01383000 @NM00050 EQU ZZ2ITSE 01384000 ZZ2ITSEP EQU ZZ2ITSE 01385000 ZZ2ITSEW EQU ZZ2ITSE 01386000 @NM00049 EQU ZZ2ITR+20 01387000 ZZ2ITREC EQU ZZ2ITRE+1 01388000 @NM00048 EQU ZZ2ITRE 01389000 ZZ2ITREP EQU ZZ2ITRE 01390000 ZZ2ITREW EQU ZZ2ITRE 01391000 @NM00047 EQU ZZ2ITR+9 01392000 ZZ2ITRRC EQU ZZ2ITR+8 01393000 ZZ2ITR2P EQU ZZ2ITR+4 01394000 ZZ2ITRPP EQU ZZ2ITR 01395000 @NM00046 EQU ZZ2+1544 01396000 ZZ2PGM EQU ZZ2+1536 01397000 @NM00045 EQU ZZ2+1526 01398000 ZZ2CW EQU ZZ2+1524 01399000 @NM00044 EQU ZZ2+1504 01400000 @NM00043 EQU ZZ2+1352 01401000 ZZ2FFSYP EQU ZZ2+1348 01402000 ZZ2SASYP EQU ZZ2+1344 01403000 ZZ2RDSYP EQU ZZ2+1340 01404000 ZZ2RASYP EQU ZZ2+1336 01405000 ZZ2PHSYP EQU ZZ2+1332 01406000 ZZ2ESSYP EQU ZZ2+1328 01407000 ZZ200SYP EQU ZZ2+1324 01408000 ZZ2SCWP EQU ZZ2+1320 01409000 ZZ2TTLP EQU ZZ2+1316 01410000 ZZ2LOADP EQU ZZ2+1312 01411000 ZZ2VRESP EQU ZZ2+1308 01412000 ZZ2CPPLE EQU ZZ2CPPL+12 01413000 ZZ2CPPLP EQU ZZ2CPPL+8 01414000 ZZ2CPPLU EQU ZZ2CPPL+4 01415000 ZZ2VRSAP EQU ZZ2+1288 01416000 ZZ2RVTP EQU ZZ2+1284 01417000 @NM00042 EQU ZZ2+1272 01418000 @NM00041 EQU ZZ2+1268 01419000 ZZ2RPLP EQU ZZ2+1260 01420000 @NM00040 EQU ZZ2+1252 01421000 ZZ2ZZ2P EQU ZZ2+1248 01422000 @NM00039 EQU ZZ2+1112 01423000 ZZ2FDSDP EQU ZZ2+1104 01424000 @NM00038 EQU ZZ2+1080 01425000 ZZ2FT25P EQU ZZ2+1072 01426000 @NM00037 EQU ZZ2+976 01427000 ZZ2TOD EQU ZZ2+968 01428000 ZZ2STGN EQU ZZ2STG+4 01429000 ZZ2STGP EQU ZZ2STG 01430000 @NM00036 EQU ZZ2+952 01431000 ZZ2SCMDE EQU ZZ2+944 01432000 ZZ2SCMDN EQU ZZ2+936 01433000 ZZ2IDENT EQU ZZ2+928 01434000 ZZ2A9999 EQU ZZ2A+656 01435000 @NM00035 EQU ZZ2A+224 01436000 @NM00034 EQU ZZ2A+220 01437000 ZZ2AQD99 EQU ZZ2AQD+60 01438000 @NM00033 EQU ZZ2AQD+56 01439000 @NM00032 EQU ZZ2AQDF 01440000 ZZ2AQDFA EQU ZZ2AQDF 01441000 ZZ2AQDIL EQU ZZ2AQD+48 01442000 ZZ2AQDIM EQU ZZ2AQD+44 01443000 ZZ2AQDT9 EQU ZZ2AQDT+34 01444000 ZZ2AQDTE EQU ZZ2AQDT+33 01445000 ZZ2AQDTD EQU ZZ2AQDT+2 01446000 @NM00031 EQU ZZ2AQDT+1 01447000 ZZ2AQDTY EQU ZZ2AQDT 01448000 ZZ2AQDT0 EQU ZZ2AQDT 01449000 ZZ2AQDLB EQU ZZ2AQD+9 01450000 ZZ2AQDOB EQU ZZ2AQD+8 01451000 ZZ2AQDLE EQU ZZ2AQD+4 01452000 ZZ2AQDOF EQU ZZ2AQD 01453000 ZZ2AQD00 EQU ZZ2AQD 01454000 ZZ2AQAS9 EQU ZZ2AQAS+16 01455000 @NM00030 EQU ZZ2AQAS+12 01456000 ZZ2AQAS2 EQU ZZ2AQAS+8 01457000 ZZ2AQAS1 EQU ZZ2AQAS+4 01458000 @NM00029 EQU ZZ2AQAS+2 01459000 ZZ2AQAST EQU ZZ2AQAS 01460000 ZZ2AQAS0 EQU ZZ2AQAS 01461000 ZZ2AZZ6P EQU ZZ2A+140 01462000 ZZ2ADPTA EQU ZZ2ADPT 01463000 ZZ2ADPL EQU ZZ2ADP 01464000 ZZ2ADMTA EQU ZZ2ADMT 01465000 ZZ2ADML EQU ZZ2ADM 01466000 ZZ2ADDTA EQU ZZ2ADDT 01467000 ZZ2ADDL EQU ZZ2ADD 01468000 @NM00028 EQU ZZ2A+72 01469000 ZZ2APIDB EQU ZZ2APID+3 01470000 ZZ2APIDA EQU ZZ2APID 01471000 @NM00027 EQU ZZ2A+24 01472000 @NM00026 EQU ZZ2AF+5 01473000 ZZ2AFX EQU ZZ2AF+5 01474000 @NM00025 EQU ZZ2AF+3 01475000 ZZ2AFS EQU ZZ2AF+2 01476000 ZZ2AFD EQU ZZ2AF+2 01477000 ZZ2AFQ EQU ZZ2AF+2 01478000 ZZ2AF$ EQU ZZ2AF+2 01479000 @NM00024 EQU ZZ2AF+2 01480000 ZZ2AFM EQU ZZ2AF+2 01481000 @NM00023 EQU ZZ2AF+2 01482000 @NM00022 EQU ZZ2AF+1 01483000 ZZ2AFV EQU ZZ2AF+1 01484000 @NM00021 EQU ZZ2AF+1 01485000 ZZ2AFC EQU ZZ2AF+1 01486000 @NM00020 EQU ZZ2AF 01487000 ZZ2AFFS EQU ZZ2AF 01488000 ZZ2AFT EQU ZZ2AF 01489000 ZZ2AFP EQU ZZ2AF 01490000 @NM00019 EQU ZZ2A+8 01491000 ZZ2ALINE EQU ZZ2A+4 01492000 @NM00018 EQU ZZ2A+3 01493000 ZZ2ASE EQU ZZ2A+2 01494000 ZZ2ACH EQU ZZ2A 01495000 @NM00017 EQU ZZ2+264 01496000 @NM00016 EQU ZZ2+263 01497000 ZZ2PRTT0 EQU ZZ2PRTT 01498000 ZZ2PRTO EQU ZZ2PRT+2 01499000 ZZ2PRTL EQU ZZ2PRT 01500000 @NM00015 EQU ZZ2AMD+56 01501000 ZZ2AMDXP EQU ZZ2AMD+52 01502000 ZZ2AMDD EQU ZZ2AMD+48 01503000 ZZ2AMDL EQU ZZ2AMD+44 01504000 ZZ2AMDU EQU ZZ2AMD+28 01505000 ZZ2AMDF EQU ZZ2AMD+24 01506000 ZZ2AMDS EQU ZZ2AMD+20 01507000 ZZ2AMDC EQU ZZ2AMD+16 01508000 ZZ2AMDP EQU ZZ2AMD+12 01509000 ZZ2AMDB EQU ZZ2AMD+8 01510000 @NM00014 EQU @NM00013 01511000 ZZ2AMD2 EQU @NM00013 01512000 ZZ2AMD1 EQU @NM00013 01513000 ZZ2AMD0 EQU ZZ2AMD+6 01514000 ZZ2AMDA EQU ZZ2AMD+4 01515000 ZZ2AMDT EQU ZZ2AMD 01516000 ZZ199999 EQU ZZ1+3072 01517000 @NM00012 EQU ZZ1+2160 01518000 ZZ1TRTAS EQU ZZ1+1904 01519000 ZZ1TRUPC EQU ZZ1+1648 01520000 ZZ1TRCTX EQU ZZ1+1392 01521000 ZZ1NASID EQU ZZ1N+274 01522000 ZZ1NSTRL EQU ZZ1N+272 01523000 ZZ1NOFF EQU ZZ1N+268 01524000 ZZ1NBDY EQU ZZ1N+264 01525000 ZZ1NADE EQU ZZ1N+260 01526000 ZZ1NADB EQU ZZ1N+256 01527000 ZZ1NSTR EQU ZZ1N 01528000 @NM00011 EQU ZZ1+1080 01529000 ZZ1TREBC EQU ZZ1+824 01530000 ZZ1TRHEX EQU ZZ1+568 01531000 @NM00010 EQU ZZ1+377 01532000 ZZ1USTAE EQU ZZ1+376 01533000 @NM00009 EQU ZZ1F+1 01534000 @NM00008 EQU ZZ1F 01535000 ZZ1FM EQU ZZ1F 01536000 ZZ1FX EQU ZZ1F 01537000 ZZ1FU EQU ZZ1F 01538000 ZZ1EVEC EQU ZZ1EVE+1 01539000 @NM00007 EQU ZZ1EVE 01540000 ZZ1EVEP EQU ZZ1EVE 01541000 ZZ1EVEW EQU ZZ1EVE 01542000 ZZ1ACMP EQU ZZ1ATTN 01543000 @NM00006 EQU ZZ1+144 01544000 ZZ1FPP EQU ZZ1+140 01545000 ZZ1ZZ6P EQU ZZ1+136 01546000 @NM00005 EQU ZZ1+84 01547000 ZZ1PLINE EQU ZZ1+80 01548000 ZZ1PGSZ EQU ZZ1+76 01549000 ZZ1PCNT EQU ZZ1+72 01550000 @NM00004 EQU ZZ1+68 01551000 ZZ1TPAGE EQU ZZ1+64 01552000 ZZ1TLINE EQU ZZ1+60 01553000 @NM00003 EQU ZZ1+52 01554000 ZZ1DMCBP EQU ZZ1+48 01555000 ZZ1PDRP EQU ZZ1+40 01556000 ZZ1ZZ2P EQU ZZ1+36 01557000 ZZ1327WP EQU ZZ1+32 01558000 ZZ1ACBP EQU ZZ1+28 01559000 @NM00002 EQU ZZ1+24 01560000 ZZ1PDCBP EQU ZZ1+20 01561000 ZZ1BLRBL EQU ZZ1+16 01562000 @NM00001 EQU ZZ1+12 01563000 ZZ1PNULL EQU ZZ1+8 01564000 ZZ1NULL EQU ZZ1+4 01565000 @NM00092 EQU PSA+3668 01566000 PSASTAK EQU PSA+3072 01567000 @NM00091 EQU PSA+1048 01568000 PSAUSEND EQU PSA+1048 01569000 PSARV062 EQU PSA+1044 01570000 PSACDAL EQU PSA+1040 01571000 PSAWTCOD EQU PSA+1036 01572000 PSAATCVT EQU PSA+1032 01573000 PSAPCPSW EQU PSA+1024 01574000 PSAPIR2 EQU PSA+1020 01575000 PSARV059 EQU PSA+1018 01576000 PSASVC13 EQU PSA+1016 01577000 PSALSFCC EQU PSA+1012 01578000 PSASFACC EQU PSA+1008 01579000 PSASTOP EQU PSA+992 01580000 PSASTART EQU PSA+976 01581000 PSARSPSW EQU PSA+968 01582000 PSASRPSW EQU PSA+960 01583000 PSARV045 EQU PSA+892 01584000 PSARV044 EQU PSA+888 01585000 PSARV043 EQU PSA+884 01586000 PSARV042 EQU PSA+880 01587000 PSARV041 EQU PSA+876 01588000 PSARV040 EQU PSA+872 01589000 PSARV025 EQU PSA+868 01590000 PSADSSED EQU PSA+868 01591000 PSADSSPR EQU PSA+864 01592000 PSADSSFW EQU PSA+860 01593000 PSADSS14 EQU PSA+856 01594000 PSADSSPP EQU PSA+848 01595000 PSADSSRP EQU PSA+840 01596000 PSADSS05 EQU PSADSSF4 01597000 PSADSS10 EQU PSADSSF4 01598000 PSADSSVE EQU PSADSSF4 01599000 PSADSSDE EQU PSADSSF4 01600000 PSADSSC0 EQU PSADSSF4 01601000 PSADSSIE EQU PSADSSF4 01602000 PSADSS12 EQU PSADSSF4 01603000 PSADSSRC EQU PSADSSF4 01604000 PSARV057 EQU PSADSSF3 01605000 PSARV056 EQU PSADSSF3 01606000 PSARV055 EQU PSADSSF3 01607000 PSADSSMC EQU PSADSSF3 01608000 PSADSSRW EQU PSADSSF3 01609000 PSADSSNM EQU PSADSSF3 01610000 PSADSSES EQU PSADSSF3 01611000 PSADSSGP EQU PSADSSF3 01612000 PSADSSF2 EQU PSADSSFL+1 01613000 PSADSSPI EQU PSADSSF1 01614000 PSADSSOI EQU PSADSSF1 01615000 PSADSSSP EQU PSADSSF1 01616000 PSADSSTP EQU PSADSSF1 01617000 PSADSSDW EQU PSADSSF1 01618000 PSADSSDD EQU PSADSSF1 01619000 PSADSSDM EQU PSADSSF1 01620000 PSADSSMV EQU PSADSSF1 01621000 PSADSSTS EQU PSA+816 01622000 PSADSSWK EQU PSA+812 01623000 PSADSSR3 EQU PSA+808 01624000 PSADSSR2 EQU PSA+804 01625000 PSADSSRS EQU PSA+800 01626000 PSASTOR EQU PSA+796 01627000 PSACPUSA EQU PSA+794 01628000 PSAVSTAP EQU PSA+792 01629000 PSAWKVAP EQU PSA+788 01630000 PSAWKRAP EQU PSA+784 01631000 PSAMCHIC EQU PSA+783 01632000 PSARV061 EQU PSA+782 01633000 PSASYMSK EQU PSA+781 01634000 PSAMCHFL EQU PSA+780 01635000 PSACR0 EQU PSA+776 01636000 PSAPSWSV EQU PSA+768 01637000 PSALITA EQU PSA+764 01638000 PSACLHS EQU PSAHLHI 01639000 PSALKR15 EQU PSALKSA+60 01640000 PSALKR14 EQU PSALKSA+56 01641000 PSALKR13 EQU PSALKSA+52 01642000 PSALKR12 EQU PSALKSA+48 01643000 PSALKR11 EQU PSALKSA+44 01644000 PSALKR10 EQU PSALKSA+40 01645000 PSALKR9 EQU PSALKSA+36 01646000 PSALKR8 EQU PSALKSA+32 01647000 PSALKR7 EQU PSALKSA+28 01648000 PSALKR6 EQU PSALKSA+24 01649000 PSALKR5 EQU PSALKSA+20 01650000 PSALKR4 EQU PSALKSA+16 01651000 PSALKR3 EQU PSALKSA+12 01652000 PSALKR2 EQU PSALKSA+8 01653000 PSALKR1 EQU PSALKSA+4 01654000 PSALKR0 EQU PSALKSA 01655000 PSARV023 EQU PSACLHT+52 01656000 PSALOCAL EQU PSACLHT+48 01657000 PSACMSL EQU PSACLHT+44 01658000 PSAOPTL EQU PSACLHT+40 01659000 PSATPACL EQU PSACLHT+36 01660000 PSATPDNL EQU PSACLHT+32 01661000 PSATPNCL EQU PSACLHT+28 01662000 PSAIOSLL EQU PSACLHT+24 01663000 PSAIOSUL EQU PSACLHT+20 01664000 PSAIOSCL EQU PSACLHT+16 01665000 PSAIOSSL EQU PSACLHT+12 01666000 PSASALCL EQU PSACLHT+8 01667000 PSAASML EQU PSACLHT+4 01668000 PSADISPL EQU PSACLHT 01669000 PSASRSA EQU PSA+636 01670000 PSARV050 EQU PSA+634 01671000 PSADSSGO EQU PSA+633 01672000 PSARECUR EQU PSA+632 01673000 PSAHLHIS EQU PSA+628 01674000 PSAIPCSA EQU PSA+624 01675000 @NM00090 EQU PSA+621 01676000 PSAIPCDM EQU PSA+620 01677000 PSAIPCD EQU PSA+616 01678000 @NM00089 EQU PSA+613 01679000 PSAIPCRM EQU PSA+612 01680000 PSAIPCR EQU PSA+608 01681000 PSAMCHEX EQU PSA+600 01682000 PSAMPSW EQU PSA+592 01683000 PSAEXPS2 EQU PSA+584 01684000 PSAEXPS1 EQU PSA+576 01685000 PSAPIREG EQU PSA+572 01686000 PSARSREG EQU PSA+568 01687000 PSAGPREG EQU PSA+556 01688000 PSARV022 EQU PSASUP4 01689000 PSARV021 EQU PSASUP4 01690000 PSARV020 EQU PSASUP4 01691000 PSARV019 EQU PSASUP4 01692000 PSARV018 EQU PSASUP4 01693000 PSARV017 EQU PSASUP4 01694000 PSARV016 EQU PSASUP4 01695000 PSARV015 EQU PSASUP4 01696000 PSARV014 EQU PSASUP3 01697000 PSARV013 EQU PSASUP3 01698000 PSARV012 EQU PSASUP3 01699000 PSAESTA EQU PSASUP3 01700000 PSASPR EQU PSASUP3 01701000 PSAPSREG EQU PSASUP3 01702000 PSAPI2 EQU PSASUP3 01703000 PSAIOSUP EQU PSASUP3 01704000 PSALCR EQU PSASUP2 01705000 PSARTM EQU PSASUP2 01706000 PSAACR EQU PSASUP2 01707000 PSAIPCE2 EQU PSASUP2 01708000 PSAIPCES EQU PSASUP2 01709000 PSAIPCEC EQU PSASUP2 01710000 PSAGTF EQU PSASUP2 01711000 PSAIPCRI EQU PSASUP2 01712000 PSATYPE6 EQU PSASUP1 01713000 PSATCTL EQU PSASUP1 01714000 PSADISP EQU PSASUP1 01715000 PSALOCK EQU PSASUP1 01716000 PSAPI EQU PSASUP1 01717000 PSAEXT EQU PSASUP1 01718000 PSASVC EQU PSASUP1 01719000 PSAIO EQU PSASUP1 01720000 PSAAOLD EQU PSA+548 01721000 PSAANEW EQU PSA+544 01722000 PSATNEW EQU PSA+536 01723000 PSALCCAR EQU PSA+532 01724000 PSALCCAV EQU PSA+528 01725000 PSAPCCAR EQU PSA+524 01726000 PSAPCCAV EQU PSA+520 01727000 PSACPULA EQU PSA+518 01728000 PSACPUPA EQU PSA+516 01729000 PSAPSA EQU PSA+512 01730000 FLCHDEND EQU PSA+512 01731000 FLCCRSAV EQU FLCMCLA+280 01732000 FLCGRSAV EQU FLCMCLA+216 01733000 FLCFPSAV EQU FLCMCLA+184 01734000 FLCFLA EQU FLCMCLA+88 01735000 FLCRGNCD EQU FLCMCLA+84 01736000 FLCFSAA EQU FLCFSA+1 01737000 @NM00088 EQU FLCFSA 01738000 @NM00087 EQU FLCMCLA+72 01739000 FLCMCIC EQU FLCMCLA+64 01740000 @NM00086 EQU FLCMCLA+20 01741000 FLCIOAA EQU FLCIOA+1 01742000 @NM00085 EQU FLCIOA 01743000 @NM00084 EQU FLCMCLA+15 01744000 @NM00083 EQU FLCMCLA+14 01745000 @NM00082 EQU FLCMCLA+12 01746000 FLCLCL EQU FLCMCLA+8 01747000 FLCIOELA EQU FLCIOEL+1 01748000 @NM00081 EQU FLCIOEL 01749000 FLCCHNID EQU FLCMCLA 01750000 @NM00080 EQU PSA+160 01751000 FLCMTRCD EQU PSA+157 01752000 @NM00079 EQU PSA+156 01753000 FLCPERA EQU FLCPER+1 01754000 @NM00078 EQU FLCPER 01755000 @NM00077 EQU PSA+151 01756000 FLCPERCD EQU PSA+150 01757000 FLCMCNUM EQU PSA+149 01758000 @NM00076 EQU PSA+148 01759000 FLCTEAA EQU FLCTEA+1 01760000 @NM00075 EQU FLCTEA 01761000 PSAPIPC EQU PSAPICOD 01762000 PSAPIMC EQU PSAPICOD 01763000 PSAPIPER EQU PSAPICOD 01764000 PSARV049 EQU FLCPICOD 01765000 FLCPILCB EQU FLCPIILC 01766000 @NM00074 EQU FLCPIILC 01767000 @NM00073 EQU PSAEPPSW 01768000 FLCSVCN EQU PSAESPSW+2 01769000 FLCSILCB EQU FLCSVILC 01770000 @NM00072 EQU FLCSVILC 01771000 @NM00071 EQU PSAESPSW 01772000 FLCEICOD EQU PSAEEPSW+2 01773000 PSASPAD EQU PSAEEPSW 01774000 @NM00070 EQU PSA+128 01775000 FLCINPSW EQU PSA+120 01776000 FLCMNPSW EQU PSA+112 01777000 FLCPNPSW EQU PSA+104 01778000 FLCSNPSW EQU PSA+96 01779000 FLCENPSW EQU PSA+88 01780000 FLCTRACE EQU PSA+84 01781000 FLCTIMER EQU PSA+80 01782000 FLCCVT2 EQU PSA+76 01783000 FLCCAW EQU PSA+72 01784000 FLCCSW EQU PSA+64 01785000 FLCIOPSW EQU PSA+56 01786000 FLCMOPSW EQU PSA+48 01787000 FLCPOPSW EQU PSA+40 01788000 FLCSOPSW EQU PSA+32 01789000 FLCEOPSW EQU PSA+24 01790000 @NM00069 EQU FLCICCW2+4 01791000 FLCCVT EQU FLCICCW2 01792000 FLCICCW1 EQU FLCROPSW 01793000 FLCIPPSW EQU FLCRNPSW 01794000 .@UNREFD ANOP END UNREFERENCED COMPONENTS 01795000 @RF00238 EQU @EL00002 01796000 @RC00263 EQU @EL00003 01797000 @ENDDATA EQU * 01798000 END BLSDFDSD,(C'PLS2049',0701,78062) 01799000