TITLE '*************** IDCSA09: SYSTEM ADAPTOR USSC MODULE ***00001000 *********' 00002000 MACRO 00003000 GETMAIN &R,&LV= 00004000 L REG15,0(REG1) GDTTBL ADDRESS 00005000 L REG15,GDTPRL(REG15) PROL ROUTINE ADDRESS 00006000 CNOP 2,4 BOUNDARY ALIGNMENT 00007000 LA REG14,*+14 RETURN ADDRESS 00008000 BALR REG1,REG15 LINKAGE TO PROL ROUTINE 00009000 DC A(MODID) MODULE ID ADDRESS 00010000 DC A(@SIZDATD) AUTOMATIC STORAGE SIZE ADDRESS 00011000 MEND 00012000 IDCSA09 CSECT , 0002 00013000 @MAINENT DS 0H 0002 00014000 USING *,@15 0002 00015000 B @PROLOG 0002 00016000 DC AL2(@EP00002-@MAINENT) 00017000 DC AL1(16) 0002 00018000 DC C'IDCSA09 76.348' 0002 00019000 IDCSASS DS 0H 0002 00020000 USING *,@15 0002 00021000 B @PROLOG 0002 00022000 DC AL2(@EP00238-IDCSASS) 00023000 ENTRY IDCSASS 00024000 DROP @15 00025000 @PROLOG STM @14,@12,12(@13) 0002 00026000 BALR @12,0 0002 00027000 @PSTART DS 0H 0002 00028000 USING @PSTART,@12 0002 00029000 L @00,@SIZDATD 0002 00030000 GETMAIN R,LV=(0) 00031000 LR @11,@01 0002 00032000 USING @DATD,@11 0002 00033000 ST @13,@SA00001+4 0002 00034000 LM @15,@01,16(@13) 0002 00035000 ST @11,8(,@13) 0002 00036000 LR @13,@11 0002 00037000 AH @15,4(,@15) 0002 00038000 BR @15 0002 00039000 @EP00002 DS 0H 0003 00040000 * @XM06072*/ 00041000 * 0238 00042000 * /*****************************************************************/ 00043000 * /* */ 00044000 * /* ENTRY POINT THROUGH WHICH USSC IS INVOKED #Y30LB30*/ 00045000 * /* */ 00046000 * /*****************************************************************/ 00047000 * 0238 00048000 *IDCSASS: 0238 00049000 * ENTRY(GDTTBL, /* GLOBAL DATA TABLE @Y30LB30*/ 00050000 * SSCTYPE, /* REQUEST KEYWORD @Y30LB30*/ 00051000 * SSCARGPT, /* PTR TO MACRO ARG LIST @Y30LB30*/ 00052000 * SSCRCODE, /* REASON CODE AREA @Y30LB30*/ 00053000 * SSCECODE, /* ECB CODE AREA @Y30LB30*/ 00054000 * SSCMSGPT); /* PTR FOR RETURN OF ECB @Y30LB30 00055000 * AND MESSAGE AREA @Y30LB30*/ 00056000 B @EC00238 0238 00057000 @EP00238 MVC @PC00001(24),0(@01) 0238 00058000 @EC00238 DS 0H 0239 00059000 * 0239 00060000 * /*****************************************************************/ 00061000 * /* */ 00062000 * /* DECLARATIONS FOR IDCSA09 MODULE @Y30LB30*/ 00063000 * /* */ 00064000 * /*****************************************************************/ 00065000 * 0239 00066000 * DCL 0239 00067000 * MODID CHAR(4) INIT('SA09'); /* MODULE IDENTIFIER @Y30LB30*/ 00068000 * 0239 00069000 * /*****************************************************************/ 00070000 * /* */ 00071000 * /* INPUT PARAMETERS @Y30LB30*/ 00072000 * /* */ 00073000 * /*****************************************************************/ 00074000 * 0240 00075000 * DCL 0240 00076000 * SSCTYPE CHAR(8), /* MACRO TYPE KEYWORD @Y30LB30*/ 00077000 * SSCARGPT PTR(31), /* PTR TO MACRO ARG LIST @Y30LB30*/ 00078000 * SSCRCODE FIXED(31), /* REASON CODE RETURNED @Y30LB30*/ 00079000 * SSCECODE CHAR(1), /* ECB CODE RETURNED @Y30LB30*/ 00080000 * SSCMSGPT PTR(31); /* PTR TO ECB AND MSG @Y30LB30 00081000 * AREA RETURNED BY USSC @Y30LB30*/ 00082000 * 0241 00083000 * /*****************************************************************/ 00084000 * /* */ 00085000 * /* FORMAT OF THE MACRO NAME TABLE. THIS TABLE IS THE @Y30LB30*/ 00086000 * /* MAJOR TABLE USED BY THIS MODULE. IT CONTAINS THE @Y30LB30*/ 00087000 * /* KEYWORDS FOR THE MSSC MACROS THAT ARE SUPPORTED, @Y30LB30*/ 00088000 * /* WHETHER AN ECB IS REQUIRED FOR THE MACRO, AND THE @Y30LB30*/ 00089000 * /* NUMBER OF BYTES IN THE ECB AND MESSAGE AREA FOR THAT @Y30LB30*/ 00090000 * /* MACRO. @Y30LB30*/ 00091000 * /* */ 00092000 * /*****************************************************************/ 00093000 * 0241 00094000 * DCL 0241 00095000 * 1 MACNMTAB DEFINED(NAMETAB), /* MACRO NAME TABLE @Y30LB30*/ 00096000 * 2 MACNMNUM FIXED(8), /* NUMBER OF MACROS @Y30LB30*/ 00097000 * 2 *(*), /* @Y30LB30*/ 00098000 * 3 MACNAME CHAR(8), /* MACRO KEYWORD @Y30LB30*/ 00099000 * 3 * BIT(8), /* @Y30LB30*/ 00100000 * 4 MACTYPE BIT(1), /* 0 - ECB NOT REQUIRED @Y30LB30 00101000 * 1 - ECB IS REQUIRED @Y30LB30*/ 00102000 * 3 MACLEN FIXED(8); /* LENGTH OF ECB AND MSG @Y30LB30*/ 00103000 * 0241 00104000 * /*****************************************************************/ 00105000 * /* */ 00106000 * /* MACRO NAME TABLE INITIALIZED WITH THE ACCEPTABLE @Y30LB30*/ 00107000 * /* MACRO KEYWORDS AND MACRO DESCRIPTIONS @Y30LB30*/ 00108000 * /* */ 00109000 * /*****************************************************************/ 00110000 * 0242 00111000 * DCL 0242 00112000 * 1 NAMETAB STATIC, /* @Y30LB30*/ 00113000 * 2 NAMENUM FIXED(8) INIT(20), /* 20 MACROS SUPPORTED @ZA14727*/ 00114000 * 2 *, /* ACQUIRE MACRO @Y30LB30*/ 00115000 * 3 NAME1 CHAR(8) INIT('ACQUIRE '),/* KEYWORD @Y30LB30*/ 00116000 * 3 * BIT(8), /* @Y30LB30*/ 00117000 * 4 TYPE1 BIT(1) INIT('0'B), /* ECB NOT REQUIRED @Y30LB30*/ 00118000 * 3 LEN1 FIXED(8) INIT(4), /* 4 BYTES FOR ECB @Y30LB30*/ 00119000 * 2 *, /* MOUNT MACRO @Y30LB30*/ 00120000 * 3 NAME2 CHAR(8) INIT('MOUNT '),/* KEYWORD @Y30LB30*/ 00121000 * 3 * BIT(8), /* @Y30LB30*/ 00122000 * 4 TYPE2 BIT(1) INIT('0'B), /* ECB NOT REQUIRED @Y30LB30*/ 00123000 * 3 LEN2 FIXED(8) INIT(0), /* 0 BYTES REQUIRED @Y30LB30*/ 00124000 * 2 *, /* DEMOUNT MACRO @Y30LB30*/ 00125000 * 3 NAME3 CHAR(8) INIT('DEMOUNT '),/* KEYWORD @Y30LB30*/ 00126000 * 3 * BIT(8), /* @Y30LB30*/ 00127000 * 4 TYPE3 BIT(1) INIT('0'B), /* ECB NOT REQUIRED @Y30LB30*/ 00128000 * 3 LEN3 FIXED(8) INIT(4), /* 4 BYTES FOR ECB @Y30LB30*/ 00129000 * 2 *, /* DEFINE MACRO @Y30LB30*/ 00130000 * 3 NAME4 CHAR(8) INIT('DEFINE '),/* KEYWORD @Y30LB30*/ 00131000 * 3 * BIT(8), /* @Y30LB30*/ 00132000 * 4 TYPE4 BIT(1) INIT('1'B), /* ECB IS REQUIRED @Y30LB30*/ 00133000 * 3 LEN4 FIXED(8) INIT(56), /* 56 BYTES REQUIRED @YD00160*/ 00134000 * 2 *, /* MOVE CARTRIDGE MACRO @Y30LB30*/ 00135000 * 3 NAME5 CHAR(8) INIT('MOVE '),/* KEYWORD @Y30LB30*/ 00136000 * 3 * BIT(8), /* @Y30LB30*/ 00137000 * 4 TYPE5 BIT(1) INIT('1'B), /* ECB IS REQUIRED @Y30LB30*/ 00138000 * 3 LEN5 FIXED(8) INIT(56), /* 56 BYTES REQUIRED @YD00160*/ 00139000 * 2 *, /* TRACE MACRO @Y30LB30*/ 00140000 * 3 NAME6 CHAR(8) INIT('TRACEQ '),/* KEYWORD @Y30LB30*/ 00141000 * 3 * BIT(8), /* @Y30LB30*/ 00142000 * 4 TYPE6 BIT(1) INIT('0'B), /* ECB NOT REQUIRED @Y30LB30*/ 00143000 * 3 LEN6 FIXED(8) INIT(0), /* 0 BYTES REQUIRED @Y30LB30*/ 00144000 * 2 *, /* COPY TABLES MACRO @Y30LB30*/ 00145000 * 3 NAME7 CHAR(8) INIT('COPYTABL'),/* KEYWORD @Y30LB30*/ 00146000 * 3 * BIT(8), /* @Y30LB30*/ 00147000 * 4 TYPE7 BIT(1) INIT('1'B), /* ECB IS REQUIRED @Y30LB30*/ 00148000 * 3 LEN7 FIXED(8) INIT(60), /* 60 BYTES REQUIRED @YD00160*/ 00149000 * 2 *, /* COPY CARTRIDGE MACRO @Y30LB30*/ 00150000 * 3 NAME8 CHAR(8) INIT('COPYCRTG'),/* KEYWORD @Y30LB30*/ 00151000 * 3 * BIT(8), /* @Y30LB30*/ 00152000 * 4 TYPE8 BIT(1) INIT('1'B), /* ECB IS REQUIRED @Y30LB30*/ 00153000 * 3 LEN8 FIXED(8) INIT(54), /* 54 BYTES REQUIRED @Y30LB30*/ 00154000 * 2 *, /* COPY VOLUME MACRO @Y30LB30*/ 00155000 * 3 NAME9 CHAR(8) INIT('COPYVOL '),/* KEYWORD @Y30LB30*/ 00156000 * 3 * BIT(8), /* @Y30LB30*/ 00157000 * 4 TYPE9 BIT(1) INIT('1'B), /* ECB IS REQUIRED @Y30LB30*/ 00158000 * 3 LEN9 FIXED(8) INIT(4), /* 4 BYTES FOR ECB @Y30LB30*/ 00159000 * 2 *, /* VVIC MACRO @Y30LB30*/ 00160000 * 3 NAME10 CHAR(8) INIT('VVIC '),/* KEYWORD @Y30LB30*/ 00161000 * 3 * BIT(8), /* @Y30LB30*/ 00162000 * 4 TYPE10 BIT(1) INIT('0'B),/* ECB NOT REQUIRED @Y30LB30*/ 00163000 * 3 LEN10 FIXED(8) INIT(0), /* 0 BYTES FOR ECB @Y30LB30*/ 00164000 * 2 *, /* TUNE MACRO @Y30LB30*/ 00165000 * 3 NAME11 CHAR(8) INIT('TUNE '),/* KEYWORD @Y30LB30*/ 00166000 * 3 * BIT(8), /* @Y30LB30*/ 00167000 * 4 TYPE11 BIT(1) INIT('0'B),/* ECB NOT REQUIRED @Y30LB30*/ 00168000 * 3 LEN11 FIXED(8) INIT(24), /* 24 BYTES FOR ECB @Z40LB63*/ 00169000 * 2 *, /* NULL CARTRIDGE MACRO @Z40LB63*/ 00170000 * 3 NAME12 CHAR(8) INIT('NULLIFYC'),/* KEYWORD @Z40LB63*/ 00171000 * 3 * BIT(8), /* @Z40LB63*/ 00172000 * 4 TYPE12 BIT(1) INIT('1'B),/* ECB IS REQUIRED @Z40LB63*/ 00173000 * 3 LEN12 FIXED(8) INIT(44), /* 44 BYTES FOR ECB @Z40LB63*/ 00174000 * 2 *, /* QUERY MACRO -READ MSC @Z40LB63*/ 00175000 * 3 NAME13 CHAR(8) INIT('RDMSC '),/* KEYWORD @Z40LB63*/ 00176000 * 3 * BIT(8), /* @Z40LB63*/ 00177000 * 4 TYPE13 BIT(1) INIT('0'B),/* ECB NOT REQUIRED @Z40LB63*/ 00178000 * 3 LEN13 FIXED(8) INIT(0), /* 0 BYTES FOR ECB @Z40LB63*/ 00179000 * 2 *, /* QUERY MACRO -READ MSC @Z40LB63 00180000 * TABLES @Z40LB63*/ 00181000 * 3 NAME14 CHAR(8) INIT('RDMSCTBL'),/* KEYWORD @Z40LB63*/ 00182000 * 3 * BIT(8), /* @Z40LB63*/ 00183000 * 4 TYPE14 BIT(1) INIT('0'B),/* ECB NOT REQUIRED @Z40LB63*/ 00184000 * 3 LEN14 FIXED(8) INIT(0), /* 0 BYTES FOR ECB @Z40LB63*/ 00185000 * 2 *, /* QUERY MACRO -READ SA @Z40LB63*/ 00186000 * 3 NAME15 CHAR(8) INIT('RDSTGAD '),/* KEYWORD @Z40LB63*/ 00187000 * 3 * BIT(8), /* @Z40LB63*/ 00188000 * 4 TYPE15 BIT(1) INIT('0'B),/* ECB NOT REQUIRED @Z40LB63*/ 00189000 * 3 LEN15 FIXED(8) INIT(0), /* 0 BYTES FOR ECB @Z40LB63*/ 00190000 * 2 *, /* QUERY MACRO-READ LABEL 0242 00191000 * @Z40LB63*/ 00192000 * 3 NAME16 CHAR(8) INIT('RDCARTLB'),/* KEYWORD @Z40LB63*/ 00193000 * 3 * BIT(8), /* @Z40LB63*/ 00194000 * 4 TYPE16 BIT(1) INIT('0'B),/* ECB NOT REQUIRED @Z40LB63*/ 00195000 * 3 LEN16 FIXED(8) INIT(0), /* 0 BYTES FOR ECB @Z40LB63*/ 00196000 * 2 *, /* QUERY MACRO-CELL AUDIT 0242 00197000 * @Z40LB63*/ 00198000 * 3 NAME17 CHAR(8) INIT('AUDITCEL'),/* KEYWORD @Z40LB63*/ 00199000 * 3 * BIT(8), /* @Z40LB63*/ 00200000 * 4 TYPE17 BIT(1) INIT('0'B),/* ECB NOT REQUIRED @Z40LB63*/ 00201000 * 3 LEN17 FIXED(8) INIT(0), /* 0 BYTES FOR ECB @Z40LB63*/ 00202000 * 2 *, /* COPY TABLES MACRO @Z40LB63 00203000 * FOR INTERNAL TABLE RESTORE 0242 00204000 * @Z40LB63*/ 00205000 * 3 NAME18 CHAR(8) INIT('TBLREST '),/* KEYWORD @Z40LB63*/ 00206000 * 3 * BIT(8), /* @Z40LB63*/ 00207000 * 4 TYPE18 BIT(1) INIT('0'B),/* ECB IS NOT REQUIRED @Z40LB63*/ 00208000 * 3 LEN18 FIXED(8) INIT(0), /* 60 BYTES REQUIRED @ZA14727*/ 00209000 * 2 *, /* RELINQUISH MACRO @ZA14727*/ 00210000 * 3 NAME19 CHAR(8) INIT('RELINQ '),/* KEYWORD @ZA14727*/ 00211000 * 3 * BIT(8), /* @ZA14727*/ 00212000 * 4 TYPE19 BIT(1) INIT('0'B),/* ECB NOT REQUIRED @ZA14727*/ 00213000 * 3 LEN19 FIXED(8) INIT(4), /* 4 BYTES FOR ECB @ZA14727*/ 00214000 * 2 *, /* MODIFY CARTRIDGE @G24LB40*/ 00215000 * 3 NAME20 CHAR(8) INIT('MODIFYC'),/* KEYWORD @Z40LB63*/ 00216000 * 3 * BIT(8), /* @Z40LB63*/ 00217000 * 4 TYPE20 BIT(1) INIT('0'B),/* ECB NOT REQUIRED @Z40LB63*/ 00218000 * 3 LEN20 FIXED(8) INIT(0); /* 0 BYTES FOR ECB @Z40LB63*/ 00219000 * 0243 00220000 * /*****************************************************************/ 00221000 * /* */ 00222000 * /* NAME FOR THE MACRO ARGUMENT LIST REQUIRED FOR THE #Y30LB30*/ 00223000 * /* EXECUTE FORM OF THE MSSC MACROS. THE ARGUMENT LIST IS #Y30LB30*/ 00224000 * /* BASED ON THE POINTER SUPPLIED BY THE CALLER #Y30LB30*/ 00225000 * /* */ 00226000 * /*****************************************************************/ 00227000 * 0243 00228000 * DCL 0243 00229000 * 1 MACLIST BASED(SSCARGPT), /* #Y30LB30*/ 00230000 * 2 MACLNG FIXED(31); /* #Y30LB30*/ 00231000 * 0243 00232000 * /*****************************************************************/ 00233000 * /* */ 00234000 * /* STORAGE AREAS FOR ARGUMENT LISTS #Y30LB30*/ 00235000 * /* */ 00236000 * /*****************************************************************/ 00237000 * 0244 00238000 * DCL 0244 00239000 * PRINTTAB CHAR(LENGTH(DARGLIST));/* DARGLIST AREA #Y30LB30*/ 00240000 * DCL 0245 00241000 * DUMPLIST CHAR(LENGTH(DMPITM)*4+1) BDY(WORD);/* #Y30LB30*/ 00242000 * 0245 00243000 * /*****************************************************************/ 00244000 * /* */ 00245000 * /* AREA FOR DUMP LIST #Y30LB30*/ 00246000 * /* MISCELLANEOUS DECLARES #Y30LB30*/ 00247000 * /* */ 00248000 * /*****************************************************************/ 00249000 * 0246 00250000 * DCL 0246 00251000 * 1 REG0SAVE FIXED(31), /* SAVE OF REGISTER 0 @YD00160*/ 00252000 * 2 ERRFGSAV BIT(1); /* ERROR INDICATOR @YD00160*/ 00253000 * DCL 0247 00254000 * INDEX FIXED(15); /* INDEX TO THE MACRO IN #Y30LB30 00255000 * NAME TABLE TO ISSUE @Y30LB30*/ 00256000 * DCL 0248 00257000 * STORSIZE FIXED(31); /* SIZE FOR UGSPACE @Y30LB30*/ 00258000 * DCL 0249 00259000 * ECBPTR PTR(31); /* ADDR OF ECB AND MSG @Y30LB30 00260000 * AREA IF OBTAINED. 0 - @Y30LB30 00261000 * NO STORAGE AREA HAS @Y30LB30 00262000 * BEEN OBTAINED. @Y30LB30*/ 00263000 * 0249 00264000 * /*****************************************************************/ 00265000 * /* */ 00266000 * /* DECLARATION ALLOWING MODULE IDCSA01 ACCESS TO @Y30LB30*/ 00267000 * /* THIS MODULE'S AUTOMATIC STORAGE SIZE VALUE. @Y30LB30*/ 00268000 * /* */ 00269000 * /*****************************************************************/ 00270000 * 0250 00271000 * GENERATE DATA; 0250 00272000 * 0251 00273000 * /*****************************************************************/ 00274000 * /* */ 00275000 * /* CONSTANTS @Y30LB30*/ 00276000 * /* */ 00277000 * /*****************************************************************/ 00278000 * 0251 00279000 * DCL 0251 00280000 * ECBREQ BIT(1) CONSTANT('1'B); /* BIT SETTING IN NAME @Y30LB30 00281000 * TABLE @Y30LB30*/ 00282000 * DCL 0252 00283000 * ECBNREQ BIT(1) CONSTANT('0'B);/* BIT SETTING IN NAME @Y30LB30 00284000 * TABLE @Y30LB30*/ 00285000 * DCL 0253 00286000 * POOLID FIXED(8) CONSTANT(241);/* POOL ID FOR ECB @Y30LB30 00287000 * AND MESSAGE AREA @Y30LB30*/ 00288000 * DCL 0254 00289000 * ARGERR FIXED(31) CONSTANT(40);/* UABORT CODE FOR @Y30LB30 00290000 * INVALID ARG LIST @Y30LB30*/ 00291000 * DCL 0255 00292000 * RCABORT FIXED(15) CONSTANT(16);/* INTERNAL RETURN CODE @Y30LB30 00293000 * FOR ABORT SITUATION @Y30LB30*/ 00294000 * DCL 0256 00295000 * UNIVMOD CHAR(3) CONSTANT('UV0');/* MODULE ID FOR @Y30LB30 00296000 * UNIVERSAL MESSAGES @Y30LB30*/ 00297000 * DCL 0257 00298000 * COMMOD CHAR(3) CONSTANT('CM0');/* MODULE ID FOR @YD00160 00299000 * COMMON MESSAGES @YD00160*/ 00300000 * DCL 0258 00301000 * MSGNOCOR PTR(8) CONSTANT(12); /* MESSAGE NUMBER @Y30LB30 00302000 * INSUFFICIENT STORAGE @Y30LB30*/ 00303000 * 0258 00304000 * /*****************************************************************/ 00305000 * /* */ 00306000 * /* IDC1069I FUNCTION PERFORMED - INVENTORY @YD00160*/ 00307000 * /* NOT UPDATED, CODE = X'NNNN' @YD00160*/ 00308000 * /* */ 00309000 * /*****************************************************************/ 00310000 * 0259 00311000 * DCL 0259 00312000 * MSG1069I PTR(8) CONSTANT(57); /* MESSAGE NUMBER @YD00160 00313000 * MSVI ERROR @YD00160*/ 00314000 * 0260 00315000 * /*****************************************************************/ 00316000 * /* */ 00317000 * /* PATCH AREA FOR MAINTENANCE #Y30LB30*/ 00318000 * /* */ 00319000 * /*****************************************************************/ 00320000 * 0260 00321000 * DCL 0260 00322000 * 1 FIXAREA CHAR(150) STATIC, /* #Y30LB30*/ 00323000 * 2 *(150) CHAR(1) INIT((150)'00'X);/* @Y30LB30*/ 00324000 * 0261 00325000 * /*****************************************************************/ 00326000 * /* */ 00327000 * /* ULISTLN MACRO INCLUDED CODE LISTLN - TO CONTAIN THE NUMBER OF */ 00328000 * /* ARGUMENTS PASSED TO THIS ROUTINE LISTPTR - TO CONTAIN THE */ 00329000 * /* ADDRESS OF THE CORRESPONDING ADDRESS LIST */ 00330000 * /* */ 00331000 * /*****************************************************************/ 00332000 * 0261 00333000 * GEN; 0261 00334000 ST 1,LISTPTR 00335000 ST 1,LISTSCAN 00336000 * DO LISTLN=1 TO 255 WHILE(LISTTEST='0'B); 0262 00337000 LA LISTLN,1 0262 00338000 @DL00262 L @10,LISTSCAN 0262 00339000 TM LISTTEST(@10),B'10000000' 0262 00340000 BNZ @DC00262 0262 00341000 * LISTSCAN=LISTSCAN+4; 0263 00342000 AL @10,@CF00034 0263 00343000 ST @10,LISTSCAN 0263 00344000 * END; 0264 00345000 * 0264 00346000 AL LISTLN,@CF00213 0264 00347000 C LISTLN,@CF01569 0264 00348000 BNH @DL00262 0264 00349000 @DC00262 DS 0H 0265 00350000 * /*****************************************************************/ 00351000 * /* */ 00352000 * /* THIS SECTION CALLS A LOWER PROCEDURE TO SEE IF THE @Y30LB30*/ 00353000 * /* ARGUMENT LIST PASSED BY THE CALLER IS VALID. @Y30LB30*/ 00354000 * /* THEN THIS SECTION OBTAINS SPACE FOR AN ECB AND MSG @Y30LB30*/ 00355000 * /* IF NECESSARY, AND CALLS A LOWER PROCEDURE @Y30LB30*/ 00356000 * /* TO ISSUE THE EXECUTE FORM OF THE @Y30LB30*/ 00357000 * /* APPROPRIATE MSSC MACRO. IT THEN CALLS A LOWER @Y30LB30*/ 00358000 * /* PROCEDURE TO HANDLE THE RETURN CODE FROM THE MACRO. @Y30LB30*/ 00359000 * /* UPON RETURN, IT FREES THE ECB AND MESSAGE AREA IF @Y30LB30*/ 00360000 * /* NECESSARY, AND RETURNS TO THE CALLER. IF THE ARGUMENT @Y30LB30*/ 00361000 * /* LIST PASSED BY THE CALLER IS INVALID, IT ISSUES A @Y30LB30*/ 00362000 * /* UABORT MACRO, CODE 40. @Y30LB30*/ 00363000 * /* */ 00364000 * /*****************************************************************/ 00365000 * 0265 00366000 * OLDERID2=NEWERID2; 0265 00367000 L @10,@PC00001 0265 00368000 L @04,GDTTR2(,@10) 0265 00369000 MVC @TS00001(95),NEWERID2(@04) 0265 00370000 MVC OLDERID2(95,@04),@TS00001 0265 00371000 * NEWID2='SASS'; /* @Y30LB30*/ 00372000 MVC NEWID2(4,@04),@CC01570 0266 00373000 * IF GDTDBG=NULLPTR THEN 0267 00374000 L @10,GDTDBG(,@10) 0267 00375000 LTR @10,@10 0267 00376000 BZ @RT00267 0267 00377000 * ; 0268 00378000 * ELSE 0269 00379000 * CALL IDCDB010(GDTTBL,'SASS'); /* @Y30LB30*/ 00380000 * 0269 00381000 L @10,@PC00001 0269 00382000 ST @10,@AL00001 0269 00383000 LA @04,@CC01570 0269 00384000 ST @04,@AL00001+4 0269 00385000 MVI @AL00001+4,X'80' 0269 00386000 L @15,GDTDBG(,@10) 0269 00387000 LA @01,@AL00001 0269 00388000 BALR @14,@15 0269 00389000 * /*****************************************************************/ 00390000 * /* */ 00391000 * /* INITIALIZE THE INPUT AREAS TO 0. INITIALIZE THE @Y30LB30*/ 00392000 * /* REASON CODE AREA, ECB CODE AREA, AND @Y30LB30*/ 00393000 * /* THE MESSAGE POINTER (IF SPECIFIED) TO 0 @Y30LB30*/ 00394000 * /* */ 00395000 * /*****************************************************************/ 00396000 * 0270 00397000 * IF LISTLN>3 THEN /* @Y30LB30*/ 00398000 @RT00267 C LISTLN,@CF00156 0270 00399000 BNH @RF00270 0270 00400000 * SSCRCODE=0; /* @Y30LB30*/ 00401000 L @10,@PC00001+12 0271 00402000 SLR @04,@04 0271 00403000 ST @04,SSCRCODE(,@10) 0271 00404000 * IF LISTLN>4 THEN /* @Y30LB30*/ 00405000 @RF00270 C LISTLN,@CF00034 0272 00406000 BNH @RF00272 0272 00407000 * SSCECODE=0; /* @Y30LB30*/ 00408000 L @10,@PC00001+16 0273 00409000 MVI SSCECODE(@10),X'00' 0273 00410000 * IF LISTLN>5 THEN /* @Y30LB30*/ 00411000 @RF00272 C LISTLN,@CF00289 0274 00412000 BNH @RF00274 0274 00413000 * SSCMSGPT=NULLPTR; /* @Y30LB30*/ 00414000 * 0275 00415000 L @10,@PC00001+20 0275 00416000 SLR @04,@04 0275 00417000 ST @04,SSCMSGPT(,@10) 0275 00418000 * /*****************************************************************/ 00419000 * /* */ 00420000 * /* INITIALIZE THE CONDITION CODE AREA TO 0 AND INIT THE @Y30LB30*/ 00421000 * /* ECB AND MESSAGE AREA POINTER TO 0 TO INDICATE NO @Y30LB30*/ 00422000 * /* STORAGE HAS BEEN OBTAINED. @Y30LB30*/ 00423000 * /* */ 00424000 * /*****************************************************************/ 00425000 * 0276 00426000 * SETRC=0; /* @Y30LB30*/ 00427000 @RF00274 SLR @10,@10 0276 00428000 STH @10,SETRC 0276 00429000 * ECBPTR=NULLPTR; /* @Y30LB30*/ 00430000 * 0277 00431000 ST @10,ECBPTR 0277 00432000 * /*****************************************************************/ 00433000 * /* */ 00434000 * /* SET ADDRESSABILITY TO DARGLIST AND INITIALIZE TO 0 @Y30LB30*/ 00435000 * /* */ 00436000 * /*****************************************************************/ 00437000 * 0278 00438000 * DDSTRU=ADDR(PRINTTAB); /* @Y30LB30*/ 00439000 LA @10,PRINTTAB 0278 00440000 ST @10,DDSTRU 0278 00441000 * PRINTTAB=''B; /* @Y30LB30*/ 00442000 * 0279 00443000 XC PRINTTAB(20),PRINTTAB 0279 00444000 * /*****************************************************************/ 00445000 * /* */ 00446000 * /* CALL THE CHECKARG PROCEDURE TO DETERMINE IF THE INPUT @Y30LB30*/ 00447000 * /* ARGUMENTS ARE VALID. IF THEY ARE, CHECKARG RETURNS @Y30LB30*/ 00448000 * /* A 0 IN REGISTER 15. IF NOT, CHECKARG RETURNS A 4 IN @Y30LB30*/ 00449000 * /* REGISTER 15. IF CHECKARG IS NOT SUCCESSFUL, SET THE @Y30LB30*/ 00450000 * /* CONDITION CODE TO INDICATE A UABORT SITUATION. @Y30LB30*/ 00451000 * /* */ 00452000 * /*****************************************************************/ 00453000 * 0280 00454000 * CALL CHECKARG; /* @Y30LB30*/ 00455000 BAL @14,CHECKARG 0280 00456000 * RESPECIFY 0281 00457000 * RTNREG RSTD; 0281 00458000 * TESTRC=RTNREG; 0282 00459000 STH RTNREG,TESTRC 0282 00460000 * RESPECIFY 0283 00461000 * RTNREG UNRSTD; /* @Y30LB30*/ 00462000 * IF TESTRC^=0 THEN /* @Y30LB30*/ 00463000 LH @10,TESTRC 0284 00464000 LTR @10,@10 0284 00465000 BZ @RF00284 0284 00466000 * SETRC=RCABORT; /* @Y30LB30*/ 00467000 MVC SETRC(2),@CH00500 0285 00468000 * 0286 00469000 * /*****************************************************************/ 00470000 * /* */ 00471000 * /* IF EVERYTHING IS SUCCESSFUL AND IF THE CALLER @Y30LB30*/ 00472000 * /* SPECIFIED AN ECB CODE AREA IN THE ARGUMENT LIST @Y30LB30*/ 00473000 * /* (FIFTH ARGUMENT), OBTAIN SPACE FOR AN ECB AND MESSAGE @Y30LB30*/ 00474000 * /* AREA @Y30LB30*/ 00475000 * /* */ 00476000 * /*****************************************************************/ 00477000 * 0286 00478000 * IF SETRC=0&LISTLN>4 THEN /* @Y30LB30*/ 00479000 @RF00284 LH @10,SETRC 0286 00480000 LTR @10,@10 0286 00481000 BNZ @RF00286 0286 00482000 C LISTLN,@CF00034 0286 00483000 BNH @RF00286 0286 00484000 * DO; /* @Y30LB30*/ 00485000 * 0287 00486000 * /*************************************************************/ 00487000 * /* */ 00488000 * /* ISSUE THE UGSPACE MACRO TO OBTAIN THE STORAGE @Y30LB30*/ 00489000 * /* AND INITIALIZE IT TO 0. THE AMOUNT OF STORAGE TO @Y30LB30*/ 00490000 * /* OBTAIN IS FOUND IN THE MACRO NAME TABLE. INDEX @Y30LB30*/ 00491000 * /* CONTAINS THE INDEX TO THE MACRO IN THE TABLE. @Y30LB30*/ 00492000 * /* */ 00493000 * /*************************************************************/ 00494000 * 0288 00495000 * STORSIZE=MACLEN(INDEX); /* @Y30LB30*/ 00496000 LR @10,INDEX 0288 00497000 MH @10,@CH00470 0288 00498000 SLR @04,@04 0288 00499000 IC @04,MACLEN-10(@10) 0288 00500000 ST @04,STORSIZE 0288 00501000 * CALL IDCSAGS0(GDTTBL,STORSIZE,ECBPTR,SETZERO,POOLID);/* 0289 00502000 * @Y30LB30*/ 00503000 L @10,@PC00001 0289 00504000 ST @10,@AL00001 0289 00505000 LA @04,STORSIZE 0289 00506000 ST @04,@AL00001+4 0289 00507000 LA @04,ECBPTR 0289 00508000 ST @04,@AL00001+8 0289 00509000 LA @04,SETZERO 0289 00510000 ST @04,@AL00001+12 0289 00511000 LA @04,@CH01554+1 0289 00512000 ST @04,@AL00001+16 0289 00513000 MVI @AL00001+16,X'80' 0289 00514000 L @15,GDTGSP(,@10) 0289 00515000 LA @01,@AL00001 0289 00516000 BALR @14,@15 0289 00517000 * RESPECIFY 0290 00518000 * RTNREG RSTD; 0290 00519000 * TESTRC=RTNREG; 0291 00520000 STH RTNREG,TESTRC 0291 00521000 * RESPECIFY 0292 00522000 * RTNREG UNRSTD; /* @Y30LB30*/ 00523000 * 0292 00524000 * /*************************************************************/ 00525000 * /* */ 00526000 * /* IF STORAGE WAS NOT OBTAINED, ISSUE MSG IDC2011I @Y30LB30*/ 00527000 * /* AND SET THE CONDITION CODE TO RCNOCOR. ISSUE THE @Y30LB30*/ 00528000 * /* UPRINT MACRO TO PRINT THE MESSAGE. @Y30LB30*/ 00529000 * /* */ 00530000 * /*************************************************************/ 00531000 * 0293 00532000 * IF TESTRC^=0 THEN /* @Y30LB30*/ 00533000 LH @10,TESTRC 0293 00534000 LTR @10,@10 0293 00535000 BZ @RF00293 0293 00536000 * DO; /* @Y30LB30*/ 00537000 * DARGSMOD=UNIVMOD; /* @Y30LB30*/ 00538000 L @10,DDSTRU 0295 00539000 MVC DARGSMOD(3,@10),@CC01559 0295 00540000 * DARGSENT=MSGNOCOR; /* @Y30LB30*/ 00541000 MVI DARGSENT(@10),X'0C' 0296 00542000 * CALL AMSTP011(GDTTBL,PRTFILE,DDSTRU);/* @Y30LB30*/ 00543000 L @10,@PC00001 0297 00544000 ST @10,@AL00001 0297 00545000 LA @04,@CF00108 0297 00546000 ST @04,@AL00001+4 0297 00547000 LA @04,DDSTRU 0297 00548000 ST @04,@AL00001+8 0297 00549000 MVI @AL00001+8,X'80' 0297 00550000 L @15,GDTPRT(,@10) 0297 00551000 LA @01,@AL00001 0297 00552000 BALR @14,@15 0297 00553000 * SETRC=8; /* @Y30LB30*/ 00554000 MVC SETRC(2),@CH00173 0298 00555000 * END; /* @Y30LB30*/ 00556000 * END; /* @Y30LB30*/ 00557000 @RF00293 DS 0H 0301 00558000 * 0301 00559000 * /*****************************************************************/ 00560000 * /* */ 00561000 * /* IF ARGUMENTS WERE VALID AND STORAGE WAS OBTAINED @Y30LB30*/ 00562000 * /* CALL THE ISSUEMAC PROCEDURE TO ISSUE THE EXECUTE @Y30LB30*/ 00563000 * /* FORM OF THE APPROPRIATE MSSC MACRO. CHECK THE RETURN @Y30LB30*/ 00564000 * /* CODE AND FREE THE ECB AND MESSAGE SPACE IF NECESSARY. @Y30LB30*/ 00565000 * /* */ 00566000 * /*****************************************************************/ 00567000 * 0301 00568000 * IF SETRC=0 THEN /* @Y30LB30*/ 00569000 @RF00286 LH @10,SETRC 0301 00570000 LTR @10,@10 0301 00571000 BNZ @RF00301 0301 00572000 * DO; /* @Y30LB30*/ 00573000 * CALL ISSUEMAC; /* @Y30LB30*/ 00574000 BAL @14,ISSUEMAC 0303 00575000 * RESPECIFY 0304 00576000 * RTNREG RSTD; 0304 00577000 * TESTRC=RTNREG; 0305 00578000 STH RTNREG,TESTRC 0305 00579000 * RESPECIFY 0306 00580000 * RTNREG UNRSTD; /* @Y30LB30*/ 00581000 * 0306 00582000 * /*************************************************************/ 00583000 * /* */ 00584000 * /* CALL THE CHKCODE PROC TO WAIT ON THE RETURN IF @Y30LB30*/ 00585000 * /* NECESSARY AND HANDLE THE RETURN AND REASON CODES @Y30LB30*/ 00586000 * /* AND ECB CODES, AND RETURN THE ECB - MESSAGE PTR. @Y30LB30*/ 00587000 * /* THE RETURN CODE FROM THE MACRO IS IN TESTRC, THE @Y30LB30*/ 00588000 * /* REASON CODE FROM REGISTER 0 IS IN SAVEREG0. @Y30LB30*/ 00589000 * /* */ 00590000 * /*************************************************************/ 00591000 * 0307 00592000 * CALL CHKCODE; /* @Y30LB30*/ 00593000 BAL @14,CHKCODE 0307 00594000 * RESPECIFY 0308 00595000 * RTNREG RSTD; 0308 00596000 * TESTRC=RTNREG; 0309 00597000 STH RTNREG,TESTRC 0309 00598000 * RESPECIFY 0310 00599000 * RTNREG UNRSTD; /* @Y30LB30*/ 00600000 * SETRC=TESTRC; /* @Y30LB30*/ 00601000 * 0311 00602000 LH @10,TESTRC 0311 00603000 STH @10,SETRC 0311 00604000 * /*************************************************************/ 00605000 * /* */ 00606000 * /* FREE THE STORAGE FOR THE ECB AND MSG AREA @Y30LB30*/ 00607000 * /* IF THERE IS AN ECB AND MESSAGE AREA AND EITHER A @Y30LB30*/ 00608000 * /* SEVERE ERR OCCURRED OR THE CALLER DID NOT ASK FOR @Y30LB30*/ 00609000 * /* A MESSAGE AREA TO BE RETURNED VIA THE SIXTH ARGUMENT. */ 00610000 * /* @Y30LB30*/ 00611000 * /* */ 00612000 * /*************************************************************/ 00613000 * 0312 00614000 * IF ECBPTR^=NULLPTR&(LISTLN<6|SETRC=4) THEN 0312 00615000 L @04,ECBPTR 0312 00616000 LTR @04,@04 0312 00617000 BZ @RF00312 0312 00618000 C LISTLN,@CF00150 0312 00619000 BL @RT00312 0312 00620000 C @10,@CF00034 0312 00621000 BNE @RF00312 0312 00622000 @RT00312 DS 0H 0313 00623000 * CALL IDCSAFS0(GDTTBL,ECBPTR);/* @Y30LB30*/ 00624000 L @10,@PC00001 0313 00625000 ST @10,@AL00001 0313 00626000 LA @15,ECBPTR 0313 00627000 ST @15,@AL00001+4 0313 00628000 L @15,GDTFSP(,@10) 0313 00629000 LA @01,@AL00001 0313 00630000 BALR @14,@15 0313 00631000 * END; /* @Y30LB30*/ 00632000 @RF00312 DS 0H 0315 00633000 * 0315 00634000 * /*****************************************************************/ 00635000 * /* */ 00636000 * /* ISSUE A UABORT IF AN ABORT SITUATION EXISTS OR RETURN @Y30LB30*/ 00637000 * /* TO THE CALLER WITH THE RETURN CODE IN REGISTER 15. @Y30LB30*/ 00638000 * /* */ 00639000 * /*****************************************************************/ 00640000 * 0315 00641000 * IF SETRC=RCABORT THEN /* @Y30LB30*/ 00642000 @RF00301 CLC SETRC(2),@CH00500 0315 00643000 BNE @RF00315 0315 00644000 * DO; 0316 00645000 * RESPECIFY 0317 00646000 * (REG13, 0317 00647000 * REG14, 0317 00648000 * REG15) RSTD; 0317 00649000 * REG15=ARGERR; 0318 00650000 LA REG15,40 0318 00651000 * REG14=GDTABT; 0319 00652000 L @10,@PC00001 0319 00653000 L REG14,GDTABT(,@10) 0319 00654000 * REG13=GDTABH; 0320 00655000 L REG13,GDTABH(,@10) 0320 00656000 * GEN(BR REG14); 0321 00657000 BR REG14 00658000 * RESPECIFY 0322 00659000 * (REG13, 0322 00660000 * REG14, 0322 00661000 * REG15) UNRSTD; 0322 00662000 * END; /* @Y30LB30*/ 00663000 * ELSE /* @Y30LB30*/ 00664000 * CALL IDCSAEP0(GDTTBL,MODID,SETRC);/* @Y30LB30*/ 00665000 B @RC00315 0324 00666000 @RF00315 L @10,@PC00001 0324 00667000 ST @10,@AL00001 0324 00668000 LA @15,MODID 0324 00669000 ST @15,@AL00001+4 0324 00670000 LA @15,SETRC 0324 00671000 ST @15,@AL00001+8 0324 00672000 MVI @AL00001+8,X'80' 0324 00673000 L @15,GDTEPL(,@10) 0324 00674000 LA @01,@AL00001 0324 00675000 BALR @14,@15 0324 00676000 * 0325 00677000 */********************************************************************/ 00678000 */* @Y30LB30*/ 00679000 */* PROCEDURE NAME - CHECKARG @Y30LB30*/ 00680000 */* @Y30LB30*/ 00681000 */* FUNCTION - CHECK FOR ERRORS IN THE CALLER'S ARGUMENT @Y30LB30*/ 00682000 */* LIST. USE THE MACRO NAME TABLE TO DETERMINE @Y30LB30*/ 00683000 */* THE INVALID ARGUMENTS. @Y30LB30*/ 00684000 */* @Y30LB30*/ 00685000 */* INPUT - LISTLN WHICH CONTAINS THE NUMBER OF ARGUMENTS. @Y30LB30*/ 00686000 */* @Y30LB30*/ 00687000 */* OUTPUT - REGISTER 15: 0 - ALL CHECKS SUCCESSFUL. @Y30LB30*/ 00688000 */* 4 - INVALID ARGUMENT FOUND. @Y30LB30*/ 00689000 */* INDEX SET WITH THE NUMBER OF THE MACRO TO @Y30LB30*/ 00690000 */* ISSUE IN THE MACRO NAME TABLE. @Y30LB30*/ 00691000 */* @Y30LB30*/ 00692000 */********************************************************************/ 00693000 * 0325 00694000 *CHECKARG: 0325 00695000 * PROCEDURE OPTIONS(NOSAVE,NOSAVEAREA);/* @Y30LB30*/ 00696000 * 0325 00697000 @EL00001 L @13,4(,@13) 0325 00698000 @EF00001 L @00,@SIZDATD 0325 00699000 LR @01,@11 0325 00700000 FREEMAIN R,LV=(0),A=(1) 00701000 @ER00001 LM @14,@12,12(@13) 0325 00702000 BR @14 0325 00703000 CHECKARG DS 0H 0326 00704000 * /*****************************************************************/ 00705000 * /* */ 00706000 * /* LOCAL DECLARATIONS @Y30LB30*/ 00707000 * /* */ 00708000 * /*****************************************************************/ 00709000 * 0326 00710000 * DCL 0326 00711000 * CCODE1 FIXED(15); /* CONDITION CODE @Y30LB30*/ 00712000 * DCL 0327 00713000 * RETADDR1 PTR(31); /* SAVE OF REGISTER 14 @Y30LB30*/ 00714000 * 0328 00715000 * /*****************************************************************/ 00716000 * /* */ 00717000 * /* SAVE THE RETURN ADDRESS AND SET UP A TRACE POINT. @Y30LB30*/ 00718000 * /* */ 00719000 * /*****************************************************************/ 00720000 * 0328 00721000 * RFY 0328 00722000 * REG14 RESTRICTED; /* @Y30LB30*/ 00723000 * RETADDR1=REG14; /* @Y30LB30*/ 00724000 LR RETADDR1,REG14 0329 00725000 * RFY 0330 00726000 * REG14 UNRESTRICTED; /* @Y30LB30*/ 00727000 * OLDERID2=NEWERID2; 0331 00728000 L @10,@PC00001 0331 00729000 L @10,GDTTR2(,@10) 0331 00730000 MVC @TS00001(95),NEWERID2(@10) 0331 00731000 MVC OLDERID2(95,@10),@TS00001 0331 00732000 * NEWID2='SACA'; /* @Y30LB30*/ 00733000 MVC NEWID2(4,@10),@CC01580 0332 00734000 * CCODE1=0; /* @Y30LB30*/ 00735000 * 0333 00736000 SLR CCODE1,CCODE1 0333 00737000 * /*****************************************************************/ 00738000 * /* */ 00739000 * /* CHECK THAT AT LEAST 4 ARGUMENTS WERE PASSED AS INPUT. @Y30LB30*/ 00740000 * /* IF NOT, SET A FAILING CONDITION CODE. @Y30LB30*/ 00741000 * /* */ 00742000 * /*****************************************************************/ 00743000 * 0334 00744000 * IF LISTLN<4 THEN /* @Y30LB30*/ 00745000 LA @10,4 0334 00746000 CR LISTLN,@10 0334 00747000 BNL @RF00334 0334 00748000 * CCODE1=4; /* @Y30LB30*/ 00749000 LR CCODE1,@10 0335 00750000 * 0336 00751000 * /*****************************************************************/ 00752000 * /* */ 00753000 * /* IF AT LEAST 4 ARGUMENTS WERE PASSED, CONTINUE WITH @Y30LB30*/ 00754000 * /* MORE CHECKING. @Y30LB30*/ 00755000 * /* */ 00756000 * /*****************************************************************/ 00757000 * 0336 00758000 * ELSE /* @Y30LB30*/ 00759000 * DO; /* @Y30LB30*/ 00760000 * 0336 00761000 B @RC00334 0336 00762000 @RF00334 DS 0H 0337 00763000 * /*************************************************************/ 00764000 * /* */ 00765000 * /* CHECK THAT THE MACRO TYPE REQUESTED BY THE CALLER @Y30LB30*/ 00766000 * /* IS A SUPPORTED TYPE. SCAN THE MACRO NAME TABLE TO @Y30LB30*/ 00767000 * /* SEE IF THE KEYWORD PASSED AS INPUT MATCHES A @Y30LB30*/ 00768000 * /* SUPPORTED KEYWORD. SCAN THE TABLE TO THE END @Y30LB30*/ 00769000 * /* UNTIL A MATCH IS FOUND @Y30LB30*/ 00770000 * /* */ 00771000 * /*************************************************************/ 00772000 * 0337 00773000 * DO INDEX=1 BY 1 TO MACNMNUM WHILE/* @Y30LB30*/ 00774000 * SSCTYPE^=MACNAME(INDEX);/* @Y30LB30*/ 00775000 LA INDEX,1 0337 00776000 B @DE00337 0337 00777000 @DL00337 L @10,@PC00001+4 0337 00778000 LR @07,INDEX 0337 00779000 MH @07,@CH00470 0337 00780000 LA @04,MACNAME-10(@07) 0337 00781000 CLC SSCTYPE(8,@10),0(@04) 0337 00782000 BE @DC00337 0337 00783000 * END; /* @Y30LB30*/ 00784000 * 0338 00785000 AL INDEX,@CF00213 0338 00786000 @DE00337 SLR @10,@10 0338 00787000 IC @10,MACNMNUM 0338 00788000 CR INDEX,@10 0338 00789000 BNH @DL00337 0338 00790000 @DC00337 DS 0H 0339 00791000 * /*************************************************************/ 00792000 * /* */ 00793000 * /* IF THE END OF THE TBL IS FOUND BEFORE A MATCH IS @Y30LB30*/ 00794000 * /* FOUND, THIS MEANS THE INPUT TYPE IS INVALID, SO @Y30LB30*/ 00795000 * /* SET A FAILING CONDITION CODE. @Y30LB30*/ 00796000 * /* */ 00797000 * /*************************************************************/ 00798000 * 0339 00799000 * IF INDEX>MACNMNUM THEN /* @Y30LB30*/ 00800000 SLR @10,@10 0339 00801000 IC @10,MACNMNUM 0339 00802000 CR INDEX,@10 0339 00803000 BNH @RF00339 0339 00804000 * CCODE1=4; /* @Y30LB30*/ 00805000 LA CCODE1,4 0340 00806000 * 0341 00807000 * /*************************************************************/ 00808000 * /* */ 00809000 * /* IF A MATCH WAS FOUND, CONTINUE TO CHECK THAT THE @Y30LB30*/ 00810000 * /* NUMBER OF ARGUMENTS IS VALID FOR THE REQUESTED @Y30LB30*/ 00811000 * /* MACRO. @Y30LB30*/ 00812000 * /* */ 00813000 * /*************************************************************/ 00814000 * 0341 00815000 * ELSE /* @Y30LB30*/ 00816000 * DO; /* @Y30LB30*/ 00817000 * 0341 00818000 B @RC00339 0341 00819000 @RF00339 DS 0H 0342 00820000 * /*********************************************************/ 00821000 * /* */ 00822000 * /* IF THE ECB AND MESSAGE LENGTH RECORDED IN @Y30LB30*/ 00823000 * /* THE MACRO NAME TABLE IS 0, NO DELAYED @Y30LB30*/ 00824000 * /* RESPONSE IS SUPPORTED. THE CALLER SHOULD NOT @Y30LB30*/ 00825000 * /* HAVE SUPPLIED THE FIFTH AND SIXTH ARGS, ECB @Y30LB30*/ 00826000 * /* CODE AND MSG POINTER. IF HE HAS, SET A FAILING */ 00827000 * /* @Z40LB63*/ 00828000 * /* CONDITION CODE. @Y30LB30*/ 00829000 * /* */ 00830000 * /*********************************************************/ 00831000 * 0342 00832000 * IF MACLEN(INDEX)=0&LISTLN>4 THEN/* @Y30LB30*/ 00833000 LR @10,INDEX 0342 00834000 MH @10,@CH00470 0342 00835000 SLR @07,@07 0342 00836000 IC @07,MACLEN-10(@10) 0342 00837000 C @07,@CF00108 0342 00838000 BNE @RF00342 0342 00839000 LA @10,4 0342 00840000 CR LISTLN,@10 0342 00841000 BNH @RF00342 0342 00842000 * CCODE1=4; /* @Y30LB30*/ 00843000 * 0343 00844000 LR CCODE1,@10 0343 00845000 * /*********************************************************/ 00846000 * /* */ 00847000 * /* IF THE LENGTH OF THE ECB AMD MSG AREA IS 4 @Y30LB30*/ 00848000 * /* THEN THE MACRO DOES NOT HAVE ANY MSG AREA. @Y30LB30*/ 00849000 * /* CHECK THAT THE FIFTH ARGUMENT, MSG POINTER, @Y30LB30*/ 00850000 * /* IS NOT SPECIFIED @Y30LB30*/ 00851000 * /* */ 00852000 * /*********************************************************/ 00853000 * 0344 00854000 * IF MACLEN(INDEX)=4&LISTLN>5 THEN/* @Y30LB30*/ 00855000 @RF00342 LA @10,4 0344 00856000 LR @07,INDEX 0344 00857000 MH @07,@CH00470 0344 00858000 SLR @04,@04 0344 00859000 IC @04,MACLEN-10(@07) 0344 00860000 CR @10,@04 0344 00861000 BNE @RF00344 0344 00862000 C LISTLN,@CF00289 0344 00863000 BNH @RF00344 0344 00864000 * CCODE1=4; /* @Y30LB30*/ 00865000 * 0345 00866000 LR CCODE1,@10 0345 00867000 * /*********************************************************/ 00868000 * /* */ 00869000 * /* IF THE MACRO TYPE FIELD IN THE MACRO NAME TBL @Y30LB30*/ 00870000 * /* INDICATES THAT AN ECB IS REQUIRED, CHECK THAT @Y30LB30*/ 00871000 * /* THE CALLER SPECIFIED AN ECB AREA (5TH ARG). @Y30LB30*/ 00872000 * /* IF THE 5TH ARG IS NOT SPECIFIED SET A FAILING @Y30LB30*/ 00873000 * /* CONDITION CODE. @Y30LB30*/ 00874000 * /* */ 00875000 * /*********************************************************/ 00876000 * 0346 00877000 * IF MACTYPE(INDEX)=ECBREQ&LISTLN<=4 THEN/* @Y30LB30*/ 00878000 @RF00344 LR @10,INDEX 0346 00879000 MH @10,@CH00470 0346 00880000 LA @07,MACTYPE-10(@10) 0346 00881000 TM 0(@07),B'10000000' 0346 00882000 BNO @RF00346 0346 00883000 LA @10,4 0346 00884000 CR LISTLN,@10 0346 00885000 BH @RF00346 0346 00886000 * CCODE1=4; /* @Y30LB30*/ 00887000 LR CCODE1,@10 0347 00888000 * END; /* @Y30LB30*/ 00889000 @RF00346 DS 0H 0349 00890000 * END; /* @Y30LB30*/ 00891000 @RC00339 DS 0H 0350 00892000 * 0350 00893000 * /*****************************************************************/ 00894000 * /* */ 00895000 * /* RESTORE THE RETURN ADDRESS AND RETURN TO THE CALLER @Y30LB30*/ 00896000 * /* WITH THE CONDITION CODE IN REGISTER 15. @Y30LB30*/ 00897000 * /* */ 00898000 * /*****************************************************************/ 00899000 * 0350 00900000 * RFY 0350 00901000 * REG14 RESTRICTED; /* @Y30LB30*/ 00902000 @RC00334 DS 0H 0351 00903000 * REG14=RETADDR1; /* @Y30LB30*/ 00904000 LR REG14,RETADDR1 0351 00905000 * RFY 0352 00906000 * REG14 UNRESTRICTED; /* @Y30LB30*/ 00907000 * RETURN CODE(CCODE1); /* @Y30LB30*/ 00908000 LR @15,CCODE1 0353 00909000 @EL00002 DS 0H 0353 00910000 @EF00002 DS 0H 0353 00911000 @ER00002 BR @14 0353 00912000 * END CHECKARG; /* @Y30LB30*/ 00913000 * 0355 00914000 */********************************************************************/ 00915000 */* @Y30LB30*/ 00916000 */* PROCEDURE NAME - ISSUEMAC @Y30LB30*/ 00917000 */* @Y30LB30*/ 00918000 */* FUNCTION - ISSUE THE EXECUTE FORM OF THE APPROPRIATE @Y30LB30*/ 00919000 */* MSSC MACRO. IF AN ECB HAS BEEN OBTAINED, @Y30LB30*/ 00920000 */* INSERT THE ECB ADDRESS INTO THE ARGUMENT LIST @Y30LB30*/ 00921000 */* SPECIFY THE ECB ON THE MACRO. @Y30LB30*/ 00922000 */* #Y30LB30*/ 00923000 */* INPUT - POINTER TO THE ECB. #Y30LB30*/ 00924000 */* ARGUMENTS PASSED AS INPUT #Y30LB30*/ 00925000 */* #Y30LB30*/ 00926000 */* OUTPUT - RETURN CODE FROM THE MSSC MACRO IN REG 15. #Y30LB30*/ 00927000 */* REASON CODE FROM REG 0 SAVED IN REG0SAVE. #Y30LB30*/ 00928000 */* #Y30LB30*/ 00929000 */********************************************************************/ 00930000 * 0355 00931000 *ISSUEMAC: 0355 00932000 * PROCEDURE OPTIONS(NOSAVE,NOSAVEAREA);/* #Y30LB30*/ 00933000 * 0355 00934000 ISSUEMAC DS 0H 0356 00935000 * /*****************************************************************/ 00936000 * /* */ 00937000 * /* LOCAL DECLARATIONS #Y30LB30*/ 00938000 * /* */ 00939000 * /*****************************************************************/ 00940000 * 0356 00941000 * DCL 0356 00942000 * RETADDR3 PTR(31); /* SAVE OF REG 14 #Y30LB30*/ 00943000 * 0356 00944000 * /*****************************************************************/ 00945000 * /* */ 00946000 * /* BRANCH TABLE TO ISSUE MSSC MACROS #Y30LB30*/ 00947000 * /* */ 00948000 * /*****************************************************************/ 00949000 * 0357 00950000 * DCL 0357 00951000 * BRANTBL(20) STATIC INIT(ADDR(LACQ1),ADDR(LMNTDE1),ADDR(LMNTDE2), 00952000 * ADDR(LDEFV1),ADDR(LMCRT1),ADDR(LTRACE1),ADDR(LCOTB1),ADDR( 00953000 * LCOVC1),ADDR(LCOVC2),ADDR(LVVIC1),ADDR(LTUNE1),ADDR(LNULL1), 00954000 * ADDR(LRMSC1),ADDR(LRMSCT1),ADDR(LSA1),ADDR(LRLAB1),ADDR( 0357 00955000 * LCELA1),ADDR(LTBLR1), /* @ZA14727*/ 00956000 * ADDR(LREL1),ADDR(LMODC1));/* @G24LB40*/ 00957000 * 0357 00958000 * /*****************************************************************/ 00959000 * /* */ 00960000 * /* DECLARATION OF LABEL FOR BRANCH POINT #Y30LB30*/ 00961000 * /* */ 00962000 * /*****************************************************************/ 00963000 * 0358 00964000 * DCL 0358 00965000 * MACRO LABEL BASED(BRANTBL(INDEX));/* #Y30LB30*/ 00966000 * 0359 00967000 * /*****************************************************************/ 00968000 * /* */ 00969000 * /* SAVE THE RETURN ADDRESS IN REGISTER 14, AND SET UP #Y30LB30*/ 00970000 * /* A TRACE POINT. #Y30LB30*/ 00971000 * /* */ 00972000 * /*****************************************************************/ 00973000 * 0359 00974000 * RFY 0359 00975000 * REG14 RESTRICTED; /* #Y30LB30*/ 00976000 * RETADDR3=REG14; /* #Y30LB30*/ 00977000 LR RETADDR3,REG14 0360 00978000 * RFY 0361 00979000 * REG14 UNRESTRICTED; /* #Y30LB30*/ 00980000 * OLDERID2=NEWERID2; 0362 00981000 L @10,@PC00001 0362 00982000 L @03,GDTTR2(,@10) 0362 00983000 MVC @TS00001(95),NEWERID2(@03) 0362 00984000 MVC OLDERID2(95,@03),@TS00001 0362 00985000 * NEWID2='SAMA'; /* #Y30LB30*/ 00986000 * 0363 00987000 MVC NEWID2(4,@03),@CC01607 0363 00988000 * /*****************************************************************/ 00989000 * /* */ 00990000 * /* GET A FULL REGION DUMP BEFORE ISSUEING THE MACRO #Y30LB30*/ 00991000 * /* */ 00992000 * /*****************************************************************/ 00993000 * 0364 00994000 * IF GDTDBG=NULLPTR THEN 0364 00995000 L @10,GDTDBG(,@10) 0364 00996000 LTR @10,@10 0364 00997000 BZ @RT00364 0364 00998000 * ; 0365 00999000 * ELSE 0366 01000000 * CALL IDCDB010(GDTTBL,'ZZSC'); /* #Y30LB30*/ 01001000 L @10,@PC00001 0366 01002000 ST @10,@AL00001 0366 01003000 LA @03,@CC01608 0366 01004000 ST @03,@AL00001+4 0366 01005000 MVI @AL00001+4,X'80' 0366 01006000 L @15,GDTDBG(,@10) 0366 01007000 LA @01,@AL00001 0366 01008000 BALR @14,@15 0366 01009000 * RFY 0367 01010000 * REG0 RESTRICTED; /* #Y30LB30*/ 01011000 * 0367 01012000 @RT00364 DS 0H 0368 01013000 * /*****************************************************************/ 01014000 * /* */ 01015000 * /* BRANCH TO THE CORRECT MSSC MACRO #Y30LB30*/ 01016000 * /* */ 01017000 * /*****************************************************************/ 01018000 * 0368 01019000 * GOTO MACRO; /* #Y30LB30*/ 01020000 LR @10,INDEX 0368 01021000 SLA @10,2 0368 01022000 L @01,BRANTBL-4(@10) 0368 01023000 BR @01 0368 01024000 * 0369 01025000 * /*****************************************************************/ 01026000 * /* */ 01027000 * /* ISSUE THE EXECUTE FORM OF THE ACQUIRE MACRO. #Y30LB30*/ 01028000 * /* IF AN ECB HAS BEEN OBTAINED THEN SET THE ECB ADDRESS #Y30LB30*/ 01029000 * /* IN THE PARAMETER LIST. #Y30LB30*/ 01030000 * /* */ 01031000 * /*****************************************************************/ 01032000 * 0369 01033000 *LACQ1: 0369 01034000 * IF ECBPTR^=NULLPTR THEN /* #Y30LB30*/ 01035000 LACQ1 L @10,ECBPTR 0369 01036000 LTR @10,@10 0369 01037000 BZ @RF00369 0369 01038000 * ARECB=ECBPTR; /* #Y30LB30*/ 01039000 * 0370 01040000 L @07,@PC00001+8 0370 01041000 L @01,SSCARGPT(,@07) 0370 01042000 ST @10,ARECB(,@01) 0370 01043000 * /*****************************************************************/ 01044000 * /* */ 01045000 * /* ****************************************************** */ 01046000 * /* @Y30LB02*/ 01047000 * /* MACMEAN MSSC ACQUIRE/RELINQUISH MACRO @Y30LB02*/ 01048000 * /* VS1-4/VS2-3 VERSION-- 06/09/74 LEVEL 00 @Y30LB02*/ 01049000 * /* THIS IS THE OUTPUT FOR THE EXECUTE FORM. @Y30LB02*/ 01050000 * /* THE LIST FORM OF THIS MACRO SHOULD BE @Y30LB02*/ 01051000 * /* INVOKED FIRST IN ORDER TO SET UP NECESSARY @Y30LB02*/ 01052000 * /* DECLARES. THE EXECUTE FORM WILL ONLY @Y30LB02*/ 01053000 * /* ISSUE THE SVC, NO PARAMETERS EXCEPT MF. @Y30LB02*/ 01054000 * /* ****************************************************** */ 01055000 * /* @Y30LB02*/ 01056000 * /* */ 01057000 * /*****************************************************************/ 01058000 * 0371 01059000 * RFY 0371 01060000 * (ARR1) RSTD; /* RESTRICT R1 @Y30LB02*/ 01061000 @RF00369 DS 0H 0372 01062000 * ARR1=ADDR(MACLIST); /* SET ARR1 TO ADDR OF LIST 0372 01063000 * @Y30LB02*/ 01064000 L @10,@PC00001+8 0372 01065000 L ARR1,SSCARGPT(,@10) 0372 01066000 * SVC(126); /* ISSUE SVC @Y30LB02*/ 01067000 SVC 126 0373 01068000 * RFY 0374 01069000 * (ARR1) UNRSTD; /* UNRESTRICT REG 1 @Y30LB02*/ 01070000 */*#Y30LB30 */ 01071000 * 0375 01072000 * GOTO MACEND; /* #Y30LB30*/ 01073000 B MACEND 0375 01074000 * 0376 01075000 * /*****************************************************************/ 01076000 * /* */ 01077000 * /* ISSUE THE EXECUTE FORM OF THE MOUNT MACRO. #Y30LB30*/ 01078000 * /* */ 01079000 * /*****************************************************************/ 01080000 * 0376 01081000 *LMNTDE1: 0376 01082000 * 0376 01083000 * /*****************************************************************/ 01084000 * /* */ 01085000 * /* ******************************************************** */ 01086000 * /* @Y30LB02*/ 01087000 * /* MACMEAN MSSC MOUNT/DEMOUNT MACRO @Y30LB02*/ 01088000 * /* VS2-3 VERSION-- 02/06/76 @G18MB04*/ 01089000 * /* THIS IS THE OUTPUT FOR THE EXECUTE FORM. @Y30LB02*/ 01090000 * /* THE LIST FORM OF THIS MACRO SHOULD BE @Y30LB02*/ 01091000 * /* INVOKED FIRST IN ORDER TO SET UP NECESSARY @Y30LB02*/ 01092000 * /* DECLARES. IF THE COMPLETE ARGUMENT IS @Y30LB02*/ 01093000 * /* SPECIFIED THE REQ BLOCK WILL BE ZEROED. @Y30LB02*/ 01094000 * /* ******************************************************** */ 01095000 * /* @Y30LB02*/ 01096000 * /* */ 01097000 * /*****************************************************************/ 01098000 * 0376 01099000 * RFY 0376 01100000 * MDREG1 RSTD; /* RESTRICT REG 1 @Y30LB02*/ 01101000 LMNTDE1 DS 0H 0377 01102000 * MDREG1=ADDR(MACLIST); /* R1 PTR TO REQ BLOCK @Y30LB02*/ 01103000 L @10,@PC00001+8 0377 01104000 L @10,SSCARGPT(,@10) 0377 01105000 LR MDREG1,@10 0377 01106000 * MDLEN='1C'X; /* LENGTH OF MOUNT REQ BLOCK 0378 01107000 * @Y30LB02*/ 01108000 LA @07,28 0378 01109000 ST @07,MDLEN(,@10) 0378 01110000 * MDOPCD='08'X; /* MOUNT OPCODE @Y30LB02*/ 01111000 MVI MDOPCD(@10),X'08' 0379 01112000 * SVC(126); /* INVOKE THE SSC SVC @Y30LB02*/ 01113000 SVC 126 0380 01114000 * RFY 0381 01115000 * MDREG1 UNRSTD; /* UNREST REG 1 @Y30LB02 01116000 * #Y30LB30*/ 01117000 * GOTO MACEND; /* #Y30LB30*/ 01118000 B MACEND 0382 01119000 * 0383 01120000 * /*****************************************************************/ 01121000 * /* */ 01122000 * /* ISSUE THE EXECUTE FORM OF THE DEMOUNT MACRO. SPECIFY #Y30LB30*/ 01123000 * /* THE NAME OF THE ECB IF ONE HAS BEEN OBTAINED. #Y30LB30*/ 01124000 * /* */ 01125000 * /*****************************************************************/ 01126000 * 0383 01127000 *LMNTDE2: 0383 01128000 * IF ECBPTR^=NULLPTR THEN /* #Y30LB30*/ 01129000 LMNTDE2 L @10,ECBPTR 0383 01130000 LTR @10,@10 0383 01131000 BZ @RF00383 0383 01132000 * DO; /* #Y30LB30*/ 01133000 * 0384 01134000 * /*************************************************************/ 01135000 * /* */ 01136000 * /* ******************************************************** */ 01137000 * /* @Y30LB02*/ 01138000 * /* MACMEAN MSSC MOUNT/DEMOUNT MACRO @Y30LB02*/ 01139000 * /* VS2-3 VERSION-- 02/06/76 @G18MB04*/ 01140000 * /* THIS IS THE OUTPUT FOR THE EXECUTE FORM. @Y30LB02*/ 01141000 * /* THE LIST FORM OF THIS MACRO SHOULD BE @Y30LB02*/ 01142000 * /* INVOKED FIRST IN ORDER TO SET UP NECESSARY @Y30LB02*/ 01143000 * /* DECLARES. IF THE COMPLETE ARGUMENT IS @Y30LB02*/ 01144000 * /* SPECIFIED THE REQ BLOCK WILL BE ZEROED. @Y30LB02*/ 01145000 * /* ******************************************************** */ 01146000 * /* @Y30LB02*/ 01147000 * /* */ 01148000 * /*************************************************************/ 01149000 * 0385 01150000 * RFY 0385 01151000 * MDREG1 RSTD; /* RESTRICT REG 1 @Y30LB02*/ 01152000 * MDREG1=ADDR(MACLIST); /* R1 PTR TO REQ BLOCK @Y30LB02*/ 01153000 L @07,@PC00001+8 0386 01154000 L @07,SSCARGPT(,@07) 0386 01155000 LR MDREG1,@07 0386 01156000 * DMLEN='1C'X; /* LENGTH DEMOUNT REQUEST BLOCK 01157000 * @Y30LB02*/ 01158000 LA @04,28 0387 01159000 ST @04,DMLEN(,@07) 0387 01160000 * DMOPCD='06'X; /* DEMOUNT OPCODE @Y30LB02*/ 01161000 MVI DMOPCD(@07),X'06' 0388 01162000 * DMNTECB=ADDR(ECB); /* ADDRESS OF THE EVENTCONTROL 0389 01163000 * BLOCK @Y30LB02*/ 01164000 ST @10,DMNTECB(,@07) 0389 01165000 * SVC(126); /* INVOKE THE SSC SVC @Y30LB02*/ 01166000 SVC 126 0390 01167000 * RFY 0391 01168000 * MDREG1 UNRSTD; /* UNREST REG 1 @Y30LB02 01169000 * #Y30LB30*/ 01170000 * END; /* #Y30LB30*/ 01171000 * 0393 01172000 * /*****************************************************************/ 01173000 * /* */ 01174000 * /* ISSUE THE EXECUTE FORM OF THE DEMOUNT MACRO WITHOUT @Y30LB30*/ 01175000 * /* AN ECB #Y30LB30*/ 01176000 * /* */ 01177000 * /*****************************************************************/ 01178000 * 0393 01179000 * ELSE /* #Y30LB30*/ 01180000 * DO; /* #Y30LB30*/ 01181000 B @RC00383 0393 01182000 @RF00383 DS 0H 0394 01183000 *LMNTDE3: 0394 01184000 * 0394 01185000 * /*************************************************************/ 01186000 * /* */ 01187000 * /* ******************************************************** */ 01188000 * /* @Y30LB02*/ 01189000 * /* MACMEAN MSSC MOUNT/DEMOUNT MACRO @Y30LB02*/ 01190000 * /* VS2-3 VERSION-- 02/06/76 @G18MB04*/ 01191000 * /* THIS IS THE OUTPUT FOR THE EXECUTE FORM. @Y30LB02*/ 01192000 * /* THE LIST FORM OF THIS MACRO SHOULD BE @Y30LB02*/ 01193000 * /* INVOKED FIRST IN ORDER TO SET UP NECESSARY @Y30LB02*/ 01194000 * /* DECLARES. IF THE COMPLETE ARGUMENT IS @Y30LB02*/ 01195000 * /* SPECIFIED THE REQ BLOCK WILL BE ZEROED. @Y30LB02*/ 01196000 * /* ******************************************************** */ 01197000 * /* @Y30LB02*/ 01198000 * /* */ 01199000 * /*************************************************************/ 01200000 * 0394 01201000 * RFY 0394 01202000 * MDREG1 RSTD; /* RESTRICT REG 1 @Y30LB02*/ 01203000 LMNTDE3 DS 0H 0395 01204000 * MDREG1=ADDR(MACLIST); /* R1 PTR TO REQ BLOCK @Y30LB02*/ 01205000 L @10,@PC00001+8 0395 01206000 L @10,SSCARGPT(,@10) 0395 01207000 LR MDREG1,@10 0395 01208000 * DMLEN='1C'X; /* LENGTH DEMOUNT REQUEST BLOCK 01209000 * @Y30LB02*/ 01210000 LA @07,28 0396 01211000 ST @07,DMLEN(,@10) 0396 01212000 * DMOPCD='06'X; /* DEMOUNT OPCODE @Y30LB02*/ 01213000 MVI DMOPCD(@10),X'06' 0397 01214000 * SVC(126); /* INVOKE THE SSC SVC @Y30LB02*/ 01215000 SVC 126 0398 01216000 * RFY 0399 01217000 * MDREG1 UNRSTD; /* UNREST REG 1 @Y30LB02 01218000 * #Y30LB30*/ 01219000 * END; /* #Y30LB30*/ 01220000 * GOTO MACEND; /* #Y30LB30*/ 01221000 B MACEND 0401 01222000 * 0402 01223000 * /*****************************************************************/ 01224000 * /* */ 01225000 * /* ISSUE THE EXECUTE FORM OF THE DEFINE MACRO #Y30LB30*/ 01226000 * /* */ 01227000 * /*****************************************************************/ 01228000 * 0402 01229000 *LDEFV1: 0402 01230000 * 0402 01231000 * /*****************************************************************/ 01232000 * /* */ 01233000 * /* ******************************************************** */ 01234000 * /* @Y30LB02*/ 01235000 * /* MACMEAN MSSC DEFINE VOLUME MACRO @Y30LB02*/ 01236000 * /* VS1-4/VS2-3 VERSION-- 06/09/74 LEVEL 00 @Y30LB02*/ 01237000 * /* THIS IS THE OUTPUT FOR THE EXECUTE FORM. @Y30LB02*/ 01238000 * /* THE LIST FORM OF THIS MACRO SHOULD BE @Y30LB02*/ 01239000 * /* INVOKED FIRST IN ORDER TO SET UP NECESSARY @Y30LB02*/ 01240000 * /* DECLARES. IF THE COMPLETE ARGUMENT IS @Y30LB02*/ 01241000 * /* SPECIFIED THE REQ BLOCK WILL BE ZEROED. @Y30LB02*/ 01242000 * /* ******************************************************** */ 01243000 * /* @Y30LB02*/ 01244000 * /* */ 01245000 * /*****************************************************************/ 01246000 * 0402 01247000 * RFY 0402 01248000 * DEFVR1 RSTD; /* RESTRICT REG 1 @Y30LB02*/ 01249000 LDEFV1 DS 0H 0403 01250000 * DEFVR1=ADDR(MACLIST); /* R1 PTR TO REQUEST BLOCK 0403 01251000 * @Y30LB02*/ 01252000 L @10,@PC00001+8 0403 01253000 L @10,SSCARGPT(,@10) 0403 01254000 LR DEFVR1,@10 0403 01255000 * DEFVLEN='84'X; /* LENGTH-DEFINE REQUEST BLOCK 0404 01256000 * @Y30LB02*/ 01257000 LA @07,132 0404 01258000 ST @07,DEFVLEN(,@10) 0404 01259000 * DEFVOPCD='18'X; /* DEFINE VOL OPCODE @Y30LB02*/ 01260000 MVI DEFVOPCD(@10),X'18' 0405 01261000 * DEFVECB=ADDR(ECB); /* ADDRESS OF ECB @Y30LB02*/ 01262000 L @07,ECBPTR 0406 01263000 ST @07,DEFVECB(,@10) 0406 01264000 * SVC(126); /* INVOKE THE MSSC-SVC @Y30LB02*/ 01265000 SVC 126 0407 01266000 * RFY 0408 01267000 * DEFVR1 UNRSTD; /* UNRESTRICT REG 1 @Y30LB02*/ 01268000 * 0408 01269000 * /*****************************************************************/ 01270000 * /* */ 01271000 * /* #Y30LB30*/ 01272000 * /* */ 01273000 * /*****************************************************************/ 01274000 * 0409 01275000 * GOTO MACEND; /* #Y30LB30*/ 01276000 B MACEND 0409 01277000 * 0410 01278000 * /*****************************************************************/ 01279000 * /* */ 01280000 * /* ISSUE THE EXECUTE FORM OF THE MOVE CARTRIDGE MACRO #Y30LB30*/ 01281000 * /* */ 01282000 * /*****************************************************************/ 01283000 * 0410 01284000 *LMCRT1: 0410 01285000 * 0410 01286000 * /*****************************************************************/ 01287000 * /* */ 01288000 * /* ******************************************************* */ 01289000 * /* @Y30LB02*/ 01290000 * /* MACMEAN MSSC MOVE CARTRIDGE MACRO @Y30LB02*/ 01291000 * /* VS1-4/VS2-3 VERSION-- 06/09/74 LEVEL 00 @Y30LB02*/ 01292000 * /* THIS IS THE OUTPUT FOR THE EXECUTE FORM. @Y30LB02*/ 01293000 * /* THE LIST FORM OF THIS MACRO SHOULD BE @Y30LB02*/ 01294000 * /* INVOKED FIRST IN ORDER TO SET UP NECESSARY @Y30LB02*/ 01295000 * /* DECLARES. IF THE COMPLETE ARGUMENT IS @Y30LB02*/ 01296000 * /* SPECIFIED THE REQ BLOCK WILL BE ZEROED. @Y30LB02*/ 01297000 * /* ******************************************************* */ 01298000 * /* @Y30LB02*/ 01299000 * /* */ 01300000 * /*****************************************************************/ 01301000 * 0410 01302000 * RFY 0410 01303000 * (MCR1) RSTD; /* RESTRICT REG 1 @Y30LB02*/ 01304000 LMCRT1 DS 0H 0411 01305000 * MCR1=ADDR(MACLIST); /* R1 PTR TO REQUEST BLOCK 0411 01306000 * @Y30LB02*/ 01307000 L @10,@PC00001+8 0411 01308000 L @10,SSCARGPT(,@10) 0411 01309000 LR MCR1,@10 0411 01310000 * MCRTLEN='30'X; /* LENGTH-MOVE REQUEST @Y30LB02*/ 01311000 LA @07,48 0412 01312000 ST @07,MCRTLEN(,@10) 0412 01313000 * MCRTOPCD='0E'X; /* MOVE CARTRIDGE OPCODE @Y30LB02*/ 01314000 MVI MCRTOPCD(@10),X'0E' 0413 01315000 * MCRTECB=ADDR(ECB); /* ADDRESS OF EVENT CONTROL BLOCK 01316000 * @Y30LB02*/ 01317000 L @07,ECBPTR 0414 01318000 ST @07,MCRTECB(,@10) 0414 01319000 * SVC(126); /* INVOKE THE SVC @Y30LB02*/ 01320000 SVC 126 0415 01321000 * RFY 0416 01322000 * MCR1 UNRSTD; /* UNRESTRICT REG 1 @Y30LB02*/ 01323000 */* #Y30LB30 */ 01324000 * 0417 01325000 * GOTO MACEND; /* #Y30LB30*/ 01326000 B MACEND 0417 01327000 * 0418 01328000 * /*****************************************************************/ 01329000 * /* */ 01330000 * /* ISSUE THE EXECUTE FORM OF THE TRACE MACRO. #Y30LB30*/ 01331000 * /* */ 01332000 * /*****************************************************************/ 01333000 * 0418 01334000 *LTRACE1: 0418 01335000 * 0418 01336000 * /*****************************************************************/ 01337000 * /* */ 01338000 * /* ******************************************************* */ 01339000 * /* @Y30LB02*/ 01340000 * /* MACMEAN MSSC TRACE MACRO @Y30LB02*/ 01341000 * /* VS1-4/VS2-3 VERSION-- 06/09/74 LEVEL 00 @Y30LB02*/ 01342000 * /* THIS IS THE OUTPUT FOR THE EXECUTE FORM. @Y30LB02*/ 01343000 * /* THE LIST FORM OF THIS MACRO SHOULD BE @Y30LB02*/ 01344000 * /* INVOKED FIRST IN ORDER TO SET UP NECESSARY @Y30LB02*/ 01345000 * /* DECLARES. IF THE COMPLETE ARGUMENT IS @Y30LB02*/ 01346000 * /* */ 01347000 * /*****************************************************************/ 01348000 * 0418 01349000 * /* SPECIFIED THE REQ BLOCK WILL 01350000 * BE ZEROED. @Y30LB02*/ 01351000 * 0418 01352000 * /*****************************************************************/ 01353000 * /* */ 01354000 * /* ******************************************************* */ 01355000 * /* @Y30LB02*/ 01356000 * /* */ 01357000 * /*****************************************************************/ 01358000 * 0418 01359000 * RFY 0418 01360000 * (TRACR1) RSTD; /* RESTRICT REG1 @Y30LB02*/ 01361000 LTRACE1 DS 0H 0419 01362000 * TRACR1=ADDR(MACLIST); /* R1 POINTER TO REQUEST BLOCK 0419 01363000 * @Y30LB02*/ 01364000 L @10,@PC00001+8 0419 01365000 L @10,SSCARGPT(,@10) 0419 01366000 LR TRACR1,@10 0419 01367000 * TRACLEN='10'X; /* LENGTH OF TRACE REQUEST 0420 01368000 * @Y30LB02*/ 01369000 LA @07,16 0420 01370000 ST @07,TRACLEN(,@10) 0420 01371000 * TRACOPC='24'X; /* TRACE OPCODE @Y30LB02*/ 01372000 MVI TRACOPC(@10),X'24' 0421 01373000 * SVC(126); /* INVOKE SVC 126 @Y30LB02*/ 01374000 SVC 126 0422 01375000 * RFY 0423 01376000 * TRACR1 UNRSTD; /* UNRESTRICT REG 1 @Y30LB02*/ 01377000 * 0423 01378000 * /*****************************************************************/ 01379000 * /* */ 01380000 * /* #Y30LB30*/ 01381000 * /* */ 01382000 * /*****************************************************************/ 01383000 * 0424 01384000 * GOTO MACEND; /* #Y30LB30*/ 01385000 B MACEND 0424 01386000 * 0425 01387000 * /*****************************************************************/ 01388000 * /* */ 01389000 * /* ISSUE THE EXECUTE FORM OF THE COPY TABLES MACRO #Y30LB30*/ 01390000 * /* */ 01391000 * /*****************************************************************/ 01392000 * 0425 01393000 *LCOTB1: 0425 01394000 * 0425 01395000 * /*****************************************************************/ 01396000 * /* */ 01397000 * /* ******************************************************* */ 01398000 * /* @Y30LB02*/ 01399000 * /* MACMEAN MSSC COPY TABLES MACRO @Y30LB02*/ 01400000 * /* VS1-4/VS2-3 VERSION-- 06/09/74 LEVEL 00 @Y30LB02*/ 01401000 * /* THIS IS THE OUTPUT FOR THE EXECUTE FORM. @Y30LB02*/ 01402000 * /* THE LIST FORM OF THIS MACRO SHOULD BE @Y30LB02*/ 01403000 * /* INVOKED FIRST IN ORDER TO SET UP NECESSARY @Y30LB02*/ 01404000 * /* DECLARES. IF THE COMPLETE ARGUMENT IS @Y30LB02*/ 01405000 * /* SPECIFIED THE REQ BLOCK WILL BE ZEROED. @Y30LB02*/ 01406000 * /* ******************************************************* */ 01407000 * /* @Y30LB02*/ 01408000 * /* */ 01409000 * /*****************************************************************/ 01410000 * 0425 01411000 * RFY 0425 01412000 * (COTBR1) RSTD; /* RESTRICT REGISTER 1 @Y30LB02*/ 01413000 LCOTB1 DS 0H 0426 01414000 * COTBR1=ADDR(MACLIST); /* SET COTBR1 TO ADDR OF REQ BLK 01415000 * @Y30LB02*/ 01416000 L @10,@PC00001+8 0426 01417000 L @10,SSCARGPT(,@10) 0426 01418000 LR COTBR1,@10 0426 01419000 * COTBLL='18'X; /* SET LENGTH FIELD @Y30LB02*/ 01420000 LA @07,24 0427 01421000 ST @07,COTBLL(,@10) 0427 01422000 * COTBOP='16'X; /* OPCODE @Y30LB02*/ 01423000 MVI COTBOP(@10),X'16' 0428 01424000 * COTBECB=ADDR(ECB); /* FILL IN ECB FIELD @Y30LB02*/ 01425000 L @07,ECBPTR 0429 01426000 ST @07,COTBECB(,@10) 0429 01427000 * SVC(126); /* ISSUE SVC INSTRUCTION @Y30LB02*/ 01428000 SVC 126 0430 01429000 * RFY 0431 01430000 * COTBR1 UNRSTD; /* UNRESTRCT REG 1 @Y30LB02*/ 01431000 * 0431 01432000 * /*****************************************************************/ 01433000 * /* */ 01434000 * /* #Y30LB30*/ 01435000 * /* */ 01436000 * /*****************************************************************/ 01437000 * 0432 01438000 * GOTO MACEND; /* #Y30LB30*/ 01439000 B MACEND 0432 01440000 * 0433 01441000 * /*****************************************************************/ 01442000 * /* */ 01443000 * /* ISSUE THE EXECUTE FORM OF THE COPY CARTRIDGE MACRO #Y30LB30*/ 01444000 * /* */ 01445000 * /*****************************************************************/ 01446000 * 0433 01447000 *LCOVC1: 0433 01448000 * 0433 01449000 * /*****************************************************************/ 01450000 * /* */ 01451000 * /* ******************************************************* */ 01452000 * /* @Y30LB02*/ 01453000 * /* MACMEAN MSSC COPY VOLUME/CARTRIDGE MACRO @Y30LB02*/ 01454000 * /* VS1-4/VS2-3 VERSION-- 06/09/74 LEVEL 00 @Y30LB02*/ 01455000 * /* THIS IS THE OUTPUT FOR THE EXECUTE FORM. @Y30LB02*/ 01456000 * /* THE LIST FORM OF THIS MACRO SHOULD BE @Y30LB02*/ 01457000 * /* INVOKED FIRST IN ORDER TO SET UP NECESSARY @Y30LB02*/ 01458000 * /* DECLARES. IF THE COMPLETE ARGUMENT IS @Y30LB02*/ 01459000 * /* SPECIFIED THE REQ BLOCK WILL BE ZEROED. @Y30LB02*/ 01460000 * /* ******************************************************* */ 01461000 * /* @Y30LB02*/ 01462000 * /* */ 01463000 * /*****************************************************************/ 01464000 * 0433 01465000 * RFY 0433 01466000 * (CVOLR1) RSTD; /* RESTRICT REG 1 @Y30LB02*/ 01467000 LCOVC1 DS 0H 0434 01468000 * CVOLR1=ADDR(MACLIST); /* R1 PTR TO LIST @Y30LB02*/ 01469000 L @10,@PC00001+8 0434 01470000 L @10,SSCARGPT(,@10) 0434 01471000 LR CVOLR1,@10 0434 01472000 * CCRTLEN='20'X; /* LENGTH COPY CARTRIDGE REQUEST 01473000 * BLOCK @Y30LB02*/ 01474000 LA @07,32 0435 01475000 ST @07,CCRTLEN(,@10) 0435 01476000 * CCRTOPCD='28'X; /* OPCODE FOR COPY CARTRIDGE LIST 01477000 * @Y30LB02*/ 01478000 MVI CCRTOPCD(@10),X'28' 0436 01479000 * CCRTECB=ADDR(ECB); /* ADDRESS OF ECB @Y30LB02*/ 01480000 L @07,ECBPTR 0437 01481000 ST @07,CCRTECB(,@10) 0437 01482000 * SVC(126); /* INVOKE THE SVC @Y30LB02*/ 01483000 SVC 126 0438 01484000 * RFY 0439 01485000 * CVOLR1 UNRSTD; /* UNRESTRICT REG 1 @Y30LB02 01486000 * #Y30LB30*/ 01487000 * GOTO MACEND; /* #Y30LB30*/ 01488000 B MACEND 0440 01489000 * 0441 01490000 * /*****************************************************************/ 01491000 * /* */ 01492000 * /* ISSUE THE EXECUTE FORM OF THE COPY VOLUME MACRO. #Y30LB30*/ 01493000 * /* */ 01494000 * /*****************************************************************/ 01495000 * 0441 01496000 *LCOVC2: 0441 01497000 * 0441 01498000 * /*****************************************************************/ 01499000 * /* */ 01500000 * /* ******************************************************* */ 01501000 * /* @Y30LB02*/ 01502000 * /* MACMEAN MSSC COPY VOLUME/CARTRIDGE MACRO @Y30LB02*/ 01503000 * /* VS1-4/VS2-3 VERSION-- 06/09/74 LEVEL 00 @Y30LB02*/ 01504000 * /* THIS IS THE OUTPUT FOR THE EXECUTE FORM. @Y30LB02*/ 01505000 * /* THE LIST FORM OF THIS MACRO SHOULD BE @Y30LB02*/ 01506000 * /* INVOKED FIRST IN ORDER TO SET UP NECESSARY @Y30LB02*/ 01507000 * /* DECLARES. IF THE COMPLETE ARGUMENT IS @Y30LB02*/ 01508000 * /* SPECIFIED THE REQ BLOCK WILL BE ZEROED. @Y30LB02*/ 01509000 * /* ******************************************************* */ 01510000 * /* @Y30LB02*/ 01511000 * /* */ 01512000 * /*****************************************************************/ 01513000 * 0441 01514000 * RFY 0441 01515000 * (CVOLR1) RSTD; /* RESTRICT REG 1 @Y30LB02*/ 01516000 LCOVC2 DS 0H 0442 01517000 * CVOLR1=ADDR(MACLIST); /* R1 PTR TO LIST @Y30LB02*/ 01518000 L @10,@PC00001+8 0442 01519000 L @10,SSCARGPT(,@10) 0442 01520000 LR CVOLR1,@10 0442 01521000 * CVOLLEN='28'X; /* LENGTH OF COPY VOLUME REQUEST 01522000 * BLOCK @Y30LB02*/ 01523000 LA @07,40 0443 01524000 ST @07,CVOLLEN(,@10) 0443 01525000 * CVOLOPCD='2A'X; /* COPYVL OPCODE @Y30LB02*/ 01526000 MVI CVOLOPCD(@10),X'2A' 0444 01527000 * CVOLECB=ADDR(ECB); /* ADDRESS OF ECB @Y30LB02*/ 01528000 L @07,ECBPTR 0445 01529000 ST @07,CVOLECB(,@10) 0445 01530000 * SVC(126); /* INVOKE THE SVC @Y30LB02*/ 01531000 SVC 126 0446 01532000 * RFY 0447 01533000 * CVOLR1 UNRSTD; /* UNRESTRICT REG 1 @Y30LB02 01534000 * #Y30LB30*/ 01535000 * GOTO MACEND; /* #Y30LB30*/ 01536000 B MACEND 0448 01537000 * 0449 01538000 * /*****************************************************************/ 01539000 * /* */ 01540000 * /* ISSUE THE EXECUTE FORM OF THE VVIC MACRO. #Y30LB30*/ 01541000 * /* */ 01542000 * /*****************************************************************/ 01543000 * 0449 01544000 * RFY 0449 01545000 * REG1 RESTRICTED; /* #Y30LB30*/ 01546000 *LVVIC1: 0450 01547000 * REG1=SSCARGPT; /* #Y30LB30*/ 01548000 LVVIC1 L @10,@PC00001+8 0450 01549000 L REG1,SSCARGPT(,@10) 0450 01550000 * SVC(126); /* INVOKE SVC 126 */ 01551000 * 0451 01552000 SVC 126 0451 01553000 * /*****************************************************************/ 01554000 * /* */ 01555000 * /* #Y30LB30*/ 01556000 * /* */ 01557000 * /*****************************************************************/ 01558000 * 0452 01559000 * GOTO MACEND; /* #Y30LB30*/ 01560000 B MACEND 0452 01561000 * RFY 0453 01562000 * REG1 UNRESTRICTED; /* #Y30LB30*/ 01563000 * 0454 01564000 * /*****************************************************************/ 01565000 * /* */ 01566000 * /* ISSUE THE EXECUTE FORM OF THE TUNE MACRO. #Y30LB30*/ 01567000 * /* SPECIFY THE ECB ADDRESS IF ONE HAS BEEN OBTAINED. #Y30LB30*/ 01568000 * /* */ 01569000 * /*****************************************************************/ 01570000 * 0454 01571000 *LTUNE1: 0454 01572000 * IF ECBPTR^=NULLPTR THEN /* #Y30LB30*/ 01573000 LTUNE1 L @10,ECBPTR 0454 01574000 LTR @10,@10 0454 01575000 BZ @RF00454 0454 01576000 * DO; /* #Y30LB30*/ 01577000 * 0455 01578000 * /*************************************************************/ 01579000 * /* */ 01580000 * /* ******************************************************** */ 01581000 * /* @Y30LB02*/ 01582000 * /* MACMEAN MSSC TUNING MACRO @Y30LB02*/ 01583000 * /* VS1-4/VS2-3 VERSION-- 06/09/74 LEVEL 00 @Y30LB02*/ 01584000 * /* THIS IS THE OUTPUT FOR THE EXECUTE FORM. @Y30LB02*/ 01585000 * /* THE LIST FORM OF THIS MACRO SHOULD BE @Y30LB02*/ 01586000 * /* INVOKED FIRST IN ORDER TO SET UP NECESSARY @Y30LB02*/ 01587000 * /* DECLARES. IF THE COMPLETE ARGUMENT IS @Y30LB02*/ 01588000 * /* SPECIFIED THE REQ BLOCK WILL BE ZEROED. @Y30LB02*/ 01589000 * /* ******************************************************** */ 01590000 * /* @Y30LB02*/ 01591000 * /* */ 01592000 * /*************************************************************/ 01593000 * 0456 01594000 * RFY 0456 01595000 * (TUNER1) RSTD; /* RESTRICT REG 1 @Y30LB02*/ 01596000 * TUNER1=ADDR(MACLIST); /* R1 POINTER TO REQUEST BLOCK 0457 01597000 * @Y30LB02*/ 01598000 L @07,@PC00001+8 0457 01599000 L @07,SSCARGPT(,@07) 0457 01600000 LR TUNER1,@07 0457 01601000 * TUNELEN='14'X; /* LENGTH OF TUNING REQUEST 0458 01602000 * @Y30LB02*/ 01603000 LA @04,20 0458 01604000 ST @04,TUNELEN(,@07) 0458 01605000 * TUNEOPCD='1C'X; /* TUNING OPCODE @Y30LB02*/ 01606000 MVI TUNEOPCD(@07),X'1C' 0459 01607000 * TUNEECB=ADDR(ECB); /* EVENT CONTROL BLOCK ADDRESS 0460 01608000 * LOADED @Y30LB02*/ 01609000 ST @10,TUNEECB(,@07) 0460 01610000 * SVC(126); /* INVOKE THE SVC @Y30LB02*/ 01611000 SVC 126 0461 01612000 * RFY 0462 01613000 * (TUNER1) UNRSTD; /* UNRSTD REG ONE @Y30LB02*/ 01614000 * 0462 01615000 * /*************************************************************/ 01616000 * /* */ 01617000 * /* #Y30LB30*/ 01618000 * /* */ 01619000 * /*************************************************************/ 01620000 * 0463 01621000 * END; /* #Y30LB30*/ 01622000 * 0464 01623000 * /*****************************************************************/ 01624000 * /* */ 01625000 * /* DO NOT SPECIFY THE ECB ADDRESS IF ONE HAS NOT BEEN #Y30LB30*/ 01626000 * /* OBTAINED. #Y30LB30*/ 01627000 * /* */ 01628000 * /*****************************************************************/ 01629000 * 0464 01630000 * ELSE /* #Y30LB30*/ 01631000 * DO; /* #Y30LB30*/ 01632000 B @RC00454 0464 01633000 @RF00454 DS 0H 0465 01634000 *LTUNE2: 0465 01635000 * 0465 01636000 * /*************************************************************/ 01637000 * /* */ 01638000 * /* ******************************************************** */ 01639000 * /* @Y30LB02*/ 01640000 * /* MACMEAN MSSC TUNING MACRO @Y30LB02*/ 01641000 * /* VS1-4/VS2-3 VERSION-- 06/09/74 LEVEL 00 @Y30LB02*/ 01642000 * /* THIS IS THE OUTPUT FOR THE EXECUTE FORM. @Y30LB02*/ 01643000 * /* THE LIST FORM OF THIS MACRO SHOULD BE @Y30LB02*/ 01644000 * /* INVOKED FIRST IN ORDER TO SET UP NECESSARY @Y30LB02*/ 01645000 * /* DECLARES. IF THE COMPLETE ARGUMENT IS @Y30LB02*/ 01646000 * /* SPECIFIED THE REQ BLOCK WILL BE ZEROED. @Y30LB02*/ 01647000 * /* ******************************************************** */ 01648000 * /* @Y30LB02*/ 01649000 * /* */ 01650000 * /*************************************************************/ 01651000 * 0465 01652000 * RFY 0465 01653000 * (TUNER1) RSTD; /* RESTRICT REG 1 @Y30LB02*/ 01654000 LTUNE2 DS 0H 0466 01655000 * TUNER1=ADDR(MACLIST); /* R1 POINTER TO REQUEST BLOCK 0466 01656000 * @Y30LB02*/ 01657000 L @10,@PC00001+8 0466 01658000 L @10,SSCARGPT(,@10) 0466 01659000 LR TUNER1,@10 0466 01660000 * TUNELEN='14'X; /* LENGTH OF TUNING REQUEST 0467 01661000 * @Y30LB02*/ 01662000 LA @07,20 0467 01663000 ST @07,TUNELEN(,@10) 0467 01664000 * TUNEOPCD='1C'X; /* TUNING OPCODE @Y30LB02*/ 01665000 MVI TUNEOPCD(@10),X'1C' 0468 01666000 * SVC(126); /* INVOKE THE SVC @Y30LB02*/ 01667000 SVC 126 0469 01668000 * RFY 0470 01669000 * (TUNER1) UNRSTD; /* UNRSTD REG ONE @Y30LB02*/ 01670000 * 0470 01671000 * /*************************************************************/ 01672000 * /* */ 01673000 * /* #Y30LB30*/ 01674000 * /* */ 01675000 * /*************************************************************/ 01676000 * 0471 01677000 * END; /* #Y30LB30*/ 01678000 * GOTO MACEND; /* #Y30LB30*/ 01679000 * 0472 01680000 B MACEND 0472 01681000 * /*****************************************************************/ 01682000 * /* */ 01683000 * /* ISSUE THE EXECUTE FORM OF THE NULLIFYC MACRO @Z40LB63*/ 01684000 * /* */ 01685000 * /*****************************************************************/ 01686000 * 0473 01687000 *LNULL1: 0473 01688000 * 0473 01689000 * /*****************************************************************/ 01690000 * /* */ 01691000 * /* ******************************************************* */ 01692000 * /* @Y40LB22*/ 01693000 * /* MSSC NULLIFY VOLUME/CARTRIDGE MACRO @Y40LB22*/ 01694000 * /* VS1-4/VS2-3 VERSION-- 03/14/75 LEVEL 00 @Y40LB22*/ 01695000 * /* THIS IS THE OUTPUT FOR THE EXECUTE FORM. @Y40LB22*/ 01696000 * /* THE LIST FORM OF THIS MACRO SHOULD BE @Y40LB22*/ 01697000 * /* INVOKED FIRST IN ORDER TO SET UP NECESSARY @Y40LB22*/ 01698000 * /* DECLARES. IF THE COMPLETE ARGUMENT IS @Y40LB22*/ 01699000 * /* SPECIFIED THE REQ BLOCK WILL BE ZEROED. @Y40LB22*/ 01700000 * /* ******************************************************* */ 01701000 * /* @Y40LB22*/ 01702000 * /* */ 01703000 * /*****************************************************************/ 01704000 * 0473 01705000 * RFY 0473 01706000 * (NULBR1) RSTD; /* RESTRICT REGISTER 1 @Y40LB22*/ 01707000 LNULL1 DS 0H 0474 01708000 * NULBR1=ADDR(MACLIST); /* SET NULBR1 TO ADDR OF REQ BLK 01709000 * @Y40LB22*/ 01710000 L @10,@PC00001+8 0474 01711000 L @10,SSCARGPT(,@10) 0474 01712000 LR NULBR1,@10 0474 01713000 * NULENGTH='2C'X; /* SET LENGTH FIELD @Y40LB22*/ 01714000 LA @07,44 0475 01715000 ST @07,NULENGTH(,@10) 0475 01716000 * NULORDER='09'X; /* OPCODE @Y40LB22*/ 01717000 MVI NULORDER(@10),X'09' 0476 01718000 * NULECB=ADDR(ECB); /* FILL IN ECB FIELD @Y40LB22*/ 01719000 L @07,ECBPTR 0477 01720000 ST @07,NULECB(,@10) 0477 01721000 * SVC(126); /* ISSUE SVC INSTRUCTION @Y40LB22*/ 01722000 SVC 126 0478 01723000 * RFY 0479 01724000 * NULBR1 UNRSTD; /* UNRESTRCT REG 1 @Y40LB22*/ 01725000 */* @Z40LB63 */ 01726000 * 0480 01727000 * GOTO MACEND; /* @Z40LB63*/ 01728000 B MACEND 0480 01729000 * 0481 01730000 * /*****************************************************************/ 01731000 * /* */ 01732000 * /* ISSUE THE EXECUTE FORM OF THE QUERY MACRO TO READ @Z40LB63*/ 01733000 * /* MSC STORAGE @Z40LB63*/ 01734000 * /* */ 01735000 * /*****************************************************************/ 01736000 * 0481 01737000 *LRMSC1: 0481 01738000 * 0481 01739000 * /*****************************************************************/ 01740000 * /* */ 01741000 * /* ******************************************************* */ 01742000 * /* @Z40LB22*/ 01743000 * /* MSSC ICBQUERY QSWCS/QLAB/QTAB/QSWCS QCEL MACRO @Z40LB22*/ 01744000 * /* OS/VS2 VERSION-- 03/21/75 LEVEL 00 @Z40LB22*/ 01745000 * /* THIS IS THE OUTPUT FOR THE EXECUTE FORM. @Z40LB22*/ 01746000 * /* THE LIST FORM OF THIS MACRO SHOULD BE @Z40LB22*/ 01747000 * /* INVOKED FIRST IN ORDER TO SET UP NECESSARY @Z40LB22*/ 01748000 * /* DECLARES. IF THE COMPLETE ARGUMENT IS @Z40LB22*/ 01749000 * /* SPECIFIED THE REQ BLOCK WILL BE ZEROED. @Z40LB22*/ 01750000 * /* ******************************************************* */ 01751000 * /* @Z40LB22*/ 01752000 * /* */ 01753000 * /*****************************************************************/ 01754000 * 0481 01755000 * RFY 0481 01756000 * (QUERR1) RSTD; /* RESTRICT R1 @Z40LB22*/ 01757000 LRMSC1 DS 0H 0482 01758000 * QUERR1=ADDR(MACLIST); /* SET QUERR1 TO REQ BLOCK 0482 01759000 * @Z40LB22*/ 01760000 L @10,@PC00001+8 0482 01761000 L @10,SSCARGPT(,@10) 0482 01762000 LR QUERR1,@10 0482 01763000 * QULEN='2C'X; /* SET LENGTH FIELD @Z40LB22*/ 01764000 LA @07,44 0483 01765000 ST @07,QULEN(,@10) 0483 01766000 * QUORD='0B'X; /* SET OPCODE FIELD @Z40LB22*/ 01767000 MVI QUORD(@10),X'0B' 0484 01768000 * QUCODE='03'X; /* SET CODE TYPE @Z40LB22*/ 01769000 MVI QUCODE(@10),X'03' 0485 01770000 * SVC(126); /* ISSUE SVC INST. @Z40LB22*/ 01771000 SVC 126 0486 01772000 * RFY 0487 01773000 * (QUERR1) UNRSTD; /* UNRESTRICT R1 @Z40LB22 01774000 * @Z40LB63*/ 01775000 * GOTO MACEND; /* @Z40LB63*/ 01776000 B MACEND 0488 01777000 * 0489 01778000 * /*****************************************************************/ 01779000 * /* */ 01780000 * /* ISSUE THE EXECUTE FORM OF THE QUERY MACRO TO READ @Z40LB63*/ 01781000 * /* MSC TABLES @Z40LB63*/ 01782000 * /* */ 01783000 * /*****************************************************************/ 01784000 * 0489 01785000 *LRMSCT1: 0489 01786000 * 0489 01787000 * /*****************************************************************/ 01788000 * /* */ 01789000 * /* ******************************************************* */ 01790000 * /* @Z40LB22*/ 01791000 * /* MSSC ICBQUERY QSWCS/QLAB/QTAB/QSWCS QCEL MACRO @Z40LB22*/ 01792000 * /* OS/VS2 VERSION-- 03/21/75 LEVEL 00 @Z40LB22*/ 01793000 * /* THIS IS THE OUTPUT FOR THE EXECUTE FORM. @Z40LB22*/ 01794000 * /* THE LIST FORM OF THIS MACRO SHOULD BE @Z40LB22*/ 01795000 * /* INVOKED FIRST IN ORDER TO SET UP NECESSARY @Z40LB22*/ 01796000 * /* DECLARES. IF THE COMPLETE ARGUMENT IS @Z40LB22*/ 01797000 * /* SPECIFIED THE REQ BLOCK WILL BE ZEROED. @Z40LB22*/ 01798000 * /* ******************************************************* */ 01799000 * /* @Z40LB22*/ 01800000 * /* */ 01801000 * /*****************************************************************/ 01802000 * 0489 01803000 * RFY 0489 01804000 * (QUERR1) RSTD; /* RESTRICT R1 @Z40LB22*/ 01805000 LRMSCT1 DS 0H 0490 01806000 * QUERR1=ADDR(MACLIST); /* SET QUERR1 TO REQ BLOCK 0490 01807000 * @Z40LB22*/ 01808000 L @10,@PC00001+8 0490 01809000 L @10,SSCARGPT(,@10) 0490 01810000 LR QUERR1,@10 0490 01811000 * QULEN='2C'X; /* SET LENGTH FIELD @Z40LB22*/ 01812000 LA @07,44 0491 01813000 ST @07,QULEN(,@10) 0491 01814000 * QUORD='05'X; /* SET OPCODE FIELD @Z40LB22*/ 01815000 MVI QUORD(@10),X'05' 0492 01816000 * QUCODE='06'X; /* SET CODE TYPE @Z40LB22*/ 01817000 MVI QUCODE(@10),X'06' 0493 01818000 * SVC(126); /* ISSUE SVC INST. @Z40LB22*/ 01819000 SVC 126 0494 01820000 * RFY 0495 01821000 * (QUERR1) UNRSTD; /* UNRESTRICT R1 @Z40LB22 01822000 * @Z40LB63*/ 01823000 * GOTO MACEND; /* @Z40LB63*/ 01824000 B MACEND 0496 01825000 * 0497 01826000 * /*****************************************************************/ 01827000 * /* */ 01828000 * /* ISSUE THE EXECUTE FORM OF THE QUERY MACRO TO READ @Z40LB63*/ 01829000 * /* STAGING ADAPTER STORAGE @Z40LB63*/ 01830000 * /* */ 01831000 * /*****************************************************************/ 01832000 * 0497 01833000 *LSA1: 0497 01834000 * 0497 01835000 * /*****************************************************************/ 01836000 * /* */ 01837000 * /* ******************************************************* */ 01838000 * /* @Z40LB22*/ 01839000 * /* MSSC ICBQUERY QSWCS/QLAB/QTAB/QSWCS QCEL MACRO @Z40LB22*/ 01840000 * /* OS/VS2 VERSION-- 03/21/75 LEVEL 00 @Z40LB22*/ 01841000 * /* THIS IS THE OUTPUT FOR THE EXECUTE FORM. @Z40LB22*/ 01842000 * /* THE LIST FORM OF THIS MACRO SHOULD BE @Z40LB22*/ 01843000 * /* INVOKED FIRST IN ORDER TO SET UP NECESSARY @Z40LB22*/ 01844000 * /* DECLARES. IF THE COMPLETE ARGUMENT IS @Z40LB22*/ 01845000 * /* SPECIFIED THE REQ BLOCK WILL BE ZEROED. @Z40LB22*/ 01846000 * /* ******************************************************* */ 01847000 * /* @Z40LB22*/ 01848000 * /* */ 01849000 * /*****************************************************************/ 01850000 * 0497 01851000 * RFY 0497 01852000 * (QUERR1) RSTD; /* RESTRICT R1 @Z40LB22*/ 01853000 LSA1 DS 0H 0498 01854000 * QUERR1=ADDR(MACLIST); /* SET QUERR1 TO REQ BLOCK 0498 01855000 * @Z40LB22*/ 01856000 L @10,@PC00001+8 0498 01857000 L @10,SSCARGPT(,@10) 0498 01858000 LR QUERR1,@10 0498 01859000 * QULEN='2C'X; /* SET LENGTH FIELD @Z40LB22*/ 01860000 LA @07,44 0499 01861000 ST @07,QULEN(,@10) 0499 01862000 * QUORD='05'X; /* SET OPCODE FIELD @Z40LB22*/ 01863000 MVI QUORD(@10),X'05' 0500 01864000 * QUCODE='10'X; /* SET CODE TYPE @Z40LB22*/ 01865000 MVI QUCODE(@10),X'10' 0501 01866000 * SVC(126); /* ISSUE SVC INST. @Z40LB22*/ 01867000 SVC 126 0502 01868000 * RFY 0503 01869000 * (QUERR1) UNRSTD; /* UNRESTRICT R1 @Z40LB22 01870000 * @Z40LB63*/ 01871000 * GOTO MACEND; /* @Z40LB63*/ 01872000 B MACEND 0504 01873000 * 0505 01874000 * /*****************************************************************/ 01875000 * /* */ 01876000 * /* ISSUE THE EXECUTE FORM OF THE QUERY MACRO TO READ @Z40LB63*/ 01877000 * /* A CARTRIDGE LABEL @Z40LB63*/ 01878000 * /* */ 01879000 * /*****************************************************************/ 01880000 * 0505 01881000 *LRLAB1: 0505 01882000 * 0505 01883000 * /*****************************************************************/ 01884000 * /* */ 01885000 * /* ******************************************************* */ 01886000 * /* @Z40LB22*/ 01887000 * /* MSSC ICBQUERY QSWCS/QLAB/QTAB/QSWCS QCEL MACRO @Z40LB22*/ 01888000 * /* OS/VS2 VERSION-- 03/21/75 LEVEL 00 @Z40LB22*/ 01889000 * /* THIS IS THE OUTPUT FOR THE EXECUTE FORM. @Z40LB22*/ 01890000 * /* THE LIST FORM OF THIS MACRO SHOULD BE @Z40LB22*/ 01891000 * /* INVOKED FIRST IN ORDER TO SET UP NECESSARY @Z40LB22*/ 01892000 * /* DECLARES. IF THE COMPLETE ARGUMENT IS @Z40LB22*/ 01893000 * /* SPECIFIED THE REQ BLOCK WILL BE ZEROED. @Z40LB22*/ 01894000 * /* ******************************************************* */ 01895000 * /* @Z40LB22*/ 01896000 * /* */ 01897000 * /*****************************************************************/ 01898000 * 0505 01899000 * RFY 0505 01900000 * (QUERR1) RSTD; /* RESTRICT R1 @Z40LB22*/ 01901000 LRLAB1 DS 0H 0506 01902000 * QUERR1=ADDR(MACLIST); /* SET QUERR1 TO REQ BLOCK 0506 01903000 * @Z40LB22*/ 01904000 L @10,@PC00001+8 0506 01905000 L @10,SSCARGPT(,@10) 0506 01906000 LR QUERR1,@10 0506 01907000 * QULEN='2C'X; /* SET LENGTH FIELD @Z40LB22*/ 01908000 LA @07,44 0507 01909000 ST @07,QULEN(,@10) 0507 01910000 * QUORD='05'X; /* SET OPCODE FIELD @Z40LB22*/ 01911000 MVI QUORD(@10),X'05' 0508 01912000 * QUCODE='08'X; /* SET CODE TYPE @Z40LB22*/ 01913000 MVI QUCODE(@10),X'08' 0509 01914000 * QUFLAG='10'X; /* SET CODE FLAG @Z40LB22*/ 01915000 MVI QUFLAG(@10),X'10' 0510 01916000 * SVC(126); /* ISSUE SVC INST. @Z40LB22*/ 01917000 SVC 126 0511 01918000 * RFY 0512 01919000 * (QUERR1) UNRSTD; /* UNRESTRICT R1 @Z40LB22 01920000 * @Z40LB63*/ 01921000 * GOTO MACEND; /* @Z40LB63*/ 01922000 B MACEND 0513 01923000 * 0514 01924000 * /*****************************************************************/ 01925000 * /* */ 01926000 * /* ISSUE THE EXECUTE FORM OF THE QUERY MACRO TO @Z40LB63*/ 01927000 * /* DO A CELL AUDIT @Z40LB63*/ 01928000 * /* */ 01929000 * /*****************************************************************/ 01930000 * 0514 01931000 *LCELA1: 0514 01932000 * 0514 01933000 * /*****************************************************************/ 01934000 * /* */ 01935000 * /* ******************************************************* */ 01936000 * /* @Z40LB22*/ 01937000 * /* MSSC ICBQUERY QSWCS/QLAB/QTAB/QSWCS QCEL MACRO @Z40LB22*/ 01938000 * /* OS/VS2 VERSION-- 03/21/75 LEVEL 00 @Z40LB22*/ 01939000 * /* THIS IS THE OUTPUT FOR THE EXECUTE FORM. @Z40LB22*/ 01940000 * /* THE LIST FORM OF THIS MACRO SHOULD BE @Z40LB22*/ 01941000 * /* INVOKED FIRST IN ORDER TO SET UP NECESSARY @Z40LB22*/ 01942000 * /* DECLARES. IF THE COMPLETE ARGUMENT IS @Z40LB22*/ 01943000 * /* SPECIFIED THE REQ BLOCK WILL BE ZEROED. @Z40LB22*/ 01944000 * /* ******************************************************* */ 01945000 * /* @Z40LB22*/ 01946000 * /* */ 01947000 * /*****************************************************************/ 01948000 * 0514 01949000 * RFY 0514 01950000 * (QUERR1) RSTD; /* RESTRICT R1 @Z40LB22*/ 01951000 LCELA1 DS 0H 0515 01952000 * QUERR1=ADDR(MACLIST); /* SET QUERR1 TO REQ BLOCK 0515 01953000 * @Z40LB22*/ 01954000 L @10,@PC00001+8 0515 01955000 L @10,SSCARGPT(,@10) 0515 01956000 LR QUERR1,@10 0515 01957000 * QULEN='2C'X; /* SET LENGTH FIELD @Z40LB22*/ 01958000 LA @07,44 0516 01959000 ST @07,QULEN(,@10) 0516 01960000 * QUORD='07'X; /* SET OPCODE FIELD @Z40LB22*/ 01961000 MVI QUORD(@10),X'07' 0517 01962000 * SVC(126); /* ISSUE SVC INST. @Z40LB22*/ 01963000 SVC 126 0518 01964000 * RFY 0519 01965000 * (QUERR1) UNRSTD; /* UNRESTRICT R1 @Z40LB22 01966000 * @Z40LB63*/ 01967000 * GOTO MACEND; /* @Z40LB63*/ 01968000 B MACEND 0520 01969000 * 0521 01970000 * /*****************************************************************/ 01971000 * /* */ 01972000 * /* ISSUE THE EXECUTE FORM OF THE COPY TABLES MACRO WITH NO ECB - */ 01973000 * /* FOR AN INTERNAL TABLE RESTORE @Z40LB63*/ 01974000 * /* */ 01975000 * /*****************************************************************/ 01976000 * 0521 01977000 *LTBLR1: 0521 01978000 * 0521 01979000 * /*****************************************************************/ 01980000 * /* */ 01981000 * /* ******************************************************* */ 01982000 * /* @Y30LB02*/ 01983000 * /* MACMEAN MSSC COPY TABLES MACRO @Y30LB02*/ 01984000 * /* VS1-4/VS2-3 VERSION-- 06/09/74 LEVEL 00 @Y30LB02*/ 01985000 * /* THIS IS THE OUTPUT FOR THE EXECUTE FORM. @Y30LB02*/ 01986000 * /* THE LIST FORM OF THIS MACRO SHOULD BE @Y30LB02*/ 01987000 * /* INVOKED FIRST IN ORDER TO SET UP NECESSARY @Y30LB02*/ 01988000 * /* DECLARES. IF THE COMPLETE ARGUMENT IS @Y30LB02*/ 01989000 * /* SPECIFIED THE REQ BLOCK WILL BE ZEROED. @Y30LB02*/ 01990000 * /* ******************************************************* */ 01991000 * /* @Y30LB02*/ 01992000 * /* */ 01993000 * /*****************************************************************/ 01994000 * 0521 01995000 * RFY 0521 01996000 * (COTBR1) RSTD; /* RESTRICT REGISTER 1 @Y30LB02*/ 01997000 LTBLR1 DS 0H 0522 01998000 * COTBR1=ADDR(MACLIST); /* SET COTBR1 TO ADDR OF REQ BLK 01999000 * @Y30LB02*/ 02000000 L @10,@PC00001+8 0522 02001000 L @10,SSCARGPT(,@10) 0522 02002000 LR COTBR1,@10 0522 02003000 * COTBLL='18'X; /* SET LENGTH FIELD @Y30LB02*/ 02004000 LA @07,24 0523 02005000 ST @07,COTBLL(,@10) 0523 02006000 * COTBOP='16'X; /* OPCODE @Y30LB02*/ 02007000 MVI COTBOP(@10),X'16' 0524 02008000 * SVC(126); /* ISSUE SVC INSTRUCTION @Y30LB02*/ 02009000 SVC 126 0525 02010000 * RFY 0526 02011000 * COTBR1 UNRSTD; /* UNRESTRCT REG 1 @Y30LB02*/ 02012000 * 0526 02013000 * /*****************************************************************/ 02014000 * /* */ 02015000 * /* @Z40LB63*/ 02016000 * /* */ 02017000 * /*****************************************************************/ 02018000 * 0527 02019000 * GOTO MACEND; /* @Z40LB63*/ 02020000 B MACEND 0527 02021000 * 0528 02022000 * /*****************************************************************/ 02023000 * /* */ 02024000 * /* ISSUE THE EXECUTE FORM OF THE RELINQUISH MACRO. #ZA14727*/ 02025000 * /* IF AN ECB HAS BEEN OBTAINED THEN SET THE ECB ADDRESS #ZA14727*/ 02026000 * /* IN THE PARAMETER LIST. #ZA14727*/ 02027000 * /* */ 02028000 * /*****************************************************************/ 02029000 * 0528 02030000 *LREL1: 0528 02031000 * IF ECBPTR^=NULLPTR THEN /* #ZA14727*/ 02032000 LREL1 L @10,ECBPTR 0528 02033000 LTR @10,@10 0528 02034000 BZ @RF00528 0528 02035000 * ARECB=ECBPTR; /* #ZA14727*/ 02036000 * 0529 02037000 L @07,@PC00001+8 0529 02038000 L @01,SSCARGPT(,@07) 0529 02039000 ST @10,ARECB(,@01) 0529 02040000 * /*****************************************************************/ 02041000 * /* */ 02042000 * /* ****************************************************** */ 02043000 * /* @Y30LB02*/ 02044000 * /* MACMEAN MSSC ACQUIRE/RELINQUISH MACRO @Y30LB02*/ 02045000 * /* VS1-4/VS2-3 VERSION-- 06/09/74 LEVEL 00 @Y30LB02*/ 02046000 * /* THIS IS THE OUTPUT FOR THE EXECUTE FORM. @Y30LB02*/ 02047000 * /* THE LIST FORM OF THIS MACRO SHOULD BE @Y30LB02*/ 02048000 * /* INVOKED FIRST IN ORDER TO SET UP NECESSARY @Y30LB02*/ 02049000 * /* DECLARES. THE EXECUTE FORM WILL ONLY @Y30LB02*/ 02050000 * /* ISSUE THE SVC, NO PARAMETERS EXCEPT MF. @Y30LB02*/ 02051000 * /* ****************************************************** */ 02052000 * /* @Y30LB02*/ 02053000 * /* */ 02054000 * /*****************************************************************/ 02055000 * 0530 02056000 * RFY 0530 02057000 * (ARR1) RSTD; /* RESTRICT R1 @Y30LB02*/ 02058000 @RF00528 DS 0H 0531 02059000 * ARR1=ADDR(MACLIST); /* SET ARR1 TO ADDR OF LIST 0531 02060000 * @Y30LB02*/ 02061000 L @10,@PC00001+8 0531 02062000 L ARR1,SSCARGPT(,@10) 0531 02063000 * SVC(126); /* ISSUE SVC @Y30LB02*/ 02064000 SVC 126 0532 02065000 * RFY 0533 02066000 * (ARR1) UNRSTD; /* UNRESTRICT REG 1 @Y30LB02*/ 02067000 */*#ZA14727 */ 02068000 * 0534 02069000 * GOTO MACEND; /* #ZA14727*/ 02070000 B MACEND 0534 02071000 * 0535 02072000 * /*****************************************************************/ 02073000 * /* */ 02074000 * /* ISSUE THE EXECUTE FORM OF THE MODIFYC CARTRIDGE MACRO @G24LB40*/ 02075000 * /* */ 02076000 * /*****************************************************************/ 02077000 * 0535 02078000 *LMODC1: 0535 02079000 * 0535 02080000 * /*****************************************************************/ 02081000 * /* */ 02082000 * /* ******************************************************* */ 02083000 * /* @G24LB22*/ 02084000 * /* MSSC MODIFY CARTRIDGE MACRO @G24LB22*/ 02085000 * /* VS1-6/VS2-3 VERSION-- 04/23/76 LEVEL 00 @G24LB22*/ 02086000 * /* THIS IS THE OUTPUT FOR THE EXECUTE FORM. @G24LB22*/ 02087000 * /* THE LIST FORM OF THIS MACRO SHOULD BE @G24LB22*/ 02088000 * /* INVOKED FIRST IN ORDER TO SET UP NECESSARY @G24LB22*/ 02089000 * /* DECLARES. IF THE COMPLETE ARGUMENT IS @G24LB22*/ 02090000 * /* SPECIFIED THE REQ BLOCK WILL BE ZEROED. @G24LB22*/ 02091000 * /* ******************************************************* */ 02092000 * /* @G24LB22*/ 02093000 * /* */ 02094000 * /*****************************************************************/ 02095000 * 0535 02096000 * RFY 0535 02097000 * (MODBR1) RSTD; /* RESTRICT REGISTER 1 @G24LB22*/ 02098000 LMODC1 DS 0H 0536 02099000 * MODBR1=ADDR(MACLIST); /* SET MODBR1 TO ADDR OF REQ BLK 02100000 * @G24LB22*/ 02101000 L @10,@PC00001+8 0536 02102000 L @10,SSCARGPT(,@10) 0536 02103000 LR MODBR1,@10 0536 02104000 * MODLEN='34'X; /* SET LENGTH FIELD @G24LB22*/ 02105000 LA @07,52 0537 02106000 ST @07,MODLEN(,@10) 0537 02107000 * MODORDER='11'X; /* OPCODE @G24LB22*/ 02108000 MVI MODORDER(@10),X'11' 0538 02109000 * SVC(126); /* ISSUE SVC INSTRUCTION @G24LB22*/ 02110000 SVC 126 0539 02111000 * RFY 0540 02112000 * MODBR1 UNRSTD; /* UNRESTRCT REG 1 @G24LB22*/ 02113000 * 0540 02114000 * /*****************************************************************/ 02115000 * /* */ 02116000 * /* @G24LB40*/ 02117000 * /* */ 02118000 * /*****************************************************************/ 02119000 * 0541 02120000 * GOTO MACEND; /* @G24LB40*/ 02121000 B MACEND 0541 02122000 * 0542 02123000 * /*****************************************************************/ 02124000 * /* */ 02125000 * /* SAVE THE CONTENTS OF REGISTER 15 IN TESTRC AND THE #Y30LB30*/ 02126000 * /* CONTENTS OF REGISTER 0 IN REG0SAVE. #Y30LB30*/ 02127000 * /* */ 02128000 * /*****************************************************************/ 02129000 * 0542 02130000 *MACEND: 0542 02131000 * RESPECIFY 0542 02132000 * RTNREG RSTD; 0542 02133000 MACEND DS 0H 0543 02134000 * TESTRC=RTNREG; 0543 02135000 STH RTNREG,TESTRC 0543 02136000 * RESPECIFY 0544 02137000 * RTNREG UNRSTD; /* #Y30LB30*/ 02138000 * REG0SAVE=REG0; /* #Y30LB30*/ 02139000 ST REG0,REG0SAVE 0545 02140000 * IF SSCTYPE=ACQUIRE| /* #ZA14727*/ 02141000 * SSCTYPE=RELINQ THEN /* #ZA14727*/ 02142000 L @10,@PC00001+4 0546 02143000 CLC SSCTYPE(8,@10),ACQUIRE 0546 02144000 BE @RT00546 0546 02145000 CLC SSCTYPE(8,@10),RELINQ 0546 02146000 BNE @RF00546 0546 02147000 @RT00546 DS 0H 0547 02148000 * REG0SAVE=ARCOMPC; /* #Y30LB30*/ 02149000 L @10,@PC00001+8 0547 02150000 L @01,SSCARGPT(,@10) 0547 02151000 LH @10,ARCOMPC(,@01) 0547 02152000 N @10,@CF01678 0547 02153000 ST @10,REG0SAVE 0547 02154000 * RFY 0548 02155000 * REG0 UNRESTRICTED; /* #Y30LB30*/ 02156000 * 0548 02157000 @RF00546 DS 0H 0549 02158000 * /*****************************************************************/ 02159000 * /* */ 02160000 * /* GET A DUMP OF THE ARGUMENT LIST PASSED TO SVC 126 #Y30LB30*/ 02161000 * /* AND THE REASON CODE RETURNED #Y30LB30*/ 02162000 * /* */ 02163000 * /*****************************************************************/ 02164000 * 0549 02165000 * IF GDTDBG=NULLPTR THEN 0549 02166000 L @10,@PC00001 0549 02167000 L @10,GDTDBG(,@10) 0549 02168000 LTR @10,@10 0549 02169000 BZ @RT00549 0549 02170000 * ; 0550 02171000 * ELSE 0551 02172000 * DO; 0551 02173000 * DMPINDEX=ADDR(DUMPLIST); 0552 02174000 LA DMPINDEX,DUMPLIST 0552 02175000 * DMPITMNM='MACNAME'; 0553 02176000 MVI DMPITMNM+7(DMPINDEX),C' ' 0553 02177000 MVC DMPITMNM(7,DMPINDEX),@CC01659 0553 02178000 * DMPITMPT=ADDR(SSCTYPE); 0554 02179000 L @10,@PC00001+4 0554 02180000 ST @10,DMPITMPT(,DMPINDEX) 0554 02181000 * DMPITMLN=LENGTH(SSCTYPE); 0555 02182000 MVC DMPITMLN(2,DMPINDEX),@CH00173 0555 02183000 * DMPITMTP='C'; 0556 02184000 MVI DMPITMTP(DMPINDEX),C'C' 0556 02185000 * DMPINDEX=DMPINDEX+DMPELEMT; 0557 02186000 LA @10,16 0557 02187000 ALR DMPINDEX,@10 0557 02188000 * DMPITMNM='MACLIST'; 0558 02189000 MVI DMPITMNM+7(DMPINDEX),C' ' 0558 02190000 MVC DMPITMNM(7,DMPINDEX),@CC01661 0558 02191000 * DMPITMPT=ADDR(MACLIST); 0559 02192000 L @07,@PC00001+8 0559 02193000 L @07,SSCARGPT(,@07) 0559 02194000 ST @07,DMPITMPT(,DMPINDEX) 0559 02195000 * DMPITMLN=MACLNG; 0560 02196000 L @07,MACLNG(,@07) 0560 02197000 STH @07,DMPITMLN(,DMPINDEX) 0560 02198000 * DMPITMTP='H'; 0561 02199000 MVI DMPITMTP(DMPINDEX),C'H' 0561 02200000 * DMPINDEX=DMPINDEX+DMPELEMT; 0562 02201000 ALR DMPINDEX,@10 0562 02202000 * DMPITMNM='REG15'; 0563 02203000 MVI DMPITMNM+5(DMPINDEX),C' ' 0563 02204000 MVC DMPITMNM+6(2,DMPINDEX),DMPITMNM+5(DMPINDEX) 0563 02205000 MVC DMPITMNM(5,DMPINDEX),@CC01663 0563 02206000 * DMPITMPT=ADDR(TESTRC); 0564 02207000 LA @07,TESTRC 0564 02208000 ST @07,DMPITMPT(,DMPINDEX) 0564 02209000 * DMPITMLN=LENGTH(TESTRC); 0565 02210000 MVC DMPITMLN(2,DMPINDEX),@CH00147 0565 02211000 * DMPITMTP='H'; 0566 02212000 MVI DMPITMTP(DMPINDEX),C'H' 0566 02213000 * DMPINDEX=DMPINDEX+DMPELEMT; 0567 02214000 ALR DMPINDEX,@10 0567 02215000 * DMPITMNM='REG0'; 0568 02216000 MVI DMPITMNM+4(DMPINDEX),C' ' 0568 02217000 MVC DMPITMNM+5(3,DMPINDEX),DMPITMNM+4(DMPINDEX) 0568 02218000 MVC DMPITMNM(4,DMPINDEX),@CC01664 0568 02219000 * DMPITMPT=ADDR(REG0SAVE); 0569 02220000 LA @07,REG0SAVE 0569 02221000 ST @07,DMPITMPT(,DMPINDEX) 0569 02222000 * DMPITMLN=LENGTH(REG0SAVE); 0570 02223000 MVC DMPITMLN(2,DMPINDEX),@CH00034 0570 02224000 * DMPITMTP='H'; 0571 02225000 MVI DMPITMTP(DMPINDEX),C'H' 0571 02226000 * DMPINDEX=DMPINDEX+DMPELEMT; 0572 02227000 ALR DMPINDEX,@10 0572 02228000 * DMPTRM=DMPTRMVL; 0573 02229000 MVI DMPTRM(DMPINDEX),X'FF' 0573 02230000 * END; 0574 02231000 * IF GDTDBG=NULLPTR THEN 0575 02232000 @RT00549 L @10,@PC00001 0575 02233000 L @10,GDTDBG(,@10) 0575 02234000 LTR @10,@10 0575 02235000 BZ @RT00575 0575 02236000 * ; 0576 02237000 * ELSE 0577 02238000 * CALL IDCDB010(GDTTBL,'AA00',ADDR(DUMPLIST)); 0577 02239000 * 0577 02240000 L @10,@PC00001 0577 02241000 ST @10,@AL00001 0577 02242000 LA @07,@CC01665 0577 02243000 ST @07,@AL00001+4 0577 02244000 LA @07,DUMPLIST 0577 02245000 ST @07,@AFTEMPS 0577 02246000 LA @07,@AFTEMPS 0577 02247000 ST @07,@AL00001+8 0577 02248000 MVI @AL00001+8,X'80' 0577 02249000 L @15,GDTDBG(,@10) 0577 02250000 LA @01,@AL00001 0577 02251000 BALR @14,@15 0577 02252000 * /*****************************************************************/ 02253000 * /* */ 02254000 * /* RESTORE THE RETURN ADDRESS AND RETURN TO THE CALLER #Y30LB30*/ 02255000 * /* WITH THE RETURN CODE FROM THE MACRO IN REG 15 #Y30LB30*/ 02256000 * /* */ 02257000 * /*****************************************************************/ 02258000 * 0578 02259000 * RFY 0578 02260000 * REG14 RESTRICTED; /* #Y30LB30*/ 02261000 @RT00575 DS 0H 0579 02262000 * REG14=RETADDR3; /* #Y30LB30*/ 02263000 LR REG14,RETADDR3 0579 02264000 * RFY 0580 02265000 * REG14 UNRESTRICTED; /* #Y30LB30*/ 02266000 * RETURN CODE(TESTRC); /* #Y30LB30*/ 02267000 LH @15,TESTRC 0581 02268000 @EL00003 DS 0H 0581 02269000 @EF00003 DS 0H 0581 02270000 @ER00003 BR @14 0581 02271000 * END ISSUEMAC; /* #Y30LB30*/ 02272000 * 0583 02273000 */********************************************************************/ 02274000 */* #Y30LB30*/ 02275000 */* PROCEDURE NAME - CHKCODE #Y30LB30*/ 02276000 */* #Y30LB30*/ 02277000 */* FUNCTION - WAIT IF NECESSARY ON THE ECB FOR THE MACRO #Y30LB30*/ 02278000 */* AND HANDLE THE ERROR CODES FOUND IN THE ECB #Y30LB30*/ 02279000 */* OR REGISTER 0 . RETURN THE REASON AND ECB CODE #Y30LB30*/ 02280000 */* IN THE CALLER'S AREAS. IF THE FUNCTION WAS #Y30LB30*/ 02281000 */* PERFORMED BUT THE INVENTORY WAS NOT UPDATED #Y30LB30*/ 02282000 */* CALL SSCMSG TO PRINT OUT AN APPROPRIATE MSG. #Y30LB30*/ 02283000 */* #Y30LB30*/ 02284000 */* INPUT - CONTENTS OF REGISTER 0 AFTHER THE MSSC MACRO #Y30LB30*/ 02285000 */* COMPLETED, AN ECB INITIALIZED TO 0, THE #Y30LB30*/ 02286000 */* CONTENTS OF REGISTER 15 AFTER THE MSSC MACRO. #Y30LB30*/ 02287000 */* #Y30LB30*/ 02288000 */* OUTPUT - REGISTER 15 = 0, MSSC MACRO SUCESSFUL #Y30LB30*/ 02289000 */* 4, MSSC MACRO FAILED #Y30LB30*/ 02290000 */* 12, MACRO SUCCESSFUL, INVENTORY #Y30LB30*/ 02291000 */* NOT UPDATED #Y30LB30*/ 02292000 */* REASON AND ECB CODE SET IN CALLER'S AREAS. #Y30LB30*/ 02293000 */* ADDRESS OF ECB AND MESSAGE AREA SET IN #Y30LB30*/ 02294000 */* CALLER'S AREA IF MACRO SUCCESSFUL. #Y30LB30*/ 02295000 */* #Y30LB30*/ 02296000 */********************************************************************/ 02297000 * 0583 02298000 *CHKCODE: 0583 02299000 * PROCEDURE OPTIONS(NOSAVE,NOSAVEAREA);/* #Y30LB30*/ 02300000 * 0583 02301000 CHKCODE DS 0H 0584 02302000 * /*****************************************************************/ 02303000 * /* */ 02304000 * /* LOCAL DECLARATIONS #Y30LB30*/ 02305000 * /* */ 02306000 * /*****************************************************************/ 02307000 * 0584 02308000 * DCL 0584 02309000 * CCODE2 FIXED(15); /* CONDITION CODE @Y30LB30*/ 02310000 * DCL 0585 02311000 * RETADDR2 PTR(31); /* SAVE OF REGISTER 14 @Y30LB30*/ 02312000 * DCL 0586 02313000 * INVERR BIT(1) CONSTANT('1'B); /* ERROR @YD00160*/ 02314000 * 0587 02315000 * /*****************************************************************/ 02316000 * /* */ 02317000 * /* SAVE THE RETURN ADDRESS IN REGISTER 14, SET UP A @Y30LB30*/ 02318000 * /* TRACE POINT AND SET THE CONDITION CODE TO 0. @Y30LB30*/ 02319000 * /* */ 02320000 * /*****************************************************************/ 02321000 * 0587 02322000 * RFY 0587 02323000 * REG14 RESTRICTED; /* @Y30LB30*/ 02324000 * RETADDR2=REG14; /* @Y30LB30*/ 02325000 LR RETADDR2,REG14 0588 02326000 * RFY 0589 02327000 * REG14 UNRESTRICTED; /* @Y30LB30*/ 02328000 * OLDERID2=NEWERID2; 0590 02329000 L @10,@PC00001 0590 02330000 L @10,GDTTR2(,@10) 0590 02331000 MVC @TS00001(95),NEWERID2(@10) 0590 02332000 MVC OLDERID2(95,@10),@TS00001 0590 02333000 * NEWID2='SACC'; /* @Y30LB30*/ 02334000 MVC NEWID2(4,@10),@CC01672 0591 02335000 * CCODE2=0; /* @Y30LB30*/ 02336000 SLR @10,@10 0592 02337000 LR CCODE2,@10 0592 02338000 * 0593 02339000 * /*****************************************************************/ 02340000 * /* */ 02341000 * /* IF THE RETURN CODE FROM THE MSSC MACRO INDICATES @Y30LB30*/ 02342000 * /* SUCCESSFUL COMPLETION OR IF THE REASON CODE FROM @Y30LB30*/ 02343000 * /* REGISTER 0 INDICATES THAT THE MACRO WAS SUCCESSFUL @Y30LB30*/ 02344000 * /* BUT ONLY THE INVENTORY COULD NOT BE UNDATED, AND AN @Y30LB30*/ 02345000 * /* ECB HAS BEEN OBTAINED, WAIT ON THE ECB AND HANDLE @Y30LB30*/ 02346000 * /* ANY ERRORS POSTED IN THE ECB. @Y30LB30*/ 02347000 * /* */ 02348000 * /*****************************************************************/ 02349000 * 0593 02350000 * IF(TESTRC=0|(TESTRC=4&ERRFGSAV=INVERR))&ECBPTR^=NULLPTR THEN/* 0593 02351000 * @Y30LB30*/ 02352000 LH @07,TESTRC 0593 02353000 CR @07,@10 0593 02354000 BE @GL00008 0593 02355000 C @07,@CF00034 0593 02356000 BNE @RF00593 0593 02357000 TM ERRFGSAV,B'10000000' 0593 02358000 BNO @RF00593 0593 02359000 @GL00008 L @10,ECBPTR 0593 02360000 LTR @10,@10 0593 02361000 BZ @RF00593 0593 02362000 * DO; /* @Y30LB30*/ 02363000 * 0594 02364000 * /*************************************************************/ 02365000 * /* */ 02366000 * /* IF MACRO HAS NOT ALREADY COMPLETED, ISSUE A WAIT @Y30LB30*/ 02367000 * /* */ 02368000 * /*************************************************************/ 02369000 * 0595 02370000 * IF ECBPOSTB^=ON THEN /* @Y30LB30*/ 02371000 TM ECBPOSTB(@10),B'01000000' 0595 02372000 BO @RF00595 0595 02373000 * DO; /* @Y30LB30*/ 02374000 * RFY 0597 02375000 * REG1 RESTRICTED; /* @Y30LB30*/ 02376000 * REG1=ECBPTR; /* @Y30LB30*/ 02377000 LR REG1,@10 0598 02378000 *LWAIT1: 0599 02379000 * GEN(WAIT ECB=(1)); /* @Y30LB30*/ 02380000 LWAIT1 WAIT ECB=(1) 02381000 * RFY 0600 02382000 * REG1 UNRESTRICTED; /* @Y30LB30*/ 02383000 * END; /* @Y30LB30*/ 02384000 * 0601 02385000 * /*************************************************************/ 02386000 * /* */ 02387000 * /* GET A DUMP OF THE ECB AND MESSAGE AREA @Y30LB30*/ 02388000 * /* */ 02389000 * /*************************************************************/ 02390000 * 0602 02391000 * IF GDTDBG=NULLPTR THEN 0602 02392000 @RF00595 L @10,@PC00001 0602 02393000 L @10,GDTDBG(,@10) 0602 02394000 LTR @10,@10 0602 02395000 BZ @RT00602 0602 02396000 * ; 0603 02397000 * ELSE 0604 02398000 * DO; 0604 02399000 * DMPINDEX=ADDR(DUMPLIST); 0605 02400000 LA DMPINDEX,DUMPLIST 0605 02401000 * DMPITMNM='ECB'; 0606 02402000 MVI DMPITMNM+3(DMPINDEX),C' ' 0606 02403000 MVC DMPITMNM+4(4,DMPINDEX),DMPITMNM+3(DMPINDEX) 0606 02404000 MVC DMPITMNM(3,DMPINDEX),@CC01675 0606 02405000 * DMPITMPT=ADDR(ECB); 0607 02406000 L @10,ECBPTR 0607 02407000 ST @10,DMPITMPT(,DMPINDEX) 0607 02408000 * DMPITMLN=STORSIZE; 0608 02409000 L @10,STORSIZE 0608 02410000 STH @10,DMPITMLN(,DMPINDEX) 0608 02411000 * DMPITMTP='H'; 0609 02412000 MVI DMPITMTP(DMPINDEX),C'H' 0609 02413000 * DMPINDEX=DMPINDEX+DMPELEMT; 0610 02414000 AL DMPINDEX,@CF00500 0610 02415000 * DMPTRM=DMPTRMVL; 0611 02416000 MVI DMPTRM(DMPINDEX),X'FF' 0611 02417000 * END; 0612 02418000 * IF GDTDBG=NULLPTR THEN 0613 02419000 @RT00602 L @10,@PC00001 0613 02420000 L @10,GDTDBG(,@10) 0613 02421000 LTR @10,@10 0613 02422000 BZ @RT00613 0613 02423000 * ; 0614 02424000 * ELSE 0615 02425000 * CALL IDCDB010(GDTTBL,'AA01',ADDR(DUMPLIST)); 0615 02426000 * 0615 02427000 L @10,@PC00001 0615 02428000 ST @10,@AL00001 0615 02429000 LA @07,@CC01676 0615 02430000 ST @07,@AL00001+4 0615 02431000 LA @07,DUMPLIST 0615 02432000 ST @07,@AFTEMPS+4 0615 02433000 LA @07,@AFTEMPS+4 0615 02434000 ST @07,@AL00001+8 0615 02435000 MVI @AL00001+8,X'80' 0615 02436000 L @15,GDTDBG(,@10) 0615 02437000 LA @01,@AL00001 0615 02438000 BALR @14,@15 0615 02439000 * /*************************************************************/ 02440000 * /* */ 02441000 * /* TEST THE ECB FOR SUCCESSFUL COMPLETION. IF @Y30LB30*/ 02442000 * /* SUCCESSFUL, SET THE CALLER'S MESSAGE POINTER TO @Y30LB30*/ 02443000 * /* POINT TO THE ECB AND MESSAGE AREA @Y30LB30*/ 02444000 * /* */ 02445000 * /*************************************************************/ 02446000 * 0616 02447000 * IF ECBBYTE3='7F'X THEN /* @Y30LB30*/ 02448000 @RT00613 L @10,ECBPTR 0616 02449000 CLI ECBBYTE3(@10),X'7F' 0616 02450000 BNE @RF00616 0616 02451000 * IF LISTLN>5 THEN /* @Y30LB30*/ 02452000 C LISTLN,@CF00289 0617 02453000 BNH @RF00617 0617 02454000 * SSCMSGPT=ECBPTR; /* @Y30LB30*/ 02455000 L @07,@PC00001+20 0618 02456000 ST @10,SSCMSGPT(,@07) 0618 02457000 * ELSE 0619 02458000 * ; /* @Y30LB30*/ 02459000 @RF00617 DS 0H 0620 02460000 * 0620 02461000 * /*************************************************************/ 02462000 * /* */ 02463000 * /* IF THE ECB IS NOT SUCCSSFUL, THEN SET THE ECB @Y30LB30*/ 02464000 * /* CODE IN THE CALLER'S AREA AND INDICATE A FAILING @Y30LB30*/ 02465000 * /* IN THE CONDITION CODE. @Y30LB30*/ 02466000 * /* */ 02467000 * /*************************************************************/ 02468000 * 0620 02469000 * ELSE /* @Y30LB30*/ 02470000 * DO; /* @Y30LB30*/ 02471000 B @RC00616 0620 02472000 @RF00616 DS 0H 0621 02473000 * SSCECODE=ECBBYTE3; /* @Y30LB30*/ 02474000 L @10,@PC00001+16 0621 02475000 L @07,ECBPTR 0621 02476000 MVC SSCECODE(1,@10),ECBBYTE3(@07) 0621 02477000 * CCODE2=4; /* @Y30LB30*/ 02478000 LA CCODE2,4 0622 02479000 * END; /* @Y30LB30*/ 02480000 * END; /* @Y30LB30*/ 02481000 * 0625 02482000 * /*****************************************************************/ 02483000 * /* */ 02484000 * /* IF THE RETURN CODE FROM THE MSSC MACRO INDICATES AN @Y30LB30*/ 02485000 * /* ERROR AND THE ERROR IS OTHER THAN INVENTORY NOT @Y30LB30*/ 02486000 * /* UPDATED, HANDLE IT. @Y30LB30*/ 02487000 * /* */ 02488000 * /*****************************************************************/ 02489000 * 0625 02490000 * ELSE /* @Y30LB30*/ 02491000 * IF TESTRC=4&ERRFGSAV^=INVERR THEN/* @YD00160*/ 02492000 B @RC00593 0625 02493000 @RF00593 LA @10,4 0625 02494000 CH @10,TESTRC 0625 02495000 BNE @RF00625 0625 02496000 TM ERRFGSAV,B'10000000' 0625 02497000 BO @RF00625 0625 02498000 * DO; /* @Y30LB30*/ 02499000 * 0626 02500000 * /***********************************************************/ 02501000 * /* */ 02502000 * /* SET THE CONTENTS OF REGISTER 0 IN THE CALLER'S @Y30LB30*/ 02503000 * /* REASON CODE AREA AND INDICATE A FAILURE IN THE @Y30LB30*/ 02504000 * /* CONDITION CODE. @Y30LB30*/ 02505000 * /* */ 02506000 * /***********************************************************/ 02507000 * 0627 02508000 * SSCRCODE=REG0SAVE; /* @Y30LB30*/ 02509000 L @07,@PC00001+12 0627 02510000 L @04,REG0SAVE 0627 02511000 ST @04,SSCRCODE(,@07) 0627 02512000 * CCODE2=4; /* @Y30LB30*/ 02513000 LR CCODE2,@10 0628 02514000 * END; /* @Y30LB30*/ 02515000 * 0630 02516000 * /*****************************************************************/ 02517000 * /* */ 02518000 * /* HANDLE AN ERROR UPDATING THE INVENTORY. @Y30LB30*/ 02519000 * /* */ 02520000 * /*****************************************************************/ 02521000 * 0630 02522000 * IF TESTRC=4&ERRFGSAV=INVERR THEN/* @YD00160*/ 02523000 @RF00625 DS 0H 0630 02524000 @RC00593 LA @10,4 0630 02525000 CH @10,TESTRC 0630 02526000 BNE @RF00630 0630 02527000 TM ERRFGSAV,B'10000000' 0630 02528000 BNO @RF00630 0630 02529000 * DO; /* @Y30LB30*/ 02530000 * 0631 02531000 * /*************************************************************/ 02532000 * /* */ 02533000 * /* CALL UPRINT TO ISSUE MESSAGE IDC1069I @YD00160*/ 02534000 * /* */ 02535000 * /*************************************************************/ 02536000 * 0632 02537000 * ERRFGSAV=OFF; /* @YD00160*/ 02538000 NI ERRFGSAV,B'01111111' 0632 02539000 * DDSTRU=ADDR(PRINTTAB); /* @YD00160*/ 02540000 LA @07,PRINTTAB 0633 02541000 ST @07,DDSTRU 0633 02542000 * PRINTTAB=''B; /* @YD00160*/ 02543000 XC PRINTTAB(20),PRINTTAB 0634 02544000 * DARGSMOD=COMMOD; /* @YD00160*/ 02545000 MVC DARGSMOD(3,@07),@CC01561 0635 02546000 * DARGSENT=MSG1069I; /* @YD00160*/ 02547000 MVI DARGSENT(@07),X'39' 0636 02548000 * DARGDBP=ADDR(REG0SAVE); /* @YD00160*/ 02549000 LA @04,REG0SAVE 0637 02550000 ST @04,DARGDBP(,@07) 0637 02551000 * DARGILP=LENGTH(REG0SAVE); /* @YD00160*/ 02552000 STH @10,DARGILP(,@07) 0638 02553000 * CALL AMSTP011(GDTTBL,PRTFILE,DDSTRU);/* @YD00160*/ 02554000 * 0639 02555000 L @10,@PC00001 0639 02556000 ST @10,@AL00001 0639 02557000 LA @07,@CF00108 0639 02558000 ST @07,@AL00001+4 0639 02559000 LA @07,DDSTRU 0639 02560000 ST @07,@AL00001+8 0639 02561000 MVI @AL00001+8,X'80' 0639 02562000 L @15,GDTPRT(,@10) 0639 02563000 LA @01,@AL00001 0639 02564000 BALR @14,@15 0639 02565000 * /*************************************************************/ 02566000 * /* */ 02567000 * /* IF A MORE SEVERE ERROR HAS NOT BEEN DETECTED, SET #Y30LB30*/ 02568000 * /* THE CONDITION CODE TO 12(VIERR) #Y30LB30*/ 02569000 * /* */ 02570000 * /*************************************************************/ 02571000 * 0640 02572000 * IF CCODE2^=4 THEN /* #Y30LB30*/ 02573000 C CCODE2,@CF00034 0640 02574000 BE @RF00640 0640 02575000 * CCODE2=12; /* #Y30LB30*/ 02576000 LA CCODE2,12 0641 02577000 * END; /* #Y30LB30*/ 02578000 @RF00640 DS 0H 0643 02579000 * 0643 02580000 * /*****************************************************************/ 02581000 * /* */ 02582000 * /* RESTORE REGISTER 14 AND RETURN TO THE CALLER WITH #Y30LB30*/ 02583000 * /* THE CONDITION CODE IN REGISTER 15. @Y30LB30*/ 02584000 * /* */ 02585000 * /*****************************************************************/ 02586000 * 0643 02587000 * RFY 0643 02588000 * REG14 RESTRICTED; /* @Y30LB30*/ 02589000 @RF00630 DS 0H 0644 02590000 * REG14=RETADDR2; /* @Y30LB30*/ 02591000 LR REG14,RETADDR2 0644 02592000 * RFY 0645 02593000 * REG14 UNRESTRICTED; /* @Y30LB30*/ 02594000 * RETURN CODE(CCODE2); /* @Y30LB30*/ 02595000 LR @15,CCODE2 0646 02596000 @EL00004 DS 0H 0646 02597000 @EF00004 DS 0H 0646 02598000 @ER00004 BR @14 0646 02599000 * END CHKCODE; /* @Y30LB30*/ 02600000 * END IDCSA09 /* @Y30LB30*/ 02601000 * 0648 02602000 */* THE FOLLOWING INCLUDE STATEMENTS WERE FOUND IN THIS PROGRAM. */ 02603000 */*%INCLUDE SYSLIB (AMSDF01 ) */ 02604000 */*%INCLUDE SYSLIB (AMSDF00 ) */ 02605000 */*%INCLUDE SYSLIB (AMSDF02 ) */ 02606000 */*@INCLUDE SYSLIB (AMSDF02 ) */ 02607000 */*%INCLUDE SYSLIB (IDCDF04 ) */ 02608000 */*%INCLUDE SYSLIB (IHAECB ) */ 02609000 * 0648 02610000 * ; 0648 02611000 @DATA DS 0H 02612000 @CH00147 DC H'2' 02613000 @CH00173 DC H'8' 02614000 @CH00470 DC H'10' 02615000 @CH01554 DC H'241' 02616000 @DATD DSECT 02617000 DS 0F 02618000 @SA00001 DS 18F 02619000 @PC00001 DS 6F 02620000 @AL00001 DS 5A 02621000 @AFTEMPS DS 2F 02622000 IDCSA09 CSECT 02623000 DS 0F 02624000 @CF00108 DC F'0' 02625000 @CF00213 DC F'1' 02626000 @CF00156 DC F'3' 02627000 @CF00034 DC F'4' 02628000 @CH00034 EQU @CF00034+2 02629000 @CF00289 DC F'5' 02630000 @CF00150 DC F'6' 02631000 @CF00500 DC F'16' 02632000 @CH00500 EQU @CF00500+2 02633000 @CF01569 DC F'255' 02634000 @CF01678 DC XL4'0000FFFF' 02635000 @DATD DSECT 02636000 DS 0D 02637000 LISTSCAN DS A 02638000 IOCSPTR DS A 02639000 OPNPTR DS A 02640000 DDSTRU DS A 02641000 FSADDR DS A 02642000 ERCNVADR DS A 02643000 CCMSGPTR DS A 02644000 CMMSGPTR DS A 02645000 CTMSGPTR DS A 02646000 ELEMENT DS F 02647000 ECBPTR DS A 02648000 REG0SAVE DS FL4 02649000 ORG REG0SAVE 02650000 ERRFGSAV DS BL1 02651000 ORG REG0SAVE+4 02652000 STORSIZE DS F 02653000 LISTPTR DS A 02654000 SETRC DS H 02655000 TESTRC DS H 02656000 @TS00001 DS CL95 02657000 PRINTTAB DS CL20 02658000 DS CL1 02659000 DUMPLIST DS CL65 02660000 IDCSA09 CSECT 02661000 DS 0F 02662000 @SIZDATD DC AL1(0) 02663000 DC AL3(@ENDDATD-@DATD) 02664000 DS 0D 02665000 @CC01659 DC C'MACNAME' 02666000 @CC01661 DC C'MACLIST' 02667000 @CC01663 DC C'REG15' 02668000 @CC01570 DC C'SASS' 02669000 @CC01580 DC C'SACA' 02670000 @CC01607 DC C'SAMA' 02671000 @CC01608 DC C'ZZSC' 02672000 @CC01664 DC C'REG0' 02673000 @CC01665 DC C'AA00' 02674000 @CC01672 DC C'SACC' 02675000 @CC01676 DC C'AA01' 02676000 @CC01559 DC C'UV0' 02677000 @CC01561 DC C'CM0' 02678000 @CC01675 DC C'ECB' 02679000 ALL DC CL3'ALL' 02680000 FORMAT DC CL4'FORM' 02681000 HSECOND DC CL4'HSEC' 02682000 CLOCK DC CL4'KLOK' 02683000 SETZERO DC CL4'ZERO' 02684000 SETBLANK DC CL4'BLNK' 02685000 NOSET DC CL4'NSET' 02686000 OVERRIDE DC CL4'OVRD' 02687000 ACQUIRE DC CL8'ACQUIRE ' 02688000 RELINQ DC CL8'RELINQ ' 02689000 MOUNT DC CL8'MOUNT ' 02690000 DEMOUNT DC CL8'DEMOUNT ' 02691000 DEFINE DC CL8'DEFINE ' 02692000 MOVE DC CL8'MOVE ' 02693000 TRACEQ DC CL8'TRACEQ ' 02694000 COPYTABL DC CL8'COPYTABL' 02695000 COPYCRTG DC CL8'COPYCRTG' 02696000 COPYVOL DC CL8'COPYVOL ' 02697000 VVIC DC CL8'VVIC ' 02698000 TUNE DC CL8'TUNE ' 02699000 NAMES DC CL4'NAME' 02700000 UNIT DC CL4'UNIT' 02701000 SHR DC CL4'SHR ' 02702000 EXCL DC CL4'EXCL' 02703000 NOWAIT DC CL4'NWAI' 02704000 WAIT DC CL4'WAIT' 02705000 SECCHECK DC CL8'SECCHECK' 02706000 SCRVTOC DC CL8'SCRVTOC ' 02707000 GETVTOC DC CL8'GETVTOC ' 02708000 PUTVTOC DC CL8'PUTVTOC ' 02709000 RECATLG DC CL8'RECATLG ' 02710000 INITVOL DC CL8'INITVOL ' 02711000 CHECK DC CL8'CHECK ' 02712000 POSTUCB DC CL8'POSTUCB ' 02713000 GET DC CL8'GET ' 02714000 PUT DC CL8'PUT ' 02715000 CLOSE DC CL8'CLOSE ' 02716000 OPEN DC CL8'OPEN ' 02717000 RVOPENR DC CL8'OPENR ' 02718000 RVRDCNT DC CL8'READCNT ' 02719000 RVREADKD DC CL8'READKD ' 02720000 RVSPACCR DC CL8'SPACCR ' 02721000 RVFWRITE DC CL8'FWRITE ' 02722000 RVWRITER DC CL8'WRITEREC' 02723000 PUTLABEL DC CL8'PUTLABEL' 02724000 GETLABEL DC CL8'GETLABEL' 02725000 CANCEL DC CL8'CANCEL ' 02726000 SET DC CL8'SET ' 02727000 SELECTX DC CL8'SELECTX ' 02728000 CHANGEX DC CL8'CHANGEX ' 02729000 SELECTDD DC CL8'SELECTDD' 02730000 SELECTDS DC CL8'SELECTDS' 02731000 TBLREST DC CL8'TBLREST ' 02732000 NULLIFYC DC CL8'NULLIFYC' 02733000 RDMSC DC CL8'RDMSC ' 02734000 RDMSCTBL DC CL8'RDMSCTBL' 02735000 RDCARTLB DC CL8'RDCARTLB' 02736000 AUDITCEL DC CL8'AUDITCEL' 02737000 RDSTGAD DC CL8'RDSTGAD ' 02738000 MODIFYC DC CL8'MODIFYC ' 02739000 MODID DC CL4'SA09' 02740000 NAMETAB DS CL201 02741000 ORG NAMETAB 02742000 NAMENUM DC AL1(20) 02743000 @NM00134 DS CL10 02744000 ORG @NM00134 02745000 NAME1 DC CL8'ACQUIRE ' 02746000 @NM00135 DS BL1 02747000 ORG @NM00135 02748000 TYPE1 DC B'00000000' 02749000 ORG @NM00134+9 02750000 LEN1 DC AL1(4) 02751000 ORG NAMETAB+11 02752000 @NM00136 DS CL10 02753000 ORG @NM00136 02754000 NAME2 DC CL8'MOUNT ' 02755000 @NM00137 DS BL1 02756000 ORG @NM00137 02757000 TYPE2 DC B'00000000' 02758000 ORG @NM00136+9 02759000 LEN2 DC AL1(0) 02760000 ORG NAMETAB+21 02761000 @NM00138 DS CL10 02762000 ORG @NM00138 02763000 NAME3 DC CL8'DEMOUNT ' 02764000 @NM00139 DS BL1 02765000 ORG @NM00139 02766000 TYPE3 DC B'00000000' 02767000 ORG @NM00138+9 02768000 LEN3 DC AL1(4) 02769000 ORG NAMETAB+31 02770000 @NM00140 DS CL10 02771000 ORG @NM00140 02772000 NAME4 DC CL8'DEFINE ' 02773000 @NM00141 DS BL1 02774000 ORG @NM00141 02775000 TYPE4 DC B'10000000' 02776000 ORG @NM00140+9 02777000 LEN4 DC AL1(56) 02778000 ORG NAMETAB+41 02779000 @NM00142 DS CL10 02780000 ORG @NM00142 02781000 NAME5 DC CL8'MOVE ' 02782000 @NM00143 DS BL1 02783000 ORG @NM00143 02784000 TYPE5 DC B'10000000' 02785000 ORG @NM00142+9 02786000 LEN5 DC AL1(56) 02787000 ORG NAMETAB+51 02788000 @NM00144 DS CL10 02789000 ORG @NM00144 02790000 NAME6 DC CL8'TRACEQ ' 02791000 @NM00145 DS BL1 02792000 ORG @NM00145 02793000 TYPE6 DC B'00000000' 02794000 ORG @NM00144+9 02795000 LEN6 DC AL1(0) 02796000 ORG NAMETAB+61 02797000 @NM00146 DS CL10 02798000 ORG @NM00146 02799000 NAME7 DC CL8'COPYTABL' 02800000 @NM00147 DS BL1 02801000 ORG @NM00147 02802000 TYPE7 DC B'10000000' 02803000 ORG @NM00146+9 02804000 LEN7 DC AL1(60) 02805000 ORG NAMETAB+71 02806000 @NM00148 DS CL10 02807000 ORG @NM00148 02808000 NAME8 DC CL8'COPYCRTG' 02809000 @NM00149 DS BL1 02810000 ORG @NM00149 02811000 TYPE8 DC B'10000000' 02812000 ORG @NM00148+9 02813000 LEN8 DC AL1(54) 02814000 ORG NAMETAB+81 02815000 @NM00150 DS CL10 02816000 ORG @NM00150 02817000 NAME9 DC CL8'COPYVOL ' 02818000 @NM00151 DS BL1 02819000 ORG @NM00151 02820000 TYPE9 DC B'10000000' 02821000 ORG @NM00150+9 02822000 LEN9 DC AL1(4) 02823000 ORG NAMETAB+91 02824000 @NM00152 DS CL10 02825000 ORG @NM00152 02826000 NAME10 DC CL8'VVIC ' 02827000 @NM00153 DS BL1 02828000 ORG @NM00153 02829000 TYPE10 DC B'00000000' 02830000 ORG @NM00152+9 02831000 LEN10 DC AL1(0) 02832000 ORG NAMETAB+101 02833000 @NM00154 DS CL10 02834000 ORG @NM00154 02835000 NAME11 DC CL8'TUNE ' 02836000 @NM00155 DS BL1 02837000 ORG @NM00155 02838000 TYPE11 DC B'00000000' 02839000 ORG @NM00154+9 02840000 LEN11 DC AL1(24) 02841000 ORG NAMETAB+111 02842000 @NM00156 DS CL10 02843000 ORG @NM00156 02844000 NAME12 DC CL8'NULLIFYC' 02845000 @NM00157 DS BL1 02846000 ORG @NM00157 02847000 TYPE12 DC B'10000000' 02848000 ORG @NM00156+9 02849000 LEN12 DC AL1(44) 02850000 ORG NAMETAB+121 02851000 @NM00158 DS CL10 02852000 ORG @NM00158 02853000 NAME13 DC CL8'RDMSC ' 02854000 @NM00159 DS BL1 02855000 ORG @NM00159 02856000 TYPE13 DC B'00000000' 02857000 ORG @NM00158+9 02858000 LEN13 DC AL1(0) 02859000 ORG NAMETAB+131 02860000 @NM00160 DS CL10 02861000 ORG @NM00160 02862000 NAME14 DC CL8'RDMSCTBL' 02863000 @NM00161 DS BL1 02864000 ORG @NM00161 02865000 TYPE14 DC B'00000000' 02866000 ORG @NM00160+9 02867000 LEN14 DC AL1(0) 02868000 ORG NAMETAB+141 02869000 @NM00162 DS CL10 02870000 ORG @NM00162 02871000 NAME15 DC CL8'RDSTGAD ' 02872000 @NM00163 DS BL1 02873000 ORG @NM00163 02874000 TYPE15 DC B'00000000' 02875000 ORG @NM00162+9 02876000 LEN15 DC AL1(0) 02877000 ORG NAMETAB+151 02878000 @NM00164 DS CL10 02879000 ORG @NM00164 02880000 NAME16 DC CL8'RDCARTLB' 02881000 @NM00165 DS BL1 02882000 ORG @NM00165 02883000 TYPE16 DC B'00000000' 02884000 ORG @NM00164+9 02885000 LEN16 DC AL1(0) 02886000 ORG NAMETAB+161 02887000 @NM00166 DS CL10 02888000 ORG @NM00166 02889000 NAME17 DC CL8'AUDITCEL' 02890000 @NM00167 DS BL1 02891000 ORG @NM00167 02892000 TYPE17 DC B'00000000' 02893000 ORG @NM00166+9 02894000 LEN17 DC AL1(0) 02895000 ORG NAMETAB+171 02896000 @NM00168 DS CL10 02897000 ORG @NM00168 02898000 NAME18 DC CL8'TBLREST ' 02899000 @NM00169 DS BL1 02900000 ORG @NM00169 02901000 TYPE18 DC B'00000000' 02902000 ORG @NM00168+9 02903000 LEN18 DC AL1(0) 02904000 ORG NAMETAB+181 02905000 @NM00170 DS CL10 02906000 ORG @NM00170 02907000 NAME19 DC CL8'RELINQ ' 02908000 @NM00171 DS BL1 02909000 ORG @NM00171 02910000 TYPE19 DC B'00000000' 02911000 ORG @NM00170+9 02912000 LEN19 DC AL1(4) 02913000 ORG NAMETAB+191 02914000 @NM00172 DS CL10 02915000 ORG @NM00172 02916000 NAME20 DC CL8'MODIFYC' 02917000 @NM00173 DS BL1 02918000 ORG @NM00173 02919000 TYPE20 DC B'00000000' 02920000 ORG @NM00172+9 02921000 LEN20 DC AL1(0) 02922000 ORG NAMETAB+201 02923000 FIXAREA DS CL150 02924000 ORG FIXAREA 02925000 @NM00174 DC 150X'00' 02926000 ORG FIXAREA+150 02927000 DS CL2 02928000 BRANTBL DC AL4(LACQ1) 02929000 DC AL4(LMNTDE1) 02930000 DC AL4(LMNTDE2) 02931000 DC AL4(LDEFV1) 02932000 DC AL4(LMCRT1) 02933000 DC AL4(LTRACE1) 02934000 DC AL4(LCOTB1) 02935000 DC AL4(LCOVC1) 02936000 DC AL4(LCOVC2) 02937000 DC AL4(LVVIC1) 02938000 DC AL4(LTUNE1) 02939000 DC AL4(LNULL1) 02940000 DC AL4(LRMSC1) 02941000 DC AL4(LRMSCT1) 02942000 DC AL4(LSA1) 02943000 DC AL4(LRLAB1) 02944000 DC AL4(LCELA1) 02945000 DC AL4(LTBLR1) 02946000 DC AL4(LREL1) 02947000 DC AL4(LMODC1) 02948000 @DATD DSECT 02949000 * /* @Y30LB30*/ 02950000 IDCSA09 CSECT 02951000 ENTRY IDCSAS9 02952000 IDCSAS9 DC A(@SIZDATD) 02953000 @DATD DSECT 02954000 ORG *+1-(*-@DATD)/(*-@DATD) INSURE DSECT DATA 02955000 @ENDDATD EQU * 02956000 IDCSA09 CSECT 02957000 @00 EQU 00 EQUATES FOR REGISTERS 0-15 02958000 @01 EQU 01 02959000 @02 EQU 02 02960000 @03 EQU 03 02961000 @04 EQU 04 02962000 @05 EQU 05 02963000 @06 EQU 06 02964000 @07 EQU 07 02965000 @08 EQU 08 02966000 @09 EQU 09 02967000 @10 EQU 10 02968000 @11 EQU 11 02969000 @12 EQU 12 02970000 @13 EQU 13 02971000 @14 EQU 14 02972000 @15 EQU 15 02973000 RETADDR2 EQU @06 02974000 CCODE2 EQU @03 02975000 RETADDR3 EQU @06 02976000 RETADDR1 EQU @06 02977000 CCODE1 EQU @03 02978000 INDEX EQU @02 02979000 DMPINDEX EQU @02 02980000 LISTLN EQU @05 02981000 RTNREG EQU @15 02982000 REG0 EQU @00 02983000 REG1 EQU @01 02984000 REG13 EQU @13 02985000 REG14 EQU @14 02986000 REG15 EQU @15 02987000 ARR1 EQU @01 02988000 MDREG1 EQU @01 02989000 DEFVR1 EQU @01 02990000 MCR1 EQU @01 02991000 COTBR1 EQU @01 02992000 TRACR1 EQU @01 02993000 CVOLR1 EQU @01 02994000 TUNER1 EQU @01 02995000 NULBR1 EQU @01 02996000 QUERR1 EQU @01 02997000 MODBR1 EQU @01 02998000 REG10 EQU @10 02999000 REG11 EQU @11 03000000 REG12 EQU @12 03001000 REG2 EQU @02 03002000 REG3 EQU @03 03003000 REG4 EQU @04 03004000 REG5 EQU @05 03005000 REG6 EQU @06 03006000 REG7 EQU @07 03007000 REG8 EQU @08 03008000 REG9 EQU @09 03009000 IDCSAEP0 EQU 0 03010000 IDCSAGS0 EQU 0 03011000 IDCSAFS0 EQU 0 03012000 TRACE1 EQU 0 03013000 OLDERID1 EQU TRACE1 03014000 TRACE2 EQU 0 03015000 OLDERID2 EQU TRACE2 03016000 NEWID2 EQU TRACE2+95 03017000 NEWERID2 EQU 5 03018000 LISTTEST EQU 0 03019000 CIRAGL EQU 0 03020000 CIRTYPE EQU CIRAGL 03021000 ALLAGL EQU 0 03022000 ALLSTS EQU ALLAGL+24 03023000 ALLDSP EQU ALLAGL+25 03024000 ALLORG EQU ALLAGL+26 03025000 ALLOPT EQU ALLAGL+28 03026000 RACFAGL EQU 0 03027000 RACFFLG1 EQU RACFAGL 03028000 RACFFLG2 EQU RACFAGL+1 03029000 RACFFLG3 EQU RACFAGL+2 03030000 RACFFLG4 EQU RACFAGL+3 03031000 UNITABL EQU 0 03032000 UNITADR EQU UNITABL+4 03033000 @NM00017 EQU UNITADR 03034000 UNITSTAT EQU UNITABL+6 03035000 IOCSTR EQU 0 03036000 IOCDSO EQU IOCSTR+16 03037000 IOCRFM EQU IOCSTR+17 03038000 IOCMAC EQU IOCSTR+18 03039000 IOCMAC2 EQU IOCSTR+19 03040000 IOCCHP EQU IOCSTR+20 03041000 IOCMSG EQU IOCSTR+21 03042000 IOCRBA EQU IOCSTR+40 03043000 IOCTTR EQU IOCRBA 03044000 IOCMEM EQU IOCSTR+44 03045000 IOCNWM EQU IOCSTR+48 03046000 IOCREL EQU IOCSTR+60 03047000 OPNAGL EQU 0 03048000 OPNOPT EQU OPNAGL 03049000 OPNRFM EQU OPNAGL+1 03050000 OPNTYP EQU OPNAGL+2 03051000 OPNMOD EQU OPNAGL+3 03052000 OPNDEV EQU OPNAGL+24 03053000 OPNDSO EQU OPNAGL+41 03054000 OPNOPT2 EQU OPNAGL+42 03055000 IOINFOPT EQU 0 03056000 UVOLLIST EQU 0 03057000 UVOLENT EQU UVOLLIST+2 03058000 AMSTP011 EQU 0 03059000 DARGLIST EQU 0 03060000 DARGDBP EQU DARGLIST 03061000 DARGSTID EQU DARGLIST+8 03062000 DARGSMOD EQU DARGSTID 03063000 DARGSENT EQU DARGSTID+3 03064000 DARGILP EQU DARGLIST+12 03065000 DARGARY EQU DARGLIST+20 03066000 DARGINS EQU DARGARY 03067000 DARGINL EQU DARGARY+2 03068000 FMTLIST EQU 0 03069000 FMTFLGS EQU FMTLIST 03070000 FMTSPF EQU FMTLIST+2 03071000 FMTRFNO EQU FMTSPF 03072000 FMTILEN EQU FMTRFNO 03073000 FMTIOFF EQU FMTLIST+4 03074000 FMTTRBC EQU FMTIOFF 03075000 FMTSTO EQU FMTTRBC 03076000 FMTOCOL EQU FMTLIST+6 03077000 FMTCNVF EQU FMTLIST+10 03078000 ERCNVTAB EQU 0 03079000 ERTYPE EQU ERCNVTAB 03080000 EROPER EQU ERCNVTAB+1 03081000 EROSOPER EQU ERCNVTAB+2 03082000 ERCATRC EQU ERCNVTAB+16 03083000 ERCPLPT EQU ERCNVTAB+20 03084000 IDCDB010 EQU 0 03085000 DMPITM EQU 0 03086000 DMPITMNM EQU DMPITM 03087000 DMPITMPT EQU DMPITM+8 03088000 DMPITMLN EQU DMPITM+12 03089000 DMPITMTP EQU DMPITM+14 03090000 DMPARY EQU 0 03091000 DMPTRM EQU 0 03092000 CCMSG EQU 0 03093000 CMMSG EQU 0 03094000 CMVOLFLG EQU CMMSG+6 03095000 CTMSG EQU 0 03096000 CTARRAY EQU CTMSG+4 03097000 MDAGL EQU 0 03098000 MDFLAGS EQU MDAGL+30 03099000 MDVTOC EQU MDAGL+32 03100000 PUAGL EQU 0 03101000 CKAGL EQU 0 03102000 CKFLAGS EQU CKAGL+28 03103000 EXCLAGL EQU 0 03104000 EXCLFLAG EQU EXCLAGL+22 03105000 EXOARG EQU 0 03106000 EXOPT EQU EXOARG+32 03107000 EXFLG EQU EXOARG+33 03108000 EXGARG EQU 0 03109000 EXWRARG EQU 0 03110000 EXRWCHR EQU EXWRARG+26 03111000 EXSPACE EQU EXWRARG+36 03112000 EXPARG EQU 0 03113000 EXPDATA EQU EXPARG+12 03114000 EXPDATAB EQU 0 03115000 EXPARRAY EQU EXPDATAB+4 03116000 VS2AGL EQU 0 03117000 VSLABOPT EQU VS2AGL+28 03118000 VS2MSG EQU VS2AGL+35 03119000 VS2RESOP EQU VS2AGL+36 03120000 VS1AGL EQU 0 03121000 VSSECOPT EQU VS1AGL+68 03122000 VSVTOPT EQU VS1AGL+69 03123000 VSCATOPT EQU VS1AGL+70 03124000 VSRETURN EQU VS1AGL+71 03125000 VSMSG EQU VS1AGL+72 03126000 VSRESOPT EQU VS1AGL+73 03127000 RCTAGL EQU 0 03128000 RCTOPT EQU RCTAGL+8 03129000 STAEPARM EQU 0 03130000 STARCVY EQU STAEPARM+52 03131000 STARETRY EQU STAEPARM+53 03132000 VOLLABEL EQU 0 03133000 SV82LIST EQU 0 03134000 @NM00074 EQU SV82LIST+4 03135000 SV82DCBP EQU @NM00074 03136000 @NM00075 EQU SV82LIST+12 03137000 SV82WRKP EQU @NM00075 03138000 SRTAGL EQU 0 03139000 LCTINFO EQU 0 03140000 LCTFLAGS EQU LCTINFO+32 03141000 UCTAGL EQU 0 03142000 UCTFLAGS EQU UCTAGL+68 03143000 SELAGL EQU 0 03144000 SELFLAGS EQU SELAGL+22 03145000 DATESAGL EQU 0 03146000 DATESOPT EQU DATESAGL+20 03147000 VS3AGL EQU 0 03148000 VS3FLAGS EQU VS3AGL+58 03149000 VSDVTOC EQU 0 03150000 VSDSTAT EQU 0 03151000 VSDSFLG1 EQU VSDSTAT+16 03152000 VSDFLG2 EQU VSDSTAT+17 03153000 VSDSCR EQU 0 03154000 VSDSCRFL EQU VSDSCR+4 03155000 VSDUSAGE EQU 0 03156000 VSDDORG EQU VSDUSAGE+9 03157000 VSDALLOC EQU VSDUSAGE+10 03158000 VSDUSEF EQU VSDUSAGE+11 03159000 VSDDSORG EQU VSDUSAGE+16 03160000 VSDBLOCK EQU 0 03161000 VSDSPACE EQU VSDBLOCK+12 03162000 VSDARRAY EQU VSDBLOCK+16 03163000 VSDVARY EQU VSDARRAY+48 03164000 ACQLIST EQU 0 03165000 ARFLG EQU ACQLIST+6 03166000 ARECB EQU ACQLIST+16 03167000 ARCOMPC EQU ACQLIST+26 03168000 AREXT EQU ACQLIST+28 03169000 MNTLIST EQU 0 03170000 MDLEN EQU MNTLIST 03171000 MDOPCD EQU MNTLIST+4 03172000 MDFLG EQU MNTLIST+6 03173000 MNTEXTP EQU MNTLIST+24 03174000 DMNTLIST EQU 0 03175000 DMLEN EQU DMNTLIST 03176000 DMOPCD EQU DMNTLIST+4 03177000 DMNTFLAG EQU DMNTLIST+6 03178000 DMNTECB EQU DMNTLIST+16 03179000 DEFLIST EQU 0 03180000 DEFVLEN EQU DEFLIST 03181000 DEFVOPCD EQU DEFLIST+4 03182000 DEFVFLG EQU DEFLIST+6 03183000 DEFVLIB EQU DEFLIST+7 03184000 DEFVVFLG EQU DEFLIST+14 03185000 DEFVECB EQU DEFLIST+52 03186000 DEFVDATA EQU DEFLIST+56 03187000 MCLIST EQU 0 03188000 MCRTLEN EQU MCLIST 03189000 MCRTOPCD EQU MCLIST+4 03190000 MCRTFLG EQU MCLIST+6 03191000 MCRTLIB EQU MCLIST+7 03192000 MCRTECB EQU MCLIST+40 03193000 COTLIST EQU 0 03194000 COTBLL EQU COTLIST 03195000 COTBOP EQU COTLIST+4 03196000 COTBFLG EQU COTLIST+6 03197000 COTBECB EQU COTLIST+20 03198000 TRACLIST EQU 0 03199000 TRACLEN EQU TRACLIST 03200000 TRACOPC EQU TRACLIST+4 03201000 TRACFLG EQU TRACLIST+6 03202000 COVLIST EQU 0 03203000 CVOLLEN EQU COVLIST 03204000 CVOLOPCD EQU COVLIST+4 03205000 CVOLFLG EQU COVLIST+6 03206000 CVOLECB EQU COVLIST+16 03207000 COCLIST EQU 0 03208000 CCRTLEN EQU COCLIST 03209000 CCRTOPCD EQU COCLIST+4 03210000 CCRTFLG EQU COCLIST+6 03211000 CCRTECB EQU COCLIST+16 03212000 TUNELIST EQU 0 03213000 TUNELEN EQU TUNELIST 03214000 TUNEOPCD EQU TUNELIST+4 03215000 TUNEFLAG EQU TUNELIST+6 03216000 TUNEECB EQU TUNELIST+12 03217000 NULLLIST EQU 0 03218000 NULENGTH EQU NULLLIST 03219000 NULORDER EQU NULLLIST+4 03220000 NULFLAGA EQU NULLLIST+6 03221000 NULECB EQU NULLLIST+16 03222000 QUERLIST EQU 0 03223000 QULEN EQU QUERLIST 03224000 QUORD EQU QUERLIST+4 03225000 QUCODE EQU QUERLIST+6 03226000 QUSECT EQU QUERLIST+7 03227000 QUXADDR EQU QUSECT 03228000 QUFLAG EQU QUXADDR 03229000 QUPARM EQU QUERLIST+8 03230000 MODCLIST EQU 0 03231000 MODLEN EQU MODCLIST 03232000 MODORDER EQU MODCLIST+4 03233000 MODFUNC EQU MODCLIST+6 03234000 MODLOCAT EQU MODCLIST+7 03235000 MODVFLG EQU MODCLIST+48 03236000 ECB EQU 0 03237000 ECBRB EQU ECB 03238000 ECBEVTB EQU ECBRB 03239000 ECBEXTB EQU ECBEVTB 03240000 ECBCC EQU ECBEXTB 03241000 ECBPOSTB EQU ECBCC 03242000 ECBCCCNT EQU ECBEXTB+1 03243000 ECBRBA EQU ECBCCCNT 03244000 ECBEVTBA EQU ECBRBA 03245000 ECBEXTBA EQU ECBEVTBA 03246000 ECBBYTE3 EQU ECBEXTBA+2 03247000 ECBEXTND EQU ECBBYTE3 03248000 MACLIST EQU 0 03249000 MACLNG EQU MACLIST 03250000 MACRO EQU 0 03251000 AMSTP041 EQU 0 03252000 AMSTP042 EQU 0 03253000 AMSTP043 EQU 0 03254000 AMSTP044 EQU 0 03255000 IDCIOCL0 EQU 0 03256000 IDCIOCO0 EQU 0 03257000 IDCIOGT0 EQU 0 03258000 IDCIOIT0 EQU 0 03259000 IDCIOOP0 EQU 0 03260000 IDCIOPO0 EQU 0 03261000 IDCIOPT0 EQU 0 03262000 IDCIOSI0 EQU 0 03263000 IDCIOST0 EQU 0 03264000 IDCIOTM0 EQU 0 03265000 IDCIOVY0 EQU 0 03266000 IDCIO050 EQU 0 03267000 IDCSAAL0 EQU 0 03268000 IDCSACA0 EQU 0 03269000 IDCSACL0 EQU 0 03270000 IDCSACR0 EQU 0 03271000 IDCSADE0 EQU 0 03272000 IDCSADL0 EQU 0 03273000 IDCSADQ0 EQU 0 03274000 IDCSAFP0 EQU 0 03275000 IDCSAGP0 EQU 0 03276000 IDCSAID0 EQU 0 03277000 IDCSALC0 EQU 0 03278000 IDCSALD0 EQU 0 03279000 IDCSALK0 EQU 0 03280000 IDCSANQ0 EQU 0 03281000 IDCSAPR0 EQU 0 03282000 IDCSAPT0 EQU 0 03283000 IDCSAQL0 EQU 0 03284000 IDCSARC0 EQU 0 03285000 IDCSARK0 EQU 0 03286000 IDCSARV0 EQU 0 03287000 IDCSASC0 EQU 0 03288000 IDCSASI0 EQU 0 03289000 IDCSASN0 EQU 0 03290000 IDCSASS0 EQU 0 03291000 IDCSAST0 EQU 0 03292000 IDCSATI0 EQU 0 03293000 IDCSAUC0 EQU 0 03294000 IDCSAWO0 EQU 0 03295000 IDCSA060 EQU 0 03296000 IDCST010 EQU 0 03297000 IDCTPER0 EQU 0 03298000 NEWERID1 EQU 5 03299000 GDTTBL EQU 0 03300000 GDTTR1 EQU GDTTBL+8 03301000 GDTTR2 EQU GDTTBL+12 03302000 GDTDBG EQU GDTTBL+40 03303000 GDTSTC EQU GDTTBL+44 03304000 GDTPRT EQU GDTTBL+48 03305000 GDTESS EQU GDTTBL+52 03306000 GDTESA EQU GDTTBL+56 03307000 GDTRST EQU GDTTBL+60 03308000 GDTRES EQU GDTTBL+64 03309000 GDTCAL EQU GDTTBL+68 03310000 GDTGSP EQU GDTTBL+72 03311000 GDTFSP EQU GDTTBL+76 03312000 GDTGPL EQU GDTTBL+80 03313000 GDTFPL EQU GDTTBL+84 03314000 GDTLOD EQU GDTTBL+88 03315000 GDTDEL EQU GDTTBL+92 03316000 GDTPRL EQU GDTTBL+96 03317000 GDTEPL EQU GDTTBL+100 03318000 GDTTIM EQU GDTTBL+104 03319000 GDTIIO EQU GDTTBL+108 03320000 GDTTIO EQU GDTTBL+112 03321000 GDTOPN EQU GDTTBL+124 03322000 GDTCLS EQU GDTTBL+128 03323000 GDTGET EQU GDTTBL+132 03324000 GDTPUT EQU GDTTBL+136 03325000 GDTPOS EQU GDTTBL+140 03326000 GDTCPY EQU GDTTBL+144 03327000 GDTCAT EQU GDTTBL+148 03328000 GDTABT EQU GDTTBL+152 03329000 GDTABH EQU GDTTBL+156 03330000 GDTSNP EQU GDTTBL+164 03331000 GDTVFY EQU GDTTBL+172 03332000 GDTUID EQU GDTTBL+192 03333000 GDTPMT EQU GDTTBL+196 03334000 GDTCIR EQU GDTTBL+200 03335000 GDTLNK EQU GDTTBL+204 03336000 GDTALC EQU GDTTBL+208 03337000 GDTDLC EQU GDTTBL+212 03338000 GDTQAL EQU GDTTBL+216 03339000 GDTSTW EQU GDTTBL+220 03340000 GDTSSC EQU GDTTBL+224 03341000 GDTENQ EQU GDTTBL+228 03342000 GDTRSV EQU GDTTBL+232 03343000 GDTDEQ EQU GDTTBL+236 03344000 GDTSFO EQU GDTTBL+240 03345000 GDTWTO EQU GDTTBL+244 03346000 GDTSCR EQU GDTTBL+248 03347000 GDTUNT EQU GDTTBL+252 03348000 GDTRCT EQU GDTTBL+256 03349000 GDTIFO EQU GDTTBL+260 03350000 GDTEXP EQU GDTTBL+264 03351000 GDTSTA EQU GDTTBL+268 03352000 GDTERR EQU GDTTBL+272 03353000 GDTUNC EQU GDTTBL+276 03354000 GDTLOC EQU GDTTBL+280 03355000 GDTRCK EQU GDTTBL+284 03356000 SSCARGPT EQU 0 03357000 SSCTYPE EQU 0 03358000 SSCRCODE EQU 0 03359000 SSCECODE EQU 0 03360000 SSCMSGPT EQU 0 03361000 QWPARM EQU QUPARM 03362000 QWRES1 EQU QWPARM 03363000 QWFLAG EQU QWPARM+2 03364000 QTPARM EQU QUPARM 03365000 QTID EQU QTPARM 03366000 QLPARM EQU QUPARM 03367000 QCPARM EQU QUPARM 03368000 MACNMTAB EQU NAMETAB 03369000 MACNMNUM EQU MACNMTAB 03370000 @NM00132 EQU MACNMTAB+1 03371000 MACNAME EQU @NM00132 03372000 @NM00133 EQU @NM00132+8 03373000 MACTYPE EQU @NM00133 03374000 MACLEN EQU @NM00132+9 03375000 AGO .@UNREFD START UNREFERENCED COMPONENTS 03376000 QCMAD3Z1 EQU QCPARM+28 03377000 QCMAD3Z0 EQU QCPARM+24 03378000 QCMAD2Z1 EQU QCPARM+20 03379000 QCMAD2Z0 EQU QCPARM+16 03380000 QCMAD1Z1 EQU QCPARM+12 03381000 QCMAD1Z0 EQU QCPARM+8 03382000 QCMAD0Z1 EQU QCPARM+4 03383000 QCMAD0Z0 EQU QCPARM 03384000 QLRES EQU QLPARM+2 03385000 QLZYX EQU QLPARM 03386000 QTRES EQU QTPARM+24 03387000 QTDASCHR EQU QTPARM+20 03388000 QTDATA EQU QTPARM+2 03389000 QTFLAG EQU QTPARM+1 03390000 QTTABID EQU QTID 03391000 QWRES2 EQU QWPARM+3 03392000 @NM00122 EQU QWFLAG 03393000 QWMEM EQU QWFLAG 03394000 QWSSID EQU QWRES1 03395000 GDTECT EQU GDTTBL+188 03396000 GDTPSB EQU GDTTBL+184 03397000 GDTUPT EQU GDTTBL+180 03398000 GDTCMB EQU GDTTBL+176 03399000 GDTSPR EQU GDTTBL+168 03400000 @NM00001 EQU GDTTBL+160 03401000 GDTTOH EQU GDTTBL+120 03402000 GDTRIP EQU GDTTBL+116 03403000 GDTIOH EQU GDTTBL+36 03404000 GDTSAH EQU GDTTBL+32 03405000 GDTTPH EQU GDTTBL+28 03406000 GDTRIH EQU GDTTBL+24 03407000 GDTSTH EQU GDTTBL+20 03408000 GDTDBH EQU GDTTBL+16 03409000 GDTPRM EQU GDTTBL+4 03410000 GDTHDR EQU GDTTBL 03411000 ECBEVNT EQU ECBEXTND 03412000 @NM00131 EQU ECBEXTND 03413000 @NM00130 EQU ECBBYTE3 03414000 @NM00129 EQU ECBEXTBA 03415000 @NM00128 EQU ECBCC 03416000 ECBWAITB EQU ECBCC 03417000 @NM00127 EQU MODCLIST+50 03418000 MODSEQNO EQU MODCLIST+49 03419000 @NM00126 EQU MODVFLG 03420000 MODWINH EQU MODVFLG 03421000 MODBIND EQU MODVFLG 03422000 MODSCR EQU MODVFLG 03423000 MODEXCL EQU MODVFLG 03424000 MODSECUR EQU MODVFLG 03425000 @NM00125 EQU MODVFLG 03426000 MODNCSN EQU MODCLIST+36 03427000 MODNLXYZ EQU MODCLIST+34 03428000 MODNVOL EQU MODCLIST+28 03429000 MODCSN EQU MODCLIST+16 03430000 MODLXYZ EQU MODCLIST+14 03431000 MODVOLID EQU MODCLIST+8 03432000 @NM00124 EQU MODLOCAT 03433000 MODLSEQ2 EQU MODLOCAT 03434000 MODLSEQ1 EQU MODLOCAT 03435000 MODLLXYZ EQU MODLOCAT 03436000 MODLVOL EQU MODLOCAT 03437000 MODLCSN EQU MODLOCAT 03438000 @NM00123 EQU MODFUNC 03439000 MODMOVE EQU MODFUNC 03440000 MODCREAT EQU MODFUNC 03441000 MODUPDTE EQU MODFUNC 03442000 MODRES1 EQU MODCLIST+5 03443000 QUPTR EQU QUERLIST+40 03444000 QURES1 EQU QUFLAG 03445000 QULIB EQU QUCODE 03446000 QURES EQU QUERLIST+5 03447000 NULRES2 EQU NULLLIST+32 03448000 NULCSN EQU NULLLIST+20 03449000 NULASID EQU NULLLIST+14 03450000 NULVOLID EQU NULLLIST+8 03451000 @NM00121 EQU NULFLAGA 03452000 NULCART2 EQU NULFLAGA 03453000 NULCART1 EQU NULFLAGA 03454000 @NM00120 EQU NULFLAGA 03455000 NULSCRC EQU NULFLAGA 03456000 NULTRAN EQU NULFLAGA 03457000 NULVOL EQU NULFLAGA 03458000 NULRES1 EQU NULLLIST+5 03459000 TUNEDATA EQU TUNELIST+16 03460000 TUNEASID EQU TUNELIST+10 03461000 TUNERES2 EQU TUNELIST+9 03462000 TUNESDGN EQU TUNELIST+8 03463000 TUNRES2 EQU TUNEFLAG+1 03464000 TUNCLOCK EQU TUNEFLAG+1 03465000 TUNSLICE EQU TUNEFLAG+1 03466000 TUNTHRES EQU TUNEFLAG+1 03467000 TUNRES1 EQU TUNEFLAG 03468000 TUNMODE EQU TUNEFLAG 03469000 TUNERES1 EQU TUNELIST+5 03470000 CCRTCSN EQU COCLIST+20 03471000 CCRTASID EQU COCLIST+14 03472000 CCRTVOL EQU COCLIST+8 03473000 @NM00119 EQU CCRTFLG 03474000 CCRTCRT2 EQU CCRTFLG 03475000 CCRTCRT1 EQU CCRTFLG 03476000 CCRTRES1 EQU COCLIST+5 03477000 CVOLVEXT EQU COVLIST+36 03478000 CVOLRES2 EQU COVLIST+34 03479000 CVOLRUA EQU COVLIST+32 03480000 CVOLCSN EQU COVLIST+20 03481000 CVOLASID EQU COVLIST+14 03482000 CVOLID EQU COVLIST+8 03483000 @NM00118 EQU CVOLFLG 03484000 CVOCRCRV EQU CVOLFLG 03485000 CVOCRCR EQU CVOLFLG 03486000 CVOCRDAS EQU CVOLFLG 03487000 CVODASCR EQU CVOLFLG 03488000 CVOLRES1 EQU COVLIST+5 03489000 TRACTIM EQU TRACLIST+8 03490000 @NM00117 EQU TRACFLG 03491000 TRACEON EQU TRACFLG 03492000 @NM00116 EQU TRACLIST+5 03493000 COTBASID EQU COTLIST+18 03494000 COTBVOL EQU COTLIST+12 03495000 COTBEXTS EQU COTLIST+8 03496000 @NM00115 EQU COTBFLG+1 03497000 COTBTRI EQU COTBFLG+1 03498000 COTBTRA EQU COTBFLG+1 03499000 COTBTRY EQU COTBFLG+1 03500000 COTBTRX EQU COTBFLG+1 03501000 @NM00114 EQU COTBFLG 03502000 COTBTID EQU COTBFLG 03503000 @NM00113 EQU COTLIST+5 03504000 MCRTVEXT EQU MCLIST+44 03505000 MCRTASID EQU MCLIST+38 03506000 MCRTRES4 EQU MCLIST+36 03507000 MCRTCSN EQU MCLIST+24 03508000 MCRTRES3 EQU MCLIST+16 03509000 MCRTRES2 EQU MCLIST+8 03510000 MCRTLD EQU MCRTLIB 03511000 @NM00112 EQU MCRTLIB 03512000 @NM00111 EQU MCRTFLG 03513000 MCRTSCT EQU MCRTFLG 03514000 MCRTTRAN EQU MCRTFLG 03515000 @NM00110 EQU MCRTFLG 03516000 MCRTRES1 EQU MCLIST+5 03517000 DEFVVEXT EQU DEFLIST+128 03518000 DEFTLAB EQU DEFVDATA+71 03519000 DEFR60 EQU DEFVDATA+43 03520000 DEFOWNID EQU DEFVDATA+29 03521000 DEFR55 EQU DEFVDATA+3 03522000 DEFACSEC EQU DEFVDATA+2 03523000 DEFR50 EQU DEFVDATA 03524000 DEFVASID EQU DEFLIST+50 03525000 @NM00109 EQU DEFLIST+48 03526000 DEFVCSN2 EQU DEFLIST+36 03527000 DEFVCSN1 EQU DEFLIST+24 03528000 @NM00108 EQU DEFLIST+22 03529000 DEFVNVOL EQU DEFLIST+16 03530000 @NM00107 EQU DEFLIST+15 03531000 @NM00106 EQU DEFVVFLG 03532000 DEFVWINH EQU DEFVVFLG 03533000 DEFVBIND EQU DEFVVFLG 03534000 @NM00105 EQU DEFVVFLG 03535000 DEFVEXCL EQU DEFVVFLG 03536000 DEFVSEC EQU DEFVVFLG 03537000 @NM00104 EQU DEFVVFLG 03538000 DEFVCECT EQU DEFVVFLG 03539000 DEFVOLD EQU DEFLIST+8 03540000 DEFVLID EQU DEFVLIB 03541000 @NM00103 EQU DEFVLIB 03542000 DEFVDACT EQU DEFVFLG 03543000 DEFVACT EQU DEFVFLG 03544000 DEFVRNTR EQU DEFVFLG 03545000 DEFVELTR EQU DEFVFLG 03546000 DEFVREP EQU DEFVFLG 03547000 DEFVRNM EQU DEFVFLG 03548000 DEFVELM EQU DEFVFLG 03549000 DEFVCR EQU DEFVFLG 03550000 @NM00102 EQU DEFLIST+5 03551000 DMNTVUA EQU DMNTLIST+26 03552000 DMNTRES2 EQU DMNTLIST+25 03553000 DMHOST EQU DMNTLIST+20 03554000 DMNTASID EQU DMNTLIST+14 03555000 DMVOL EQU DMNTLIST+8 03556000 DMBITRES EQU DMNTFLAG 03557000 DMVUAVAL EQU DMNTFLAG 03558000 DMDELRSP EQU DMNTFLAG 03559000 DMBITRE1 EQU DMNTFLAG 03560000 DMNTRES1 EQU DMNTLIST+5 03561000 MDJFCB EQU MNTEXTP 03562000 @NM00101 EQU MNTLIST+21 03563000 MDHOST EQU MNTLIST+16 03564000 MDVUA EQU MNTLIST+14 03565000 MDVOL EQU MNTLIST+8 03566000 @NM00100 EQU MDFLG 03567000 MDMEXT EQU MDFLG 03568000 MDSRTCH EQU MDFLG 03569000 MDVSVRQ EQU MDFLG 03570000 MDVISMNT EQU MDFLG 03571000 @NM00099 EQU MDFLG 03572000 @NM00098 EQU MNTLIST+5 03573000 ARNEDB EQU ACQLIST+92 03574000 @NM00097 EQU AREXT 03575000 @NM00096 EQU ACQLIST+25 03576000 ARHOST EQU ACQLIST+20 03577000 ARASID EQU ACQLIST+14 03578000 ARVOL EQU ACQLIST+8 03579000 ARNMEXT EQU ACQLIST+7 03580000 @NM00095 EQU ARFLG 03581000 ARSEC EQU ARFLG 03582000 ARINH EQU ARFLG 03583000 ARDRES EQU ARFLG 03584000 ARBDUBD EQU ARFLG 03585000 @NM00094 EQU ACQLIST+5 03586000 AROP EQU ACQLIST+4 03587000 ARLL EQU ACQLIST 03588000 VSDDSN EQU VSDARRAY+4 03589000 VSDVOLCT EQU VSDARRAY 03590000 VSDFMT0 EQU VSDBLOCK+8 03591000 VSDVTOCS EQU VSDBLOCK+4 03592000 VSDELEM EQU VSDBLOCK 03593000 VSDFREE EQU VSDUSAGE+24 03594000 VSDALLC EQU VSDUSAGE+19 03595000 VSDDSOR3 EQU VSDDSORG+2 03596000 @NM00093 EQU VSDDSORG 03597000 VSDSCAL EQU VSDUSAGE+12 03598000 @NM00092 EQU VSDUSEF 03599000 VSDCALFR EQU VSDUSEF 03600000 @NM00091 EQU VSDALLOC 03601000 VSDABSTR EQU VSDALLOC 03602000 VSDABLK EQU VSDALLOC 03603000 VSDATRK EQU VSDALLOC 03604000 VSDACYL EQU VSDALLOC 03605000 @NM00090 EQU VSDDORG 03606000 VSDOU EQU VSDDORG 03607000 VSDOIS EQU VSDDORG 03608000 VSDODA EQU VSDDORG 03609000 VSDOUN EQU VSDDORG 03610000 VSDOPS EQU VSDDORG 03611000 VSDOPO EQU VSDDORG 03612000 VSDEXTS EQU VSDUSAGE+8 03613000 VSDSECAL EQU VSDUSAGE+4 03614000 VSDFTRK EQU VSDUSAGE+2 03615000 VSDTRKS EQU VSDUSAGE 03616000 @NM00089 EQU VSDSCR+5 03617000 @NM00088 EQU VSDSCRFL 03618000 VSDVSAM EQU VSDSCRFL 03619000 VSDCATLC EQU VSDSCRFL 03620000 VSDACBPT EQU VSDSCR 03621000 @NM00087 EQU VSDSTAT+29 03622000 VSDPRTC EQU VSDSTAT+25 03623000 VSDCAT EQU VSDSTAT+22 03624000 VSDEXP EQU VSDSTAT+20 03625000 VSDCRE EQU VSDSTAT+18 03626000 @NM00086 EQU VSDFLG2 03627000 VSDRACF EQU VSDFLG2 03628000 VSDERROR EQU VSDFLG2 03629000 VSDPROT EQU VSDFLG2 03630000 VSDPWW EQU VSDFLG2 03631000 VSDPWR EQU VSDFLG2 03632000 @NM00085 EQU VSDSFLG1 03633000 VSDCVSAM EQU VSDSFLG1 03634000 VSDCATLG EQU VSDSFLG1 03635000 VSDVSAME EQU VSDSFLG1 03636000 VSDVSAMC EQU VSDSFLG1 03637000 VSDVTOCE EQU VSDSFLG1 03638000 VSDVTOCC EQU VSDSFLG1 03639000 VSDOWNER EQU VSDSTAT+8 03640000 VSDEXPIR EQU VSDSTAT+4 03641000 VSDCREAT EQU VSDSTAT 03642000 VSDFRCCL EQU VSDVTOC+21 03643000 @NM00084 EQU VSDVTOC+20 03644000 VSDFREXT EQU VSDVTOC+16 03645000 @NM00083 EQU VSDVTOC+15 03646000 VSDFRTRK EQU VSDVTOC+11 03647000 @NM00082 EQU VSDVTOC+10 03648000 VSDFRCYL EQU VSDVTOC+6 03649000 @NM00081 EQU VSDVTOC 03650000 @NM00080 EQU VS3FLAGS 03651000 VS3SYSNM EQU VS3FLAGS 03652000 VS3UNCAT EQU VS3FLAGS 03653000 VS3SCR EQU VS3FLAGS 03654000 VS3USAGE EQU VS3FLAGS 03655000 VS3STAT EQU VS3FLAGS 03656000 VS3DD EQU VS3AGL+50 03657000 VS3VOL EQU VS3AGL+44 03658000 VS3POOL EQU VS3AGL+40 03659000 VS3DEV EQU VS3AGL+36 03660000 VS3UCBP EQU VS3AGL+32 03661000 VS3CREAT EQU VS3AGL+28 03662000 VS3EXPIR EQU VS3AGL+24 03663000 VS3AST EQU VS3AGL+22 03664000 VS3LEVLN EQU VS3AGL+20 03665000 VS3LEVP EQU VS3AGL+16 03666000 VS3EXDSP EQU VS3AGL+12 03667000 VS3LISTP EQU VS3AGL+8 03668000 VS3HEAD EQU VS3AGL 03669000 @NM00079 EQU DATESOPT 03670000 DATDAYOP EQU DATESOPT 03671000 DATDTEOP EQU DATESOPT 03672000 DATSUB EQU DATESOPT 03673000 DATADD EQU DATESOPT 03674000 DATRETRN EQU DATESAGL+16 03675000 DATDAYS EQU DATESAGL+12 03676000 DATDATE EQU DATESAGL+8 03677000 DATHEAD EQU DATESAGL 03678000 @NM00078 EQU SELFLAGS 03679000 SELVOL EQU SELAGL+16 03680000 SELDDNP EQU SELAGL+12 03681000 SELUCBP EQU SELAGL+8 03682000 SELHEAD EQU SELAGL 03683000 @NM00077 EQU UCTFLAGS 03684000 UCTVSCAT EQU UCTFLAGS 03685000 UCTDD EQU UCTAGL+60 03686000 UCTVOLP EQU UCTAGL+56 03687000 UCTACBP EQU UCTAGL+52 03688000 UCTDSN EQU UCTAGL+8 03689000 UCTHEAD EQU UCTAGL 03690000 @NM00076 EQU LCTFLAGS 03691000 LCTVSCAT EQU LCTFLAGS 03692000 LCTOWNER EQU LCTINFO+24 03693000 LCTEXPIR EQU LCTINFO+20 03694000 LCTCREAT EQU LCTINFO+16 03695000 LCTACBP EQU LCTINFO+12 03696000 LCTMULVC EQU LCTINFO+8 03697000 LCTHEAD EQU LCTINFO 03698000 SRTWORKP EQU SRTAGL+28 03699000 SRTFLDLN EQU SRTAGL+24 03700000 SRTPOSIT EQU SRTAGL+20 03701000 SRTLEN EQU SRTAGL+16 03702000 SRTNUM EQU SRTAGL+12 03703000 SRTADDR EQU SRTAGL+8 03704000 SRTHEAD EQU SRTAGL 03705000 SV82DEBP EQU SV82WRKP 03706000 SV82TTRP EQU SV82LIST+8 03707000 SV82VOLP EQU SV82DCBP 03708000 SV82UCBP EQU SV82LIST+1 03709000 SV82CODE EQU SV82LIST 03710000 VOLRESV3 EQU VOLLABEL+55 03711000 VOLOWNER EQU VOLLABEL+45 03712000 VOLRESV1 EQU VOLLABEL+20 03713000 VOLVTOC EQU VOLLABEL+15 03714000 VOLSECTY EQU VOLLABEL+14 03715000 VOLSERNO EQU VOLLABEL+8 03716000 VOLNO EQU VOLLABEL+7 03717000 VOLLABI EQU VOLLABEL+4 03718000 VOLKEY EQU VOLLABEL 03719000 STAVTTR EQU STAEPARM+54 03720000 @NM00073 EQU STARETRY 03721000 STAVTOC EQU STARETRY 03722000 STAOFF EQU STARETRY 03723000 STAIO05 EQU STARETRY 03724000 @NM00072 EQU STARCVY 03725000 STACLEAR EQU STARCVY 03726000 STAVPOST EQU STARCVY 03727000 STAVENQ EQU STARCVY 03728000 STAVDMNT EQU STARCVY 03729000 STAVMNT EQU STARCVY 03730000 STATCB EQU STAEPARM+48 03731000 STARTADD EQU STAEPARM+44 03732000 STAEXSAV EQU STAEPARM+40 03733000 STARTSAV EQU STAEPARM+36 03734000 STARTTR EQU STAEPARM+32 03735000 @NM00071 EQU STAEPARM+30 03736000 STARVOL EQU STAEPARM+24 03737000 STARUCB EQU STAEPARM+20 03738000 @NM00070 EQU STAEPARM+18 03739000 STAVVOL EQU STAEPARM+12 03740000 STAVUCB EQU STAEPARM+8 03741000 STAHEAD EQU STAEPARM 03742000 RCTDSET EQU RCTAGL+32 03743000 RCTNVOL EQU RCTAGL+26 03744000 RCTOVOL EQU RCTAGL+20 03745000 RCTNDEV EQU RCTAGL+16 03746000 RCTODEV EQU RCTAGL+12 03747000 @NM00069 EQU RCTAGL+10 03748000 @NM00068 EQU RCTOPT 03749000 RCTVOL EQU RCTOPT 03750000 RCTDEV EQU RCTOPT 03751000 RCTHEAD EQU RCTAGL 03752000 @NM00067 EQU VSRESOPT 03753000 VSREAL EQU VSRESOPT 03754000 VSRES EQU VSRESOPT 03755000 @NM00066 EQU VSMSG 03756000 VSTOV EQU VSMSG 03757000 VSFROMV EQU VSMSG 03758000 @NM00065 EQU VSRETURN 03759000 VSUCAT EQU VSRETURN 03760000 VSVSAM EQU VSRETURN 03761000 @NM00064 EQU VSCATOPT 03762000 VSLIST EQU VSCATOPT 03763000 VSSERIAL EQU VSCATOPT 03764000 VSDEVICE EQU VSCATOPT 03765000 @NM00063 EQU VSVTOPT 03766000 VSVSFLAG EQU VSVTOPT 03767000 VSALTTRK EQU VSVTOPT 03768000 VSTIME EQU VSVTOPT 03769000 VSUCMAST EQU VSSECOPT 03770000 VSOPCAT EQU VSSECOPT 03771000 VSUCTEST EQU VSSECOPT 03772000 VSWRITE EQU VSSECOPT 03773000 VSREAD EQU VSSECOPT 03774000 VSNONONV EQU VSSECOPT 03775000 VSMASTER EQU VSSECOPT 03776000 VSNOVSAM EQU VSSECOPT 03777000 VSODEVP EQU VS1AGL+64 03778000 VSOSERP EQU VS1AGL+60 03779000 VSDEVP EQU VS1AGL+56 03780000 VSSERP EQU VS1AGL+52 03781000 VSPFILEP EQU VS1AGL+48 03782000 VSPSWDP EQU VS1AGL+44 03783000 VSCATDDP EQU VS1AGL+40 03784000 VSACBP EQU VS1AGL+36 03785000 VSCATP EQU VS1AGL+32 03786000 VSNXTATP EQU VS1AGL+28 03787000 VSNUMATP EQU VS1AGL+24 03788000 VSIOP EQU VS1AGL+20 03789000 VSFILEP EQU VS1AGL+16 03790000 VSVOLP EQU VS1AGL+12 03791000 VSUCBP EQU VS1AGL+8 03792000 VSHEAD EQU VS1AGL 03793000 VSVTOCPT EQU VS2AGL+48 03794000 @NM00062 EQU VS2AGL+45 03795000 VSDDNAME EQU VS2AGL+37 03796000 @NM00061 EQU VS2RESOP 03797000 VS2REAL EQU VS2RESOP 03798000 VS2RES EQU VS2RESOP 03799000 @NM00060 EQU VS2MSG 03800000 VS2TOV EQU VS2MSG 03801000 VSVOLUME EQU VS2AGL+29 03802000 @NM00059 EQU VSLABOPT 03803000 VSNOVTOC EQU VSLABOPT 03804000 VSVOLSER EQU VSLABOPT 03805000 VSOWNER EQU VSLABOPT 03806000 VSIOBKPT EQU VS2AGL+24 03807000 VSVOLPTR EQU VS2AGL+20 03808000 VSOWNPTR EQU VS2AGL+16 03809000 VSVTOCSZ EQU VS2AGL+12 03810000 VSUCBPTR EQU VS2AGL+8 03811000 VS2HEAD EQU VS2AGL 03812000 EXPDATAL EQU EXPARRAY+6 03813000 @NM00058 EQU EXPARRAY+5 03814000 EXPKEYLN EQU EXPARRAY+4 03815000 EXPDATAP EQU EXPARRAY 03816000 EXPRECNO EQU EXPDATAB 03817000 EXPCCHHR EQU EXPARG+16 03818000 EXPCTLBK EQU EXPARG+8 03819000 EXPHEAD EQU EXPARG 03820000 EXRWFUN EQU EXWRARG+46 03821000 @NM00057 EQU EXSPACE+8 03822000 @NM00056 EQU EXSPACE+6 03823000 @NM00055 EQU EXSPACE+4 03824000 @NM00054 EQU EXSPACE+1 03825000 @NM00053 EQU EXSPACE 03826000 EXRWKDLN EQU EXWRARG+32 03827000 @NM00052 EQU EXWRARG+31 03828000 EXRECNUM EQU EXRWCHR+4 03829000 EXHH EQU EXRWCHR+2 03830000 EXCC EQU EXRWCHR 03831000 EXCCWCNT EQU EXWRARG+24 03832000 EXLOCPTR EQU EXWRARG+20 03833000 EXRWDARE EQU EXWRARG+16 03834000 EXRWIOAR EQU EXWRARG+12 03835000 EXRWCTBL EQU EXWRARG+8 03836000 EXRWRES EQU EXWRARG 03837000 EXGDATAL EQU EXGARG+30 03838000 @NM00051 EQU EXGARG+29 03839000 EXGKEYLN EQU EXGARG+28 03840000 EXGDATAP EQU EXGARG+24 03841000 EXGRECNO EQU EXGARG+20 03842000 EXGCCHH2 EQU EXGARG+16 03843000 EXGCCHH1 EQU EXGARG+12 03844000 EXGCTLBK EQU EXGARG+8 03845000 EXGHEAD EQU EXGARG 03846000 EXOVTH EQU EXFLG 03847000 EXORVT EQU EXFLG 03848000 EXORDS EQU EXFLG 03849000 EXOSPK EQU EXFLG 03850000 EXORVS EQU EXFLG 03851000 @NM00050 EQU EXFLG 03852000 EXOREAD EQU EXFLG 03853000 @NM00049 EQU EXOPT 03854000 EXOREP EQU EXOPT 03855000 EXOVTOC EQU EXOPT 03856000 EXONEW EQU EXOPT 03857000 EXOPASS EQU EXOPT 03858000 EXOLAB EQU EXOPT 03859000 EXOTAB EQU EXOPT 03860000 EXOCTLBK EQU EXOARG+28 03861000 EXOEXT EQU EXOARG+24 03862000 EXOUCB EQU EXOARG+20 03863000 EXOVSN EQU EXOARG+16 03864000 EXODSN EQU EXOARG+12 03865000 EXODDN EQU EXOARG+8 03866000 EXOHEAD EQU EXOARG 03867000 @NM00048 EQU EXCLFLAG 03868000 EXCLMNT EQU EXCLFLAG 03869000 EXCLVOL EQU EXCLAGL+16 03870000 EXCLDDP EQU EXCLAGL+12 03871000 EXCLUCBP EQU EXCLAGL+8 03872000 EXCLHEAD EQU EXCLAGL 03873000 @NM00047 EQU CKFLAGS 03874000 CKDMTABL EQU CKFLAGS 03875000 CKRETTYP EQU CKFLAGS 03876000 CKTESTVT EQU CKFLAGS 03877000 CKLABELP EQU CKAGL+24 03878000 CKDATYPE EQU CKAGL+20 03879000 CKDDNAME EQU CKAGL+12 03880000 CKUCBPTR EQU CKAGL+8 03881000 CKHEAD EQU CKAGL 03882000 PULABELP EQU PUAGL+16 03883000 PUTTRPTR EQU PUAGL+12 03884000 PUUCBPTR EQU PUAGL+8 03885000 PUHEAD EQU PUAGL 03886000 MDR EQU MDVTOC+4 03887000 MDHH EQU MDVTOC+2 03888000 MDCC EQU MDVTOC 03889000 @NM00046 EQU MDAGL+31 03890000 MDVTOCTR EQU MDFLAGS 03891000 MDFORCE EQU MDFLAGS 03892000 MDDEQ EQU MDFLAGS 03893000 MDENQ EQU MDFLAGS 03894000 MDWAIT EQU MDFLAGS 03895000 MDPOST EQU MDFLAGS 03896000 MDCLEAR EQU MDFLAGS 03897000 MDNEWVOL EQU MDFLAGS 03898000 MDLABEL EQU MDAGL+24 03899000 MDPUAGL EQU MDAGL+20 03900000 MDDDNAME EQU MDAGL+12 03901000 MDUCBPTR EQU MDAGL+8 03902000 MDHEAD EQU MDAGL 03903000 CTTBLRR EQU CTARRAY+3 03904000 CTTBLHH EQU CTARRAY+2 03905000 CTTBLCC EQU CTARRAY+1 03906000 CTTBLID EQU CTARRAY 03907000 CTREALH EQU CTMSG+3 03908000 CTREALCC EQU CTMSG+1 03909000 @NM00045 EQU CTMSG 03910000 CMCSN2 EQU CMMSG+28 03911000 CMCSN1 EQU CMMSG+16 03912000 CMNUMCRT EQU CMMSG+15 03913000 @NM00044 EQU CMMSG+14 03914000 CMNEWVOL EQU CMMSG+8 03915000 @NM00043 EQU CMMSG+7 03916000 @NM00042 EQU CMVOLFLG 03917000 CMRONLY EQU CMVOLFLG 03918000 CMBIND EQU CMVOLFLG 03919000 CMSCRCRT EQU CMVOLFLG 03920000 CMEXCL EQU CMVOLFLG 03921000 CMDERAS EQU CMVOLFLG 03922000 CMSCRVOL EQU CMVOLFLG 03923000 CMCECART EQU CMVOLFLG 03924000 CMOLDVOL EQU CMMSG 03925000 CCOLDCSN EQU CCMSG+24 03926000 CCNEWCSN EQU CCMSG+12 03927000 @NM00041 EQU CCMSG+10 03928000 CCVOL EQU CCMSG+4 03929000 @NM00040 EQU CCMSG+2 03930000 CCEJCODE EQU CCMSG+1 03931000 CCPSTCDE EQU CCMSG 03932000 @NM00039 EQU DMPARY+15 03933000 DMPARYTP EQU DMPARY+14 03934000 DMPARYEX EQU DMPARY+12 03935000 DMPARYIC EQU DMPARY+10 03936000 DMPARYSZ EQU DMPARY+8 03937000 DMPARYNM EQU DMPARY 03938000 @NM00038 EQU DMPITM+15 03939000 @NM00037 EQU ERCNVTAB+24 03940000 ERDARBPT EQU ERCPLPT 03941000 ERDYNRC EQU ERCATRC 03942000 ERDSNM EQU ERCNVTAB+12 03943000 @NM00036 EQU ERCNVTAB+4 03944000 @NM00035 EQU ERCNVTAB+3 03945000 @NM00034 EQU EROSOPER 03946000 EROSUCDX EQU EROSOPER 03947000 EROSCATL EQU EROSOPER 03948000 @NM00033 EQU EROPER 03949000 ERCATAL EQU EROPER 03950000 ERCATDL EQU EROPER 03951000 ERCATDE EQU EROPER 03952000 ERCATLC EQU EROPER 03953000 @NM00032 EQU ERTYPE 03954000 ERDYNAL EQU ERTYPE 03955000 EROSCAT EQU ERTYPE 03956000 ERCATLG EQU ERTYPE 03957000 @NM00031 EQU FMTCNVF+1 03958000 FMTAR EQU FMTCNVF+1 03959000 FMTBS EQU FMTCNVF+1 03960000 FMTSS EQU FMTCNVF+1 03961000 FMTAL EQU FMTCNVF+1 03962000 FMTZS EQU FMTCNVF+1 03963000 @NM00030 EQU FMTCNVF 03964000 FMTPU EQU FMTCNVF 03965000 FMTBD EQU FMTCNVF 03966000 FMTBHD EQU FMTCNVF 03967000 FMTBHA EQU FMTCNVF 03968000 FMTBH EQU FMTCNVF 03969000 FMTOLEN EQU FMTLIST+8 03970000 FMTRIO EQU FMTOCOL 03971000 FMTSPT EQU FMTSTO 03972000 FMTSTL EQU FMTILEN 03973000 @NM00029 EQU FMTFLGS+1 03974000 FMTSMSG EQU FMTFLGS+1 03975000 FMTHDF EQU FMTFLGS 03976000 FMTDFF EQU FMTFLGS 03977000 FMTSTF EQU FMTFLGS 03978000 FMTREPF EQU FMTFLGS 03979000 FMTBDF EQU FMTFLGS 03980000 FMTIDF EQU FMTFLGS 03981000 FMTSCF EQU FMTFLGS 03982000 FMTEOLF EQU FMTFLGS 03983000 DARGDTM EQU DARGARY+4 03984000 DARGPCT EQU DARGINL 03985000 DARGREP EQU DARGINS 03986000 @NM00028 EQU DARGLIST+19 03987000 DARGIND EQU DARGLIST+18 03988000 DARGRETL EQU DARGLIST+16 03989000 DARGCNT EQU DARGLIST+14 03990000 DARGRETP EQU DARGLIST+4 03991000 UVOLVOL EQU UVOLENT+4 03992000 UVOLDEV EQU UVOLENT 03993000 UVOLCNT EQU UVOLLIST 03994000 @NM00027 EQU IOINFOPT 03995000 IOINFLUB EQU IOINFOPT 03996000 IOINFTMS EQU IOINFOPT 03997000 IOINFSUP EQU IOINFOPT 03998000 IOINFDSN EQU IOINFOPT 03999000 IOINFVOL EQU IOINFOPT 04000000 IOINFDVT EQU IOINFOPT 04001000 OPNVOL EQU OPNAGL+44 04002000 OPNSTRNO EQU OPNAGL+43 04003000 @NM00026 EQU OPNOPT2 04004000 OPNOPTJM EQU OPNOPT2 04005000 @NM00025 EQU OPNOPT2 04006000 OPNOPTAS EQU OPNOPT2 04007000 @NM00024 EQU OPNDSO 04008000 OPNDSOPO EQU OPNDSO 04009000 OPNDSOIS EQU OPNDSO 04010000 OPNDSOPS EQU OPNDSO 04011000 OPNDSOAM EQU OPNDSO 04012000 OPNKYL EQU OPNAGL+40 04013000 OPNBLK EQU OPNAGL+36 04014000 OPNREC EQU OPNAGL+32 04015000 OPNDEVIX EQU OPNDEV+4 04016000 OPNDEVDT EQU OPNDEV 04017000 OPNCBP EQU OPNAGL+20 04018000 OPNDSN EQU OPNAGL+16 04019000 OPNPWA EQU OPNAGL+12 04020000 OPNDDN EQU OPNAGL+8 04021000 OPNIOC EQU OPNAGL+4 04022000 OPNMODRP EQU OPNMOD 04023000 OPNMODUB EQU OPNMOD 04024000 OPNMODRS EQU OPNMOD 04025000 OPNMODAX EQU OPNMOD 04026000 OPNMODRR EQU OPNMOD 04027000 OPNMODRC EQU OPNMOD 04028000 OPNMODAC EQU OPNMOD 04029000 OPNMODPD EQU OPNMOD 04030000 OPNTYPSY EQU OPNTYP 04031000 OPNTYPRV EQU OPNTYP 04032000 OPNTYPEX EQU OPNTYP 04033000 OPNTYPRA EQU OPNTYP 04034000 OPNTYPXM EQU OPNTYP 04035000 OPNTYPCI EQU OPNTYP 04036000 OPNTYPSO EQU OPNTYP 04037000 OPNTYPSI EQU OPNTYP 04038000 @NM00023 EQU OPNRFM 04039000 OPNRFMBK EQU OPNRFM 04040000 OPNRFMSF EQU OPNRFM 04041000 OPNRFMUN EQU OPNRFM 04042000 OPNRFMVR EQU OPNRFM 04043000 OPNRFMFX EQU OPNRFM 04044000 OPNOPTSK EQU OPNOPT 04045000 OPNOPTDR EQU OPNOPT 04046000 OPNOPTCR EQU OPNOPT 04047000 OPNOPTKS EQU OPNOPT 04048000 OPNOPTBK EQU OPNOPT 04049000 OPNOPTUP EQU OPNOPT 04050000 OPNOPTOT EQU OPNOPT 04051000 OPNOPTIN EQU OPNOPT 04052000 IOCEXT EQU IOCSTR+64 04053000 IOCTSML EQU IOCREL+2 04054000 IOCTPML EQU IOCREL 04055000 IOCWORK EQU IOCSTR+56 04056000 IOCRRN EQU IOCSTR+52 04057000 IOCPNM EQU IOCNWM+2 04058000 IOCPTL EQU IOCNWM 04059000 IOCKYA EQU IOCMEM 04060000 IOCVRC EQU IOCTTR 04061000 IOCCBP EQU IOCSTR+36 04062000 IOCDSN EQU IOCSTR+32 04063000 IOCHURBA EQU IOCSTR+28 04064000 IOCVOLSR EQU IOCSTR+22 04065000 @NM00022 EQU IOCMSG 04066000 IOCMSGSM EQU IOCMSG 04067000 IOCMSGAE EQU IOCMSG 04068000 IOCMSGCE EQU IOCMSG 04069000 IOCMSGOE EQU IOCMSG 04070000 IOCMSGOP EQU IOCMSG 04071000 IOCCHPKG EQU IOCMSG 04072000 IOCCHPKE EQU IOCMSG 04073000 IOCCHPNU EQU IOCCHP 04074000 IOCCHPUP EQU IOCCHP 04075000 IOCCHPBK EQU IOCCHP 04076000 IOCCHPCR EQU IOCCHP 04077000 IOCCHPKS EQU IOCCHP 04078000 IOCCHPSK EQU IOCCHP 04079000 IOCCHPDR EQU IOCCHP 04080000 IOCCHPSQ EQU IOCCHP 04081000 IOCMACNT EQU IOCMAC2 04082000 IOCMACER EQU IOCMAC2 04083000 IOCMACPA EQU IOCMAC2 04084000 IOCMACEN EQU IOCMAC2 04085000 IOCMACCP EQU IOCMAC2 04086000 IOCMACRR EQU IOCMAC2 04087000 IOCMACAS EQU IOCMAC2 04088000 IOCMACSK EQU IOCMAC2 04089000 @NM00021 EQU IOCMAC 04090000 IOCMACCC EQU IOCMAC 04091000 IOCMACDR EQU IOCMAC 04092000 IOCMACBK EQU IOCMAC 04093000 IOCMACCR EQU IOCMAC 04094000 IOCMACUP EQU IOCMAC 04095000 IOCMACOT EQU IOCMAC 04096000 IOCMACIN EQU IOCMAC 04097000 @NM00020 EQU IOCRFM 04098000 IOCRFMBK EQU IOCRFM 04099000 IOCRFMSF EQU IOCRFM 04100000 IOCRFMUN EQU IOCRFM 04101000 IOCRFMVR EQU IOCRFM 04102000 IOCRFMFX EQU IOCRFM 04103000 @NM00019 EQU IOCDSO 04104000 IOCDSOPO EQU IOCDSO 04105000 IOCDSOIS EQU IOCDSO 04106000 IOCDSOPS EQU IOCDSO 04107000 IOCDSOAM EQU IOCDSO 04108000 IOCRKP EQU IOCSTR+13 04109000 IOCKYL EQU IOCSTR+12 04110000 IOCTRN EQU IOCSTR+8 04111000 IOCDLN EQU IOCSTR+4 04112000 IOCDAD EQU IOCSTR 04113000 UNITVTOC EQU UNITABL+7 04114000 @NM00018 EQU UNITSTAT 04115000 UNITUSHR EQU UNITSTAT 04116000 UNITXSHR EQU UNITSTAT 04117000 UNITISHR EQU UNITSTAT 04118000 UNITUA EQU @NM00017+1 04119000 UNITCHA EQU @NM00017 04120000 UNITUCB EQU UNITABL 04121000 RACFVOLS EQU RACFAGL+16 04122000 RACFCLN EQU RACFAGL+12 04123000 RACFPROF EQU RACFAGL+8 04124000 RACFENT EQU RACFAGL+4 04125000 @NM00016 EQU RACFFLG4 04126000 @NM00015 EQU RACFFLG3 04127000 RACFPRF EQU RACFFLG3 04128000 @NM00014 EQU RACFFLG3 04129000 @NM00013 EQU RACFFLG2 04130000 RACFTRD EQU RACFFLG2 04131000 RACFTUPD EQU RACFFLG2 04132000 RACFTCTL EQU RACFFLG2 04133000 @NM00012 EQU RACFFLG2 04134000 RACFTALT EQU RACFFLG2 04135000 RACFCSA EQU RACFFLG1 04136000 RACFLOGN EQU RACFFLG1 04137000 RACFLOGF EQU RACFFLG1 04138000 @NM00011 EQU RACFFLG1 04139000 RACFDSTV EQU RACFFLG1 04140000 @NM00010 EQU RACFFLG1 04141000 ALLUNCNT EQU ALLAGL+30 04142000 ALLVLCNT EQU ALLAGL+29 04143000 @NM00009 EQU ALLOPT 04144000 ALLOPTUN EQU ALLOPT 04145000 ALLOPTPV EQU ALLOPT 04146000 ALLOPTDS EQU ALLOPT 04147000 ALLOPTVL EQU ALLOPT 04148000 @NM00008 EQU ALLORG+1 04149000 ALLORGVS EQU ALLORG+1 04150000 @NM00007 EQU ALLORG+1 04151000 ALLORGGS EQU ALLORG+1 04152000 ALLORGUN EQU ALLORG 04153000 ALLORGPO EQU ALLORG 04154000 ALLORGMQ EQU ALLORG 04155000 ALLORGCQ EQU ALLORG 04156000 ALLORGCX EQU ALLORG 04157000 ALLORGDA EQU ALLORG 04158000 ALLORGPS EQU ALLORG 04159000 ALLORGIS EQU ALLORG 04160000 ALLDSPUN EQU ALLDSP 04161000 ALLDSPCG EQU ALLDSP 04162000 ALLDSPDE EQU ALLDSP 04163000 ALLDSPKP EQU ALLDSP 04164000 @NM00006 EQU ALLDSP 04165000 ALLSTSOD EQU ALLSTS 04166000 ALLSTSMD EQU ALLSTS 04167000 ALLSTSNW EQU ALLSTS 04168000 ALLSTSSR EQU ALLSTS 04169000 @NM00005 EQU ALLSTS 04170000 ALLPWD EQU ALLAGL+20 04171000 ALLVLP EQU ALLAGL+16 04172000 ALLULP EQU ALLAGL+12 04173000 ALLDDN EQU ALLAGL+4 04174000 ALLDSN EQU ALLAGL 04175000 CIRPID EQU CIRAGL+28 04176000 CIRPWD EQU CIRAGL+24 04177000 CIRCAT EQU CIRAGL+20 04178000 CIRWKP EQU CIRAGL+16 04179000 CIRTLR EQU CIRAGL+12 04180000 CIRHDR EQU CIRAGL+8 04181000 CIRTLN EQU CIRAGL+6 04182000 CIRHLN EQU CIRAGL+4 04183000 @NM00004 EQU CIRAGL+1 04184000 @NM00003 EQU CIRTYPE 04185000 CIRTYPAQ EQU CIRTYPE 04186000 CIRTYP1Q EQU CIRTYPE 04187000 NEWID1 EQU TRACE1+95 04188000 CALLID EQU OLDERID1+90 04189000 @NM00002 EQU OLDERID1 04190000 .@UNREFD ANOP END UNREFERENCED COMPONENTS 04191000 @RC00383 EQU MACEND 04192000 @RC00454 EQU MACEND 04193000 @RC00616 EQU @RC00593 04194000 @PB00004 EQU @EL00001 04195000 @PB00003 EQU @PB00004 04196000 @PB00002 EQU @PB00003 04197000 @RC00315 EQU @PB00002 04198000 @ENDDATA EQU * 04199000 END IDCSA09,(C'PLS0115',0603,76348) 04200000