DUOP TITLE 'BLSRDUOP--OPEN DUMP DATA SET *00001000 ' 00002000 */* CHANGE ACTIVITY -------------------------------------------------*/ 00003000 */* THIS MODULE WAS WRITTEN FOR @G57LPRW */ 00004000 */* THIS MODULE WAS CHANGED FOR @ZA32005 @ZA32005*/ 00005000 */*------------------------------------------------------------------*/ 00006000 BLSRDUOP CSECT , 01S0002 00007000 @MAINENT DS 0H 01S0002 00008000 USING *,@15 01S0002 00009000 B @PROLOG 01S0002 00010000 DC AL1(16) 01S0002 00011000 DC C'BLSRDUOP 78.123' 01S0002 00012000 DROP @15 00013000 @PROLOG STM @14,@12,12(@13) 01S0002 00014000 BALR @12,0 01S0002 00015000 @PSTART DS 0H 01S0002 00016000 USING @PSTART,@12 01S0002 00017000 L @00,@SIZDATD 01S0002 00018000 BLSUALLR R,LV=(0) 00019000 LR @11,@01 01S0002 00020000 USING @DATD,@11 01S0002 00021000 ST @13,@SA00001+4 01S0002 00022000 LM @00,@01,20(@13) 01S0002 00023000 ST @11,8(,@13) 01S0002 00024000 LR @13,@11 01S0002 00025000 */*------------------------------------------------------------------*/ 00026000 */* BLSRDUOP--OPEN DUMP DATA SET */ 00027000 */*------------------------------------------------------------------*/ 00028000 * 01S0143 00029000 * FLAG='00'X; /* PROCESSING CONTROL FLAGS */ 00030000 MVI FLAG,X'00' 01S0143 00031000 * ZZ6DDT=ZZ2ADDT; /* DATA SET NAME */ 00032000 L @10,ZZ2AZZ6P(,R9) 01S0144 00033000 MVC ZZ6DDT(44,@10),ZZ2ADDT(R9) 01S0144 00034000 * RESPECIFY 01S0145 00035000 * (RF) RESTRICTED; /* RETURN CODES */ 00036000 * BVTPTR=ADDR(BVT); /* ->BVT */ 00037000 L BVTPTR,ZZ2BVTP(,R9) 01S0146 00038000 * RESPECIFY 01S0147 00039000 * BVT BASED(BVTPTR); /* ->BVT */ 00040000 * 01S0147 00041000 * DO;/*BLSULINK(ZZ2,ZZ6D) EP('BLSRRDGE')*/ 01S0148 00042000 * ZZ2PGM='BLSRRDGE';/*ENTRY POINT NAME*/ 01S0149 00043000 MVC ZZ2PGM(8,R9),@CC01294 01S0149 00044000 * CALL BLSUPGMC(ZZ2,ZZ6D);/*CALL NON-RESIDENT IPCS PROGRAM*/ 00045000 ST R9,@AL00001 01S0150 00046000 LA @14,ZZ6D(,@10) 01S0150 00047000 ST @14,@AL00001+4 01S0150 00048000 L @15,BVTPGMCP(,BVTPTR) 01S0150 00049000 LA @01,@AL00001 01S0150 00050000 BALR @14,@15 01S0150 00051000 * END;/*BLSULINK(ZZ2,ZZ6D) EP('BLSRRDGE')*/ 01S0151 00052000 * IF RF>ZZZFLAGE THEN /* ERROR RETRIEVING RECORD */ 00053000 * 01S0152 00054000 CH RF,@CH00049 01S0152 00055000 BNH @RF00152 01S0152 00056000 * /***************************************************************/ 00057000 * /* */ 00058000 * /* ERROR RETRIEVING DATA SET NAME RECORD */ 00059000 * /* */ 00060000 * /***************************************************************/ 00061000 * 01S0153 00062000 * DO; /* ERROR RETRIEVING RECORD */ 00063000 * RETC=ZZZFLAGT; /* RETURN CODE */ 00064000 LA RETC,16 01S0154 00065000 * GO TO EXIT; /* COMMON EXIT PATH */ 00066000 B EXIT 01S0155 00067000 * END; /* ERROR RETRIEVING RECORD */ 00068000 * IF ZZ6DDA2=0 THEN /* DUMP EMPTY/NOT INITIALIZED */ 00069000 * 01S0157 00070000 @RF00152 L @14,ZZ2AZZ6P(,R9) 01S0157 00071000 ICM @10,15,ZZ6DDA2(@14) 01S0157 00072000 BNZ @RF00157 01S0157 00073000 * /***************************************************************/ 00074000 * /* */ 00075000 * /* DUMP EMPTY/NOT INITIALIZED */ 00076000 * /* */ 00077000 * /***************************************************************/ 00078000 * 01S0158 00079000 * DO; /* DUMP EMPTY/NOT INITIALIZED */ 00080000 * FLAGNEW=ZZZ1; /* NEW DUMP DATA SET */ 00081000 * FLAGQSAM=ZZZ1; /* QSAM SCAN PENDING @ZA32005*/ 00082000 OI FLAGNEW,B'11000000' 01S0160 00083000 * END; /* DUMP EMPTY/NOT INITIALIZED */ 00084000 * GENERATE CODE(MVC ADATA(ADATAEND-ADATA),SDATA); 01S0162 00085000 @RF00157 DS 0H 01S0162 00086000 MVC ADATA(ADATAEND-ADATA),SDATA 00087000 * RESPECIFY 01S0163 00088000 * (RA) RESTRICTED; /* ->ZZ6 & ->ZZ6RDCB */ 00089000 * RA=ADDR(ZZ6); /* ->ZZ6 & ->ZZ6RDCB */ 00090000 L RA,ZZ2AZZ6P(,R9) 01S0164 00091000 * RESPECIFY 01S0165 00092000 * ZZ6 BASED(RA); /* DUMP FILE CONTROL BLOCK */ 00093000 * AOPCL=AOPCL|RA; /* OPEN/CLOSE PARAMETER LIST */ 00094000 L @14,AOPCL 01S0166 00095000 OR @14,RA 01S0166 00096000 ST @14,AOPCL 01S0166 00097000 * IF FLAGNEW=ZZZ1 THEN /* NEW DUMP DATA SET */ 00098000 * 01S0167 00099000 TM FLAGNEW,B'10000000' 01S0167 00100000 BNO @RF00167 01S0167 00101000 * /***************************************************************/ 00102000 * /* */ 00103000 * /* NEW DUMP DATA SET */ 00104000 * /* */ 00105000 * /***************************************************************/ 00106000 * 01S0168 00107000 * DO; /* NEW DUMP DATA SET */ 00108000 * 01S0168 00109000 * DO;/*BLSULINK(ZZ2,ZZ6D) EP('BLSRDUDR')*/ 01S0169 00110000 * ZZ2PGM='BLSRDUDR';/*ENTRY POINT NAME*/ 01S0170 00111000 MVC ZZ2PGM(8,R9),@CC01297 01S0170 00112000 * CALL BLSUPGMC(ZZ2,ZZ6D);/*CALL NON-RESIDENT IPCS PROGRAM*/ 00113000 ST R9,@AL00001 01S0171 00114000 LA @14,ZZ6D(,RA) 01S0171 00115000 ST @14,@AL00001+4 01S0171 00116000 L @15,BVTPGMCP(,BVTPTR) 01S0171 00117000 LA @01,@AL00001 01S0171 00118000 BALR @14,@15 01S0171 00119000 * END;/*BLSULINK(ZZ2,ZZ6D) EP('BLSRDUDR')*/ 01S0172 00120000 * IF RF^=ZZZFLAGI THEN /* BLSRDUDR DETECTED AN ERROR */ 00121000 * 01S0173 00122000 LTR RF,RF 01S0173 00123000 BZ @RF00173 01S0173 00124000 * /***********************************************************/ 00125000 * /* */ 00126000 * /* BLSRDUDR DETECTED AN ERROR */ 00127000 * /* */ 00128000 * /***********************************************************/ 00129000 * 01S0174 00130000 * DO; /* BLSRDUDR DETECTED AN ERROR */ 00131000 * RETC=ZZZFLAGT; /* RETURN CODE */ 00132000 LA RETC,16 01S0175 00133000 * GO TO EXIT; /* COMMON EXIT PATH */ 00134000 B EXIT 01S0176 00135000 * END; /* BLSRDUDR DETECTED AN ERROR */ 00136000 * 01S0177 00137000 * DO;/*BLSULINK(ZZ2,ZZ6D) EP('BLSRRDPU')*/ 01S0178 00138000 @RF00173 DS 0H 01S0179 00139000 * ZZ2PGM='BLSRRDPU';/*ENTRY POINT NAME*/ 01S0179 00140000 MVC ZZ2PGM(8,R9),@CC01298 01S0179 00141000 * CALL BLSUPGMC(ZZ2,ZZ6D);/*CALL NON-RESIDENT IPCS PROGRAM*/ 00142000 ST R9,@AL00001 01S0180 00143000 LA @14,ZZ6D(,RA) 01S0180 00144000 ST @14,@AL00001+4 01S0180 00145000 L @15,BVTPGMCP(,BVTPTR) 01S0180 00146000 LA @01,@AL00001 01S0180 00147000 BALR @14,@15 01S0180 00148000 * END;/*BLSULINK(ZZ2,ZZ6D) EP('BLSRRDPU')*/ 01S0181 00149000 * GENERATE FLOWS(E400) CODE(MVC 0(SQDCBEND-SQDCB,RA),SQDCB); 00150000 MVC 0(SQDCBEND-SQDCB,RA),SQDCB 00151000 * CALL E100; /* OPEN DUMP DATA SET */ 00152000 BAL @14,E100 01S0183 00153000 * IF ZZ2ITREC^=ZZZFLAGI THEN /* UNABLE TO OPEN */ 00154000 * 01S0184 00155000 ICM @14,7,ZZ2ITREC(R9) 01S0184 00156000 BZ @RF00184 01S0184 00157000 * /***********************************************************/ 00158000 * /* */ 00159000 * /* UNABLE TO OPEN DUMP DATA SET */ 00160000 * /* */ 00161000 * /***********************************************************/ 00162000 * 01S0185 00163000 * DO; /* UNABLE TO OPEN */ 00164000 * RETC=ZZZFLAGT; /* RETURN CODE */ 00165000 LA RETC,16 01S0186 00166000 * GO TO EXIT; /* COMMON EXIT PATH */ 00167000 B EXIT 01S0187 00168000 * END; /* UNABLE TO OPEN */ 00169000 * 01S0188 00170000 * DO;/*BLSULINK EP('BLSRDUIN')*/ 01S0189 00171000 @RF00184 DS 0H 01S0190 00172000 * ZZ2PGM='BLSRDUIN';/*ENTRY POINT NAME*/ 01S0190 00173000 MVC ZZ2PGM(8,R9),@CC01300 01S0190 00174000 * RESPECIFY 01S0191 00175000 * (GPR01P) RESTRICTED;/*->TASK VARIABLE*/ 01S0191 00176000 * GPR01P=ADDR(ZZ2);/*->TASK VARIABLE*/ 01S0192 00177000 LR GPR01P,R9 01S0192 00178000 * CALL BLSUPGMR;/*CALL NON-RESIDENT IPCS PROGRAM*/ 01S0193 00179000 L @15,BVTPGMRP(,BVTPTR) 01S0193 00180000 BALR @14,@15 01S0193 00181000 * RESPECIFY 01S0194 00182000 * (GPR01P) UNRESTRICTED;/*->TASK VARIABLE*/ 01S0194 00183000 * END;/*BLSULINK EP('BLSRDUIN')*/ 01S0195 00184000 * RETC=RF; /* RETURN CODE */ 00185000 LR RETC,RF 01S0196 00186000 * CALL E200; /* PREPARE INTER-TASK DATA */ 00187000 BAL @14,E200 01S0197 00188000 * ZZ2ITRPP=ADDR(AOPCL); /* ->OPEN/CLOSE PARAMETER LIST */ 00189000 LA @14,AOPCL 01S0198 00190000 ST @14,ZZ2ITRPP(,R9) 01S0198 00191000 * ZZ2ITRRC=ZZZITR03; /* CLOSE REQUEST */ 00192000 MVI ZZ2ITRRC(R9),X'03' 01S0199 00193000 * CALL E300; /* REQUEST INTER-TASK SERVICE */ 00194000 BAL @14,E300 01S0200 00195000 * GENERATE CODE(FREEPOOL (RA)); 01S0201 00196000 FREEPOOL (RA) 00197000 * IF RETCARRAY OF BUFFERS */ 00263000 * DO; /*GETMAIN (R) LV(DIM(ZZ6B)*ZZ6BUFL)SP(ZZZSPSHR)*/ 01S0224 00264000 * RESPECIFY (GPR01F,GPR00F) RESTRICTED; 01S0225 00265000 * GPR00F = DIM(ZZ6B)*ZZ6BUFL; /* LENGTH REQUESTED*/ 01S0226 00266000 SLA @14,6 01S0226 00267000 LR GPR00F,@14 01S0226 00268000 * GPR01F = ZZZSPSHR; /* SP IN REG 1 */ 01S0227 00269000 LA GPR01F,77 01S0227 00270000 * GEN (SLL GPR01F,24) 01S0228 00271000 * NODEFS NOREFS NOSETS NOEXIT NOFLOWS SEQFLOW; 01S0228 00272000 SLL GPR01F,24 00273000 * GPR00F = GPR00F | GPR01F; /* SP IN HIGH BYTE */ 01S0229 00274000 OR GPR00F,GPR01F 01S0229 00275000 * GPR01F = -1; /* INDICATE A GETMAIN REQUEST */ 01S0230 00276000 SLR GPR01F,GPR01F 01S0230 00277000 BCTR GPR01F,0 01S0230 00278000 * SVC(10); /* R-FORM OF GETMAIN*/ 01S0231 00279000 SVC 10 01S0231 00280000 * RESPECIFY (GPR01F,GPR00F) UNRESTRICTED; 01S0232 00281000 * END; /*GETMAIN (R) LV(DIM(ZZ6B)*ZZ6BUFL)SP(ZZZSPSHR)*/ 01S0233 00282000 * ZZ6BUFP=R1; /* ->ARRAY OF BUFFERS */ 00283000 ST R1,ZZ6BUFP(,RA) 01S0234 00284000 * RESPECIFY 01S0235 00285000 * (R1) UNRESTRICTED; /* ->ARRAY OF BUFFERS */ 00286000 * IF FLAGNEW=ZZZ1 THEN /* NEW DUMP DATA SET */ 00287000 * 01S0236 00288000 TM FLAGNEW,B'10000000' 01S0236 00289000 BNO @RF00236 01S0236 00290000 * /***************************************************************/ 00291000 * /* */ 00292000 * /* NEW DUMP DATA SET */ 00293000 * /* */ 00294000 * /***************************************************************/ 00295000 * 01S0237 00296000 * DO; /* NEW DUMP DATA SET */ 00297000 * ESAUSYM=DTPRIVD; /* SYMBOL */ 00298000 MVC ESAUSYM(31),DTPRIVD 01S0238 00299000 * ESAUDT=DTPRIV; /* DATA TYPE */ 00300000 MVC ESAUDT(34),DTPRIV 01S0239 00301000 * CALL BLSRESGU(ZZ2,ESAU); /* FIND THE MVS PRIVATE AREA */ 00302000 * 01S0240 00303000 ST R9,@AL00001 01S0240 00304000 LA @14,ESAU 01S0240 00305000 ST @14,@AL00001+4 01S0240 00306000 L @08,ZZ2RVTP(,R9) 01S0240 00307000 L @15,RVTESGUP(,@08) 01S0240 00308000 LA @01,@AL00001 01S0240 00309000 BALR @14,@15 01S0240 00310000 * DO;/*BLSULINK(ZZ2,ZZ6D) EP('BLSRRDAR')*/ 01S0241 00311000 * ZZ2PGM='BLSRRDAR';/*ENTRY POINT NAME*/ 01S0242 00312000 MVC ZZ2PGM(8,R9),@CC01309 01S0242 00313000 * CALL BLSUPGMC(ZZ2,ZZ6D);/*CALL NON-RESIDENT IPCS PROGRAM*/ 00314000 ST R9,@AL00001 01S0243 00315000 LA @14,ZZ6D(,RA) 01S0243 00316000 ST @14,@AL00001+4 01S0243 00317000 L @15,BVTPGMCP(,BVTPTR) 01S0243 00318000 LA @01,@AL00001 01S0243 00319000 BALR @14,@15 01S0243 00320000 * END;/*BLSULINK(ZZ2,ZZ6D) EP('BLSRRDAR')*/ 01S0244 00321000 * END; /* NEW DUMP DATA SET */ 00322000 * ZZ2AQAS=ZZ6DQA; /* DEFAULT ADDRESS SPACE */ 00323000 @RF00236 MVC ZZ2AQAS(16,R9),ZZ6DQA(RA) 01S0246 00324000 * ZZ1ZZ2P->ZZ2AQAS=ZZ6DQA; /* DEFAULT ADDRESS SPACE */ 00325000 L @14,ZZ2ZZ1P(,R9) 01S0247 00326000 L @14,ZZ1ZZ2P(,@14) 01S0247 00327000 MVC ZZ2AQAS(16,@14),ZZ6DQA(RA) 01S0247 00328000 * ZZ6FINIT=ZZZ1; /* DUMP INITIALIZED @ZA32005*/ 00329000 OI ZZ6FINIT(RA),B'01000000' 01S0248 00330000 *EXIT: /* COMMON EXIT PATH */ 00331000 * IF /* DELETE DUMP-RELATED RECORD(S) */ 00332000 * FLAGNEW=ZZZ1& /* NEW DUMP DATA SET */ 00333000 * RETC>ZZZFLAGE THEN /* INITIALIZATION ERROR */ 00334000 * 01S0249 00335000 EXIT TM FLAGNEW,B'10000000' 01S0249 00336000 BNO @RF00249 01S0249 00337000 CH RETC,@CH00049 01S0249 00338000 BNH @RF00249 01S0249 00339000 * DO;/*BLSULINK(ZZ2,ZZ6D) EP('BLSRDUDR')*/ 01S0250 00340000 * ZZ2PGM='BLSRDUDR';/*ENTRY POINT NAME*/ 01S0251 00341000 MVC ZZ2PGM(8,R9),@CC01297 01S0251 00342000 * CALL BLSUPGMC(ZZ2,ZZ6D);/*CALL NON-RESIDENT IPCS PROGRAM*/ 00343000 ST R9,@AL00001 01S0252 00344000 LA @14,ZZ6D(,RA) 01S0252 00345000 ST @14,@AL00001+4 01S0252 00346000 L @15,BVTPGMCP(,BVTPTR) 01S0252 00347000 LA @01,@AL00001 01S0252 00348000 BALR @14,@15 01S0252 00349000 * END;/*BLSULINK(ZZ2,ZZ6D) EP('BLSRDUDR')*/ 01S0253 00350000 * RETURN CODE(RETC); 01S0254 00351000 @RF00249 L @13,4(,@13) 01S0254 00352000 L @00,@SIZDATD 01S0254 00353000 LR @01,@11 01S0254 00354000 BLSUFRER R,LV=(0),A=(1) 00355000 LR @15,@04 01S0254 00356000 L @14,12(,@13) 01S0254 00357000 LM @00,@12,20(@13) 01S0254 00358000 BR @14 01S0254 00359000 SPACE 1 00360000 * 01S0255 00361000 */*------------------------------------------------------------------*/ 00362000 */* E100--OPEN DUMP DATA SET */ 00363000 */*------------------------------------------------------------------*/ 00364000 * 01S0255 00365000 *E100: /* OPEN DUMP DATA SET */ 00366000 * PROCEDURE; 01S0255 00367000 E100 STM @14,@12,@SA00002 01S0255 00368000 * DCBDDNAM=ZZ6FILE; /* DDNAME */ 00369000 MVC DCBDDNAM+40(8,RA),ZZ6FILE(RA) 01S0256 00370000 * CALL E200; /* PREPARE INTER-TASK DATA */ 00371000 BAL @14,E200 01S0257 00372000 * ZZ2ITRPP=ADDR(AOPCL); /* ->OPEN/CLOSE PARAMETER LIST */ 00373000 LA @14,AOPCL 01S0258 00374000 ST @14,ZZ2ITRPP(,R9) 01S0258 00375000 * ZZ2ITRRC=ZZZITR02; /* OPEN REQUEST */ 00376000 MVI ZZ2ITRRC(R9),X'02' 01S0259 00377000 * CALL E300; /* REQUEST INTER-TASK SERVICE */ 00378000 BAL @14,E300 01S0260 00379000 * IF ZZ2ITREC=ZZZFLAGI THEN /* DUMP OPEN */ 00380000 * 01S0261 00381000 ICM @14,7,ZZ2ITREC(R9) 01S0261 00382000 BNZ @RF00261 01S0261 00383000 * /***************************************************************/ 00384000 * /* */ 00385000 * /* DUMP OPEN */ 00386000 * /* */ 00387000 * /***************************************************************/ 00388000 * 01S0262 00389000 * DO; /* DUMP OPEN @ZA32005*/ 00390000 * IF ZZ6FDUOP=ZZZ1 THEN /* OPEN EXIT DETECTED AN ERROR */ 00391000 * 01S0263 00392000 TM ZZ6FDUOP(RA),B'10000000' 01S0263 00393000 BNO @RF00263 01S0263 00394000 * /***********************************************************/ 00395000 * /* */ 00396000 * /* OPEN EXIT DETECTED AN ERROR */ 00397000 * /* */ 00398000 * /***********************************************************/ 00399000 * 01S0264 00400000 * DO; /* OPEN EXIT DETECTED AN ERROR */ 00401000 * CALL BLSUTRMV(ZZ2,M151);/* TRANSMIT MESSAGE BLS18151I 00402000 * @ZA32005*/ 00403000 ST R9,@AL00001 01S0265 00404000 LA @14,M151 01S0265 00405000 ST @14,@AL00001+4 01S0265 00406000 L @15,ZZ2TRMVP(,R9) 01S0265 00407000 LA @01,@AL00001 01S0265 00408000 BALR @14,@15 01S0265 00409000 * CALL E200; /* PREPARE INTER-TASK DATA */ 00410000 BAL @14,E200 01S0266 00411000 * ZZ2ITRPP=ADDR(AOPCL); /* ->OPEN/CLOSE PARAMETER LIST */ 00412000 LA @14,AOPCL 01S0267 00413000 ST @14,ZZ2ITRPP(,R9) 01S0267 00414000 * ZZ2ITRRC=ZZZITR03; /* CLOSE REQUEST @ZA32005*/ 00415000 MVI ZZ2ITRRC(R9),X'03' 01S0268 00416000 * CALL E300; /* REQUEST INTER-TASK SERVICE */ 00417000 BAL @14,E300 01S0269 00418000 * IF /* FREEPOOL REQUIRED @ZA32005*/ 00419000 * FLAGNEW=ZZZ1& /* NEW DUMP DATA SET @ZA32005*/ 00420000 * FLAGQSAM=ZZZ1 THEN /* QSAM SCAN PENDING @ZA32005*/ 00421000 TM FLAGNEW,B'11000000' 01S0270 00422000 BNO @RF00270 01S0270 00423000 * GENERATE CODE(FREEPOOL (RA)); 01S0271 00424000 FREEPOOL (RA) 00425000 * ZZ2ITREC=ZZZFLAGT; /* DUMP FORCED CLOSED @ZA32005*/ 00426000 @RF00270 MVC ZZ2ITREC(3,R9),@CF00052+1 01S0272 00427000 * END; /* OPEN EXIT DETECTED AN ERROR */ 00428000 * ELSE /* NO ERROR DETECTED @ZA32005*/ 00429000 * DCBEXLSA=0; /* NO EXIT LIST @ZA32005*/ 00430000 B @RC00263 01S0274 00431000 @RF00263 SLR @14,@14 01S0274 00432000 STCM @14,7,DCBEXLSA+28(RA) 01S0274 00433000 * END; /* DUMP OPEN @ZA32005*/ 00434000 * ELSE /* UNABLE TO OPEN */ 00435000 * CALL BLSUTRMV(ZZ2,M133); /* TRANSMIT MESSAGE M133 */ 00436000 B @RC00261 01S0276 00437000 @RF00261 ST R9,@AL00001 01S0276 00438000 LA @14,M133 01S0276 00439000 ST @14,@AL00001+4 01S0276 00440000 L @15,ZZ2TRMVP(,R9) 01S0276 00441000 LA @01,@AL00001 01S0276 00442000 BALR @14,@15 01S0276 00443000 * END E100; 01S0277 00444000 @EL00002 DS 0H 01S0277 00445000 @EF00002 DS 0H 01S0277 00446000 @ER00002 LM @14,@12,@SA00002 01S0277 00447000 BR @14 01S0277 00448000 SPACE 1 00449000 * 01S0278 00450000 */*------------------------------------------------------------------*/ 00451000 */* E200--PREPARE INTER-TASK DATA */ 00452000 */*------------------------------------------------------------------*/ 00453000 * 01S0278 00454000 *E200: /* PREPARE INTER-TASK DATA */ 00455000 * PROCEDURE; 01S0278 00456000 E200 STM @14,@12,12(@13) 01S0278 00457000 * ZZ2ITRE=0; /* CLEAR SERVICE REQUEST ECB */ 00458000 SLR @14,@14 01S0279 00459000 ST @14,ZZ2ITRE(,R9) 01S0279 00460000 * ZZ2ITR2P=ZZ1ZZ2P; /* ->MASTER TASK VARIABLE */ 00461000 L @14,ZZ2ZZ1P(,R9) 01S0280 00462000 MVC ZZ2ITR2P(4,R9),ZZ1ZZ2P(@14) 01S0280 00463000 * END E200; 01S0281 00464000 @EL00003 DS 0H 01S0281 00465000 @EF00003 DS 0H 01S0281 00466000 @ER00003 LM @14,@12,12(@13) 01S0281 00467000 BR @14 01S0281 00468000 SPACE 1 00469000 * 01S0282 00470000 */*------------------------------------------------------------------*/ 00471000 */* E300--REQUEST INTER-TASK SERVICE */ 00472000 */*------------------------------------------------------------------*/ 00473000 * 01S0282 00474000 *E300: /* REQUEST INTER-TASK SERVICE */ 00475000 * PROCEDURE; 01S0282 00476000 E300 STM @14,@12,12(@13) 01S0282 00477000 * DO; /*POST (ZZ1ZZ2P->ZZ2ITSE)*/ 01S0283 00478000 * RESPECIFY (GPR00F,GPR01P) RESTRICTED; 01S0284 00479000 * GPR00F = 0; /* POST CODE IN R0*/ 01S0285 00480000 SLR GPR00F,GPR00F 01S0285 00481000 * GPR01P = ADDR(ZZ1ZZ2P->ZZ2ITSE); /*ECB ADDRESS*/ 01S0286 00482000 L @14,ZZ2ZZ1P(,R9) 01S0286 00483000 L GPR01P,ZZ1ZZ2P(,@14) 01S0286 00484000 LA GPR01P,ZZ2ITSE(,GPR01P) 01S0286 00485000 * SVC (2); /*ISSUE POST SVC*/ 01S0287 00486000 SVC 2 01S0287 00487000 * RESPECIFY (GPR00F,GPR01P) UNRESTRICTED; 01S0288 00488000 * END; /*POST (ZZ1ZZ2P->ZZ2ITSE)*/ 01S0289 00489000 * DO; /* WAIT ECB(ZZ2ITRE) */ 01S0290 00490000 * RESPECIFY (GPR00P,GPR01P) RESTRICTED; 01S0291 00491000 * GPR00P = 1; /* LOAD WAIT COUNT */ 01S0292 00492000 LA GPR00P,1 01S0292 00493000 * GPR01P = ADDR(ZZ2ITRE); /* ADDRESS OF ECB */ 01S0293 00494000 LA GPR01P,ZZ2ITRE(,R9) 01S0293 00495000 * SVC(1); /* WAIT SVC */ 01S0294 00496000 SVC 1 01S0294 00497000 * RESPECIFY (GPR00P,GPR01P) UNRESTRICTED; 01S0295 00498000 * END; /* WAIT ECB(ZZ2ITRE) */ 01S0296 00499000 * END E300; 01S0297 00500000 * 01S0297 00501000 @EL00004 DS 0H 01S0297 00502000 @EF00004 DS 0H 01S0297 00503000 @ER00004 LM @14,@12,12(@13) 01S0297 00504000 BR @14 01S0297 00505000 */*------------------------------------------------------------------*/ 00506000 */* E400--DCB OPEN EXIT @ZA32005*/ 00507000 */*------------------------------------------------------------------*/ 00508000 * 01S0298 00509000 *E400: /* DCB OPEN EXIT @ZA32005*/ 00510000 * PROCEDURE OPTIONS(NOSAVE,NOSAVEAREA); 01S0298 00511000 E400 DS 0H 01S0299 00512000 * RESPECIFY 01S0299 00513000 * (R1, /* ->DUMP DCB @ZA32005*/ 00514000 * RE) RESTRICTED; /* ->RETURN POINT (SVC 3 IN CVT) */ 00515000 * GENERATE CODE; 01S0300 00516000 PUSH USING /* SAVE MAINLINE REGISTER DATA */ 00517000 DROP , /* MAINLINE REGISTERS NOT USED */ 00518000 USING E400,RF /* SUBROUTINE OF OPEN PROCESSING */ 00519000 * RA=R1; /* ->DUMP DCB @ZA32005*/ 00520000 LR RA,R1 01S0301 00521000 * RESPECIFY 01S0302 00522000 * (R1) UNRESTRICTED; /* ->DUMP DCB @ZA32005*/ 00523000 * IF /* DETECT UNSUPPORTED DATA SETS */ 00524000 * DCBRECL='11'B| /* RECFM=U NOT SUPPORTED @ZA32005*/ 00525000 * DCBRECL='01'B| /* RECFM=V NOT SUPPORTED @ZA32005*/ 00526000 * (DCBBLKSI^=0&DCBBLKSI^=BLKSIZE) THEN/* BLOCK SIZE @ZA32005*/ 00527000 LA @08,28 01S0303 00528000 ALR @08,RA 01S0303 00529000 TM DCBRECL(@08),B'11000000' 01S0303 00530000 BO @RT00303 01S0303 00531000 TM DCBRECL(@08),B'01000000' 01S0303 00532000 BNO @GL00002 01S0303 00533000 TM DCBRECL(@08),B'10000000' 01S0303 00534000 BZ @RT00303 01S0303 00535000 @GL00002 LH @08,DCBBLKSI+52(,RA) 01S0303 00536000 LTR @08,@08 01S0303 00537000 BZ @RF00303 01S0303 00538000 CH @08,@CH00468 01S0303 00539000 BE @RF00303 01S0303 00540000 @RT00303 DS 0H 01S0304 00541000 * ZZ6FDUOP=ZZZ1; /* BLSRDUOP DETECTED AN ERROR */ 00542000 OI ZZ6FDUOP(RA),B'10000000' 01S0304 00543000 * ELSE /* CHARACTERISTICS ACCEPTABLE */ 00544000 * 01S0305 00545000 * /***************************************************************/ 00546000 * /* */ 00547000 * /* CHARACTERISTICS ACCEPTABLE */ 00548000 * /* */ 00549000 * /***************************************************************/ 00550000 * 01S0305 00551000 * DO; /* CHARACTERISTICS ACCEPTABLE */ 00552000 B @RC00303 01S0305 00553000 @RF00303 DS 0H 01S0306 00554000 * DCBRECL='10'B; /* RECFM=F @ZA32005*/ 00555000 LA @08,28 01S0306 00556000 ALR @08,RA 01S0306 00557000 NI DCBRECL(@08),B'10111111' 01S0306 00558000 OI DCBRECL(@08),B'10000000' 01S0306 00559000 * DCBRECBR=ZZZ0; /* UNBLOCKED @ZA32005*/ 00560000 NI DCBRECBR(@08),B'11101111' 01S0307 00561000 * DCBBLKSI=BLKSIZE; /* BLOCK SIZE @ZA32005*/ 00562000 MVC DCBBLKSI+52(2,RA),@CH00468 01S0308 00563000 * END; /* CHARACTERISTICS ACCEPTABLE */ 00564000 * GENERATE CODE(DROP RF); 01S0310 00565000 @RC00303 DS 0H 01S0310 00566000 DROP RF 00567000 * GENERATE CODE(POP USING); 01S0311 00568000 POP USING 00569000 * RESPECIFY 01S0312 00570000 * (RE) UNRESTRICTED; /* ->RETURN POINT (SVC 3 IN CVT) */ 00571000 * END E400; 01S0313 00572000 * 01S0313 00573000 @EL00005 DS 0H 01S0313 00574000 @EF00005 DS 0H 01S0313 00575000 @ER00005 BR @14 01S0313 00576000 */*BLSRPEND--DEBUGGING MODULE*/ 01S0314 00577000 * 01S0314 00578000 */*BLSUPEND--MVS IPCS MODULE*/ 01S0314 00579000 * 01S0314 00580000 * 01S0314 00581000 * 01S0314 00582000 * DECLARE /*GENERAL PURPOSE REGISTERS */ 01S0314 00583000 * GPR00F FIXED(31) REG(0), 01S0314 00584000 * GPR01F FIXED(31) REG(1), 01S0314 00585000 * GPR00P PTR(31) REG(0), 01S0314 00586000 * GPR01P PTR(31) REG(1); 01S0314 00587000 * 01S0314 00588000 * DECLARE /* COMMON VARIABLES */ 01S0315 00589000 * I256C CHAR(256) BASED, 01S0315 00590000 * I031F FIXED(31) BASED, 01S0315 00591000 * I031P PTR(31) BASED, 01S0315 00592000 * I015F FIXED(15) BASED, 01S0315 00593000 * I015P PTR(15) BASED, 01S0315 00594000 * I008P PTR(8) BASED, 01S0315 00595000 * I001C CHAR(1) BASED; 01S0315 00596000 * GENERATE NODEFS NOREFS DATA; 01S0316 00597000 * END BLSRDUOP /*BLRPEND(BLSRDUOP) */ 01S0317 00598000 */* THE FOLLOWING INCLUDE STATEMENTS WERE FOUND IN THIS PROGRAM. * 00599000 */*%INCLUDE SYSLIB (BLSRZZZ ) * 00600000 */*%INCLUDE SYSLIB (BLSUZZZ ) * 00601000 */*%INCLUDE SYSLIB (BLRFULL ) * 00602000 */*%INCLUDE SYSLIB (IKJCPPL ) * 00603000 */*%INCLUDE SYSLIB (IKJPSCB ) * 00604000 */*%INCLUDE SYSLIB (IKJECT ) * 00605000 */*%INCLUDE SYSLIB (IKJUPT ) * 00606000 */*%INCLUDE SYSLIB (BLSUSERV) * 00607000 */*%INCLUDE SYSLIB (BLRSERV ) * 00608000 */*%INCLUDE SYSLIB (BLRSERVD) * 00609000 */*%INCLUDE SYSLIB (BLSRSERV) * 00610000 */*%INCLUDE SYSLIB (IHADCBDF) * 00611000 */*%INCLUDE SYSLIB (IHADCB ) * 00612000 *; 01S0317 00613000 @EL00001 L @13,4(,@13) 01S0317 00614000 @EF00001 L @00,@SIZDATD 01S0317 00615000 LR @01,@11 01S0317 00616000 BLSUFRER R,LV=(0),A=(1) 00617000 @ER00001 LM @14,@12,12(@13) 01S0317 00618000 BR @14 01S0317 00619000 @DATA DS 0H 00620000 @CH00049 DC H'8' 00621000 @CH00213 DC H'64' 00622000 @CH00468 DC H'4104' 00623000 @DATD DSECT 00624000 DS 0F 00625000 @SA00001 DS 18F 00626000 @SA00002 DS 15F 00627000 @AL00001 DS 2A 00628000 BLSRDUOP CSECT 00629000 DS 0F 00630000 @CF00052 DC F'16' 00631000 @CH00052 EQU @CF00052+2 00632000 @DATD DSECT 00633000 DS 0D 00634000 ESAU DS CL694 00635000 ORG ESAU 00636000 ESAURID DS CL2 00637000 @NM00082 DS BL6 00638000 @NM00083 DS CL8 00639000 @NM00084 DS BL8 00640000 ESAURDX DS FL4 00641000 ESAUSYM DS CL31 00642000 ESAUELK DS 0C 00643000 ESAURV1 DS CL1 00644000 ESAUAS DS CL16 00645000 ORG ESAUAS 00646000 ESAUAS0 DS 0C 00647000 ESAUAST DS CL2 00648000 @NM00085 DS BL2 00649000 ESAUAS1 DS FL4 00650000 ESAUAS2 DS FL4 00651000 @NM00086 DS BL4 00652000 ESAUAS9 DS 0C 00653000 ORG ESAU+76 00654000 ESAULAD DS AL4 00655000 ESAUD DS CL60 00656000 ORG ESAUD 00657000 ESAUD00 DS 0C 00658000 ESAUDOF DS FL4 00659000 ESAUDLE DS FL4 00660000 ESAUDOB DS FL1 00661000 ESAUDLB DS FL1 00662000 ESAUDT DS CL34 00663000 ORG ESAUDT 00664000 ESAUDT0 DS 0C 00665000 ESAUDTY DS CL1 00666000 @NM00087 DS BL1 00667000 ESAUDTD DS CL31 00668000 ESAUDTE DS CL1 00669000 ESAUDT9 DS 0C 00670000 ORG ESAUD+44 00671000 ESAUDIM DS FL4 00672000 ESAUDIL DS FL4 00673000 ESAUDF DS BL4 00674000 ORG ESAUDF 00675000 ESAUDFA DS BL1 00676000 @NM00088 EQU ESAUDF+0 00677000 ORG ESAUD+56 00678000 @NM00089 DS BL4 00679000 ESAUD99 DS 0C 00680000 ORG ESAU+140 00681000 ESAUMAD DS AL4 00682000 @NM00090 DS BL16 00683000 ESAUKEY DS BL1 00684000 ESAUF DS BL3 00685000 ORG ESAUF 00686000 ESAUFS DS BL1 00687000 ORG ESAUFS 00688000 ESAUFSC DS BL1 00689000 ESAUFS2 EQU ESAUFS+0 00690000 ESAUFSM EQU ESAUFS+0 00691000 ESAUFSA EQU ESAUFS+0 00692000 ESAUFSP EQU ESAUFS+0 00693000 ESAUFSR EQU ESAUFS+0 00694000 ESAUFSX EQU ESAUFS+0 00695000 ESAUFSS EQU ESAUFS+0 00696000 ORG ESAUF+1 00697000 ESAUFC DS BL1 00698000 ORG ESAUFC 00699000 ESAUFCD DS BL1 00700000 @NM00091 EQU ESAUFC+0 00701000 ORG ESAUF+2 00702000 @NM00092 DS BL1 00703000 ORG ESAU+164 00704000 ESAUABS DS FL4 00705000 @NM00093 DS BL12 00706000 ESAUR DS CL514 00707000 ORG ESAUR 00708000 ESAURL DS FL2 00709000 ESAURT DS CL512 00710000 ORG ESAURT 00711000 ESAURT1 DS CL512 00712000 ORG ESAU+694 00713000 ESAU999 DS 0C 00714000 ORG ESAU+694 00715000 FLAG DS BL1 00716000 ORG FLAG 00717000 FLAGNEW DS BL1 00718000 FLAGQSAM EQU FLAG+0 00719000 @NM00111 EQU FLAG+0 00720000 ORG FLAG+1 00721000 BLSRDUOP CSECT 00722000 DS 0F 00723000 @SIZDATD DC AL1(0) 00724000 DC AL3(@ENDDATD-@DATD) 00725000 DS 0D 00726000 @CC01294 DC C'BLSRRDGE' 00727000 @CC01297 DC C'BLSRDUDR' 00728000 @CC01298 DC C'BLSRRDPU' 00729000 @CC01300 DC C'BLSRDUIN' 00730000 @CC01309 DC C'BLSRRDAR' 00731000 DTPRIV DS CL34 00732000 ORG DTPRIV 00733000 DTPRIV0 DS 0C 00734000 DTPRIVY DC CL1'U' 00735000 @NM00081 DC X'00' 00736000 DTPRIVD DC CL31'PRIVATE' 00737000 DTPRIVE DC CL1' ' 00738000 DTPRIV9 DS 0C 00739000 ORG DTPRIV+34 00740000 M133 DS CL42 00741000 ORG M133 00742000 M133L DC AL2(42) 00743000 @NM00109 DC X'0000' 00744000 M133T DS CL38 00745000 ORG M133T 00746000 M133TA DC CL38'BLS18133I UNABLE TO OPEN DUMP DATA SET' 00747000 ORG M133+42 00748000 M151 DS CL53 00749000 ORG M151 00750000 M151L DC AL2(53) 00751000 @NM00110 DC X'0000' 00752000 M151T DS CL49 00753000 ORG M151T 00754000 M151TA DC CL49'BLS18151I DATA SET ATTRIBUTES NOT THOSE OF A DUMP' 00755000 ORG M151+53 00756000 DS CL3 00757000 EXLST DS CL4 00758000 ORG EXLST 00759000 EXLSTO DC X'85' 00760000 EXLSTP DC AL3(E400) 00761000 ORG EXLST+4 00762000 @DATD DSECT 00763000 SPACE 2 00764000 *********************************************************************** 00765000 * THE FOLLOWING AREA, BLRPATCH, IS RESERVED FOR PATCH APPLICATION * 00766000 * TO OBTAIN PATCH ROOM IN THE @DATD AUTOMATIC STORAGE AREA, MODIFY * 00767000 * CONSTANT @SIZDATD TO REFLECT THE DESIRED @DATD SIZE * 00768000 *********************************************************************** 00769000 SPACE 00770000 BLSRDUOP CSECT 00771000 ORG 00772000 DS 0D 00773000 BLRPATCH DC CL8'ZAPAREA',(((*-BLSRDUOP+19)/20+7)/8)CL8'BLSRDUOP' 00774000 @DATD DSECT 00775000 DS 0H 00776000 @DATD DSECT 00777000 BLSRDUOP CSECT STATIC STORAGE CONTROL SECTION 00778000 SPACE 00779000 *------- MODEL BDAM DCB ----------------------------------------------* 00780000 SDDCB DCB MACRF=(RIC),DSORG=DA,OPTCD=R,EXLST=EXLST,RECFM=F 00781000 SDDCBEND DS 0D END OF MODEL BDAM DCB 00782000 SPACE 00783000 *------- MODEL QSAM DCB ----------------------------------------------* 00784000 SQDCB DCB BUFNO=8,DEVD=DA,DSORG=PS,EODAD=0,EXLST=EXLST, *00785000 EROPT=ACC,MACRF=(GL),OPTCD=C 00786000 SQDCBEND DS 0D END OF MODEL QSAM DCB 00787000 SPACE 00788000 *------- PARAMETER LIST IMAGES ---------------------------------------* 00789000 SDATA DS 0F STATIC STORAGE DATA 00790000 SOPEN OPEN (,),MF=L OPEN PARAMETER LIST IMAGE 00791000 SDATAEND DS 0F END OF SDATA 00792000 @DATD DSECT 00793000 SPACE 00794000 *------- PARAMETER LISTS ---------------------------------------------* 00795000 ADATA DS 0F AUTOMATIC STORAGE DATA 00796000 AOPCL OPEN (,),MF=L OPEN PARAMETER LIST 00797000 ADATAEND DS 0F END OF ADATA 00798000 @DATD DSECT 00799000 SPACE 2 00800000 *********************************************************************** 00801000 * ALIGN END OF DATA ON A DOUBLEWORD BOUNDARY * 00802000 *********************************************************************** 00803000 SPACE 00804000 DS 0D 00805000 @DATD DSECT 00806000 ORG *+1-(*-@DATD)/(*-@DATD) INSURE DSECT DATA 00807000 @ENDDATD EQU * 00808000 BLSRDUOP CSECT 00809000 @00 EQU 00 EQUATES FOR REGISTERS 0-15 00810000 @01 EQU 01 00811000 @02 EQU 02 00812000 @03 EQU 03 00813000 @04 EQU 04 00814000 @05 EQU 05 00815000 @06 EQU 06 00816000 @07 EQU 07 00817000 @08 EQU 08 00818000 @09 EQU 09 00819000 @10 EQU 10 00820000 @11 EQU 11 00821000 @12 EQU 12 00822000 @13 EQU 13 00823000 @14 EQU 14 00824000 @15 EQU 15 00825000 RETC EQU @04 00826000 BVTPTR EQU @06 00827000 R9 EQU @09 00828000 R0 EQU @00 00829000 R1 EQU @01 00830000 R2 EQU @02 00831000 R3 EQU @03 00832000 R4 EQU @04 00833000 R5 EQU @05 00834000 RA EQU @10 00835000 RB EQU @11 00836000 RD EQU @13 00837000 RE EQU @14 00838000 RF EQU @15 00839000 GPR01P EQU @01 00840000 GPR01F EQU @01 00841000 GPR00F EQU @00 00842000 GPR00P EQU @00 00843000 RC EQU @12 00844000 R6 EQU @06 00845000 R7 EQU @07 00846000 R8 EQU @08 00847000 ZZ1 EQU 0 00848000 ZZ1ZZ2P EQU ZZ1+36 00849000 ZZ1ATTN EQU ZZ1+360 00850000 ZZ1EVE EQU ZZ1ATTN+4 00851000 ZZ1F EQU ZZ1+368 00852000 ZZ1N EQU ZZ1+1116 00853000 ZZ2 EQU 0 00854000 ZZ2AMD EQU ZZ2 00855000 @NM00015 EQU ZZ2AMD+7 00856000 ZZ2PRT EQU ZZ2+138 00857000 ZZ2PRTT EQU ZZ2PRT+4 00858000 ZZ2PRTT1 EQU ZZ2PRTT+1 00859000 ZZ2A EQU ZZ2+272 00860000 ZZ2AF EQU ZZ2A+16 00861000 ZZ2APID EQU ZZ2A+64 00862000 ZZ2AD EQU ZZ2A+74 00863000 ZZ2ADD EQU ZZ2AD 00864000 ZZ2ADDT EQU ZZ2ADD+2 00865000 ZZ2ADM EQU ZZ2AD+46 00866000 ZZ2ADMT EQU ZZ2ADM+2 00867000 ZZ2ADP EQU ZZ2AD+56 00868000 ZZ2ADPT EQU ZZ2ADP+2 00869000 ZZ2AZZ6P EQU ZZ2A+140 00870000 ZZ2AQAS EQU ZZ2A+144 00871000 ZZ2AQD EQU ZZ2A+160 00872000 ZZ2AQDT EQU ZZ2AQD+10 00873000 ZZ2AQDF EQU ZZ2AQD+52 00874000 ZZ2STG EQU ZZ2+960 00875000 ZZ2ALLOP EQU ZZ2+992 00876000 ZZ2FREEP EQU ZZ2+996 00877000 ZZ2FF19P EQU ZZ2+1000 00878000 ZZ2FRE1P EQU ZZ2+1004 00879000 ZZ2FF18P EQU ZZ2+1008 00880000 ZZ2DYNAP EQU ZZ2+1012 00881000 ZZ2ZZ2CP EQU ZZ2+1016 00882000 ZZ2ZZ2DP EQU ZZ2+1020 00883000 ZZ2STAIP EQU ZZ2+1024 00884000 ZZ2FF02P EQU ZZ2+1028 00885000 ZZ2GETLP EQU ZZ2+1032 00886000 ZZ2PARSP EQU ZZ2+1036 00887000 ZZ2PTGTP EQU ZZ2+1040 00888000 ZZ2PUTLP EQU ZZ2+1044 00889000 ZZ2SCANP EQU ZZ2+1048 00890000 ZZ2STCKP EQU ZZ2+1052 00891000 ZZ2TRMOP EQU ZZ2+1064 00892000 ZZ2TRMVP EQU ZZ2+1068 00893000 ZZ2PUTNP EQU ZZ2+1084 00894000 ZZ2TRMNP EQU ZZ2+1088 00895000 ZZ2ZZ1P EQU ZZ2+1264 00896000 ZZ2BVTP EQU ZZ2+1280 00897000 ZZ2RVTP EQU ZZ2+1284 00898000 ZZ2CPPL EQU ZZ2+1292 00899000 ZZ2CPPLC EQU ZZ2CPPL 00900000 ZZ2PGM EQU ZZ2+1536 00901000 ZZ2F EQU ZZ2+2824 00902000 ZZ2ITR EQU ZZ2+2840 00903000 ZZ2ITRPP EQU ZZ2ITR 00904000 ZZ2ITR2P EQU ZZ2ITR+4 00905000 ZZ2ITRRC EQU ZZ2ITR+8 00906000 ZZ2ITRE EQU ZZ2ITR+16 00907000 ZZ2ITREC EQU ZZ2ITRE+1 00908000 ZZ2ITSE EQU ZZ2+2864 00909000 ZZ2ES EQU ZZ2+2872 00910000 ZZ2AMDX EQU ZZ2+7160 00911000 ZZ2AXO EQU ZZ2+7934 00912000 ZZ2AXOT EQU ZZ2AXO+2 00913000 CMD EQU 0 00914000 CMDT EQU CMD+4 00915000 PSCB EQU 0 00916000 PSCBATR1 EQU PSCB+16 00917000 ECT EQU 0 00918000 ECTSWS EQU ECT+28 00919000 ECTSWS2 EQU ECT+40 00920000 ECTSWS21 EQU ECTSWS2 00921000 UPT EQU 0 00922000 UPTSWS EQU UPT+12 00923000 SA EQU 0 00924000 SA1 EQU SA 00925000 SAR EQU SA+12 00926000 SAR1 EQU SAR+12 00927000 BLSUPGMC EQU 0 00928000 BLSUPGMR EQU 0 00929000 BLSUTRMV EQU 0 00930000 BVT EQU 0 00931000 BVTPUTLP EQU BVT+4 00932000 BVTPUTOP EQU BVT+12 00933000 BVTPUTTP EQU BVT+16 00934000 BVTPUTVP EQU BVT+20 00935000 BVTPUTAP EQU BVT+24 00936000 BVTPRTTP EQU BVT+28 00937000 BVTPRTAP EQU BVT+32 00938000 BVTPUTDP EQU BVT+36 00939000 BVTMONP EQU BVT+40 00940000 BVTMON2P EQU BVT+44 00941000 BVTVSARP EQU BVT+48 00942000 BVTVSENP EQU BVT+64 00943000 BVTVSERP EQU BVT+68 00944000 BVTVSGEP EQU BVT+72 00945000 BVTVSGUP EQU BVT+76 00946000 BVTVSPOP EQU BVT+80 00947000 BVTVSPUP EQU BVT+84 00948000 BVTMPKNP EQU BVT+104 00949000 BVTMONLP EQU BVT+108 00950000 BVTPUTCP EQU BVT+132 00951000 BVTMPK1P EQU BVT+136 00952000 BVTZZ2RP EQU BVT+140 00953000 BVTPGMRP EQU BVT+144 00954000 BVTMONAP EQU BVT+148 00955000 BVTBLDDP EQU BVT+152 00956000 BVTBLDLP EQU BVT+156 00957000 BVTPGMCP EQU BVT+160 00958000 BVTPGMDP EQU BVT+164 00959000 BVTPGMLP EQU BVT+168 00960000 BVTMONCP EQU BVT+180 00961000 BVTMONDP EQU BVT+184 00962000 BVTMONTP EQU BVT+188 00963000 BVTPARIP EQU BVT+192 00964000 BVTPARUP EQU BVT+196 00965000 BVTPRTNP EQU BVT+204 00966000 BVTVSCRP EQU BVT+208 00967000 BVTVSMRP EQU BVT+212 00968000 BVTMONXP EQU BVT+216 00969000 BVTTRMAP EQU BVT+228 00970000 ZZ6 EQU 0 00971000 ZZ6D EQU ZZ6+128 00972000 ZZ6DD EQU ZZ6D+8 00973000 ZZ6DDT EQU ZZ6DD+4 00974000 ZZ6DQA EQU ZZ6D+68 00975000 ZZ6DF EQU ZZ6D+92 00976000 ZZ6DDA2 EQU ZZ6D+104 00977000 ZZ6F EQU ZZ6+504 00978000 ZZ6FDUOP EQU ZZ6F 00979000 ZZ6FINIT EQU ZZ6F 00980000 ZZ6BUFN EQU ZZ6+516 00981000 ZZ6BUFL EQU ZZ6+518 00982000 ZZ6FILE EQU ZZ6+524 00983000 ZZ6BUFP EQU ZZ6+532 00984000 ZZ6B EQU ZZ6+768 00985000 BLSRESGU EQU 0 00986000 RVT EQU 0 00987000 RVTADDRP EQU RVT 00988000 RVTT01P EQU RVT+4 00989000 RVTTAP EQU RVT+8 00990000 RVTTBP EQU RVT+12 00991000 RVTTCP EQU RVT+16 00992000 RVTTFP EQU RVT+24 00993000 RVTTYP EQU RVT+40 00994000 RVTT02P EQU RVT+48 00995000 RVTT03P EQU RVT+52 00996000 RVTT04P EQU RVT+56 00997000 RVTACCLP EQU RVT+60 00998000 RVTRACCP EQU RVT+64 00999000 RVTTLP EQU RVT+68 01000000 RVTTMP EQU RVT+72 01001000 RVTTUP EQU RVT+80 01002000 RVTESGEP EQU RVT+84 01003000 RVTESGUP EQU RVT+88 01004000 RVTESARP EQU RVT+92 01005000 RVTRAARP EQU RVT+96 01006000 RVTRAGEP EQU RVT+100 01007000 RVTADDPP EQU RVT+104 01008000 RVTACCQP EQU RVT+108 01009000 RVTSAGUP EQU RVT+124 01010000 RVTSAGEP EQU RVT+128 01011000 RVTESCKP EQU RVT+132 01012000 RVTMSGAP EQU RVT+136 01013000 RVTMSGDP EQU RVT+140 01014000 RVTADDTP EQU RVT+160 01015000 RVTADDUP EQU RVT+164 01016000 RVTADD1P EQU RVT+176 01017000 RVTADD2P EQU RVT+180 01018000 RVTRSAGP EQU RVT+184 01019000 RVTMSGBP EQU RVT+188 01020000 RVTADDSP EQU RVT+192 01021000 RVTADD3P EQU RVT+196 01022000 RVTT05P EQU RVT+200 01023000 RVTPADSP EQU RVT+204 01024000 RVTTRP EQU RVT+228 01025000 RVTADD4P EQU RVT+232 01026000 RVTSAPCP EQU RVT+236 01027000 RVTSAARP EQU RVT+240 01028000 RVTSAGNP EQU RVT+244 01029000 RVTT06P EQU RVT+248 01030000 RVTSAGCP EQU RVT+252 01031000 RVTSAGQP EQU RVT+256 01032000 RVTESGCP EQU RVT+260 01033000 RVTESGQP EQU RVT+264 01034000 RVTDUCKP EQU RVT+276 01035000 RVTDUCCP EQU RVT+280 01036000 IHADCB EQU 0 01037000 IHADCS00 EQU 0 01038000 DCBFDAD EQU IHADCS00+5 01039000 IHADCS01 EQU 0 01040000 DCBDVTBL EQU IHADCS01 01041000 IHADCS11 EQU 0 01042000 DCBRELB EQU IHADCS11 01043000 DCBREL EQU DCBRELB+1 01044000 DCBBUFCB EQU IHADCS11+4 01045000 DCBDSORG EQU IHADCS11+10 01046000 DCBDSRG1 EQU DCBDSORG 01047000 DCBDSRG2 EQU DCBDSORG+1 01048000 DCBIOBAD EQU IHADCS11+12 01049000 DCBODEB EQU DCBIOBAD 01050000 DCBLNP EQU DCBODEB 01051000 DCBQSLM EQU DCBLNP 01052000 DCBIOBAA EQU DCBODEB+1 01053000 IHADCS50 EQU 0 01054000 DCBSVCXL EQU IHADCS50 01055000 DCBEODAD EQU IHADCS50+4 01056000 DCBBFALN EQU DCBEODAD 01057000 DCBHIARC EQU DCBBFALN 01058000 DCBBFTEK EQU DCBHIARC 01059000 DCBBFT EQU DCBBFTEK 01060000 DCBEXLST EQU IHADCS50+8 01061000 DCBRECFM EQU DCBEXLST 01062000 DCBRECLA EQU DCBRECFM 01063000 DCBRECL EQU DCBRECLA 01064000 DCBRECBR EQU DCBRECFM 01065000 DCBEXLSA EQU DCBEXLST+1 01066000 IHADCS24 EQU 0 01067000 DCBDDNAM EQU IHADCS24 01068000 DCBOFLGS EQU IHADCS24+8 01069000 DCBOFLWR EQU DCBOFLGS 01070000 DCBIFLG EQU IHADCS24+9 01071000 DCBIBPCT EQU DCBIFLG 01072000 DCBMACR EQU IHADCS24+10 01073000 DCBMACR1 EQU DCBMACR 01074000 DCBMRFE EQU DCBMACR1 01075000 DCBMRGET EQU DCBMRFE 01076000 DCBMRAPG EQU DCBMACR1 01077000 DCBMRRD EQU DCBMRAPG 01078000 DCBMRCI EQU DCBMACR1 01079000 DCBMRMVG EQU DCBMRCI 01080000 DCBMRLCG EQU DCBMACR1 01081000 DCBMRABC EQU DCBMACR1 01082000 DCBMRPT1 EQU DCBMRABC 01083000 DCBMRSBG EQU DCBMRPT1 01084000 DCBMRCRL EQU DCBMACR1 01085000 DCBMRCHK EQU DCBMRCRL 01086000 DCBMRRDX EQU DCBMRCHK 01087000 DCBMRDMG EQU DCBMACR1 01088000 DCBMACR2 EQU DCBMACR+1 01089000 DCBMRPUT EQU DCBMACR2 01090000 DCBMRWRT EQU DCBMACR2 01091000 DCBMRMVP EQU DCBMACR2 01092000 DCBMR5WD EQU DCBMACR2 01093000 DCBMRLDM EQU DCBMR5WD 01094000 DCBMRLCP EQU DCBMRLDM 01095000 DCBMR4WD EQU DCBMACR2 01096000 DCBMRPT2 EQU DCBMR4WD 01097000 DCBMRTMD EQU DCBMRPT2 01098000 DCBMR3WD EQU DCBMACR2 01099000 DCBMRCTL EQU DCBMR3WD 01100000 DCBMRSTK EQU DCBMRCTL 01101000 DCBMR1WD EQU DCBMACR2 01102000 DCBMRSWA EQU DCBMR1WD 01103000 DCBMRDMD EQU DCBMRSWA 01104000 IHADCS25 EQU 0 01105000 DCBMACRF EQU IHADCS25+2 01106000 DCBMACF1 EQU DCBMACRF 01107000 DCBMFFE EQU DCBMACF1 01108000 DCBMFGET EQU DCBMFFE 01109000 DCBMFAPG EQU DCBMACF1 01110000 DCBMFRD EQU DCBMFAPG 01111000 DCBMFCI EQU DCBMACF1 01112000 DCBMFMVG EQU DCBMFCI 01113000 DCBMFLCG EQU DCBMACF1 01114000 DCBMFABC EQU DCBMACF1 01115000 DCBMFPT1 EQU DCBMFABC 01116000 DCBMFSBG EQU DCBMFPT1 01117000 DCBMFCRL EQU DCBMACF1 01118000 DCBMFCHK EQU DCBMFCRL 01119000 DCBMFDMG EQU DCBMACF1 01120000 DCBMACF2 EQU DCBMACRF+1 01121000 DCBMFPUT EQU DCBMACF2 01122000 DCBMFWRT EQU DCBMACF2 01123000 DCBMFMVP EQU DCBMACF2 01124000 DCBMF5WD EQU DCBMACF2 01125000 DCBMFLDM EQU DCBMF5WD 01126000 DCBMFLCP EQU DCBMFLDM 01127000 DCBMF4WD EQU DCBMACF2 01128000 DCBMFPT2 EQU DCBMF4WD 01129000 DCBMFTMD EQU DCBMFPT2 01130000 DCBMF3WD EQU DCBMACF2 01131000 DCBMFCTL EQU DCBMF3WD 01132000 DCBMFSTK EQU DCBMFCTL 01133000 DCBMF1WD EQU DCBMACF2 01134000 DCBMFSWA EQU DCBMF1WD 01135000 DCBMFDMD EQU DCBMFSWA 01136000 DCBDEBAD EQU IHADCS25+4 01137000 DCBIFLGS EQU DCBDEBAD 01138000 DCBIFPCT EQU DCBIFLGS 01139000 IHADCS26 EQU 0 01140000 DCBWRITE EQU IHADCS26 01141000 DCBREAD EQU DCBWRITE 01142000 DCBWRITA EQU DCBREAD+1 01143000 IHADCS30 EQU 0 01144000 DCBCHECK EQU IHADCS30 01145000 DCBOPTCD EQU DCBCHECK 01146000 DCBBLKSI EQU IHADCS30+10 01147000 DCBXARG EQU IHADCS30+32 01148000 DCBDRDX EQU IHADCS30+36 01149000 BLSRACC EQU 0 01150000 BLSRACCL EQU 0 01151000 BLSRACCQ EQU 0 01152000 BLSRADDP EQU 0 01153000 BLSRADDR EQU 0 01154000 BLSRADDS EQU 0 01155000 BLSRADDT EQU 0 01156000 BLSRADDU EQU 0 01157000 BLSRADD1 EQU 0 01158000 BLSRADD2 EQU 0 01159000 BLSRADD3 EQU 0 01160000 BLSRADD4 EQU 0 01161000 BLSRDUCC EQU 0 01162000 BLSRDUCK EQU 0 01163000 BLSRESAR EQU 0 01164000 BLSRESCK EQU 0 01165000 BLSRESGC EQU 0 01166000 BLSRESGE EQU 0 01167000 BLSRESGQ EQU 0 01168000 BLSRMSGA EQU 0 01169000 BLSRMSGB EQU 0 01170000 BLSRMSGD EQU 0 01171000 BLSRPADS EQU 0 01172000 BLSRRAAR EQU 0 01173000 BLSRRAGE EQU 0 01174000 BLSRSAAR EQU 0 01175000 BLSRSAG EQU 0 01176000 BLSRSAGC EQU 0 01177000 BLSRSAGE EQU 0 01178000 BLSRSAGN EQU 0 01179000 BLSRSAGQ EQU 0 01180000 BLSRSAGU EQU 0 01181000 BLSRSAPC EQU 0 01182000 BLSTA EQU 0 01183000 BLSTB EQU 0 01184000 BLSTC EQU 0 01185000 BLSTF EQU 0 01186000 BLSTL EQU 0 01187000 BLSTM EQU 0 01188000 BLSTR EQU 0 01189000 BLSTU EQU 0 01190000 BLSTY EQU 0 01191000 BLST01 EQU 0 01192000 BLST02 EQU 0 01193000 BLST03 EQU 0 01194000 BLST04 EQU 0 01195000 BLST05 EQU 0 01196000 BLST06 EQU 0 01197000 BLSUALLO EQU 0 01198000 BLSUBLDD EQU 0 01199000 BLSUBLDL EQU 0 01200000 BLSUDYNA EQU 0 01201000 BLSUFREE EQU 0 01202000 BLSUFRE1 EQU 0 01203000 BLSUMON EQU 0 01204000 BLSUMONA EQU 0 01205000 BLSUMONC EQU 0 01206000 BLSUMOND EQU 0 01207000 BLSUMONL EQU 0 01208000 BLSUMONT EQU 0 01209000 BLSUMONX EQU 0 01210000 BLSUMON2 EQU 0 01211000 BLSUMPKN EQU 0 01212000 BLSUMPK1 EQU 0 01213000 BLSUPARI EQU 0 01214000 BLSUPARU EQU 0 01215000 BLSUPGMD EQU 0 01216000 BLSUPGML EQU 0 01217000 BLSUPRTA EQU 0 01218000 BLSUPRTN EQU 0 01219000 BLSUPRTT EQU 0 01220000 BLSUPUTA EQU 0 01221000 BLSUPUTC EQU 0 01222000 BLSUPUTD EQU 0 01223000 BLSUPUTL EQU 0 01224000 BLSUPUTN EQU 0 01225000 BLSUPUTO EQU 0 01226000 BLSUPUTT EQU 0 01227000 BLSUPUTV EQU 0 01228000 BLSUSTAI EQU 0 01229000 BLSUTRMA EQU 0 01230000 BLSUTRMN EQU 0 01231000 BLSUTRMO EQU 0 01232000 BLSUVSAR EQU 0 01233000 BLSUVSCR EQU 0 01234000 BLSUVSEN EQU 0 01235000 BLSUVSER EQU 0 01236000 BLSUVSGE EQU 0 01237000 BLSUVSGU EQU 0 01238000 BLSUVSMR EQU 0 01239000 BLSUVSPO EQU 0 01240000 BLSUVSPU EQU 0 01241000 BLSUZZ2C EQU 0 01242000 BLSUZZ2D EQU 0 01243000 BLSUZZ2R EQU 0 01244000 IKJEFF02 EQU 0 01245000 IKJEFF18 EQU 0 01246000 IKJEFF19 EQU 0 01247000 IKJGETL EQU 0 01248000 IKJPARS EQU 0 01249000 IKJPTGT EQU 0 01250000 IKJPUTL EQU 0 01251000 IKJSCAN EQU 0 01252000 IKJSTCK EQU 0 01253000 I001C EQU 0 01254000 I008P EQU 0 01255000 I015F EQU 0 01256000 I015P EQU 0 01257000 I031F EQU 0 01258000 I031P EQU 0 01259000 I256C EQU 0 01260000 CPPL EQU ZZ2CPPL 01261000 CPPLUPT EQU CPPL+4 01262000 CPPLPSCB EQU CPPL+8 01263000 CPPLECT EQU CPPL+12 01264000 AGO .@UNREFD START UNREFERENCED COMPONENTS 01265000 CPPLCBUF EQU CPPL 01266000 DCBDYNB EQU IHADCS30+48 01267000 DCBDFBK EQU IHADCS30+44 01268000 DCBDFOR EQU IHADCS30+40 01269000 DCBDRDXA EQU DCBDRDX+1 01270000 DCBMVXNO EQU DCBDRDX 01271000 DCBXARGA EQU DCBXARG+1 01272000 DCBXCNT EQU DCBXARG 01273000 DCBLIMCT EQU IHADCS30+29 01274000 @NM00108 EQU IHADCS30+28 01275000 DCBUQND EQU IHADCS30+24 01276000 DCBIOBUQ EQU IHADCS30+20 01277000 DCBSQND EQU IHADCS30+16 01278000 DCBIOBSQ EQU IHADCS30+12 01279000 @NM00107 EQU IHADCS30+8 01280000 DCBSYNAD EQU IHADCS30+4 01281000 DCBCHCKA EQU DCBCHECK+1 01282000 DCBOPTRB EQU DCBOPTCD 01283000 DCBOPTRE EQU DCBOPTCD 01284000 DCBOPTDB EQU DCBOPTCD 01285000 DCBOPTA EQU DCBOPTCD 01286000 DCBOPTF EQU DCBOPTCD 01287000 DCBOPTE EQU DCBOPTCD 01288000 DCBOPTTO EQU DCBOPTCD 01289000 DCBOPTW EQU DCBOPTCD 01290000 DCBREADA EQU DCBWRITA 01291000 @NM00106 EQU DCBREAD 01292000 DCBDEBA EQU DCBDEBAD+1 01293000 @NM00105 EQU DCBIFLGS 01294000 DCBIFIOE EQU DCBIFLGS 01295000 DCBCH12 EQU DCBIFPCT 01296000 DCBCH9 EQU DCBIFPCT 01297000 DCBIFEC EQU DCBIFLGS 01298000 DCBMFSTI EQU DCBMFDMD 01299000 DCBMFAWR EQU DCBMFSTK 01300000 DCBMFUIP EQU DCBMFTMD 01301000 DCBMFIDW EQU DCBMFLCP 01302000 DCBMFWRK EQU DCBMFMVP 01303000 DCBMFRDQ EQU DCBMFWRT 01304000 DCBMFGTQ EQU DCBMFPUT 01305000 DCBMFSTL EQU DCBMACF2 01306000 DCBMFCK EQU DCBMFDMG 01307000 DCBMFRDX EQU DCBMFCHK 01308000 DCBMFDBF EQU DCBMFSBG 01309000 DCBMFRDI EQU DCBMFLCG 01310000 DCBMFRDK EQU DCBMFMVG 01311000 DCBMFWRQ EQU DCBMFRD 01312000 DCBMFPTQ EQU DCBMFGET 01313000 DCBMFECP EQU DCBMACF1 01314000 DCBTIOT EQU IHADCS25 01315000 DCBMRSTI EQU DCBMRDMD 01316000 DCBMRAWR EQU DCBMRSTK 01317000 DCBMRUIP EQU DCBMRTMD 01318000 DCBMRIDW EQU DCBMRLCP 01319000 DCBMRWRK EQU DCBMRMVP 01320000 DCBMRRDQ EQU DCBMRWRT 01321000 DCBMRGTQ EQU DCBMRPUT 01322000 DCBMRSTL EQU DCBMACR2 01323000 DCBMRCK EQU DCBMRDMG 01324000 DCBPGFXA EQU DCBMRRDX 01325000 DCBMRDBF EQU DCBMRSBG 01326000 DCBMRRDI EQU DCBMRLCG 01327000 DCBMRRDK EQU DCBMRMVG 01328000 DCBMRWRQ EQU DCBMRRD 01329000 DCBMRPTQ EQU DCBMRGET 01330000 DCBMRECP EQU DCBMACR1 01331000 @NM00104 EQU DCBIFLG 01332000 DCBIBIOE EQU DCBIFLG 01333000 DCBICH12 EQU DCBIBPCT 01334000 DCBICH9 EQU DCBIBPCT 01335000 DCBIBEC EQU DCBIFLG 01336000 DCBOFIOF EQU DCBOFLGS 01337000 DCBOFUEX EQU DCBOFLGS 01338000 DCBOFTM EQU DCBOFLGS 01339000 DCBOFPPC EQU DCBOFLGS 01340000 DCBOFOPN EQU DCBOFLGS 01341000 DCBOFEOV EQU DCBOFLGS 01342000 DCBOFLRB EQU DCBOFLGS 01343000 DCBOFIOD EQU DCBOFLWR 01344000 DCBRECKL EQU DCBRECFM 01345000 DCBRECCC EQU DCBRECFM 01346000 DCBRECSB EQU DCBRECFM 01347000 DCBRECTO EQU DCBRECLA 01348000 DCBEODA EQU DCBEODAD+1 01349000 DCBBFA EQU DCBBFTEK 01350000 DCBH0 EQU DCBBFTEK 01351000 DCBBFTKD EQU DCBBFTEK 01352000 DCBBFTE EQU DCBBFT 01353000 DCBBFTKR EQU DCBBFT 01354000 DCBBFTS EQU DCBBFT 01355000 DCBH1 EQU DCBBFTEK 01356000 DCBSVCXA EQU DCBSVCXL+1 01357000 @NM00103 EQU DCBSVCXL 01358000 DCBODEBA EQU DCBIOBAA 01359000 @NM00102 EQU DCBQSLM 01360000 DCBUPDBT EQU DCBQSLM 01361000 DCBUPDCM EQU DCBQSLM 01362000 DCB1DVDS EQU DCBQSLM 01363000 @NM00101 EQU DCBDSRG2 01364000 DCBDSGTR EQU DCBDSRG2 01365000 DCBACBM EQU DCBDSRG2 01366000 @NM00100 EQU DCBDSRG2 01367000 DCBDSGTQ EQU DCBDSRG2 01368000 DCBDSGTX EQU DCBDSRG2 01369000 DCBDSGGS EQU DCBDSRG2 01370000 DCBDSGU EQU DCBDSRG1 01371000 DCBDSGPO EQU DCBDSRG1 01372000 @NM00099 EQU DCBDSRG1 01373000 @NM00098 EQU DCBDSRG1 01374000 DCBDSGCX EQU DCBDSRG1 01375000 DCBDSGDA EQU DCBDSRG1 01376000 DCBDSGPS EQU DCBDSRG1 01377000 DCBDSGIS EQU DCBDSRG1 01378000 DCBBUFL EQU IHADCS11+8 01379000 DCBBUFCA EQU DCBBUFCB+1 01380000 DCBBUFNO EQU DCBBUFCB 01381000 DCBDEVT EQU DCBREL 01382000 DCBKEYLE EQU DCBRELB 01383000 DCBTRBAL EQU IHADCS01+6 01384000 @NM00097 EQU IHADCS01+5 01385000 @NM00096 EQU IHADCS01+4 01386000 DCBDVTBA EQU DCBDVTBL+1 01387000 @NM00095 EQU DCBDVTBL 01388000 DCBKEYCN EQU IHADCS00+4 01389000 DCBRELAD EQU IHADCS00 01390000 @NM00094 EQU IHADCB 01391000 RVT99999 EQU RVT+384 01392000 RVT0096P EQU RVT+380 01393000 RVT0095P EQU RVT+376 01394000 RVT0094P EQU RVT+372 01395000 RVT0093P EQU RVT+368 01396000 RVT0092P EQU RVT+364 01397000 RVT0091P EQU RVT+360 01398000 RVT0090P EQU RVT+356 01399000 RVT0089P EQU RVT+352 01400000 RVT0088P EQU RVT+348 01401000 RVT0087P EQU RVT+344 01402000 RVT0086P EQU RVT+340 01403000 RVT0085P EQU RVT+336 01404000 RVT0084P EQU RVT+332 01405000 RVT0083P EQU RVT+328 01406000 RVT0082P EQU RVT+324 01407000 RVT0081P EQU RVT+320 01408000 RVT0080P EQU RVT+316 01409000 RVT0079P EQU RVT+312 01410000 RVT0078P EQU RVT+308 01411000 RVT0077P EQU RVT+304 01412000 RVT0076P EQU RVT+300 01413000 RVT0075P EQU RVT+296 01414000 RVT0074P EQU RVT+292 01415000 RVT0073P EQU RVT+288 01416000 RVT0072P EQU RVT+284 01417000 RVTDTUTP EQU RVT+272 01418000 RVTDTMTP EQU RVT+268 01419000 RVT0057P EQU RVT+224 01420000 RVT0056P EQU RVT+220 01421000 RVT0055P EQU RVT+216 01422000 RVT0054P EQU RVT+212 01423000 RVT0053P EQU RVT+208 01424000 RVT0044P EQU RVT+172 01425000 RVT0043P EQU RVT+168 01426000 RVT0040P EQU RVT+156 01427000 RVT0039P EQU RVT+152 01428000 RVT0038P EQU RVT+148 01429000 RVT0037P EQU RVT+144 01430000 RVT0031P EQU RVT+120 01431000 RVT0030P EQU RVT+116 01432000 RVT0029P EQU RVT+112 01433000 RVT0020P EQU RVT+76 01434000 RVT0012P EQU RVT+44 01435000 RVT0010P EQU RVT+36 01436000 RVT0009P EQU RVT+32 01437000 RVT0008P EQU RVT+28 01438000 RVT0006P EQU RVT+20 01439000 ZZ69999 EQU ZZ6+1792 01440000 ZZ6BRB EQU ZZ6B+12 01441000 ZZ6BRC EQU ZZ6B+8 01442000 @NM00080 EQU ZZ6B+6 01443000 ZZ6BFL EQU ZZ6B+4 01444000 ZZ6BDA EQU ZZ6B 01445000 @NM00079 EQU ZZ6+540 01446000 ZZ6BUFI EQU ZZ6+536 01447000 ZZ6BUFB EQU ZZ6+520 01448000 ZZ6ZZ6P EQU ZZ6+512 01449000 @NM00078 EQU ZZ6F 01450000 @NM00077 EQU ZZ6+256 01451000 ZZ6D999 EQU ZZ6D+128 01452000 @NM00076 EQU ZZ6D+116 01453000 ZZ6DCAP EQU ZZ6D+112 01454000 ZZ6DPRP EQU ZZ6D+108 01455000 ZZ6DDA1 EQU ZZ6D+100 01456000 @NM00075 EQU ZZ6DF 01457000 ZZ6DFSU EQU ZZ6DF 01458000 ZZ6DFST EQU ZZ6DF 01459000 ZZ6DFAB EQU ZZ6DF 01460000 ZZ6DFMP EQU ZZ6DF 01461000 ZZ6DFDU EQU ZZ6DF 01462000 ZZ6DFBS EQU ZZ6DF 01463000 ZZ6DQ2 EQU ZZ6D+88 01464000 ZZ6DQ1 EQU ZZ6D+84 01465000 ZZ6DQA9 EQU ZZ6DQA+16 01466000 @NM00074 EQU ZZ6DQA+12 01467000 ZZ6DQA2 EQU ZZ6DQA+8 01468000 ZZ6DQA1 EQU ZZ6DQA+4 01469000 @NM00073 EQU ZZ6DQA+2 01470000 ZZ6DQAT EQU ZZ6DQA 01471000 ZZ6DQA0 EQU ZZ6DQA 01472000 ZZ6DRDX EQU ZZ6D+64 01473000 ZZ6DELK EQU ZZ6D+64 01474000 ZZ6DMEM EQU ZZ6D+56 01475000 ZZ6DDT1 EQU ZZ6DDT 01476000 ZZ6DDO EQU ZZ6DD+2 01477000 ZZ6DDL EQU ZZ6DD 01478000 @NM00072 EQU ZZ6D+2 01479000 ZZ6DRID EQU ZZ6D 01480000 ZZ6RDCB EQU ZZ6 01481000 ZZ60000 EQU ZZ6 01482000 BVT99999 EQU BVT+256 01483000 BVT0064P EQU BVT+252 01484000 BVT0063P EQU BVT+248 01485000 BVT0062P EQU BVT+244 01486000 BVT0061P EQU BVT+240 01487000 BVT0060P EQU BVT+236 01488000 BVT0059P EQU BVT+232 01489000 BVT0057P EQU BVT+224 01490000 BVT0056P EQU BVT+220 01491000 BVTSTBLP EQU BVT+200 01492000 BVT0045P EQU BVT+176 01493000 BVT0044P EQU BVT+172 01494000 BVT0033P EQU BVT+128 01495000 BVT0032P EQU BVT+124 01496000 BVT0031P EQU BVT+120 01497000 BVT0030P EQU BVT+116 01498000 BVT0029P EQU BVT+112 01499000 BVT0026P EQU BVT+100 01500000 BVT0025P EQU BVT+96 01501000 BVT0024P EQU BVT+92 01502000 BVT0023P EQU BVT+88 01503000 BVT0016P EQU BVT+60 01504000 BVT0015P EQU BVT+56 01505000 BVT0014P EQU BVT+52 01506000 BVT0003P EQU BVT+8 01507000 BVT0001P EQU BVT 01508000 SA99 EQU SA+72 01509000 SARC EQU SAR+56 01510000 SARB EQU SAR+52 01511000 SARA EQU SAR+48 01512000 SAR9 EQU SAR+44 01513000 SAR8 EQU SAR+40 01514000 SAR7 EQU SAR+36 01515000 SAR6 EQU SAR+32 01516000 SAR5 EQU SAR+28 01517000 SAR4 EQU SAR+24 01518000 SAR3 EQU SAR+20 01519000 SAR2 EQU SAR+16 01520000 SAR0 EQU SAR+8 01521000 SARF EQU SAR+4 01522000 SARE EQU SAR 01523000 SAFWD EQU SA+8 01524000 SABAK EQU SA+4 01525000 SA1L EQU SA1+1 01526000 SA1P EQU SA1 01527000 UPTPREFL EQU UPT+23 01528000 UPTPREFX EQU UPT+16 01529000 @NM00071 EQU UPT+15 01530000 UPTLDEL EQU UPT+14 01531000 UPTCDEL EQU UPT+13 01532000 UPTWTP EQU UPTSWS 01533000 UPTMODE EQU UPTSWS 01534000 UPTALD EQU UPTSWS 01535000 UPTPAUS EQU UPTSWS 01536000 UPTNCOM EQU UPTSWS 01537000 UPTMID EQU UPTSWS 01538000 UPTNPRM EQU UPTSWS 01539000 UPTRCVR EQU UPTSWS 01540000 UPTUSER EQU UPT+2 01541000 @NM00070 EQU UPT 01542000 @NM00069 EQU ECT+52 01543000 @NM00068 EQU ECT+48 01544000 @NM00067 EQU ECT+44 01545000 @NM00066 EQU ECTSWS2+1 01546000 @NM00065 EQU ECTSWS21 01547000 ECTTABND EQU ECTSWS21 01548000 ECTDEFCS EQU ECTSWS21 01549000 ECTBKPB EQU ECT+36 01550000 ECTUSER EQU ECT+32 01551000 ECTDDNUM EQU ECT+29 01552000 ECTATTN EQU ECTSWS 01553000 ECTBKGRD EQU ECTSWS 01554000 ECTNNOT EQU ECTSWS 01555000 ECTNMAL EQU ECTSWS 01556000 ECTLOGF EQU ECTSWS 01557000 ECTATRM EQU ECTSWS 01558000 @NM00064 EQU ECTSWS 01559000 ECTNOPD EQU ECTSWS 01560000 ECTSCMD EQU ECT+20 01561000 ECTPCMD EQU ECT+12 01562000 ECTSMSG EQU ECT+9 01563000 ECTMSGF EQU ECT+8 01564000 ECTIOWA EQU ECT+4 01565000 ECTRTCD EQU ECT+1 01566000 ECTRCDF EQU ECT 01567000 PSCBU EQU PSCB+64 01568000 PSCBRSZ EQU PSCB+60 01569000 PSCBLINE EQU PSCB+59 01570000 PSCBCHAR EQU PSCB+58 01571000 PSCBUPTL EQU PSCB+56 01572000 PSCBUPT EQU PSCB+52 01573000 PSCBRLGB EQU PSCB+48 01574000 PSCBDEST EQU PSCB+40 01575000 @NM00063 EQU PSCB+36 01576000 @NM00062 EQU PSCB+32 01577000 @NM00061 EQU PSCB+28 01578000 PSCBLTI2 EQU PSCB+24 01579000 PSCBLTIM EQU PSCB+20 01580000 PSCBATR2 EQU PSCB+18 01581000 @NM00060 EQU PSCBATR1 01582000 @NM00059 EQU PSCBATR1 01583000 @NM00058 EQU PSCBATR1 01584000 PSCBATTN EQU PSCBATR1 01585000 PSCBVMNT EQU PSCBATR1 01586000 PSCBJCL EQU PSCBATR1 01587000 PSCBACCT EQU PSCBATR1 01588000 PSCBCTRL EQU PSCBATR1 01589000 PSCBGPNM EQU PSCB+8 01590000 PSCBUSRL EQU PSCB+7 01591000 PSCBUSER EQU PSCB 01592000 CMDT1 EQU CMDT 01593000 CMDO EQU CMD+2 01594000 CMDL EQU CMD 01595000 ZZ299999 EQU ZZ2+8192 01596000 ZZ2AXOT1 EQU ZZ2AXOT 01597000 ZZ2AXOL EQU ZZ2AXO 01598000 @NM00057 EQU ZZ2+7288 01599000 @NM00056 EQU ZZ2AMDX+4 01600000 ZZ2AMDXC EQU ZZ2AMDX 01601000 ZZ2HSD EQU ZZ2+3056 01602000 @NM00055 EQU ZZ2ES 01603000 @NM00054 EQU ZZ2+2868 01604000 ZZ2ITSEC EQU ZZ2ITSE+1 01605000 @NM00053 EQU ZZ2ITSE 01606000 ZZ2ITSEP EQU ZZ2ITSE 01607000 ZZ2ITSEW EQU ZZ2ITSE 01608000 @NM00052 EQU ZZ2ITR+20 01609000 @NM00051 EQU ZZ2ITRE 01610000 ZZ2ITREP EQU ZZ2ITRE 01611000 ZZ2ITREW EQU ZZ2ITRE 01612000 @NM00050 EQU ZZ2ITR+9 01613000 @NM00049 EQU ZZ2F 01614000 ZZ2F3270 EQU ZZ2F 01615000 @NM00048 EQU ZZ2+1544 01616000 @NM00047 EQU ZZ2+1526 01617000 ZZ2CW EQU ZZ2+1524 01618000 @NM00046 EQU ZZ2+1504 01619000 @NM00045 EQU ZZ2+1352 01620000 ZZ2FFSYP EQU ZZ2+1348 01621000 ZZ2SASYP EQU ZZ2+1344 01622000 ZZ2RDSYP EQU ZZ2+1340 01623000 ZZ2RASYP EQU ZZ2+1336 01624000 ZZ2PHSYP EQU ZZ2+1332 01625000 ZZ2ESSYP EQU ZZ2+1328 01626000 ZZ200SYP EQU ZZ2+1324 01627000 ZZ2SCWP EQU ZZ2+1320 01628000 ZZ2TTLP EQU ZZ2+1316 01629000 ZZ2LOADP EQU ZZ2+1312 01630000 ZZ2VRESP EQU ZZ2+1308 01631000 ZZ2CPPLE EQU ZZ2CPPL+12 01632000 ZZ2CPPLP EQU ZZ2CPPL+8 01633000 ZZ2CPPLU EQU ZZ2CPPL+4 01634000 ZZ2VRSAP EQU ZZ2+1288 01635000 ZZ2DVTP EQU ZZ2+1276 01636000 @NM00044 EQU ZZ2+1272 01637000 @NM00043 EQU ZZ2+1268 01638000 ZZ2RPLP EQU ZZ2+1260 01639000 ZZ2TCBP EQU ZZ2+1256 01640000 @NM00042 EQU ZZ2+1252 01641000 ZZ2ZZ2P EQU ZZ2+1248 01642000 @NM00041 EQU ZZ2+1112 01643000 ZZ2FPDRP EQU ZZ2+1108 01644000 ZZ2FDSDP EQU ZZ2+1104 01645000 ZZ2APDRP EQU ZZ2+1100 01646000 ZZ2ADSDP EQU ZZ2+1096 01647000 ZZ2ENQ0P EQU ZZ2+1092 01648000 @NM00040 EQU ZZ2+1080 01649000 ZZ2MSG0P EQU ZZ2+1076 01650000 ZZ2FT25P EQU ZZ2+1072 01651000 ZZ2MSGSP EQU ZZ2+1060 01652000 ZZ2ALOCP EQU ZZ2+1056 01653000 @NM00039 EQU ZZ2+976 01654000 ZZ2TOD EQU ZZ2+968 01655000 ZZ2STGN EQU ZZ2STG+4 01656000 ZZ2STGP EQU ZZ2STG 01657000 @NM00038 EQU ZZ2+952 01658000 ZZ2SCMDE EQU ZZ2+944 01659000 ZZ2SCMDN EQU ZZ2+936 01660000 ZZ2IDENT EQU ZZ2+928 01661000 ZZ2A9999 EQU ZZ2A+656 01662000 @NM00037 EQU ZZ2A+224 01663000 @NM00036 EQU ZZ2A+220 01664000 ZZ2AQD99 EQU ZZ2AQD+60 01665000 @NM00035 EQU ZZ2AQD+56 01666000 @NM00034 EQU ZZ2AQDF 01667000 ZZ2AQDFA EQU ZZ2AQDF 01668000 ZZ2AQDIL EQU ZZ2AQD+48 01669000 ZZ2AQDIM EQU ZZ2AQD+44 01670000 ZZ2AQDT9 EQU ZZ2AQDT+34 01671000 ZZ2AQDTE EQU ZZ2AQDT+33 01672000 ZZ2AQDTD EQU ZZ2AQDT+2 01673000 @NM00033 EQU ZZ2AQDT+1 01674000 ZZ2AQDTY EQU ZZ2AQDT 01675000 ZZ2AQDT0 EQU ZZ2AQDT 01676000 ZZ2AQDLB EQU ZZ2AQD+9 01677000 ZZ2AQDOB EQU ZZ2AQD+8 01678000 ZZ2AQDLE EQU ZZ2AQD+4 01679000 ZZ2AQDOF EQU ZZ2AQD 01680000 ZZ2AQD00 EQU ZZ2AQD 01681000 ZZ2AQAS9 EQU ZZ2AQAS+16 01682000 @NM00032 EQU ZZ2AQAS+12 01683000 ZZ2AQAS2 EQU ZZ2AQAS+8 01684000 ZZ2AQAS1 EQU ZZ2AQAS+4 01685000 @NM00031 EQU ZZ2AQAS+2 01686000 ZZ2AQAST EQU ZZ2AQAS 01687000 ZZ2AQAS0 EQU ZZ2AQAS 01688000 ZZ2ADPTA EQU ZZ2ADPT 01689000 ZZ2ADPL EQU ZZ2ADP 01690000 ZZ2ADMTA EQU ZZ2ADMT 01691000 ZZ2ADML EQU ZZ2ADM 01692000 ZZ2ADDTA EQU ZZ2ADDT 01693000 ZZ2ADDL EQU ZZ2ADD 01694000 @NM00030 EQU ZZ2A+72 01695000 ZZ2APIDB EQU ZZ2APID+3 01696000 ZZ2APIDA EQU ZZ2APID 01697000 @NM00029 EQU ZZ2A+24 01698000 @NM00028 EQU ZZ2AF+5 01699000 ZZ2AFX EQU ZZ2AF+5 01700000 @NM00027 EQU ZZ2AF+3 01701000 ZZ2AFS EQU ZZ2AF+2 01702000 ZZ2AFD EQU ZZ2AF+2 01703000 ZZ2AFQ EQU ZZ2AF+2 01704000 ZZ2AF$ EQU ZZ2AF+2 01705000 @NM00026 EQU ZZ2AF+2 01706000 ZZ2AFM EQU ZZ2AF+2 01707000 @NM00025 EQU ZZ2AF+2 01708000 @NM00024 EQU ZZ2AF+1 01709000 ZZ2AFV EQU ZZ2AF+1 01710000 @NM00023 EQU ZZ2AF+1 01711000 ZZ2AFC EQU ZZ2AF+1 01712000 @NM00022 EQU ZZ2AF 01713000 ZZ2AFFS EQU ZZ2AF 01714000 ZZ2AFT EQU ZZ2AF 01715000 ZZ2AFP EQU ZZ2AF 01716000 @NM00021 EQU ZZ2A+8 01717000 ZZ2ALINE EQU ZZ2A+4 01718000 @NM00020 EQU ZZ2A+3 01719000 ZZ2ASE EQU ZZ2A+2 01720000 ZZ2ACH EQU ZZ2A 01721000 @NM00019 EQU ZZ2+264 01722000 @NM00018 EQU ZZ2+263 01723000 ZZ2PRTT0 EQU ZZ2PRTT 01724000 ZZ2PRTO EQU ZZ2PRT+2 01725000 ZZ2PRTL EQU ZZ2PRT 01726000 @NM00017 EQU ZZ2AMD+56 01727000 ZZ2AMDXP EQU ZZ2AMD+52 01728000 ZZ2AMDD EQU ZZ2AMD+48 01729000 ZZ2AMDL EQU ZZ2AMD+44 01730000 ZZ2AMDU EQU ZZ2AMD+28 01731000 ZZ2AMDF EQU ZZ2AMD+24 01732000 ZZ2AMDS EQU ZZ2AMD+20 01733000 ZZ2AMDC EQU ZZ2AMD+16 01734000 ZZ2AMDP EQU ZZ2AMD+12 01735000 ZZ2AMDB EQU ZZ2AMD+8 01736000 @NM00016 EQU @NM00015 01737000 ZZ2AMD2 EQU @NM00015 01738000 ZZ2AMD1 EQU @NM00015 01739000 ZZ2AMD0 EQU ZZ2AMD+6 01740000 ZZ2AMDA EQU ZZ2AMD+4 01741000 ZZ2AMDT EQU ZZ2AMD 01742000 ZZ199999 EQU ZZ1+3072 01743000 @NM00014 EQU ZZ1+2160 01744000 ZZ1TRTAS EQU ZZ1+1904 01745000 ZZ1TRUPC EQU ZZ1+1648 01746000 ZZ1TRCTX EQU ZZ1+1392 01747000 ZZ1NASID EQU ZZ1N+274 01748000 ZZ1NSTRL EQU ZZ1N+272 01749000 ZZ1NOFF EQU ZZ1N+268 01750000 ZZ1NBDY EQU ZZ1N+264 01751000 ZZ1NADE EQU ZZ1N+260 01752000 ZZ1NADB EQU ZZ1N+256 01753000 ZZ1NSTR EQU ZZ1N 01754000 @NM00013 EQU ZZ1+1080 01755000 ZZ1TREBC EQU ZZ1+824 01756000 ZZ1TRHEX EQU ZZ1+568 01757000 @NM00012 EQU ZZ1+377 01758000 ZZ1USTAE EQU ZZ1+376 01759000 @NM00011 EQU ZZ1F+3 01760000 @NM00010 EQU ZZ1F+2 01761000 ZZ1FPRNT EQU ZZ1F+2 01762000 @NM00009 EQU ZZ1F+1 01763000 ZZ1FTCAM EQU ZZ1F+1 01764000 ZZ1FACCM EQU ZZ1F+1 01765000 @NM00008 EQU ZZ1F 01766000 ZZ1FM EQU ZZ1F 01767000 ZZ1FX EQU ZZ1F 01768000 ZZ1FU EQU ZZ1F 01769000 ZZ1EVEC EQU ZZ1EVE+1 01770000 @NM00007 EQU ZZ1EVE 01771000 ZZ1EVEP EQU ZZ1EVE 01772000 ZZ1EVEW EQU ZZ1EVE 01773000 ZZ1ACMP EQU ZZ1ATTN 01774000 @NM00006 EQU ZZ1+144 01775000 ZZ1FPP EQU ZZ1+140 01776000 ZZ1ZZ6P EQU ZZ1+136 01777000 @NM00005 EQU ZZ1+84 01778000 ZZ1PLINE EQU ZZ1+80 01779000 ZZ1PGSZ EQU ZZ1+76 01780000 ZZ1PCNT EQU ZZ1+72 01781000 @NM00004 EQU ZZ1+68 01782000 ZZ1TPAGE EQU ZZ1+64 01783000 ZZ1TLINE EQU ZZ1+60 01784000 @NM00003 EQU ZZ1+52 01785000 ZZ1DMCBP EQU ZZ1+48 01786000 ZZ1DSDP EQU ZZ1+44 01787000 ZZ1PDRP EQU ZZ1+40 01788000 ZZ1327WP EQU ZZ1+32 01789000 ZZ1ACBP EQU ZZ1+28 01790000 @NM00002 EQU ZZ1+24 01791000 ZZ1PDCBP EQU ZZ1+20 01792000 ZZ1BLRBL EQU ZZ1+16 01793000 @NM00001 EQU ZZ1+12 01794000 ZZ1PNULL EQU ZZ1+8 01795000 ZZ1NULL EQU ZZ1+4 01796000 ZZ1IDE EQU ZZ1 01797000 .@UNREFD ANOP END UNREFERENCED COMPONENTS 01798000 @RC00202 EQU @RC00167 01799000 @RC00261 EQU @EL00002 01800000 @RC00263 EQU @RC00261 01801000 @ENDDATA EQU * 01802000 END BLSRDUOP,(C'PLS1016',0701,78123) 01803000