TITLE '********** ICKSA10: USTAE MACRO (SYSTEM ADAPTER) ****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 ICKSA10 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'ICKSA10 78.192' 0002 00019000 ICKSAST DS 0H 0002 00020000 USING *,@15 0002 00021000 B @PROLOG 0002 00022000 DC AL2(@EP00003-ICKSAST) 00023000 ENTRY ICKSAST 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 XC @ZTEMPS(@ZLEN),@ZTEMPS 00038000 AH @15,4(,@15) 0002 00039000 BR @15 0002 00040000 @EP00002 DS 0H 0003 00041000 *ICKSAST: ENTRY 0003 00042000 * (GDTTBL 0003 00043000 * ,STAETYPE 0003 00044000 * ,BLOCKPTR); 0003 00045000 B @EC00003 0003 00046000 @EP00003 MVC @PC00001(12),0(@01) 0003 00047000 @EC00003 DS 0H 0004 00048000 * /************************************************************/ 00049000 * /* */ 00050000 * /* DMS GLOBAL DATA AREA : 5/10/78 */ 00051000 * /* (1) PLS/2 MACRO DEFINITIONS */ 00052000 * /* (2) GLOBAL DATA TABLE */ 00053000 * /* (3) SYSTEM ADAPTER DECLARATIONS */ 00054000 * /* A) ENTRY POINTS */ 00055000 * /* B) DATA STRUCTURES */ 00056000 * /* C) SYMBOLIC RETURN CODES */ 00057000 * /* (4) INPUT/OUTPUT ADAPTER DECLARATIONS */ 00058000 * /* A) ENTRY POINTS */ 00059000 * /* B) DATA STRUCTURES */ 00060000 * /* C) SYMBOLIC RETURN CODES */ 00061000 * /* (5) DEVICE ADAPTER DECLARATIONS */ 00062000 * /* A) ACTION KEYS */ 00063000 * /* B) INFORMATION KEYS */ 00064000 * /* C) ENTRY POINTS */ 00065000 * /* (6) TEXT OUTPUT PROCESSOR DECLARATIONS */ 00066000 * /* A) ENTRY POINTS */ 00067000 * /* B) DATA STRUCTURES */ 00068000 * /* (7) DEBUGGING AIDS DECLARATIONS */ 00069000 * /* A) ENTRY POINTS */ 00070000 * /* (8) CONVENTIONALIZED NAMED VALUES DECLARATIONS */ 00071000 * /* */ 00072000 * /************************************************************/ 00073000 * 0004 00074000 * /************************************************************/ 00075000 * /* THE MACRO VARIABLE 'OPERSYS' IS SET HERE (IN DMSDF00) */ 00076000 * /* TO CONTROL MACRO PHASE LOGIC TO GENERATE THE CORRECT */ 00077000 * /* SYSTEM DEPENDENT CODE FOR THE OPERATING SYSTEM UNDER */ 00078000 * /* WHICH DMS EXECUTION IS TO TAKE PLACE. */ 00079000 * /* THE VARIABLE MUST BE SET TO ONE OF THE FOLLOWING: */ 00080000 * /* %OPERSYS = 'VS1' - OS/VS1 OPERATING SYSTEM */ 00081000 * /* %OPERSYS = 'MVS' - OS/VS2 RELEASE 3 AND FOLLOWING */ 00082000 * /* %OPERSYS = 'NONE' - 'STAND ALONE' EXECUTION ENVIRONMENT */ 00083000 * /************************************************************/ 00084000 * /* THE CURRENT SETTING IS %OPERSYS = 'MVS' */ 00085000 * /************************************************************/ 00086000 * 0004 00087000 * 0004 00088000 * /************************************************************/ 00089000 * /* */ 00090000 * /* GLOBAL DATA TABLE (GDT) */ 00091000 * /* */ 00092000 * /************************************************************/ 00093000 * DCL 1 GDTTBL BOUNDARY(DWORD), 0004 00094000 * 2 GDTHDR CHAR(4), /*GDT HEADER (CONTAINS 'GDT ')*/ 00095000 * 2 GDTPRM PTR(31), /*INVOKER'S PARAMETER LIST PTR*/ 00096000 * 2 GDTTR1 PTR(31), /*INTER-MODULE TRACE TABLE PTR*/ 00097000 * 2 GDTTR2 PTR(31), /*INTRA-MODULE TRACE TABLE PTR*/ 00098000 * 2 GDTDBH PTR(31), /*DEBUGGING AIDS DATA PTR*/ 00099000 * 2 GDTSTH PTR(31), /*DMS STATISTICS DATA PTR*/ 00100000 * 2 GDTRIH PTR(31), /*READER/INTERPRETER DATA PTR*/ 00101000 * 2 GDTTPH PTR(31), /*TEXT PROCESSOR DATA PTR*/ 00102000 * 2 GDTSAH PTR(31), /*SYSTEM ADAPTER DATA PTR*/ 00103000 * 2 GDTIOH PTR(31), /*I/O ADAPTER DATA PTR*/ 00104000 * 2 GDTDVH PTR(31), /*DEVICE ADAPTER DATA PTR*/ 00105000 * 2 GDTDIN PTR(31), /*UDEVINFO ENTRY POINT ADDRESS*/ 00106000 * 2 GDTDOP PTR(31), /*UDEVOP ENTRY POINT ADDRESS*/ 00107000 * 2 GDTDBG PTR(31), /*UDUMP ENTRY POINT ADDRESS*/ 00108000 * 2 GDTDVO PTR(31), /*UDEVOPEN ENTRY POINT ADDRESS*/ 00109000 * 2 GDTPRT PTR(31), /*UPRINT ENTRY POINT ADDRESS*/ 00110000 * 2 GDTESS PTR(31), /*UESTS ENTRY POINT ADDRESS*/ 00111000 * 2 GDTESA PTR(31), /*UESTA ENTRY POINT ADDRESS*/ 00112000 * 2 GDTRST PTR(31), /*UREST ENTRY POINT ADDRESS*/ 00113000 * 2 GDTRES PTR(31), /*URESET ENTRY POINT ADDRESS*/ 00114000 * 2 GDTCAL PTR(31), /*UCALL ENTRY POINT ADDRESS*/ 00115000 * 2 GDTGSP PTR(31), /*UGSPACE ENTRY POINT ADDRESS*/ 00116000 * 2 GDTFSP PTR(31), /*UFSPACE ENTRY POINT ADDRESS*/ 00117000 * 2 GDTGPL PTR(31), /*UGPOOL ENTRY POINT ADDRESS*/ 00118000 * 2 GDTFPL PTR(31), /*UFPOOL ENTRY POINT ADDRESS*/ 00119000 * 2 GDTLOD PTR(31), /*ULOAD ENTRY POINT ADDRESS*/ 00120000 * 2 GDTDEL PTR(31), /*UDELETE ENTRY POINT ADDRESS*/ 00121000 * 2 GDTPRL PTR(31), /*PROL ENTRY POINT ADDRESS */ 00122000 * 2 GDTEPL PTR(31), /*UEPIL ENTRY POINT ADDRESS */ 00123000 * 2 GDTTIM PTR(31), /*UTIME ENTRY POINT ADDRESS*/ 00124000 * 2 GDTIIO PTR(31), /*UIOINIT ENTRY POINT ADDRESS*/ 00125000 * 2 GDTTIO PTR(31), /*UIOTERM ENTRY POINT ADDRESS*/ 00126000 * 2 GDTRIP PTR(31), /*READER/INTERPRETER */ 00127000 * /* NAME ADDRESS */ 00128000 * 2 GDTTOH PTR(31), /*I/O ADAPTER MVM */ 00129000 * /* DATA ADDRESS */ 00130000 * 2 GDTOPN PTR(31), /*UOPEN ENTRY POINT ADDRESS*/ 00131000 * 2 GDTCLS PTR(31), /*UCLOSE ENTRY POINT ADDRESS*/ 00132000 * 2 GDTGET PTR(31), /*UGET ENTRY POINT ADDRESS*/ 00133000 * 2 GDTPUT PTR(31), /*UPUT ENTRY POINT ADDRESS*/ 00134000 * 2 GDTABT PTR(31), /*UABORT ROUTINE ADDRESS*/ 00135000 * 2 GDTABH PTR(31), /*UABORT ROUTINE REGISTER*/ 00136000 * /* RESTORE AREA ADDRESS*/ 00137000 * 2 GDTSNP PTR(31), /*USNAP ENTRY POINT ADDRESS */ 00138000 * 2 GDTSPR PTR(31), /*ICKSA03 AUTOMATIC STORAGE */ 00139000 * 2 GDTWTO PTR(31), /*UWTO ENTRY POINT ADDRESS */ 00140000 * 2 GDTSCR PTR(31), /*USCRATCH ENTRY POINT ADDRESS*/ 00141000 * 2 GDTVCK PTR(31), /*UVOLCHK ENTRY POINT ADDRESS */ 00142000 * 2 GDTDVC PTR(31), /*UDEVCLSE ENTRY POINT ADDRESS*/ 00143000 * 2 GDTCVR PTR(31), /*ADDRESS OF COVER TABLE */ 00144000 * 2 GDTSTE PTR(31); /*USTAE ENTRY POINT ADDRESS */ 00145000 * 0004 00146000 * 0004 00147000 * /************************************************************/ 00148000 * /* */ 00149000 * /* ENTRY POINT DECLARATIONS FOR SYSTEM ADAPTER */ 00150000 * /* */ 00151000 * /************************************************************/ 00152000 * 0005 00153000 * 0005 00154000 * DCL ICKSACL0 ENTRY BASED(GDTCAL) VALUERANGE(*) 0005 00155000 * OPTIONS(VLIST); /*UCALL ADAPTER ENTRY POINT*/ 00156000 * DCL ICKSALD0 ENTRY BASED(GDTLOD) VALUERANGE(*); 0006 00157000 * /*ULOAD ADAPTER ENTRY POINT*/ 00158000 * DCL ICKSADE0 ENTRY BASED(GDTDEL) VALUERANGE(*); 0007 00159000 * /*UDELETE ADAPTER ENTRY POINT*/ 00160000 * DCL ICKSAPR0 ENTRY BASED(GDTPRL) VALUERANGE(*); 0008 00161000 * /*PROL ADAPTER ENTRY POINT */ 00162000 * DCL ICKSAEP0 ENTRY BASED(GDTEPL) VALUERANGE(*) 0009 00163000 * OPTIONS(VLIST); /*UEPIL ADAPTER ENTRY POINT*/ 00164000 * DCL ICKSAGS0 ENTRY BASED(GDTGSP) VALUERANGE(*) 0010 00165000 * OPTIONS(VLIST); /*UGSPACE ADAPTER ENTRY POINT*/ 00166000 * DCL ICKSAFS0 ENTRY BASED(GDTFSP) VALUERANGE(*); 0011 00167000 * /*UFSPACE ADAPTER ENTRY POINT*/ 00168000 * DCL ICKSAGP0 ENTRY BASED(GDTGPL) VALUERANGE(*) 0012 00169000 * OPTIONS(VLIST); /*UGPOOL ADAPTER ENTRY POINT*/ 00170000 * DCL ICKSAFP0 ENTRY BASED(GDTFPL) VALUERANGE(*) 0013 00171000 * OPTIONS(VLIST); /*UFPOOL ADAPTER ENTRY POINT*/ 00172000 * DCL ICKSATI0 ENTRY BASED(GDTTIM) VALUERANGE(*) 0014 00173000 * OPTIONS(VLIST); /*UTIME ADAPTER ENTRY POINT*/ 00174000 * DCL ICKSASN0 ENTRY BASED(GDTSNP) VALUERANGE(*); 0015 00175000 * /*USNAP ADAPTER ENTRY POINT*/ 00176000 * DCL ICKSAWO0 ENTRY BASED(GDTWTO) VALUERANGE(*) 0016 00177000 * OPTIONS(VLIST); /*UWTO ADAPTER EP */ 00178000 * DCL ICKSASC0 ENTRY BASED(GDTSCR) VALUERANGE(*) 0017 00179000 * OPTIONS(VLIST); /*USCRATCH ADAPTER EP */ 00180000 * DCL ICKSAVC0 ENTRY BASED(GDTVCK) VALUERANGE(*) 0018 00181000 * OPTIONS(VLIST); /*UVOLCHK ADAPTER EP */ 00182000 * DCL ICKSAST0 ENTRY BASED(GDTSTE) VALUERANGE(*); 0019 00183000 * /*USTAE ADAPTER EP */ 00184000 * 0020 00185000 * 0020 00186000 * /************************************************************/ 00187000 * /* */ 00188000 * /* DATA STRUCTURE DECLARATIONS FOR SYSTEM ADAPTER */ 00189000 * /* */ 00190000 * /************************************************************/ 00191000 * 0020 00192000 * /* INTER-MODULE TRACE TABLE */ 00193000 * /* (UPDATED BY THE PROL AND UEPIL ROUTINES) */ 00194000 * DCL 1 TRACE1 CHAR(100) BASED(GDTTR1), 0020 00195000 * 2 OLDERID1 CHAR(95), /*ALL BUT THE LATEST TRACE IDS*/ 00196000 * 3 * CHAR(90), /* OLDER TRACE IDENTIFIERS */ 00197000 * 3 CALLID CHAR(2), /* TRACE ID OF CALLING MODULE*/ 00198000 * 2 NEWID1 CHAR(4); /*THE MOST RECENT TRACE ID */ 00199000 * 0020 00200000 * DCL NEWERID1 CHAR(95) BASED(GDTTR1) POSITION(6); 0021 00201000 * /*ALL BUT THE OLDEST TRACE IDS*/ 00202000 * 0022 00203000 * /* INTRA-MODULE TRACE TABLE (UPDATED BY TRACE MACRO) */ 00204000 * DCL 1 TRACE2 CHAR(100) BASED(GDTTR2), 0022 00205000 * 2 OLDERID2 CHAR(95), /*ALL BUT THE LATEST TRACE IDS*/ 00206000 * 2 NEWID2 CHAR(4); /*THE MOST RECENT TRACE ID */ 00207000 * 0022 00208000 * DCL NEWERID2 CHAR(95) BASED(GDTTR2) POSITION(6); 0023 00209000 * /*ALL BUT THE OLDEST TRACE IDS*/ 00210000 * 0024 00211000 * /* CONTROL BLOCK STRUCTURE FOR USTAE MACRO INVOCATION */ 00212000 * 0024 00213000 * DECLARE 0024 00214000 * 1 STAEPARM BDY(WORD) BASED, 0024 00215000 * 0024 00216000 * 2 STAEPFX, /* STAE PREFIX */ 00217000 * 0024 00218000 * 3 STAFPTR /* FORWARD CHAIN POINTER */ 00219000 * POINTER (31), 0024 00220000 * 3 STABPTR /* BACKWARD CHAIN POINTER */ 00221000 * POINTER (31), 0024 00222000 * 3 STAGDT /* POINTER TO THE GDT */ 00223000 * POINTER(31), 0024 00224000 * 3 STAEPA /* ENTRY POINT ADDRESS OF RECOVERY */ 00225000 * /* ROUTINE */ 00226000 * POINTER (31), 0024 00227000 * 3 STAID /* CONTROL BLOCK IDENTIFIER UNIQUE */ 00228000 * /* TO INVOKER */ 00229000 * CHAR (4), 0024 00230000 * 3 STALEN /* LENGTH OF THE INVOKERS CONTROL */ 00231000 * /* BLOCK */ 00232000 * FIXED (31), 0024 00233000 * 3 STASPTR /* POINTER TO SYSTEM DIAGNOSTIC WORK*/ 00234000 * /* AREA */ 00235000 * POINTER (31) BDY (WORD), 0024 00236000 * 3 STARPTR /* POINTER TO SAVED REGISTERS */ 00237000 * POINTER (31) BDY (WORD), 0024 00238000 * 2 STAEWORK /* CONTROL BLOCK WORK AREA TO BE */ 00239000 * /* USED AT INVOKERS DISCRETION */ 00240000 * CHAR(*); 0024 00241000 * 0024 00242000 * /************************************************************/ 00243000 * /* */ 00244000 * /* KEYWORD-ARGUMENT DECLARATIONS FOR SYSTEM ADAPTOR */ 00245000 * /* */ 00246000 * /************************************************************/ 00247000 * DCL ALL CHAR(3) CONSTANT('ALL'); 0025 00248000 * /*'ALL' ARGUMENT FOR UFPOOL*/ 00249000 * DCL FORMAT CHAR(4) CONSTANT('FORM'); 0026 00250000 * /*'FORMAT' ARGUMENT FOR UTIME */ 00251000 * DCL HSECOND CHAR(4) CONSTANT('HSEC'); 0027 00252000 * /*'HSECOND' ARGUMENT FOR UTIME*/ 00253000 * DCL CLOCK CHAR(4) CONSTANT('KLOK'); 0028 00254000 * /*'CLOCK' ARGUMENT FOR UTIME */ 00255000 * DCL SETZERO CHAR(4) CONSTANT('ZERO'); 0029 00256000 * /*UGSPACE & UGPOOL 'ZERO' ARG*/ 00257000 * DCL SETBLANK CHAR(4) CONSTANT('BLNK'); 0030 00258000 * /*UGSPACE & UGPOOL 'BLANK' ARG*/ 00259000 * DCL NOSET CHAR(4) CONSTANT('NSET'); 0031 00260000 * /*UGSPACE 'NOSET' ARGUMENT */ 00261000 * 0032 00262000 * DCL OVERRIDE CHAR(4) CONSTANT('OVRD'); 0032 00263000 * /*'PURGE' ARGUMNT FOR USCRATCH*/ 00264000 * 0033 00265000 * DCL READ CHAR(4) CONSTANT('READ'); 0033 00266000 * /*'READ' ATTRIBUTE FOR UVOLCHK*/ 00267000 * DCL ALTER CHAR(4) CONSTANT('ALTR'); 0034 00268000 * /*UVOLCHK 'ALTER' ATTRIBUTE */ 00269000 * DCL UPDATE CHAR(4) CONSTANT('UPDT'); 0035 00270000 * /*UVOLCHK 'UPDATE' ATTRIBUTE */ 00271000 * DCL CONTROL CHAR(4) CONSTANT('CNTL'); 0036 00272000 * /*UVOLCHK 'CONTROL' ATTRIBUTE */ 00273000 * 0037 00274000 * DCL LISTLN FIXED(8); /*NUMBER OF ARGUMENTS IN LIST */ 00275000 * DCL LISTPTR PTR(31); /*PARM LIST ADDRESS (ULISTLN) */ 00276000 * DCL LISTSCAN PTR(31); /*ULISTLN SCAN POINTER */ 00277000 * DCL LISTTEST BIT(1) BASED(LISTSCAN); 0040 00278000 * /*ULISTLN LIST END BIT TEST */ 00279000 * 0041 00280000 * /************************************************************/ 00281000 * /* */ 00282000 * /* SYMBOLIC RETURN CODE DECLARATIONS FOR SYSTEM ADAPTER */ 00283000 * /* */ 00284000 * /************************************************************/ 00285000 * 0041 00286000 * /* RETURN CODE */ 00287000 * 0041 00288000 * DCL SETRC FIXED(15); /*RETURN CODE FOR SETTING */ 00289000 * DCL TESTRC FIXED(15); /*RETURN CODE FOR TESTING */ 00290000 * 0042 00291000 * DCL RTNREG REG(15); /*DMS RETURN CODE REGISTER */ 00292000 * 0043 00293000 * 0043 00294000 * /************************************************************/ 00295000 * /* */ 00296000 * /* ENTRY POINT DECLARATIONS FOR INPUT/OUTPUT ADAPTER */ 00297000 * /* */ 00298000 * /************************************************************/ 00299000 * 0044 00300000 * 0044 00301000 * DCL ICKIOIT0 ENTRY BASED(GDTIIO) VALUERANGE(*) 0044 00302000 * OPTIONS(VLIST); /*UIOINIT ADAPTER ENTRY POINT*/ 00303000 * DCL ICKIOOP0 ENTRY BASED(GDTOPN) VALUERANGE(*) 0045 00304000 * OPTIONS(VLIST); /*UOPEN ADAPTER ENTRY POINT*/ 00305000 * DCL ICKIOTM0 ENTRY BASED(GDTTIO) VALUERANGE(*) 0046 00306000 * OPTIONS(VLIST); /*UIOTERM ADAPTER ENTRY POINT*/ 00307000 * DCL ICKIOCL0 ENTRY BASED(GDTCLS) VALUERANGE(*) 0047 00308000 * OPTIONS(VLIST); /*UCLOSE ADAPTER ENTRY POINT*/ 00309000 * DCL ICKIOGT0 ENTRY BASED(GDTGET) VALUERANGE(*) 0048 00310000 * OPTIONS(VLIST); /*UGET ADAPTER ENTRY POINT*/ 00311000 * DCL ICKIOPT0 ENTRY BASED(GDTPUT) VALUERANGE(*) 0049 00312000 * OPTIONS(VLIST); /*UPUT ADAPTER ENTRY POINT*/ 00313000 * 0049 00314000 * 0049 00315000 * /************************************************************/ 00316000 * /* */ 00317000 * /* DATA STRUCTURE DECLARATIONS FOR INPUT/OUTPUT ADAPTER */ 00318000 * /* */ 00319000 * /************************************************************/ 00320000 * DCL IOCSPTR PTR(31); /*ADDRESS OF THE IOCS */ 00321000 * 0050 00322000 * /*INPUT/OUTPUT CONTROL STRUCTURE (IOCS) */ 00323000 * DCL 1 IOCSTR BOUNDARY(WORD) BASED(IOCSPTR), 0051 00324000 * 2 IOCDAD PTR(31), /*ADDRESS OF DATA */ 00325000 * 2 IOCDLN FIXED(31), /*LENGTH OF DATA */ 00326000 * 2 IOCTRN FIXED(31), /*LENGTH OF TRANSMISSION */ 00327000 * 2 IOCKYL FIXED(8), /*KEY LENGTH */ 00328000 * 2 IOCDSO BIT(8), /*DATA SET ORGANIZATION */ 00329000 * 3 IOCDSOPS BIT(1), /* SEQUENTIAL */ 00330000 * 3 * BIT(7), /* RESERVED */ 00331000 * 2 IOCRFM BIT(8), /*RECORD FORMAT FLAG */ 00332000 * 3 IOCRFMFX BIT(1), /* FIXED LENGTH RECORDS */ 00333000 * 3 IOCRFMVR BIT(1), /* VARIABLE (NOT SPANNED) */ 00334000 * 3 IOCRFMUN BIT(1), /* UNDEFINED LENGTH RECORDS */ 00335000 * 3 IOCRFMSF BIT(1), /* SPANNED RECORD FORMAT */ 00336000 * 3 IOCRFMBK BIT(1), /* BLOCKED RECORDS */ 00337000 * 3 * BIT(3), /* RESERVED */ 00338000 * 2 IOCMAC BIT(8), /*MACRO FORM FLAG */ 00339000 * 3 IOCMACIN BIT(1), /* INPUT DATA SET */ 00340000 * 3 IOCMACOT BIT(1), /* OUTPUT DATA SET */ 00341000 * 3 IOCMACUP BIT(1), /* OPEN FOR UPDATE */ 00342000 * 3 IOCMACBK BIT(1), /* BLOCK PROCESSING */ 00343000 * 3 * BIT(3), /* RESERVED */ 00344000 * 3 IOCMACPA BIT(1), /* REPROCESSING FLAG */ 00345000 * 2 IOCMSG BIT(8), /*MESSAGE FLAGS */ 00346000 * 3 IOCMSGOP BIT(1), /* DATA SET IS OPEN */ 00347000 * 3 * BIT(7), /* RESERVED */ 00348000 * 2 * CHAR(3), /*RESERVED */ 00349000 * 2 IOCDSN PTR(31), /*ADDRESS OF DATA SET NAME */ 00350000 * 2 IOCCBP PTR(31), /*RETURN BLOCK ADDRESS AREA */ 00351000 * 2 IOCPNM FIXED(15), /*NUMBER OF RECORDS TO */ 00352000 * /* PUT (NOT REQUIRED */ 00353000 * /* FOR ONE RECORD) */ 00354000 * 2 * FIXED(15), /*RESERVED */ 00355000 * 2 IOCRRN FIXED(31), /*RECORD SEQ NUMBER */ 00356000 * 2 IOCEXT PTR(31); /*IOCS EXTENSION ADDRESS */ 00357000 * 0051 00358000 * DCL OPNPTR PTR(31); /*OPEN ARGUMENT LIST ADDRESS */ 00359000 * 0052 00360000 * /*OPEN ARGUMENT LIST */ 00361000 * DCL 1 OPNAGL BOUNDARY(WORD) BASED(OPNPTR) CHAR(32), 0053 00362000 * 2 OPNOPT BIT(8), /*OPEN OPTIONS */ 00363000 * 3 OPNOPTIN BIT(1), /* INPUT DATA SET */ 00364000 * 3 OPNOPTOT BIT(1), /* OUTPUT DATA SET */ 00365000 * 3 OPNOPTUP BIT(1), /* UPDATE MODE PROCESSING */ 00366000 * 3 OPNOPTBK BIT(1), /* BLOCK PROCESSING */ 00367000 * 3 OPNOPTKS BIT(1), /* KEYED PROCESSING */ 00368000 * 3 OPNOPTJM BIT(1), /* MODIFY JFCB */ 00369000 * 3 * BIT(2), /* RESERVED */ 00370000 * 2 OPNRFM BIT(8), /*RECORD FORMAT */ 00371000 * 3 OPNRFMFX BIT(1), /* FIXED RECORDS */ 00372000 * 3 OPNRFMVR BIT(1), /* VARIABLE (NOT SPANNED) */ 00373000 * 3 OPNRFMUN BIT(1), /* UNDEFINED RECORDS */ 00374000 * 3 OPNRFMSF BIT(1), /* SPANNED RECORDS */ 00375000 * 3 OPNRFMBK BIT(1), /* BLOCKED RECORDS */ 00376000 * 3 * BIT(3), /* RESERVED */ 00377000 * 2 OPNTYP BIT(8), /*DATA SET TYPE */ 00378000 * 3 OPNTYPSI BIT(1), /* SYSTEM INPUT */ 00379000 * 3 OPNTYPSO BIT(1), /* SYSTEM OUTPUT */ 00380000 * 3 * BIT(6), /* RESERVED */ 00381000 * 2 OPNMOD BIT(8), /*OPEN MODIFIERS */ 00382000 * 3 OPNMODAC BIT(1), /* ASA CARRIAGE CONTROL CHAR */ 00383000 * 3 OPNMODRC BIT(1), /* RETURN CONTROL BLOCK ADDR */ 00384000 * 3 * BIT(6), /* RESERVED */ 00385000 * 2 OPNIOC PTR(31), /*PTR TO LOCATION IN WHICH 0053 00386000 * TO RETURN IOCS ADDRESS */ 00387000 * 2 OPNDDN PTR(31), /*ADDRESS OF 8-BYTE DDNAME */ 00388000 * 2 OPNDSN PTR(31), /*ADDRESS OF 44-BYTE DSNAME */ 00389000 * 2 OPNREC FIXED(31), /*LOGICAL RECORD LENGTH */ 00390000 * 2 OPNBLK FIXED(31), /*BLOCKSIZE */ 00391000 * 2 OPNVOL PTR(31), /*PTR TO VOL SERIAL */ 00392000 * 2 OPNRSVD FIXED(31); /* RESERVED */ 00393000 * 0053 00394000 * 0053 00395000 * /************************************************************/ 00396000 * /* */ 00397000 * /* USCRATCH VOLUME LIST MAPPING STRUCTURE */ 00398000 * /* */ 00399000 * /************************************************************/ 00400000 * DCL 1 UVOLLIST BASED, 0054 00401000 * 2 UVOLCNT FIXED(15), /*NUMBER OF ENTRIES */ 00402000 * 2 UVOLENT (*) CHAR(10), /*ONE PER VOLUME */ 00403000 * 3 UVOLDEV CHAR(4) , /*DEVICE TYPE */ 00404000 * 3 UVOLVOL CHAR(6) ; /*VOLUME SERIAL */ 00405000 * 0054 00406000 * 0054 00407000 * 0054 00408000 * 0054 00409000 * /************************************************************/ 00410000 * /* */ 00411000 * /* KEYWORD-ARGUMENT DECLARATIONS FOR DEVICE ADAPTER */ 00412000 * /* ACTION KEYS */ 00413000 * /* */ 00414000 * /************************************************************/ 00415000 * DCL ACTLOW /* MINIMUM OF ACTION-KEY VALUES */ 00416000 * FIXED (31) CONSTANT (1); 0055 00417000 * 0055 00418000 * DCL ACTRDHA /* READ HOME ADDRESS */ 00419000 * FIXED (31) CONSTANT (1); 0056 00420000 * DCL ACTRDRZ /* READ RECORD ZERO */ 00421000 * FIXED (31) CONSTANT (2); 0057 00422000 * DCL ACTWPHAD /* WRITE PRI. HA WITH DEFECT-FLAG ON */ 00423000 * FIXED (31) CONSTANT (3); 0058 00424000 * DCL ACTWPHA /* WRITE PRI. HA WITH DEFECT-FLAG OFF */ 00425000 * FIXED (31) CONSTANT (4); 0059 00426000 * DCL ACTWAHAD /* WRITE ALT. HA WITH DEFECT-FLAG ON */ 00427000 * FIXED (31) CONSTANT (5); 0060 00428000 * DCL ACTWAHA /* WRITE ALT. HA WITH DEFECT-FLAG OFF */ 00429000 * FIXED (31) CONSTANT (6); 0061 00430000 * DCL ACTWRRZM /* WRITE/READ R0 MAXIMUM LENGTH */ 00431000 * FIXED (31) CONSTANT (7); 0062 00432000 * DCL ACTWRZS /* WRITE STD. LENGTH RO */ 00433000 * FIXED (31) CONSTANT (8); 0063 00434000 * DCL ACTWCKDN /* WRITE RECORD 'N' (COUNT,KEY AND DATA) */ 00435000 * FIXED (31) CONSTANT (9); 0064 00436000 * DCL ACTRCKDN /* READ RECORD 'N' (COUNT,KEY AND DATA) */ 00437000 * FIXED (31) CONSTANT (10); 0065 00438000 * DCL ACTRKDN /* READ RECORD 'N' (KEY AND DATA) */ 00439000 * FIXED (31) CONSTANT (11); 0066 00440000 * DCL ACTRDN /* READ RECORD 'N' (DATA ONLY) */ 00441000 * FIXED (31) CONSTANT (12); 0067 00442000 * DCL ACTVPHA /* VALIDATE PRIMARY HOME ADDRESS */ 00443000 * FIXED (31) CONSTANT (13); 0068 00444000 * DCL ACTVALRZ /* VALIDATE RECORD ZERO */ 00445000 * FIXED (31) CONSTANT (14); 0069 00446000 * DCL ACTSENOP /* READ DEVICE OPTIONS (3340 ONLY) */ 00447000 * FIXED (31) CONSTANT (15); 0070 00448000 * DCL ACTRRZM /* READ MAXIMUM LENGTH RECORD ZERO */ 00449000 * FIXED (31) CONSTANT (16); 0071 00450000 * DCL ACTVAHA /* VALIDATE ALTERNATE HOME ADDRESS */ 00451000 * FIXED (31) CONSTANT (17); 0072 00452000 * DCL ACTWRZSL /* WRITE R0 TO LINK PRI. AND ALT. TRACKS */ 00453000 * FIXED (31) CONSTANT (18); 0073 00454000 * DCL ACTSCKDN /* WRITE SPECIAL COUNT/KEY/DATA */ 00455000 * FIXED (31) CONSTANT (19); 0074 00456000 * DCL ACTXXXA /* (RESERVED) */ 00457000 * FIXED (31) CONSTANT (20); 0075 00458000 * DCL ACTRWHA /* RECOVER WRITE HA */ 00459000 * FIXED (31) CONSTANT (21); 0076 00460000 * DCL ACTXXXB /* (RESERVED) */ 00461000 * FIXED (31) CONSTANT (22); 0077 00462000 * DCL ACTXXXC /* (RESERVED) */ 00463000 * FIXED (31) CONSTANT (23); 0078 00464000 * DCL ACTXXXD /* (RESERVED) */ 00465000 * FIXED (31) CONSTANT (24); 0079 00466000 * DCL ACTXXXE /* (RESERVED) */ 00467000 * FIXED (31) CONSTANT (25); 0080 00468000 * DCL ACTXXXF /* (RESERVED) */ 00469000 * FIXED (31) CONSTANT (26); 0081 00470000 * DCL ACTXXXG /* (RESERVED) */ 00471000 * FIXED (31) CONSTANT (27); 0082 00472000 * DCL ACTWKDN /* WRITE RECORD 'N' (KEY AND DATA) */ 00473000 * FIXED (31) CONSTANT (28); 0083 00474000 * DCL ACTWDN /* WRITE RECORD 'N' (DATA ONLY) */ 00475000 * FIXED (31) CONSTANT (29); 0084 00476000 * DCL ACTXXXH /* (RESERVED) */ 00477000 * FIXED (31) CONSTANT (30); 0085 00478000 * DCL ACTRRHA /* RECOVER READ-HOME-ADDRESS */ 00479000 * FIXED (31) CONSTANT (31); 0086 00480000 * DCL ACTRRRZ /* RECOVER READ-RECORD-ZERO */ 00481000 * FIXED (31) CONSTANT (32); 0087 00482000 * DCL ACTXXXJ /* (RESERVED) */ 00483000 * FIXED (31) CONSTANT (33); 0088 00484000 * DCL ACTRERZ /* RECOVER STANDARD R-ZERO */ 00485000 * FIXED (31) CONSTANT (34); 0089 00486000 * 0089 00487000 * DCL ACTHIGH /* MAXIMUM NUMBER OF ACTION-KEYS */ 00488000 * FIXED (31) CONSTANT (34); 0090 00489000 * 0090 00490000 * /************************************************************/ 00491000 * /* */ 00492000 * /* DEVICE ADAPTER VOLIB INFORMATION REQUEST KEYS */ 00493000 * /* */ 00494000 * /************************************************************/ 00495000 * DCL VOLLOW /* MINIMUM VALUE FOR VOLIB INFO-KEYS */ 00496000 * FIXED (31) CONSTANT (1); 0091 00497000 * DCL VOLDNAME /* DD-NAME */ 00498000 * FIXED (31) CONSTANT (1); 0092 00499000 * DCL VOLCUU /* CUU OF VOLUME */ 00500000 * FIXED (31) CONSTANT (2); 0093 00501000 * DCL VOLNTYP /* VOLUME TYPE - DD-NAME OR CUU */ 00502000 * FIXED (31) CONSTANT (3); 0094 00503000 * DCL VOLSTATE /* ON/OFF LINE STATE */ 00504000 * FIXED (31) CONSTANT (4); 0095 00505000 * DCL VOLAMAPF /* ACCESS PTR TO FIRST MAP DATA ENTRY */ 00506000 * FIXED (31) CONSTANT (5); 0096 00507000 * DCL VOLAMAPL /* ACCESS PTR TO LAST MAP DATA ENTRY */ 00508000 * FIXED (31) CONSTANT (6); 0097 00509000 * DCL VOLIOB /* ADDRESS OF ASSOCIATED IOB */ 00510000 * FIXED (31) CONSTANT (7); 0098 00511000 * DCL VOLPRVOL /* VOLUME IS MAOUNTED PRIVATELY */ 00512000 * FIXED (31) CONSTANT (8); 0099 00513000 * DCL VOLFINIT /* FIRST TIME INIT. FLAG */ 00514000 * FIXED (31) CONSTANT (9); 0100 00515000 * DCL VOLDTYP4 /* 4 BYTE UCB DEVICE TYPE */ 00516000 * FIXED (31) CONSTANT (10); 0101 00517000 * DCL VOLDTYP /* 1 BYTE UCB DEVICE TYPE */ 00518000 * FIXED (31) CONSTANT (11); 0102 00519000 * DCL VOLHIGH /* MAXIMUM VALUE FOR VOLIB INFO-KEYS */ 00520000 * FIXED (31) CONSTANT (11); 0103 00521000 * /************************************************************/ 00522000 * /* */ 00523000 * /* DEVICE ADAPTER VOLIB UPDATE REQUEST KEYS */ 00524000 * /* */ 00525000 * /************************************************************/ 00526000 * DCL VOLSLOW /* MINIMUM VALUE FOR VOLIB STORE KEYS */ 00527000 * FIXED (31) CONSTANT (105); 0104 00528000 * DCL VOLSMAPF /* STORE PTR TO FIRST MAP DATA ENTRY */ 00529000 * FIXED (31) CONSTANT (105); 0105 00530000 * DCL VOLSMAPL /* STORE PTR TO LAST MAP DATA ENTRY */ 00531000 * FIXED (31) CONSTANT (106); 0106 00532000 * DCL VOLSHIGH /* MAXIMUM VALUE FOR VOLIB STORE KEYS */ 00533000 * FIXED (31) CONSTANT (106); 0107 00534000 * /************************************************************/ 00535000 * /* */ 00536000 * /* DEVICE INFORMATION TABLE DATA REQUEST KEYS */ 00537000 * /* */ 00538000 * /************************************************************/ 00539000 * DCL DEVLOW /* MINIMUM VALUE FOR DEV KEYS */ 00540000 * FIXED (31) CONSTANT (201); 0108 00541000 * DCL DEVPTRKS /* NUMBER OF PRIMARY TRACKS ON PACK */ 00542000 * FIXED (31) CONSTANT (201); 0109 00543000 * DCL DEVATRKS /* NUMBER OF ALTERNATE TRACKS ON PACK */ 00544000 * FIXED (31) CONSTANT (202); 0110 00545000 * DCL DEVNUMSD /* NUMBER OF SD BYTES IN HA */ 00546000 * FIXED (31) CONSTANT (203); 0111 00547000 * DCL DEVTKCYL /* TRACKS PER CYLINDER */ 00548000 * FIXED (31) CONSTANT (204); 0112 00549000 * DCL DEVLPADD /* ADDRESS OF LAST PRIMARY TRACK */ 00550000 * FIXED (31) CONSTANT (205); 0113 00551000 * DCL DEVFAADD /* ADDRESS OF FIRST ALTERNATE TRACK */ 00552000 * FIXED (31) CONSTANT (206); 0114 00553000 * DCL DEVLAADD /* ADDRESS OF LAST ALTERNATE TRACK */ 00554000 * FIXED (31) CONSTANT (207); 0115 00555000 * DCL DEVTHOLD /* THRESHOLD OF UNRECOVERABLE TRACKS */ 00556000 * FIXED (31) CONSTANT (208); 0116 00557000 * DCL DEVBSRS1 /* IPL BOOTSTRAP PROGRAM RECORD 1 */ 00558000 * FIXED (31) CONSTANT (209); 0117 00559000 * DCL DEVBSRS2 /* IPL BOOTSTRAP PROGRAM RECORD 2 */ 00560000 * FIXED (31) CONSTANT (210); 0118 00561000 * DCL DEVIPLPL /* MAX. IPL PGM. LENGTH */ 00562000 * FIXED (31) CONSTANT (211); 0119 00563000 * DCL DEVMSSID /* MSS VOLUME IN EFFECT */ 00564000 * FIXED (31) CONSTANT (212); 0120 00565000 * DCL DEVVTOCL /* DEFAULT VTOC LOCATION */ 00566000 * FIXED (31) CONSTANT (213); 0121 00567000 * DCL DEVVTOCE /* DEFAULT VTOC EXTENTS */ 00568000 * FIXED (31) CONSTANT (214); 0122 00569000 * DCL DEVDSCBF /* FORMAT 4 DACB DEVICE CONSTANTS */ 00570000 * FIXED (31) CONSTANT (215); 0123 00571000 * DCL DEVTRKCP /* TRACK CAPACITY - (HA AND R0) */ 00572000 * FIXED (31) CONSTANT (216); 0124 00573000 * DCL DEVRECOH /* RECORD OVERHEAD */ 00574000 * FIXED (31) CONSTANT (217); 0125 00575000 * DCL DEVMRTRK /* MAXIMUM NUMBER OF RECORDS PER TRACK */ 00576000 * FIXED (31) CONSTANT (218); 0126 00577000 * DCL DEVBSRW1 /* SPECIAL BOOTSTRAP: FORCES WAIT STATE */ 00578000 * FIXED (31) CONSTANT (219); 0127 00579000 * DCL DEVHIGH /* MAXIMUM VALUE FOR DEV KEY */ 00580000 * FIXED (31) CONSTANT (219); 0128 00581000 * /************************************************************/ 00582000 * /* */ 00583000 * /* ENTRY POINT DECLARATIONS FOR THE DEVICE ADAPTER */ 00584000 * /* */ 00585000 * /************************************************************/ 00586000 * 0129 00587000 * DCL ICKDVON0 ENTRY BASED(GDTDVO) VALUERANGE(*); 0129 00588000 * /* UDEVOPEN ENTRY POINT */ 00589000 * DCL ICKDVIN0 ENTRY BASED(GDTDIN) VALUERANGE(*); 0130 00590000 * /* UDEVINFO ENTRY POINT */ 00591000 * DCL ICKDVOP0 ENTRY BASED(GDTDOP) VALUERANGE(*); 0131 00592000 * /* UDEVOP ENTRY POINT */ 00593000 * DCL ICKDVCL0 ENTRY BASED(GDTDVC) VALUERANGE(*); 0132 00594000 * /* UDEVCLSE ENTRY POINT */ 00595000 * 0133 00596000 * 0133 00597000 * 0133 00598000 * /************************************************************/ 00599000 * /* */ 00600000 * /* ENTRY POINT DECLARATIONS FOR TEXT OUTPUT PROCESSOR */ 00601000 * /* */ 00602000 * /************************************************************/ 00603000 * 0133 00604000 * 0133 00605000 * DCL ICKTPPR0 ENTRY BASED(GDTPRT) VALUERANGE(*) 0133 00606000 * OPTIONS(VLIST); /*UPRINT MACRO ENTRY POINT */ 00607000 * DCL ICKTPES0 ENTRY BASED(GDTESS) VALUERANGE(*); 0134 00608000 * /*UESTS MACRO ENTRY POINT */ 00609000 * DCL ICKTPEA0 ENTRY BASED(GDTESA) VALUERANGE(*); 0135 00610000 * /*UESTA MACRO ENTRY POINT */ 00611000 * DCL ICKTPRS0 ENTRY BASED(GDTRST) VALUERANGE(*) 0136 00612000 * OPTIONS(VLIST); /*UREST MACRO ENTRY POINT */ 00613000 * DCL ICKTPRE0 ENTRY BASED(GDTRES) VALUERANGE(*) 0137 00614000 * OPTIONS(VLIST); /*URESET MACRO ENTRY POINT */ 00615000 * 0137 00616000 * 0137 00617000 * /************************************************************/ 00618000 * /* */ 00619000 * /* DATA STRUCTURE DECLARATIONS FOR TEXT OUTPUT PROCESSOR */ 00620000 * /* */ 00621000 * /************************************************************/ 00622000 * DCL DDSTRU PTR(31); /*DYNAMIC DATA STRUCTURE PTR */ 00623000 * 0138 00624000 * /*DYNAMIC DATA STRUCTURE ARGUMENT LIST */ 00625000 * DCL 1 DARGLIST BOUNDARY(WORD) BASED(DDSTRU), 0139 00626000 * 2 DARGDBP PTR(31), /*DATA BLOCK POINTER */ 00627000 * 2 DARGRETP PTR(31), /*RETURN AREA POINTER */ 00628000 * 2 DARGSTID FIXED(31),/*STATIC TEXT IDENTIFIER */ 00629000 * 3 DARGSMOD CHAR(3), /* STATIC TEXT MODULE */ 00630000 * 3 DARGSENT PTR(8), /* STATIC TEXT ENTRY */ 00631000 * 2 DARGILP FIXED(15),/*INPUT BLOCK LENGTH */ 00632000 * 2 DARGCNT FIXED(15),/*COUNT OF REF GROUPS */ 00633000 * 2 DARGRETL FIXED(15),/*RETURN AREA LENGTH */ 00634000 * 2 DARGIND FIXED(8), /*PRINT LINE INDENT FACTOR */ 00635000 * 2 * FIXED(8), /*RESERVED */ 00636000 * 2 DARGARY(*) BOUNDARY(WORD), 0139 00637000 * 3 DARGINS FIXED(15),/*INSERT REFERENCE NUMBER */ 00638000 * 4 DARGREP FIXED(15),/*REPLICATION REFERENCE NUMBER*/ 00639000 * 3 DARGINL FIXED(15),/*INPUT DATA LENGTH */ 00640000 * 4 DARGPCT FIXED(15),/*REDO REPLICATION COUNT */ 00641000 * 3 DARGDTM FIXED(31);/*DYNAMIC DATA POINTER */ 00642000 * 0139 00643000 * DCL FSADDR PTR(31); /*FORMAT STRUCTURE POINTER */ 00644000 * 0140 00645000 * /*FORMAT STRUCTURE ARGUMENT LIST */ 00646000 * DCL 1 FMTLIST BOUNDARY(WORD) BASED(FSADDR), 0141 00647000 * 2 FMTFLGS BIT(16), /*FLAG BYTES */ 00648000 * 3 FMTEOLF BIT(1), /* END OF STRUCTURE FLAG */ 00649000 * 3 FMTSCF BIT(1), /* SPACE CONTROL FLAG */ 00650000 * 3 FMTIDF BIT(1), /* INSERT DATA FLAG */ 00651000 * 3 FMTBDF BIT(1), /* BLOCK DATA FLAG */ 00652000 * 3 FMTREPF BIT(1), /* REDO FLAG */ 00653000 * 3 FMTSTF BIT(1), /* STATIC TEXT FLAG */ 00654000 * 3 FMTDFF BIT(1), /* DEFAULT DATA FLAG */ 00655000 * 3 FMTHDF BIT(1), /* HEADER FLAG */ 00656000 * 3 * BIT(8), /* RESERVED */ 00657000 * 2 FMTSPF FIXED(15),/*SPACING FACTOR */ 00658000 * 3 FMTRFNO FIXED(15),/*INSERT REFERENCE NUMBER */ 00659000 * 4 FMTILEN FIXED(15),/*BLOCK INPUT LENGTH */ 00660000 * 5 FMTSTL FIXED(15),/*STATIC TEXT LENGTH */ 00661000 * 2 FMTIOFF FIXED(15),/*BLOCK INPUT OFFSET */ 00662000 * 3 FMTTRBC FIXED(15),/*REPLICATION STRUCTURE COUNT */ 00663000 * 4 FMTSTO FIXED(15),/*STATIC TEXT OFFSET */ 00664000 * 5 FMTSPT CHAR(1), /*SPACING TYPE */ 00665000 * 2 FMTOCOL FIXED(15),/*PRINT COLUMN */ 00666000 * 3 FMTRIO FIXED(15),/*REPLICATION INPUT OFFSET */ 00667000 * 2 FMTOLEN FIXED(15),/*PRINT FIELD LENGTH */ 00668000 * 2 FMTCNVF BIT(16), /*CONVERSION FLAGS */ 00669000 * 3 FMTBH BIT(1), /* BINARY TO HEX */ 00670000 * 3 FMTBHA BIT(1), /* BINARY TO HEX APOSTROPHE */ 00671000 * 3 FMTBHD BIT(1), /* BINARY TO HEX DUMP */ 00672000 * 3 FMTBD BIT(1), /* BINARY TO DECIMAL */ 00673000 * 3 FMTPU BIT(1), /* PACKED TO UNPACKED */ 00674000 * 3 * BIT(3), /* RESERVED */ 00675000 * 3 FMTZS BIT(1), /* ZERO SUPPRESSION */ 00676000 * 3 FMTAL BIT(1), /* ALIGN LEFT */ 00677000 * 3 FMTSS BIT(1), /* SIGN SUPPRESSION */ 00678000 * 3 FMTBS BIT(1), /* BLANK SUPPRESSION */ 00679000 * 3 * BIT(4); /* RESERVED */ 00680000 * 0141 00681000 * 0141 00682000 * /************************************************************/ 00683000 * /* */ 00684000 * /* ENTRY POINT DECLARATIONS FOR DEBUGGING AIDS */ 00685000 * /* */ 00686000 * /************************************************************/ 00687000 * 0142 00688000 * 0142 00689000 * 0142 00690000 * DCL ICKDB010 ENTRY BASED(GDTDBG) VALUERANGE(*) 0142 00691000 * OPTIONS(VLIST); /*DMS DUMP ROUTINE ENTRY PT */ 00692000 * 0142 00693000 * 0142 00694000 * /************************************************************/ 00695000 * /* */ 00696000 * /* DATA STRUCTURE DECLARATIONS FOR DEBUGGING AIDS */ 00697000 * /* */ 00698000 * /************************************************************/ 00699000 * 0143 00700000 * /* DATA ITEM DECLARATIONS FOR SYMBOLIC DUMP MACROS */ 00701000 * 0143 00702000 * DCL DMPINDEX PTR(31); /*DUMP LIST PROCESSING POINTER*/ 00703000 * 0143 00704000 * /*DUMP LIST INDIVIDUAL ELEMENT FORMAT */ 00705000 * DCL 1 DMPITM CHAR(16) BOUNDARY(WORD) BASED(DMPINDEX), 00706000 * 2 DMPITMNM CHAR(8), /*DUMP ELEMENT SYMBOLIC NAME */ 00707000 * 2 DMPITMPT PTR(31), /*DUMP ELEMENT ADDRESS */ 00708000 * 2 DMPITMLN FIXED(15), /*DUMP ELEMENT LENGTH */ 00709000 * 2 DMPITMTP CHAR(1), /*DUMP ELEMENT TYPE */ 00710000 * 2 * CHAR(1); /*RESERVED */ 00711000 * 0144 00712000 * /*DUMP LIST ARRAY HEADER FORMAT */ 00713000 * DCL 1 DMPARY CHAR(16) BOUNDARY(WORD) BASED(DMPINDEX), 00714000 * 2 DMPARYNM CHAR(8), /*DUMP ARRAY SYMBOLIC NAME */ 00715000 * 2 DMPARYSZ FIXED(15), /*DUMP ARRAY SIZE */ 00716000 * 2 DMPARYIC FIXED(15), /*DUMP ARRAY ITEM COUNT */ 00717000 * 2 DMPARYEX FIXED(15), /*DUMP ARRAY EXTENT */ 00718000 * 2 DMPARYTP CHAR(1), /*DUMP ARRAY TYPE */ 00719000 * 2 * CHAR(1); /*RESERVED */ 00720000 * 0145 00721000 * /*DUMP LIST TERMINATOR FORMAT */ 00722000 * DCL DMPTRM CHAR(1) BOUNDARY(WORD) BASED(DMPINDEX); 00723000 * 0146 00724000 * DCL DMPTRMVL BIT(8) CONSTANT('FF'X); 0147 00725000 * /*DUMP LIST TERMINATION FLAG */ 00726000 * 0148 00727000 * DCL DMPELEMT FIXED(15) CONSTANT(16); 0148 00728000 * /*DUMP LIST ITEM SIZE */ 00729000 * 0149 00730000 * 0149 00731000 * /************************************************************/ 00732000 * /* */ 00733000 * /* DECLARATIONS FOR CONVENTIONALIZED NAMED VALUES */ 00734000 * /* */ 00735000 * /************************************************************/ 00736000 * 0149 00737000 * DCL REG0 REGISTER(0); /*REGISTER 0 SPECIFICATION */ 00738000 * DCL REG1 REGISTER(1); /*REGISTER 1 SPECIFICATION */ 00739000 * DCL REG2 REGISTER(2); /*REGISTER 2 SPECIFICATION */ 00740000 * DCL REG3 REGISTER(3); /*REGISTER 3 SPECIFICATION */ 00741000 * DCL REG4 REGISTER(4); /*REGISTER 4 SPECIFICATION */ 00742000 * DCL REG5 REGISTER(5); /*REGISTER 5 SPECIFICATION */ 00743000 * DCL REG6 REGISTER(6); /*REGISTER 6 SPECIFICATION */ 00744000 * DCL REG7 REGISTER(7); /*REGISTER 7 SPECIFICATION */ 00745000 * DCL REG8 REGISTER(8); /*REGISTER 8 SPECIFICATION */ 00746000 * DCL REG9 REGISTER(9); /*REGISTER 9 SPECIFICATION */ 00747000 * DCL REG10 REGISTER(10); /*REGISTER 10 SPECIFICATION */ 00748000 * DCL REG11 REGISTER(11); /*REGISTER 11 SPECIFICATION */ 00749000 * DCL REG12 REGISTER(12); /*REGISTER 12 SPECIFICATION */ 00750000 * DCL REG13 REGISTER(13); /*REGISTER 13 SPECIFICATION */ 00751000 * DCL REG14 REGISTER(14); /*REGISTER 14 SPECIFICATION */ 00752000 * DCL REG15 REGISTER(15); /*REGISTER 15 SPECIFICATION */ 00753000 * 0164 00754000 * DCL LASTCC00 FIXED(15) CONSTANT(0); 0165 00755000 * /*FSR LAST CONDITION CODE = 0*/ 00756000 * DCL LASTCC04 FIXED(15) CONSTANT(4); 0166 00757000 * /*FSR LAST CONDITION CODE = 4*/ 00758000 * DCL LASTCC08 FIXED(15) CONSTANT(8); 0167 00759000 * /*FSR LAST CONDITION CODE = 8*/ 00760000 * DCL LASTCC12 FIXED(15) CONSTANT(12); 0168 00761000 * /*FSR LAST CONDITION CODE = 12*/ 00762000 * DCL LASTCC16 FIXED(15) CONSTANT(16); 0169 00763000 * /*FSR LAST CONDITION CODE = 16*/ 00764000 * 0170 00765000 * DCL NULLPTR PTR(31) CONSTANT(0); 0170 00766000 * /*NULL POINTER VALUE */ 00767000 * DCL ON BIT(1) CONSTANT('1'B); 0171 00768000 * /*BIT SWITCH/FLAG 'ON' VALUE */ 00769000 * DCL OFF BIT(1) CONSTANT('0'B); 0172 00770000 * /*BIT SWITCH/FLAG 'OFF' VALUE */ 00771000 * DCL YES BIT(1) CONSTANT('1'B); 0173 00772000 * /*BIT SWITCH/FLAG 'YES' VALUE */ 00773000 * DCL NO BIT(1) CONSTANT('0'B); 0174 00774000 * /*BIT SWITCH/FLAG 'NO' VALUE */ 00775000 * DCL PRTFILE FIXED(31) CONSTANT(0); 0175 00776000 * /*SYSPRINT OUTPUT FILE NAME */ 00777000 * 0176 00778000 */********************************************************************/ 00779000 */* */ 00780000 */* END OF DMS GLOBAL DECLARATIONS */ 00781000 */* */ 00782000 */********************************************************************/ 00783000 * 0176 00784000 * 0176 00785000 * 0176 00786000 * 0176 00787000 * 0176 00788000 * /************************************************************/ 00789000 * /* */ 00790000 * /* SYSTEM ADAPTER HISTORICAL DATA TABLE */ 00791000 * /* */ 00792000 * /************************************************************/ 00793000 * 0176 00794000 * DCL 1 SAHIST BASED(GDTSAH), 0176 00795000 * 2 GPFIRST PTR(31), /* FIRST UGPOOL AREA POINTER */ 00796000 * 2 GPLAST PTR(31), /* LAST UGPOOL AREA POINTER */ 00797000 * 2 AUTOPTR PTR(31), /* AUTOTBL TABLE POINTER */ 00798000 * 2 SAHSTA PTR(31), /* ADDR OF STAE PARM LIST */ 00799000 * 2 LLBLKPTR PTR(31); /* LOADLIST BLOCK PTR */ 00800000 * 0176 00801000 * /************************************************************/ 00802000 * /* */ 00803000 * /* STORAGE TABLE (SHARED) FOR THE ITERATIVELY CALLED */ 00804000 * /* MODULE'S FROZEN AUTOMATIC STORAGE */ 00805000 * /* */ 00806000 * /************************************************************/ 00807000 * 0177 00808000 * DCL 1 AUTOTBL CHAR(72) BDY(WORD) BASED(AUTOPTR), 0177 00809000 * 2 AUTOARAY(6) CHAR(12) BDY(WORD), 0177 00810000 * /* AUTOMATIC STORAGE ENTRY */ 00811000 * 3 AREAID CHAR(4), /* IDENTIFIER OF ENTRY */ 00812000 * 3 STATUS FIXED(15), /* USAGE COUNT OF ENTRY */ 00813000 * 3 ASIZE FIXED(15), /* FIRST AREA SIZE */ 00814000 * 3 PTR1 PTR(31); /* FIRST AREA POINTER */ 00815000 * 0177 00816000 * 0177 00817000 * 0177 00818000 * /************************************************************/ 00819000 * /* */ 00820000 * /* DECLARES USED BY UDELETE FUNCTION */ 00821000 * /* */ 00822000 * /************************************************************/ 00823000 * 0178 00824000 * DCL LLSLTCNT FIXED(15) CONSTANT(24); 0178 00825000 * 0178 00826000 * /************************************************************/ 00827000 * /* */ 00828000 * /* LLBLK DEFINATION FOR SYSTEM ADAPTER */ 00829000 * /* */ 00830000 * /************************************************************/ 00831000 * 0179 00832000 * DCL 1 LLBLK BASED(LLBLKPTR) BDY(WORD), 0179 00833000 * /* LLBLK DISCRIPTION */ 00834000 * 2 LLHDR CHAR(8) BDY(WORD), 0179 00835000 * /* LLBLK HEADER PTRS */ 00836000 * 3 LLFSTSLT POINTER(31), 0179 00837000 * /* ADDR OF 1ST AVAILABLE SLOT */ 00838000 * 3 LLNXTBLK POINTER(31), 0179 00839000 * /* ADDR OF NEXT LLBLK */ 00840000 * 2 LLSLOT(LLSLTCNT) CHAR(16) BDY(WORD), 0179 00841000 * /* LOAD MODULE SLOTS */ 00842000 * 3 LLNAME CHAR(8) BDY(WORD), 0179 00843000 * /* LOAD MODULE NAME */ 00844000 * 4 LLNXTSLT POINTER(31), 0179 00845000 * /* ADDR OF NXT AVAILABLE SLOT */ 00846000 * 4 LLNOMOD POINTER(31), 0179 00847000 * /* NO MODULE LOAD INDICATOR */ 00848000 * 3 LLADDR POINTER(31), /* ADDR OF LOAD MOD ENTRY PT */ 00849000 * 3 LLUSECTR FIXED(8), /* MODULE IN USE CTR */ 00850000 * 3 LLMODSZ FIXED(24); /* SIZE OF LOADED MODULE */ 00851000 * 0179 00852000 * /*******************************************************************/ 00853000 * /* */ 00854000 * /* THE SDWA (SYSTEM DIAGNOSTIC WORK AREA) IS USED BY BOTH (E)STA */ 00855000 * /* EXIT ROUTINES AND FRR ROUTINES AS THE COMMUNICATION AREA */ 00856000 * /* BETWEEN THE RTM AND THE (E)STA OR FRR WHEN ERRORS OCCUR. */ 00857000 * /* IT IS ALSO REFERRED TO AS THE RTCA (RECOVERY TERMINATION */ 00858000 * /* COMMUNICATION AREA). IT CONTAINS DATA CONCERNING THE ORIGINAL */ 00859000 * /* ERROR AND ALSO CONCERNING ACTIONS OF PREVIOUSLY ENTERED */ 00860000 * /* RECOVERY ROUTINES. */ 00861000 * /* */ 00862000 * /* METHOD OF ACCESS */ 00863000 * /* BAL */ 00864000 * /* IHASDWA DSECT = YES */ 00865000 * /* NO */ 00866000 * /* DSECT = YES IS THE DEFAULT AND WILL PRODUCE THE SDWA */ 00867000 * /* AS A DSECT. */ 00868000 * /* DSECT = NO WILL PRODUCE THE SDWA AS A CONTINUATION OF */ 00869000 * /* DEFINED STORAGE. (NO DSECT CARD PRODUCED) */ 00870000 * /* PLS */ 00871000 * /* IF MACRO VARIABLE %SDWA9999 IS NOT EQUAL TO ',' */ 00872000 * /* AND %SDWALVL IS NULL, THE SDWA WILL BE INCLUDED */ 00873000 * /* AS A LEVEL 1 STRUCTURE BASED ON SDWAPTR. */ 00874000 * /* */ 00875000 * /* IF %SDWALVL IS SPECIFIED AS A NUMBER FROM 1 TO 4 */ 00876000 * /* THE SDWA WILL BE A NON-BASED STRUCTURE WITH THE */ 00877000 * /* TOP LEVEL EQUAL TO %SDWALVL. */ 00878000 * /* */ 00879000 * /* IF SDWA9999 IS EQUAL TO ',' THE SDWA WILL */ 00880000 * /* TERMINATE WITH A COMMA RATHER THAN A */ 00881000 * /* SEMI-COLON. */ 00882000 * /* */ 00883000 * /* */ 00884000 * /* MACMEAN SDWA MEANS SYSTEM DIAGNOSTIC WORK AREA */ 00885000 * /* MACCOMP Y-1 SC1C5/PZD81 */ 00886000 * /* MACSTAT Y-1 72318/Y02703,Y02704 */ 00887000 * /* */ 00888000 * /*******************************************************************/ 00889000 *DECLARE 0180 00890000 * 1 SDWA BASED(SDWAPTR), 0180 00891000 * 6 SDWAPARM PTR(31), /* PARAMETER LIST ADDRESS 0180 00892000 * IF (E)STA MACRO 0180 00893000 * SPECIFIED PARAM OPTION 0180 00894000 * OR 0. FOR FRRS THIS IS THE 00895000 * ADDRESS OF THE 6 WORD PARM 00896000 * AREA RETURNED BY THE SETFRR 00897000 * MACRO WHEN THE PARMAD 0180 00898000 * KEYWORD IS SPECIFIED ON THE 00899000 * ON THE SETFRR MACRO */ 00900000 * 6 SDWAFIOB PTR(31), /* ADDRESS OF PURGE I/O 0180 00901000 * REQUEST LIST (PIRL), 0180 00902000 * OR 0 IF HALT I/O IS 0180 00903000 * REQUESTED ON ENTRY TO 0180 00904000 * RETRY ROUTINE FOR (E)STA. */ 00905000 * 7 SDWAABCC CHAR(4), /* ABEND COMPLETION CODE 0180 00906000 * ON ENTRY TO EXIT ROUTINE */ 00907000 * 8 SDWACMPF CHAR(1), /* FLAG BITS IN COMPLETION 0180 00908000 * CODE. */ 00909000 * 9 SDWAREQ BIT(1), /* ON, DUMP TO BE GIVEN. 0180 00910000 * SET IF DUMP REQUESTED 0180 00911000 * BY ABEND, CALLRTM, OR 0180 00912000 * SETRP MACRO. */ 00913000 * 9 SDWASTEP BIT(1), /* ON, JOBSTEP TO BE 0180 00914000 * TERMINATED.SET IF 0180 00915000 * STEP OPTION SPECIFIED 0180 00916000 * ON ABEND MACRO. */ 00917000 * 9 * BIT(1), /* RESERVED */ 00918000 * 9 SDWASTCC BIT(1), /* ON, DON'T STORE 0180 00919000 * COMPLETION CODE. 0180 00920000 * NOT USED IN OS/VS2 REL. 2 */ 00921000 * 9 * BIT(4), /* RESERVED */ 00922000 * 8 SDWACMPC CHAR(3), /* SYSTEM COMPLETION CODE 0180 00923000 * (FIRST 12 BITS) AND USER 00924000 * COMPLETION CODE (SECOND 0180 00925000 * 12 BITS). */ 00926000 * 6 SDWACTL1 CHAR(8) BDY(WORD), /* BC MODE PSW AT TIME OF 0180 00927000 * ERROR. NOT INITIALIZED 0180 00928000 * FOR FRRS. */ 00929000 * 7 SDWACMKA CHAR(1), /* CHANNEL INTERRUPTS MASKS */ 00930000 * 8 SDWAIOA BIT(7), /* I/O INTERRUPTS (ALL 0180 00931000 * ZEROS OR ALL ONES). */ 00932000 * 8 SDWAEXTA BIT(1), /* EXTERNAL INTERRUPT. */ 00933000 * 7 SDWAMWPA CHAR(1), /* PSW KEY AND 'M-W-P'. */ 00934000 * 8 SDWAKEYA BIT(4), /* PSW KEY */ 00935000 * 8 * BIT(1), /* RESERVED */ 00936000 * 8 SDWAMCKA BIT(1), /* MACHINE CHECK INTERRUPT */ 00937000 * 8 SDWAWATA BIT(1), /* WAIT STATE. */ 00938000 * 8 SDWASPVA BIT(1), /* SUPERVISOR/PROBLEM- 0180 00939000 * PROGRAM MODE. */ 00940000 * 7 SDWAINTA CHAR(2), /* INTERRUPT CODE (LAST 2 0180 00941000 * BYTES OF INTERRUPT CODE 0180 00942000 * IF I/O INTERRUPT). */ 00943000 * 7 SDWAPMKA CHAR(1), /* INSTRUCTION LENGTH CODE, 00944000 * CONDITION CODE, AND 0180 00945000 * PROGRAM MASKS. */ 00946000 * 8 SDWAILA BIT(2), /* INSTRUCTION LENGTH CODE */ 00947000 * 8 SDWACCA BIT(2), /* LAST CONDITION CODE */ 00948000 * 8 SDWAFPA BIT(1), /* FIXED-POINT OVERFLOW */ 00949000 * 8 SDWADOA BIT(1), /* DECIMAL OVERFLOW */ 00950000 * 8 SDWAEUA BIT(1), /* EXPONENT UNDERFLOW */ 00951000 * 8 SDWASGA BIT(1), /* SIGNIFANCE */ 00952000 * 7 SDWANXTA PTR(24), /* ADDRESS OF NEXT 0180 00953000 * INSTRUCTION 0180 00954000 * TO BE EXECUTED */ 00955000 * 6 SDWACTL2 CHAR(8) BDY(WORD), /* BC MODE PSW FROM LAST 0180 00956000 * PRB ON RB CHAIN. 0180 00957000 * ZERO FOR FRRS. */ 00958000 * 7 SDWACMKP CHAR(1), /* CHANNEL INTERRUPTS MASKS */ 00959000 * 8 SDWAIOP BIT(7), /* I/O INTERRUPTS (ALL 0180 00960000 * ZEROS OR ALL ONES). */ 00961000 * 8 SDWAEXTP BIT(1), /* EXTERNAL INTERRUPT. */ 00962000 * 7 SDWAMWPP CHAR(1), /* PSW KEY AND 'M-W-P'. */ 00963000 * 8 SDWAKEYP BIT(4), /* PSW KEY */ 00964000 * 8 * BIT(1), /* RESERVED */ 00965000 * 8 SDWAMCKP BIT(1), /* MACHINE CHECK INTERRUPT */ 00966000 * 8 SDWAWATP BIT(1), /* WAIT STATE. */ 00967000 * 8 SDWASPVP BIT(1), /* SUPERVISOR/PROBLEM- 0180 00968000 * PROGRAM MODE. */ 00969000 * 7 SDWAINTP CHAR(2), /* INTERRUPT CODE (LAST 2 0180 00970000 * BYTES OF INTERRUPT CODE 0180 00971000 * IF I/O INTERRUPT). */ 00972000 * 7 SDWAPMKP CHAR(1), /* INSTRUCTION LENGTH CODE, 00973000 * CONDITION CODE, AND 0180 00974000 * PROGRAM MASKS. */ 00975000 * 8 SDWAILP BIT(2), /* INSTRUCTION LENGTH CODE */ 00976000 * 8 SDWACCP BIT(2), /* LAST CONDITION CODE */ 00977000 * 8 SDWAFPP BIT(1), /* FIXED-POINT OVERFLOW */ 00978000 * 8 SDWADOP BIT(1), /* DECIMAL OVERFLOW */ 00979000 * 8 SDWAEUP BIT(1), /* EXPONENT UNDERFLOW */ 00980000 * 8 SDWASGP BIT(1), /* SIGNIFICANCE */ 00981000 * 7 SDWANXTP PTR(24), /* ADDRESS OF NEXT 0180 00982000 * INSTRUCTION 0180 00983000 * TO BE EXECUTED */ 00984000 * 6 SDWAGRSV CHAR(64) BDY(WORD), /* GENERAL PURPOSE 0180 00985000 * REGISTERS AT TIME OF 0180 00986000 * ERROR */ 00987000 * 7 SDWAGR00 FIXED(31), /* GPR 0. */ 00988000 * 7 SDWAGR01 FIXED(31), /* GPR 1. */ 00989000 * 7 SDWAGR02 FIXED(31), /* GPR 2. */ 00990000 * 7 SDWAGR03 FIXED(31), /* GPR 3. */ 00991000 * 7 SDWAGR04 FIXED(31), /* GPR 4. */ 00992000 * 7 SDWAGR05 FIXED(31), /* GPR 5. */ 00993000 * 7 SDWAGR06 FIXED(31), /* GPR 6. */ 00994000 * 7 SDWAGR07 FIXED(31), /* GPR 7. */ 00995000 * 7 SDWAGR08 FIXED(31), /* GPR 8. */ 00996000 * 7 SDWAGR09 FIXED(31), /* GPR 9. */ 00997000 * 7 SDWAGR10 FIXED(31), /* GPR 10. */ 00998000 * 7 SDWAGR11 FIXED(31), /* GPR 11. */ 00999000 * 7 SDWAGR12 FIXED(31), /* GPR 12. */ 01000000 * 7 SDWAGR13 FIXED(31), /* GPR 13. */ 01001000 * 7 SDWAGR14 FIXED(31), /* GPR 14. */ 01002000 * 7 SDWAGR15 FIXED(31), /* GPR 15. */ 01003000 * 6 SDWANAME CHAR(8) BDY(WORD), /* IF PROBLEM PROGRAM MODE 0180 01004000 * NAME OF ABENDING 0180 01005000 * PROGRAM, OR ZERO IF NO 0180 01006000 * NAME IS AVAILABLE. 0180 01007000 * ZERO IF NOT RUNNING 0180 01008000 * UNDER AN RB. */ 01009000 * 7 SDWARBAD PTR(31), /* RB ADDRESS OF ABENDING 0180 01010000 * PROGRAM. (IF SUPERVISOR 0180 01011000 * MODE PROGRAM RUNNING UNDER 01012000 * AN RB) */ 01013000 * 7 * CHAR(4), /* CONTAINS ZEROS IF 0180 01014000 * SUPERVISOR MODE PROGRAM 0180 01015000 * RUNNING UNDER AN RB. 0180 01016000 * OR IF PROGRAM NOT 0180 01017000 * RUNNING UNDER AN RB. */ 01018000 * 6 SDWAEPA PTR(31), /* ENTRY POINT ADDRESS OF 0180 01019000 * ABENDING PROGRAM. 0180 01020000 * ZERO IF NOT RUNNING 0180 01021000 * UNDER AN RB. */ 01022000 * 6 SDWAIOBR PTR(31), /* POINTER TO SDWAFIOB FIELD, 01023000 * OR 0 IF NO RETRY, 0180 01024000 * OR 0 IF HALT I/O 0180 01025000 * IS REQUESTED FOR (E)STA 0180 01026000 * EXITS. ZERO FOR FRRS. 0180 01027000 * ICB3777 */ 01028000 * 6 SDWAEC1 CHAR(8) BDY(WORD), /* EXTENDED CONTROL PSW AT 01029000 * TIME OF ERROR(ABEND) */ 01030000 * 7 SDWAEMK1 CHAR(1), /* INTERRUPT INFORMATION 0180 01031000 * MASKS */ 01032000 * 8 * BIT(1), /* RESERVED */ 01033000 * 8 SDWAPER1 BIT(1), /* ON,PROGRAM EVENT RECORD- 01034000 * ING INTERRUPTS CAN OCCUR 01035000 * OFF,PROGRAM EVENT RECORD- 01036000 * ING INTERRUPTS CANNOT 0180 01037000 * OCCUR */ 01038000 * 8 * BIT(3), /* RESERVED */ 01039000 * 8 SDWATRM1 BIT(1), /* ON,ADDRESS TRANSLATION 0180 01040000 * ACTIVE */ 01041000 * 8 SDWAIO1 BIT(1), /* OFF,I/O INTERRUPTIONS 0180 01042000 * CANNOT OCCUR 0180 01043000 * ON,I/O INTERRUPTIONS CAN 01044000 * OCCUR SUBJECT TO CHANNEL 01045000 * MASK BITS IN CONTROL REGS 01046000 * 2 AND 3 */ 01047000 * 8 SDWAEXT1 BIT(1), /* OFF,EXTERNAL INTERRUPTIONS 01048000 * CANNOT OCCUR 0180 01049000 * ON,EXTERNAL INTERRUPTIONS 01050000 * CAN OCCUR SUBJECT TO 0180 01051000 * EXTERNAL SUBCLASS MASK 0180 01052000 * BITS OF CONTROL REGISTER 0*/ 01053000 * 7 SDWAMWP1 CHAR(1), /* PSW KEY AND 'M-W-P' */ 01054000 * 8 SDWAKEY1 BIT(4), /* PSW KEY */ 01055000 * 8 SDWAECT1 BIT(1), /* EXTENDED CONTROL MODE BIT */ 01056000 * 8 SDWAMCK1 BIT(1), /* OFF,MACHINE CHECKS CANNOT 01057000 * OCCUR 0180 01058000 * ON,MACHINE CHECKS DUE TO 01059000 * SYSTEM DAMAGE AND 0180 01060000 * INSTRUCTION-PROCESSING 0180 01061000 * DAMAGE CAN OCCUR. OTHER 01062000 * MACHINE CHECKS SUBJECT TO 01063000 * MASK BITS IN CONTROL 0180 01064000 * REGISTER 14 */ 01065000 * 8 SDWAWAT1 BIT(1), /* ON,CPU IN WAIT STATE */ 01066000 * 8 SDWAPGM1 BIT(1), /* ON,PROBLEM STATE 0180 01067000 * OFF,SUPERVISOR STATE */ 01068000 * 7 SDWAINT1 CHAR(1), /* CONDITION CODE AND 0180 01069000 * PROGRAM MASK */ 01070000 * 8 * BIT(2), /* RESERVED */ 01071000 * 8 SDWACC1 BIT(2), /* CONDITION CODE */ 01072000 * 8 SDWAFPO1 BIT(1), /* FIXED POINT OVERFLOW */ 01073000 * 8 SDWADEC1 BIT(1), /* DECIMAL OVERFLOW */ 01074000 * 8 SDWAEXP1 BIT(1), /* EXPONENT UNDERFLOW */ 01075000 * 8 SDWASGN1 BIT(1), /* SIGNIFICANCE */ 01076000 * 7 * CHAR(1), /* RESERVED */ 01077000 * 7 SDWANXT1 PTR(31), /* ADDRESS OF NEXT 0180 01078000 * INSTRUCTION TO BE 0180 01079000 * EXECUTED */ 01080000 * 8 * PTR(8), /* RESERVED */ 01081000 * 8 SDWAADD1 PTR(24), /* INSTRUCTION ADDRESS */ 01082000 * 6 SDWAAEC1 CHAR(8) BDY(WORD), /* ADDITIONAL EC MODE 0180 01083000 * INFORMATION */ 01084000 * 7 * CHAR(1), /* RESERVED */ 01085000 * 7 SDWAILC1 PTR(8), /* INSTRUCTION LENGTH CODE 0180 01086000 * FOR PSW DEFINED BY SDWAEC1*/ 01087000 * 8 * BIT(5), /* RESERVED ALWAYS ZERO */ 01088000 * 8 SDWAIL1 BIT(2), /* INSTRUCTION LENGTH CODE */ 01089000 * 8 * BIT(1), /* RESERVED ALWAYS ZERO */ 01090000 * 7 SDWAINC1 FIXED(16), /* INTERRUPT CODE. IF PROGRAM 01091000 * CHECK OCCURRED 0180 01092000 * THE SUBFIELDS ARE 0180 01093000 * FURTHER DIVIDED */ 01094000 * 8 * CHAR(1), /* RESERVED FOR IMPRECISE 0180 01095000 * INTERRUPTS 0180 01096000 * IF PROGRAM CHECK */ 01097000 * 8 SDWAICD1 PTR(8), /* 8 BIT INTERRUPT CODE 0180 01098000 * IF PROGRAM CHECK */ 01099000 * 9 SDWAIPR1 BIT(1), /* PER INTERRUPT OCCURRED */ 01100000 * 9 SDWAIMC1 BIT(1), /* MONITOR CALL INTERRUPT 0180 01101000 * OCCURRED */ 01102000 * 9 SDWAIPC1 BIT(6), /* AN UNSOLICITED PROGRAM 0180 01103000 * CHECK HAS OCCURRED */ 01104000 * 7 SDWATRAN PTR(31), /* VIRTUAL ADDRESS CAUSING 0180 01105000 * TRANSLATION EXCEPTION */ 01106000 * 6 SDWAEC2 CHAR(8) BDY(WORD), /* EC MODE PSW OF THE RB 0180 01107000 * WHICH CREATED THE ESTAE 0180 01108000 * EXIT AT THE TIME IT LAST 01109000 * INCURRED AN INTERRUPT 0180 01110000 * OR 0 FOR ESTAI. 0180 01111000 * OR PSW USED TO GIVE FRR 0180 01112000 * CONTROL */ 01113000 * 7 SDWAEMK2 CHAR(1), /* INTERRUPT INFORMATION 0180 01114000 * MASKS */ 01115000 * 8 * BIT(1), /* RESERVED */ 01116000 * 8 SDWAPER2 BIT(1), /* ON,PROGRAM EVENT RECORD- 01117000 * ING INTERRUPTS CAN OCCUR 01118000 * OFF,PROGRAM EVENT RECORD- 01119000 * ING INTERRUPTS CANNOT 0180 01120000 * OCCUR */ 01121000 * 8 * BIT(3), /* RESERVED */ 01122000 * 8 SDWATRM2 BIT(1), /* ON,ADDRESS TRANSLATION 0180 01123000 * ACTIVE */ 01124000 * 8 SDWAIO2 BIT(1), /* OFF,I/O INTERRUPTIONS 0180 01125000 * CANNOT OCCUR 0180 01126000 * ON,I/O INTERRUPTIONS CAN 01127000 * OCCUR SUBJECT TO CHANNEL 01128000 * MASK BITS IN CONTROL REGS 01129000 * 2 AND 3 */ 01130000 * 8 SDWAEXT2 BIT(1), /* OFF,EXTERNAL INTERRUPTIONS 01131000 * CANNOT OCCUR 0180 01132000 * ON,EXTERNAL INTERRUPTIONS 01133000 * CAN OCCUR SUBJECT TO 0180 01134000 * EXTERNAL SUBCLASS MASK 0180 01135000 * BITS OF CONTROL REGISTER 0*/ 01136000 * 7 SDWAMWP2 CHAR(1), /* PSW KEY AND 'M-W-P' */ 01137000 * 8 SDWAKEY2 BIT(4), /* PSW KEY */ 01138000 * 8 SDWAECT2 BIT(1), /* EXTENDED CONTROL MODE BIT */ 01139000 * 8 SDWAMCK2 BIT(1), /* OFF,MACHINE CHECKS CANNOT 01140000 * OCCUR 0180 01141000 * ON,MACHINE CHECKS DUE TO 01142000 * SYSTEM DAMAGE AND 0180 01143000 * INSTRUCTION-PROCESSING 0180 01144000 * DAMAGE CAN OCCUR. OTHER 01145000 * MACHINE CHECKS SUBJECT TO 01146000 * MASK BITS IN CONTROL 0180 01147000 * REGISTER 14 */ 01148000 * 8 SDWAWAT2 BIT(1), /* ON,CPU IN WAIT STATE */ 01149000 * 8 SDWAPGM2 BIT(1), /* ON,PROBLEM STATE 0180 01150000 * OFF,SUPERVISOR STATE */ 01151000 * 7 SDWAINT2 CHAR(1), /* CONDITION CODE AND 0180 01152000 * PROGRAM MASK */ 01153000 * 8 * BIT(2), /* RESERVED */ 01154000 * 8 SDWACC2 BIT(2), /* CONDITION CODE */ 01155000 * 8 SDWAFPO2 BIT(1), /* FIXED POINT OVERFLOW */ 01156000 * 8 SDWADEC2 BIT(1), /* DECIMAL OVERFLOW */ 01157000 * 8 SDWAEXP2 BIT(1), /* EXPONENT UNDERFLOW */ 01158000 * 8 SDWASGN2 BIT(1), /* SIGNIFICANCE */ 01159000 * 7 * CHAR(1), /* RESERVED */ 01160000 * 7 SDWANXT2 PTR(31), /* ADDRESS OF NEXT 0180 01161000 * INSTRUCTION TO BE 0180 01162000 * EXECUTED */ 01163000 * 8 * PTR(8), /* RESERVED */ 01164000 * 8 SDWAADD2 PTR(24), /* INSTRUCTION ADDRESS */ 01165000 * 6 SDWAAEC2 CHAR(8) BDY(WORD), /* ADDITIONAL EC MODE 0180 01166000 * INFORMATION */ 01167000 * 7 * CHAR(1), /* RESERVED */ 01168000 * 7 SDWAILC2 CHAR(1), /* INSTRUCTION LENGTH CODE 0180 01169000 * FOR PSW DEFINED BY SDWAEC2*/ 01170000 * 8 * BIT(5), /* RESERVED ALWAYS ZERO */ 01171000 * 8 SDWAIL2 BIT(2), /* INSTRUCTION LENGTH CODE */ 01172000 * 8 * BIT(1), /* RESERVED ALWAYS ZERO */ 01173000 * 7 SDWAINC2 FIXED(16), /* INTERRUPT CODE. IF PROGRAM 01174000 * CHECK OCCURRED 0180 01175000 * THE SUBFIELDS ARE 0180 01176000 * FURTHER DIVIDED */ 01177000 * 8 * CHAR(1), /* RESERVED FOR IMPRECISE 0180 01178000 * INTERRUPTS 0180 01179000 * ON PROGRAM CHECK INTERRUPT*/ 01180000 * 8 SDWAICD2 PTR(8), /* 8 BIT INTERRUPT CODE 0180 01181000 * IF PROGRAM CHECK */ 01182000 * 9 SDWAIPR2 BIT(1), /* PER INTERRUPT OCCURRED */ 01183000 * 9 SDWAIMC2 BIT(1), /* MONITOR CALL INTERRUPT 0180 01184000 * OCCURRED */ 01185000 * 9 SDWAIPC2 BIT(6), /* AN UNSOLICITED PROGRAM 0180 01186000 * CHECK OCCURRED */ 01187000 * 7 SDWATRN2 PTR(31), /* VIRTUAL ADDRESS CAUSING 0180 01188000 * TRANSLATION EXCEPTION */ 01189000 * 6 SDWASRSV CHAR(64) BDY(WORD), /* GENERAL PURPOSE 0180 01190000 * REGISTERS OF THE RB 0180 01191000 * LEVEL WHICH CREATED THE 0180 01192000 * ESTAE EXIT AT THE TIME 0180 01193000 * IT LAST INCURRED 0180 01194000 * AN INTERRUPT 0180 01195000 * OR 0 FOR ESTAI. 0180 01196000 * FOR FRRS INITIALIZED TO 0180 01197000 * REGISTERS AT TIME OF 0180 01198000 * ERROR. THIS 0180 01199000 * REGISTER AREA IS USED TO 01200000 * UPDATE REGISTER CONTENTS 01201000 * FOR RETRY IF REQUESTED */ 01202000 * 7 SDWASR00 FIXED(31), /* GPR 0. */ 01203000 * 7 SDWASR01 FIXED(31), /* GPR 1. */ 01204000 * 7 SDWASR02 FIXED(31), /* GPR 2. */ 01205000 * 7 SDWASR03 FIXED(31), /* GPR 3. */ 01206000 * 7 SDWASR04 FIXED(31), /* GPR 4. */ 01207000 * 7 SDWASR05 FIXED(31), /* GPR 5. */ 01208000 * 7 SDWASR06 FIXED(31), /* GPR 6. */ 01209000 * 7 SDWASR07 FIXED(31), /* GPR 7. */ 01210000 * 7 SDWASR08 FIXED(31), /* GPR 8. */ 01211000 * 7 SDWASR09 FIXED(31), /* GPR 9. */ 01212000 * 7 SDWASR10 FIXED(31), /* GPR 10, */ 01213000 * 7 SDWASR11 FIXED(31), /* GPR 11. */ 01214000 * 7 SDWASR12 FIXED(31), /* GPR 12. */ 01215000 * 7 SDWASR13 FIXED(31), /* GPR 13. */ 01216000 * 7 SDWASR14 FIXED(31), /* GPR 14. */ 01217000 * 7 SDWASR15 FIXED(31), /* GPR 15. */ 01218000 * 6 SDWAIDNT CHAR(4), /* SDWA IDENTIFICATION 0180 01219000 * AND ATTRIBUTES */ 01220000 * 7 SDWASPID CHAR(1), /* SUBPOOL ID OF STORAGE 0180 01221000 * CONTAINING THIS SDWA */ 01222000 * 7 SDWALNTH CHAR(3), /* LENGTH OF THIS SDWA IN 0180 01223000 * BYTES */ 01224000 * 6 SDWAMCH CHAR(28) BDY(WORD), /*CONTAINS MACHINE CHECK 0180 01225000 * DATA IF SDWAMCHK IS ON */ 01226000 * 7 SDWASTCK CHAR(8) BDY(WORD),/*BEGINNING AND ENDING 0180 01227000 * STORAGE CHECK ADDRESSES. 01228000 * FILLED IN DUE TO 0180 01229000 * STORAGE ERROR (SDWASCK) 0180 01230000 * OR A KEY FAILURE (SDWASKYF) 01231000 * THESE ADDRESSES ARE VALID 01232000 * ONLY IF INDICATED BY THE 01233000 * SDWASRVL FLAG. */ 01234000 * 8 SDWASCKB PTR(31), /* BEGINNING VIRTUAL ADDRESS 01235000 * OF STORAGE CHECK */ 01236000 * 8 SDWASCKE PTR(31), /* ENDING VIRTUAL ADDRESS 0180 01237000 * OF STORAGE CHECK */ 01238000 * 7 SDWAMCHI CHAR(2), /* ADDITIONAL MCH INFORMATION 01239000 * FLAGS */ 01240000 * 8 SDWAMCHS CHAR(1), /* MCH FLAG BYTE */ 01241000 * 9 SDWASRVL BIT(1), /* ON,STORAGE ADDRESS 0180 01242000 * SUPPLIED (SDWASTCK, 0180 01243000 * SDWARFSA) ARE VALID. */ 01244000 * 9 SDWARCDF BIT(1), /* ON,MACHINE CHECK RECORD 0180 01245000 * NOT RECORDED */ 01246000 * 9 SDWATSVL BIT(1), /* ON,TIME STAMP VALID */ 01247000 * 9 SDWAINVP BIT(1), /* ON,STORAGE IS RECONFIGURED, 01248000 * PAGE IS INVALIDATED. */ 01249000 * 9 SDWARSRC BIT(1), /* ON,STORAGE RECONFIGURATION 01250000 * STATUS AVAILABLE 0180 01251000 * (SDWARSR1,SDWARSR2) */ 01252000 * 9 SDWARSRF BIT(1), /* ON,STORAGE RECONFIGURATION 01253000 * NOT ATTEMPTED (SDWARSR1, 01254000 * SDWARSR2 ARE INVALID ) */ 01255000 * 9 * BIT(2), /* RESERVED */ 01256000 * 8 SDWAMCHD CHAR(1), /* INPUT INFORMATION 0180 01257000 * TO RECOVERY ROUTINE CON- 01258000 * CERNING A MACHINE CHECK 0180 01259000 * ERROR */ 01260000 * 9 SDWASKYF BIT(1), /* ON,STORAGE KEY FAILURE */ 01261000 * 9 SDWAREGU BIT(1), /* ON,GENERAL PURPOSE REGISTER 01262000 * CONTENTS AT TIME OF MACHINE 01263000 * CHECK UNPREDICTABLE */ 01264000 * 9 SDWAPSWU BIT(1), /* ON,PSW AND-OR CONTROL 0180 01265000 * REGISTERS AT TIME OF MACHINE 01266000 * CHECK UNPREDICTABLE */ 01267000 * 9 SDWASCK BIT(1), /* ON,STORAGE DATA CHECK */ 01268000 * 9 SDWAACR BIT(1), /* ON,INDICATES ACR REQUEST */ 01269000 * 9 SDWAINSF BIT(1), /* ON,INSTRUCTION FAILURE */ 01270000 * 9 SDWAFPRX BIT(1), /* ON, CONTENTS OF FLOATING 01271000 * POINT REGISTERS 0180 01272000 * AT TIME OF MACHINE CHECK 01273000 * ARE UNPREDICTABLE */ 01274000 * 9 SDWATERR BIT(1), /* ON,TIMER ERROR - CAUSES 0180 01275000 * ENTRY TO RECOVERY ROUTINES 01276000 * ONLY IF LOGOUT FAILED */ 01277000 * 7 SDWACPID CHAR(2), /* ID OF FAILING CPU CAUSING 01278000 * ACR */ 01279000 * 7 SDWARSR1 CHAR(1), /* ADDITIONAL STORAGE FRAME 01280000 * ERROR INDICATORS AS 0180 01281000 * RETURNED FROM REAL STORAGE 01282000 * RECONFIGURATION */ 01283000 * 8 * BIT(6), /* RESERVED */ 01284000 * 8 SDWAMSER BIT(1), /* STORAGE ERROR ALREADY 0180 01285000 * SET IN FRAME */ 01286000 * 8 SDWACHNG BIT(1), /* CHANGE INDICATOR WAS 0180 01287000 * ON IN FRAME */ 01288000 * 7 SDWARSR2 CHAR(1), /* ADDITIONAL STORAGE 0180 01289000 * ERROR INDICATORS. */ 01290000 * 8 SDWAOFLN BIT(1), /* FRAME OFFLINE OR 0180 01291000 * SCHEDULED TO GO OFFLINE 0180 01292000 * IF SDWAINTC IS ON */ 01293000 * 8 SDWAINTC BIT(1), /* INTERCEPT 0180 01294000 * THE FRAME IS SCHEDULED 0180 01295000 * TO GO OFFLINE 0180 01296000 * OR 0180 01297000 * THE FRAME HAS INCURRED 0180 01298000 * A STORAGE ERROR 0180 01299000 * OR IS V=R */ 01300000 * 8 SDWASPER BIT(1), /* STORAGE ERROR PERMANENT 0180 01301000 * ON FRAME */ 01302000 * 8 SDWANUCL BIT(1), /* FRAME CONTAINS PERMANENT 01303000 * RESIDENT STORAGE,I.E. 0180 01304000 * NUCLEUS. */ 01305000 * 8 SDWAFSQA BIT(1), /* FRAME IN SQA */ 01306000 * 8 SDWAFLSQ BIT(1), /* FRAME IN LSQA */ 01307000 * 8 SDWAPGFX BIT(1), /* FRAME IS PAGE FIXED */ 01308000 * 8 SDWAVEQR BIT(1), /* FRAME IS VIRTUAL=REAL 0180 01309000 * OR SCHEDULED FOR VIRTUAL= 01310000 * REAL. IF SDWAINTC IS ON */ 01311000 * 7 * CHAR(2), /* RESERVED */ 01312000 * 7 SDWARFSA PTR(31), /* REAL STORAGE FAILING 0180 01313000 * ADDRESS. ( VALID ONLY IF 01314000 * INDICATED BY SDWASRVL ) */ 01315000 * 7 SDWATIME CHAR(8), /* TIME STAMP OF ASSOCIATED 01316000 * MACHINE CHECK RECORD. */ 01317000 * 6 SDWAFLGS CHAR(4), /* INPUT FLAGS DESCRIBING 0180 01318000 * REASONS AND CONDITIONS 0180 01319000 * FOR ENTERING A RECOVERY 0180 01320000 * EXIT ROUTINE */ 01321000 * 7 SDWAERRA CHAR(1), /* ERROR TYPE CAUSING ENTRY 01322000 * TO RECOVERY ROUTINE */ 01323000 * 8 SDWAMCHK BIT(1), /* ON,MACHINE CHECK */ 01324000 * 8 SDWAPCHK BIT(1), /* ON,PROGRAM CHECK */ 01325000 * 8 SDWARKEY BIT(1), /* ON,INDICATES CONSOLE 0180 01326000 * RESTART KEY DEPRESSED */ 01327000 * 8 SDWASVCD BIT(1), /* ON,INDICATES TASK ISSUED 01328000 * SVC 13 */ 01329000 * 8 SDWAABTM BIT(1), /* ON,INDICATES SYSTEM FORCED 01330000 * SVC 13(ABTERM) */ 01331000 * 8 SDWASVCE BIT(1), /* ON,INDICATES AN SVC WAS 0180 01332000 * ISSUED BY A LOCKED OR 0180 01333000 * SRB ROUTINE */ 01334000 * 8 SDWATEXC BIT(1), /* ON,INDICATES AN 0180 01335000 * UNRECOVERABLE TRANSLATION 01336000 * FAILURE */ 01337000 * 8 SDWAPGIO BIT(1), /* ON,INDICATES A PAGE 0180 01338000 * I/O ERROR */ 01339000 * 7 SDWAERRB CHAR(1), /* ADDITIONAL ERROR ENTRY 0180 01340000 * INFORMATION */ 01341000 * 8 * BIT(4), /* RESERVED */ 01342000 * 8 SDWATYP1 BIT(1), /* ON,TYPE1 SVC IN CONTROL AT 01343000 * TIME OF ERROR */ 01344000 * 8 SDWAENRB BIT(1), /* ON,ENABLED RB IN CONTROL 01345000 * AT TIME OF ERROR */ 01346000 * 8 SDWALDIS BIT(1), /* ON,A LOGICALLY OR PHYSICALLY 01347000 * DISABLED ROUTINE WAS IN 0180 01348000 * CONTROL AT TIME OF ERROR. */ 01349000 * 8 SDWASRBM BIT(1), /* SYSTEM IN SRB MODE AT TIME 01350000 * OF ERROR */ 01351000 * 7 SDWAERRC CHAR(1), /* ADDITIONAL ERROR ENTRY 0180 01352000 * INFORMATION */ 01353000 * 8 SDWASTAF BIT(1), /* ON,A PREVIOUS (E)STA EXIT 01354000 * OR FRR FAILED */ 01355000 * 8 SDWASTAI BIT(1), /* ON, A (E)STAI EXIT 0180 01356000 * PREVIOUSLY RECEIVED 0180 01357000 * CONTROL */ 01358000 * 8 SDWAIRB BIT(1), /* ON,AN IRB PRECEDED THE RB 01359000 * THAT IS ASSOCIATED WITH 0180 01360000 * THIS EXIT */ 01361000 * 8 SDWAPERC BIT(1), /* ON,THIS RECOVERY ROUTINE 01362000 * IS BEING PERCOLATED TO */ 01363000 * 8 SDWAEAS BIT(1), /* ON INDICATES A LOWER LEVEL 01364000 * EXIT HAS RECOGNIZED AN 0180 01365000 * ERROR AND PROVIDED SERVICE- 01366000 * ABILITY INFORMATION */ 01367000 * 8 * BIT(3), /* RESERVED. */ 01368000 * 7 SDWAERRD CHAR(1), /* ADDITIONAL ERROR ENTRY 0180 01369000 * INFORMATION. */ 01370000 * 8 SDWACLUP BIT(1), /* ON,INDICATES RECOVERY 0180 01371000 * ROUTINE ONLY TO CLEANUP 0180 01372000 * AND NOT RETRY (IF ESTA 0180 01373000 * EXIT AND 33E 0180 01374000 * COMPLETION CODE THE DUMP 01375000 * IS TAKEN AFTER ENTRY TO 0180 01376000 * THE RECOVERY ROUTINE,IF 0180 01377000 * THE COMPLETION CODE IS OTHER 01378000 * THAN 33E AND IT IS AN 0180 01379000 * ESTA EXIT THE 0180 01380000 * DUMP IS TAKEN BEFORE 0180 01381000 * ENTRY TO THE RECOVERY 0180 01382000 * ROUTINE) */ 01383000 * 8 SDWANRBE BIT(1), /* ON,RB ASSOCIATED WITH THIS 01384000 * ESTA EXIT WAS NOT IN CONTROL 01385000 * AT TIME OF ERROR */ 01386000 * 8 SDWASTAE BIT(1), /* ON,THIS ESTA EXIT HAS 0180 01387000 * BEEN ENTERED FOR A PREVIOUS 01388000 * ABEND. NEVER ON FOR FRRS. */ 01389000 * 8 SDWACTS BIT(1), /* ON,THIS TASK WAS NOT IN 0180 01390000 * CONTROL AT TIME OF ERROR 01391000 * BUT A TASK WITHIN THE SAME 01392000 * JOBSTEP TREE REQUESTED A 01393000 * 'STEP' ABEND. ONLY 'ON' 0180 01394000 * IF SDWACLUP IS 'ON'. */ 01395000 * 8 SDWAMABD BIT(1), /* ON,THIS TASK WAS NOT IN 0180 01396000 * CONTROL AT TIME OF ERROR 01397000 * BUT AN ANCESTOR OF THIS 0180 01398000 * TASK HAS ABENDED. ONLY 0180 01399000 * 'ON' IF SDWACLUP IS 'ON' */ 01400000 * 8 SDWARPIV BIT(1), /* ON, THE REGISTERS AND PSW 01401000 * AT TIME OF ERROR ARE 0180 01402000 * UNAVAILABLE */ 01403000 * 8 SDWAMCIV BIT(1), /* ON, MACHINE CHECK ERROR 0180 01404000 * INFORMATION IS 0180 01405000 * UNAVAILABLE. */ 01406000 * 8 * BIT(1), /* RESERVED */ 01407000 * 6 SDWAFMID CHAR(2), /* ASID OF MEMORY IN WHICH 0180 01408000 * ERROR OCCURRED 0180 01409000 * =0, IF MEMORY IS CURRENT 01410000 * NOT=0, IF OTHER MEMORY 0180 01411000 * IS CURRENT. 0180 01412000 * FOR FRRS- 0180 01413000 * IF THE VALUE IS NON ZERO 01414000 * THE FRR IS RECEIVING 0180 01415000 * CONTROL IN THE MASTER 0180 01416000 * SCHEDULER ADDRESS SPACE 0180 01417000 * AND CANNOT ADDRESS THE 0180 01418000 * PRIVATE AREA OF THE 0180 01419000 * FAILING ADDRESS SPACE. 0180 01420000 * FOR ESTA- 0180 01421000 * IF THE VALUE IS NON ZERO 01422000 * ENTRY IS DUE TO CROSS 0180 01423000 * MEMORY ABTERM. */ 01424000 * 6 SDWAIOFS CHAR(1), /* THIS IS THE CURRENT I/O 0180 01425000 * STATUS.(THE I/O 0180 01426000 * PROCESSING REQUESTED BY 0180 01427000 * THE FIRST (E)STA EXIT 0180 01428000 * IS THE ONLY REQUEST 0180 01429000 * HONORED ) */ 01430000 * 8 SDWAIOQR BIT(1), /* ON,I/O FOR FAILING 0180 01431000 * PROGRAM HAS BEEN QUIESCED 01432000 * AND IS RESTOREABLE */ 01433000 * 8 SDWAIOHT BIT(1), /* ON,I/O FOR FAILING 0180 01434000 * PROGRAM IS HALTED AND IS 01435000 * NOT RESTOREABLE */ 01436000 * 8 SDWANOIO BIT(1), /* ON,FAILING PROGRAM HAS NO 01437000 * I/O OUTSTANDING */ 01438000 * 8 SDWANIOP BIT(1), /* ON,USER REQUESTED NO I/O 01439000 * PROCESSING */ 01440000 * 8 * BIT(4), /* RESERVED */ 01441000 * 6 * CHAR(1), /* RESERVED */ 01442000 * 6 SDWARTYA PTR(31), /* ADDRESS OF RETRY ROUTINE */ 01443000 * 6 SDWARECA PTR(31), /* ADDRESS OF VARIABLE 0180 01444000 * RECORDING AREA WITHIN SDWA*/ 01445000 * 6 SDWACPUA CHAR(4) BDY(WORD),/* ADDRESS OF CPU HOLDING 0180 01446000 * RESOURCE WHICH CAUSES 0180 01447000 * VALID SPIN ON CURRENT 0180 01448000 * CPU-USED WITH RESTART KEY 01449000 * ERROR TYPE.IF THIS FIELD 01450000 * IS VALIDLY FILLED IN BY AN 01451000 * FRR THE FRRS MAINLINE 0180 01452000 * PROGRAM WILL BE RESUMED AT 01453000 * THE NEXT SEQUENTIAL 0180 01454000 * INSTRUCTION. NOT VALID FOR 01455000 * ESTAE EXITS. */ 01456000 * 7 * CHAR(2), /* RESERVED */ 01457000 * 7 SDWALCPU PTR(15) BDY(HWORD),/* LOGICAL ADDRESS OF CPU 0180 01458000 * HOLDING RESOURCE */ 01459000 * 6 SDWAPARQ CHAR(4), /* FLAGS SET BY RECOVERY 0180 01460000 * ROUTINE TO REQUEST FUR- 0180 01461000 * THEIR PROCESSING ACTION */ 01462000 * 7 SDWARCDE CHAR(1), /* RETURN CODE FROM RECOVERY 01463000 * ROUTINE TO INDICATE RETRY 01464000 * OR TERMINATION ACTIONS : 01465000 * 0, CONTINUE WITH TERMINATION 01466000 * THIS INDICATION IMPLIES 0180 01467000 * PERCOLATION 0180 01468000 * 4, RETRY 0180 01469000 * 16, PREVENT FURTHER (E)STAI 01470000 * PROCESSING */ 01471000 * 7 SDWAACF2 CHAR(1), /* FLAGS TO INDICATE ADDITIO- 01472000 * NAL PROCESSING REQUESTS */ 01473000 * 8 SDWARCRD BIT(1), /* ON,RECORDING REQUESTED */ 01474000 * 8 * BIT(1), /* RESERVED */ 01475000 * 8 SDWASPIN BIT(1), /* ON,PROGRAM INTERRUPTED 0180 01476000 * VIA THE RESTART KEY WAS 0180 01477000 * IN A VALID SPIN(SET BY 0180 01478000 * THE SETRP MACRO WHEN CPU 01479000 * ADDRESS IS SPECIFIED ALONG 01480000 * WITH CPU ADDRESS IN SDWACPUA 01481000 * FIELD TO ALLOW RESTART 0180 01482000 * OF ALTERNATE CPU) */ 01483000 * 8 * BIT(1), /* RESERVED */ 01484000 * 8 SDWAUPRG BIT(1), /* ON,UPDATED REGISTERS 0180 01485000 * STARTING WITH SDWASR00 0180 01486000 * ARE TO BE USED FOR RETRY */ 01487000 * 8 SDWAFREE BIT(1), /* ON,SDWA/RTCA TO BE FREED 01488000 * PRIOR TO RETRY 0180 01489000 * ONLY VALID FOR ESTA EXITS */ 01490000 * 8 * BIT(2), /* RESERVED */ 01491000 * 7 SDWAACF3 CHAR(1), /* FLAGS INDICATING WHAT 0180 01492000 * GLOBAL LOCKS ARE TO BE 0180 01493000 * FREED (KEY 0 SUPERVISOR 0180 01494000 * ONLY.) 0180 01495000 * ONLY VALID FOR FRRS */ 01496000 * 8 * BIT(3), /* RESERVED */ 01497000 * 8 SDWADISP BIT(1), /* ON THE DISPATCHER LOCK */ 01498000 * 8 SDWAASMP BIT(1), /* ON, THE ASMPAT LOCK */ 01499000 * 8 SDWASALL BIT(1), /* ON, THE SALLOC LOCK */ 01500000 * 8 SDWAIPRG BIT(1), /* ON, THE IOSYNCH LOCK */ 01501000 * 8 SDWAICAT BIT(1), /* ON,THE IOSCAT LOCK */ 01502000 * 7 SDWAACF4 CHAR(1), /* ADDITIONAL LOCKS TO BE 0180 01503000 * FREED */ 01504000 * 8 SDWAIUCB BIT(1), /* ON,THE IOSUCB LOCK */ 01505000 * 8 SDWAILCH BIT(1), /* ON, THE IOSLCH LOCK */ 01506000 * 8 SDWATNCB BIT(1), /* ON,THE NCB LOCK */ 01507000 * 8 SDWATDNB BIT(1), /* ON,THE DNCB LOCK */ 01508000 * 8 SDWATADB BIT(1), /* ON,THE ACBDEBS LOCK */ 01509000 * 8 SDWAOPTM BIT(1), /* ON,THE SYSTEM RESOURCE 0180 01510000 * MGR(SRM) LOCK */ 01511000 * 8 SDWACMS BIT(1), /* ON,THE CMS LOCK */ 01512000 * 8 SDWAFLLK BIT(1), /* ON,THE LOCAL LOCK */ 01513000 * 6 SDWALKWA CHAR(36) BDY(WORD), /* LOCK AREA */ 01514000 * 7 SDWALKWS CHAR(32) BDY(WORD), /* LOCKWORDS REQUIRED TO FREE 01515000 * THE GLOBAL LOCKS 0180 01516000 * ONLY USED FOR FRRS */ 01517000 * 8 SDWAICLW PTR(31), /* LOCKWORD FOR THE IOSCAT 0180 01518000 * LOCK */ 01519000 * 8 SDWAIULW PTR(31), /* LOCKWORD FOR THE IOSUCB 0180 01520000 * LOCK */ 01521000 * 8 SDWAILLW PTR(31), /* LOCKWORD FOR THE IOSLCH 0180 01522000 * LOCK */ 01523000 * 8 SDWAIPLW PTR(31), /* LOCKWORD FOR THE IOSYNCH 01524000 * LOCK */ 01525000 * 8 SDWAAPLW PTR(31), /* LOCKWORD FOR THE ASMPAT 0180 01526000 * LOCK */ 01527000 * 8 SDWATNLW PTR(31), /* LOCKWORD FOR THE NCB 0180 01528000 * LOCK */ 01529000 * 8 SDWATDLW PTR(31), /* LOCKWORD FOR THE DNCB 0180 01530000 * LOCK */ 01531000 * 8 SDWATALW PTR(31), /* LOCKWORD FOR THE ACBDEBS 01532000 * LOCK */ 01533000 * 7 * PTR(31), /* RESERVED */ 01534000 * 6 SDWARECP CHAR(24), /* RECORDING PARAMETERS 0180 01535000 * (MODULE ,CSECT,AND RECOVERY 01536000 * ROUTINE NAME-RESPECTIVELY)*/ 01537000 * 7 SDWAMODN CHAR(8), /* THE MODULE NAME 0180 01538000 * INVOLVED IN THE ERROR 0180 01539000 * (SUPPLIED BY THE RECOVERY 01540000 * ROUTINE) */ 01541000 * 7 SDWACSCT CHAR(8), /* THE CSECT NAME INVOLVED 0180 01542000 * IN THE ERROR(SUPPLIED 0180 01543000 * BY THE RECOVERY ROUTINE) */ 01544000 * 7 SDWAREXN CHAR(8), /* THE RECOVERY ROUTINE NAME 01545000 * HANDLING THE ERROR */ 01546000 * 6 SDWADPLA PTR(31), /* POINTER TO DUMP 0180 01547000 * PARAMETER LIST RESIDING 0180 01548000 * IN SDWA. */ 01549000 * 6 SDWASNPA CHAR(8), /* SNAP PARAMETER LIST FLAGS */ 01550000 * 7 SDWADUMP CHAR(4), /* DUMP CHARACTERISTICS */ 01551000 * 8 SDWADPID CHAR(1), /* ID OF DUMP REQUESTED */ 01552000 * 8 SDWADPFS CHAR(1), /* DUMP FLAGS */ 01553000 * 9 SDWADPT BIT(1), /* ALWAYS OFF,INDICATES SNAP 01554000 * DUMP REQUEST */ 01555000 * 9 SDWADLST BIT(1), /* ALWAYS ON, INDICATES OS/VS2 01556000 * REL. 2 DUMP PARAMETER LIST 01557000 * SUPPLIED. USED BY RTM TO 01558000 * INDICATE DUMP OPTIONS 0180 01559000 * ARE AVAILABLE IN THE SDWA */ 01560000 * 9 * BIT(4), /* RESERVED. */ 01561000 * 9 SDWASLST BIT(1), /* ON,STORAGE LIST SUPPLIED 01562000 * FOR DUMP */ 01563000 * 9 * BIT(1), /* RESERVED */ 01564000 * 8 * CHAR(2), /* RESERVED */ 01565000 * 7 SDWADDAT CHAR(4), /* SDATA/PDATA OPTIONS */ 01566000 * 8 SDWASDAT CHAR(1), /* SDATA OPTIONS */ 01567000 * 9 SDWANUC BIT(1), /* DISPLAY NUCLEUS */ 01568000 * 9 SDWASQA BIT(1), /* DISPLAY SQA */ 01569000 * 9 SDWALSQA BIT(1), /* DISPLAY LSQA */ 01570000 * 9 SDWASWA BIT(1), /* DISPLAY SWA */ 01571000 * 9 SDWAGTF BIT(1), /* DISPLAY GTF INCORE TRACE 01572000 * TABLE */ 01573000 * 9 SDWACBS BIT(1), /* FORMAT AND DISPLAY CONTROL 01574000 * BLOCKS */ 01575000 * 9 SDWAQQS BIT(1), /* FORMAT AND DISPLAY QCBS/ 01576000 * QELS */ 01577000 * 9 * BIT(1), /* RESERVED */ 01578000 * 8 * CHAR(1), /* RESERVED */ 01579000 * 8 SDWAPDAT CHAR(1), /* PDATA OPTIONS */ 01580000 * 9 SDWADSAS BIT(1), /* DISPLAY SAVE AREAS */ 01581000 * 9 SDWADSAH BIT(1), /* DISPLAY SAVE AREA HEADER */ 01582000 * 9 SDWADREG BIT(1), /* DISPLAY REGISTERS */ 01583000 * 9 SDWATLPA BIT(1), /* DISPLAY LPA MODULES OF 0180 01584000 * TASK */ 01585000 * 9 SDWATJPA BIT(1), /* DISPLAY JPA MODULES OF 0180 01586000 * TASK */ 01587000 * 9 SDWADPSW BIT(1), /* DISPLAY PSW */ 01588000 * 9 SDWAUSPL BIT(1), /* DISPLAY USER SUBPOOLS */ 01589000 * 9 * BIT(1), /* RESERVED */ 01590000 * 8 * CHAR(1), /* RESERVED */ 01591000 * 6 SDWADPSA CHAR(36) BDY(WORD), /* DUMP RANGES AREA */ 01592000 * 7 SDWADPSL CHAR(32) BDY(WORD), /* DUMP STORAGE LISTS(MAX 4 01593000 * RANGES AVAILABLE) */ 01594000 * 8 SDWAFRM1 PTR(31), /* BEGINNING ADDRESS FOR 0180 01595000 * STORAGE RANGE 1 */ 01596000 * 8 SDWATO1 PTR(31), /* ENDING ADDRESS FOR STORAGE 01597000 * RANGE 1 */ 01598000 * 8 SDWAFRM2 PTR(31), /* BEGINNING ADDRESS FOR 0180 01599000 * STORAGE RANGE 2 */ 01600000 * 8 SDWATO2 PTR(31), /* ENDING ADDRESS FOR STORAGE 01601000 * RANGE 2 */ 01602000 * 8 SDWAFRM3 PTR(31), /* BEGINNING ADDRESS FOR 0180 01603000 * STORAGE RANGE 3 */ 01604000 * 8 SDWATO3 PTR(31), /* ENDING ADDRESS FOR STORAGE 01605000 * RANGE 3 */ 01606000 * 8 SDWAFRM4 PTR(31), /* BEGINNING ADDRESS FOR 0180 01607000 * STORAGE RANGE 4 */ 01608000 * 8 SDWATO4 PTR(31), /* ENDING ADDRESS FOR STORAGE 01609000 * RANGE 4 */ 01610000 * 7 * PTR(31), /* RESERVED */ 01611000 * 6 SDWARCPL CHAR(28) BDY(WORD), /* RESERVED FOR RTM USE */ 01612000 * 6 SDWACOMP PTR(31), /* THIS WORD IS PROVIDED FOR 01613000 * COMMUNICATION OF ADDITIONAL 01614000 * RECOVERY DATA ON A PER 0180 01615000 * COMPONENT BASIS (FOR 0180 01616000 * OS/VS2 RELEASE 2 THIS 0180 01617000 * FIELD IS ONLY USED BY 0180 01618000 * DATA MANAGER). */ 01619000 * 6 * PTR(31), /* RESERVED */ 01620000 * 6 SDWARA CHAR(112), /* VARIABLE RECORDING AREA 0180 01621000 * PREFIXED BY TWO BYTE 0180 01622000 * LENGTH FIELD OF AREA 0180 01623000 * AND A TWO BYTE FIELD WITH 01624000 * LENGTH OF USER SUPPLIED 0180 01625000 * INFORMATION */ 01626000 * 7 SDWAVRAL CHAR(2), /* LENGTH OF VARIABLE RECORD- 01627000 * ING AREA */ 01628000 * 7 SDWADPVA CHAR(1), /* DEFINES DUMPING OF DATA IN 01629000 * VARIABLE AREA. */ 01630000 * 8 SDWAHEX BIT(1), /* DATA TO BE DUMPED BY EREP 01631000 * IN HEX. */ 01632000 * 8 SDWAEBC BIT(1), /* DATA TO BE DUMPED BY EREP 01633000 * EBCDIC. */ 01634000 * 8 * BIT(6), /* RESERVED */ 01635000 * 7 SDWAURAL CHAR(1), /* LENGTH OF USER SUPPLIED 0180 01636000 * INFORMATION */ 01637000 * 7 SDWAVRA CHAR(108), /* VARIABLE RECORDING AREA */ 01638000 * 6 * CHAR(0) BDY(DWORD) ; /*ROUND UP TO DOUBLE WORD */ 01639000 */* THESE CONSTANTS MAP RETURN CODES FROM AN EXIT IN FIELD */ 01640000 */* SDWARCDE */ 01641000 *DECLARE 0181 01642000 * SDWACWT CONSTANT(0), /* CONTINUE WITH TERMINATION. 01643000 * THIS INDICATION IMPLIES 0181 01644000 * PERCOLATION */ 01645000 * SDWARETY CONSTANT(4), /* RETRY USING RETRY ADDRESS 01646000 * IN SDWARTYA FIELD */ 01647000 * SDWAPSTI CONSTANT(16); /* PREVENT FURTHER (E)STAI 0181 01648000 * PROCESSING */ 01649000 * DECLARE /***** P A R A M E T E R S ***************************/ 01650000 * 0182 01651000 * STAETYPE /* TYPE OF CALL (SET OR CANCEL) */ 01652000 * CHAR (8), 0182 01653000 * BLOCKPTR /* POINTER TO CONTROL BLOCK SET UP BY */ 01654000 * /* CALLER */ 01655000 * POINTER (31), 0182 01656000 * 0182 01657000 * BLOCKID /* CONTROL BLOCK IDENTIFIER */ 01658000 * CHAR (4) DEFINED (BLOCKPTR); 0182 01659000 * 0182 01660000 * DECLARE /***** I N T E R N A L S *****************************/ 01661000 * 0183 01662000 * POOLID /* SUB POOL IDENTIFIER */ 01663000 * CHAR (4) INIT ('SA10'), 0183 01664000 * 0183 01665000 * MODID /* INTER-MODULE TRACE IDENTIFIER */ 01666000 * CHAR(4) INIT('SA10'), 0183 01667000 * 0183 01668000 * /***** LOCAL VARIABLES AND CONSTANTS **************************/ 01669000 * 0183 01670000 * SAVEREGS /* SAVEAREA FOR REGISTERS FOR ABEND */ 01671000 * /* PROCESSING */ 01672000 * CHAR (64), 0183 01673000 * 0183 01674000 * BADARG /* UABORT CODE */ 01675000 * FIXED (8) CONSTANT (40), 0183 01676000 * 0183 01677000 * STAEPTR /* POINTER TO COPY OF CONTROL BLOCK */ 01678000 * /* BUILT IN THIS PROGRAM */ 01679000 * POINTER (31), 0183 01680000 * 0183 01681000 * STAWORK /* CONTROL BLOCK BUILT IN THIS PROGRAM */ 01682000 * CHAR (*) BASED (STAEPTR), 0183 01683000 * 0183 01684000 * CSTAID /* IDENTIFIER PICKED UP FROM THE */ 01685000 * /* CONTROL BLOCK BEING EXAMINED */ 01686000 * CHAR(4), 0183 01687000 * 0183 01688000 * CBLKFLG /* FLAG TO INDICATE IF CONTROL BLOCK */ 01689000 * /* OF INTEREST WAS FOUND */ 01690000 * BIT (1), 0183 01691000 * 0183 01692000 * FOUND /* FLAG TO INDICATE CONTROL BLOCK */ 01693000 * /* OF INTEREST WAS FOUND */ 01694000 * BIT (1) CONSTANT ('1'B), 0183 01695000 * 0183 01696000 * NOTFOUND /* FLAG TO INDICATE CONTROL BLOCK */ 01697000 * /* OF INTEREST WAS NOT FOUND */ 01698000 * BIT (1) CONSTANT ('0'B), 0183 01699000 * 0183 01700000 * /***** MODULE PATCH AREA DECLARATIONS *************************/ 01701000 * 0183 01702000 * 1 FIXAREA STATIC, /* MODULE PATCH AREA */ 01703000 * 2 * (256) CHAR(1) INIT((256) '00'X); 0183 01704000 * 0183 01705000 EJECT 01706000 * 0184 01707000 */***** B E G I N E X E C U T I O N *****************************/ 01708000 * 0184 01709000 * IF GDTDBG = NULLPTR 0184 01710000 * THEN; 0184 01711000 L @10,@PC00001 0184 01712000 L @10,GDTDBG(,@10) 0184 01713000 LTR @10,@10 0184 01714000 BZ @RT00184 0184 01715000 * ELSE 0186 01716000 * CALL ICKDB010 (GDTTBL, 'SA10'); 0186 01717000 * 0186 01718000 L @10,@PC00001 0186 01719000 ST @10,@AL00001 0186 01720000 LA @15,@CC00858 0186 01721000 ST @15,@AL00001+4 0186 01722000 MVI @AL00001+4,X'80' 0186 01723000 L @15,GDTDBG(,@10) 0186 01724000 LA @01,@AL00001 0186 01725000 BALR @14,@15 0186 01726000 */* INDICATE INITIALLY A SUCCESSFUL COMPLETION */ 01727000 * TESTRC = 0; 0187 01728000 @RT00184 SLR TESTRC,TESTRC 0187 01729000 */* IF A STAE ENVIRONMENT IS TO BE SET UP */ 01730000 * IF STAETYPE = 'SET' 0188 01731000 */* THEN SET_STAE_ENVIRONMENT */ 01732000 * THEN CALL SETSTAE; 0188 01733000 L @10,@PC00001+4 0188 01734000 CLC STAETYPE(3,@10),@CC00873 0188 01735000 BNE @RF00188 0188 01736000 BAL @14,SETSTAE 0189 01737000 */* ELSE */ 01738000 * ELSE DO; 0190 01739000 B @RC00188 0190 01740000 @RF00188 DS 0H 0191 01741000 */* IF A STAE ENVIRONMENT IS TO BE CLEANED UP */ 01742000 * IF STAETYPE = 'CANCEL' 0191 01743000 */* THEN CANCEL_STAE_ENVIRONMENT */ 01744000 * THEN CALL CANSTAE; 0191 01745000 L @10,@PC00001+4 0191 01746000 CLC STAETYPE(6,@10),@CC00875 0191 01747000 BNE @RF00191 0191 01748000 BAL @14,CANSTAE 0192 01749000 */* ELSE ABORT */ 01750000 * ELSE DO; 0193 01751000 B @RC00191 0193 01752000 @RF00191 DS 0H 0194 01753000 * DO; 0194 01754000 * RESPECIFY(REG13,REG14,REG15) RSTD; 0195 01755000 * REG15 = BADARG; 0196 01756000 LA REG15,40 0196 01757000 * REG14 = GDTABT; 0197 01758000 L @10,@PC00001 0197 01759000 L REG14,GDTABT(,@10) 0197 01760000 * REG13 = GDTABH; 0198 01761000 L REG13,GDTABH(,@10) 0198 01762000 * GEN(BR REG14); 0199 01763000 BR REG14 01764000 * RESPECIFY(REG13,REG14,REG15)UNRSTD; 0200 01765000 * END; END; 0201 01766000 */* END-ELSE */ 01767000 * END; 0203 01768000 @RC00191 DS 0H 0204 01769000 */* END-PROCEDURE USTAE */ 01770000 * IF GDTDBG = NULLPTR 0204 01771000 * THEN; 0204 01772000 @RC00188 L @10,@PC00001 0204 01773000 L @10,GDTDBG(,@10) 0204 01774000 LTR @10,@10 0204 01775000 BZ @RT00204 0204 01776000 * ELSE 0206 01777000 * CALL ICKDB010 (GDTTBL,'SA19'); 0206 01778000 L @10,@PC00001 0206 01779000 ST @10,@AL00001 0206 01780000 LA @15,@CC00877 0206 01781000 ST @15,@AL00001+4 0206 01782000 MVI @AL00001+4,X'80' 0206 01783000 L @15,GDTDBG(,@10) 0206 01784000 LA @01,@AL00001 0206 01785000 BALR @14,@15 0206 01786000 * CALL ICKSAEP0(GDTTBL,MODID); 0207 01787000 @RT00204 L @10,@PC00001 0207 01788000 ST @10,@AL00001 0207 01789000 LA @15,MODID 0207 01790000 ST @15,@AL00001+4 0207 01791000 MVI @AL00001+4,X'80' 0207 01792000 L @15,GDTEPL(,@10) 0207 01793000 LA @01,@AL00001 0207 01794000 BALR @14,@15 0207 01795000 EJECT 01796000 */***** START OF SPECIFICATIONS ************************************/ 01797000 */* */ 01798000 */* SUB-PROCEDURE NAME: SETSTAE */ 01799000 */* */ 01800000 */* DESCRIPTIVE NAME: SET_STAE_ENVIRONMENT */ 01801000 */* */ 01802000 */* FUNCTION: */ 01803000 */* */ 01804000 */* THE FUNCTION OF THIS PROCEDURE IS TO SET UP A STAE */ 01805000 */* ENVIRONMENT AS PER THE CALLERS REQUEST. THE CALLERS */ 01806000 */* CONTROL BLOCK IS CHAINED TO ANY PRECEDING CALLERS */ 01807000 */* CONTROL BLOCKS. THE PRIMARY ANCHOR TO THESE CONTROL */ 01808000 */* BLOCKS EXISTS IN THE GDT HISTORICAL DATA AREA. THIS */ 01809000 */* PROGRAM HAS NO KNOWLEDGE OF THE ACTUAL INFORMATION */ 01810000 */* THAT THE CALLER WISHES TO SAVE IN HIS OWN PRIVATE */ 01811000 */* CONTROL BLOCK. HOWEVER, THE CALLER WILL BE PASSED */ 01812000 */* A POINTER TO THE SYSTEM DIAGNOSTIC WORK AREA (SDWA), */ 01813000 */* WHEN AN ABEND SITUATION OCCURS. */ 01814000 */* NOTE THAT ANY CALLER IN DMS CAN REQUEST A STAE */ 01815000 */* ENVIRONMENT. THIS PROGRAM WILL NOT ISSUE A STAE */ 01816000 */* MACRO EVERYTIME. INSTEAD IT WILL ADD THE CALLERS */ 01817000 */* CONTROL BLOCK TO THE CHAIN WHOSE ORIGIN EXISTS */ 01818000 */* IN THE GDT HISTORICAL DATA AREA. */ 01819000 */* */ 01820000 */***** END OF SPECIFICATIONS **************************************/ 01821000 * 0208 01822000 * 0208 01823000 */* SUB-PROCEDURE SET_STAE_ENVIRONMENT */ 01824000 * SETSTAE: 0208 01825000 * PROCEDURE; 0208 01826000 B @PB00002 0208 01827000 SETSTAE STM @14,@12,@SA00002 0208 01828000 * /***** LOCAL DECLARATIONS ************************************/ 01829000 * GENERATE DATA DEFS(STAELIST);/*LIST FORM ESTAE */ 01830000 * /*DEFINE STAE ARGUMENT LIST */ 01831000 *DCL STAELIST CHAR(20) GEND STATIC LOCAL; 0210 01832000 * /*DEF STAELIST TO PLS */ 01833000 *DCL STAEARG CHAR(20) BDY(WORD); 0211 01834000 * OLDERID2 = NEWERID2; 0212 01835000 L @10,@PC00001 0212 01836000 L @04,GDTTR2(,@10) 0212 01837000 MVC @TS00001(95),NEWERID2(@04) 0212 01838000 MVC OLDERID2(95,@04),@TS00001 0212 01839000 * NEWID2 = 'STSS'; 0213 01840000 MVC NEWID2(4,@04),@CC00884 0213 01841000 */* ESTABLISH ADDRESSABILITY TO INVOKERS CONTROL BLOCK */ 01842000 * RESPECIFY STAEPARM BASED (BLOCKPTR); 0214 01843000 */* GET SPACE FOR CONTROL BLOCK COPY TO BE PLACED ON CHAIN */ 01844000 * CALL ICKSAGS0 (GDTTBL 0215 01845000 * ,STALEN 0215 01846000 * ,STAEPTR 0215 01847000 * ,SETZERO); 0215 01848000 ST @10,@AL00001 0215 01849000 L @04,@PC00001+8 0215 01850000 L @04,BLOCKPTR(,@04) 0215 01851000 LA @04,STALEN(,@04) 0215 01852000 ST @04,@AL00001+4 0215 01853000 LA @04,STAEPTR 0215 01854000 ST @04,@AL00001+8 0215 01855000 LA @04,@CC00145 0215 01856000 ST @04,@AL00001+12 0215 01857000 MVI @AL00001+12,X'80' 0215 01858000 L @15,GDTGSP(,@10) 0215 01859000 LA @01,@AL00001 0215 01860000 BALR @14,@15 0215 01861000 */* COPY THE CONTROL BLOCK AS SET UP BY INVOKER INTO WORK AREA */ 01862000 * STAWORK (1:STALEN) = STAEPARM (1:STALEN); 0216 01863000 L @10,STAEPTR 0216 01864000 L @04,@PC00001+8 0216 01865000 L @04,BLOCKPTR(,@04) 0216 01866000 L @15,STALEN(,@04) 0216 01867000 BCTR @15,0 0216 01868000 EX @15,@SM00916 0216 01869000 */* MAKE THE WORK AREA COPY MAP INTO PARM LIST STRUCTURE */ 01870000 * RESPECIFY STAEPARM BASED (STAEPTR); 0217 01871000 */* IF THIS IS THE FIRST REQUEST FOR A STAE ENVIRONMENT */ 01872000 * IF SAHSTA = NULLPTR 0218 01873000 */* THEN */ 01874000 * THEN DO; 0218 01875000 SLR @04,@04 0218 01876000 L @15,@PC00001 0218 01877000 L @14,GDTSAH(,@15) 0218 01878000 C @04,SAHSTA(,@14) 0218 01879000 BNE @RF00218 0218 01880000 */* SET POINTER OF CONTROL BLOCK IN HISTORICAL DATA AREA */ 01881000 * SAHSTA = STAEPTR; 0220 01882000 ST @10,SAHSTA(,@14) 0220 01883000 */* SET FORWARD POINTER IN THE CONTROL BLOCK TO NULL */ 01884000 * STAFPTR = NULLPTR; 0221 01885000 ST @04,STAFPTR(,@10) 0221 01886000 */* SET BACKWARD POINTER TO POINT TO THE HISTORICAL DATA AREA */ 01887000 * STABPTR = ADDR(SAHSTA); 0222 01888000 LA @14,SAHSTA(,@14) 0222 01889000 ST @14,STABPTR(,@10) 0222 01890000 */* PLACE THE POINTER TO THE GDT IN THE CONTROL BLOCK */ 01891000 * STAGDT = ADDR(GDTTBL); 0223 01892000 ST @15,STAGDT(,@10) 0223 01893000 */* SAVE THE REGISTERS TO BE USED BY EXIT ROUTINE */ 01894000 * RFY (REG1) RSTD; 0224 01895000 * REG1 = ADDR(SAVEREGS); 0225 01896000 LA REG1,SAVEREGS 0225 01897000 * GEN (STM REG0,REG15,0(REG1)); 0226 01898000 STM REG0,REG15,0(REG1) 01899000 * RFY (REG1) UNRSTD; 0227 01900000 * STARPTR = ADDR (SAVEREGS); 0228 01901000 L @10,STAEPTR 0228 01902000 LA @15,SAVEREGS 0228 01903000 ST @15,STARPTR(,@10) 0228 01904000 */* ISSUE THE STAE OR ESTAE MACRO */ 01905000 * RESPECIFY (REG2,REG3,REG4) RESTRICTED; 0229 01906000 * STAEARG = STAELIST; 0230 01907000 MVC STAEARG(20),STAELIST 0230 01908000 * REG2 = ADDR(EXITSTAE); 0231 01909000 LA REG2,EXITSTAE 0231 01910000 * REG3 = ADDR(STAEPARM); 0232 01911000 LR REG3,@10 0232 01912000 * REG4 = ADDR(STAEARG); 0233 01913000 LA REG4,STAEARG 0233 01914000 *LSTAE1: GEN(ESTAE (REG2),PARAM=(REG3),TERM=YES,MF=(E,(REG4))); 0234 01915000 LSTAE1 ESTAE (REG2),PARAM=(REG3),TERM=YES,MF=(E,(REG4)) 01916000 * RESPECIFY (REG2,REG3,REG4) UNRESTRICTED; 0235 01917000 * RESPECIFY RTNREG RSTD; 0236 01918000 * TESTRC = RTNREG; 0237 01919000 LR TESTRC,RTNREG 0237 01920000 * RESPECIFY RTNREG UNRSTD; 0238 01921000 */* IF SET UP OF THE STAE ENVIRONMENT NOT SUCCESSFUL */ 01922000 * IF TESTRC ^= 0 0239 01923000 */* THEN */ 01924000 * THEN DO; 0239 01925000 SLR @10,@10 0239 01926000 CR TESTRC,@10 0239 01927000 BE @RF00239 0239 01928000 */* NULLIFY THE POINTER IN THE HISTORICAL DATA AREA */ 01929000 * SAHSTA = NULLPTR; 0241 01930000 L @04,@PC00001 0241 01931000 L @01,GDTSAH(,@04) 0241 01932000 ST @10,SAHSTA(,@01) 0241 01933000 */* ABORT */ 01934000 * 0242 01935000 * DO; 0242 01936000 * RESPECIFY(REG13,REG14,REG15) RSTD; 0243 01937000 * REG15 = 28; 0244 01938000 LA REG15,28 0244 01939000 * REG14 = GDTABT; 0245 01940000 L REG14,GDTABT(,@04) 0245 01941000 * REG13 = GDTABH; 0246 01942000 L REG13,GDTABH(,@04) 0246 01943000 * GEN(BR REG14); 0247 01944000 BR REG14 01945000 * RESPECIFY(REG13,REG14,REG15)UNRSTD; 0248 01946000 * END; 0249 01947000 */* END-THEN */ 01948000 * END; 0250 01949000 */* END-THEN */ 01950000 * END; 0251 01951000 */* ELSE (THIS IS NOT THE FIRST REQUEST) */ 01952000 * ELSE DO; 0252 01953000 B @RC00218 0252 01954000 @RF00218 DS 0H 0253 01955000 */* INSERT THE NEW CONTROL BLOCK POINTER IN BACKWARDS CHAIN */ 01956000 * SAHSTA -> STABPTR = STAEPTR; 0253 01957000 L @10,STAEPTR 0253 01958000 L @04,@PC00001 0253 01959000 L @04,GDTSAH(,@04) 0253 01960000 L @15,SAHSTA(,@04) 0253 01961000 ST @10,STABPTR(,@15) 0253 01962000 */* INSERT THE NEW CONTROL BLOCK POINTER IN BEGINNING OF CHAIN */ 01963000 * STAFPTR = SAHSTA; 0254 01964000 ST @15,STAFPTR(,@10) 0254 01965000 * SAHSTA = STAEPTR; 0255 01966000 ST @10,SAHSTA(,@04) 0255 01967000 * STABPTR = ADDR (SAHSTA); 0256 01968000 LA @04,SAHSTA(,@04) 0256 01969000 ST @04,STABPTR(,@10) 0256 01970000 */* END-ELSE */ 01971000 * END; 0257 01972000 * RETURN CODE(TESTRC); 0258 01973000 @RC00218 LR @15,TESTRC 0258 01974000 L @14,@SA00002 0258 01975000 LM @00,@12,@SA00002+8 0258 01976000 BR @14 0258 01977000 */* END-SUB-PROCEDURE SET_STAE_ENVIRONMENT */ 01978000 * END SETSTAE; 0259 01979000 * 0259 01980000 EJECT 01981000 */***** START OF SPECIFICATIONS ************************************/ 01982000 */* */ 01983000 */* SUB-PROCEDURE NAME: CANSTAE */ 01984000 */* */ 01985000 */* DESCRIPTIVE NAME: CANCEL_STAE_ENVIRONMENT */ 01986000 */* */ 01987000 */* FUNCTION: */ 01988000 */* */ 01989000 */* THIS PROCEDURE WILL ELIMINATE A STAE ENVIRONMENT */ 01990000 */* THAT WAS ORIGINALLY SET UP BY THE SAME CALLER. */ 01991000 */* IN THE EVENT THAT MORE THAN ONE CALLER HAS REQUESTED */ 01992000 */* THE SETUP OF A STAE ENVIRONMENT IN THE FIRST PLACE */ 01993000 */* THE ONLY ACTION TAKEN BY THIS PROGRAM IS TO */ 01994000 */* ELIMINATE THE SPECIFIC CALLERS CONTROL BLOCK FROM */ 01995000 */* THE CHAIN WHOSE ORIGIN EXISTS IN THE GDT HISTORICAL */ 01996000 */* AREA. THIS MEANS THAT TO COMPLETELY ELIMINATE THE */ 01997000 */* STAE ENVIRONMENT FROM THE SYSTEM ALL THE CALLERS */ 01998000 */* WHO REQUESTED THE SETUP IN THE FIRST PLACE MUST */ 01999000 */* EVENTUALLY CALL THIS PROGRAM TO CANCEL THEIR */ 02000000 */* INDIVIDUAL STAE ENVIRONMENTS. NOTE HOWEVER, THAT */ 02001000 */* AS FAR AS THE SYSTEM IS CONCERNED THERE EXISTS */ 02002000 */* ONLY A SINGLE STAE ENVIRONMENT. */ 02003000 */* */ 02004000 */***** END OF SPECIFICATIONS **************************************/ 02005000 * 0260 02006000 * 0260 02007000 */* SUB-PROCEDURE CANCEL_STAE_ENVIRONMENT */ 02008000 * CANSTAE: 0260 02009000 * PROCEDURE; 0260 02010000 CANSTAE STM @14,@12,@SA00003 0260 02011000 * OLDERID2 = NEWERID2; 0261 02012000 L @10,@PC00001 0261 02013000 L @04,GDTTR2(,@10) 0261 02014000 MVC @TS00001(95),NEWERID2(@04) 0261 02015000 MVC OLDERID2(95,@04),@TS00001 0261 02016000 * NEWID2 = 'STCS'; 0262 02017000 MVC NEWID2(4,@04),@CC00894 0262 02018000 */* IF THE POINTER IN THE HISTORICAL DATA AREA IS NULL */ 02019000 * IF SAHSTA = NULLPTR 0263 02020000 */* THEN ABORT */ 02021000 * THEN DO; 0263 02022000 L @04,GDTSAH(,@10) 0263 02023000 L @04,SAHSTA(,@04) 0263 02024000 LTR @04,@04 0263 02025000 BNZ @RF00263 0263 02026000 * DO; 0265 02027000 * RESPECIFY(REG13,REG14,REG15) RSTD; 0266 02028000 * REG15 = 33; 0267 02029000 LA REG15,33 0267 02030000 * REG14 = GDTABT; 0268 02031000 L REG14,GDTABT(,@10) 0268 02032000 * REG13 = GDTABH; 0269 02033000 L REG13,GDTABH(,@10) 0269 02034000 * GEN(BR REG14); 0270 02035000 BR REG14 02036000 * RESPECIFY(REG13,REG14,REG15)UNRSTD; 0271 02037000 * END; END; 0272 02038000 */* IF NO ERRORS FOUND SO FAR */ 02039000 * IF TESTRC = 0 0274 02040000 */* THEN */ 02041000 * THEN DO; 0274 02042000 @RF00263 LTR TESTRC,TESTRC 0274 02043000 BNZ @RF00274 0274 02044000 */* SEARCH THE CHAIN FOR THE PROPER CONTROL BLOCK */ 02045000 * RESPECIFY STAEPARM BASED(STAEPTR); 0276 02046000 * CBLKFLG = NOTFOUND; 0277 02047000 NI CBLKFLG,B'01111111' 0277 02048000 * STAEPTR = SAHSTA; 0278 02049000 L @10,@PC00001 0278 02050000 L @10,GDTSAH(,@10) 0278 02051000 MVC STAEPTR(4),SAHSTA(@10) 0278 02052000 * DO WHILE CBLKFLG = NOTFOUND & STAEPTR ^= NULLPTR ; 0279 02053000 B @DE00279 0279 02054000 @DL00279 DS 0H 0280 02055000 * IF STAID = BLOCKID 0280 02056000 * THEN CBLKFLG = FOUND; 0280 02057000 L @10,@PC00001+8 0280 02058000 L @04,STAEPTR 0280 02059000 CLC STAID(4,@04),BLOCKID(@10) 0280 02060000 BNE @RF00280 0280 02061000 OI CBLKFLG,B'10000000' 0281 02062000 * ELSE STAEPTR = STAFPTR; 0282 02063000 B @RC00280 0282 02064000 @RF00280 L @10,STAEPTR 0282 02065000 L @10,STAFPTR(,@10) 0282 02066000 ST @10,STAEPTR 0282 02067000 * END; 0283 02068000 @RC00280 DS 0H 0283 02069000 @DE00279 TM CBLKFLG,B'10000000' 0283 02070000 BNZ @DC00279 0283 02071000 L @10,STAEPTR 0283 02072000 LTR @10,@10 0283 02073000 BNZ @DL00279 0283 02074000 @DC00279 DS 0H 0284 02075000 */* IF THE PROPER CONTROL BLOCK WAS NOT FOUND */ 02076000 * IF CBLKFLG = NOTFOUND 0284 02077000 */* THEN ABORT */ 02078000 * THEN DO; 0284 02079000 TM CBLKFLG,B'10000000' 0284 02080000 BNZ @RF00284 0284 02081000 * DO; 0286 02082000 * RESPECIFY(REG13,REG14,REG15) RSTD; 0287 02083000 * REG15 = 33; 0288 02084000 LA REG15,33 0288 02085000 * REG14 = GDTABT; 0289 02086000 L @10,@PC00001 0289 02087000 L REG14,GDTABT(,@10) 0289 02088000 * REG13 = GDTABH; 0290 02089000 L REG13,GDTABH(,@10) 0290 02090000 * GEN(BR REG14); 0291 02091000 BR REG14 02092000 * RESPECIFY(REG13,REG14,REG15)UNRSTD; 0292 02093000 * END; END; 0293 02094000 */* ELSE (PROPER CONTROL BLOCK FOUND) */ 02095000 * ELSE DO; 0295 02096000 B @RC00284 0295 02097000 @RF00284 DS 0H 0296 02098000 */* REMOVE THE CONTROL BLOCK POINTER FROM THE CHAIN */ 02099000 * STABPTR -> STAFPTR = STAFPTR; 0296 02100000 L @10,STAEPTR 0296 02101000 L @04,STABPTR(,@10) 0296 02102000 L @10,STAFPTR(,@10) 0296 02103000 ST @10,STAFPTR(,@04) 0296 02104000 * IF STAFPTR ^= NULLPTR 0297 02105000 * THEN STAFPTR -> STABPTR = STABPTR; 0297 02106000 LTR @10,@10 0297 02107000 BZ @RF00297 0297 02108000 ST @04,STABPTR(,@10) 0298 02109000 */* END-ELSE */ 02110000 * END; 0299 02111000 @RF00297 DS 0H 0300 02112000 */* END-THEN (NO ERRORS) */ 02113000 * END; 0300 02114000 @RC00284 DS 0H 0301 02115000 */* IF NO ERRORS FOUND AS YET */ 02116000 * IF TESTRC = 0 0301 02117000 */* THEN */ 02118000 * THEN DO; 0301 02119000 @RF00274 SLR @10,@10 0301 02120000 CR TESTRC,@10 0301 02121000 BNE @RF00301 0301 02122000 */* IF THE DECHAINED CONTROL BLOCK IS THE LAST */ 02123000 * IF SAHSTA = NULLPTR 0303 02124000 */* THEN ISSUE MACRO TO CANCEL STAE ENVIRONMENT */ 02125000 * THEN DO; 0303 02126000 L @04,@PC00001 0303 02127000 L @04,GDTSAH(,@04) 0303 02128000 C @10,SAHSTA(,@04) 0303 02129000 BNE @RF00303 0303 02130000 *LSTAE2: GEN(ESTAE 0); 0305 02131000 LSTAE2 ESTAE 0 02132000 */* END-THEN */ 02133000 * END; 0306 02134000 */* FREE THE SPACE OCCUPIED BY THE UNCHAINED CONTROL BLOCK */ 02135000 * CALL ICKSAFS0 (GDTTBL,STAEPTR); 0307 02136000 @RF00303 L @10,@PC00001 0307 02137000 ST @10,@AL00001 0307 02138000 LA @04,STAEPTR 0307 02139000 ST @04,@AL00001+4 0307 02140000 L @15,GDTFSP(,@10) 0307 02141000 LA @01,@AL00001 0307 02142000 BALR @14,@15 0307 02143000 */* END-THEN */ 02144000 * END; 0308 02145000 * RETURN CODE(TESTRC); 0309 02146000 @RF00301 LR @15,TESTRC 0309 02147000 L @14,@SA00003 0309 02148000 LM @00,@12,@SA00003+8 0309 02149000 BR @14 0309 02150000 */* END-SUB-PROCEDURE CANCEL_STAE_ENVIRONMENT */ 02151000 * END CANSTAE; 0310 02152000 EJECT 02153000 */***** START OF SPECIFICATIONS ************************************/ 02154000 */* */ 02155000 */* SUB-PROCEDURE NAME: EXITSTAE */ 02156000 */* */ 02157000 */* DESCRIPTIVE NAME: EXIT ROUTINE */ 02158000 */* */ 02159000 */* FUNCTION: */ 02160000 */* */ 02161000 */* THIS PROCEDURE IS THE CONTROLLING PROGRAM THAT PASSES */ 02162000 */* CONTROL BACK TO THE CALLERS ROUTINES THAT SET UP THE */ 02163000 */* STAE ENVIRONMENT IN THE FIRST PLACE. IF THE CALLER */ 02164000 */* REQUESTED ACCESS TO THE SDWA THIS PROGRAM WILL */ 02165000 */* PASS BACK TO THE CALLER A POINTER TO THE SDWA. */ 02166000 */* */ 02167000 */* IT IS NOT THE RESPONSIBILITY OF THIS ROUTINE TO SET UP THE */ 02168000 */* ENVIRONMENT FOR A RETRY PROCESS. THIS PROGRAM WILL POST */ 02169000 */* THE RIGHT RETURN CODE FOR A RETRY BUT IT IS THE CALLERS */ 02170000 */* RESPONSIBILITY TO SET UP THE ENVIRONMENT FOR A RETRY AND */ 02171000 */* PASS TO THIS ROUTINE THE ENTRY POINT ADDRESS OF THE RETRY */ 02172000 */* ROUTINE. ADDITIONALLY FOR ALL THE DMS CALLERS THERE CAN */ 02173000 */* BE ONLY ONE RETRY ROUTINE ENTRY POINT ADDRESS. */ 02174000 */* */ 02175000 */***** END OF SPECIFICATIONS **************************************/ 02176000 * 0311 02177000 * 0311 02178000 */* SUB-PROCEDURE EXIT_ROUTINE */ 02179000 * EXITSTAE: 0311 02180000 * PROCEDURE OPTIONS (NOSAVEAREA,NOSAVE); 0311 02181000 EXITSTAE DS 0H 0312 02182000 * /***** LOCAL DECLARATIONS *************************************/ 02183000 * DCL NOSDWA FIXED (8) CONSTANT (12); 0312 02184000 * DCL RCVRROUT BASED; 0313 02185000 * DCL RETCODE FIXED (31); 0314 02186000 * DCL RTNPTR POINTER (31); 0315 02187000 * DCL RETRYPTR POINTER (31); 0316 02188000 * DCL SRETPTR POINTER (31); 0317 02189000 * DCL SDWAPTR POINTER (31) REG(3) RSTD; 0318 02190000 * DCL HISTPTR POINTER (31) BASED (STABPTR); 0319 02191000 * DCL TBLGDT CHAR (*) BASED (STAGDT); 0320 02192000 * DCL SAVAREA(3) POINTER(31); 0321 02193000 */* ESTABLISH ADDRESSABILTY TO THE FIRST CONTROL BLOCK */ 02194000 * RFY (REG0,REG1,REG2,REG14,REG15) RSTD; 0322 02195000 * RFY STAEPARM BASED (REG1); 0323 02196000 */* USE REGISTER 15 AS THE BASE REGISTER */ 02197000 * GEN SETS(REG15); 0324 02198000 USING *,REG15 02199000 */* IF AN SDWA WAS CREATED */ 02200000 * IF REG0 ^= NOSDWA 0325 02201000 */* THEN */ 02202000 * THEN DO; 0325 02203000 CH REG0,@CH00265 0325 02204000 BE @RF00325 0325 02205000 */* PICK UP THE CURSOR TO THE SDWA */ 02206000 * SDWAPTR = REG1; 0327 02207000 LR SDWAPTR,REG1 0327 02208000 */* PICK UP THE CURSOR TO THE FIRST CONTROL BLOCK */ 02209000 * REG1 = SDWAPARM; 0328 02210000 L REG1,SDWAPARM(,SDWAPTR) 0328 02211000 */* END-THEN */ 02212000 * END; 0329 02213000 */* ELSE PICK UP THE CURSOR TO THE FIRST CONTROL BLOCK FROM REG 2 */ 02214000 * ELSE REG1 = REG2; 0330 02215000 B @RC00325 0330 02216000 @RF00325 LR REG1,REG2 0330 02217000 */* PICK UP THE CURSOR TO THE SAVED REGISTERS */ 02218000 * REG2 = STARPTR; 0331 02219000 @RC00325 L REG2,STARPTR(,REG1) 0331 02220000 */* RESTORE THE REGISTERS */ 02221000 * GEN (LM REG4,REG13,16(REG2)); 0332 02222000 LM REG4,REG13,16(REG2) 02223000 * GEN (LM REG1,REG2,4(REG2)); 0333 02224000 LM REG1,REG2,4(REG2) 02225000 */* DO NOT USE REGISTER 15 AS THE BASE REGISTER ANYMORE */ 02226000 * GEN (DROP REG15); 0334 02227000 DROP REG15 02228000 */* PICK UP THE OLD BASE REGISTER AGAIN */ 02229000 * GEN (USING @PSTART,REG12); 0335 02230000 USING @PSTART,REG12 02231000 */* FORCE SAVE AREA CHAIN TO END AT CURRENT SAVE AREA */ 02232000 * SAVAREA (1) = 'SA10'; 0336 02233000 MVC SAVAREA(4),@CF00858 0336 02234000 * SAVAREA (2) = NULLPTR; 0337 02235000 SLR @10,@10 0337 02236000 ST @10,SAVAREA+4 0337 02237000 * SAVAREA (3) = REG13; 0338 02238000 ST REG13,SAVAREA+8 0338 02239000 * RFY (REG6) RSTD; 0339 02240000 * REG6 = ADDR (SAVAREA (1)); 0340 02241000 LA REG6,SAVAREA 0340 02242000 * GEN (ST REG6,4(REG13)); 0341 02243000 ST REG6,4(REG13) 02244000 * RFY (REG6) UNRSTD; 0342 02245000 */* PICK UP THE CURSOR FROM THE HISTORICAL DATA AREA */ 02246000 * STAEPTR = SAHSTA; 0343 02247000 L @10,@PC00001 0343 02248000 L @10,GDTSAH(,@10) 0343 02249000 L @10,SAHSTA(,@10) 0343 02250000 ST @10,STAEPTR 0343 02251000 */* ESTABLISH ADDRESSABILITY TO THE FIRST CONTROL BLOCK AGAIN */ 02252000 * RESPECIFY STAEPARM BASED (STAEPTR); 0344 02253000 */* SAVE THE RETURN ADDRESS */ 02254000 * RTNPTR = REG14; 0345 02255000 LR RTNPTR,REG14 0345 02256000 * RFY (REG1,REG2,REG14,REG15) UNRSTD; 0346 02257000 */* IF AN SDWA WAS CREATED */ 02258000 * IF REG0 ^= NOSDWA 0347 02259000 */* THEN SAVE THE ADDRESS OF THE SDWA IN THE CONTROL BLOCK */ 02260000 * THEN STASPTR = SDWAPTR; 0347 02261000 CH REG0,@CH00265 0347 02262000 BE @RF00347 0347 02263000 ST SDWAPTR,STASPTR(,@10) 0348 02264000 */* ESTABLISH ADDRESSABILITY TO FIRST CALLERS ROUTINE */ 02265000 * RFY RCVRROUT BASED (STAEPA); 0349 02266000 @RF00347 DS 0H 0350 02267000 */* INITIALIZE THE RETURN CODE TO MINIMUM */ 02268000 * RETCODE = 0; 0350 02269000 SLR @10,@10 0350 02270000 ST @10,RETCODE 0350 02271000 */* PASS CONTROL TO THE FIRST CALLERS RECOVERY ROUTINE */ 02272000 * OLDERID2 = NEWERID2; 0351 02273000 L @10,@PC00001 0351 02274000 L @10,GDTTR2(,@10) 0351 02275000 MVC @TS00001(95),NEWERID2(@10) 0351 02276000 MVC OLDERID2(95,@10),@TS00001 0351 02277000 * NEWID2 = 'STX1'; 0352 02278000 MVC NEWID2(4,@10),@CC00913 0352 02279000 * CALL RCVRROUT 0353 02280000 * (TBLGDT 0353 02281000 * ,STAEPTR 0353 02282000 * ,RETRYPTR 0353 02283000 * ,RETCODE); 0353 02284000 L @10,STAEPTR 0353 02285000 L @01,STAGDT(,@10) 0353 02286000 ST @01,@AL00001 0353 02287000 LA @04,STAEPTR 0353 02288000 ST @04,@AL00001+4 0353 02289000 LA @04,RETRYPTR 0353 02290000 ST @04,@AL00001+8 0353 02291000 LA @04,RETCODE 0353 02292000 ST @04,@AL00001+12 0353 02293000 L @15,STAEPA(,@10) 0353 02294000 LA @01,@AL00001 0353 02295000 BALR @14,@15 0353 02296000 */* IF A RETRY ROUTINE WAS SPECIFIED */ 02297000 * IF RETRYPTR ^= NULLPTR 0354 02298000 */* THEN SAVE THE ENTRY POINT ADDRESS OF THE RETRY ROUTINE */ 02299000 * THEN SRETPTR = RETRYPTR; 0354 02300000 L @10,RETRYPTR 0354 02301000 LTR @10,@10 0354 02302000 BZ @RF00354 0354 02303000 ST @10,SRETPTR 0355 02304000 * RETCODE = MAX(RETCODE,0); 0356 02305000 @RF00354 L @10,RETCODE 0356 02306000 SLR @04,@04 0356 02307000 CR @10,@04 0356 02308000 BNL *+6 02309000 LR @10,@04 0356 02310000 ST @10,RETCODE 0356 02311000 */* GO TO THE NEXT CALLERS CONTROL BLOCK */ 02312000 * STAEPTR = STAFPTR; 0357 02313000 L @10,STAEPTR 0357 02314000 L @10,STAFPTR(,@10) 0357 02315000 ST @10,STAEPTR 0357 02316000 */* DO-WHILE THERE ARE CONTROL BLOCKS ON CHAIN */ 02317000 * DO WHILE STAEPTR ^= NULLPTR; 0358 02318000 B @DE00358 0358 02319000 @DL00358 DS 0H 0359 02320000 * IF REG0 ^= NOSDWA 0359 02321000 * THEN STASPTR = SDWAPTR; 0359 02322000 CH REG0,@CH00265 0359 02323000 BE @RF00359 0359 02324000 L @10,STAEPTR 0360 02325000 ST SDWAPTR,STASPTR(,@10) 0360 02326000 * CALL RCVRROUT 0361 02327000 * (TBLGDT 0361 02328000 * ,STAEPTR 0361 02329000 * ,RETRYPTR 0361 02330000 * ,RETCODE); 0361 02331000 @RF00359 L @10,STAEPTR 0361 02332000 L @01,STAGDT(,@10) 0361 02333000 ST @01,@AL00001 0361 02334000 LA @04,STAEPTR 0361 02335000 ST @04,@AL00001+4 0361 02336000 LA @04,RETRYPTR 0361 02337000 ST @04,@AL00001+8 0361 02338000 LA @04,RETCODE 0361 02339000 ST @04,@AL00001+12 0361 02340000 L @15,STAEPA(,@10) 0361 02341000 LA @01,@AL00001 0361 02342000 BALR @14,@15 0361 02343000 */* IF A RETRY ROUTINE WAS SPECIFIED */ 02344000 * IF RETRYPTR ^= NULLPTR 0362 02345000 */* THEN SAVE THE ENTRY POINT ADDRESS OF THE RETRY ROUTINE */ 02346000 * THEN SRETPTR = RETRYPTR; 0362 02347000 L @10,RETRYPTR 0362 02348000 LTR @10,@10 0362 02349000 BZ @RF00362 0362 02350000 ST @10,SRETPTR 0363 02351000 * RETCODE = MAX (RETCODE,0); 0364 02352000 @RF00362 L @10,RETCODE 0364 02353000 SLR @04,@04 0364 02354000 CR @10,@04 0364 02355000 BNL *+6 02356000 LR @10,@04 0364 02357000 ST @10,RETCODE 0364 02358000 * STAEPTR = STAFPTR; 0365 02359000 L @10,STAEPTR 0365 02360000 L @10,STAFPTR(,@10) 0365 02361000 ST @10,STAEPTR 0365 02362000 */* END-WHILE */ 02363000 * END; 0366 02364000 @DE00358 L @10,STAEPTR 0366 02365000 LTR @10,@10 0366 02366000 BNZ @DL00358 0366 02367000 * RFY (REG14) RSTD; 0367 02368000 */* IF RETURN CODE WAS 4 */ 02369000 * IF RETCODE = 4 0368 02370000 */* THEN PLACE RETRY ROUTINE POINTER IN REGISTER 14 */ 02371000 * THEN REG14 = SRETPTR; 0368 02372000 CLC RETCODE(4),@CF00044 0368 02373000 BNE @RF00368 0368 02374000 L REG14,SRETPTR 0369 02375000 * ELSE REG14 = RTNPTR; 0370 02376000 B @RC00368 0370 02377000 @RF00368 LR REG14,RTNPTR 0370 02378000 * RFY (REG14) UNRSTD; 0371 02379000 @RC00368 DS 0H 0372 02380000 */* PLACE THE RETURN CODE IN REGISTER 15 */ 02381000 * TESTRC = RETCODE; 0372 02382000 L TESTRC,RETCODE 0372 02383000 */* RETURN */ 02384000 * OLDERID2 = NEWERID2; 0373 02385000 L @10,@PC00001 0373 02386000 L @10,GDTTR2(,@10) 0373 02387000 MVC @TS00001(95),NEWERID2(@10) 0373 02388000 MVC OLDERID2(95,@10),@TS00001 0373 02389000 * NEWID2 = 'STX2'; 0374 02390000 MVC NEWID2(4,@10),@CC00915 0374 02391000 * RETURN CODE(TESTRC); 0375 02392000 LR @15,TESTRC 0375 02393000 @EL00004 DS 0H 0375 02394000 @EF00004 DS 0H 0375 02395000 @ER00004 BR @14 0375 02396000 */* END-SUB-PROCEDURE EXIT_ROUTINE */ 02397000 * END EXITSTAE; 0376 02398000 * 0376 02399000 @PB00004 DS 0H 0376 02400000 */* THE FOLLOWING DATUM IS FOR USE BY THE SYSTEM ADAPTER: */ 02401000 */* IT SPECIFIES THE SIZE OF THIS MODULE'S AUTOMATIC STORAGE, */ 02402000 */* SUCH THAT THE SYSTEM ADAPTER CAN ALLOCATE IT ONCE AND ONCE */ 02403000 */* ONLY, DURING DMS INITIALIZATION. */ 02404000 * 0377 02405000 * GENERATE DATA; 0377 02406000 * 0377 02407000 */* END-PROCEDURE USTAE */ 02408000 * END ICKSA10 0378 02409000 */* THE FOLLOWING INCLUDE STATEMENTS WERE FOUND IN THIS PROGRAM. * 02410000 */*%INCLUDE SYSLIB (DMSDF01 ) * 02411000 */*%INCLUDE SYSLIB (DMSDF00 ) * 02412000 */*@INCLUDE SYSLIB (DMSDF02 ) * 02413000 */*%INCLUDE SYSLIB (DMSDF09 ) * 02414000 */*%INCLUDE SYSLIB (IHASDWA ) * 02415000 *; 0378 02416000 @DATA DS 0H 02417000 @CH00265 DC H'12' 02418000 @SM00916 MVC STAWORK(0,@10),STAEPARM(@04) 02419000 @DATD DSECT 02420000 DS 0F 02421000 @SA00001 DS 18F 02422000 @PC00001 DS 3F 02423000 @SA00002 DS 15F 02424000 @SA00003 DS 15F 02425000 @AL00001 DS 4A 02426000 @ZTEMPS DS C 02427000 @ZTEMPND EQU * 02428000 @ZLEN EQU @ZTEMPND-@ZTEMPS 02429000 ICKSA10 CSECT 02430000 DS 0F 02431000 @CF00044 DC F'4' 02432000 @CF00858 DC C'SA10' 02433000 @DATD DSECT 02434000 DS 0D 02435000 LISTSCAN DS A 02436000 IOCSPTR DS A 02437000 OPNPTR DS A 02438000 DDSTRU DS A 02439000 FSADDR DS A 02440000 DMPINDEX DS A 02441000 STAEPTR DS A 02442000 RETCODE DS F 02443000 RETRYPTR DS A 02444000 SRETPTR DS A 02445000 LISTPTR DS A 02446000 SETRC DS H 02447000 LISTLN DS FL1 02448000 @TS00001 DS CL95 02449000 SAVEREGS DS CL64 02450000 CBLKFLG DS BL1 02451000 DS CL1 02452000 STAEARG DS CL20 02453000 CSTAID DS CL4 02454000 SAVAREA DS 3A 02455000 ICKSA10 CSECT 02456000 DS 0F 02457000 @SIZDATD DC AL1(0) 02458000 DC AL3(@ENDDATD-@DATD) 02459000 DS 0D 02460000 @CC00875 DC C'CANCEL' 02461000 @CC00145 DC C'ZERO' 02462000 @CC00858 DC C'SA10' 02463000 @CC00877 DC C'SA19' 02464000 @CC00884 DC C'STSS' 02465000 @CC00894 DC C'STCS' 02466000 @CC00913 DC C'STX1' 02467000 @CC00915 DC C'STX2' 02468000 @CC00873 DC C'SET' 02469000 POOLID DC CL4'SA10' 02470000 MODID DC CL4'SA10' 02471000 FIXAREA DS CL256 02472000 ORG FIXAREA 02473000 @NM00066 DC 256X'00' 02474000 ORG FIXAREA+256 02475000 ICKSA10 CSECT 02476000 ICKSA10 CSECT 02477000 STAELIST ESTAE MF=L 02478000 @DATD DSECT 02479000 ICKSA10 CSECT 02480000 ENTRY ICKSAS10 02481000 ICKSAS10 DC A(@SIZDATD) 02482000 @DATD DSECT 02483000 ORG *+1-(*-@DATD)/(*-@DATD) INSURE DSECT DATA 02484000 @ENDDATD EQU * 02485000 ICKSA10 CSECT 02486000 @00 EQU 00 EQUATES FOR REGISTERS 0-15 02487000 @01 EQU 01 02488000 @02 EQU 02 02489000 @03 EQU 03 02490000 @04 EQU 04 02491000 @05 EQU 05 02492000 @06 EQU 06 02493000 @07 EQU 07 02494000 @08 EQU 08 02495000 @09 EQU 09 02496000 @10 EQU 10 02497000 @11 EQU 11 02498000 @12 EQU 12 02499000 @13 EQU 13 02500000 @14 EQU 14 02501000 @15 EQU 15 02502000 RTNPTR EQU @05 02503000 TESTRC EQU @05 02504000 REG12 EQU @12 02505000 RTNREG EQU @15 02506000 REG0 EQU @00 02507000 REG1 EQU @01 02508000 REG2 EQU @02 02509000 REG3 EQU @03 02510000 REG4 EQU @04 02511000 REG6 EQU @06 02512000 REG13 EQU @13 02513000 REG14 EQU @14 02514000 REG15 EQU @15 02515000 SDWAPTR EQU @03 02516000 REG10 EQU @10 02517000 REG11 EQU @11 02518000 REG5 EQU @05 02519000 REG7 EQU @07 02520000 REG8 EQU @08 02521000 REG9 EQU @09 02522000 ICKSAEP0 EQU 0 02523000 ICKSAGS0 EQU 0 02524000 ICKSAFS0 EQU 0 02525000 TRACE1 EQU 0 02526000 OLDERID1 EQU TRACE1 02527000 TRACE2 EQU 0 02528000 OLDERID2 EQU TRACE2 02529000 NEWID2 EQU TRACE2+95 02530000 NEWERID2 EQU 5 02531000 STAEPARM EQU 0 02532000 STAEPFX EQU STAEPARM 02533000 STAFPTR EQU STAEPFX 02534000 STABPTR EQU STAEPFX+4 02535000 STAGDT EQU STAEPFX+8 02536000 STAEPA EQU STAEPFX+12 02537000 STAID EQU STAEPFX+16 02538000 STALEN EQU STAEPFX+20 02539000 STASPTR EQU STAEPFX+24 02540000 STARPTR EQU STAEPFX+28 02541000 IOCSTR EQU 0 02542000 IOCDSO EQU IOCSTR+13 02543000 IOCRFM EQU IOCSTR+14 02544000 IOCMAC EQU IOCSTR+15 02545000 IOCMSG EQU IOCSTR+16 02546000 OPNAGL EQU 0 02547000 OPNOPT EQU OPNAGL 02548000 OPNRFM EQU OPNAGL+1 02549000 OPNTYP EQU OPNAGL+2 02550000 OPNMOD EQU OPNAGL+3 02551000 UVOLLIST EQU 0 02552000 UVOLENT EQU UVOLLIST+2 02553000 DARGLIST EQU 0 02554000 DARGSTID EQU DARGLIST+8 02555000 DARGARY EQU DARGLIST+20 02556000 DARGINS EQU DARGARY 02557000 DARGINL EQU DARGARY+2 02558000 FMTLIST EQU 0 02559000 FMTFLGS EQU FMTLIST 02560000 FMTSPF EQU FMTLIST+2 02561000 FMTRFNO EQU FMTSPF 02562000 FMTILEN EQU FMTRFNO 02563000 FMTIOFF EQU FMTLIST+4 02564000 FMTTRBC EQU FMTIOFF 02565000 FMTSTO EQU FMTTRBC 02566000 FMTOCOL EQU FMTLIST+6 02567000 FMTCNVF EQU FMTLIST+10 02568000 ICKDB010 EQU 0 02569000 DMPITM EQU 0 02570000 DMPARY EQU 0 02571000 SAHIST EQU 0 02572000 AUTOPTR EQU SAHIST+8 02573000 SAHSTA EQU SAHIST+12 02574000 LLBLKPTR EQU SAHIST+16 02575000 AUTOTBL EQU 0 02576000 AUTOARAY EQU AUTOTBL 02577000 LLBLK EQU 0 02578000 LLHDR EQU LLBLK 02579000 LLSLOT EQU LLBLK+8 02580000 LLNAME EQU LLSLOT 02581000 SDWA EQU 0 02582000 SDWAPARM EQU SDWA 02583000 SDWAFIOB EQU SDWA+4 02584000 SDWAABCC EQU SDWAFIOB 02585000 SDWACMPF EQU SDWAABCC 02586000 SDWACTL1 EQU SDWA+8 02587000 SDWACMKA EQU SDWACTL1 02588000 SDWAMWPA EQU SDWACTL1+1 02589000 SDWAPMKA EQU SDWACTL1+4 02590000 SDWACTL2 EQU SDWA+16 02591000 SDWACMKP EQU SDWACTL2 02592000 SDWAMWPP EQU SDWACTL2+1 02593000 SDWAPMKP EQU SDWACTL2+4 02594000 SDWAGRSV EQU SDWA+24 02595000 SDWANAME EQU SDWA+88 02596000 SDWAEC1 EQU SDWA+104 02597000 SDWAEMK1 EQU SDWAEC1 02598000 SDWAMWP1 EQU SDWAEC1+1 02599000 SDWAINT1 EQU SDWAEC1+2 02600000 SDWANXT1 EQU SDWAEC1+4 02601000 SDWAAEC1 EQU SDWA+112 02602000 SDWAILC1 EQU SDWAAEC1+1 02603000 SDWAINC1 EQU SDWAAEC1+2 02604000 SDWAICD1 EQU SDWAINC1+1 02605000 SDWAEC2 EQU SDWA+120 02606000 SDWAEMK2 EQU SDWAEC2 02607000 SDWAMWP2 EQU SDWAEC2+1 02608000 SDWAINT2 EQU SDWAEC2+2 02609000 SDWANXT2 EQU SDWAEC2+4 02610000 SDWAAEC2 EQU SDWA+128 02611000 SDWAILC2 EQU SDWAAEC2+1 02612000 SDWAINC2 EQU SDWAAEC2+2 02613000 SDWAICD2 EQU SDWAINC2+1 02614000 SDWASRSV EQU SDWA+136 02615000 SDWAIDNT EQU SDWA+200 02616000 SDWAMCH EQU SDWA+204 02617000 SDWASTCK EQU SDWAMCH 02618000 SDWAMCHI EQU SDWAMCH+8 02619000 SDWAMCHS EQU SDWAMCHI 02620000 SDWAMCHD EQU SDWAMCHI+1 02621000 SDWARSR1 EQU SDWAMCH+12 02622000 SDWARSR2 EQU SDWAMCH+13 02623000 SDWAFLGS EQU SDWA+232 02624000 SDWAERRA EQU SDWAFLGS 02625000 SDWAERRB EQU SDWAFLGS+1 02626000 SDWAERRC EQU SDWAFLGS+2 02627000 SDWAERRD EQU SDWAFLGS+3 02628000 SDWAIOFS EQU SDWA+238 02629000 SDWACPUA EQU SDWA+248 02630000 SDWAPARQ EQU SDWA+252 02631000 SDWAACF2 EQU SDWAPARQ+1 02632000 SDWAACF3 EQU SDWAPARQ+2 02633000 SDWAACF4 EQU SDWAPARQ+3 02634000 SDWALKWA EQU SDWA+256 02635000 SDWALKWS EQU SDWALKWA 02636000 SDWARECP EQU SDWA+292 02637000 SDWASNPA EQU SDWA+320 02638000 SDWADUMP EQU SDWASNPA 02639000 SDWADPFS EQU SDWADUMP+1 02640000 SDWADDAT EQU SDWASNPA+4 02641000 SDWASDAT EQU SDWADDAT 02642000 SDWAPDAT EQU SDWADDAT+2 02643000 SDWADPSA EQU SDWA+328 02644000 SDWADPSL EQU SDWADPSA 02645000 SDWARA EQU SDWA+400 02646000 SDWADPVA EQU SDWARA+2 02647000 STAWORK EQU 0 02648000 RCVRROUT EQU 0 02649000 TBLGDT EQU 0 02650000 DMPTRM EQU 0 02651000 HISTPTR EQU 0 02652000 ICKDVCL0 EQU 0 02653000 ICKDVIN0 EQU 0 02654000 ICKDVON0 EQU 0 02655000 ICKDVOP0 EQU 0 02656000 ICKIOCL0 EQU 0 02657000 ICKIOGT0 EQU 0 02658000 ICKIOIT0 EQU 0 02659000 ICKIOOP0 EQU 0 02660000 ICKIOPT0 EQU 0 02661000 ICKIOTM0 EQU 0 02662000 ICKSACL0 EQU 0 02663000 ICKSADE0 EQU 0 02664000 ICKSAFP0 EQU 0 02665000 ICKSAGP0 EQU 0 02666000 ICKSALD0 EQU 0 02667000 ICKSAPR0 EQU 0 02668000 ICKSASC0 EQU 0 02669000 ICKSASN0 EQU 0 02670000 ICKSAST0 EQU 0 02671000 ICKSATI0 EQU 0 02672000 ICKSAVC0 EQU 0 02673000 ICKSAWO0 EQU 0 02674000 ICKTPEA0 EQU 0 02675000 ICKTPES0 EQU 0 02676000 ICKTPPR0 EQU 0 02677000 ICKTPRE0 EQU 0 02678000 ICKTPRS0 EQU 0 02679000 LISTTEST EQU 0 02680000 NEWERID1 EQU 5 02681000 GDTTBL EQU 0 02682000 GDTTR1 EQU GDTTBL+8 02683000 GDTTR2 EQU GDTTBL+12 02684000 GDTSAH EQU GDTTBL+32 02685000 GDTDIN EQU GDTTBL+44 02686000 GDTDOP EQU GDTTBL+48 02687000 GDTDBG EQU GDTTBL+52 02688000 GDTDVO EQU GDTTBL+56 02689000 GDTPRT EQU GDTTBL+60 02690000 GDTESS EQU GDTTBL+64 02691000 GDTESA EQU GDTTBL+68 02692000 GDTRST EQU GDTTBL+72 02693000 GDTRES EQU GDTTBL+76 02694000 GDTCAL EQU GDTTBL+80 02695000 GDTGSP EQU GDTTBL+84 02696000 GDTFSP EQU GDTTBL+88 02697000 GDTGPL EQU GDTTBL+92 02698000 GDTFPL EQU GDTTBL+96 02699000 GDTLOD EQU GDTTBL+100 02700000 GDTDEL EQU GDTTBL+104 02701000 GDTPRL EQU GDTTBL+108 02702000 GDTEPL EQU GDTTBL+112 02703000 GDTTIM EQU GDTTBL+116 02704000 GDTIIO EQU GDTTBL+120 02705000 GDTTIO EQU GDTTBL+124 02706000 GDTOPN EQU GDTTBL+136 02707000 GDTCLS EQU GDTTBL+140 02708000 GDTGET EQU GDTTBL+144 02709000 GDTPUT EQU GDTTBL+148 02710000 GDTABT EQU GDTTBL+152 02711000 GDTABH EQU GDTTBL+156 02712000 GDTSNP EQU GDTTBL+160 02713000 GDTWTO EQU GDTTBL+168 02714000 GDTSCR EQU GDTTBL+172 02715000 GDTVCK EQU GDTTBL+176 02716000 GDTDVC EQU GDTTBL+180 02717000 GDTSTE EQU GDTTBL+188 02718000 STAETYPE EQU 0 02719000 BLOCKPTR EQU 0 02720000 BLOCKID EQU BLOCKPTR 02721000 AGO .@UNREFD START UNREFERENCED COMPONENTS 02722000 GDTCVR EQU GDTTBL+184 02723000 GDTSPR EQU GDTTBL+164 02724000 GDTTOH EQU GDTTBL+132 02725000 GDTRIP EQU GDTTBL+128 02726000 GDTDVH EQU GDTTBL+40 02727000 GDTIOH EQU GDTTBL+36 02728000 GDTTPH EQU GDTTBL+28 02729000 GDTRIH EQU GDTTBL+24 02730000 GDTSTH EQU GDTTBL+20 02731000 GDTDBH EQU GDTTBL+16 02732000 GDTPRM EQU GDTTBL+4 02733000 GDTHDR EQU GDTTBL 02734000 @NM00065 EQU SDWA+512 02735000 SDWAVRA EQU SDWARA+4 02736000 SDWAURAL EQU SDWARA+3 02737000 @NM00064 EQU SDWADPVA 02738000 SDWAEBC EQU SDWADPVA 02739000 SDWAHEX EQU SDWADPVA 02740000 SDWAVRAL EQU SDWARA 02741000 @NM00063 EQU SDWA+396 02742000 SDWACOMP EQU SDWA+392 02743000 SDWARCPL EQU SDWA+364 02744000 @NM00062 EQU SDWADPSA+32 02745000 SDWATO4 EQU SDWADPSL+28 02746000 SDWAFRM4 EQU SDWADPSL+24 02747000 SDWATO3 EQU SDWADPSL+20 02748000 SDWAFRM3 EQU SDWADPSL+16 02749000 SDWATO2 EQU SDWADPSL+12 02750000 SDWAFRM2 EQU SDWADPSL+8 02751000 SDWATO1 EQU SDWADPSL+4 02752000 SDWAFRM1 EQU SDWADPSL 02753000 @NM00061 EQU SDWADDAT+3 02754000 @NM00060 EQU SDWAPDAT 02755000 SDWAUSPL EQU SDWAPDAT 02756000 SDWADPSW EQU SDWAPDAT 02757000 SDWATJPA EQU SDWAPDAT 02758000 SDWATLPA EQU SDWAPDAT 02759000 SDWADREG EQU SDWAPDAT 02760000 SDWADSAH EQU SDWAPDAT 02761000 SDWADSAS EQU SDWAPDAT 02762000 @NM00059 EQU SDWADDAT+1 02763000 @NM00058 EQU SDWASDAT 02764000 SDWAQQS EQU SDWASDAT 02765000 SDWACBS EQU SDWASDAT 02766000 SDWAGTF EQU SDWASDAT 02767000 SDWASWA EQU SDWASDAT 02768000 SDWALSQA EQU SDWASDAT 02769000 SDWASQA EQU SDWASDAT 02770000 SDWANUC EQU SDWASDAT 02771000 @NM00057 EQU SDWADUMP+2 02772000 @NM00056 EQU SDWADPFS 02773000 SDWASLST EQU SDWADPFS 02774000 @NM00055 EQU SDWADPFS 02775000 SDWADLST EQU SDWADPFS 02776000 SDWADPT EQU SDWADPFS 02777000 SDWADPID EQU SDWADUMP 02778000 SDWADPLA EQU SDWA+316 02779000 SDWAREXN EQU SDWARECP+16 02780000 SDWACSCT EQU SDWARECP+8 02781000 SDWAMODN EQU SDWARECP 02782000 @NM00054 EQU SDWALKWA+32 02783000 SDWATALW EQU SDWALKWS+28 02784000 SDWATDLW EQU SDWALKWS+24 02785000 SDWATNLW EQU SDWALKWS+20 02786000 SDWAAPLW EQU SDWALKWS+16 02787000 SDWAIPLW EQU SDWALKWS+12 02788000 SDWAILLW EQU SDWALKWS+8 02789000 SDWAIULW EQU SDWALKWS+4 02790000 SDWAICLW EQU SDWALKWS 02791000 SDWAFLLK EQU SDWAACF4 02792000 SDWACMS EQU SDWAACF4 02793000 SDWAOPTM EQU SDWAACF4 02794000 SDWATADB EQU SDWAACF4 02795000 SDWATDNB EQU SDWAACF4 02796000 SDWATNCB EQU SDWAACF4 02797000 SDWAILCH EQU SDWAACF4 02798000 SDWAIUCB EQU SDWAACF4 02799000 SDWAICAT EQU SDWAACF3 02800000 SDWAIPRG EQU SDWAACF3 02801000 SDWASALL EQU SDWAACF3 02802000 SDWAASMP EQU SDWAACF3 02803000 SDWADISP EQU SDWAACF3 02804000 @NM00053 EQU SDWAACF3 02805000 @NM00052 EQU SDWAACF2 02806000 SDWAFREE EQU SDWAACF2 02807000 SDWAUPRG EQU SDWAACF2 02808000 @NM00051 EQU SDWAACF2 02809000 SDWASPIN EQU SDWAACF2 02810000 @NM00050 EQU SDWAACF2 02811000 SDWARCRD EQU SDWAACF2 02812000 SDWARCDE EQU SDWAPARQ 02813000 SDWALCPU EQU SDWACPUA+2 02814000 @NM00049 EQU SDWACPUA 02815000 SDWARECA EQU SDWA+244 02816000 SDWARTYA EQU SDWA+240 02817000 @NM00048 EQU SDWA+239 02818000 @NM00047 EQU SDWAIOFS 02819000 SDWANIOP EQU SDWAIOFS 02820000 SDWANOIO EQU SDWAIOFS 02821000 SDWAIOHT EQU SDWAIOFS 02822000 SDWAIOQR EQU SDWAIOFS 02823000 SDWAFMID EQU SDWA+236 02824000 @NM00046 EQU SDWAERRD 02825000 SDWAMCIV EQU SDWAERRD 02826000 SDWARPIV EQU SDWAERRD 02827000 SDWAMABD EQU SDWAERRD 02828000 SDWACTS EQU SDWAERRD 02829000 SDWASTAE EQU SDWAERRD 02830000 SDWANRBE EQU SDWAERRD 02831000 SDWACLUP EQU SDWAERRD 02832000 @NM00045 EQU SDWAERRC 02833000 SDWAEAS EQU SDWAERRC 02834000 SDWAPERC EQU SDWAERRC 02835000 SDWAIRB EQU SDWAERRC 02836000 SDWASTAI EQU SDWAERRC 02837000 SDWASTAF EQU SDWAERRC 02838000 SDWASRBM EQU SDWAERRB 02839000 SDWALDIS EQU SDWAERRB 02840000 SDWAENRB EQU SDWAERRB 02841000 SDWATYP1 EQU SDWAERRB 02842000 @NM00044 EQU SDWAERRB 02843000 SDWAPGIO EQU SDWAERRA 02844000 SDWATEXC EQU SDWAERRA 02845000 SDWASVCE EQU SDWAERRA 02846000 SDWAABTM EQU SDWAERRA 02847000 SDWASVCD EQU SDWAERRA 02848000 SDWARKEY EQU SDWAERRA 02849000 SDWAPCHK EQU SDWAERRA 02850000 SDWAMCHK EQU SDWAERRA 02851000 SDWATIME EQU SDWAMCH+20 02852000 SDWARFSA EQU SDWAMCH+16 02853000 @NM00043 EQU SDWAMCH+14 02854000 SDWAVEQR EQU SDWARSR2 02855000 SDWAPGFX EQU SDWARSR2 02856000 SDWAFLSQ EQU SDWARSR2 02857000 SDWAFSQA EQU SDWARSR2 02858000 SDWANUCL EQU SDWARSR2 02859000 SDWASPER EQU SDWARSR2 02860000 SDWAINTC EQU SDWARSR2 02861000 SDWAOFLN EQU SDWARSR2 02862000 SDWACHNG EQU SDWARSR1 02863000 SDWAMSER EQU SDWARSR1 02864000 @NM00042 EQU SDWARSR1 02865000 SDWACPID EQU SDWAMCH+10 02866000 SDWATERR EQU SDWAMCHD 02867000 SDWAFPRX EQU SDWAMCHD 02868000 SDWAINSF EQU SDWAMCHD 02869000 SDWAACR EQU SDWAMCHD 02870000 SDWASCK EQU SDWAMCHD 02871000 SDWAPSWU EQU SDWAMCHD 02872000 SDWAREGU EQU SDWAMCHD 02873000 SDWASKYF EQU SDWAMCHD 02874000 @NM00041 EQU SDWAMCHS 02875000 SDWARSRF EQU SDWAMCHS 02876000 SDWARSRC EQU SDWAMCHS 02877000 SDWAINVP EQU SDWAMCHS 02878000 SDWATSVL EQU SDWAMCHS 02879000 SDWARCDF EQU SDWAMCHS 02880000 SDWASRVL EQU SDWAMCHS 02881000 SDWASCKE EQU SDWASTCK+4 02882000 SDWASCKB EQU SDWASTCK 02883000 SDWALNTH EQU SDWAIDNT+1 02884000 SDWASPID EQU SDWAIDNT 02885000 SDWASR15 EQU SDWASRSV+60 02886000 SDWASR14 EQU SDWASRSV+56 02887000 SDWASR13 EQU SDWASRSV+52 02888000 SDWASR12 EQU SDWASRSV+48 02889000 SDWASR11 EQU SDWASRSV+44 02890000 SDWASR10 EQU SDWASRSV+40 02891000 SDWASR09 EQU SDWASRSV+36 02892000 SDWASR08 EQU SDWASRSV+32 02893000 SDWASR07 EQU SDWASRSV+28 02894000 SDWASR06 EQU SDWASRSV+24 02895000 SDWASR05 EQU SDWASRSV+20 02896000 SDWASR04 EQU SDWASRSV+16 02897000 SDWASR03 EQU SDWASRSV+12 02898000 SDWASR02 EQU SDWASRSV+8 02899000 SDWASR01 EQU SDWASRSV+4 02900000 SDWASR00 EQU SDWASRSV 02901000 SDWATRN2 EQU SDWAAEC2+4 02902000 SDWAIPC2 EQU SDWAICD2 02903000 SDWAIMC2 EQU SDWAICD2 02904000 SDWAIPR2 EQU SDWAICD2 02905000 @NM00040 EQU SDWAINC2 02906000 @NM00039 EQU SDWAILC2 02907000 SDWAIL2 EQU SDWAILC2 02908000 @NM00038 EQU SDWAILC2 02909000 @NM00037 EQU SDWAAEC2 02910000 SDWAADD2 EQU SDWANXT2+1 02911000 @NM00036 EQU SDWANXT2 02912000 @NM00035 EQU SDWAEC2+3 02913000 SDWASGN2 EQU SDWAINT2 02914000 SDWAEXP2 EQU SDWAINT2 02915000 SDWADEC2 EQU SDWAINT2 02916000 SDWAFPO2 EQU SDWAINT2 02917000 SDWACC2 EQU SDWAINT2 02918000 @NM00034 EQU SDWAINT2 02919000 SDWAPGM2 EQU SDWAMWP2 02920000 SDWAWAT2 EQU SDWAMWP2 02921000 SDWAMCK2 EQU SDWAMWP2 02922000 SDWAECT2 EQU SDWAMWP2 02923000 SDWAKEY2 EQU SDWAMWP2 02924000 SDWAEXT2 EQU SDWAEMK2 02925000 SDWAIO2 EQU SDWAEMK2 02926000 SDWATRM2 EQU SDWAEMK2 02927000 @NM00033 EQU SDWAEMK2 02928000 SDWAPER2 EQU SDWAEMK2 02929000 @NM00032 EQU SDWAEMK2 02930000 SDWATRAN EQU SDWAAEC1+4 02931000 SDWAIPC1 EQU SDWAICD1 02932000 SDWAIMC1 EQU SDWAICD1 02933000 SDWAIPR1 EQU SDWAICD1 02934000 @NM00031 EQU SDWAINC1 02935000 @NM00030 EQU SDWAILC1 02936000 SDWAIL1 EQU SDWAILC1 02937000 @NM00029 EQU SDWAILC1 02938000 @NM00028 EQU SDWAAEC1 02939000 SDWAADD1 EQU SDWANXT1+1 02940000 @NM00027 EQU SDWANXT1 02941000 @NM00026 EQU SDWAEC1+3 02942000 SDWASGN1 EQU SDWAINT1 02943000 SDWAEXP1 EQU SDWAINT1 02944000 SDWADEC1 EQU SDWAINT1 02945000 SDWAFPO1 EQU SDWAINT1 02946000 SDWACC1 EQU SDWAINT1 02947000 @NM00025 EQU SDWAINT1 02948000 SDWAPGM1 EQU SDWAMWP1 02949000 SDWAWAT1 EQU SDWAMWP1 02950000 SDWAMCK1 EQU SDWAMWP1 02951000 SDWAECT1 EQU SDWAMWP1 02952000 SDWAKEY1 EQU SDWAMWP1 02953000 SDWAEXT1 EQU SDWAEMK1 02954000 SDWAIO1 EQU SDWAEMK1 02955000 SDWATRM1 EQU SDWAEMK1 02956000 @NM00024 EQU SDWAEMK1 02957000 SDWAPER1 EQU SDWAEMK1 02958000 @NM00023 EQU SDWAEMK1 02959000 SDWAIOBR EQU SDWA+100 02960000 SDWAEPA EQU SDWA+96 02961000 @NM00022 EQU SDWANAME+4 02962000 SDWARBAD EQU SDWANAME 02963000 SDWAGR15 EQU SDWAGRSV+60 02964000 SDWAGR14 EQU SDWAGRSV+56 02965000 SDWAGR13 EQU SDWAGRSV+52 02966000 SDWAGR12 EQU SDWAGRSV+48 02967000 SDWAGR11 EQU SDWAGRSV+44 02968000 SDWAGR10 EQU SDWAGRSV+40 02969000 SDWAGR09 EQU SDWAGRSV+36 02970000 SDWAGR08 EQU SDWAGRSV+32 02971000 SDWAGR07 EQU SDWAGRSV+28 02972000 SDWAGR06 EQU SDWAGRSV+24 02973000 SDWAGR05 EQU SDWAGRSV+20 02974000 SDWAGR04 EQU SDWAGRSV+16 02975000 SDWAGR03 EQU SDWAGRSV+12 02976000 SDWAGR02 EQU SDWAGRSV+8 02977000 SDWAGR01 EQU SDWAGRSV+4 02978000 SDWAGR00 EQU SDWAGRSV 02979000 SDWANXTP EQU SDWACTL2+5 02980000 SDWASGP EQU SDWAPMKP 02981000 SDWAEUP EQU SDWAPMKP 02982000 SDWADOP EQU SDWAPMKP 02983000 SDWAFPP EQU SDWAPMKP 02984000 SDWACCP EQU SDWAPMKP 02985000 SDWAILP EQU SDWAPMKP 02986000 SDWAINTP EQU SDWACTL2+2 02987000 SDWASPVP EQU SDWAMWPP 02988000 SDWAWATP EQU SDWAMWPP 02989000 SDWAMCKP EQU SDWAMWPP 02990000 @NM00021 EQU SDWAMWPP 02991000 SDWAKEYP EQU SDWAMWPP 02992000 SDWAEXTP EQU SDWACMKP 02993000 SDWAIOP EQU SDWACMKP 02994000 SDWANXTA EQU SDWACTL1+5 02995000 SDWASGA EQU SDWAPMKA 02996000 SDWAEUA EQU SDWAPMKA 02997000 SDWADOA EQU SDWAPMKA 02998000 SDWAFPA EQU SDWAPMKA 02999000 SDWACCA EQU SDWAPMKA 03000000 SDWAILA EQU SDWAPMKA 03001000 SDWAINTA EQU SDWACTL1+2 03002000 SDWASPVA EQU SDWAMWPA 03003000 SDWAWATA EQU SDWAMWPA 03004000 SDWAMCKA EQU SDWAMWPA 03005000 @NM00020 EQU SDWAMWPA 03006000 SDWAKEYA EQU SDWAMWPA 03007000 SDWAEXTA EQU SDWACMKA 03008000 SDWAIOA EQU SDWACMKA 03009000 SDWACMPC EQU SDWAABCC+1 03010000 @NM00019 EQU SDWACMPF 03011000 SDWASTCC EQU SDWACMPF 03012000 @NM00018 EQU SDWACMPF 03013000 SDWASTEP EQU SDWACMPF 03014000 SDWAREQ EQU SDWACMPF 03015000 LLMODSZ EQU LLSLOT+13 03016000 LLUSECTR EQU LLSLOT+12 03017000 LLADDR EQU LLSLOT+8 03018000 LLNOMOD EQU LLNAME+4 03019000 LLNXTSLT EQU LLNAME 03020000 LLNXTBLK EQU LLHDR+4 03021000 LLFSTSLT EQU LLHDR 03022000 PTR1 EQU AUTOARAY+8 03023000 ASIZE EQU AUTOARAY+6 03024000 STATUS EQU AUTOARAY+4 03025000 AREAID EQU AUTOARAY 03026000 GPLAST EQU SAHIST+4 03027000 GPFIRST EQU SAHIST 03028000 @NM00017 EQU DMPARY+15 03029000 DMPARYTP EQU DMPARY+14 03030000 DMPARYEX EQU DMPARY+12 03031000 DMPARYIC EQU DMPARY+10 03032000 DMPARYSZ EQU DMPARY+8 03033000 DMPARYNM EQU DMPARY 03034000 @NM00016 EQU DMPITM+15 03035000 DMPITMTP EQU DMPITM+14 03036000 DMPITMLN EQU DMPITM+12 03037000 DMPITMPT EQU DMPITM+8 03038000 DMPITMNM EQU DMPITM 03039000 @NM00015 EQU FMTCNVF+1 03040000 FMTBS EQU FMTCNVF+1 03041000 FMTSS EQU FMTCNVF+1 03042000 FMTAL EQU FMTCNVF+1 03043000 FMTZS EQU FMTCNVF+1 03044000 @NM00014 EQU FMTCNVF 03045000 FMTPU EQU FMTCNVF 03046000 FMTBD EQU FMTCNVF 03047000 FMTBHD EQU FMTCNVF 03048000 FMTBHA EQU FMTCNVF 03049000 FMTBH EQU FMTCNVF 03050000 FMTOLEN EQU FMTLIST+8 03051000 FMTRIO EQU FMTOCOL 03052000 FMTSPT EQU FMTSTO 03053000 FMTSTL EQU FMTILEN 03054000 @NM00013 EQU FMTFLGS+1 03055000 FMTHDF EQU FMTFLGS 03056000 FMTDFF EQU FMTFLGS 03057000 FMTSTF EQU FMTFLGS 03058000 FMTREPF EQU FMTFLGS 03059000 FMTBDF EQU FMTFLGS 03060000 FMTIDF EQU FMTFLGS 03061000 FMTSCF EQU FMTFLGS 03062000 FMTEOLF EQU FMTFLGS 03063000 DARGDTM EQU DARGARY+4 03064000 DARGPCT EQU DARGINL 03065000 DARGREP EQU DARGINS 03066000 @NM00012 EQU DARGLIST+19 03067000 DARGIND EQU DARGLIST+18 03068000 DARGRETL EQU DARGLIST+16 03069000 DARGCNT EQU DARGLIST+14 03070000 DARGILP EQU DARGLIST+12 03071000 DARGSENT EQU DARGSTID+3 03072000 DARGSMOD EQU DARGSTID 03073000 DARGRETP EQU DARGLIST+4 03074000 DARGDBP EQU DARGLIST 03075000 UVOLVOL EQU UVOLENT+4 03076000 UVOLDEV EQU UVOLENT 03077000 UVOLCNT EQU UVOLLIST 03078000 OPNRSVD EQU OPNAGL+28 03079000 OPNVOL EQU OPNAGL+24 03080000 OPNBLK EQU OPNAGL+20 03081000 OPNREC EQU OPNAGL+16 03082000 OPNDSN EQU OPNAGL+12 03083000 OPNDDN EQU OPNAGL+8 03084000 OPNIOC EQU OPNAGL+4 03085000 @NM00011 EQU OPNMOD 03086000 OPNMODRC EQU OPNMOD 03087000 OPNMODAC EQU OPNMOD 03088000 @NM00010 EQU OPNTYP 03089000 OPNTYPSO EQU OPNTYP 03090000 OPNTYPSI EQU OPNTYP 03091000 @NM00009 EQU OPNRFM 03092000 OPNRFMBK EQU OPNRFM 03093000 OPNRFMSF EQU OPNRFM 03094000 OPNRFMUN EQU OPNRFM 03095000 OPNRFMVR EQU OPNRFM 03096000 OPNRFMFX EQU OPNRFM 03097000 @NM00008 EQU OPNOPT 03098000 OPNOPTJM EQU OPNOPT 03099000 OPNOPTKS EQU OPNOPT 03100000 OPNOPTBK EQU OPNOPT 03101000 OPNOPTUP EQU OPNOPT 03102000 OPNOPTOT EQU OPNOPT 03103000 OPNOPTIN EQU OPNOPT 03104000 IOCEXT EQU IOCSTR+36 03105000 IOCRRN EQU IOCSTR+32 03106000 @NM00007 EQU IOCSTR+30 03107000 IOCPNM EQU IOCSTR+28 03108000 IOCCBP EQU IOCSTR+24 03109000 IOCDSN EQU IOCSTR+20 03110000 @NM00006 EQU IOCSTR+17 03111000 @NM00005 EQU IOCMSG 03112000 IOCMSGOP EQU IOCMSG 03113000 IOCMACPA EQU IOCMAC 03114000 @NM00004 EQU IOCMAC 03115000 IOCMACBK EQU IOCMAC 03116000 IOCMACUP EQU IOCMAC 03117000 IOCMACOT EQU IOCMAC 03118000 IOCMACIN EQU IOCMAC 03119000 @NM00003 EQU IOCRFM 03120000 IOCRFMBK EQU IOCRFM 03121000 IOCRFMSF EQU IOCRFM 03122000 IOCRFMUN EQU IOCRFM 03123000 IOCRFMVR EQU IOCRFM 03124000 IOCRFMFX EQU IOCRFM 03125000 @NM00002 EQU IOCDSO 03126000 IOCDSOPS EQU IOCDSO 03127000 IOCKYL EQU IOCSTR+12 03128000 IOCTRN EQU IOCSTR+8 03129000 IOCDLN EQU IOCSTR+4 03130000 IOCDAD EQU IOCSTR 03131000 STAEWORK EQU STAEPARM+32 03132000 NEWID1 EQU TRACE1+95 03133000 CALLID EQU OLDERID1+90 03134000 @NM00001 EQU OLDERID1 03135000 .@UNREFD ANOP END UNREFERENCED COMPONENTS 03136000 @RF00239 EQU @RC00218 03137000 @PB00003 EQU @PB00004 03138000 @PB00002 EQU @PB00003 03139000 @ENDDATA EQU * 03140000 END ICKSA10,(C'PLS1748',0701,78192) 03141000