TITLE 'IEECB866-CONSOLE DUMP *00001000 ' 00002000 IEECB866 CSECT , 0001 00003000 @MAINENT DS 0H 0001 00004000 USING *,@15 0001 00005000 B @PROLOG 0001 00006000 DC AL1(15) 0001 00007000 DC C'IEECB866 77003 ' 0001 00008000 DROP @15 00009000 @PROLOG BALR @10,0 0001 00010000 @PSTART LA @12,4095(,@10) 0001 00011000 USING @PSTART,@10 0001 00012000 USING @PSTART+4095,@12 0001 00013000 LR @07,@01 0001 00014000 L @00,@SIZDATD 0001 00015000 GETMAIN R,LV=(0) 00016000 LR @11,@01 0001 00017000 USING @DATD,@11 0001 00018000 LR @01,@07 0001 00019000 XC @ZTEMPS(@ZLEN),@ZTEMPS 00020000 MVC @PC00001(4),0(@01) 0001 00021000 * 0180 00022000 */* ******************************************************************/ 00023000 */* THE DUMP COMMAND PROCESOR,WHEN ATTACHED BY IEEVWAIT, */ 00024000 */* WILL HAVE ITS OWN CSCB ADDRESS IN REGISTER ONE. */ 00025000 */* */ 00026000 */* ---------OPERATION---------- */ 00027000 */* 1. ESTABLISH ESTAE PROTECTION */ 00028000 */* ******************************************************************/ 00029000 * 0180 00030000 * R14SAV7=REG14; /* SAVE RETURN ADDRESS */ 00031000 ST REG14,R14SAV7 0180 00032000 * CALL GETESTAE; 0181 00033000 BAL @14,GETESTAE 0181 00034000 * IF REG15=0 THEN /* PROCESS DUMP COMMAND */ 00035000 LTR REG15,REG15 0182 00036000 BNZ @RF00182 0182 00037000 * DO; 0183 00038000 * 0183 00039000 * /*************************************************************/ 00040000 * /* */ 00041000 * /* 2. CONSOLE ID CHECK CONSOLE DUMP CAN ONLY BE ISSUED BY */ 00042000 * /* MASTER CONSOLE */ 00043000 * /* */ 00044000 * /*************************************************************/ 00045000 * 0184 00046000 * CSCBPTR=REG6; /* LOCATE IEECB866 CSCB */ 00047000 ST REG6,CSCBPTR 0184 00048000 * SAVEUCMP=CHUCMP; /* SAVE CONSOLE ID FROM CSCB FOR 00049000 * WTOR AFTER DUMP CSCB FREED 0185 00050000 * @ZA14247*/ 00051000 L @07,CSCBPTR 0185 00052000 MVC SAVEUCMP(1),CHUCMP(@07) 0185 00053000 * IF CHUCMP=UCMID THEN /* PROCESS DUMP COMMAND */ 00054000 L @09,CVTPTR 0186 00055000 L @09,UCMBASPT(,@09) 0186 00056000 AL @09,@CF02033 0186 00057000 L @09,UCMMCSPT(,@09) 0186 00058000 L @09,UCMDVEPT(,@09) 0186 00059000 CLC CHUCMP(1,@07),UCMID(@09) 0186 00060000 BNE @RF00186 0186 00061000 * DO; 0187 00062000 * 0187 00063000 * /*********************************************************/ 00064000 * /* */ 00065000 * /* 3. ANALYZE THE DUMP COMMAND */ 00066000 * /* */ 00067000 * /*********************************************************/ 00068000 * 0188 00069000 * CALL CMDCHECK; /* ANALYZE THE COMMAND */ 00070000 BAL @14,CMDCHECK 0188 00071000 * CALL SETUP; /* SET UP DATA AREAS @G33CPMR*/ 00072000 BAL @14,SETUP 0189 00073000 * IF MSGCODE=ZERO THEN /* NO ERROR YET */ 00074000 CLI MSGCODE,0 0190 00075000 BNE @RF00190 0190 00076000 * DO UNTIL MSGCODE^=ZERO|CONTINUE=OFE;/* LOOP UNTIL DATA 00077000 * END @G33CPMR*/ 00078000 @DL00191 DS 0H 0192 00079000 * CALL INITWTOR; /* INIT WTOR AREA */ 00080000 * 0192 00081000 BAL @14,INITWTOR 0192 00082000 * /*****************************************************/ 00083000 * /* */ 00084000 * /* 4. ISSUE A WTOR AND WAIT */ 00085000 * /* */ 00086000 * /*****************************************************/ 00087000 * 0193 00088000 * GEN; 0193 00089000 WTOR MF=(E,(REG1)) 00090000 WAIT ECB=ECB 00091000 * CALL FOLD; /* FOLD UP TO UPPER CASE @G33CPMR*/ 00092000 BAL @14,FOLD 0194 00093000 * 0195 00094000 * /*****************************************************/ 00095000 * /* */ 00096000 * /* 5. ANALYZE THE REPLY THE DMPREPLY ROUTINE WILL */ 00097000 * /* ANALYZE THE OPERATOR REPLY. */ 00098000 * /* */ 00099000 * /*****************************************************/ 00100000 * 0195 00101000 * CALL DMPREPLY; /* REPLY PROCESSING */ 00102000 BAL @14,DMPREPLY 0195 00103000 * END; /* OF LOOP UNTIL DATA END */ 00104000 * 0196 00105000 @DE00191 CLI MSGCODE,0 0196 00106000 BNE @DC00191 0196 00107000 TM CONTINUE,B'10000000' 0196 00108000 BNZ @DL00191 0196 00109000 @DC00191 DS 0H 0197 00110000 * /*********************************************************/ 00111000 * /* */ 00112000 * /* 6. ISSUE SVC 51 */ 00113000 * /* */ 00114000 * /*********************************************************/ 00115000 * 0197 00116000 * IF MSGCODE=ZERO THEN 0197 00117000 @RF00190 CLI MSGCODE,0 0197 00118000 BNE @RF00197 0197 00119000 * DO; 0198 00120000 * CALL ISUSDUMP; /* ISSUE SDUMP MACRO */ 00121000 * 0199 00122000 BAL @14,ISUSDUMP 0199 00123000 * /*****************************************************/ 00124000 * /* */ 00125000 * /* 7. CHECK THE RETURN CODE FROM SVC 51 */ 00126000 * /* */ 00127000 * /*****************************************************/ 00128000 * 0200 00129000 * IF ECBCODE=EIGHT THEN/* NO DUMP TAKEN @YM4790P*/ 00130000 CLC ECBCODE(3),@CF00049+1 0200 00131000 BNE @RF00200 0200 00132000 * DO; 0201 00133000 * MSGCODE='3F'X; /* RT CODE=8 FROM SVC51 @YM4786P*/ 00134000 MVI MSGCODE,X'3F' 0202 00135000 * KEYWDERR=SVC51ERR;/* SYS UNABLE TO DUMP @YM4786P*/ 00136000 MVC KEYWDERR(8),SVC51ERR 0203 00137000 * END; 0204 00138000 * END; 0205 00139000 * END; /* VALID CONSOLE PROCESSING */ 00140000 * ELSE 0207 00141000 * CALL IDCHECK; /* INVALID CONSOLE */ 00142000 B @RC00186 0207 00143000 @RF00186 BAL @14,IDCHECK 0207 00144000 * IF MSGCODE^=ZERO THEN 0208 00145000 @RC00186 CLI MSGCODE,0 0208 00146000 BE @RF00208 0208 00147000 * CALL NODUMP; /* ERROR ROUTINE */ 00148000 BAL @14,NODUMP 0209 00149000 * END; 0210 00150000 * ELSE /* IF BAD ESTAE RETURN @ZA14247*/ 00151000 * CALL CSCBFREE; /* THEN FREE THE CSCB @ZA14247*/ 00152000 B @RC00182 0211 00153000 @RF00182 BAL @14,CSCBFREE 0211 00154000 * REG14=R14SAV7; 0212 00155000 @RC00182 L REG14,R14SAV7 0212 00156000 * RETURN; 0213 00157000 @EL00001 DS 0H 0213 00158000 @EF00001 L @00,@SIZDATD 0213 00159000 LR @01,@11 0213 00160000 FREEMAIN R,LV=(0),A=(1) 00161000 @ER00001 BR @14 0213 00162000 *GETESTAE: 0214 00163000 * PROC OPTIONS(NOSAVE,NOSAVEAREA); 0214 00164000 * 0214 00165000 GETESTAE DS 0H 0215 00166000 */* ******************************************************************/ 00167000 */* */ 00168000 */* THIS ROUTINE CREATES AN ESTAE INVIRONMENT THRU IEECB866 */ 00169000 */* A PARAMETER LIST IS BUILT AND PASSED TO IEECB860 IN REGISTER 1 */ 00170000 */* */ 00171000 */* ******************************************************************/ 00172000 * 0215 00173000 * RESPECIFY 0215 00174000 * (REG2) RSTD; 0215 00175000 * REG6=REG1; /* SAVE DUMP CSCB PTR */ 00176000 LR REG6,REG1 0216 00177000 * REG1=ADDR(STAEAREA); /* GET STORAGE FOR PARM LIST */ 00178000 LA REG1,STAEAREA 0217 00179000 * STAEAREA=STAEAREA&&STAEAREA; /* INIT STORAGE */ 00180000 XC STAEAREA(44),STAEAREA 0218 00181000 * REG2=REG1; /* SAVE PARM LIST ADDRESS */ 00182000 LR REG2,REG1 0219 00183000 * CSCBADDR=REG6; /* STORE CSCB PTR IN THE LIST */ 00184000 ST REG6,CSCBADDR(,REG1) 0220 00185000 * REG6=ADDR(STAEBUF); /* GET PTR TO CMD BUF */ 00186000 LA REG6,STAEBUF(,REG1) 0221 00187000 * BUFPTR=REG6; /* STOR CMD BUF PTR IN PARM LIST */ 00188000 ST REG6,BUFPTR(,REG1) 0222 00189000 * CMDSIZE=4; /* STORE LENGTH OF CMD */ 00190000 MVI CMDSIZE(REG1),X'04' 0223 00191000 * COMMAND=DUMP; /* STORE VERB */ 00192000 MVI COMMAND+4(REG1),C' ' 0224 00193000 MVC COMMAND+5(6,REG1),COMMAND+4(REG1) 0224 00194000 MVC COMMAND(4,REG1),DUMP 0224 00195000 * RESPECIFY 0225 00196000 * (REG10, 0225 00197000 * REG11, 0225 00198000 * REG12, 0225 00199000 * REG13) RSTD; 0225 00200000 * REG14SAV=REG14; /* SAVE RETURN ADDRESS */ 00201000 ST REG14,REG14SAV(,REG1) 0226 00202000 * REG6SAV=CSCBADDR; /* SAVE CSCB PTR */ 00203000 L @07,CSCBADDR(,REG1) 0227 00204000 ST @07,REG6SAV(,REG1) 0227 00205000 * REG10SAV=REG10; /* SAVE BASE REG @G33CPMR*/ 00206000 ST REG10,REG10SAV(,REG1) 0228 00207000 * REG11SAV=REG11; /* SAVE DATA REG */ 00208000 ST REG11,REG11SAV(,REG1) 0229 00209000 * REG12SAV=REG12; /* SAVE BASE REG */ 00210000 ST REG12,REG12SAV(,REG1) 0230 00211000 * REG13SAV=REG13; /* SAVE SAVE AREA PTR */ 00212000 ST REG13,REG13SAV(,REG1) 0231 00213000 * RESPECIFY 0232 00214000 * (REG10, 0232 00215000 * REG11, 0232 00216000 * REG12, 0232 00217000 * REG13) UNRSTD; 0232 00218000 * RESPECIFY 0233 00219000 * (REG0) RSTD; 0233 00220000 * GEN(LOAD EP=IEECB860); /* LOAD IEECB860 */ 00221000 LOAD EP=IEECB860 00222000 * REG15=REG0; /* PUT ENTRY ADDRESS IN REG 15 */ 00223000 LR REG15,REG0 0235 00224000 * REG1=REG2; /* RESTORE PARM PTR */ 00225000 LR REG1,REG2 0236 00226000 * RESPECIFY 0237 00227000 * (REG0) UNRSTD; 0237 00228000 * GEN(BALR REG14,REG15); /* BRANCH TO IEECB860 */ 00229000 BALR REG14,REG15 00230000 * REG6=CSCBADDR; /* RESTORE CSCB PTR */ 00231000 L REG6,CSCBADDR(,REG1) 0239 00232000 * RESPECIFY 0240 00233000 * (REG5, 0240 00234000 * REG10, 0240 00235000 * REG11, 0240 00236000 * REG12, 0240 00237000 * REG13) RSTD; 0240 00238000 * REG10=REG10SAV; /* RESTORE BASE REG PTR @G33CPMR*/ 00239000 L REG10,REG10SAV(,REG1) 0241 00240000 * REG11=REG11SAV; /* RESTORE DATA REG PTR */ 00241000 L REG11,REG11SAV(,REG1) 0242 00242000 * REG12=REG12SAV; /* RESTORE BASE REG PTR */ 00243000 L REG12,REG12SAV(,REG1) 0243 00244000 * REG13=REG13SAV; /* RESTORE SAVE AREA PTR */ 00245000 L REG13,REG13SAV(,REG1) 0244 00246000 * REG5=REG15; /* SAVE RETURN CODE */ 00247000 LR REG5,REG15 0245 00248000 * RESPECIFY 0246 00249000 * (REG10, 0246 00250000 * REG11, 0246 00251000 * REG12, 0246 00252000 * REG13) UNRSTD; 0246 00253000 * GEN(DELETE EP=IEECB860); /* DELETE STAE CREATE MODULE */ 00254000 DELETE EP=IEECB860 00255000 * REG15=REG5; /* PUT RETURN CODE IN REG 15 */ 00256000 LR REG15,REG5 0248 00257000 * KEYWDERR=KEYWDERR&&KEYWDERR; /* INIT STORAGE */ 00258000 XC KEYWDERR(8),KEYWDERR 0249 00259000 * REG14=REG14SAV; /* RESTORE THE RETURN ADDRESS */ 00260000 L REG14,REG14SAV(,REG1) 0250 00261000 * RESPECIFY 0251 00262000 * (REG2, 0251 00263000 * REG5) UNRSTD; 0251 00264000 * END; 0252 00265000 @EL00002 DS 0H 0252 00266000 @EF00002 DS 0H 0252 00267000 @ER00002 BR @14 0252 00268000 *CMDCHECK: 0253 00269000 * PROC OPTIONS(NOSAVE,NOSAVEAREA); 0253 00270000 * 0253 00271000 CMDCHECK DS 0H 0254 00272000 */* ******************************************************************/ 00273000 */* */ 00274000 */* THIE ROUTINE WILL DETERMINE THE LENGTH OF THE DUMP COMM=(TEXT) */ 00275000 */* THEN CALL CSCBFREE TO FREE THE CSCB */ 00276000 */* */ 00277000 */* ******************************************************************/ 00278000 * 0254 00279000 * R14SAV3=REG14; /* SAVE REG 14 */ 00280000 ST REG14,R14SAV3 0254 00281000 * DO CMDINDEX=7 TO 124 WHILE CHBUF(CMDINDEX)^=RTPRN; 0255 00282000 LA CMDINDEX,7 0255 00283000 @DL00255 L @07,CSCBPTR 0255 00284000 ALR @07,CMDINDEX 0255 00285000 CLI CHBUF-1(@07),C')' 0255 00286000 BE @DC00255 0255 00287000 * END; /* SCAN THE DUMP COMMAND TEXT */ 00288000 AH CMDINDEX,@CH00047 0256 00289000 CH CMDINDEX,@CH00134 0256 00290000 BNH @DL00255 0256 00291000 @DC00255 DS 0H 0257 00292000 * MSGCODE=0; /* INIT MESSAGE CODE @YM4798P*/ 00293000 MVI MSGCODE,X'00' 0257 00294000 * IF CHBUF(CMDINDEX)=RTPRN THEN /* END OF THE TEXT */ 00295000 L @07,CSCBPTR 0258 00296000 ALR @07,CMDINDEX 0258 00297000 CLI CHBUF-1(@07),C')' 0258 00298000 BNE @RF00258 0258 00299000 * DO; 0259 00300000 * IF CMDINDEX>7 THEN /* TEXT EXISTS */ 00301000 LA @07,7 0260 00302000 CR CMDINDEX,@07 0260 00303000 BNH @RF00260 0260 00304000 * DO; 0261 00305000 * TEXT=TEXT&&TEXT; /* ZERO OUT TEXT AREA */ 00306000 XC TEXT(100),TEXT 0262 00307000 * TEXTLNTH=CMDINDEX-7; /* DETERMINE LGTH OF TEXT */ 00308000 LCR @07,@07 0263 00309000 ALR @07,CMDINDEX 0263 00310000 STC @07,TEXTLNTH 0263 00311000 * IF TEXTLNTH>100 THEN /* TEXT LONGER 100 CHAR */ 00312000 CLI TEXTLNTH,100 0264 00313000 BNH @RF00264 0264 00314000 * TEXTLNTH=100; /* TEXT = 100 CHARACTERS */ 00315000 MVI TEXTLNTH,X'64' 0265 00316000 * ELSE 0266 00317000 * ; 0266 00318000 @RF00264 DS 0H 0267 00319000 * TEXT(1:TEXTLNTH)=CHBUF(7:TEXTLNTH+7);/* STORE THE TEXT */ 00320000 SLR @07,@07 0267 00321000 IC @07,TEXTLNTH 0267 00322000 BCTR @07,0 0267 00323000 L @09,CSCBPTR 0267 00324000 EX @07,@SM02034 0267 00325000 * END; 0268 00326000 * ELSE 0269 00327000 * TEXTLNTH=0; /* NO TEXT */ 00328000 B @RC00260 0269 00329000 @RF00260 MVI TEXTLNTH,X'00' 0269 00330000 * END; 0270 00331000 * ELSE 0271 00332000 * DO; 0271 00333000 B @RC00258 0271 00334000 @RF00258 DS 0H 0272 00335000 * MSGCODE='07'X; /* MISSING RIGHT PARN */ 00336000 MVI MSGCODE,X'07' 0272 00337000 * KEYWDERR=DUMP; /* DELIMITER ERROR */ 00338000 MVI KEYWDERR+4,C' ' 0273 00339000 MVC KEYWDERR+5(3),KEYWDERR+4 0273 00340000 MVC KEYWDERR(4),DUMP 0273 00341000 * END; 0274 00342000 * CALL CSCBFREE; /* FREE THE CSCB */ 00343000 @RC00258 BAL @14,CSCBFREE 0275 00344000 * REG14=R14SAV3; /* RESTORE REG 14 */ 00345000 L REG14,R14SAV3 0276 00346000 * END; 0277 00347000 @EL00003 DS 0H 0277 00348000 @EF00003 DS 0H 0277 00349000 @ER00003 BR @14 0277 00350000 *INITWTOR: 0278 00351000 * PROC OPTIONS(NOSAVE,NOSAVEAREA); 0278 00352000 * 0278 00353000 INITWTOR DS 0H 0279 00354000 */* ******************************************************************/ 00355000 */* */ 00356000 */* THIS ROUTINE WILL INITIALIZE THE DATA AREAS USED BY */ 00357000 */* THE WTOR. */ 00358000 */* 1. WTORAREA 68 CHARACTERS TO ISSUE THE WTOR */ 00359000 */* 2. REPLY 120 CHARACTERS FOR THE OPERATOR REPLY */ 00360000 */* */ 00361000 */* ******************************************************************/ 00362000 * 0279 00363000 * R14SA10=REG14; /* SAVE RETURN ADDRESS */ 00364000 ST REG14,R14SA10 0279 00365000 * REG1=ADDR(WTORAREA); /* ADDRESS OF WTORAREA */ 00366000 LA REG1,WTORAREA 0280 00367000 * WTORAREA=WTORAREA&&WTORAREA; /* INIT STORAGE */ 00368000 XC WTORAREA(68),WTORAREA 0281 00369000 * WTORAREA=WTORDATA; /* MOVE DATA TO WTOR AREA */ 00370000 MVI WTORAREA+60,C' ' 0282 00371000 MVC WTORAREA+61(7),WTORAREA+60 0282 00372000 MVC WTORAREA(60),WTORDATA 0282 00373000 * RPLYAD=ADDR(REPLY); /* WTOR REPLY ADDRESS */ 00374000 LA @07,REPLY 0283 00375000 ST @07,@TF00001 0283 00376000 MVC RPLYAD(3),@TF00001+1 0283 00377000 * ECBAD=ADDR(ECB); /* ECB ADDRESS */ 00378000 LA @07,ECB 0284 00379000 ST @07,ECBAD 0284 00380000 * ECB=ECB&&ECB; /* INITIALIZE THE ECB @YM4798P*/ 00381000 L @07,ECB 0285 00382000 LR @00,@07 0285 00383000 XR @00,@07 0285 00384000 ST @00,ECB 0285 00385000 * REPLY=BLANK; /* BLANK OUT THE REPLY @G33CPMR*/ 00386000 MVI REPLY+1,C' ' 0286 00387000 MVC REPLY+2(119),REPLY+1 0286 00388000 MVI REPLY,C' ' 0286 00389000 * REG0=SAVEUCMP; /* GET CONSOLE ID FOR WTOR 0287 00390000 * @ZA07752*/ 00391000 SLR REG0,REG0 0287 00392000 IC REG0,SAVEUCMP 0287 00393000 * REG14=R14SA10; /* RESTORE RETURN ADDR */ 00394000 L @07,R14SA10 0288 00395000 LR REG14,@07 0288 00396000 * END; 0289 00397000 @EL00004 DS 0H 0289 00398000 @EF00004 DS 0H 0289 00399000 @ER00004 BR @14 0289 00400000 *SETUP: 0290 00401000 * PROC OPTIONS(NOSAVE,NOSAVEAREA); 0290 00402000 * 0290 00403000 SETUP DS 0H 0291 00404000 */* ******************************************************************/ 00405000 */* */ 00406000 */* THIS ROUTINE WILL SET UP DATA AREAS */ 00407000 */* 1. ZERO OUT SWITCHES */ 00408000 */* 2. ZERO OUT STORAGE SDUMP PARM LIST */ 00409000 */* 3. FILL IN PART ON THE SDUMP PARM LIST */ 00410000 */* */ 00411000 */* ******************************************************************/ 00412000 * 0291 00413000 * R14SAV9=REG14; /* SAVE RETURN ADDRESS */ 00414000 ST REG14,R14SAV9 0291 00415000 * BITSW=ZERO; /* SWITCHES = 0 */ 00416000 SLR @07,@07 0292 00417000 ST @07,@TF00001 0292 00418000 MVC BITSW(2),@TF00001+2 0292 00419000 * REPLYCK=ON; /* ERROR FLAG FOR REPLY */ 00420000 OI REPLYCK,B'10000000' 0293 00421000 * SDUMPPTR=ADDR(SDUMPLF); /* STORAGE FOR SDUMP */ 00422000 LA @07,SDUMPLF 0294 00423000 ST @07,SDUMPPTR 0294 00424000 * SDUMPLF(ONE:LENGTH(SDUMP))=SDUMPLF(ONE:LENGTH(SDUMP))&&SDUMPLF(ONE: 00425000 * LENGTH(SDUMP)); /* ZERO OUT AREA */ 00426000 XC SDUMPLF(40),SDUMPLF 0295 00427000 * SDUMPLF(ONE:LENGTH(SDUMP))=LFSDUMP(ONE:LENGTH(SDUMP));/* MOVE 0296 00428000 * LIST FORM */ 00429000 MVC SDUMPLF(40),LFSDUMP 0296 00430000 * SDUASID=ON; /* ASID SPECIFIED */ 00431000 * SDUECB=ON; /* INDICATE WAIT ON SDUMP 0298 00432000 * @YM4790P*/ 00433000 OI SDUASID(@07),B'00001100' 0298 00434000 * IF TEXTLNTH>0 THEN /* THERE IS A DUMP HEADER */ 00435000 CLI TEXTLNTH,0 0299 00436000 BNH @RF00299 0299 00437000 * DO; 0300 00438000 * SDUHDR=ON; /* DUMP HEADER SPECIFIED */ 00439000 OI SDUHDR(@07),B'00010000' 0301 00440000 * SDUHDRAD=ADDR(DUMPHDR); /* LOCATE DUMP HEADER */ 00441000 LA @00,DUMPHDR 0302 00442000 ST @00,SDUHDRAD(,@07) 0302 00443000 * END; 0303 00444000 * SDUFLAG1='80'X; /* SET FOR SDUMP */ 00445000 @RF00299 L @07,SDUMPPTR 0304 00446000 MVI SDUFLAG1(@07),X'80' 0304 00447000 * USERADDR=0; /* ZERO OUT AREA */ 00448000 SLR @07,@07 0305 00449000 ST @07,USERADDR 0305 00450000 * REG14=R14SAV9; /* RESTORE RETURN ADDR */ 00451000 L REG14,R14SAV9 0306 00452000 * END; 0307 00453000 @EL00005 DS 0H 0307 00454000 @EF00005 DS 0H 0307 00455000 @ER00005 BR @14 0307 00456000 *FOLD: 0308 00457000 * PROC OPTIONS(NOSAVE,NOSAVEAREA);/* @G33CPMR*/ 00458000 FOLD DS 0H 0309 00459000 */* ******************************************************************/ 00460000 */* */ 00461000 */* THIS ROUTINE WILL FOLD THE REPLY TO UPPER CASE CHARACTERS */ 00462000 */* */ 00463000 */* ******************************************************************/ 00464000 * 0309 00465000 * R14SAV9=REG14; /* SAVE RETURN ADDRESS @G33CPMR*/ 00466000 ST REG14,R14SAV9 0309 00467000 * DO I=ONE TO ONETWOOH; /* FOLD TO UPPER CASE @G33CPMR*/ 00468000 LA I,1 0310 00469000 @DL00310 DS 0H 0311 00470000 * REPLY(I)=REPLY(I)|UPFOLD; /* FOLD ONE CHAR @G33CPMR*/ 00471000 LA @07,REPLY-1(I) 0311 00472000 OI 0(@07),X'40' 0311 00473000 * END; /* @G33CPMR*/ 00474000 AH I,@CH00047 0312 00475000 CH I,@CH01766 0312 00476000 BNH @DL00310 0312 00477000 * I=ONE; /* RESET INDEX @G33CPMR*/ 00478000 LA I,1 0313 00479000 * REG14=R14SAV9; /* RESTORE RETURN ADDR @G33CPMR*/ 00480000 L REG14,R14SAV9 0314 00481000 * END; /* @G33CPMR*/ 00482000 @EL00006 DS 0H 0315 00483000 @EF00006 DS 0H 0315 00484000 @ER00006 BR @14 0315 00485000 *DMPREPLY: 0316 00486000 * PROC OPTIONS(NOSAVE,NOSAVEAREA); 0316 00487000 * 0316 00488000 DMPREPLY DS 0H 0317 00489000 */* ******************************************************************/ 00490000 */* */ 00491000 */* THIS ROUTINE WILL ANALYZE THE OPERATOR REPLY AND */ 00492000 */* ASSIGN ROUTINES TO HANDLE VARIOUS FUNCTIONS */ 00493000 */* */ 00494000 */* ******************************************************************/ 00495000 * 0317 00496000 * R14SAV6=REG14; /* SAVE RETURN ADDRESS */ 00497000 ST REG14,R14SAV6 0317 00498000 * IF CONTINUE=OFE THEN /* FIRST TIME? @G33CPMR*/ 00499000 TM CONTINUE,B'10000000' 0318 00500000 BNZ @RF00318 0318 00501000 * DO; /* YES, PROCESS @G33CPMR*/ 00502000 * IF REPLY(ONE:TWO)=UBLANK THEN 0320 00503000 * 0320 00504000 CLC REPLY(2),UBLANK 0320 00505000 BNE @RF00320 0320 00506000 * /***********************************************************/ 00507000 * /* */ 00508000 * /* THE REPLY IS U */ 00509000 * /* */ 00510000 * /***********************************************************/ 00511000 * 0321 00512000 * DO; 0321 00513000 * REPLYEND=ON; /* END OF THE REPLY */ 00514000 * REPLYCK=OFE; /* NO ERROR YET */ 00515000 OI REPLYEND,B'00000010' 0323 00516000 NI REPLYCK,B'01111111' 0323 00517000 * SDUTASID=MASTER; /* MASTER SCHEDULER ASID */ 00518000 L @07,SDUMPPTR 0324 00519000 MVC SDUTASID(2,@07),MASTER 0324 00520000 * CALL DEFAULT; /* DEFAULT ROUTINE */ 00521000 BAL @14,DEFAULT 0325 00522000 * END; 0326 00523000 * ELSE 0327 00524000 * DO; 0327 00525000 B @RC00320 0327 00526000 @RF00320 DS 0H 0328 00527000 * IF REPLY(ONE)=UERROR THEN/* EXAMPLE 'UL' OR 'UM' */ 00528000 CLC REPLY(1),UERROR 0328 00529000 BNE @RF00328 0328 00530000 * DO; 0329 00531000 * REPLYCK=OFE; /* ERROR CONDITION */ 00532000 NI REPLYCK,B'01111111' 0330 00533000 * MSGCODE='3D'X; /* KEYWORD VALIE,INVALID */ 00534000 MVI MSGCODE,X'3D' 0331 00535000 * KEYWDERR=DUMP; 0332 00536000 MVI KEYWDERR+4,C' ' 0332 00537000 MVC KEYWDERR+5(3),KEYWDERR+4 0332 00538000 MVC KEYWDERR(4),DUMP 0332 00539000 * END; 0333 00540000 * ELSE 0334 00541000 * ; 0334 00542000 @RF00328 DS 0H 0335 00543000 * END; 0335 00544000 * IF REPLY(ONE:FIVE)=ASID&MSGCODE=ZERO THEN 0336 00545000 * 0336 00546000 @RC00320 CLC REPLY(5),ASID 0336 00547000 BNE @RF00336 0336 00548000 CLI MSGCODE,0 0336 00549000 BNE @RF00336 0336 00550000 * /***********************************************************/ 00551000 * /* */ 00552000 * /* THE REPLY IS ASID */ 00553000 * /* */ 00554000 * /***********************************************************/ 00555000 * 0337 00556000 * CALL ITSASID; /* ASID ROUTINE */ 00557000 BAL @14,ITSASID 0337 00558000 * ELSE 0338 00559000 * DO; 0338 00560000 B @RC00336 0338 00561000 @RF00336 DS 0H 0339 00562000 * IF REPLY(ONE:EIGHT)=JOBNAME&MSGCODE=ZERO|REPLY(ONE:EIGHT)= 00563000 * TSONAME&MSGCODE=ZERO THEN/* @G33CPMR*/ 00564000 * 0339 00565000 CLC REPLY(8),JOBNAME 0339 00566000 BNE @GL00003 0339 00567000 CLI MSGCODE,0 0339 00568000 BE @RT00339 0339 00569000 @GL00003 CLC REPLY(8),TSONAME 0339 00570000 BNE @RF00339 0339 00571000 CLI MSGCODE,0 0339 00572000 BNE @RF00339 0339 00573000 @RT00339 DS 0H 0340 00574000 * /*******************************************************/ 00575000 * /* */ 00576000 * /* THE REPLY IS JOBNAME OR TSONAME */ 00577000 * /* */ 00578000 * /*******************************************************/ 00579000 * 0340 00580000 * CALL JOBNAMES; /* PROCESS JOB/TSO NAME */ 00581000 BAL @14,JOBNAMES 0340 00582000 * ELSE 0341 00583000 * 0341 00584000 * /*******************************************************/ 00585000 * /* */ 00586000 * /* MASTER SCHEDULER MEMORY WITH SDUMP SVC DEFAULTS */ 00587000 * /* */ 00588000 * /*******************************************************/ 00589000 * 0341 00590000 * SDUTASID=MASTER; /* MASTER SCHEDULER ASID */ 00591000 B @RC00339 0341 00592000 @RF00339 L @07,SDUMPPTR 0341 00593000 MVC SDUTASID(2,@07),MASTER 0341 00594000 * END; 0342 00595000 * END; /* @G33CPMR*/ 00596000 * ELSE 0344 00597000 * ; /* @G33CPMR*/ 00598000 @RF00318 DS 0H 0345 00599000 * IF REPLYEND=OFE&MSGCODE=0 THEN 0345 00600000 @RC00318 TM REPLYEND,B'00000010' 0345 00601000 BNZ @RF00345 0345 00602000 CLI MSGCODE,0 0345 00603000 BNE @RF00345 0345 00604000 * CALL REPLYTWO; /* CONTINUE THE SCAN */ 00605000 BAL @14,REPLYTWO 0346 00606000 * IF REPLYCK=ON THEN 0347 00607000 @RF00345 TM REPLYCK,B'10000000' 0347 00608000 BNO @RF00347 0347 00609000 * DO; 0348 00610000 * MSGCODE='3D'X; /* ERROR CONDITION */ 00611000 MVI MSGCODE,X'3D' 0349 00612000 * KEYWDERR=DUMP; /* NO KEYWORD FOUND */ 00613000 MVI KEYWDERR+4,C' ' 0350 00614000 MVC KEYWDERR+5(3),KEYWDERR+4 0350 00615000 MVC KEYWDERR(4),DUMP 0350 00616000 * END; 0351 00617000 * REG14=R14SAV6; /* RESTORE RETURN REG */ 00618000 @RF00347 L REG14,R14SAV6 0352 00619000 * END; 0353 00620000 @EL00007 DS 0H 0353 00621000 @EF00007 DS 0H 0353 00622000 @ER00007 BR @14 0353 00623000 *REPLYTWO: 0354 00624000 * PROC OPTIONS(NOSAVE,NOSAVEAREA); 0354 00625000 REPLYTWO DS 0H 0355 00626000 * R14SA20=REG14; /* SAVE RETURN ADDRESS */ 00627000 ST REG14,R14SA20 0355 00628000 * CONTINUE=OFE; /* CLEAR BIT @G33CPMR*/ 00629000 NI CONTINUE,B'01111111' 0356 00630000 * DO WHILE REPLYEND=OFE&MSGCODE=ZERO&CONTINUE=OFE; 0357 00631000 * 0357 00632000 B @DE00357 0357 00633000 @DL00357 DS 0H 0358 00634000 * /***************************************************************/ 00635000 * /* */ 00636000 * /* THE REPLY IS SDATA OR STOR */ 00637000 * /* */ 00638000 * /***************************************************************/ 00639000 * 0358 00640000 * REPLYCK=OFE; /* NO ERROR YET */ 00641000 NI REPLYCK,B'01111111' 0358 00642000 * IF REPLY(I:I+FIVE)=SDATAB|REPLY(I:I+FIVE)=SDATAC THEN 0359 00643000 LA @07,REPLY-1(I) 0359 00644000 CLC 0(6,@07),SDATAB 0359 00645000 BE @RT00359 0359 00646000 LA @07,REPLY-1(I) 0359 00647000 CLC 0(6,@07),SDATAC 0359 00648000 BNE @RF00359 0359 00649000 @RT00359 DS 0H 0360 00650000 * DO; 0360 00651000 * 0360 00652000 * /***********************************************************/ 00653000 * /* */ 00654000 * /* SDATA WITH DEFAULTS */ 00655000 * /* */ 00656000 * /***********************************************************/ 00657000 * 0361 00658000 * IF SDATDONE=OFE THEN /* SDATA SPECIFIED BEFORE? 0361 00659000 * @G33CPMR*/ 00660000 TM SDATDONE,B'00100000' 0361 00661000 BNZ @RF00361 0361 00662000 * DO; /* NO, PROCEED @G33CPMR*/ 00663000 * CALL DEFAULT; /* SDATA DEFAULT OPTIONS */ 00664000 BAL @14,DEFAULT 0363 00665000 * SDATDONE=ON; /* OPERAND DONE @G33CPMR*/ 00666000 OI SDATDONE,B'00100000' 0364 00667000 * I=I+SIX; /* ADVANCE INDEX */ 00668000 AH I,@CH00599 0365 00669000 * IF REPLY(I)=BLANK THEN/* END OF THE REPLY */ 00670000 LA @07,REPLY-1(I) 0366 00671000 CLI 0(@07),C' ' 0366 00672000 BNE @RF00366 0366 00673000 * REPLYEND=ON; /* INDICATE THE END */ 00674000 OI REPLYEND,B'00000010' 0367 00675000 * ELSE 0368 00676000 * ; 0368 00677000 @RF00366 DS 0H 0369 00678000 * END; /* @G33CPMR*/ 00679000 * ELSE /* @G33CPMR*/ 00680000 * CALL CONFLICT; /* YES, ERROR @G33CPMR*/ 00681000 B @RC00361 0370 00682000 @RF00361 BAL @14,CONFLICT 0370 00683000 * END; /* END OF 'SDATA ' SUBROUTINE 0371 00684000 * @G33CPMR*/ 00685000 * ELSE 0372 00686000 * IF REPLY(I:I+SIX)=SDATAE THEN/* SELECTIVE OPTIONS */ 00687000 * 0372 00688000 B @RC00359 0372 00689000 @RF00359 LA @07,REPLY-1(I) 0372 00690000 CLC 0(7,@07),SDATAE 0372 00691000 BNE @RF00372 0372 00692000 * /***********************************************************/ 00693000 * /* */ 00694000 * /* SDATA WITH OPTIONS */ 00695000 * /* */ 00696000 * /***********************************************************/ 00697000 * 0373 00698000 * DO; /* YES, PROCEED @G33CPMR*/ 00699000 * IF SDATDONE=OFE THEN /* SPECIFIED BEFORE? @G33CPMR*/ 00700000 TM SDATDONE,B'00100000' 0374 00701000 BNZ @RF00374 0374 00702000 * CALL ITSSDATA; /* SDATA WITH OPTIONS */ 00703000 BAL @14,ITSSDATA 0375 00704000 * ELSE /* @G33CPMR*/ 00705000 * CALL CONFLICT; /* YES, ERROR @G33CPMR*/ 00706000 B @RC00374 0376 00707000 @RF00374 BAL @14,CONFLICT 0376 00708000 * END; /* END OF 'SDATA=' SUBROUTINE 0377 00709000 * @G33CPMR*/ 00710000 * ELSE 0378 00711000 * 0378 00712000 * /***********************************************************/ 00713000 * /* */ 00714000 * /* STOR WITH ADDRESS RANGE(S) */ 00715000 * /* */ 00716000 * /***********************************************************/ 00717000 * 0378 00718000 * IF REPLY(I:I+THREE)=STOR THEN/* KEYWORD IS STOR */ 00719000 B @RC00372 0378 00720000 @RF00372 LA @07,REPLY-1(I) 0378 00721000 CLC 0(4,@07),STOR 0378 00722000 BNE @RF00378 0378 00723000 * DO; /* @G33CPMR*/ 00724000 * IF STORDONE=OFE THEN /* SPECIFIED BEFORE? @G33CPMR*/ 00725000 TM STORDONE,B'01000000' 0380 00726000 BNZ @RF00380 0380 00727000 * CALL ITSSTOR; /* STOR ADDRESS */ 00728000 BAL @14,ITSSTOR 0381 00729000 * ELSE /* @G33CPMR*/ 00730000 * CALL CONFLICT; /* YES, ERROR @G33CPMR*/ 00731000 B @RC00380 0382 00732000 @RF00380 BAL @14,CONFLICT 0382 00733000 * END; /* END OF STOR SUBROUTINE 0383 00734000 * @G33CPMR*/ 00735000 * ELSE /* @G33CPMR*/ 00736000 * 0384 00737000 * /*********************************************************/ 00738000 * /* */ 00739000 * /* OPERAND 'CONT' IS SPECIFIED' @G33CPMR*/ 00740000 * /* */ 00741000 * /*********************************************************/ 00742000 * 0384 00743000 * IF REPLY(I:I+THREE)=CONT THEN/* 'CONT' SPECIFIED? 0384 00744000 * @G33CPMR*/ 00745000 B @RC00378 0384 00746000 @RF00378 LA @07,REPLY-1(I) 0384 00747000 CLC 0(4,@07),CONT 0384 00748000 BNE @RF00384 0384 00749000 * DO; /* YES, PROCEED @G33CPMR*/ 00750000 * IF REPLY(I+FOUR)^=BLANK THEN/* BLANK AFTERWARD? 0386 00751000 * @G33CPMR*/ 00752000 LA @07,REPLY+3(I) 0386 00753000 CLI 0(@07),C' ' 0386 00754000 BE @RF00386 0386 00755000 * DO; /* YES! @G33CPMR*/ 00756000 * MSGCODE=IEE307I;/* ERR CONDITION @G33CPMR*/ 00757000 MVI MSGCODE,X'07' 0388 00758000 * KEYWDERR=DUMP; /* INV KEYWORD @G33CPMR*/ 00759000 MVI KEYWDERR+4,C' ' 0389 00760000 MVC KEYWDERR+5(3),KEYWDERR+4 0389 00761000 MVC KEYWDERR(4),DUMP 0389 00762000 * END; /* @G33CPMR*/ 00763000 * ELSE /* @G33CPMR*/ 00764000 * DO; /* @G33CPMR*/ 00765000 B @RC00386 0391 00766000 @RF00386 DS 0H 0392 00767000 * CONTINUE=ON; /* NO, END OF DATA LINE @G33CPMR*/ 00768000 OI CONTINUE,B'10000000' 0392 00769000 * IF SDATDONE=OFE THEN/* OPTIONS SPECIFIED? 0393 00770000 * @G33CPMR*/ 00771000 TM SDATDONE,B'00100000' 0393 00772000 BNZ @RF00393 0393 00773000 * CALL DEFAULT; /* NO, SET DEFAULTS @G33CPMR*/ 00774000 BAL @14,DEFAULT 0394 00775000 * ELSE 0395 00776000 * ; /* @G33CPMR*/ 00777000 @RF00393 DS 0H 0396 00778000 * END; /* @G33CPMR*/ 00779000 * END; /* END OF CONT SUBROUTINE 0397 00780000 * @G33CPMR*/ 00781000 * ELSE /* NOT 'CONT' @G33CPMR*/ 00782000 * 0398 00783000 * /*******************************************************/ 00784000 * /* */ 00785000 * /* OPERAND 'END' IS SPECIFIED' @G33CPMR*/ 00786000 * /* */ 00787000 * /*******************************************************/ 00788000 * 0398 00789000 * IF REPLY(I:I+TWO)=ENDC THEN/* 'END' SPECIFIED? @G33CPMR*/ 00790000 B @RC00384 0398 00791000 @RF00384 LA @07,REPLY-1(I) 0398 00792000 CLC 0(3,@07),ENDC 0398 00793000 BNE @RF00398 0398 00794000 * DO; /* YES, PROCEED @G33CPMR*/ 00795000 * IF REPLY(I+THREE)^=BLANK THEN/* BLANK AFTERWARD? 0400 00796000 * @G33CPMR*/ 00797000 LA @07,REPLY+2(I) 0400 00798000 CLI 0(@07),C' ' 0400 00799000 BE @RF00400 0400 00800000 * DO; /* NO, PROCEED @G33CPMR*/ 00801000 * MSGCODE=IEE307I;/* ERR CONDITION @G33CPMR*/ 00802000 MVI MSGCODE,X'07' 0402 00803000 * KEYWDERR=DUMP;/* INV KEYWORD @G33CPMR*/ 00804000 MVI KEYWDERR+4,C' ' 0403 00805000 MVC KEYWDERR+5(3),KEYWDERR+4 0403 00806000 MVC KEYWDERR(4),DUMP 0403 00807000 * END; /* @G33CPMR*/ 00808000 * ELSE /* @G33CPMR*/ 00809000 * DO; /* @G33CPMR*/ 00810000 B @RC00400 0405 00811000 @RF00400 DS 0H 0406 00812000 * REPLYEND=ON; /* YES, END OF COMMAND INPUT 0406 00813000 * @G33CPMR*/ 00814000 OI REPLYEND,B'00000010' 0406 00815000 * IF STORDONE=ON&SDATDONE=OFE THEN/* DEFAULTS 0407 00816000 * SET? @G33CPMR*/ 00817000 TM STORDONE,B'01000000' 0407 00818000 BNO @RF00407 0407 00819000 TM SDATDONE,B'00100000' 0407 00820000 BNZ @RF00407 0407 00821000 * DUMPOPTS=DUMPOPTS&&DUMPOPTS;/* CLEAR 0408 00822000 * PRESETTED DEFAULTS @G33CPMR*/ 00823000 L @07,SDUMPPTR 0408 00824000 XC DUMPOPTS(2,@07),DUMPOPTS(@07) 0408 00825000 * ELSE 0409 00826000 * ; /* @G33CPMR*/ 00827000 @RF00407 DS 0H 0410 00828000 * END; /* @G33CPMR*/ 00829000 * END; /* END OF 'END' SUBROUTINE 0411 00830000 * @G33CPMR*/ 00831000 * ELSE /* @G33CPMR*/ 00832000 * 0412 00833000 * /*****************************************************/ 00834000 * /* */ 00835000 * /* NO VAILD OPERAND FOUND - PREPARE FOR ERROR MESSAGE*/ 00836000 * /* @G33CPMR*/ 00837000 * /* */ 00838000 * /*****************************************************/ 00839000 * 0412 00840000 * DO; /* @G33CPMR*/ 00841000 B @RC00398 0412 00842000 @RF00398 DS 0H 0413 00843000 * MSGCODE=IEE309I; /* ERROR CONDITION @G33CPMR*/ 00844000 MVI MSGCODE,X'09' 0413 00845000 * KEYWDERR=DUMP; /* INVALID KEYWORD @G33CPMR*/ 00846000 MVI KEYWDERR+4,C' ' 0414 00847000 MVC KEYWDERR+5(3),KEYWDERR+4 0414 00848000 MVC KEYWDERR(4),DUMP 0414 00849000 * END; /* @G33CPMR*/ 00850000 * END; 0416 00851000 @RC00398 DS 0H 0416 00852000 @RC00384 DS 0H 0416 00853000 @RC00378 DS 0H 0416 00854000 @RC00372 DS 0H 0416 00855000 @RC00359 DS 0H 0416 00856000 @DE00357 TM REPLYEND,B'00000010' 0416 00857000 BNZ @DC00357 0416 00858000 CLI MSGCODE,0 0416 00859000 BNE @DC00357 0416 00860000 TM CONTINUE,B'10000000' 0416 00861000 BZ @DL00357 0416 00862000 @DC00357 DS 0H 0417 00863000 * REG14=R14SA20; /* RESTORE RETURN REG */ 00864000 L REG14,R14SA20 0417 00865000 * END; 0418 00866000 @EL00008 DS 0H 0418 00867000 @EF00008 DS 0H 0418 00868000 @ER00008 BR @14 0418 00869000 *ITSASID: 0419 00870000 * PROC OPTIONS(NOSAVE,NOSAVEAREA); 0419 00871000 * 0419 00872000 ITSASID DS 0H 0420 00873000 */* ******************************************************************/ 00874000 */* */ 00875000 */* THIS ROUTINE WILL DO THE FOLLOWING */ 00876000 */* 1. DETERMINE THE LENGTH OF THE ASID FIELD */ 00877000 */* 2. DETERMINE IF THE EBCDIC CHARACTERS ARE BETWEEN */ 00878000 */* ZERO AND NINE */ 00879000 */* 3. DETERMINE ERROR CONDITIONS */ 00880000 */* 4. CALL FINDASID TO PACK AND CVB THE ASID */ 00881000 */* 5. DETERMINE IF A KEYWORD FOLLOWS THE ASID */ 00882000 */* */ 00883000 */* ******************************************************************/ 00884000 * 0420 00885000 * R14SA12=REG14; /* SAVE RETURN ADDRESS */ 00886000 ST REG14,R14SA12 0420 00887000 * REPLYCK=OFE; /* NO ERROR YET */ 00888000 NI REPLYCK,B'01111111' 0421 00889000 * IF REPLY(SIX)^=LFTPRN THEN /* A LEFT PARENTHESIS? @G33CPMR*/ 00890000 * 0422 00891000 CLI REPLY+5,C'(' 0422 00892000 BE @RF00422 0422 00893000 * /***************************************************************/ 00894000 * /* */ 00895000 * /* A SINGLE ASID NUMBER HAS BEEN SPECIFIED @G33CPMR*/ 00896000 * /* */ 00897000 * /***************************************************************/ 00898000 * 0423 00899000 * DO; /* NO, A SINGLE ASID @G33CPMR*/ 00900000 * I2=SIX; /* SET INDEX TO 1ST CHAR. 0424 00901000 * @G33CPMR*/ 00902000 LA @07,6 0424 00903000 ST @07,I2 0424 00904000 * LOOPCNT=ONE; /* LOOP ONLY ONCE @G33CPMR*/ 00905000 MVC LOOPCNT(2),@CH00047 0425 00906000 * DO I=SIX TO ELEVEN WHILE REPLY(I)^=COMMA&REPLY(I)^=BLANK& 0426 00907000 * MSGCODE=ZERO; /* SYNTAX LOOP @G33CPMR*/ 00908000 LR I,@07 0426 00909000 @DL00426 LA @07,REPLY-1(I) 0426 00910000 CLI 0(@07),C',' 0426 00911000 BE @DC00426 0426 00912000 LA @07,REPLY-1(I) 0426 00913000 CLI 0(@07),C' ' 0426 00914000 BE @DC00426 0426 00915000 CLI MSGCODE,0 0426 00916000 BNE @DC00426 0426 00917000 * IF REPLY(I)>CHARNINE|REPLY(I)CHARNINE|REPLY(I)FIVE THEN/* ASID LENGTH? 0461 01047000 * @G33CPMR*/ 01048000 LH @07,COUNT 0461 01049000 LTR @07,@07 0461 01050000 BNP @RT00461 0461 01051000 CH @07,@CH00367 0461 01052000 BNH @RF00461 0461 01053000 @RT00461 DS 0H 0462 01054000 * DO; /* ERROR @G33CPMR*/ 01055000 * MSGCODE=IEE308I;/* TERM LENGTH @G33CPMR*/ 01056000 MVI MSGCODE,X'08' 0463 01057000 * KEYWDERR=NOTASID;/* NO ASID SPECIFIED */ 01058000 MVI KEYWDERR+4,C' ' 0464 01059000 MVC KEYWDERR+5(3),KEYWDERR+4 0464 01060000 MVC KEYWDERR(4),NOTASID 0464 01061000 * END; /* @G33CPMR*/ 01062000 * ELSE /* FIVE OR LESS @G33CPMR*/ 01063000 * DO; /* ALL OKAY!!! @G33CPMR*/ 01064000 B @RC00461 0466 01065000 @RF00461 DS 0H 0467 01066000 * LOOPCNT=LOOPCNT+ONE;/* UP LOOP COUNT @G33CPMR*/ 01067000 LA @07,1 0467 01068000 LH @02,LOOPCNT 0467 01069000 ALR @02,@07 0467 01070000 STH @02,LOOPCNT 0467 01071000 * IF REPLY(I)=COMMA THEN/* A COMMA? @G33CPMR*/ 01072000 LA @02,REPLY-1(I) 0468 01073000 CLI 0(@02),C',' 0468 01074000 BNE @RF00468 0468 01075000 * I=I+ONE; /* YES, BUMP INDEX @G33CPMR*/ 01076000 ALR I,@07 0469 01077000 * ELSE 0470 01078000 * ; /* @G33CPMR*/ 01079000 @RF00468 DS 0H 0471 01080000 * END; /* @G33CPMR*/ 01081000 * END; /* @G33CPMR*/ 01082000 * ELSE 0473 01083000 * ; /* @G33CPMR*/ 01084000 @RF00459 DS 0H 0474 01085000 * END; /* @G33CPMR*/ 01086000 @RC00459 DS 0H 0474 01087000 @DE00446 LA @07,REPLY-1(I) 0474 01088000 CLI 0(@07),C')' 0474 01089000 BE @DC00446 0474 01090000 CLI MSGCODE,0 0474 01091000 BE @DL00446 0474 01092000 @DC00446 DS 0H 0475 01093000 * IF MSGCODE=ZERO THEN /* STILL ERROR-FREE? @G33CPMR*/ 01094000 * 0475 01095000 CLI MSGCODE,0 0475 01096000 BNE @RF00475 0475 01097000 * /*********************************************************/ 01098000 * /* */ 01099000 * /* CHECK FOR NUMBER OF ALLOWABLE ASID'S @G33CPMR*/ 01100000 * /* */ 01101000 * /*********************************************************/ 01102000 * 0476 01103000 * DO; /* YES @G33CPMR*/ 01104000 * IF LOOPCNT>FIFTEEN THEN/* LOOP COUNT? @G33CPMR*/ 01105000 LH @07,LOOPCNT 0477 01106000 CH @07,@CH00080 0477 01107000 BNH @RF00477 0477 01108000 * DO; /* MORE THAN 15 @G33CPMR*/ 01109000 * MSGCODE=IEE308I; /* ERROR CONDITION @G33CPMR*/ 01110000 MVI MSGCODE,X'08' 0479 01111000 * KEYWDERR=DUMP; /* SET FILLER @G33CPMR*/ 01112000 MVI KEYWDERR+4,C' ' 0480 01113000 MVC KEYWDERR+5(3),KEYWDERR+4 0480 01114000 MVC KEYWDERR(4),DUMP 0480 01115000 * END; /* @G33CPMR*/ 01116000 * ELSE 0482 01117000 * ; /* @G33CPMR*/ 01118000 @RF00477 DS 0H 0483 01119000 * END; /* @G33CPMR*/ 01120000 * ELSE 0484 01121000 * ; /* @G33CPMR*/ 01122000 @RF00475 DS 0H 0485 01123000 * END; /* @G33CPMR*/ 01124000 * ELSE /* SU33 NOT INSTALLED @G33CPMR*/ 01125000 * 0486 01126000 * /*************************************************************/ 01127000 * /* */ 01128000 * /* MULTIPLES NOT PERMITTED ON NON-SU33 SYSTEMS @G33CPMR*/ 01129000 * /* */ 01130000 * /*************************************************************/ 01131000 * 0486 01132000 * DO; /* @G33CPMR*/ 01133000 B @RC00441 0486 01134000 @RF00441 DS 0H 0487 01135000 * MSGCODE=IEE308I; /* ERROR CONDITION @G33CPMR*/ 01136000 MVI MSGCODE,X'08' 0487 01137000 * KEYWDERR=DUMP; /* SET FILLER @G33CPMR*/ 01138000 MVI KEYWDERR+4,C' ' 0488 01139000 MVC KEYWDERR+5(3),KEYWDERR+4 0488 01140000 MVC KEYWDERR(4),DUMP 0488 01141000 * END; /* @G33CPMR*/ 01142000 * IF MSGCODE=0 THEN /* VALID ASID SYNTAX */ 01143000 * 0490 01144000 @RC00441 DS 0H 0490 01145000 @RC00422 CLI MSGCODE,0 0490 01146000 BNE @RF00490 0490 01147000 * /***************************************************************/ 01148000 * /* */ 01149000 * /* STILL ERROR FREE - PREPARE THE ASID @G33CPMR*/ 01150000 * /* */ 01151000 * /***************************************************************/ 01152000 * 0491 01153000 * DO; 0491 01154000 * I=I2; /* RESET INDEX @G33CPMR*/ 01155000 L I,I2 0492 01156000 * IF LOOPCNT>ONE THEN /* LOOP ONLY ONCE? @G33CPMR*/ 01157000 LA @07,1 0493 01158000 CH @07,LOOPCNT 0493 01159000 BNL @RF00493 0493 01160000 * DO; /* NO..... @G33CPMR*/ 01161000 * SDUNEW=ON; /* SET NEW DUMP BIT @G33CPMR*/ 01162000 * SDUASLST=ON; /* INDICATE MULTIPLE ASID 0496 01163000 * @G33CPMR*/ 01164000 L @02,SDUMPPTR 0496 01165000 OI SDUNEW(@02),B'00110000' 0496 01166000 * SDUASIDP=ADDR(ASIDAREA);/* SET ADDRESS @G33CPMR*/ 01167000 LA @00,ASIDAREA 0497 01168000 ST @00,SDUASIDP(,@02) 0497 01169000 * COUNT=ONE; /* INITIALIZE ARRAY INDEX 0498 01170000 * @G33CPMR*/ 01171000 STH @07,COUNT 0498 01172000 * END; /* @G33CPMR*/ 01173000 * ELSE 0500 01174000 * ; /* @G33CPMR*/ 01175000 @RF00493 DS 0H 0501 01176000 * DO UNTIL LOOPCNT=ZERO|MSGCODE^=ZERO;/* LOOP UNTIL ZERO 0501 01177000 * @G33CPMR*/ 01178000 @DL00501 DS 0H 0502 01179000 * DO UNTIL REPLY(I)=COMMA|REPLY(I)=BLANK|REPLY(I)=RTPRN;/* 0502 01180000 * LOOP TO GET LENGTH @G33CPMR*/ 01181000 @DL00502 DS 0H 0503 01182000 * I=I+ONE; /* BUMP INDEX @G33CPMR*/ 01183000 AH I,@CH00047 0503 01184000 * END; /* @G33CPMR*/ 01185000 @DE00502 LA @07,REPLY-1(I) 0504 01186000 CLI 0(@07),C',' 0504 01187000 BE @DC00502 0504 01188000 LA @07,REPLY-1(I) 0504 01189000 CLI 0(@07),C' ' 0504 01190000 BE @DC00502 0504 01191000 LA @07,REPLY-1(I) 0504 01192000 CLI 0(@07),C')' 0504 01193000 BNE @DL00502 0504 01194000 @DC00502 DS 0H 0505 01195000 * I3=I-I2-ONE; /* COMPUTE LENGTH @G33CPMR*/ 01196000 LR @07,I 0505 01197000 SL @07,I2 0505 01198000 BCTR @07,0 0505 01199000 ST @07,I3 0505 01200000 * CALL FINDASID; /* PACK AND CVB THE ASID */ 01201000 BAL @14,FINDASID 0506 01202000 * 0507 01203000 * /***********************************************************/ 01204000 * /* */ 01205000 * /* AN ASID WAS PROCESSED @G33CPMR*/ 01206000 * /* */ 01207000 * /***********************************************************/ 01208000 * 0507 01209000 * IF MSGCODE=ZERO THEN /* VALID ASID? @G33CPMR*/ 01210000 CLI MSGCODE,0 0507 01211000 BNE @RF00507 0507 01212000 * DO; /* YES @G33CPMR*/ 01213000 * IF SDUASIDP^=ZERO THEN/* MULTIPLE ASID? @G33CPMR*/ 01214000 L @07,SDUMPPTR 0509 01215000 L @02,SDUASIDP(,@07) 0509 01216000 LTR @02,@02 0509 01217000 BZ @RF00509 0509 01218000 * DO; /* YES @G33CPMR*/ 01219000 * IF REPLY(I)=RTPRN THEN/* LAST ONE? @G33CPMR*/ 01220000 LA @02,REPLY-1(I) 0511 01221000 CLI 0(@02),C')' 0511 01222000 BNE @RF00511 0511 01223000 * SDUTASID=SDUTASID|HIGHBIT;/* YES, SET HIGH ORDER 01224000 * BIT @G33CPMR*/ 01225000 L @02,@CF01860 0512 01226000 MVC @ZT00002+2(2),SDUTASID(@07) 0512 01227000 O @02,@ZT00002 0512 01228000 STH @02,SDUTASID(,@07) 0512 01229000 * ELSE 0513 01230000 * ; /* @G33CPMR*/ 01231000 @RF00511 DS 0H 0514 01232000 * ASIDAREA(COUNT)=SDUTASID;/* PUT IN THE ARRAY 0514 01233000 * @G33CPMR*/ 01234000 LH @07,COUNT 0514 01235000 ALR @07,@07 0514 01236000 L @02,SDUMPPTR 0514 01237000 MVC @ZT00002+2(2),SDUTASID(@02) 0514 01238000 L @09,@ZT00002 0514 01239000 STH @09,ASIDAREA-2(@07) 0514 01240000 * SDUTASID=SDUTASID&&SDUTASID;/* CLEAR TEMP. AREA 0515 01241000 * @G33CPMR*/ 01242000 LR @07,@09 0515 01243000 XR @07,@09 0515 01244000 STH @07,SDUTASID(,@02) 0515 01245000 * END; /* @G33CPMR*/ 01246000 * ELSE 0517 01247000 * ; /* @G33CPMR*/ 01248000 @RF00509 DS 0H 0518 01249000 * IF REPLY(I)=COMMA|REPLY(I)=RTPRN THEN/* @G33CPMR*/ 01250000 LA @07,REPLY-1(I) 0518 01251000 CLI 0(@07),C',' 0518 01252000 BE @RT00518 0518 01253000 LA @07,REPLY-1(I) 0518 01254000 CLI 0(@07),C')' 0518 01255000 BNE @RF00518 0518 01256000 @RT00518 DS 0H 0519 01257000 * DO; /* THERE ARE MORE TO COME 0519 01258000 * @G33CPMR*/ 01259000 * I=I+ONE; /* BUMP INDEX @G33CPMR*/ 01260000 AH I,@CH00047 0520 01261000 * I2=I; /* SET INDEX @G33CPMR*/ 01262000 ST I,I2 0521 01263000 * END; /* @G33CPMR*/ 01264000 * ELSE 0523 01265000 * ; /* @G33CPMR*/ 01266000 @RF00518 DS 0H 0524 01267000 * LOOPCNT=LOOPCNT-ONE; /* DECREASE LOOP COUNTER @G33CPMR*/ 01268000 LH @07,LOOPCNT 0524 01269000 BCTR @07,0 0524 01270000 STH @07,LOOPCNT 0524 01271000 * COUNT=COUNT+ONE; /* BUMP ARRAY INDEX @G33CPMR*/ 01272000 LH @07,COUNT 0525 01273000 LA @07,1(,@07) 0525 01274000 STH @07,COUNT 0525 01275000 * END; /* @G33CPMR*/ 01276000 * ELSE 0527 01277000 * ; /* @G33CPMR*/ 01278000 @RF00507 DS 0H 0528 01279000 * END; /* @G33CPMR*/ 01280000 @DE00501 LH @07,LOOPCNT 0528 01281000 LTR @07,@07 0528 01282000 BZ @DC00501 0528 01283000 CLI MSGCODE,0 0528 01284000 BE @DL00501 0528 01285000 @DC00501 DS 0H 0529 01286000 * 0529 01287000 * /*************************************************************/ 01288000 * /* */ 01289000 * /* CHECK FOR BLANK AFTER PROCESSED ASID @G33CPMR*/ 01290000 * /* */ 01291000 * /*************************************************************/ 01292000 * 0529 01293000 * IF REPLY(I)=BLANK|REPLY(I-ONE:I)=PRNBLANK|REPLY(I-ONE:I+THREE)= 01294000 * PRNCMEND THEN /* @G33CPMR*/ 01295000 LA @07,REPLY-1(I) 0529 01296000 CLI 0(@07),C' ' 0529 01297000 BE @RT00529 0529 01298000 LA @07,REPLY-2(I) 0529 01299000 CLC 0(2,@07),@CC01734 0529 01300000 BE @RT00529 0529 01301000 LA @07,REPLY-2(I) 0529 01302000 CLC 0(5,@07),@CC01736 0529 01303000 BNE @RF00529 0529 01304000 @RT00529 DS 0H 0530 01305000 * DO; 0530 01306000 * REPLYEND=ON; /* END OF THE REPLY */ 01307000 OI REPLYEND,B'00000010' 0531 01308000 * CALL DEFAULT; /* DEFAULT SDATA OPTIONS */ 01309000 BAL @14,DEFAULT 0532 01310000 * END; 0533 01311000 * ELSE 0534 01312000 * ; 0534 01313000 @RF00529 DS 0H 0535 01314000 * IF REPLY(I-ONE:I)=PRNCOM THEN/* A '),'? @G33CPMR*/ 01315000 LA @07,REPLY-2(I) 0535 01316000 CLC 0(2,@07),@CC01732 0535 01317000 BNE @RF00535 0535 01318000 * I=I+1; /* ADVANCE INDEX */ 01319000 AH I,@CH00047 0536 01320000 * ELSE 0537 01321000 * ; /* NO @G33CPMR*/ 01322000 @RF00535 DS 0H 0538 01323000 * END; /* @G33CPMR*/ 01324000 * ELSE 0539 01325000 * ; /* @G33CPMR*/ 01326000 @RF00490 DS 0H 0540 01327000 * REG14=R14SA12; /* RESTORE RETURN ADDR */ 01328000 L REG14,R14SA12 0540 01329000 * END; 0541 01330000 @EL00009 DS 0H 0541 01331000 @EF00009 DS 0H 0541 01332000 @ER00009 BR @14 0541 01333000 *JOBNAMES: 0542 01334000 * PROC OPTIONS(NOSAVE,NOSAVEAREA); 0542 01335000 * 0542 01336000 JOBNAMES DS 0H 0543 01337000 */* ******************************************************************/ 01338000 */* */ 01339000 */* JOBNAMES WILL DO THE FOLLOWING */ 01340000 */* 1. DETERMINE LENGTH OF THE JOBNAME */ 01341000 */* 2. CALL FINDJOB TO FIND THE JOB ON */ 01342000 */* THE CSCB CHAIN AND GET ITS ASID */ 01343000 */* 3. CALL DEFAULT ROUTINE IF DEFAULT */ 01344000 */* OPTIONS ARE INDICATED */ 01345000 */* */ 01346000 */* ******************************************************************/ 01347000 * 0543 01348000 * R14SAV8=REG14; /* SAVE RETURN ADDRESS */ 01349000 ST REG14,R14SAV8 0543 01350000 * IF REPLY(ONE:EIGHT)=TSONAME THEN/* TSO JOB ID @ZA00880*/ 01351000 CLC REPLY(8),TSONAME 0544 01352000 BNE @RF00544 0544 01353000 * TSOBIT=ON; /* SET TSO INDICATOR @ZA00880*/ 01354000 OI TSOBIT,B'00000001' 0545 01355000 * REPLYCK=OFE; /* NO ERROR YET */ 01356000 @RF00544 NI REPLYCK,B'01111111' 0546 01357000 * IF REPLY(NINE)^=LFTPRN THEN /* A LEFT PARENTHESIS? @G33CPMR*/ 01358000 * 0547 01359000 CLI REPLY+8,C'(' 0547 01360000 BE @RF00547 0547 01361000 * /***************************************************************/ 01362000 * /* */ 01363000 * /* A SINGLE JOBNAME/TSONAME HAS BEEN SPECIFIED @G33CPMR*/ 01364000 * /* */ 01365000 * /***************************************************************/ 01366000 * 0548 01367000 * DO; /* NO, A SINGLE NAME @G33CPMR*/ 01368000 * I2=NINE; /* SET INDEX TO 1ST CHAR. 0549 01369000 * @G33CPMR*/ 01370000 LA @07,9 0549 01371000 ST @07,I2 0549 01372000 * LOOPCNT=ONE; /* LOOP ONLY ONCE @G33CPMR*/ 01373000 MVC LOOPCNT(2),@CH00047 0550 01374000 * DO I=NINE TO SEVNTEEN WHILE REPLY(I)^=BLANK&REPLY(I)^=COMMA; 01375000 LR I,@07 0551 01376000 @DL00551 LA @07,REPLY-1(I) 0551 01377000 CLI 0(@07),C' ' 0551 01378000 BE @DC00551 0551 01379000 LA @07,REPLY-1(I) 0551 01380000 CLI 0(@07),C',' 0551 01381000 BE @DC00551 0551 01382000 * /* LENGTH OF JOBNAME */ 01383000 * END; 0552 01384000 AH I,@CH00047 0552 01385000 CH I,@CH01764 0552 01386000 BNH @DL00551 0552 01387000 @DC00551 DS 0H 0553 01388000 * NAMELGTH=I-NINE; /* LENGTH JOBNAME */ 01389000 LR @07,I 0553 01390000 SH @07,@CH00124 0553 01391000 STH @07,NAMELGTH 0553 01392000 * IF NAMELGTH<=ZERO|NAMELGTH>EIGHT THEN/* @G33CPMR*/ 01393000 LTR @07,@07 0554 01394000 BNP @RT00554 0554 01395000 CH @07,@CH00049 0554 01396000 BNH @RF00554 0554 01397000 @RT00554 DS 0H 0555 01398000 * DO; 0555 01399000 * KEYWDERR=REPLY(ONE:SEVEN);/* INVALID JOBNAME @G33CPMR*/ 01400000 MVI KEYWDERR+7,C' ' 0556 01401000 MVC KEYWDERR(7),REPLY 0556 01402000 * MSGCODE=IEE308I; /* TERM LENGTH ERROR @G33CPMR*/ 01403000 MVI MSGCODE,X'08' 0557 01404000 * END; /* @G33CPMR*/ 01405000 * ELSE 0559 01406000 * ; /* @G33CPMR*/ 01407000 @RF00554 DS 0H 0560 01408000 * END; /* @G33CPMR*/ 01409000 * ELSE /* @G33CPMR*/ 01410000 * IF SU33BIT=ON THEN /* SU33 INSTALLED? @G33CPMR*/ 01411000 * 0561 01412000 B @RC00547 0561 01413000 @RF00547 L @07,CVTPTR 0561 01414000 L @07,CVTIHASU(,@07) 0561 01415000 TM SU33BIT(@07),B'01000000' 0561 01416000 BNO @RF00561 0561 01417000 * /*************************************************************/ 01418000 * /* */ 01419000 * /* MULTIPLE JOBNAMES/TSONAMES HAVE BEEN SPECIFIED @G33CPMR*/ 01420000 * /* */ 01421000 * /*************************************************************/ 01422000 * 0562 01423000 * DO; /* YES, MULTIPLE NAMES @G33CPMR*/ 01424000 * I2=TEN; /* SET INDEX TO 1ST CHAR @G33CPMR*/ 01425000 LA @07,10 0563 01426000 ST @07,I2 0563 01427000 * I=I2; /* SET INDEX TO 1ST CHAR @G33CPMR*/ 01428000 LR I,@07 0564 01429000 * LOOPCNT=ZERO; /* INITIALIZE LOOP COUNT @G33CPMR*/ 01430000 SLR @07,@07 0565 01431000 STH @07,LOOPCNT 0565 01432000 * DO WHILE REPLY(I)^=RTPRN&MSGCODE=ZERO;/* @G33CPMR*/ 01433000 B @DE00566 0566 01434000 @DL00566 DS 0H 0567 01435000 * NAMELGTH=ZERO; /* CLEAR LENGTH COUNT @G33CPMR*/ 01436000 SLR @07,@07 0567 01437000 STH @07,NAMELGTH 0567 01438000 * DO WHILE REPLY(I)^=RTPRN&REPLY(I)^=COMMA&I<=ONETWOOH;/* 01439000 * @G33CPMR*/ 01440000 B @DE00568 0568 01441000 @DL00568 DS 0H 0569 01442000 * NAMELGTH=NAMELGTH+ONE;/* UP LENGTH COUNT @G33CPMR*/ 01443000 LA @07,1 0569 01444000 LH @02,NAMELGTH 0569 01445000 ALR @02,@07 0569 01446000 STH @02,NAMELGTH 0569 01447000 * I=I+ONE; /* BUMP INDEX @G33CPMR*/ 01448000 ALR I,@07 0570 01449000 * END; /* @G33CPMR*/ 01450000 @DE00568 LA @07,REPLY-1(I) 0571 01451000 CLI 0(@07),C')' 0571 01452000 BE @DC00568 0571 01453000 LA @07,REPLY-1(I) 0571 01454000 CLI 0(@07),C',' 0571 01455000 BE @DC00568 0571 01456000 CH I,@CH01766 0571 01457000 BNH @DL00568 0571 01458000 @DC00568 DS 0H 0572 01459000 * IF NAMELGTH<=ZERO|NAMELGTH>EIGHT THEN/* @G33CPMR*/ 01460000 LH @07,NAMELGTH 0572 01461000 LTR @07,@07 0572 01462000 BNP @RT00572 0572 01463000 CH @07,@CH00049 0572 01464000 BNH @RF00572 0572 01465000 @RT00572 DS 0H 0573 01466000 * DO; /* VALID NAME LENGTH? @G33CPMR*/ 01467000 * KEYWDERR=REPLY(ONE:SEVEN);/* NO, SET FILLER @G33CPMR*/ 01468000 MVI KEYWDERR+7,C' ' 0574 01469000 MVC KEYWDERR(7),REPLY 0574 01470000 * MSGCODE=IEE308I; /* SET ERROR CODE @G33CPMR*/ 01471000 MVI MSGCODE,X'08' 0575 01472000 * END; /* @G33CPMR*/ 01473000 * ELSE 0577 01474000 * ; /* @G33CPMR*/ 01475000 @RF00572 DS 0H 0578 01476000 * IF MSGCODE=ZERO THEN /* ERROR-FREE NOW? @G33CPMR*/ 01477000 CLI MSGCODE,0 0578 01478000 BNE @RF00578 0578 01479000 * DO; /* @G33CPMR*/ 01480000 * LOOPCNT=LOOPCNT+ONE;/* UP LOOP COUNT @G33CPMR*/ 01481000 LA @07,1 0580 01482000 LH @02,LOOPCNT 0580 01483000 ALR @02,@07 0580 01484000 STH @02,LOOPCNT 0580 01485000 * IF REPLY(I)=COMMA THEN/* A COMMA? @G33CPMR*/ 01486000 LA @02,REPLY-1(I) 0581 01487000 CLI 0(@02),C',' 0581 01488000 BNE @RF00581 0581 01489000 * I=I+ONE; /* YES, BUMP INDEX @G33CPMR*/ 01490000 ALR I,@07 0582 01491000 * ELSE 0583 01492000 * ; /* @G33CPMR*/ 01493000 @RF00581 DS 0H 0584 01494000 * END; /* @G33CPMR*/ 01495000 * ELSE 0585 01496000 * ; /* @G33CPMR*/ 01497000 @RF00578 DS 0H 0586 01498000 * END; /* @G33CPMR*/ 01499000 @DE00566 LA @07,REPLY-1(I) 0586 01500000 CLI 0(@07),C')' 0586 01501000 BE @DC00566 0586 01502000 CLI MSGCODE,0 0586 01503000 BE @DL00566 0586 01504000 @DC00566 DS 0H 0587 01505000 * IF MSGCODE=ZERO THEN /* STILL ERROR-FREE? @G33CPMR*/ 01506000 * 0587 01507000 CLI MSGCODE,0 0587 01508000 BNE @RF00587 0587 01509000 * /*********************************************************/ 01510000 * /* */ 01511000 * /* CHECK FOR NUMBER OF ALLOWABLE ASID'S @G33CPMR*/ 01512000 * /* */ 01513000 * /*********************************************************/ 01514000 * 0588 01515000 * DO; /* YES @G33CPMR*/ 01516000 * IF LOOPCNT>FIFTEEN THEN/* LOOP COUNT? @G33CPMR*/ 01517000 LH @07,LOOPCNT 0589 01518000 CH @07,@CH00080 0589 01519000 BNH @RF00589 0589 01520000 * DO; /* MORE THAN 15 @G33CPMR*/ 01521000 * MSGCODE=IEE308I; /* ERROR CONDITION @G33CPMR*/ 01522000 MVI MSGCODE,X'08' 0591 01523000 * KEYWDERR=DUMP; /* SET FILLER @G33CPMR*/ 01524000 MVI KEYWDERR+4,C' ' 0592 01525000 MVC KEYWDERR+5(3),KEYWDERR+4 0592 01526000 MVC KEYWDERR(4),DUMP 0592 01527000 * END; /* @G33CPMR*/ 01528000 * ELSE 0594 01529000 * ; /* @G33CPMR*/ 01530000 @RF00589 DS 0H 0595 01531000 * END; /* @G33CPMR*/ 01532000 * ELSE 0596 01533000 * ; /* @G33CPMR*/ 01534000 @RF00587 DS 0H 0597 01535000 * END; /* @G33CPMR*/ 01536000 * ELSE /* SU33 NOT INSTALLED @G33CPMR*/ 01537000 * 0598 01538000 * /*************************************************************/ 01539000 * /* */ 01540000 * /* MULTIPLES NOT PERMITTED ON NON-SU33 SYSTEMS @G33CPMR*/ 01541000 * /* */ 01542000 * /*************************************************************/ 01543000 * 0598 01544000 * DO; /* @G33CPMR*/ 01545000 B @RC00561 0598 01546000 @RF00561 DS 0H 0599 01547000 * MSGCODE=IEE308I; /* ERROR CONDITION @G33CPMR*/ 01548000 MVI MSGCODE,X'08' 0599 01549000 * KEYWDERR=DUMP; /* SET FILLER @G33CPMR*/ 01550000 MVI KEYWDERR+4,C' ' 0600 01551000 MVC KEYWDERR+5(3),KEYWDERR+4 0600 01552000 MVC KEYWDERR(4),DUMP 0600 01553000 * END; /* @G33CPMR*/ 01554000 * IF MSGCODE=ZERO THEN /* VALID NAME SYNTAX @G33CPMR*/ 01555000 * 0602 01556000 @RC00561 DS 0H 0602 01557000 @RC00547 CLI MSGCODE,0 0602 01558000 BNE @RF00602 0602 01559000 * /***************************************************************/ 01560000 * /* */ 01561000 * /* STILL ERROR FREE - PROCESS THE JOBNAME/TSONAME @G33CPMR*/ 01562000 * /* */ 01563000 * /***************************************************************/ 01564000 * 0603 01565000 * DO; /* @G33CPMR*/ 01566000 * I=I2; /* RESET INDEX @G33CPMR*/ 01567000 L I,I2 0604 01568000 * IF LOOPCNT>ONE THEN /* LOOP ONLY ONCE? @G33CPMR*/ 01569000 LA @07,1 0605 01570000 CH @07,LOOPCNT 0605 01571000 BNL @RF00605 0605 01572000 * DO; /* NO..... @G33CPMR*/ 01573000 * SDUNEW=ON; /* SET NEW DUMP BIT @G33CPMR*/ 01574000 * SDUASLST=ON; /* INDICATE MULTIPLE ASID 0608 01575000 * @G33CPMR*/ 01576000 L @02,SDUMPPTR 0608 01577000 OI SDUNEW(@02),B'00110000' 0608 01578000 * SDUASIDP=ADDR(ASIDAREA);/* SET ADDRESS @G33CPMR*/ 01579000 LA @00,ASIDAREA 0609 01580000 ST @00,SDUASIDP(,@02) 0609 01581000 * COUNT=ONE; /* INITIALIZE ARRAY INDEX 0610 01582000 * @G33CPMR*/ 01583000 STH @07,COUNT 0610 01584000 * END; /* @G33CPMR*/ 01585000 * ELSE 0612 01586000 * ; /* @G33CPMR*/ 01587000 @RF00605 DS 0H 0613 01588000 * DO UNTIL LOOPCNT=ZERO|MSGCODE^=ZERO;/* LOOP UNTIL ZERO 0613 01589000 * @G33CPMR*/ 01590000 @DL00613 DS 0H 0614 01591000 * DO UNTIL REPLY(I)=COMMA|REPLY(I)=BLANK|REPLY(I)=RTPRN;/* 0614 01592000 * LOOP TO GET LENGTH @G33CPMR*/ 01593000 @DL00614 DS 0H 0615 01594000 * I=I+ONE; /* BUMP INDEX @G33CPMR*/ 01595000 AH I,@CH00047 0615 01596000 * END; /* @G33CPMR*/ 01597000 @DE00614 LA @07,REPLY-1(I) 0616 01598000 CLI 0(@07),C',' 0616 01599000 BE @DC00614 0616 01600000 LA @07,REPLY-1(I) 0616 01601000 CLI 0(@07),C' ' 0616 01602000 BE @DC00614 0616 01603000 LA @07,REPLY-1(I) 0616 01604000 CLI 0(@07),C')' 0616 01605000 BNE @DL00614 0616 01606000 @DC00614 DS 0H 0617 01607000 * NAME=NAME&&NAME; /* INIT STORAGE */ 01608000 XC NAME(8),NAME 0617 01609000 * NAME=REPLY(I2:I-ONE); /* GET NAME @G33CPMR*/ 01610000 MVI NAME+1,C' ' 0618 01611000 MVC NAME+2(6),NAME+1 0618 01612000 L @07,I2 0618 01613000 LR @02,I 0618 01614000 SLR @02,@07 0618 01615000 BCTR @02,0 0618 01616000 LA @09,REPLY-1(@07) 0618 01617000 EX @02,@SM02042 0618 01618000 * CALL FINDJOB; /* LOCATE JOBNAME */ 01619000 BAL @14,FINDJOB 0619 01620000 * 0620 01621000 * /***********************************************************/ 01622000 * /* */ 01623000 * /* AN ASID WAS FOUND AFTER THE CALL @G33CPMR*/ 01624000 * /* */ 01625000 * /***********************************************************/ 01626000 * 0620 01627000 * IF MSGCODE=ZERO THEN /* ERROR-FREE? @G33CPMR*/ 01628000 CLI MSGCODE,0 0620 01629000 BNE @RF00620 0620 01630000 * DO; /* YES @G33CPMR*/ 01631000 * IF SDUASIDP^=ZERO THEN/* MULTIPLE ASID? @G33CPMR*/ 01632000 L @07,SDUMPPTR 0622 01633000 L @02,SDUASIDP(,@07) 0622 01634000 LTR @02,@02 0622 01635000 BZ @RF00622 0622 01636000 * DO; /* YES @G33CPMR*/ 01637000 * IF REPLY(I)=RTPRN THEN/* LAST ONE? @G33CPMR*/ 01638000 LA @02,REPLY-1(I) 0624 01639000 CLI 0(@02),C')' 0624 01640000 BNE @RF00624 0624 01641000 * SDUTASID=SDUTASID|HIGHBIT;/* YES, SET HIGH ORDER 01642000 * BIT @G33CPMR*/ 01643000 L @02,@CF01860 0625 01644000 MVC @ZT00002+2(2),SDUTASID(@07) 0625 01645000 O @02,@ZT00002 0625 01646000 STH @02,SDUTASID(,@07) 0625 01647000 * ELSE 0626 01648000 * ; /* @G33CPMR*/ 01649000 @RF00624 DS 0H 0627 01650000 * ASIDAREA(COUNT)=SDUTASID;/* PUT IN THE ARRAY 0627 01651000 * @G33CPMR*/ 01652000 LH @07,COUNT 0627 01653000 ALR @07,@07 0627 01654000 L @02,SDUMPPTR 0627 01655000 MVC @ZT00002+2(2),SDUTASID(@02) 0627 01656000 L @09,@ZT00002 0627 01657000 STH @09,ASIDAREA-2(@07) 0627 01658000 * SDUTASID=SDUTASID&&SDUTASID;/* CLEAR TEMP. AREA 0628 01659000 * @G33CPMR*/ 01660000 LR @07,@09 0628 01661000 XR @07,@09 0628 01662000 STH @07,SDUTASID(,@02) 0628 01663000 * END; /* @G33CPMR*/ 01664000 * ELSE 0630 01665000 * ; /* @G33CPMR*/ 01666000 @RF00622 DS 0H 0631 01667000 * IF REPLY(I)=COMMA|REPLY(I)=RTPRN THEN 0631 01668000 LA @07,REPLY-1(I) 0631 01669000 CLI 0(@07),C',' 0631 01670000 BE @RT00631 0631 01671000 LA @07,REPLY-1(I) 0631 01672000 CLI 0(@07),C')' 0631 01673000 BNE @RF00631 0631 01674000 @RT00631 DS 0H 0632 01675000 * DO; /* THERE ARE MORE TO COME 0632 01676000 * @G33CPMR*/ 01677000 * I=I+ONE; /* BUMP INDEX @G33CPMR*/ 01678000 AH I,@CH00047 0633 01679000 * I2=I; /* SET INDEX @G33CPMR*/ 01680000 ST I,I2 0634 01681000 * END; /* @G33CPMR*/ 01682000 * ELSE 0636 01683000 * ; /* @G33CPMR*/ 01684000 @RF00631 DS 0H 0637 01685000 * LOOPCNT=LOOPCNT-ONE; /* DECREASE LOOP COUNT @G33CPMR*/ 01686000 LH @07,LOOPCNT 0637 01687000 BCTR @07,0 0637 01688000 STH @07,LOOPCNT 0637 01689000 * COUNT=COUNT+ONE; /* BUMP ARRAY INDEX @G33CPMR*/ 01690000 LH @07,COUNT 0638 01691000 LA @07,1(,@07) 0638 01692000 STH @07,COUNT 0638 01693000 * END; /* @G33CPMR*/ 01694000 * ELSE 0640 01695000 * ; /* @G33CPMR*/ 01696000 @RF00620 DS 0H 0641 01697000 * END; /* @G33CPMR*/ 01698000 @DE00613 LH @07,LOOPCNT 0641 01699000 LTR @07,@07 0641 01700000 BZ @DC00613 0641 01701000 CLI MSGCODE,0 0641 01702000 BE @DL00613 0641 01703000 @DC00613 DS 0H 0642 01704000 * IF REPLY(I)=BLANK|REPLY(I-ONE:I)=PRNBLANK|REPLY(I-ONE:I+THREE)= 01705000 * PRNCMEND THEN /* @G33CPMR*/ 01706000 * 0642 01707000 LA @07,REPLY-1(I) 0642 01708000 CLI 0(@07),C' ' 0642 01709000 BE @RT00642 0642 01710000 LA @07,REPLY-2(I) 0642 01711000 CLC 0(2,@07),@CC01734 0642 01712000 BE @RT00642 0642 01713000 LA @07,REPLY-2(I) 0642 01714000 CLC 0(5,@07),@CC01736 0642 01715000 BNE @RF00642 0642 01716000 @RT00642 DS 0H 0643 01717000 * /***********************************************************/ 01718000 * /* */ 01719000 * /* CHECK FOR BLANK AFTER PROCESSED JOBNAME/TSONAME @G33CPMR*/ 01720000 * /* */ 01721000 * /***********************************************************/ 01722000 * 0643 01723000 * DO; 0643 01724000 * CALL DEFAULT; /* FOR DEFAULT OPTIONS */ 01725000 BAL @14,DEFAULT 0644 01726000 * REPLYEND=ON; /* END OF THE REPLY */ 01727000 OI REPLYEND,B'00000010' 0645 01728000 * END; 0646 01729000 * ELSE 0647 01730000 * IF REPLY(I-ONE:I)=PRNCOM THEN/* A '),'? @G33CPMR*/ 01731000 B @RC00642 0647 01732000 @RF00642 LA @07,REPLY-2(I) 0647 01733000 CLC 0(2,@07),@CC01732 0647 01734000 BNE @RF00647 0647 01735000 * I=I+1; /* ADVANCE INDEX @G33CPMR*/ 01736000 AH I,@CH00047 0648 01737000 * ELSE 0649 01738000 * ; /* NO @G33CPMR*/ 01739000 @RF00647 DS 0H 0650 01740000 * END; /* @G33CPMR*/ 01741000 * ELSE 0651 01742000 * ; /* @G33CPMR*/ 01743000 @RF00602 DS 0H 0652 01744000 * REG14=R14SAV8; /* RESTORE RETURN ADDR */ 01745000 @RC00602 L REG14,R14SAV8 0652 01746000 * END; 0653 01747000 @EL00010 DS 0H 0653 01748000 @EF00010 DS 0H 0653 01749000 @ER00010 BR @14 0653 01750000 *ITSSDATA: 0654 01751000 * PROC OPTIONS(NOSAVE,NOSAVEAREA); 0654 01752000 * 0654 01753000 ITSSDATA DS 0H 0655 01754000 */* ******************************************************************/ 01755000 */* */ 01756000 */* ITSSDATA WILL DO THE FOLLOWING */ 01757000 */* 1. DETERMINE THE LENGTH OF SDATA */ 01758000 */* 2. CALL SDATAOPS TO DETERMINE THE */ 01759000 */* SDATA OPTIONS */ 01760000 */* 3. CHECK TO SEE IF STOR FOLLOWS */ 01761000 */* */ 01762000 */* ******************************************************************/ 01763000 * 0655 01764000 * R14SA13=REG14; /* SAVE RETURN ADDRESS */ 01765000 ST REG14,R14SA13 0655 01766000 * SDATDONE=ON; /* SDATA DONE @G33CPMR*/ 01767000 OI SDATDONE,B'00100000' 0656 01768000 * BEGIN=0; /* ZERO OUT INDEX */ 01769000 SLR @07,@07 0657 01770000 STH @07,BEGIN 0657 01771000 * BEGIN=I+7; /* ADVANCE INDEX */ 01772000 LR @07,I 0658 01773000 AH @07,@CH00100 0658 01774000 STH @07,BEGIN 0658 01775000 * DO I=BEGIN TO 120 WHILE REPLY(I)^=RTPRN; 0659 01776000 LR I,@07 0659 01777000 B @DE00659 0659 01778000 @DL00659 LA @07,REPLY-1(I) 0659 01779000 CLI 0(@07),C')' 0659 01780000 BE @DC00659 0659 01781000 * END; /* LENGTH SDATA OPTIONS */ 01782000 AH I,@CH00047 0660 01783000 @DE00659 CH I,@CH01766 0660 01784000 BNH @DL00659 0660 01785000 @DC00659 DS 0H 0661 01786000 * IF REPLY(I)=RTPRN THEN /* END OF OPTIONS */ 01787000 LA @07,REPLY-1(I) 0661 01788000 CLI 0(@07),C')' 0661 01789000 BNE @RF00661 0661 01790000 * DO; 0662 01791000 * CALL SDATAOPS; /* SDATA OPTIONS */ 01792000 BAL @14,SDATAOPS 0663 01793000 * IF REPLY(I)=COMMA|REPLY(I)=BLANK THEN 0664 01794000 LA @07,REPLY-1(I) 0664 01795000 CLI 0(@07),C',' 0664 01796000 BE @RT00664 0664 01797000 LA @07,REPLY-1(I) 0664 01798000 CLI 0(@07),C' ' 0664 01799000 BNE @RF00664 0664 01800000 @RT00664 DS 0H 0665 01801000 * DO; 0665 01802000 * IF REPLY(I)=COMMA THEN 0666 01803000 LA @07,REPLY-1(I) 0666 01804000 CLI 0(@07),C',' 0666 01805000 BNE @RF00666 0666 01806000 * I=I+ONE; 0667 01807000 AH I,@CH00047 0667 01808000 * ELSE 0668 01809000 * REPLYEND=ON; /* END OF THE REPLY */ 01810000 B @RC00666 0668 01811000 @RF00666 OI REPLYEND,B'00000010' 0668 01812000 * END; 0669 01813000 * ELSE 0670 01814000 * DO; 0670 01815000 B @RC00664 0670 01816000 @RF00664 DS 0H 0671 01817000 * MSGCODE='08'X; /* TERM LENGTH ERROR */ 01818000 MVI MSGCODE,X'08' 0671 01819000 * KEYWDERR=DUMP; /* ERROR CONDITION */ 01820000 MVI KEYWDERR+4,C' ' 0672 01821000 MVC KEYWDERR+5(3),KEYWDERR+4 0672 01822000 MVC KEYWDERR(4),DUMP 0672 01823000 * END; 0673 01824000 * END; 0674 01825000 * ELSE 0675 01826000 * DO; 0675 01827000 B @RC00661 0675 01828000 @RF00661 DS 0H 0676 01829000 * KEYWDERR=DUMP; /* NO RIGHT PRN */ 01830000 MVI KEYWDERR+4,C' ' 0676 01831000 MVC KEYWDERR+5(3),KEYWDERR+4 0676 01832000 MVC KEYWDERR(4),DUMP 0676 01833000 * MSGCODE='07'X; /* DELIMITER ERROR */ 01834000 MVI MSGCODE,X'07' 0677 01835000 * END; 0678 01836000 * REG14=R14SA13; /* RESTORE RETURN ADDR */ 01837000 @RC00661 L REG14,R14SA13 0679 01838000 * END; 0680 01839000 @EL00011 DS 0H 0680 01840000 @EF00011 DS 0H 0680 01841000 @ER00011 BR @14 0680 01842000 *ITSSTOR: 0681 01843000 * PROC OPTIONS(NOSAVE,NOSAVEAREA); 0681 01844000 * 0681 01845000 ITSSTOR DS 0H 0682 01846000 */* ******************************************************************/ 01847000 */* */ 01848000 */* ITSSTOR WILL DO THE FOLLOWING */ 01849000 */* 1. DETERMINE IF ADDRESS RANGES ARE */ 01850000 */* SPECIFIED */ 01851000 */* 2. CALL STORSCAN TO HANDLE THE */ 01852000 */* ADDRESS RANGES */ 01853000 */* 3. IF NO ADDRESS RANGES THEN AN ERROR */ 01854000 */* CONDITION EXISTS */ 01855000 */* */ 01856000 */* ******************************************************************/ 01857000 * 0682 01858000 * R14SA14=REG14; /* SAVE RETURN ADDRESS */ 01859000 ST REG14,R14SA14 0682 01860000 * STORDONE=ON; /* STOR DONE @G33CPMR*/ 01861000 OI STORDONE,B'01000000' 0683 01862000 * IF REPLY(I+4:I+5)='=(' THEN /* VALID KEYWORD */ 01863000 LA @07,REPLY+3(I) 0684 01864000 CLC 0(2,@07),@CC01980 0684 01865000 BNE @RF00684 0684 01866000 * DO; 0685 01867000 * REPLYCK=OFE; /* NO ERROR YET */ 01868000 NI REPLYCK,B'01111111' 0686 01869000 * I=I+FIVE; /* POINT FIRST ADDRESS */ 01870000 AH I,@CH00367 0687 01871000 * CALL STORSCAN; /* DETERMINE ADDRESSES */ 01872000 BAL @14,STORSCAN 0688 01873000 * IF MSGCODE=0 THEN /* @YM2729*/ 01874000 CLI MSGCODE,0 0689 01875000 BNE @RF00689 0689 01876000 * DO; /* @YM2729*/ 01877000 * IF REPLY(I+ONE)=COMMA|REPLY(I+ONE)=BLANK THEN 0691 01878000 LA @07,REPLY(I) 0691 01879000 CLI 0(@07),C',' 0691 01880000 BE @RT00691 0691 01881000 LA @07,REPLY(I) 0691 01882000 CLI 0(@07),C' ' 0691 01883000 BNE @RF00691 0691 01884000 @RT00691 DS 0H 0692 01885000 * DO; 0692 01886000 * IF REPLY(I+1)=COMMA THEN 0693 01887000 LA @07,REPLY(I) 0693 01888000 CLI 0(@07),C',' 0693 01889000 BNE @RF00693 0693 01890000 * I=I+TWO; /* ADVANCE INDEX */ 01891000 AH I,@CH00152 0694 01892000 * ELSE 0695 01893000 * REPLYEND=ON; /* END OF THE REPLY */ 01894000 B @RC00693 0695 01895000 @RF00693 OI REPLYEND,B'00000010' 0695 01896000 * END; 0696 01897000 * ELSE 0697 01898000 * DO; 0697 01899000 B @RC00691 0697 01900000 @RF00691 DS 0H 0698 01901000 * MSGCODE='08'X; /* ERROR CONDITION */ 01902000 MVI MSGCODE,X'08' 0698 01903000 * KEYWDERR=DUMP; /* TERM LENGTH ERROR */ 01904000 MVI KEYWDERR+4,C' ' 0699 01905000 MVC KEYWDERR+5(3),KEYWDERR+4 0699 01906000 MVC KEYWDERR(4),DUMP 0699 01907000 * END; 0700 01908000 * END; /* @YM2729*/ 01909000 * ELSE 0702 01910000 * ; /* @YM2729*/ 01911000 @RF00689 DS 0H 0703 01912000 * END; 0703 01913000 * ELSE 0704 01914000 * DO; 0704 01915000 B @RC00684 0704 01916000 @RF00684 DS 0H 0705 01917000 * MSGCODE='3D'X; /* ERROR CONDITION */ 01918000 MVI MSGCODE,X'3D' 0705 01919000 * KEYWDERR=STOR; /* INVALID KEYWORD */ 01920000 MVI KEYWDERR+4,C' ' 0706 01921000 MVC KEYWDERR+5(3),KEYWDERR+4 0706 01922000 MVC KEYWDERR(4),STOR 0706 01923000 * END; 0707 01924000 * REG14=R14SA14; /* RESTORE RETURN ADDR */ 01925000 @RC00684 L REG14,R14SA14 0708 01926000 * END; 0709 01927000 @EL00012 DS 0H 0709 01928000 @EF00012 DS 0H 0709 01929000 @ER00012 BR @14 0709 01930000 *IDCHECK: 0710 01931000 * PROC OPTIONS(NOSAVE,NOSAVEAREA); 0710 01932000 * 0710 01933000 IDCHECK DS 0H 0711 01934000 */* ******************************************************************/ 01935000 */* */ 01936000 */* THE DUMP COMMAND IS INVALID. THE */ 01937000 */* CONSOLE ISSUING THE COMMAND IS NOT */ 01938000 */* THE MASTER CONSOLE */ 01939000 */* */ 01940000 */* ******************************************************************/ 01941000 * 0711 01942000 * R14SA16=REG14; /* SAVE RETURN ADDRESS */ 01943000 ST REG14,R14SA16 0711 01944000 * MSGCODE='29'X; /* ERROR CONDITION */ 01945000 MVI MSGCODE,X'29' 0712 01946000 * KEYWDERR=DUMP; /* NOT MASTER CONSOLE */ 01947000 MVI KEYWDERR+4,C' ' 0713 01948000 MVC KEYWDERR+5(3),KEYWDERR+4 0713 01949000 MVC KEYWDERR(4),DUMP 0713 01950000 * CALL CSCBFREE; /* FREE THE CSCB */ 01951000 BAL @14,CSCBFREE 0714 01952000 * REG14=R14SA16; /* RESTORE RETURN ADDR */ 01953000 L REG14,R14SA16 0715 01954000 * END; 0716 01955000 @EL00013 DS 0H 0716 01956000 @EF00013 DS 0H 0716 01957000 @ER00013 BR @14 0716 01958000 *CONFLICT: 0717 01959000 * PROC OPTIONS(NOSAVE,NOSAVEAREA); 0717 01960000 * 0717 01961000 CONFLICT DS 0H 0718 01962000 */* ******************************************************************/ 01963000 */* */ 01964000 */* THE DUMP COMMAND IS INVALID. THE */ 01965000 */* KEYWORD OPERAND(S) HAVE BEEN SPECIFIED */ 01966000 */* PREVIOUSLY */ 01967000 */* */ 01968000 */* ******************************************************************/ 01969000 * 0718 01970000 * R14SA16=REG14; /* SAVE RETURN ADDRESS @G33CPMR*/ 01971000 ST REG14,R14SA16 0718 01972000 * MSGCODE=IEE312I; /* SET ERROR CODE @G33CPMR*/ 01973000 MVI MSGCODE,X'0C' 0719 01974000 * KEYWDERR=DUMP; /* SET 'DUMP' FILLER @G33CPMR*/ 01975000 MVI KEYWDERR+4,C' ' 0720 01976000 MVC KEYWDERR+5(3),KEYWDERR+4 0720 01977000 MVC KEYWDERR(4),DUMP 0720 01978000 * REG14=R14SA16; /* RESTORE RETURN ADDRESS 0721 01979000 * @G33CPMR*/ 01980000 L @07,R14SA16 0721 01981000 LR REG14,@07 0721 01982000 * END; 0722 01983000 @EL00014 DS 0H 0722 01984000 @EF00014 DS 0H 0722 01985000 @ER00014 BR @14 0722 01986000 *NODUMP: 0723 01987000 * PROC OPTIONS(NOSAVE,NOSAVEAREA); 0723 01988000 * 0723 01989000 NODUMP DS 0H 0724 01990000 */* ******************************************************************/ 01991000 */* */ 01992000 */* THIS ROUTINE WILL BRANCH TO IEE0503D FOR AN ERROR MESSAGE */ 01993000 */* 1. LOAD IEE0503D */ 01994000 */* 2. BRANCH TO IEE0503D */ 01995000 */* 3. DELETE IEE0503D */ 01996000 */* */ 01997000 */* ******************************************************************/ 01998000 * 0724 01999000 * R14SA18=REG14; /* SAVE RETURN ADDRESS */ 02000000 ST REG14,R14SA18 0724 02001000 * RESPECIFY 0725 02002000 * (REG2) RSTD; 0725 02003000 * XSAPTR=ADDR(STAEAREA); /* STORAGE FOR IEE0503D */ 02004000 LA XSAPTR,STAEAREA 0726 02005000 * STAEAREA=STAEAREA&&STAEAREA; /* INIT STORAGE FOR XSA */ 02006000 XC STAEAREA(44),STAEAREA 0727 02007000 * XAU=SAVEUCMP; /* ID OF ISSUING CONSOLE @ZA14247*/ 02008000 MVC XAU(1,XSAPTR),SAVEUCMP 0728 02009000 * XAA=NOASID; /* ASID = 0 FOR IEE0503D */ 02010000 SLR @07,@07 0729 02011000 STH @07,XAA(,XSAPTR) 0729 02012000 * XAE=MSGCODE; /* ERROR CODE */ 02013000 MVC XAE(1,XSAPTR),MSGCODE 0730 02014000 * XAV=KEYWDERR; /* THE KEYWORD IN ERROR */ 02015000 MVC XAV(8,XSAPTR),KEYWDERR 0731 02016000 * REG2=ADDR(XSA); /* DUMMY XSA ADDRESS */ 02017000 LR REG2,XSAPTR 0732 02018000 * GEN(LOAD EP=IEE0503D); /* LOAD MESSAGE MODULE */ 02019000 LOAD EP=IEE0503D 02020000 * RESPECIFY 0734 02021000 * (REG0) RSTD; 0734 02022000 * REG15=REG0; /* ENTRY ADDR IN REG15 */ 02023000 LR REG15,REG0 0735 02024000 * RESPECIFY 0736 02025000 * (REG0) UNRSTD; 0736 02026000 * GEN(BALR REG14,REG15); /* BRANCH MESSAGE MODULE */ 02027000 BALR REG14,REG15 02028000 * GEN(DELETE EP=IEE0503D); /* DELETE IEE0503D */ 02029000 DELETE EP=IEE0503D 02030000 * RESPECIFY 0739 02031000 * (REG2) UNRSTD; 0739 02032000 * REG14=R14SA18; /* RESTORE RETURN ADDR */ 02033000 L REG14,R14SA18 0740 02034000 * END; 0741 02035000 @EL00015 DS 0H 0741 02036000 @EF00015 DS 0H 0741 02037000 @ER00015 BR @14 0741 02038000 *CSCBFREE: 0742 02039000 * PROC OPTIONS(NOSAVE,NOSAVEAREA); 0742 02040000 * 0742 02041000 CSCBFREE DS 0H 0743 02042000 */* ******************************************************************/ 02043000 */* */ 02044000 */* THIS ROUTINE WILL FREE THE CSCB CHAIN IN THE FOLLOWING */ 02045000 */* CONDITIONS */ 02046000 */* 1. NO STAE PROTECTION IS PROVIDED */ 02047000 */* (RETURN CODE IN REG15 ^= TO ZERO FROM IEECB860 */ 02048000 */* 2. AFTER THE DUMP COMMAND IS SCANNED IN THE */ 02049000 */* CMDCHECK ROUTINE. */ 02050000 */* 3. A CONSOLE OTHER THAN THE MASTER CONSOLE */ 02051000 */* ISSUES THE DUMP COMMAND. */ 02052000 */* */ 02053000 */* ******************************************************************/ 02054000 * 0743 02055000 * R14SA11=REG14; /* SAVE RETURN ADDRESS */ 02056000 ST REG14,R14SA11 0743 02057000 * REG1=REG6; /* CSCB POINTER */ 02058000 LR REG1,REG6 0744 02059000 * CHFC=ON; /* FREE CSCB BIT ON */ 02060000 L @07,CSCBPTR 0745 02061000 OI CHFC(@07),B'00000010' 0745 02062000 * GEN(MGCR (1),CHAIN); /* FREE CSCB */ 02063000 MGCR (1),CHAIN 02064000 * REG14=R14SA11; /* RESTORE RETURN REG */ 02065000 L REG14,R14SA11 0747 02066000 * END; 0748 02067000 @EL00016 DS 0H 0748 02068000 @EF00016 DS 0H 0748 02069000 @ER00016 BR @14 0748 02070000 *DEFAULT: 0749 02071000 * PROC OPTIONS(NOSAVE,NOSAVEAREA); 0749 02072000 * 0749 02073000 DEFAULT DS 0H 0750 02074000 */* ******************************************************************/ 02075000 */* */ 02076000 */* THIS ROUTINE WILL SET THE DEFAULT SDATA OPTIONS */ 02077000 */* */ 02078000 */* ******************************************************************/ 02079000 * 0750 02080000 * R14SA19=REG14; /* SAVE RETURN ADDRESS */ 02081000 ST REG14,R14SA19 0750 02082000 * SDUSDAT1='99'X; /* PSA,SQA,LSQA,TRT */ 02083000 L @07,SDUMPPTR 0751 02084000 MVI SDUSDAT1(@07),X'99' 0751 02085000 * SDUSDAT2='E0'X; /* CSA, SWA AND SUM @G33CPMR*/ 02086000 MVI SDUSDAT2(@07),X'E0' 0752 02087000 * REG14=R14SA19; /* RESTORE REG14 */ 02088000 L @07,R14SA19 0753 02089000 LR REG14,@07 0753 02090000 * END; 0754 02091000 @EL00017 DS 0H 0754 02092000 @EF00017 DS 0H 0754 02093000 @ER00017 BR @14 0754 02094000 *SDATAOPS: 0755 02095000 * PROC OPTIONS(NOSAVE,NOSAVEAREA); 0755 02096000 * 0755 02097000 SDATAOPS DS 0H 0756 02098000 */* ******************************************************************/ 02099000 */* */ 02100000 */* THIS ROUTINE WILL DETERMINE THE SDATA OPTIONS */ 02101000 */* */ 02102000 */* ******************************************************************/ 02103000 * 0756 02104000 * R14SAV4=REG14; /* SAVE RETURN ADDRESS */ 02105000 ST REG14,R14SAV4 0756 02106000 * I=BEGIN; /* SET INDEX TO START @G33CPMR*/ 02107000 LH I,BEGIN 0757 02108000 * DUMPOPTS=DUMPOPTS&&DUMPOPTS; /* CLEAR OPTION BITS @G33CPMR*/ 02109000 L @07,SDUMPPTR 0758 02110000 XC DUMPOPTS(2,@07),DUMPOPTS(@07) 0758 02111000 * DO UNTIL((REPLY(I)=RTPRN)|(MSGCODE^=0));/* SET LOOP END @G33CPMR*/ 02112000 * 0759 02113000 @DL00759 DS 0H 0760 02114000 * /***************************************************************/ 02115000 * /* */ 02116000 * /* LOOP TO FIND LENGTH OF OPTION @G33CPMR*/ 02117000 * /* */ 02118000 * /***************************************************************/ 02119000 * 0760 02120000 * DO I2=I BY ONE WHILE((REPLY(I2)^=COMMA)&(REPLY(I2)^=RTPRN)); 0760 02121000 LR @07,I 0760 02122000 ST @07,I2 0760 02123000 B @DE00760 0760 02124000 @DL00760 DS 0H 0761 02125000 * END; /* @G33CPMR*/ 02126000 * 0761 02127000 LA @07,1 0761 02128000 AL @07,I2 0761 02129000 ST @07,I2 0761 02130000 @DE00760 L @07,I2 0761 02131000 LA @02,REPLY-1(@07) 0761 02132000 CLI 0(@02),C',' 0761 02133000 BE @DC00760 0761 02134000 LA @02,REPLY-1(@07) 0761 02135000 CLI 0(@02),C')' 0761 02136000 BNE @DL00760 0761 02137000 @DC00760 DS 0H 0762 02138000 * /***************************************************************/ 02139000 * /* */ 02140000 * /* PROCESSING FOR A THREE CHARACTER NAME @G33CPMR*/ 02141000 * /* */ 02142000 * /***************************************************************/ 02143000 * 0762 02144000 * IF I2-I=THREE THEN /* THREE CHARACTER OPTION? 0762 02145000 * @G33CPMR*/ 02146000 L @07,I2 0762 02147000 SLR @07,I 0762 02148000 CH @07,@CH00074 0762 02149000 BNE @RF00762 0762 02150000 * DO; /* YES @G33CPMR*/ 02151000 * IF REPLY(I:I+TWO)=PSA THEN/* PSA? @G33CPMR*/ 02152000 LA @07,REPLY-1(I) 0764 02153000 CLC 0(3,@07),PSA 0764 02154000 BNE @RF00764 0764 02155000 * DO; /* YES @G33CPMR*/ 02156000 * IF((SDUNAPSA=ON)|(SDUALPSA=ON)) THEN/* PSA BIT ON? 0766 02157000 * @G33CPMR*/ 02158000 L @07,SDUMPPTR 0766 02159000 TM SDUNAPSA(@07),B'00001000' 0766 02160000 BO @RT00766 0766 02161000 TM SDUALPSA(@07),B'10000000' 0766 02162000 BNO @RF00766 0766 02163000 @RT00766 DS 0H 0767 02164000 * CALL CONFLICT; /* YES @G33CPMR*/ 02165000 BAL @14,CONFLICT 0767 02166000 * ELSE /* NO @G33CPMR*/ 02167000 * SDUALPSA=ON; /* SET PSA BIT @G33CPMR*/ 02168000 B @RC00766 0768 02169000 @RF00766 L @07,SDUMPPTR 0768 02170000 OI SDUALPSA(@07),B'10000000' 0768 02171000 * END; /* @G33CPMR*/ 02172000 * ELSE /* @G33CPMR*/ 02173000 * IF REPLY(I:I+TWO)=SUM THEN/* SUM? @G33CPMR*/ 02174000 B @RC00764 0770 02175000 @RF00764 LA @07,REPLY-1(I) 0770 02176000 CLC 0(3,@07),SUM 0770 02177000 BNE @RF00770 0770 02178000 * DO; /* YES @G33CPMR*/ 02179000 * IF((SDUNSMDP=ON)|(SDUSMDMP=ON)) THEN/* SUM BIT ON? 0772 02180000 * @G33CPMR*/ 02181000 L @07,SDUMPPTR 0772 02182000 TM SDUNSMDP(@07),B'00110000' 0772 02183000 BZ @RF00772 0772 02184000 * CALL CONFLICT; /* YES @G33CPMR*/ 02185000 BAL @14,CONFLICT 0773 02186000 * ELSE /* NO @G33CPMR*/ 02187000 * SDUSMDMP=ON; /* SET SUM BIT @G33CPMR*/ 02188000 B @RC00772 0774 02189000 @RF00772 L @07,SDUMPPTR 0774 02190000 OI SDUSMDMP(@07),B'00100000' 0774 02191000 * END; /* @G33CPMR*/ 02192000 * ELSE /* @G33CPMR*/ 02193000 * IF REPLY(I:I+TWO)=SQA THEN/* SQA? @G33CPMR*/ 02194000 B @RC00770 0776 02195000 @RF00770 LA @07,REPLY-1(I) 0776 02196000 CLC 0(3,@07),SQA 0776 02197000 BNE @RF00776 0776 02198000 * DO; /* YES @G33CPMR*/ 02199000 * IF((SDUNASQA=ON)|(SDUSQA=ON)) THEN/* SQA BIT ON? 0778 02200000 * @G33CPMR*/ 02201000 L @07,SDUMPPTR 0778 02202000 TM SDUNASQA(@07),B'00000100' 0778 02203000 BO @RT00778 0778 02204000 TM SDUSQA(@07),B'00010000' 0778 02205000 BNO @RF00778 0778 02206000 @RT00778 DS 0H 0779 02207000 * CALL CONFLICT; /* YES @G33CPMR*/ 02208000 BAL @14,CONFLICT 0779 02209000 * ELSE /* NO @G33CPMR*/ 02210000 * SDUSQA=ON; /* SET SQA BIT @G33CPMR*/ 02211000 B @RC00778 0780 02212000 @RF00778 L @07,SDUMPPTR 0780 02213000 OI SDUSQA(@07),B'00010000' 0780 02214000 * END; /* @G33CPMR*/ 02215000 * ELSE /* @G33CPMR*/ 02216000 * IF REPLY(I:I+TWO)=NUC THEN/* NUC? @G33CPMR*/ 02217000 B @RC00776 0782 02218000 @RF00776 LA @07,REPLY-1(I) 0782 02219000 CLC 0(3,@07),NUC 0782 02220000 BNE @RF00782 0782 02221000 * DO; /* YES @G33CPMR*/ 02222000 * IF SDUNUC=ON THEN/* NUC BIT ON? @G33CPMR*/ 02223000 L @07,SDUMPPTR 0784 02224000 TM SDUNUC(@07),B'00100000' 0784 02225000 BNO @RF00784 0784 02226000 * CALL CONFLICT;/* YES @G33CPMR*/ 02227000 BAL @14,CONFLICT 0785 02228000 * ELSE /* NO @G33CPMR*/ 02229000 * SDUNUC=ON; /* SET NUC BIT @G33CMPR*/ 02230000 B @RC00784 0786 02231000 @RF00784 L @07,SDUMPPTR 0786 02232000 OI SDUNUC(@07),B'00100000' 0786 02233000 * END; /* @G33CPMR*/ 02234000 * ELSE /* @G33CPMR*/ 02235000 * IF REPLY(I:I+TWO)=RGN THEN/* RGN? @G33CPMR*/ 02236000 B @RC00782 0788 02237000 @RF00782 LA @07,REPLY-1(I) 0788 02238000 CLC 0(3,@07),RGN 0788 02239000 BNE @RF00788 0788 02240000 * DO; /* YES @G33CPMR*/ 02241000 * IF SDURGN=ON THEN/* RGN BIT ON? @G33CPMR*/ 02242000 L @07,SDUMPPTR 0790 02243000 TM SDURGN(@07),B'00000100' 0790 02244000 BNO @RF00790 0790 02245000 * CALL CONFLICT;/* YES @G33CPMR*/ 02246000 BAL @14,CONFLICT 0791 02247000 * ELSE /* NO @G33CPMR*/ 02248000 * SDURGN=ON; /* SET RGN BIT @G33CPMR*/ 02249000 B @RC00790 0792 02250000 @RF00790 L @07,SDUMPPTR 0792 02251000 OI SDURGN(@07),B'00000100' 0792 02252000 * END; /* @G33CPMR*/ 02253000 * ELSE /* @G33CPMR*/ 02254000 * IF REPLY(I:I+TWO)=LPA THEN/* LPA? @G33CPMR*/ 02255000 B @RC00788 0794 02256000 @RF00788 LA @07,REPLY-1(I) 0794 02257000 CLC 0(3,@07),LPA 0794 02258000 BNE @RF00794 0794 02259000 * DO; /* YES @G33CPMR*/ 02260000 * IF SDULPA=ON THEN/* LPA BIT ON? @G33CPMR*/ 02261000 L @07,SDUMPPTR 0796 02262000 TM SDULPA(@07),B'00000010' 0796 02263000 BNO @RF00796 0796 02264000 * CALL CONFLICT;/* YES @G33CPMR*/ 02265000 BAL @14,CONFLICT 0797 02266000 * ELSE /* NO @G33CPMR*/ 02267000 * SDULPA=ON;/* SET LPA BIT @G33CPMR*/ 02268000 B @RC00796 0798 02269000 @RF00796 L @07,SDUMPPTR 0798 02270000 OI SDULPA(@07),B'00000010' 0798 02271000 * END; /* @G33CPMR*/ 02272000 * ELSE /* @G33CPMR*/ 02273000 * IF REPLY(I:I+TWO)=TRT THEN/* TRT? @G33CPMR*/ 02274000 B @RC00794 0800 02275000 @RF00794 LA @07,REPLY-1(I) 0800 02276000 CLC 0(3,@07),TRT 0800 02277000 BNE @RF00800 0800 02278000 * DO; /* YES @G33CPMR*/ 02279000 * IF SDUTRT=ON THEN/* TRT BIT ON? @G33CPMR*/ 02280000 L @07,SDUMPPTR 0802 02281000 TM SDUTRT(@07),B'00000001' 0802 02282000 BNO @RF00802 0802 02283000 * CALL CONFLICT;/* YES @G33CPMR*/ 02284000 BAL @14,CONFLICT 0803 02285000 * ELSE /* NO @G33CPMR*/ 02286000 * SDUTRT=ON;/* SET TRT BIT @G33CPMR*/ 02287000 B @RC00802 0804 02288000 @RF00802 L @07,SDUMPPTR 0804 02289000 OI SDUTRT(@07),B'00000001' 0804 02290000 * END; /* @G33CPMR*/ 02291000 * ELSE /* @G33CPMR*/ 02292000 * IF REPLY(I:I+TWO)=CSA THEN/* CSA? @G33CPMR*/ 02293000 B @RC00800 0806 02294000 @RF00800 LA @07,REPLY-1(I) 0806 02295000 CLC 0(3,@07),CSA 0806 02296000 BNE @RF00806 0806 02297000 * DO; /* YES @G33CPMR*/ 02298000 * IF SDUCSA=ON THEN/* CSA BIT ON? @G33CPMR*/ 02299000 L @07,SDUMPPTR 0808 02300000 TM SDUCSA(@07),B'10000000' 0808 02301000 BNO @RF00808 0808 02302000 * CALL CONFLICT;/* YES @G33CPMR*/ 02303000 BAL @14,CONFLICT 0809 02304000 * ELSE /* NO @G33CPMR*/ 02305000 * SDUCSA=ON;/* SET CSA BIT @G33CPMR*/ 02306000 B @RC00808 0810 02307000 @RF00808 L @07,SDUMPPTR 0810 02308000 OI SDUCSA(@07),B'10000000' 0810 02309000 * END; /* @G33CPMR*/ 02310000 * ELSE /* @G33CPMR*/ 02311000 * IF REPLY(I:I+TWO)=SWA THEN/* SWA? @G33CPMR*/ 02312000 B @RC00806 0812 02313000 @RF00806 LA @07,REPLY-1(I) 0812 02314000 CLC 0(3,@07),SWA 0812 02315000 BNE @RF00812 0812 02316000 * DO; /* YES @G33CPMR*/ 02317000 * IF SDUSWA=ON THEN/* SWA BIT ON? 0814 02318000 * @G33CPMR*/ 02319000 L @07,SDUMPPTR 0814 02320000 TM SDUSWA(@07),B'01000000' 0814 02321000 BNO @RF00814 0814 02322000 * CALL CONFLICT;/* YES @G33CPMR*/ 02323000 BAL @14,CONFLICT 0815 02324000 * ELSE /* NO @G33CPMR*/ 02325000 * SDUSWA=ON;/* SET SWA BIT @G33CPMR*/ 02326000 B @RC00814 0816 02327000 @RF00814 L @07,SDUMPPTR 0816 02328000 OI SDUSWA(@07),B'01000000' 0816 02329000 * END; /* @G33CPMR*/ 02330000 * ELSE /* @G33CPMR*/ 02331000 * DO; /* @G33CPMR*/ 02332000 B @RC00812 0818 02333000 @RF00812 DS 0H 0819 02334000 * MSGCODE=IEE535I;/* NONE FOUND!! 0819 02335000 * @G33CPMR*/ 02336000 MVI MSGCODE,X'3E' 0819 02337000 * KEYWDERR=DUMP;/* SET ERROR @G33CPMR*/ 02338000 MVI KEYWDERR+4,C' ' 0820 02339000 MVC KEYWDERR+5(3),KEYWDERR+4 0820 02340000 MVC KEYWDERR(4),DUMP 0820 02341000 * END; /* @G33CPMR*/ 02342000 * END; /* @G33CPMR*/ 02343000 * ELSE /* @G33CPMR*/ 02344000 * 0823 02345000 * /*************************************************************/ 02346000 * /* */ 02347000 * /* PROCESSING FOR A FOUR CHARACTER NAME @G33CPMR*/ 02348000 * /* */ 02349000 * /*************************************************************/ 02350000 * 0823 02351000 * IF I2-I=FOUR THEN /* FOUR CHARACTER OPTION? 0823 02352000 * @G33CPMR*/ 02353000 B @RC00762 0823 02354000 @RF00762 L @07,I2 0823 02355000 SLR @07,I 0823 02356000 CH @07,@CH00045 0823 02357000 BNE @RF00823 0823 02358000 * DO; /* YES @G33CPMR*/ 02359000 * IF REPLY(I:I+THREE)=LSQA THEN/* LSQA? @G33CPMR*/ 02360000 LA @07,REPLY-1(I) 0825 02361000 CLC 0(4,@07),LSQA 0825 02362000 BNE @RF00825 0825 02363000 * DO; /* YES @G33CPMR*/ 02364000 * IF SDULSQA=ON THEN /* LSQA BIT ON? @G33CPMR*/ 02365000 L @07,SDUMPPTR 0827 02366000 TM SDULSQA(@07),B'00001000' 0827 02367000 BNO @RF00827 0827 02368000 * CALL CONFLICT; /* YES @G33CPMR*/ 02369000 BAL @14,CONFLICT 0828 02370000 * ELSE /* NO @G33CPMR*/ 02371000 * SDULSQA=ON; /* SET LSQA BIT @G33CPMR*/ 02372000 B @RC00827 0829 02373000 @RF00827 L @07,SDUMPPTR 0829 02374000 OI SDULSQA(@07),B'00001000' 0829 02375000 * END; /* @G33CPMR*/ 02376000 * ELSE /* @G33CPMR*/ 02377000 * DO; /* @G33CPMR*/ 02378000 B @RC00825 0831 02379000 @RF00825 DS 0H 0832 02380000 * MSGCODE=IEE535I; /* NONE FOUND!! @G33CPMR*/ 02381000 MVI MSGCODE,X'3E' 0832 02382000 * KEYWDERR=DUMP; /* SET ERROR @G33CPMR*/ 02383000 MVI KEYWDERR+4,C' ' 0833 02384000 MVC KEYWDERR+5(3),KEYWDERR+4 0833 02385000 MVC KEYWDERR(4),DUMP 0833 02386000 * END; /* @G33CPMR*/ 02387000 * END; /* @G33CPMR*/ 02388000 * ELSE /* @G33CPMR*/ 02389000 * 0836 02390000 * /***********************************************************/ 02391000 * /* */ 02392000 * /* PROCESSING FOR A FIVE CHARACTER NAME @G33CPMR*/ 02393000 * /* */ 02394000 * /***********************************************************/ 02395000 * 0836 02396000 * IF I2-I=FIVE THEN /* FIVE CHARACTER OPTION? 0836 02397000 * @G33CPMR*/ 02398000 B @RC00823 0836 02399000 @RF00823 L @07,I2 0836 02400000 SLR @07,I 0836 02401000 CH @07,@CH00367 0836 02402000 BNE @RF00836 0836 02403000 * DO; /* YES @G33CPMR*/ 02404000 * IF REPLY(I:I+FOUR)=NOPSA THEN/* NOPSA? @G33CPMR*/ 02405000 LA @07,REPLY-1(I) 0838 02406000 CLC 0(5,@07),NOPSA 0838 02407000 BNE @RF00838 0838 02408000 * DO; /* YES @G33CPMR*/ 02409000 * IF((SDUNAPSA=ON)|(SDUALPSA=ON)) THEN/* NOPSA BIT 0840 02410000 * ON? @G33CPMR*/ 02411000 L @07,SDUMPPTR 0840 02412000 TM SDUNAPSA(@07),B'00001000' 0840 02413000 BO @RT00840 0840 02414000 TM SDUALPSA(@07),B'10000000' 0840 02415000 BNO @RF00840 0840 02416000 @RT00840 DS 0H 0841 02417000 * CALL CONFLICT; /* YES @G33CPMR*/ 02418000 BAL @14,CONFLICT 0841 02419000 * ELSE /* NO @G33CPMR*/ 02420000 * SDUNAPSA=ON; /* SET NOPSA BIT @G33CPMR*/ 02421000 B @RC00840 0842 02422000 @RF00840 L @07,SDUMPPTR 0842 02423000 OI SDUNAPSA(@07),B'00001000' 0842 02424000 * END; /* @G33CPMR*/ 02425000 * ELSE /* @G33CPMR*/ 02426000 * IF REPLY(I:I+FOUR)=NOSUM THEN/* NOSUM? @G33CPMR*/ 02427000 B @RC00838 0844 02428000 @RF00838 LA @07,REPLY-1(I) 0844 02429000 CLC 0(5,@07),NOSUM 0844 02430000 BNE @RF00844 0844 02431000 * DO; /* YES @G33CPMR*/ 02432000 * IF((SDUNSMDP=ON)|(SDUSMDMP=ON)) THEN/* NOSUM BIT 02433000 * ON? @G33CPMR*/ 02434000 L @07,SDUMPPTR 0846 02435000 TM SDUNSMDP(@07),B'00110000' 0846 02436000 BZ @RF00846 0846 02437000 * CALL CONFLICT;/* YES @G33CPMR*/ 02438000 BAL @14,CONFLICT 0847 02439000 * ELSE /* NO @G33CPMR*/ 02440000 * SDUNSMDP=ON; /* SET NOSUM BIT @G33CPMR*/ 02441000 B @RC00846 0848 02442000 @RF00846 L @07,SDUMPPTR 0848 02443000 OI SDUNSMDP(@07),B'00010000' 0848 02444000 * END; /* @G33CPMR*/ 02445000 * ELSE /* @G33CPMR*/ 02446000 * IF REPLY(I:I+FOUR)=NOSQA THEN/* NOSQA? @G33CPMR*/ 02447000 B @RC00844 0850 02448000 @RF00844 LA @07,REPLY-1(I) 0850 02449000 CLC 0(5,@07),NOSQA 0850 02450000 BNE @RF00850 0850 02451000 * DO; /* YES @G33CPMR*/ 02452000 * IF((SDUNASQA=ON)|(SDUSQA=ON)) THEN/* NOSQA BIT 02453000 * ON? @G33CPMR*/ 02454000 L @07,SDUMPPTR 0852 02455000 TM SDUNASQA(@07),B'00000100' 0852 02456000 BO @RT00852 0852 02457000 TM SDUSQA(@07),B'00010000' 0852 02458000 BNO @RF00852 0852 02459000 @RT00852 DS 0H 0853 02460000 * CALL CONFLICT;/* YES @G33CPMR*/ 02461000 BAL @14,CONFLICT 0853 02462000 * ELSE /* NO @G33CPMR*/ 02463000 * SDUNASQA=ON;/* SET NOSQA BIT @G33CPMR*/ 02464000 B @RC00852 0854 02465000 @RF00852 L @07,SDUMPPTR 0854 02466000 OI SDUNASQA(@07),B'00000100' 0854 02467000 * END; /* @G33CPMR*/ 02468000 * ELSE /* @G33CPMR*/ 02469000 * DO; /* @G33CPMR*/ 02470000 B @RC00850 0856 02471000 @RF00850 DS 0H 0857 02472000 * MSGCODE=IEE535I;/* NONE FOUND!! @G33CPMR*/ 02473000 MVI MSGCODE,X'3E' 0857 02474000 * KEYWDERR=DUMP;/* SET ERROR @G33CPMR*/ 02475000 MVI KEYWDERR+4,C' ' 0858 02476000 MVC KEYWDERR+5(3),KEYWDERR+4 0858 02477000 MVC KEYWDERR(4),DUMP 0858 02478000 * END; /* @G33CPMR*/ 02479000 * END; /* @G33CPMR*/ 02480000 * ELSE /* @G33CPMR*/ 02481000 * 0861 02482000 * /*********************************************************/ 02483000 * /* */ 02484000 * /* AN INVALID OPTION LENGTH WAS ENCOUNTERED - ERROR */ 02485000 * /* @G33CPMR*/ 02486000 * /* */ 02487000 * /*********************************************************/ 02488000 * 0861 02489000 * DO; /* @G33CPMR*/ 02490000 B @RC00836 0861 02491000 @RF00836 DS 0H 0862 02492000 * MSGCODE=IEE535I; /* ERROR CONDITION @G33CPMR*/ 02493000 MVI MSGCODE,X'3E' 0862 02494000 * KEYWDERR=DUMP; /* INVALID PARAMETER @G33CPMR*/ 02495000 MVI KEYWDERR+4,C' ' 0863 02496000 MVC KEYWDERR+5(3),KEYWDERR+4 0863 02497000 MVC KEYWDERR(4),DUMP 0863 02498000 * END; /* @G33CPMR*/ 02499000 * I=I2; /* UPDATE THE CONTROL INDEX 0865 02500000 * @G33CPMR*/ 02501000 @RC00836 DS 0H 0865 02502000 @RC00823 DS 0H 0865 02503000 @RC00762 L I,I2 0865 02504000 * IF REPLY(I)=COMMA THEN /* CHECK TO SEE IF AT END 0866 02505000 * @G33CPMR*/ 02506000 LA @07,REPLY-1(I) 0866 02507000 CLI 0(@07),C',' 0866 02508000 BNE @RF00866 0866 02509000 * DO; /* NO @G33CPMR*/ 02510000 * I=I+ONE; /* BUMP INDEX BY ONE @G33CPMR*/ 02511000 AH I,@CH00047 0868 02512000 * IF REPLY(I)=RTPRN THEN /* AN UNEXPECTED DELIMITER? 0869 02513000 * @G33CPMR*/ 02514000 LA @07,REPLY-1(I) 0869 02515000 CLI 0(@07),C')' 0869 02516000 BNE @RF00869 0869 02517000 * DO; /* YES, FLAG IT AS AN ERROR 0870 02518000 * @G33CPMR*/ 02519000 * MSGCODE=IEE307I; /* SET ERROR CODE @G33CPMR*/ 02520000 MVI MSGCODE,X'07' 0871 02521000 * KEYWDERR=DUMP; /* SET KEYWORD FILLER @G33CPMR*/ 02522000 MVI KEYWDERR+4,C' ' 0872 02523000 MVC KEYWDERR+5(3),KEYWDERR+4 0872 02524000 MVC KEYWDERR(4),DUMP 0872 02525000 * END; /* @G33CPMR*/ 02526000 * ELSE 0874 02527000 * ; /* @G33CPMR*/ 02528000 @RF00869 DS 0H 0875 02529000 * END; /* @G33CPMR*/ 02530000 * ELSE 0876 02531000 * ; /* @G33CPMR*/ 02532000 @RF00866 DS 0H 0877 02533000 * END; 0877 02534000 @DE00759 LA @07,REPLY-1(I) 0877 02535000 CLI 0(@07),C')' 0877 02536000 BE @DC00759 0877 02537000 CLI MSGCODE,0 0877 02538000 BE @DL00759 0877 02539000 @DC00759 DS 0H 0878 02540000 * I=I+ONE; /* BUMP INDEX BY ONE @G33CPMR*/ 02541000 AH I,@CH00047 0878 02542000 * IF SDUSDAT1=ZERO&SDUSDAT2=ZERO THEN/* NO SDATA OPTIONS SPECIFIED */ 02543000 L @07,SDUMPPTR 0879 02544000 CLI SDUSDAT1(@07),0 0879 02545000 BNE @RF00879 0879 02546000 CLI SDUSDAT2(@07),0 0879 02547000 BNE @RF00879 0879 02548000 * DO; 0880 02549000 * MSGCODE='3D'X; /* ERROR CONDITION */ 02550000 MVI MSGCODE,X'3D' 0881 02551000 * KEYWDERR=DUMP; /* KEYWORD ERROR */ 02552000 MVI KEYWDERR+4,C' ' 0882 02553000 MVC KEYWDERR+5(3),KEYWDERR+4 0882 02554000 MVC KEYWDERR(4),DUMP 0882 02555000 * END; 0883 02556000 * REG14=R14SAV4; /* RESTORE RETURN REG */ 02557000 @RF00879 L REG14,R14SAV4 0884 02558000 * END; 0885 02559000 @EL00018 DS 0H 0885 02560000 @EF00018 DS 0H 0885 02561000 @ER00018 BR @14 0885 02562000 *FINDASID: 0886 02563000 * PROC OPTIONS(NOSAVE,NOSAVEAREA); 0886 02564000 * 0886 02565000 FINDASID DS 0H 0887 02566000 */* ******************************************************************/ 02567000 */* */ 02568000 */* THIS ROUTINE WILL PACK AND CVB THE ASID IN THE REPLY */ 02569000 */* */ 02570000 */* ******************************************************************/ 02571000 * 0887 02572000 * R14SAV1=REG14; /* SAVE RETURN ADDRESS */ 02573000 ST REG14,R14SAV1 0887 02574000 * DECASID=DECASID&&DECASID; /* INIT STORAGE @YM4489*/ 02575000 XC DECASID(5),DECASID 0888 02576000 * PKASID=PKASID&&PKASID; /* INIT STORAGE @YM4489*/ 02577000 XC PKASID(8),PKASID 0889 02578000 * DECASID(FIVE-I3:FIVE)=REPLY(I2:I-ONE);/* @G33CPMR*/ 02579000 LA @07,5 0890 02580000 LR @02,@07 0890 02581000 SL @02,I3 0890 02582000 LA @09,DECASID-1(@02) 0890 02583000 SLR @07,@02 0890 02584000 L @02,I2 0890 02585000 LA @08,REPLY-1(@02) 0890 02586000 EX @07,@SM02047 0890 02587000 * PACK(PKASID,DECASID); /* PACK DECIMAL ASID */ 02588000 PACK PKASID(8),DECASID(5) 0891 02589000 * CVB(SDUTASID,PKASID); /* CONVERT TO BINARY */ 02590000 CVB @07,PKASID 0892 02591000 L @02,SDUMPPTR 0892 02592000 STH @07,SDUTASID(,@02) 0892 02593000 * RFY 0893 02594000 * ASVT BASED(CVTASVT); /* ADDRESS THE ASVT @G33CPMR*/ 02595000 * IF SDUTASID>ASVTMAXU THEN /* VALID ASID NUMBER? @G33CPMR*/ 02596000 L @02,CVTPTR 0894 02597000 L @02,CVTASVT(,@02) 0894 02598000 C @07,ASVTMAXU(,@02) 0894 02599000 BNH @RF00894 0894 02600000 * DO; /* NO, TOO HIGH @G33CPMR*/ 02601000 * MSGCODE=IEE708I; /* SET ERROR CODE @G33CPMR*/ 02602000 MVI MSGCODE,X'3D' 0896 02603000 * KEYWDERR=NOTASID; /* SET 'ASID' KEYWORD @G33CPMR*/ 02604000 MVI KEYWDERR+4,C' ' 0897 02605000 MVC KEYWDERR+5(3),KEYWDERR+4 0897 02606000 MVC KEYWDERR(4),NOTASID 0897 02607000 * END; /* @G33CPMR*/ 02608000 * ELSE 0899 02609000 * ; /* @G33CPMR*/ 02610000 @RF00894 DS 0H 0900 02611000 * REG14=R14SAV1; /* RESTORE RETURN ADDRESS */ 02612000 L REG14,R14SAV1 0900 02613000 * END; 0901 02614000 @EL00019 DS 0H 0901 02615000 @EF00019 DS 0H 0901 02616000 @ER00019 BR @14 0901 02617000 *FINDJOB: 0902 02618000 * PROC OPTIONS(NOSAVE,NOSAVEAREA); 0902 02619000 * 0902 02620000 FINDJOB DS 0H 0903 02621000 */* ******************************************************************/ 02622000 */* */ 02623000 */* THIS ROUTINE WILL ENQ ON THE CSCB CHAIN AND FIND THE ASID */ 02624000 */* */ 02625000 */* ******************************************************************/ 02626000 * 0903 02627000 * R14SAV5=REG14; /* SAVE RETURN REG */ 02628000 ST REG14,R14SAV5 0903 02629000 * GEN(ENQ (SYSIEFSD,Q10,S,3,SYSTEM));/* ENQ ON CSCB CHAIN */ 02630000 ENQ (SYSIEFSD,Q10,S,3,SYSTEM) 02631000 * CSCBPTR=BACHN; /* FIRST CSCB ON CHAIN */ 02632000 L @07,CVTPTR 0905 02633000 L @07,CVTMSER(,@07) 0905 02634000 MVC CSCBPTR(4),BACHN(@07) 0905 02635000 * CSCBSW=ON; 0906 02636000 OI CSCBSW,B'01000000' 0906 02637000 * DO WHILE CSCBSW=ON; /* SEARCH FOR JOBNAME */ 02638000 B @DE00907 0907 02639000 @DL00907 DS 0H 0908 02640000 * IF CHCLS=NAME&TSOBIT=OFE /* JOBNAME FOUND @ZA00880*/ 02641000 * |CHKEY=NAME&TSOBIT=ON THEN/* TSONAME FOUND @ZA00880*/ 02642000 L @07,CSCBPTR 0908 02643000 CLC CHCLS(8,@07),NAME 0908 02644000 BNE @GL00047 0908 02645000 TM TSOBIT,B'00000001' 0908 02646000 BZ @RT00908 0908 02647000 @GL00047 L @07,CSCBPTR 0908 02648000 CLC CHKEY(8,@07),NAME 0908 02649000 BNE @RF00908 0908 02650000 TM TSOBIT,B'00000001' 0908 02651000 BNO @RF00908 0908 02652000 @RT00908 DS 0H 0909 02653000 * DO; 0909 02654000 * SDUTASID=CHASID; /* STORE JOB ASID */ 02655000 L @07,SDUMPPTR 0910 02656000 L @02,CSCBPTR 0910 02657000 MVC SDUTASID(2,@07),CHASID(@02) 0910 02658000 * CSCBSW=OFE; /* STOP SEARCHING */ 02659000 NI CSCBSW,B'10111111' 0911 02660000 * END; 0912 02661000 * ELSE 0913 02662000 * DO; 0913 02663000 B @RC00908 0913 02664000 @RF00908 DS 0H 0914 02665000 * IF CHPTR^=0 THEN /* NOT LAST CSCB */ 02666000 L @07,CSCBPTR 0914 02667000 L @07,CHPTR(,@07) 0914 02668000 LTR @07,@07 0914 02669000 BZ @RF00914 0914 02670000 * CSCBPTR=CHPTR; /* NEXT CSCB PLEASE */ 02671000 ST @07,CSCBPTR 0915 02672000 * ELSE 0916 02673000 * DO; 0916 02674000 B @RC00914 0916 02675000 @RF00914 DS 0H 0917 02676000 * IF TSOBIT=ON THEN /* TSO JOB ACTIVE @ZA00880*/ 02677000 TM TSOBIT,B'00000001' 0917 02678000 BNO @RF00917 0917 02679000 * MSGCODE='35'X; /* USERID NOT LOGGED ON @ZA00880*/ 02680000 MVI MSGCODE,X'35' 0918 02681000 * ELSE /* @ZA00880*/ 02682000 * MSGCODE='24'X; /* JOB NOT ACTIVE @ZA00880*/ 02683000 B @RC00917 0919 02684000 @RF00917 MVI MSGCODE,X'24' 0919 02685000 * KEYWDERR=NAME; /* JOBNAME IN ERROR */ 02686000 @RC00917 MVC KEYWDERR(8),NAME 0920 02687000 * CSCBSW=OFE; /* STOP SEARCH */ 02688000 NI CSCBSW,B'10111111' 0921 02689000 * END; 0922 02690000 * END; 0923 02691000 @RC00914 DS 0H 0924 02692000 * END; 0924 02693000 @RC00908 DS 0H 0924 02694000 @DE00907 TM CSCBSW,B'01000000' 0924 02695000 BO @DL00907 0924 02696000 * GEN(DEQ (SYSIEFSD,Q10,3,SYSTEM));/* DEQ CSCB CHAIN */ 02697000 DEQ (SYSIEFSD,Q10,3,SYSTEM) 02698000 * REG14=R14SAV5; /* RESTORE RETURN REG */ 02699000 L REG14,R14SAV5 0926 02700000 * END; 0927 02701000 @EL00020 DS 0H 0927 02702000 @EF00020 DS 0H 0927 02703000 @ER00020 BR @14 0927 02704000 *STORSCAN: 0928 02705000 * PROC OPTIONS(NOSAVE,NOSAVEAREA); 0928 02706000 * 0928 02707000 STORSCAN DS 0H 0929 02708000 */* ******************************************************************/ 02709000 */* */ 02710000 */* STORSCAN WILL DO THE FOLLOWING */ 02711000 */* 1. CALL ONEADDR TO SYNTAX CHECK EACH ADDRESS */ 02712000 */* AND TO DETERMINE IF THE ADDRESS IS HEX OR */ 02713000 */* DECIMAL */ 02714000 */* 2. PACK AND CVB THE ADDRESS */ 02715000 */* 3. DETERMINE IF THE ADDRESSES ARE IN PARES */ 02716000 */* */ 02717000 */* ******************************************************************/ 02718000 * 0929 02719000 * R14SAV2=REG14; /* SAVE RETURN ADDRESS */ 02720000 ST REG14,R14SAV2 0929 02721000 * HEXSW=ON; /* INDICATE HEX NUMBER */ 02722000 OI HEXSW,B'00010000' 0930 02723000 * SDUSTORA=ADDR(STORLIST); /* START OF STORAGE LIST */ 02724000 LA @07,STORLIST 0931 02725000 L @02,SDUMPPTR 0931 02726000 ST @07,SDUSTORA(,@02) 0931 02727000 * STORLIST=STORLIST&&STORLIST; /* ZERO OUT THE AREA */ 02728000 XC STORLIST(120),STORLIST 0932 02729000 * DO WHILE STORSW=OFE&MSGCODE=0; /* DETERMINE ADDRESSES */ 02730000 B @DE00933 0933 02731000 @DL00933 DS 0H 0934 02732000 * PKAREA=PKAREA&&PKAREA; /* INIT STORAGE @YM4489*/ 02733000 XC PKAREA(8),PKAREA 0934 02734000 * STORADR=STORADR&&STORADR; /* INIT STORAGE @YM4489*/ 02735000 XC STORADR(8),STORADR 0935 02736000 * STORADR(1:6)=REPLY(I+1:I+6); /* ONE ADDRESS */ 02737000 LA @07,REPLY(I) 0936 02738000 MVC STORADR(6),0(@07) 0936 02739000 * CALL ONEADDR; /* SYNTAX CHECK ONE ADDR */ 02740000 BAL @14,ONEADDR 0937 02741000 * IF HEXSW=OFE&MSGCODE=0 THEN /* DECIMAL ADDRESS */ 02742000 TM HEXSW,B'00010000' 0938 02743000 BNZ @RF00938 0938 02744000 CLI MSGCODE,0 0938 02745000 BNE @RF00938 0938 02746000 * DO; 0939 02747000 * PACK(PKAREA,STORADR(1:5));/* PACK DECIMAL */ 02748000 PACK PKAREA(8),STORADR(5) 0940 02749000 * CVB(USERADDR,PKAREA); /* CONVERT TO BINARY */ 02750000 MVC @TS00001(8),PKAREA 0941 02751000 CVB @07,@TS00001 0941 02752000 ST @07,USERADDR 0941 02753000 * USERADDR=USERADDR*ONEK; /* DEC ADDR * 1024 */ 02754000 SLA @07,10 0942 02755000 ST @07,USERADDR 0942 02756000 * HEXSW=ON; 0943 02757000 OI HEXSW,B'00010000' 0943 02758000 * END; 0944 02759000 * ELSE 0945 02760000 * DO; 0945 02761000 B @RC00938 0945 02762000 @RF00938 DS 0H 0946 02763000 * IF MSGCODE=0 THEN /* HEX ADDRESS */ 02764000 CLI MSGCODE,0 0946 02765000 BNE @RF00946 0946 02766000 * DO; 0947 02767000 * PACK(PKAREA,STORADR(1:6));/* PACK ADDRESS */ 02768000 PACK PKAREA(8),STORADR(6) 0948 02769000 * USERADDR=PKAREA(5:8); /* STOR PACK ADDRESS */ 02770000 MVC @TF00001(4),PKAREA+4 0949 02771000 L @07,@TF00001 0949 02772000 ST @07,USERADDR 0949 02773000 * USERADDR=USERADDR/16; /* REMOVE THE SIGN */ 02774000 LR @04,@07 0950 02775000 SRDA @04,32 0950 02776000 D @04,@CF00157 0950 02777000 ST @05,USERADDR 0950 02778000 * END; 0951 02779000 * END; 0952 02780000 @RF00946 DS 0H 0953 02781000 * SDUSTORA->PUTINLIS=USERADDR; /* PUT ADDR IN LIST */ 02782000 @RC00938 L @07,SDUMPPTR 0953 02783000 L @02,SDUSTORA(,@07) 0953 02784000 MVC PUTINLIS(4,@02),USERADDR 0953 02785000 * I=I+7; /* NEXT ADDRESS */ 02786000 AH I,@CH00100 0954 02787000 * IF PARSW=OFE THEN 0955 02788000 TM PARSW,B'00100000' 0955 02789000 BNZ @RF00955 0955 02790000 * DO; 0956 02791000 * IF COMMA=REPLY(I) THEN /* MORE ADDRESSES */ 02792000 LA @09,REPLY-1(I) 0957 02793000 CLI 0(@09),C',' 0957 02794000 BNE @RF00957 0957 02795000 * DO; 0958 02796000 * SDUSTORA=SDUSTORA+4; /* ADVANCE IN STORLIST */ 02797000 AH @02,@CH00045 0959 02798000 ST @02,SDUSTORA(,@07) 0959 02799000 * PARSW=ON; /* NO PARE */ 02800000 OI PARSW,B'00100000' 0960 02801000 * END; 0961 02802000 * ELSE 0962 02803000 * DO; 0962 02804000 B @RC00957 0962 02805000 @RF00957 DS 0H 0963 02806000 * KEYWDERR=DUMP; /* ERROR CONDITION */ 02807000 MVI KEYWDERR+4,C' ' 0963 02808000 MVC KEYWDERR+5(3),KEYWDERR+4 0963 02809000 MVC KEYWDERR(4),DUMP 0963 02810000 * MSGCODE='3E'X; /* INVALID PARAMETER */ 02811000 MVI MSGCODE,X'3E' 0964 02812000 * END; 0965 02813000 * END; 0966 02814000 * ELSE 0967 02815000 * DO; 0967 02816000 B @RC00955 0967 02817000 @RF00955 DS 0H 0968 02818000 * IF FIRSTADR'9' THEN 1009 02944000 * 1009 02945000 L @07,INDX 1009 02946000 LA @02,STORADR-1(@07) 1009 02947000 CLI 0(@02),C'0' 1009 02948000 BL @RT01009 1009 02949000 LA @02,STORADR-1(@07) 1009 02950000 CLI 0(@02),C'9' 1009 02951000 BNH @RF01009 1009 02952000 @RT01009 DS 0H 1010 02953000 * /*****************************************************/ 02954000 * /* */ 02955000 * /* CHECK FOR VALID DECIMAL NUMBERS */ 02956000 * /* */ 02957000 * /*****************************************************/ 02958000 * 1010 02959000 * DO; 1010 02960000 * KEYWDERR=DUMP; /* INCORRECT NUMBER */ 02961000 MVI KEYWDERR+4,C' ' 1011 02962000 MVC KEYWDERR+5(3),KEYWDERR+4 1011 02963000 MVC KEYWDERR(4),DUMP 1011 02964000 * MSGCODE='06'X; /* ERROR CONDITION */ 02965000 MVI MSGCODE,X'06' 1012 02966000 * END; 1013 02967000 * ELSE 1014 02968000 * ; 1014 02969000 @RF01009 DS 0H 1015 02970000 * END; 1015 02971000 * ELSE 1016 02972000 * DECSW=OFE; /* SET SWITCH */ 02973000 B @RC01007 1016 02974000 @RF01007 NI DECSW,B'11110111' 1016 02975000 * END; 1017 02976000 * ELSE 1018 02977000 * DO; 1018 02978000 B @RC01005 1018 02979000 @RF01005 DS 0H 1019 02980000 * IF STORADR(INDX)>='A'&STORADR(INDX)<='F'|STORADR(INDX)>='0'& 02981000 * STORADR(INDX)<='9' THEN/* VALID HEX NUMBER */ 02982000 L @07,INDX 1019 02983000 LA @02,STORADR-1(@07) 1019 02984000 CLI 0(@02),C'A' 1019 02985000 BL @GL00053 1019 02986000 LA @02,STORADR-1(@07) 1019 02987000 CLI 0(@02),C'F' 1019 02988000 BNH @RT01019 1019 02989000 @GL00053 L @07,INDX 1019 02990000 LA @02,STORADR-1(@07) 1019 02991000 CLI 0(@02),C'0' 1019 02992000 BL @RF01019 1019 02993000 LA @02,STORADR-1(@07) 1019 02994000 CLI 0(@02),C'9' 1019 02995000 BH @RF01019 1019 02996000 @RT01019 DS 0H 1020 02997000 * DO; 1020 02998000 * IF STORADR(INDX)>='A'&STORADR(INDX)<='F' THEN 1021 02999000 * 1021 03000000 L @07,INDX 1021 03001000 LA @02,STORADR-1(@07) 1021 03002000 CLI 0(@02),C'A' 1021 03003000 BL @RF01021 1021 03004000 LA @02,STORADR-1(@07) 1021 03005000 CLI 0(@02),C'F' 1021 03006000 BH @RF01021 1021 03007000 * /*****************************************************/ 03008000 * /* */ 03009000 * /* THE FOLLOWING INSTRUCTION IS CHARACTER CODE */ 03010000 * /* DEPENDENT. IT WILL ADD 57 TO C1,C2,C3,C4, C5 OR */ 03011000 * /* C6. THIS WILL MAKE THEM PACKABLE TO FA,FB,FC,FD,FE*/ 03012000 * /* OR FF. */ 03013000 * /* */ 03014000 * /*****************************************************/ 03015000 * 1022 03016000 * STORADR(INDX)=57+STORADR(INDX); 1022 03017000 LA @02,57 1022 03018000 LA @09,STORADR-1(@07) 1022 03019000 MVC @ZT00003+3(1),0(@09) 1022 03020000 AL @02,@ZT00003 1022 03021000 STC @02,STORADR-1(@07) 1022 03022000 * ELSE 1023 03023000 * ; 1023 03024000 @RF01021 DS 0H 1024 03025000 * END; 1024 03026000 * ELSE 1025 03027000 * DO; 1025 03028000 B @RC01019 1025 03029000 @RF01019 DS 0H 1026 03030000 * MSGCODE='06'X; /* ERROR CONDITION */ 03031000 MVI MSGCODE,X'06' 1026 03032000 * KEYWDERR=DUMP; /* INCORRECT ADDRESS */ 03033000 MVI KEYWDERR+4,C' ' 1027 03034000 MVC KEYWDERR+5(3),KEYWDERR+4 1027 03035000 MVC KEYWDERR(4),DUMP 1027 03036000 * END; 1028 03037000 * END; 1029 03038000 @RC01019 DS 0H 1030 03039000 * END; 1030 03040000 @RC01005 SLR @07,@07 1030 03041000 BCTR @07,0 1030 03042000 AL @07,INDX 1030 03043000 ST @07,INDX 1030 03044000 LTR @07,@07 1030 03045000 BP @DL00995 1030 03046000 @DC00995 DS 0H 1031 03047000 * REG14=R14SA15; /* RESTORE RETURN ADDR */ 03048000 L REG14,R14SA15 1031 03049000 * END; 1032 03050000 @EL00022 DS 0H 1032 03051000 @EF00022 DS 0H 1032 03052000 @ER00022 BR @14 1032 03053000 *ISUSDUMP: 1033 03054000 * PROC OPTIONS(NOSAVE,NOSAVEAREA); 1033 03055000 * 1033 03056000 ISUSDUMP DS 0H 1034 03057000 */* ******************************************************************/ 03058000 */* */ 03059000 */* THIS ROUTINE WILL ISSUE THE SDUMP MACRO */ 03060000 */* */ 03061000 */* ******************************************************************/ 03062000 * 1034 03063000 * R14SA17=REG14; /* SAVE RETURN ADDRESS */ 03064000 ST REG14,R14SA17 1034 03065000 * SDUECBAD=ADDR(DUMPECB); /* ECB ADDR IN PARMLIST @YM4790P*/ 03066000 LA @07,DUMPECB 1035 03067000 L @09,SDUMPPTR 1035 03068000 ST @07,SDUECBAD(,@09) 1035 03069000 * DUMPECB=0; /* ZERO OUT DUMPECB @YM4790P*/ 03070000 SLR @07,@07 1036 03071000 ST @07,DUMPECB 1036 03072000 * REG1=ADDR(SDUMPLF); /* SDUMP PARM LIST */ 03073000 * 1037 03074000 LA REG1,SDUMPLF 1037 03075000 * /*****************************************************************/ 03076000 * /* */ 03077000 * /* MOVE LIST FORM SDUMP INTO DATA AREA */ 03078000 * /* */ 03079000 * /*****************************************************************/ 03080000 * 1038 03081000 * GEN(SDUMP MF=(E,(REG1))); 1038 03082000 SDUMP MF=(E,(REG1)) 03083000 * IF REG15=0 THEN /* SRB CREATED BY SVC51 @YM4790P*/ 03084000 LTR REG15,REG15 1039 03085000 BNZ @RF01039 1039 03086000 * GEN(WAIT ECB=DUMPECB); /* WAIT ON SVC51 ECB @YM4790P*/ 03087000 WAIT ECB=DUMPECB 03088000 * ELSE /* @YM4790P*/ 03089000 * ECBCODE=EIGHT; /* SYS UNABLE TO DUMP @YM4790P*/ 03090000 B @RC01039 1041 03091000 @RF01039 MVC ECBCODE(3),@CF00049+1 1041 03092000 * REG14=R14SA17; /* RESTORE RETURN ADDR */ 03093000 @RC01039 L REG14,R14SA17 1042 03094000 * END; 1043 03095000 @EL00023 DS 0H 1043 03096000 @EF00023 DS 0H 1043 03097000 @ER00023 BR @14 1043 03098000 * 1044 03099000 * /*****************************************************************/ 03100000 * /* */ 03101000 * /* GEN DATA FOR THE WTOR */ 03102000 * /* */ 03103000 * /*****************************************************************/ 03104000 * 1044 03105000 * GEN; 1044 03106000 WTORDATA WTOR 'IEE094D SPECIFY OPERAND(S) FOR DUMP COMMAND', **03107000 WTORDATA,120,WTORDATA,DESC=2,MCSFLAG=(REG0,RESP),MF=L 03108000 * 1045 03109000 * /*****************************************************************/ 03110000 * /* */ 03111000 * /* GEN DATA FOR SDUMP */ 03112000 * /* */ 03113000 * /*****************************************************************/ 03114000 * 1045 03115000 * GEN; 1045 03116000 LFSDUMP SDUMP MF=L 03117000 * 1046 03118000 * /*****************************************************************/ 03119000 * /* */ 03120000 * /* END CONSOLE DUMP PROCESOR */ 03121000 * /* */ 03122000 * /*****************************************************************/ 03123000 * 1046 03124000 * END IEECB866 1046 03125000 * 1046 03126000 */* THE FOLLOWING INCLUDE STATEMENTS WERE FOUND IN THIS PROGRAM. */ 03127000 */*%INCLUDE SYSLIB (IEECHAIN) */ 03128000 */*%INCLUDE SYSLIB (IEECUCM ) */ 03129000 */*%INCLUDE SYSLIB (IEEBASEA) */ 03130000 */*%INCLUDE SYSLIB (IEEXSA ) */ 03131000 */*%INCLUDE SYSLIB (CVT ) */ 03132000 */*%INCLUDE SYSLIB (IHASDUMP) */ 03133000 */*%INCLUDE SYSLIB (IHASUBIT) */ 03134000 */*%INCLUDE SYSLIB (IHAASVT ) */ 03135000 * 1046 03136000 * ; 1046 03137000 B @EL00001 1046 03138000 @DATA DS 0H 03139000 @CH00047 DC H'1' 03140000 @CH00152 DC H'2' 03141000 @CH00074 DC H'3' 03142000 @CH00045 DC H'4' 03143000 @CH00367 DC H'5' 03144000 @CH00599 DC H'6' 03145000 @CH00100 DC H'7' 03146000 @CH00124 DC H'9' 03147000 @CH00035 DC H'11' 03148000 @CH00034 DC H'12' 03149000 @CH00080 DC H'15' 03150000 @CH01764 DC H'17' 03151000 @CH01766 DC H'120' 03152000 @CH00134 DC H'124' 03153000 @SM02034 MVC TEXT(0),CHBUF+6(@09) 03154000 @SM02042 MVC NAME(0),0(@09) 03155000 @SM02047 MVC 0(0,@09),0(@08) 03156000 @DATD DSECT 03157000 DS 0F 03158000 @PC00001 DS 1F 03159000 @TF00001 DS F 03160000 @ZTEMPS DS 0F 03161000 @ZT00002 DC F'0' 03162000 @ZT00003 DC F'0' 03163000 @ZTEMPND EQU * 03164000 @ZLEN EQU @ZTEMPND-@ZTEMPS 03165000 IEECB866 CSECT 03166000 DS 0F 03167000 @CF00049 DC F'8' 03168000 @CH00049 EQU @CF00049+2 03169000 @CF00157 DC F'16' 03170000 @CF02033 DC F'-4' 03171000 @CF01860 DC XL4'8000' 03172000 @DATD DSECT 03173000 DS 0D 03174000 CSCBPTR DS A 03175000 UCMEXTPT DS A 03176000 UCMEILPT DS A 03177000 UCMUEWPT DS A 03178000 UCMFXPTR DS A 03179000 UCMPXPTR DS A 03180000 SDUMPPTR DS A 03181000 ASVTPTR DS A 03182000 I2 DS F 03183000 I3 DS F 03184000 INDX DS F 03185000 USERADDR DS F 03186000 ECB DS F 03187000 DUMPECB DS FL4 03188000 ORG DUMPECB 03189000 ECBPOST DS AL1 03190000 ECBCODE DS FL3 03191000 ORG DUMPECB+4 03192000 BEGIN DS H 03193000 COUNT DS H 03194000 LOOPCNT DS H 03195000 NAMELGTH DS H 03196000 DS 0D 03197000 @TS00001 DS CL8 03198000 KEYWDERR DS CL8 03199000 MSGCODE DS CL1 03200000 SAVEUCMP DS CL1 03201000 DUMPHDR DS CL101 03202000 ORG DUMPHDR 03203000 TEXTLNTH DS FL1 03204000 TEXT DS CL100 03205000 ORG DUMPHDR+101 03206000 BITSW DS CL2 03207000 ORG BITSW 03208000 BITA DS CL1 03209000 ORG BITA 03210000 REPLYCK DS BL1 03211000 CSCBSW EQU BITA+0 03212000 PARSW EQU BITA+0 03213000 HEXSW EQU BITA+0 03214000 DECSW EQU BITA+0 03215000 STORSW EQU BITA+0 03216000 REPLYEND EQU BITA+0 03217000 TSOBIT EQU BITA+0 03218000 ORG BITSW+1 03219000 BITB DS CL1 03220000 ORG BITB 03221000 CONTINUE DS BL1 03222000 STORDONE EQU BITB+0 03223000 SDATDONE EQU BITB+0 03224000 @NM00060 EQU BITB+0 03225000 ORG BITSW+2 03226000 DS CL7 03227000 STORLIST DS CL120 03228000 PKAREA DS CL8 03229000 STORADR DS CL8 03230000 STAEAREA DS CL44 03231000 SDUMPLF DS CL40 03232000 WTORAREA DS CL68 03233000 ORG WTORAREA 03234000 @NM00061 DS CL1 03235000 RPLYAD DS AL3 03236000 ECBAD DS AL4 03237000 @NM00062 DS CL60 03238000 ORG WTORAREA+68 03239000 REPLY DS CL121 03240000 DECASID DS CL5 03241000 DS CL2 03242000 PKASID DS CL8 03243000 NAME DS CL8 03244000 R14SAVE DS CL80 03245000 ORG R14SAVE 03246000 R14SAV1 DS AL4 03247000 R14SAV2 DS AL4 03248000 R14SAV3 DS AL4 03249000 R14SAV4 DS AL4 03250000 R14SAV5 DS AL4 03251000 R14SAV6 DS AL4 03252000 R14SAV7 DS AL4 03253000 R14SAV8 DS AL4 03254000 R14SAV9 DS AL4 03255000 R14SA10 DS AL4 03256000 R14SA11 DS AL4 03257000 R14SA12 DS AL4 03258000 R14SA13 DS AL4 03259000 R14SA14 DS AL4 03260000 R14SA15 DS AL4 03261000 R14SA16 DS AL4 03262000 R14SA17 DS AL4 03263000 R14SA18 DS AL4 03264000 R14SA19 DS AL4 03265000 R14SA20 DS AL4 03266000 ORG R14SAVE+80 03267000 ASIDAREA DS 15AL2 03268000 ORG *+1-(*-@DATD)/(*-@DATD) INSURE DSECT DATA 03269000 @ENDDATD EQU * 03270000 IEECB866 CSECT 03271000 DS 0F 03272000 @SIZDATD DC AL1(241) 03273000 DC AL3(@ENDDATD-@DATD) 03274000 DS 0D 03275000 MASTER DC H'1' 03276000 @CC01736 DC C'),END' 03277000 @CC01732 EQU @CC01736 03278000 @CC01734 DC C') ' 03279000 @CC01980 DC C'=(' 03280000 NOTASID DC CL4'ASID' 03281000 UERROR DC CL1'U' 03282000 DUMP DC CL4'DUMP' 03283000 SVC51ERR DC CL8'SYSTEM' 03284000 PATCH DC CL150'*******IEECB866 PATCH AREA*******' 03285000 SYSIEFSD DC CL8'SYSIEFSD' 03286000 Q10 DC CL3'Q10' 03287000 PSA DC CL3'PSA' 03288000 NUC DC CL3'NUC' 03289000 SQA DC CL3'SQA' 03290000 LSQA DC CL4'LSQA' 03291000 RGN DC CL3'RGN' 03292000 LPA DC CL3'LPA' 03293000 TRT DC CL3'TRT' 03294000 CSA DC CL3'CSA' 03295000 SWA DC CL3'SWA' 03296000 SUM DC CL3'SUM' 03297000 NOPSA DC CL5'NOPSA' 03298000 NOSQA DC CL5'NOSQA' 03299000 NOSUM DC CL5'NOSUM' 03300000 UBLANK DC CL2'U ' 03301000 JOBNAME DC CL8'JOBNAME=' 03302000 TSONAME DC CL8'TSONAME=' 03303000 ASID DC CL5'ASID=' 03304000 SDATAB DC CL6'SDATA ' 03305000 SDATAC DC CL6'SDATA,' 03306000 SDATAE DC CL7'SDATA=(' 03307000 STOR DC CL4'STOR' 03308000 CONT DC CL4'CONT' 03309000 ENDC DC CL3'END' 03310000 @00 EQU 00 EQUATES FOR REGISTERS 0-15 03311000 @01 EQU 01 03312000 @02 EQU 02 03313000 @03 EQU 03 03314000 @04 EQU 04 03315000 @05 EQU 05 03316000 @06 EQU 06 03317000 @07 EQU 07 03318000 @08 EQU 08 03319000 @09 EQU 09 03320000 @10 EQU 10 03321000 @11 EQU 11 03322000 @12 EQU 12 03323000 @13 EQU 13 03324000 @14 EQU 14 03325000 @15 EQU 15 03326000 I EQU @03 03327000 CMDINDEX EQU @03 03328000 XSAPTR EQU @03 03329000 REG0 EQU @00 03330000 REG1 EQU @01 03331000 REG2 EQU @02 03332000 REG5 EQU @05 03333000 REG6 EQU @06 03334000 REG10 EQU @10 03335000 REG11 EQU @11 03336000 REG12 EQU @12 03337000 REG13 EQU @13 03338000 REG14 EQU @14 03339000 REG15 EQU @15 03340000 REG4 EQU @04 03341000 CVTPTR EQU 16 03342000 CHAIN EQU 0 03343000 CHPTR EQU CHAIN 03344000 CHFLG EQU CHAIN+4 03345000 CHSTS EQU CHFLG+2 03346000 CHFC EQU CHSTS 03347000 CHACT EQU CHFLG+3 03348000 CHIFY EQU CHACT 03349000 CHKEY EQU CHAIN+8 03350000 CHPARM EQU CHKEY 03351000 CHCLS EQU CHAIN+16 03352000 CHPKE EQU CHAIN+28 03353000 CHUCMP EQU CHAIN+29 03354000 CHTJID EQU CHAIN+30 03355000 CHASID EQU CHTJID 03356000 CHPROCSN EQU CHAIN+32 03357000 CHACT1 EQU CHPROCSN+3 03358000 CHASM EQU CHAIN+40 03359000 CHCIBP EQU CHASM+4 03360000 CHRGNSZ EQU CHASM+8 03361000 CHSTEP EQU CHASM+24 03362000 CHSWT EQU CHSTEP 03363000 CHSHORT EQU CHASM+32 03364000 UCM2EXT EQU 0 03365000 UCM2STA EQU UCM2EXT+8 03366000 UCM2SFLG EQU UCM2STA 03367000 UCMPRFX EQU 0 03368000 UCMMCENT EQU UCMPRFX 03369000 UCMSAVE0 EQU UCMPRFX+4 03370000 UCMSFLGS EQU UCMPRFX+84 03371000 UCMSFLG1 EQU UCMSFLGS 03372000 UCMSFLG2 EQU UCMSFLGS+1 03373000 UCMXSA EQU UCMPRFX+104 03374000 UCMSDS1 EQU UCMPRFX+156 03375000 UCMPRFXP EQU 0 03376000 UCM EQU 0 03377000 UCMDECB EQU UCM+12 03378000 UCMRPYI EQU UCM+32 03379000 UCMPXB EQU UCM+68 03380000 UCMMODE EQU UCMPXB 03381000 UCMVDATA EQU UCM+72 03382000 UCMRSV42 EQU UCM+300 03383000 UCMRSV51 EQU UCM+301 03384000 UCMEIL EQU 0 03385000 UCMRECBA EQU UCMEIL+24 03386000 UCMEXIT EQU 0 03387000 UCMLIST EQU 0 03388000 UCMSTS EQU UCMLIST+24 03389000 UCMATR EQU UCMLIST+25 03390000 UCMXA EQU UCMLIST+26 03391000 UCMID EQU UCMXA 03392000 UCMAUTH EQU UCMLIST+40 03393000 UCMAUTHA EQU UCMAUTH 03394000 UCMDISP EQU UCMLIST+42 03395000 UCMDISP1 EQU UCMDISP 03396000 UCMDISP2 EQU UCMDISP+1 03397000 UCMMSG EQU UCMLIST+60 03398000 UCMMSG1 EQU UCMMSG 03399000 UCMDEVC EQU UCMLIST+63 03400000 UCMRCT EQU UCMLIST+68 03401000 UCMSDS5 EQU UCMRCT 03402000 UCMFEXTA EQU 0 03403000 UCMFMGFS EQU UCMFEXTA+8 03404000 UCMFFLG1 EQU UCMFMGFS 03405000 UCMPEXTA EQU 0 03406000 UCMPDM1 EQU UCMPEXTA+4 03407000 BASE EQU 0 03408000 BACHN EQU BASE 03409000 @NM00008 EQU BASE+13 03410000 BALGSTAT EQU BASE+24 03411000 BALOG EQU BALGSTAT+4 03412000 BASFL EQU BASE+36 03413000 BARSW EQU BASFL 03414000 MSLOGST EQU BASE+46 03415000 BASPBYTE EQU BASE+47 03416000 BAMONITR EQU BASE+56 03417000 @NM00030 EQU BASE+104 03418000 MSLGCLOZ EQU BASE+108 03419000 MSCLOSSW EQU MSLGCLOZ 03420000 MSLGWLOG EQU BASE+112 03421000 MSWLOGSW EQU MSLGWLOG 03422000 MSLGWTR EQU BASE+116 03423000 MSWTRSW EQU MSLGWTR 03424000 MSLGSTRT EQU BASE+120 03425000 MSSTRTSW EQU MSLGSTRT 03426000 MS1BASEX EQU BASE+136 03427000 BASES01 EQU 0 03428000 MSNTAL EQU BASES01 03429000 MSSSB EQU BASES01+1 03430000 MSBTN EQU MSSSB 03431000 MSPFG EQU BASES01+2 03432000 MSECBFL EQU BASES01+3 03433000 MSTUS EQU BASES01+4 03434000 MSSSA EQU MSTUS 03435000 MSINLSW EQU MSSSA 03436000 MSREOF EQU MSSSA 03437000 MSNWP EQU MSSSA 03438000 MSFHF EQU BASES01+5 03439000 XSAMAP EQU 0 03440000 XASVRB EQU XSAMAP 03441000 XSA EQU XASVRB 03442000 XAD EQU XSA+4 03443000 XAX EQU XASVRB+8 03444000 @NM00047 EQU XASVRB+16 03445000 XAE EQU @NM00047 03446000 @NM00048 EQU XASVRB+20 03447000 XAV EQU XASVRB+24 03448000 XAS EQU XASVRB+32 03449000 XAU EQU XASVRB+40 03450000 XAA EQU XASVRB+42 03451000 XASAVLOC EQU XSAMAP+48 03452000 XASAVLOX EQU XASAVLOC 03453000 XASAVSTD EQU XSAMAP+64 03454000 XASAVSTR EQU XASAVSTD 03455000 @NM00050 EQU XSAMAP+136 03456000 XACMFLGS EQU @NM00050 03457000 XACMFLGA EQU XACMFLGS 03458000 XACMFLG1 EQU XACMFLGA 03459000 XACMFLG2 EQU XACMFLGA+1 03460000 XACMFLGB EQU XACMFLGS+2 03461000 XAWORK EQU XSAMAP+152 03462000 EEXSAS01 EQU 0 03463000 EEXSAS02 EQU 0 03464000 XADUSWIT EQU EEXSAS02 03465000 EEXSAS03 EQU 0 03466000 XASDS EQU EEXSAS03+2 03467000 @NM00052 EQU EEXSAS03+4 03468000 EEXSAS04 EQU 0 03469000 XAXMASK EQU EEXSAS04 03470000 EEXSAS05 EQU 0 03471000 XASOPCOD EQU EEXSAS05 03472000 XASWITCH EQU EEXSAS05+1 03473000 XALTCHG EQU XASWITCH 03474000 XACOMPMS EQU XASWITCH 03475000 XARESV EQU EEXSAS05+2 03476000 EEXSAS06 EQU 0 03477000 XAAVRANG EQU EEXSAS06 03478000 XAAVRNG2 EQU EEXSAS06+1 03479000 CVTMAP EQU 0 03480000 CVTDAR EQU CVTMAP+72 03481000 CVTFLGS1 EQU CVTDAR 03482000 CVTCUCB EQU CVTMAP+100 03483000 CVTDCB EQU CVTMAP+116 03484000 CVTIERLC EQU CVTMAP+144 03485000 CVTMSER EQU CVTMAP+148 03486000 CVTOPTA EQU CVTMAP+182 03487000 CVTOPTB EQU CVTMAP+183 03488000 CVTGTF EQU CVTMAP+236 03489000 CVTGTFST EQU CVTGTF 03490000 CVTGTFS EQU CVTGTFST 03491000 CVTSTATE EQU CVTGTFST 03492000 CVTTMODE EQU CVTGTFST 03493000 CVTFORM EQU CVTGTFST 03494000 CVTAQAVT EQU CVTMAP+240 03495000 CVTTCMFG EQU CVTAQAVT 03496000 CVTVOLM2 EQU CVTMAP+244 03497000 CVTTATA EQU CVTVOLM2 03498000 CVTTSKS EQU CVTTATA 03499000 CVTVOLF2 EQU CVTTSKS 03500000 CVTTAT EQU CVTTATA+1 03501000 CVTATER EQU CVTMAP+248 03502000 CVTEXT1 EQU CVTMAP+252 03503000 CVTPURG EQU CVTMAP+260 03504000 CVTQMSG EQU CVTMAP+268 03505000 CVTDMSR EQU CVTMAP+272 03506000 CVTRSV37 EQU CVTDMSR 03507000 CVTDMSRF EQU CVTRSV37 03508000 CVTERPV EQU CVTMAP+316 03509000 CVTINTLA EQU CVTMAP+320 03510000 CVTAPF EQU CVTMAP+324 03511000 CVTEXT2 EQU CVTMAP+328 03512000 CVTHJES EQU CVTMAP+332 03513000 CVTPGSIA EQU CVTMAP+348 03514000 CVTA1F1 EQU CVTMAP+356 03515000 CVTSYSK EQU CVTMAP+357 03516000 CVTVOLM1 EQU CVTMAP+380 03517000 CVTVOLF1 EQU CVTVOLM1 03518000 CVTXTNT1 EQU 0 03519000 CVTXTNT2 EQU 0 03520000 CVTDSSV EQU CVTXTNT2 03521000 CVTFLGBT EQU CVTXTNT2+5 03522000 CVTQID EQU CVTXTNT2+24 03523000 CVTRV400 EQU CVTXTNT2+52 03524000 CVTRV409 EQU CVTXTNT2+53 03525000 CVTATCVT EQU CVTXTNT2+64 03526000 CVTRV429 EQU CVTXTNT2+84 03527000 CVTRV438 EQU CVTXTNT2+85 03528000 CVTRV457 EQU CVTXTNT2+112 03529000 CVTRV466 EQU CVTXTNT2+113 03530000 CVTFIX EQU 0 03531000 CVTRELNO EQU CVTFIX+252 03532000 SDUMP EQU 0 03533000 SDUFLAG0 EQU SDUMP 03534000 SDUSTOR EQU SDUFLAG0 03535000 SDUHDR EQU SDUFLAG0 03536000 SDUECB EQU SDUFLAG0 03537000 SDUASID EQU SDUFLAG0 03538000 SDUFLAG1 EQU SDUMP+1 03539000 SDUNEW EQU SDUFLAG1 03540000 SDUASLST EQU SDUFLAG1 03541000 SDUSDAT1 EQU SDUMP+2 03542000 SDUALPSA EQU SDUSDAT1 03543000 SDUNUC EQU SDUSDAT1 03544000 SDUSQA EQU SDUSDAT1 03545000 SDULSQA EQU SDUSDAT1 03546000 SDURGN EQU SDUSDAT1 03547000 SDULPA EQU SDUSDAT1 03548000 SDUTRT EQU SDUSDAT1 03549000 SDUSDAT2 EQU SDUMP+3 03550000 SDUCSA EQU SDUSDAT2 03551000 SDUSWA EQU SDUSDAT2 03552000 SDUSMDMP EQU SDUSDAT2 03553000 SDUNSMDP EQU SDUSDAT2 03554000 SDUNAPSA EQU SDUSDAT2 03555000 SDUNASQA EQU SDUSDAT2 03556000 SDUSTORA EQU SDUMP+8 03557000 SDUHDRAD EQU SDUMP+12 03558000 SDUECBAD EQU SDUMP+16 03559000 SDUMASID EQU SDUMP+20 03560000 SDUTASID EQU SDUMASID+2 03561000 SDUASIDP EQU SDUMP+24 03562000 SUBITS EQU 0 03563000 SUBYTE1 EQU SUBITS 03564000 SUBYTE2 EQU SUBITS+1 03565000 SUBYTE3 EQU SUBITS+2 03566000 SUBYTE4 EQU SUBITS+3 03567000 SUBYTE5 EQU SUBITS+4 03568000 SU33BIT EQU SUBYTE5 03569000 SUBYTE6 EQU SUBITS+5 03570000 SUBYTE7 EQU SUBITS+6 03571000 SUBYTE8 EQU SUBITS+7 03572000 SUBYTE9 EQU SUBITS+8 03573000 SUBYTE10 EQU SUBITS+9 03574000 SUBYTE11 EQU SUBITS+10 03575000 SUBYTE12 EQU SUBITS+11 03576000 SUBYTE13 EQU SUBITS+12 03577000 ASVT EQU 0 03578000 ASVTMAXU EQU ASVT+516 03579000 ASVTFRST EQU ASVT+524 03580000 ASVTENTY EQU ASVT+528 03581000 FIRSTADR EQU 0 03582000 COMPARE EQU 0 03583000 SECADR EQU COMPARE 03584000 HIBIT EQU SECADR 03585000 PUTINLIS EQU 0 03586000 STAELIST EQU 0 03587000 CSCBADDR EQU STAELIST 03588000 BUFPTR EQU STAELIST+4 03589000 STAEBUF EQU STAELIST+8 03590000 CMDSIZE EQU STAEBUF 03591000 COMMAND EQU STAEBUF+1 03592000 REGSAVE EQU STAELIST+20 03593000 REG14SAV EQU REGSAVE 03594000 REG6SAV EQU REGSAVE+4 03595000 REG10SAV EQU REGSAVE+8 03596000 REG11SAV EQU REGSAVE+12 03597000 REG12SAV EQU REGSAVE+16 03598000 REG13SAV EQU REGSAVE+20 03599000 UCM2PTR EQU 0 03600000 CSCB EQU 0 03601000 CHAINS01 EQU CHASM 03602000 CHBUF EQU CHAINS01 03603000 CHTYPE EQU CHAINS01+124 03604000 CHTRSTAT EQU CHAINS01+125 03605000 CHCSYSO EQU CHAINS01+134 03606000 UCMMCSPT EQU UCMPRFXP 03607000 UCMBASPT EQU CVTCUCB 03608000 UCMIECBA EQU UCMRECBA+4 03609000 UCMDVEPT EQU UCMMCENT 03610000 CVTS01 EQU CVTPGSIA 03611000 CVTLPDIA EQU CVTS01+12 03612000 CVTDIRST EQU CVTLPDIA 03613000 CVTSLIDA EQU CVTS01+24 03614000 CVTCTLFG EQU CVTS01+50 03615000 CVTASVT EQU CVTS01+208 03616000 CVTRV210 EQU CVTS01+424 03617000 CVTRV219 EQU CVTS01+425 03618000 CVTRV228 EQU CVTS01+426 03619000 CVTRV237 EQU CVTS01+427 03620000 CVTMFRTR EQU CVTS01+452 03621000 CVTRV262 EQU CVTS01+468 03622000 CVTRV271 EQU CVTS01+469 03623000 CVTRV280 EQU CVTS01+470 03624000 CVTRV289 EQU CVTS01+471 03625000 CVTGSDA EQU CVTS01+600 03626000 CVTIHASU EQU CVTS01+696 03627000 DUMPOPTS EQU SDUSDAT1 03628000 AGO .@UNREFD START UNREFERENCED COMPONENTS 03629000 CVTRV628 EQU CVTS01+728 03630000 CVTRV627 EQU CVTS01+724 03631000 CVTRV626 EQU CVTS01+720 03632000 CVTRV625 EQU CVTS01+716 03633000 CVTRV624 EQU CVTS01+712 03634000 CVTRV623 EQU CVTS01+708 03635000 CVTRV622 EQU CVTS01+704 03636000 CVTRV621 EQU CVTS01+700 03637000 CVTSUSP EQU CVTS01+692 03638000 CVTT6SVC EQU CVTS01+688 03639000 CVTCDAL EQU CVTS01+684 03640000 CVTTCTL EQU CVTS01+680 03641000 CVTRSUME EQU CVTS01+676 03642000 CVTJTERM EQU CVTS01+672 03643000 CVTASMRM EQU CVTS01+668 03644000 CVTTCASP EQU CVTS01+664 03645000 CVT0PT03 EQU CVTS01+660 03646000 CVT0PT0E EQU CVTS01+656 03647000 CVTRV609 EQU CVTS01+652 03648000 CVTCGK EQU CVTS01+648 03649000 CVTRAC EQU CVTS01+644 03650000 CVTRV606 EQU CVTS01+640 03651000 CVTRV605 EQU CVTS01+636 03652000 CVTRV604 EQU CVTS01+632 03653000 CVTEFF02 EQU CVTS01+628 03654000 CVTCBBR EQU CVTS01+624 03655000 CVTSSCR EQU CVTS01+620 03656000 CVTEVENT EQU CVTS01+616 03657000 CVTCRCA EQU CVTS01+612 03658000 CVTTPIO EQU CVTS01+608 03659000 CVTADV EQU CVTS01+604 03660000 CVTGSDAB EQU CVTGSDA 03661000 CVTQV3 EQU CVTS01+596 03662000 CVTQV2 EQU CVTS01+592 03663000 CVTQV1 EQU CVTS01+588 03664000 CVTRPT EQU CVTS01+584 03665000 CVTSSRB EQU CVTS01+580 03666000 CVTCSDRL EQU CVTS01+576 03667000 CVTEXP1 EQU CVTS01+572 03668000 CVTRMPMT EQU CVTS01+568 03669000 CVTRMPTT EQU CVTS01+564 03670000 CVTVPSA EQU CVTS01+560 03671000 CVTVSTOP EQU CVTS01+556 03672000 CVTGTFR8 EQU CVTS01+552 03673000 CVTQUIT EQU CVTS01+548 03674000 CVTVACR EQU CVTS01+544 03675000 CVTWTCB EQU CVTS01+540 03676000 CVTSTPRS EQU CVTS01+536 03677000 CVT0PT02 EQU CVTS01+532 03678000 CVTDARCM EQU CVTS01+528 03679000 CVTIRECM EQU CVTS01+524 03680000 CVTJRECM EQU CVTS01+520 03681000 CVTVEMS0 EQU CVTS01+516 03682000 CVTSPFRR EQU CVTS01+512 03683000 CVTRLSTG EQU CVTS01+508 03684000 CVT0TC0A EQU CVTS01+504 03685000 CVTGMBR EQU CVTS01+500 03686000 CVTLFRM EQU CVTS01+496 03687000 CVTRMBR EQU CVTS01+492 03688000 CVTVIOP EQU CVTS01+488 03689000 CVTRV307 EQU CVTS01+486 03690000 CVTRV306 EQU CVTS01+484 03691000 CVTRV305 EQU CVTS01+482 03692000 CVTRV304 EQU CVTS01+480 03693000 CVTRV303 EQU CVTS01+478 03694000 CVTRV302 EQU CVTS01+476 03695000 CVTTRCA EQU CVTS01+472 03696000 CVTRV297 EQU CVTRV289 03697000 CVTRV296 EQU CVTRV289 03698000 CVTRV295 EQU CVTRV289 03699000 CVTRV294 EQU CVTRV289 03700000 CVTRV293 EQU CVTRV289 03701000 CVTRV292 EQU CVTRV289 03702000 CVTRV291 EQU CVTRV289 03703000 CVTRV290 EQU CVTRV289 03704000 CVTRV288 EQU CVTRV280 03705000 CVTRV287 EQU CVTRV280 03706000 CVTRV286 EQU CVTRV280 03707000 CVTRV285 EQU CVTRV280 03708000 CVTRV284 EQU CVTRV280 03709000 CVTRV283 EQU CVTRV280 03710000 CVTRV282 EQU CVTRV280 03711000 CVTRV281 EQU CVTRV280 03712000 CVTRV279 EQU CVTRV271 03713000 CVTRV278 EQU CVTRV271 03714000 CVTRV277 EQU CVTRV271 03715000 CVTRV276 EQU CVTRV271 03716000 CVTRV275 EQU CVTRV271 03717000 CVTRV274 EQU CVTRV271 03718000 CVTRV273 EQU CVTRV271 03719000 CVTRV272 EQU CVTRV271 03720000 CVTRV270 EQU CVTRV262 03721000 CVTRV269 EQU CVTRV262 03722000 CVTRV268 EQU CVTRV262 03723000 CVTRV267 EQU CVTRV262 03724000 CVTRV266 EQU CVTRV262 03725000 CVTRV265 EQU CVTRV262 03726000 CVTRV264 EQU CVTRV262 03727000 CVTRV263 EQU CVTRV262 03728000 CVTVFP EQU CVTS01+464 03729000 CVTVSI EQU CVTS01+460 03730000 CVTVPSIB EQU CVTS01+456 03731000 CVTMFACT EQU CVTMFRTR 03732000 CVTMFCTL EQU CVTS01+448 03733000 CVTPVBP EQU CVTS01+444 03734000 CVTPWI EQU CVTS01+440 03735000 CVTRV254 EQU CVTS01+438 03736000 CVTRV253 EQU CVTS01+436 03737000 CVTRV252 EQU CVTS01+434 03738000 CVTRV251 EQU CVTS01+433 03739000 CVTRV250 EQU CVTS01+432 03740000 CVTRV249 EQU CVTS01+431 03741000 CVTRV248 EQU CVTS01+430 03742000 CVTRV247 EQU CVTS01+429 03743000 CVTRV246 EQU CVTS01+428 03744000 CVTRV245 EQU CVTRV237 03745000 CVTRV244 EQU CVTRV237 03746000 CVTRV243 EQU CVTRV237 03747000 CVTRV242 EQU CVTRV237 03748000 CVTRV241 EQU CVTRV237 03749000 CVTRV240 EQU CVTRV237 03750000 CVTRV239 EQU CVTRV237 03751000 CVTRV238 EQU CVTRV237 03752000 CVTRV236 EQU CVTRV228 03753000 CVTRV235 EQU CVTRV228 03754000 CVTRV234 EQU CVTRV228 03755000 CVTRV233 EQU CVTRV228 03756000 CVTRV232 EQU CVTRV228 03757000 CVTRV231 EQU CVTRV228 03758000 CVTRV230 EQU CVTRV228 03759000 CVTRV229 EQU CVTRV228 03760000 CVTRV227 EQU CVTRV219 03761000 CVTRV226 EQU CVTRV219 03762000 CVTRV225 EQU CVTRV219 03763000 CVTRV224 EQU CVTRV219 03764000 CVTRV223 EQU CVTRV219 03765000 CVTRV222 EQU CVTRV219 03766000 CVTRV221 EQU CVTRV219 03767000 CVTRV220 EQU CVTRV219 03768000 CVTRV218 EQU CVTRV210 03769000 CVTRV217 EQU CVTRV210 03770000 CVTRV216 EQU CVTRV210 03771000 CVTRV215 EQU CVTRV210 03772000 CVTRV214 EQU CVTRV210 03773000 CVTRV213 EQU CVTRV210 03774000 CVTRV212 EQU CVTRV210 03775000 CVTRV211 EQU CVTRV210 03776000 CVTLCCAT EQU CVTS01+420 03777000 CVTPCCAT EQU CVTS01+416 03778000 CVTIPCRP EQU CVTS01+412 03779000 CVTIPCRI EQU CVTS01+408 03780000 CVTIPCDS EQU CVTS01+404 03781000 CVTAIDVT EQU CVTS01+400 03782000 CVTSSAP EQU CVTS01+396 03783000 CVTEHCIR EQU CVTS01+392 03784000 CVTEHDEF EQU CVTS01+388 03785000 CVTDAIR EQU CVTS01+384 03786000 CVTPERFM EQU CVTS01+380 03787000 CVT044R2 EQU CVTS01+376 03788000 CVTFETCH EQU CVTS01+372 03789000 CVTRSTWD EQU CVTS01+368 03790000 CVTSPOST EQU CVTS01+364 03791000 CVTIOBP EQU CVTS01+360 03792000 CVTASMVT EQU CVTS01+356 03793000 CVTRECRQ EQU CVTS01+352 03794000 CVTWSAC EQU CVTS01+348 03795000 CVTRV149 EQU CVTS01+344 03796000 CVTWSAL EQU CVTS01+340 03797000 CVTSPSA EQU CVTS01+336 03798000 CVTGLMN EQU CVTS01+332 03799000 CVTVEAC0 EQU CVTS01+328 03800000 CVT062R1 EQU CVTS01+324 03801000 CVTRPOST EQU CVTS01+320 03802000 CVTDQIQE EQU CVTS01+316 03803000 CVTCSD EQU CVTS01+312 03804000 CVTLKRMA EQU CVTS01+308 03805000 CVTRSPIE EQU CVTS01+304 03806000 CVTRENQ EQU CVTS01+300 03807000 CVTLQCB EQU CVTS01+296 03808000 CVTFQCB EQU CVTS01+292 03809000 CVTQCS01 EQU CVTS01+288 03810000 CVTAPFT EQU CVTS01+284 03811000 CVTPARRL EQU CVTS01+280 03812000 CVTVWAIT EQU CVTS01+276 03813000 CVTGSPL EQU CVTS01+272 03814000 CVTLSMQ EQU CVTS01+268 03815000 CVTGSMQ EQU CVTS01+264 03816000 CVTEXPRO EQU CVTS01+260 03817000 CVTOPCTP EQU CVTS01+256 03818000 CVTSIC EQU CVTS01+252 03819000 CVTTPIOS EQU CVTS01+248 03820000 CVTRTMS EQU CVTS01+244 03821000 CVTSDBF EQU CVTS01+240 03822000 CVTSCBP EQU CVTS01+236 03823000 CVTSDMP EQU CVTS01+232 03824000 CVTSV60 EQU CVTS01+228 03825000 CVTRTMCT EQU CVTS01+224 03826000 CVTASCBL EQU CVTS01+220 03827000 CVTASCBH EQU CVTS01+216 03828000 CVTGDA EQU CVTS01+212 03829000 CVTVVMDI EQU CVTS01+204 03830000 CVTAQTOP EQU CVTS01+200 03831000 CVTIOSCS EQU CVTS01+196 03832000 CVTSDRM EQU CVTS01+192 03833000 CVTOPTE EQU CVTS01+188 03834000 CVTSTXU EQU CVTS01+184 03835000 CVTQUIS EQU CVTS01+180 03836000 CVTPARS EQU CVTS01+176 03837000 CVTS1EE EQU CVTS01+172 03838000 CVTFRAS EQU CVTS01+168 03839000 CVTQSAS EQU CVTS01+164 03840000 CVTCRAS EQU CVTS01+160 03841000 CVTCRMN EQU CVTS01+156 03842000 CVTDELCP EQU CVTS01+152 03843000 CVTFRECL EQU CVTS01+148 03844000 CVTGETCL EQU CVTS01+144 03845000 CVTBLDCP EQU CVTS01+140 03846000 CVTAUTHL EQU CVTS01+136 03847000 CVTSCAN EQU CVTS01+132 03848000 CVTRV144 EQU CVTS01+130 03849000 CVTMAXMP EQU CVTS01+128 03850000 CVTSTCK EQU CVTS01+124 03851000 CVTRV139 EQU CVTS01+123 03852000 CVTDSSAC EQU CVTS01+122 03853000 CVTRV513 EQU CVTS01+121 03854000 CVTIOSPL EQU CVTS01+120 03855000 CVTPTGT EQU CVTS01+116 03856000 CVTCSPIE EQU CVTS01+112 03857000 CVTSMFEX EQU CVTS01+108 03858000 CVTOLT0A EQU CVTS01+104 03859000 CVTSRBRT EQU CVTS01+100 03860000 CVTPUTL EQU CVTS01+96 03861000 CVTASCRL EQU CVTS01+92 03862000 CVTASCRF EQU CVTS01+88 03863000 CVTRV326 EQU CVTS01+84 03864000 CVTRV325 EQU CVTS01+80 03865000 CVTRV324 EQU CVTS01+76 03866000 CVT0VL01 EQU CVTS01+72 03867000 CVTSHRVM EQU CVTS01+68 03868000 CVTRV332 EQU CVTS01+64 03869000 CVTTAS EQU CVTS01+60 03870000 CVTRSCN EQU CVTS01+56 03871000 CVTTRAC2 EQU CVTS01+54 03872000 CVTTRACE EQU CVTS01+52 03873000 CVTAPG EQU CVTS01+51 03874000 CVTSDTRC EQU CVTCTLFG 03875000 CVTGTRCE EQU CVTCTLFG 03876000 CVTNOMP EQU CVTCTLFG 03877000 CVTRSV79 EQU CVTCTLFG 03878000 CVTDSTAT EQU CVTCTLFG 03879000 CVTRSV78 EQU CVTCTLFG 03880000 CVTRV333 EQU CVTCTLFG 03881000 CVTRV323 EQU CVTCTLFG 03882000 CVTSPVLK EQU CVTS01+49 03883000 CVTRSV77 EQU CVTS01+48 03884000 CVTRV331 EQU CVTS01+44 03885000 CVTRV330 EQU CVTS01+40 03886000 CVTRV329 EQU CVTS01+36 03887000 CVTRV328 EQU CVTS01+32 03888000 CVTRV322 EQU CVTS01+28 03889000 CVTSLID EQU CVTSLIDA+1 03890000 CVTSYLK EQU CVTSLIDA 03891000 CVTRV321 EQU CVTS01+20 03892000 CVTRV320 EQU CVTS01+16 03893000 CVTLPDIR EQU CVTLPDIA+1 03894000 CVTRSV69 EQU CVTDIRST 03895000 CVTRSV68 EQU CVTDIRST 03896000 CVTRSV67 EQU CVTDIRST 03897000 CVTRSV66 EQU CVTDIRST 03898000 CVTRSV65 EQU CVTDIRST 03899000 CVTRSV64 EQU CVTDIRST 03900000 CVTRSV63 EQU CVTDIRST 03901000 CVTDICOM EQU CVTDIRST 03902000 CVTPVTP EQU CVTS01+8 03903000 CVTLPDSR EQU CVTS01+4 03904000 CVTGETL EQU CVTS01 03905000 UCMIECBP EQU UCMIECBA+1 03906000 UCMIECBF EQU UCMIECBA 03907000 CHLAST EQU CHAINS01+136 03908000 CHSPA EQU CHAINS01+135 03909000 CHUSERID EQU CHCSYSO 03910000 CHJB EQU CHCSYSO 03911000 CHDUMP EQU CHCSYSO 03912000 CHQUE EQU CHCSYSO 03913000 CHHOLD EQU CHCSYSO 03914000 CHOUT EQU CHCSYSO 03915000 CHINN EQU CHCSYSO 03916000 CHALL EQU CHCSYSO 03917000 CHINC EQU CHAINS01+132 03918000 CHPEND EQU CHAINS01+128 03919000 CHARID EQU CHAINS01+127 03920000 CHCNID EQU CHAINS01+126 03921000 @NM00004 EQU CHTRSTAT 03922000 CHTSL EQU CHTRSTAT 03923000 CHTS EQU CHTRSTAT 03924000 CHINITL EQU CHTRSTAT 03925000 CHINIT EQU CHTRSTAT 03926000 CHJOBSL EQU CHTRSTAT 03927000 CHJOBS EQU CHTRSTAT 03928000 CHDEF EQU CHTYPE 03929000 CHHIAR EQU CHTYPE 03930000 CHARSV29 EQU CHTYPE 03931000 CHARSV28 EQU CHTYPE 03932000 CHARSV27 EQU CHTYPE 03933000 CHARSV26 EQU CHTYPE 03934000 CHARSV25 EQU CHTYPE 03935000 CHDSTAT EQU CHTYPE 03936000 SECAD EQU SECADR+1 03937000 ASVTEND EQU ASVT+528 03938000 ASVTAVAL EQU ASVTENTY 03939000 ASVTAVAI EQU ASVTFRST 03940000 ASVTRS00 EQU ASVT+520 03941000 ASVTASVT EQU ASVT+512 03942000 ASVTBEGN EQU ASVT+512 03943000 @NM00059 EQU ASVT 03944000 SURV104 EQU SUBITS+13 03945000 SURV103 EQU SUBYTE13 03946000 SURV102 EQU SUBYTE13 03947000 SURV101 EQU SUBYTE13 03948000 SU100BT EQU SUBYTE13 03949000 SU99BIT EQU SUBYTE13 03950000 SU98BIT EQU SUBYTE13 03951000 SU97BIT EQU SUBYTE13 03952000 SU96BIT EQU SUBYTE13 03953000 SU95BIT EQU SUBYTE12 03954000 SU94BIT EQU SUBYTE12 03955000 SU93BIT EQU SUBYTE12 03956000 SU92BIT EQU SUBYTE12 03957000 SU91BIT EQU SUBYTE12 03958000 SU90BIT EQU SUBYTE12 03959000 SU89BIT EQU SUBYTE12 03960000 SU88BIT EQU SUBYTE12 03961000 SU87BIT EQU SUBYTE11 03962000 SU86BIT EQU SUBYTE11 03963000 SU85BIT EQU SUBYTE11 03964000 SU84BIT EQU SUBYTE11 03965000 SU83BIT EQU SUBYTE11 03966000 SU82BIT EQU SUBYTE11 03967000 SU81BIT EQU SUBYTE11 03968000 SU80BIT EQU SUBYTE11 03969000 SU79BIT EQU SUBYTE10 03970000 SU78BIT EQU SUBYTE10 03971000 SU77BIT EQU SUBYTE10 03972000 SU76BIT EQU SUBYTE10 03973000 SU75BIT EQU SUBYTE10 03974000 SU74BIT EQU SUBYTE10 03975000 SU73BIT EQU SUBYTE10 03976000 SU72BIT EQU SUBYTE10 03977000 SU71BIT EQU SUBYTE9 03978000 SU70BIT EQU SUBYTE9 03979000 SU69BIT EQU SUBYTE9 03980000 SU68BIT EQU SUBYTE9 03981000 SU67BIT EQU SUBYTE9 03982000 SU66BIT EQU SUBYTE9 03983000 SU65BIT EQU SUBYTE9 03984000 SU64BIT EQU SUBYTE9 03985000 SU63BIT EQU SUBYTE8 03986000 SU62BIT EQU SUBYTE8 03987000 SU61BIT EQU SUBYTE8 03988000 SU60BIT EQU SUBYTE8 03989000 SU59BIT EQU SUBYTE8 03990000 SU58BIT EQU SUBYTE8 03991000 SU57BIT EQU SUBYTE8 03992000 SU56BIT EQU SUBYTE8 03993000 SU55BIT EQU SUBYTE7 03994000 SU54BIT EQU SUBYTE7 03995000 SU53BIT EQU SUBYTE7 03996000 SU52BIT EQU SUBYTE7 03997000 SU51BIT EQU SUBYTE7 03998000 SU50BIT EQU SUBYTE7 03999000 SU49BIT EQU SUBYTE7 04000000 SU48BIT EQU SUBYTE7 04001000 SU47BIT EQU SUBYTE6 04002000 SU46BIT EQU SUBYTE6 04003000 SU45BIT EQU SUBYTE6 04004000 SU44BIT EQU SUBYTE6 04005000 SU43BIT EQU SUBYTE6 04006000 SU42BIT EQU SUBYTE6 04007000 SU41BIT EQU SUBYTE6 04008000 SU40BIT EQU SUBYTE6 04009000 SU39BIT EQU SUBYTE5 04010000 SU38BIT EQU SUBYTE5 04011000 SU37BIT EQU SUBYTE5 04012000 SU36BIT EQU SUBYTE5 04013000 SU35BIT EQU SUBYTE5 04014000 SU34BIT EQU SUBYTE5 04015000 SU32BIT EQU SUBYTE5 04016000 SU31BIT EQU SUBYTE4 04017000 SU30BIT EQU SUBYTE4 04018000 SU29BIT EQU SUBYTE4 04019000 SU28BIT EQU SUBYTE4 04020000 SU27BIT EQU SUBYTE4 04021000 SU26BIT EQU SUBYTE4 04022000 SU25BIT EQU SUBYTE4 04023000 SU24BIT EQU SUBYTE4 04024000 SU23BIT EQU SUBYTE3 04025000 SU22BIT EQU SUBYTE3 04026000 SU21BIT EQU SUBYTE3 04027000 SU20BIT EQU SUBYTE3 04028000 SU19BIT EQU SUBYTE3 04029000 SU18BIT EQU SUBYTE3 04030000 SU17BIT EQU SUBYTE3 04031000 SU16BIT EQU SUBYTE3 04032000 SU15BIT EQU SUBYTE2 04033000 SU14BIT EQU SUBYTE2 04034000 SU13BIT EQU SUBYTE2 04035000 SU12BIT EQU SUBYTE2 04036000 SU11BIT EQU SUBYTE2 04037000 SU10BIT EQU SUBYTE2 04038000 SU9BIT EQU SUBYTE2 04039000 SU8BIT EQU SUBYTE2 04040000 SU7BIT EQU SUBYTE1 04041000 SU6BIT EQU SUBYTE1 04042000 SU5BIT EQU SUBYTE1 04043000 SU4BIT EQU SUBYTE1 04044000 SU3BIT EQU SUBYTE1 04045000 SU2BIT EQU SUBYTE1 04046000 SU1BIT EQU SUBYTE1 04047000 SU0BIT EQU SUBYTE1 04048000 SDUSYSMC EQU SDUMP+36 04049000 SDUSYSMS EQU SDUMP+32 04050000 SDUSUMLP EQU SDUMP+28 04051000 SDUCASID EQU SDUMASID 04052000 SDUDCBAD EQU SDUMP+4 04053000 @NM00058 EQU SDUSDAT2 04054000 SDUPSA EQU SDUSDAT1 04055000 @NM00057 EQU SDUFLAG1 04056000 SDUSLIP EQU SDUFLAG1 04057000 SDUSULST EQU SDUFLAG1 04058000 SDUABEND EQU SDUFLAG1 04059000 DUMPTYPE EQU SDUFLAG1 04060000 SDUBRANH EQU SDUFLAG0 04061000 SDUQUIET EQU SDUFLAG0 04062000 SDUBUF EQU SDUFLAG0 04063000 SDUDCB EQU SDUFLAG0 04064000 CVTLEVL EQU CVTRELNO+2 04065000 CVTNUMB EQU CVTRELNO 04066000 CVTMDL EQU CVTFIX+250 04067000 @NM00056 EQU CVTFIX+248 04068000 @NM00055 EQU CVTFIX 04069000 CVTRV482 EQU CVTXTNT2+128 04070000 CVTRV481 EQU CVTXTNT2+124 04071000 CVTRV480 EQU CVTXTNT2+120 04072000 CVTRV479 EQU CVTXTNT2+118 04073000 CVTRV478 EQU CVTXTNT2+117 04074000 CVTRV477 EQU CVTXTNT2+116 04075000 CVTRV476 EQU CVTXTNT2+115 04076000 CVTRV475 EQU CVTXTNT2+114 04077000 CVTRV474 EQU CVTRV466 04078000 CVTRV473 EQU CVTRV466 04079000 CVTRV472 EQU CVTRV466 04080000 CVTRV471 EQU CVTRV466 04081000 CVTRV470 EQU CVTRV466 04082000 CVTRV469 EQU CVTRV466 04083000 CVTRV468 EQU CVTRV466 04084000 CVTRV467 EQU CVTRV466 04085000 CVTRV465 EQU CVTRV457 04086000 CVTRV464 EQU CVTRV457 04087000 CVTRV463 EQU CVTRV457 04088000 CVTRV462 EQU CVTRV457 04089000 CVTRV461 EQU CVTRV457 04090000 CVTRV460 EQU CVTRV457 04091000 CVTRV459 EQU CVTRV457 04092000 CVTRV458 EQU CVTRV457 04093000 CVTRV456 EQU CVTXTNT2+108 04094000 CVTRV455 EQU CVTXTNT2+104 04095000 CVTRV454 EQU CVTXTNT2+100 04096000 CVTRV453 EQU CVTXTNT2+96 04097000 CVTRV452 EQU CVTXTNT2+94 04098000 CVTRV451 EQU CVTXTNT2+92 04099000 CVTRV450 EQU CVTXTNT2+90 04100000 CVTRV449 EQU CVTXTNT2+88 04101000 CVTRV448 EQU CVTXTNT2+87 04102000 CVTRV447 EQU CVTXTNT2+86 04103000 CVTRV446 EQU CVTRV438 04104000 CVTRV445 EQU CVTRV438 04105000 CVTRV444 EQU CVTRV438 04106000 CVTRV443 EQU CVTRV438 04107000 CVTRV442 EQU CVTRV438 04108000 CVTRV441 EQU CVTRV438 04109000 CVTRV440 EQU CVTRV438 04110000 CVTRV439 EQU CVTRV438 04111000 CVTRV437 EQU CVTRV429 04112000 CVTRV436 EQU CVTRV429 04113000 CVTRV435 EQU CVTRV429 04114000 CVTRV434 EQU CVTRV429 04115000 CVTRV433 EQU CVTRV429 04116000 CVTRV432 EQU CVTRV429 04117000 CVTRV431 EQU CVTRV429 04118000 CVTRV430 EQU CVTRV429 04119000 CVTRV428 EQU CVTXTNT2+80 04120000 CVTRV427 EQU CVTXTNT2+76 04121000 CVTRV426 EQU CVTXTNT2+72 04122000 CVTRV425 EQU CVTXTNT2+68 04123000 CVTATACT EQU CVTATCVT 04124000 CVTRV423 EQU CVTXTNT2+62 04125000 CVTRV422 EQU CVTXTNT2+60 04126000 CVTRV421 EQU CVTXTNT2+58 04127000 CVTRV420 EQU CVTXTNT2+56 04128000 CVTRV419 EQU CVTXTNT2+55 04129000 CVTRV418 EQU CVTXTNT2+54 04130000 CVTRV417 EQU CVTRV409 04131000 CVTRV416 EQU CVTRV409 04132000 CVTRV415 EQU CVTRV409 04133000 CVTRV414 EQU CVTRV409 04134000 CVTRV413 EQU CVTRV409 04135000 CVTRV412 EQU CVTRV409 04136000 CVTRV411 EQU CVTRV409 04137000 CVTRV410 EQU CVTRV409 04138000 CVTRV408 EQU CVTRV400 04139000 CVTRV407 EQU CVTRV400 04140000 CVTRV406 EQU CVTRV400 04141000 CVTRV405 EQU CVTRV400 04142000 CVTRV404 EQU CVTRV400 04143000 CVTRV403 EQU CVTRV400 04144000 CVTRV402 EQU CVTRV400 04145000 CVTRV401 EQU CVTRV400 04146000 CVTICB EQU CVTXTNT2+48 04147000 CVTSKTA EQU CVTXTNT2+44 04148000 CVTRSV99 EQU CVTXTNT2+40 04149000 CVTRSV98 EQU CVTXTNT2+36 04150000 CVTRSV97 EQU CVTXTNT2+34 04151000 CVTRSV96 EQU CVTXTNT2+32 04152000 CVTOLTEP EQU CVTXTNT2+28 04153000 CVTQIDA EQU CVTQID+1 04154000 CVTRSV95 EQU CVTQID 04155000 CVTRSV94 EQU CVTXTNT2+20 04156000 CVTRSV93 EQU CVTXTNT2+16 04157000 CVTRSV92 EQU CVTXTNT2+12 04158000 CVTDEBVR EQU CVTXTNT2+8 04159000 CVTRSV91 EQU CVTXTNT2+6 04160000 CVTRSV9H EQU CVTFLGBT 04161000 CVTRSV9G EQU CVTFLGBT 04162000 CVTRSV9F EQU CVTFLGBT 04163000 CVTRSV9E EQU CVTFLGBT 04164000 CVTRSV9D EQU CVTFLGBT 04165000 CVTBAH EQU CVTFLGBT 04166000 CVTVME EQU CVTFLGBT 04167000 CVTNPE EQU CVTFLGBT 04168000 CVTNUCLS EQU CVTXTNT2+4 04169000 CVTDSSVA EQU CVTDSSV+1 04170000 CVTRSV89 EQU CVTDSSV 04171000 CVTRSV88 EQU CVTXTNT1+8 04172000 CVTRSV87 EQU CVTXTNT1+4 04173000 CVTFACHN EQU CVTXTNT1 04174000 CVTRV488 EQU CVTMAP+412 04175000 CVTRV487 EQU CVTMAP+408 04176000 CVTRV486 EQU CVTMAP+404 04177000 CVTRV485 EQU CVTMAP+400 04178000 CVTACTAP EQU CVTMAP+396 04179000 CVTAUTH EQU CVTMAP+392 04180000 CVTRV490 EQU CVTMAP+388 04181000 CVTRSV61 EQU CVTMAP+384 04182000 CVTVOLT1 EQU CVTVOLM1+1 04183000 CVTVOLI1 EQU CVTVOLF1 04184000 CVTSTOA EQU CVTMAP+376 04185000 CVTRSV58 EQU CVTMAP+374 04186000 CVTRSV57 EQU CVTMAP+372 04187000 CVTDDCE EQU CVTMAP+368 04188000 CVTPNWFR EQU CVTMAP+364 04189000 CVTSMF EQU CVTMAP+360 04190000 CVTSULK EQU CVTMAP+358 04191000 CVTSLKO EQU CVTSYSK 04192000 CVTSLKP EQU CVTSYSK 04193000 CVTSLKQ EQU CVTSYSK 04194000 CVTSLKR EQU CVTSYSK 04195000 CVTRSV56 EQU CVTSYSK 04196000 CVTRSV55 EQU CVTSYSK 04197000 CVTRSV54 EQU CVTSYSK 04198000 CVTRSV53 EQU CVTSYSK 04199000 CVTRSV52 EQU CVTA1F1 04200000 CVTRSV51 EQU CVTA1F1 04201000 CVTRSV50 EQU CVTA1F1 04202000 CVTRSV49 EQU CVTA1F1 04203000 CVTRSV48 EQU CVTA1F1 04204000 CVTRSV47 EQU CVTA1F1 04205000 CVTSRSW EQU CVTA1F1 04206000 CVTPFSW EQU CVTA1F1 04207000 CVTPCVT EQU CVTMAP+352 04208000 CVTRSV46 EQU CVTMAP+344 04209000 CVTRSV45 EQU CVTMAP+340 04210000 CVTRSV44 EQU CVTMAP+338 04211000 CVTRSV43 EQU CVTMAP+336 04212000 CVTHJESA EQU CVTHJES+1 04213000 CVTRSV42 EQU CVTHJES 04214000 CVTEXT2A EQU CVTEXT2+1 04215000 CVTRSV41 EQU CVTEXT2 04216000 CVTAPFA EQU CVTAPF+1 04217000 CVTRSV40 EQU CVTAPF 04218000 CVTRV518 EQU CVTINTLA 04219000 CVTRV517 EQU CVTERPV 04220000 CVTEORM EQU CVTMAP+312 04221000 CVTMCHPR EQU CVTMAP+308 04222000 CVTTZ EQU CVTMAP+304 04223000 CVTJEPS EQU CVTMAP+300 04224000 CVTJESCT EQU CVTMAP+296 04225000 CVTMODE EQU CVTMAP+292 04226000 CVTPTRV EQU CVTMAP+288 04227000 CVTREAL EQU CVTMAP+284 04228000 CVTRSV39 EQU CVTMAP+280 04229000 CVTRSV38 EQU CVTMAP+276 04230000 CVTDMSRA EQU CVTDMSR+1 04231000 CVTRV634 EQU CVTDMSRF 04232000 CVTRV633 EQU CVTDMSRF 04233000 CVTRV632 EQU CVTDMSRF 04234000 CVTRV631 EQU CVTDMSRF 04235000 CVTRV630 EQU CVTDMSRF 04236000 CVTRV629 EQU CVTDMSRF 04237000 CVTUDUMP EQU CVTDMSRF 04238000 CVTSDUMP EQU CVTDMSRF 04239000 CVTQMSGA EQU CVTQMSG+1 04240000 CVTRSV36 EQU CVTQMSG 04241000 CVTAMFF EQU CVTMAP+264 04242000 CVTPURGA EQU CVTPURG+1 04243000 CVTRSV35 EQU CVTPURG 04244000 CVTCBSP EQU CVTMAP+256 04245000 CVTATERA EQU CVTATER+1 04246000 CVTSYST EQU CVTATER 04247000 CVTVOLT2 EQU CVTTAT 04248000 CVTVOLI2 EQU CVTVOLF2 04249000 CVTAQAVB EQU CVTAQAVT+1 04250000 CVTRSV34 EQU CVTTCMFG 04251000 CVTRSV33 EQU CVTTCMFG 04252000 CVTRSV32 EQU CVTTCMFG 04253000 CVTRSV31 EQU CVTTCMFG 04254000 CVTRSV30 EQU CVTTCMFG 04255000 CVTRSV29 EQU CVTTCMFG 04256000 CVTLDEV EQU CVTTCMFG 04257000 CVTTCRDY EQU CVTTCMFG 04258000 CVTGTFA EQU CVTGTF+1 04259000 CVTRSV27 EQU CVTGTFST 04260000 CVTRNIO EQU CVTGTFST 04261000 CVTUSR EQU CVTGTFST 04262000 CVTRV318 EQU CVTFORM 04263000 CVTRV317 EQU CVTTMODE 04264000 CVTRV316 EQU CVTSTATE 04265000 CVTRV315 EQU CVTGTFS 04266000 CVTGTFAV EQU CVTGTFS 04267000 CVT0SCR1 EQU CVTMAP+232 04268000 CVTRV515 EQU CVTMAP+228 04269000 CVTRMS EQU CVTMAP+224 04270000 CVTPATCH EQU CVTMAP+220 04271000 CVTTSCE EQU CVTMAP+216 04272000 CVTLNKSC EQU CVTMAP+214 04273000 CVTQABST EQU CVTMAP+212 04274000 CVTMDLDS EQU CVTMAP+208 04275000 CVTUSER EQU CVTMAP+204 04276000 CVTABEND EQU CVTMAP+200 04277000 CVTSMCA EQU CVTMAP+196 04278000 CVTRSV18 EQU CVTMAP+192 04279000 CVTQLPAQ EQU CVTMAP+188 04280000 CVTQCDSR EQU CVTMAP+184 04281000 CVTRSV17 EQU CVTOPTB 04282000 CVTVS1A EQU CVTOPTB 04283000 CVTFP EQU CVTOPTB 04284000 CVTAPTHR EQU CVTOPTB 04285000 CVTNLOG EQU CVTOPTB 04286000 CVTTOD EQU CVTOPTB 04287000 CVTCTIMS EQU CVTOPTB 04288000 CVTPROT EQU CVTOPTB 04289000 CVTXPFP EQU CVTOPTA 04290000 CVTASCII EQU CVTOPTA 04291000 CVTRSV13 EQU CVTOPTA 04292000 CVTRSV12 EQU CVTOPTA 04293000 CVTNIP EQU CVTOPTA 04294000 CVTDDR EQU CVTOPTA 04295000 CVTAPR EQU CVTOPTA 04296000 CVTCCH EQU CVTOPTA 04297000 CVTSNCTR EQU CVTMAP+180 04298000 CVTQMWR EQU CVTMAP+176 04299000 CVTQOCR EQU CVTMAP+172 04300000 CVT1EF00 EQU CVTMAP+168 04301000 CVTMZ00 EQU CVTMAP+164 04302000 CVTHEAD EQU CVTMAP+160 04303000 CVTRSV11 EQU CVTMAP+156 04304000 CVT0PT01 EQU CVTMAP+152 04305000 CVTRV516 EQU CVTIERLC 04306000 CVTILCH EQU CVTMAP+140 04307000 CVT0DS EQU CVTMAP+136 04308000 CVTFBOSV EQU CVTMAP+132 04309000 CVTNUCB EQU CVTMAP+128 04310000 CVTIXAVL EQU CVTMAP+124 04311000 CVTIOQET EQU CVTMAP+120 04312000 CVTDCBA EQU CVTMAP+117 04313000 CVTMVS2 EQU CVTDCB 04314000 CVT6DAT EQU CVTDCB 04315000 CVT4MPS EQU CVTDCB 04316000 CVTRSV09 EQU CVTDCB 04317000 CVT4MS1 EQU CVTDCB 04318000 CVT2SPS EQU CVTDCB 04319000 CVT1SSS EQU CVTDCB 04320000 CVTRSV08 EQU CVTDCB 04321000 CVTSTB EQU CVTMAP+112 04322000 CVTQTD00 EQU CVTMAP+108 04323000 CVTQTE00 EQU CVTMAP+104 04324000 CVTSJQ EQU CVTMAP+96 04325000 CVTPBLDL EQU CVTMAP+92 04326000 CVTTPC EQU CVTMAP+88 04327000 CVTSVDCB EQU CVTMAP+84 04328000 CVTBRET EQU CVTMAP+82 04329000 CVTEXIT EQU CVTMAP+80 04330000 CVT0FN00 EQU CVTMAP+76 04331000 CVTDARA EQU CVTDAR+1 04332000 CVTRSV07 EQU CVTFLGS1 04333000 CVTRSV06 EQU CVTFLGS1 04334000 CVTRSV05 EQU CVTFLGS1 04335000 CVTRSV04 EQU CVTFLGS1 04336000 CVTRSV03 EQU CVTFLGS1 04337000 CVTRSV02 EQU CVTFLGS1 04338000 CVTRSV01 EQU CVTFLGS1 04339000 CVTDMPLK EQU CVTFLGS1 04340000 CVTXITP EQU CVTMAP+68 04341000 CVTZDTAB EQU CVTMAP+64 04342000 CVTMSLT EQU CVTMAP+60 04343000 CVTDATE EQU CVTMAP+56 04344000 CVTBTERM EQU CVTMAP+52 04345000 CVTSYSAD EQU CVTMAP+48 04346000 CVTXTLER EQU CVTMAP+44 04347000 CVTILK2 EQU CVTMAP+40 04348000 CVTILK1 EQU CVTMAP+36 04349000 CVTPRLTV EQU CVTMAP+32 04350000 CVTPCNVT EQU CVTMAP+28 04351000 CVT0VL00 EQU CVTMAP+24 04352000 CVTXAPG EQU CVTMAP+20 04353000 CVTBUF EQU CVTMAP+16 04354000 CVTJOB EQU CVTMAP+12 04355000 CVTLINK EQU CVTMAP+8 04356000 CVT0EF00 EQU CVTMAP+4 04357000 CVTTCBP EQU CVTMAP 04358000 CVT EQU CVTMAP 04359000 XAARNG16 EQU XAAVRNG2 04360000 XAARNG15 EQU XAAVRNG2 04361000 XAARNG14 EQU XAAVRNG2 04362000 XAARNG13 EQU XAAVRNG2 04363000 XAARNG12 EQU XAAVRNG2 04364000 XAARNG11 EQU XAAVRNG2 04365000 XAARNG10 EQU XAAVRNG2 04366000 XAARNG9 EQU XAAVRNG2 04367000 XAARNG8 EQU XAAVRANG 04368000 XAARNG7 EQU XAAVRANG 04369000 XAARNG6 EQU XAAVRANG 04370000 XAARNG5 EQU XAAVRANG 04371000 XAARNG4 EQU XAAVRANG 04372000 XAARNG3 EQU XAAVRANG 04373000 XAARNG2 EQU XAAVRANG 04374000 XAARNG1 EQU XAAVRANG 04375000 XARTCODE EQU EEXSAS05+6 04376000 XACMDATH EQU EEXSAS05+4 04377000 XALTPTR EQU EEXSAS05+3 04378000 XACRT2 EQU XARESV 04379000 XACENDCK EQU XARESV 04380000 XARES1 EQU XASWITCH 04381000 XASMF44 EQU XASWITCH 04382000 XASMF42 EQU XASWITCH 04383000 XAHRDREQ EQU XASWITCH 04384000 XASTHDCP EQU XACOMPMS 04385000 XAINHDCP EQU XALTCHG 04386000 XAHRDCMD EQU XASWITCH 04387000 XAROUT EQU XASWITCH 04388000 XALTCON EQU XASOPCOD 04389000 XACMD EQU XASOPCOD 04390000 XALTCOM EQU XASOPCOD 04391000 XARESB EQU XASOPCOD 04392000 XAOFF EQU XASOPCOD 04393000 XAON EQU XASOPCOD 04394000 XARESA EQU XASOPCOD 04395000 XACON EQU XASOPCOD 04396000 XAXSACB EQU EEXSAS04+4 04397000 XAXUTME EQU EEXSAS04+2 04398000 XAXFREE EQU EEXSAS04+1 04399000 @NM00054 EQU XAXMASK 04400000 XAXTSL EQU XAXMASK 04401000 XAXTS EQU XAXMASK 04402000 @NM00053 EQU XAXMASK 04403000 XAXJOBSL EQU XAXMASK 04404000 XAXJOBS EQU XAXMASK 04405000 XASOPTR EQU @NM00052+1 04406000 XASTSAVE EQU @NM00052 04407000 XASPLS3 EQU EEXSAS03+3 04408000 XASSDS8 EQU XASDS 04409000 XASSDS7 EQU XASDS 04410000 XASSDS6 EQU XASDS 04411000 XASSDS5 EQU XASDS 04412000 XASSDS4 EQU XASDS 04413000 XASSDS3 EQU XASDS 04414000 XASSDS2 EQU XASDS 04415000 XASSDS1 EQU XASDS 04416000 XASDID EQU EEXSAS03+1 04417000 XASCID EQU EEXSAS03 04418000 XACAHOLD EQU EEXSAS02+2 04419000 XADRES1 EQU EEXSAS02+1 04420000 XAUBLANK EQU XADUSWIT 04421000 XAOUNIT EQU XADUSWIT 04422000 XAIOCOMP EQU XADUSWIT 04423000 XARES3 EQU XADUSWIT 04424000 XAUDVC EQU XADUSWIT 04425000 XARES2 EQU XADUSWIT 04426000 XAIPAREN EQU XADUSWIT 04427000 XAXPAREN EQU XADUSWIT 04428000 @NM00051 EQU EEXSAS01+44 04429000 XAT EQU EEXSAS01+20 04430000 XAF EQU EEXSAS01+12 04431000 XAI EQU EEXSAS01+4 04432000 XAH EQU EEXSAS01 04433000 XAWORKH EQU XAWORK+28 04434000 XAWORKG EQU XAWORK+24 04435000 XAWORKF EQU XAWORK+20 04436000 XAWORKE EQU XAWORK+16 04437000 XAWORKD EQU XAWORK+12 04438000 XAWORKC EQU XAWORK+8 04439000 XAWORKB EQU XAWORK+4 04440000 XAWORKA EQU XAWORK 04441000 XARESRZ EQU @NM00050+12 04442000 XARESRY EQU @NM00050+8 04443000 XARESRX EQU @NM00050+4 04444000 XACMFLG4 EQU XACMFLGB+1 04445000 XACMFLG3 EQU XACMFLGB 04446000 XACMF28 EQU XACMFLG2 04447000 XACMF27 EQU XACMFLG2 04448000 XACMF26 EQU XACMFLG2 04449000 XACMF25 EQU XACMFLG2 04450000 XACMF24 EQU XACMFLG2 04451000 XACMF23 EQU XACMFLG2 04452000 XACMF22 EQU XACMFLG2 04453000 XACMF21 EQU XACMFLG2 04454000 XACMF18 EQU XACMFLG1 04455000 XACMF17 EQU XACMFLG1 04456000 XACMF16 EQU XACMFLG1 04457000 XACMF15 EQU XACMFLG1 04458000 XACMF14 EQU XACMFLG1 04459000 XACMF13 EQU XACMFLG1 04460000 XACMF12 EQU XACMFLG1 04461000 XACMF11 EQU XACMFLG1 04462000 XASAVSDR EQU XASAVSTR+68 04463000 XASAVSDQ EQU XASAVSTR+64 04464000 XASAVSDP EQU XASAVSTR+60 04465000 XASAVSDO EQU XASAVSTR+56 04466000 XASAVSDN EQU XASAVSTR+52 04467000 XASAVSDM EQU XASAVSTR+48 04468000 XASAVSDL EQU XASAVSTR+44 04469000 XASAVSDK EQU XASAVSTR+40 04470000 XASAVSDJ EQU XASAVSTR+36 04471000 XASAVSDI EQU XASAVSTR+32 04472000 XASAVSDH EQU XASAVSTR+28 04473000 XASAVSDG EQU XASAVSTR+24 04474000 XASAVSDF EQU XASAVSTR+20 04475000 XASAVSDE EQU XASAVSTR+16 04476000 XASAVSDD EQU XASAVSTR+12 04477000 XASAVSDC EQU XASAVSTR+8 04478000 XASAVSDB EQU XASAVSTR+4 04479000 XASAVSDA EQU XASAVSTR 04480000 XASAVLC4 EQU XASAVLOX+12 04481000 XASAVLC3 EQU XASAVLOX+8 04482000 XASAVLC2 EQU XASAVLOX+4 04483000 XASAVLC1 EQU XASAVLOX 04484000 XAK EQU XASVRB+44 04485000 @NM00049 EQU XASVRB+41 04486000 XAL EQU @NM00048+1 04487000 XAN EQU @NM00048 04488000 XAR EQU @NM00047+1 04489000 XAP EQU XSA 04490000 MSSPARE EQU BASES01+48 04491000 MSUCBAL EQU BASES01+44 04492000 MSUCBPR EQU BASES01+40 04493000 MSBOBECB EQU BASES01+36 04494000 MSSJQ EQU BASES01+32 04495000 MSECB EQU BASES01+28 04496000 MSPBP EQU BASES01+24 04497000 MSERM EQU BASES01+22 04498000 MSPASS EQU BASES01+14 04499000 MSVRB EQU BASES01+6 04500000 MSQHR EQU MSFHF 04501000 @NM00046 EQU MSFHF 04502000 MSPSDT EQU MSFHF 04503000 MSREPLYB EQU MSFHF 04504000 MSFAX EQU MSFHF 04505000 MSTTT EQU MSFHF 04506000 MSCSD EQU MSFHF 04507000 MSNMF EQU MSFHF 04508000 MSJNF EQU MSSSA 04509000 MSYOUT EQU MSNWP 04510000 MSNRP EQU MSSSA 04511000 MSSRDR EQU MSREOF 04512000 MSWRLOG EQU MSSSA 04513000 MSNUPSW EQU MSSSA 04514000 MSWRPEN EQU MSSSA 04515000 MSSSSIPL EQU MSINLSW 04516000 MSSUM EQU MSECBFL 04517000 MSMCR EQU MSECBFL 04518000 MSYSOUT EQU MSECBFL 04519000 MSYSIN EQU MSECBFL 04520000 MSATTN EQU MSECBFL 04521000 MSWTL EQU MSECBFL 04522000 MSWTO EQU MSECBFL 04523000 MSEXT EQU MSECBFL 04524000 MSCCS EQU MSPFG 04525000 MSBSP EQU MSPFG 04526000 MSSYT EQU MSPFG 04527000 MSSYN EQU MSPFG 04528000 MSICR EQU MSPFG 04529000 MSCMC EQU MSPFG 04530000 MSPNB EQU MSPFG 04531000 MSDATE EQU MSPFG 04532000 @NM00045 EQU MSBTN 04533000 MSTN EQU MSBTN 04534000 @NM00044 EQU MSBTN 04535000 @NM00043 EQU MSBTN 04536000 MSSO EQU MSBTN 04537000 MSROLFLG EQU MSBTN 04538000 MSCANFLG EQU MSBTN 04539000 MSCONFLG EQU MSBTN 04540000 MSPNIP EQU MSNTAL 04541000 MSQNIP EQU MSNTAL 04542000 MSCURE34 EQU MSNTAL 04543000 @NM00042 EQU MSNTAL 04544000 @NM00041 EQU MSNTAL 04545000 @NM00040 EQU MSNTAL 04546000 @NM00039 EQU MSNTAL 04547000 MSNIP EQU MSNTAL 04548000 @NM00038 EQU MS1BASEX+40 04549000 @NM00037 EQU MS1BASEX+20 04550000 @NM00036 EQU MS1BASEX 04551000 @NM00035 EQU BASE+128 04552000 MSLGJSCB EQU BASE+124 04553000 @NM00034 EQU MSSTRTSW 04554000 MSSTRTP EQU MSSTRTSW 04555000 MSSTRTW EQU MSSTRTSW 04556000 @NM00033 EQU MSWTRSW 04557000 MSWTRP EQU MSWTRSW 04558000 MSWTRW EQU MSWTRSW 04559000 @NM00032 EQU MSWLOGSW 04560000 MSWLOGP EQU MSWLOGSW 04561000 MSWLOGW EQU MSWLOGSW 04562000 @NM00031 EQU MSCLOSSW 04563000 MSCLOSP EQU MSCLOSSW 04564000 MSCLOSW EQU MSCLOSSW 04565000 MSLOGLMT EQU @NM00030+1 04566000 MSLOGCLS EQU @NM00030 04567000 BAASCB EQU BASE+100 04568000 MSSMFPRM EQU BASE+96 04569000 MSCOMMND EQU BASE+92 04570000 BASP12 EQU BASE+90 04571000 BASTCNT EQU BASE+88 04572000 BASESCT EQU BASE+86 04573000 BAJNCNT EQU BASE+84 04574000 BASUBECB EQU BASE+80 04575000 BALOGCOM EQU BASE+76 04576000 BADACNT EQU BASE+74 04577000 BATACNT EQU BASE+72 04578000 BAJBNR EQU BASE+64 04579000 BASP11 EQU BASE+62 04580000 BALCCNT EQU BASE+61 04581000 BADUMPID EQU BASE+60 04582000 BABCMAX EQU BASE+58 04583000 BAMONTR2 EQU BASE+57 04584000 @NM00029 EQU BAMONITR 04585000 BAMACTVE EQU BAMONITR 04586000 @NM00028 EQU BAMONITR 04587000 @NM00027 EQU BAMONITR 04588000 @NM00026 EQU BAMONITR 04589000 @NM00025 EQU BAMONITR 04590000 BASPACE EQU BAMONITR 04591000 BADSN EQU BAMONITR 04592000 BADSO EQU BASE+52 04593000 BALOGECB EQU BASE+48 04594000 @NM00024 EQU BASPBYTE 04595000 @NM00023 EQU BASPBYTE 04596000 @NM00022 EQU BASPBYTE 04597000 @NM00021 EQU BASPBYTE 04598000 @NM00020 EQU BASPBYTE 04599000 BAMASCH EQU BASPBYTE 04600000 BATRACE EQU BASPBYTE 04601000 BAMSSTAR EQU BASPBYTE 04602000 @NM00019 EQU MSLOGST 04603000 @NM00018 EQU MSLOGST 04604000 MSLOGSTA EQU MSLOGST 04605000 MSLOGIPL EQU MSLOGST 04606000 MSLOGDAR EQU MSLOGST 04607000 MSLOGCOM EQU MSLOGST 04608000 MSLOGTHD EQU MSLOGST 04609000 MSLOGENQ EQU MSLOGST 04610000 BAMIPAR2 EQU BASE+44 04611000 BAMINPAR EQU BASE+42 04612000 BAPKES EQU BASE+40 04613000 BAICTR EQU BASE+38 04614000 @NM00017 EQU BASE+37 04615000 BADSET EQU BARSW 04616000 BANOSET EQU BARSW 04617000 BAMIDNT EQU BARSW 04618000 BAHR EQU BARSW 04619000 BAVU EQU BARSW 04620000 BAINTSET EQU BARSW 04621000 MSTODWTO EQU BARSW 04622000 BAIN EQU BARSW 04623000 BACV EQU BASE+32 04624000 @NM00016 EQU BALOG 04625000 @NM00015 EQU BALOG 04626000 @NM00014 EQU BALOG 04627000 @NM00013 EQU BALOG 04628000 @NM00012 EQU BALOG 04629000 @NM00011 EQU BALOG 04630000 @NM00010 EQU BALOG 04631000 BALOGINT EQU BALOG 04632000 MSLOGSVC EQU BALGSTAT 04633000 BAPRC EQU BASE+20 04634000 BAQ EQU BASE+16 04635000 BAIPLCC EQU @NM00008+2 04636000 @NM00009 EQU @NM00008 04637000 BAIPL EQU BASE+12 04638000 BALAD EQU BASE+8 04639000 BATRM EQU BASE+4 04640000 UCMPRSV2 EQU UCMPEXTA+20 04641000 UCMPRSV1 EQU UCMPDM1+8 04642000 UCMPNMCC EQU UCMPDM1+4 04643000 UCMPWQE EQU UCMPDM1 04644000 UCMPUCMP EQU UCMPEXTA 04645000 UCMFRSV3 EQU UCMFEXTA+20 04646000 UCMF80WQ EQU UCMFEXTA+18 04647000 UCMF60WQ EQU UCMFEXTA+16 04648000 UCMFRSV2 EQU UCMFMGFS+4 04649000 UCMFRSV1 EQU UCMFMGFS+2 04650000 UCMFFLG2 EQU UCMFMGFS+1 04651000 UCMFBR07 EQU UCMFFLG1 04652000 UCMFBR06 EQU UCMFFLG1 04653000 UCMFBR05 EQU UCMFFLG1 04654000 UCMFBR04 EQU UCMFFLG1 04655000 UCMFBR03 EQU UCMFFLG1 04656000 UCMFMSGN EQU UCMFFLG1 04657000 UCMFMSGA EQU UCMFFLG1 04658000 UCMFMSGE EQU UCMFFLG1 04659000 UCMFPPTR EQU UCMFEXTA+4 04660000 UCMFUCMF EQU UCMFEXTA 04661000 UCMRCTA EQU UCMRCT+1 04662000 UCMRSV31 EQU UCMSDS5 04663000 UCMSDS5G EQU UCMSDS5 04664000 UCMSDS5F EQU UCMSDS5 04665000 UCMRSV30 EQU UCMSDS5 04666000 UCMRSV29 EQU UCMSDS5 04667000 UCMSDS5C EQU UCMSDS5 04668000 UCMSDS5B EQU UCMSDS5 04669000 UCMSDS5A EQU UCMSDS5 04670000 UCMMLAST EQU UCMLIST+64 04671000 UCMVHRSN EQU UCMDEVC 04672000 UCMDEVG EQU UCMDEVC 04673000 UCMDEVF EQU UCMDEVC 04674000 UCMDEVE EQU UCMDEVC 04675000 UCMDEVD EQU UCMDEVC 04676000 UCMDEVCC EQU UCMDEVC 04677000 UCMDEVB EQU UCMDEVC 04678000 UCMDEVA EQU UCMDEVC 04679000 UCMXOR EQU UCMLIST+62 04680000 UCMMSG2 EQU UCMMSG+1 04681000 UCMRSV27 EQU UCMMSG1 04682000 UCMRSV26 EQU UCMMSG1 04683000 UCMMSGF EQU UCMMSG1 04684000 UCMMSGE EQU UCMMSG1 04685000 UCMMSGD EQU UCMMSG1 04686000 UCMMSGC EQU UCMMSG1 04687000 UCMMSGB EQU UCMMSG1 04688000 UCMMSGA EQU UCMMSG1 04689000 UCMCOMPC EQU UCMLIST+56 04690000 UCMWLAST EQU UCMLIST+52 04691000 UCMOAOEN EQU UCMLIST+48 04692000 UCMALTEN EQU UCMLIST+44 04693000 UCMRV007 EQU UCMDISP2 04694000 UCMRV006 EQU UCMDISP2 04695000 UCMRV005 EQU UCMDISP2 04696000 UCMRV004 EQU UCMDISP2 04697000 UCMRV003 EQU UCMDISP2 04698000 UCMDISPK EQU UCMDISP2 04699000 UCMDISPJ EQU UCMDISP2 04700000 UCMDISPI EQU UCMDISP2 04701000 UCMDISPH EQU UCMDISP1 04702000 UCMDISPG EQU UCMDISP1 04703000 UCMDISPF EQU UCMDISP1 04704000 UCMDISPE EQU UCMDISP1 04705000 UCMDISPD EQU UCMDISP1 04706000 UCMDISPC EQU UCMDISP1 04707000 UCMDISPB EQU UCMDISP1 04708000 UCMDISPA EQU UCMDISP1 04709000 UCMAUTHB EQU UCMAUTH+1 04710000 UCMRSV23 EQU UCMAUTHA 04711000 UCMRSV22 EQU UCMAUTHA 04712000 UCMRSV21 EQU UCMAUTHA 04713000 UCMRSV20 EQU UCMAUTHA 04714000 UCMRSV19 EQU UCMAUTHA 04715000 UCMAUTH3 EQU UCMAUTHA 04716000 UCMAUTH2 EQU UCMAUTHA 04717000 UCMAUTH1 EQU UCMAUTHA 04718000 UCMOUTQ EQU UCMLIST+36 04719000 UCMRSV18 EQU UCMLIST+34 04720000 UCMRTCD EQU UCMLIST+32 04721000 UCMXB EQU UCMLIST+28 04722000 @NM00007 EQU UCMXA+1 04723000 UCMRSV17 EQU UCMATR 04724000 UCMRSV16 EQU UCMATR 04725000 UCMAT04 EQU UCMATR 04726000 UCMLF EQU UCMATR 04727000 UCMUF EQU UCMATR 04728000 UCMXF EQU UCMATR 04729000 UCMIF EQU UCMATR 04730000 UCMOF EQU UCMATR 04731000 UCMTC EQU UCMSTS 04732000 UCMTD EQU UCMSTS 04733000 UCMTB EQU UCMSTS 04734000 UCMTA EQU UCMSTS 04735000 UCMCF EQU UCMSTS 04736000 UCMBF EQU UCMSTS 04737000 UCMPF EQU UCMSTS 04738000 UCMAF EQU UCMSTS 04739000 UCMNAME EQU UCMLIST+16 04740000 UCMUCB EQU UCMLIST+12 04741000 UCMDCB EQU UCMLIST+8 04742000 UCMSBR EQU UCMLIST+4 04743000 UCMECB EQU UCMLIST 04744000 UCMTPSAV EQU UCMEXIT+208 04745000 UCMXTSAV EQU UCMEXIT+136 04746000 UCMDESCD EQU UCMEXIT+132 04747000 UCMROUTC EQU UCMEXIT+128 04748000 UCMMSTXT EQU UCMEXIT 04749000 UCMDECBA EQU UCMEIL+20 04750000 UCMOECBA EQU UCMEIL+16 04751000 UCMAECBA EQU UCMEIL+12 04752000 UCMXECBA EQU UCMEIL+8 04753000 UCMNIPTR EQU UCMEIL+4 04754000 UCMRSV15 EQU UCMEIL+3 04755000 UCMRTCT EQU UCMEIL+2 04756000 UCMRPYL EQU UCMEIL+1 04757000 @NM00006 EQU UCMEIL 04758000 UCMRSV60 EQU UCM+302 04759000 UCMRSV59 EQU UCMRSV51 04760000 UCMRSV58 EQU UCMRSV51 04761000 UCMRSV57 EQU UCMRSV51 04762000 UCMRSV56 EQU UCMRSV51 04763000 UCMRSV55 EQU UCMRSV51 04764000 UCMRSV54 EQU UCMRSV51 04765000 UCMRSV53 EQU UCMRSV51 04766000 UCMRSV52 EQU UCMRSV51 04767000 UCMRSV50 EQU UCMRSV42 04768000 UCMRSV49 EQU UCMRSV42 04769000 UCMRSV48 EQU UCMRSV42 04770000 UCMRSV47 EQU UCMRSV42 04771000 UCMRSV46 EQU UCMRSV42 04772000 UCMRSV45 EQU UCMRSV42 04773000 UCMRSV44 EQU UCMRSV42 04774000 UCMRSV43 EQU UCMRSV42 04775000 UCMJES3T EQU UCM+296 04776000 UCMWAKUP EQU UCM+292 04777000 UCMFRRAD EQU UCM+288 04778000 UCMSWCH EQU UCM+284 04779000 UCMASCB EQU UCM+280 04780000 UCMWQECP EQU UCM+276 04781000 UCMORECP EQU UCM+272 04782000 UCMOECBT EQU UCM+268 04783000 UCMOECBH EQU UCM+264 04784000 UCMWECBT EQU UCM+260 04785000 UCMWECBH EQU UCM+256 04786000 UCMMBEND EQU UCM+252 04787000 UCMCTID EQU UCM+250 04788000 UCMRSV61 EQU UCM+248 04789000 UCMRP2AD EQU UCM+244 04790000 UCMCRAAD EQU UCM+240 04791000 UCMWQLM1 EQU UCM+238 04792000 UCMRV001 EQU UCM+237 04793000 UCMRQLM1 EQU UCM+236 04794000 UCMMBPTR EQU UCM+232 04795000 UCMMQNXT EQU UCM+228 04796000 UCMMQEND EQU UCM+224 04797000 UCMMQPTR EQU UCM+220 04798000 UCMTRECB EQU UCM+216 04799000 UCMMNECB EQU UCM+212 04800000 UCMMNTR EQU UCM+208 04801000 UCMR9SV EQU UCM+204 04802000 UCMSAVE4 EQU UCM+140 04803000 UCMSAVE3 EQU UCM+84 04804000 UCMVEL EQU UCMVDATA+8 04805000 UCMVEZ EQU UCMVDATA+4 04806000 UCMVEA EQU UCMVDATA 04807000 UCMINCR EQU UCM+71 04808000 UCMMODEL EQU UCM+70 04809000 UCMCORE EQU UCM+69 04810000 UCMFIX EQU UCMMODE 04811000 UCMMCS EQU UCMMODE 04812000 UCMOGCE EQU UCMMODE 04813000 UCMAMFA EQU UCMMODE 04814000 UCMRSV14 EQU UCMMODE 04815000 UCMTPUTA EQU UCMMODE 04816000 UCMNOCON EQU UCMMODE 04817000 UCMRSV11 EQU UCMMODE 04818000 UCMPXA EQU UCM+64 04819000 UCMWQEND EQU UCM+60 04820000 UCMWQNR EQU UCM+58 04821000 UCMRQNR EQU UCM+56 04822000 UCMWQECB EQU UCM+52 04823000 UCMRQECB EQU UCM+48 04824000 UCMWQLM EQU UCM+46 04825000 UCMRQLM EQU UCM+45 04826000 @NM00005 EQU UCMRPYI 04827000 UCMRPYQ EQU UCM+28 04828000 UCMWTOQ EQU UCM+24 04829000 UCMLSTP EQU UCM+20 04830000 UCMARECB EQU UCM+16 04831000 UCMLECB EQU UCMDECB 04832000 UCMOECB EQU UCM+8 04833000 UCMAECB EQU UCM+4 04834000 UCMXECB EQU UCM 04835000 UCMGMCNT EQU UCMPRFX+158 04836000 UCMSDS2 EQU UCMPRFX+157 04837000 UCMRSV09 EQU UCMSDS1 04838000 UCMRSV08 EQU UCMSDS1 04839000 UCMRSV07 EQU UCMSDS1 04840000 UCMRSV06 EQU UCMSDS1 04841000 UCMRSV05 EQU UCMSDS1 04842000 UCMRSV04 EQU UCMSDS1 04843000 UCMSDS1B EQU UCMSDS1 04844000 UCMSDS1A EQU UCMSDS1 04845000 UCMDTINT EQU UCMPRFX+152 04846000 UCMLOGAD EQU UCMPRFX+148 04847000 UCMNPECB EQU UCMPRFX+144 04848000 UCMTPPTR EQU UCMPRFX+140 04849000 UCMDOMRT EQU UCMPRFX+136 04850000 UCMRUTCK EQU UCMPRFX+132 04851000 UCMQRTN EQU UCMPRFX+128 04852000 UCM6WD EQU UCMXSA+20 04853000 UCM5WD EQU UCMXSA+16 04854000 UCM4WD EQU UCMXSA+12 04855000 UCM3WD EQU UCMXSA+8 04856000 UCM2WD EQU UCMXSA+4 04857000 UCM1WD EQU UCMXSA 04858000 UCMRSV03 EQU UCMPRFX+102 04859000 UCMHRDRT EQU UCMPRFX+100 04860000 UCMUEXIT EQU UCMPRFX+97 04861000 UCMXCT EQU UCMPRFX+96 04862000 UCMHCUCM EQU UCMPRFX+92 04863000 UCMCMID EQU UCMPRFX+88 04864000 UCMOWTOR EQU UCMPRFX+86 04865000 UCMRSV02 EQU UCMSFLG2 04866000 UCMSYSO EQU UCMSFLG2 04867000 UCMSYSN EQU UCMSFLG2 04868000 UCMSYSM EQU UCMSFLG2 04869000 UCMSYSL EQU UCMSFLG2 04870000 UCMSYSK EQU UCMSFLG2 04871000 UCMSYSJ EQU UCMSFLG2 04872000 UCMSYSI EQU UCMSFLG2 04873000 UCMRSV35 EQU UCMSFLG1 04874000 UCMSYSG EQU UCMSFLG1 04875000 UCMSYSF EQU UCMSFLG1 04876000 UCMSYSE EQU UCMSFLG1 04877000 UCMSYSD EQU UCMSFLG1 04878000 UCMSYSC EQU UCMSFLG1 04879000 UCMSYSB EQU UCMSFLG1 04880000 UCMRSV01 EQU UCMSFLG1 04881000 UCMWTOX EQU UCMPRFX+80 04882000 UCMDOME EQU UCMPRFX+76 04883000 UCMSVR0 EQU UCMSAVE0+68 04884000 UCMSVQ0 EQU UCMSAVE0+64 04885000 UCMSVP0 EQU UCMSAVE0+60 04886000 UCMSVO0 EQU UCMSAVE0+56 04887000 UCMSVN0 EQU UCMSAVE0+52 04888000 UCMSVM0 EQU UCMSAVE0+48 04889000 UCMSVL0 EQU UCMSAVE0+44 04890000 UCMSVK0 EQU UCMSAVE0+40 04891000 UCMSVJ0 EQU UCMSAVE0+36 04892000 UCMSVI0 EQU UCMSAVE0+32 04893000 UCMSVH0 EQU UCMSAVE0+28 04894000 UCMSVG0 EQU UCMSAVE0+24 04895000 UCMSVF0 EQU UCMSAVE0+20 04896000 UCMSVE0 EQU UCMSAVE0+16 04897000 UCMSVD0 EQU UCMSAVE0+12 04898000 UCMSVC0 EQU UCMSAVE0+8 04899000 UCMSVB0 EQU UCMSAVE0+4 04900000 UCMSVA0 EQU UCMSAVE0 04901000 UCM2FEXT EQU UCM2EXT+12 04902000 UCM2STAA EQU UCM2STA+1 04903000 UCMRV008 EQU UCM2SFLG 04904000 UCMRSV34 EQU UCM2SFLG 04905000 UCMRSV33 EQU UCM2SFLG 04906000 UCM2WTOI EQU UCM2SFLG 04907000 UCM2DSTR EQU UCM2SFLG 04908000 UCM2DTAK EQU UCM2SFLG 04909000 UCM2SENT EQU UCM2SFLG 04910000 UCM2SDWA EQU UCM2SFLG 04911000 UCM2PST EQU UCM2EXT+4 04912000 UCM2RID EQU UCM2EXT+2 04913000 UCM2WID EQU UCM2EXT 04914000 CHARSV16 EQU CHSHORT+100 04915000 CHARSV15 EQU CHSHORT+96 04916000 CHJSCBVS EQU CHSHORT+92 04917000 CHUSCVS EQU CHSHORT+88 04918000 @NM00003 EQU CHSHORT+84 04919000 @NM00002 EQU CHSHORT+80 04920000 CHSQA EQU CHSHORT+44 04921000 CHQPA EQU CHSHORT+8 04922000 CHJCL EQU CHSHORT+4 04923000 CHSPC EQU CHSHORT 04924000 CHSPB EQU CHSTEP+4 04925000 CHTCB EQU CHSTEP+1 04926000 CHARSV23 EQU CHSWT 04927000 CHARSV22 EQU CHSWT 04928000 CHARSV21 EQU CHSWT 04929000 CHAC EQU CHSWT 04930000 CHPSF EQU CHSWT 04931000 CHPSD EQU CHSWT 04932000 CHJCT EQU CHSWT 04933000 CHARSV20 EQU CHSWT 04934000 CHCECB EQU CHASM+20 04935000 CHECB EQU CHASM+16 04936000 CHRGNAD EQU CHASM+12 04937000 CHARSV18 EQU CHRGNSZ+1 04938000 CHRPRTY EQU CHRGNSZ 04939000 @NM00001 EQU CHCIBP 04940000 CHEND EQU CHCIBP 04941000 CHECBP EQU CHASM 04942000 CHDER EQU CHPROCSN+4 04943000 CHARSV10 EQU CHACT1 04944000 CHARSV09 EQU CHACT1 04945000 CHARSV08 EQU CHACT1 04946000 CHARSV07 EQU CHACT1 04947000 CHARSV06 EQU CHACT1 04948000 CHARSV05 EQU CHACT1 04949000 CHMODIFY EQU CHACT1 04950000 CHRDWTR EQU CHACT1 04951000 CHARSV30 EQU CHPROCSN+2 04952000 CHQID EQU CHPROCSN 04953000 CHTRKID EQU CHPKE 04954000 CHCIBCTR EQU CHAIN+27 04955000 CHUNIT EQU CHAIN+24 04956000 CHPCOI EQU CHPARM 04957000 CHAFORCE EQU CHIFY 04958000 CHAIFX EQU CHACT 04959000 CHCLD EQU CHACT 04960000 CHCL EQU CHACT 04961000 CHDSI EQU CHACT 04962000 CHDISC EQU CHACT 04963000 CHTERM EQU CHACT 04964000 CHSWAP EQU CHACT 04965000 CHABTERM EQU CHSTS 04966000 CHDL EQU CHSTS 04967000 CHAD EQU CHSTS 04968000 CHQSPC EQU CHSTS 04969000 CHSOUT EQU CHSTS 04970000 CHSYS EQU CHSTS 04971000 CHAP EQU CHSTS 04972000 CHSZE EQU CHFLG+1 04973000 CHVCD EQU CHFLG 04974000 .@UNREFD ANOP END UNREFERENCED COMPONENTS 04975000 @RF00197 EQU @RC00186 04976000 @RF00200 EQU @RC00186 04977000 @RF00208 EQU @RC00182 04978000 @RC00260 EQU @RC00258 04979000 @RC00336 EQU @RC00318 04980000 @RC00339 EQU @RC00318 04981000 @RC00361 EQU @RC00359 04982000 @RC00374 EQU @RC00372 04983000 @RC00380 EQU @RC00378 04984000 @RC00386 EQU @RC00384 04985000 @RC00400 EQU @RC00398 04986000 @RC00461 EQU @RC00459 04987000 @RC00642 EQU @RC00602 04988000 @RC00664 EQU @RC00661 04989000 @RC00689 EQU @RC00684 04990000 @RC00812 EQU @RC00762 04991000 @RC00806 EQU @RC00762 04992000 @RC00800 EQU @RC00762 04993000 @RC00794 EQU @RC00762 04994000 @RC00788 EQU @RC00762 04995000 @RC00782 EQU @RC00762 04996000 @RC00776 EQU @RC00762 04997000 @RC00770 EQU @RC00762 04998000 @RC00764 EQU @RC00762 04999000 @RC00825 EQU @RC00823 05000000 @RC00850 EQU @RC00836 05001000 @RC00844 EQU @RC00836 05002000 @RC00838 EQU @RC00836 05003000 @RC00957 EQU @RC00955 05004000 @RC01007 EQU @RC01005 05005000 @RC00666 EQU @RC00664 05006000 @RC00691 EQU @RC00689 05007000 @RC00766 EQU @RC00764 05008000 @RC00772 EQU @RC00770 05009000 @RC00778 EQU @RC00776 05010000 @RC00784 EQU @RC00782 05011000 @RC00790 EQU @RC00788 05012000 @RC00796 EQU @RC00794 05013000 @RC00802 EQU @RC00800 05014000 @RC00808 EQU @RC00806 05015000 @RC00814 EQU @RC00812 05016000 @RC00827 EQU @RC00825 05017000 @RC00840 EQU @RC00838 05018000 @RC00846 EQU @RC00844 05019000 @RC00852 EQU @RC00850 05020000 @RC00693 EQU @RC00691 05021000 @ENDDATA EQU * 05022000 END IEECB866,(C'PLS1748',0701,77003) 05023000