TITLE '********** ICKDV04: CLOSE VOLUME ********************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 * 0002 00013000 ICKDV04 CSECT , 0002 00014000 @MAINENT DS 0H 0002 00015000 USING *,@15 0002 00016000 B @PROLOG 0002 00017000 DC AL2(@EP00002-@MAINENT) 00018000 DC AL1(16) 0002 00019000 DC C'ICKDV04 78.192' 0002 00020000 ICKDVCL DS 0H 0002 00021000 USING *,@15 0002 00022000 B @PROLOG 0002 00023000 DC AL2(@EP00003-ICKDVCL) 00024000 ENTRY ICKDVCL 00025000 DROP @15 00026000 @PROLOG STM @14,@12,12(@13) 0002 00027000 BALR @12,0 0002 00028000 @PSTART DS 0H 0002 00029000 USING @PSTART,@12 0002 00030000 L @00,@SIZDATD 0002 00031000 GETMAIN R,LV=(0) 00032000 LR @11,@01 0002 00033000 USING @DATD,@11 0002 00034000 ST @13,@SA00001+4 0002 00035000 LM @15,@01,16(@13) 0002 00036000 ST @11,8(,@13) 0002 00037000 LR @13,@11 0002 00038000 XC @ZTEMPS(@ZLEN),@ZTEMPS 00039000 AH @15,4(,@15) 0002 00040000 BR @15 0002 00041000 @EP00002 DS 0H 0003 00042000 * ICKDVCL: ENTRY 0003 00043000 * ( 0003 00044000 * GDTTBL, /* GLOBAL DATA TABLE */ 00045000 * VOLIBPTR, /* VOLUME INFORMATION BLOCK */ 00046000 * CONDCODE /* CONDITION CODE */ 00047000 * ); 0003 00048000 * 0003 00049000 B @EC00003 0003 00050000 @EP00003 MVC @PC00001(12),0(@01) 0003 00051000 @EC00003 DS 0H 0004 00052000 */***** S T A N D A R D I N C L U D E S **************************/ 00053000 * 0004 00054000 * /************************************************************/ 00055000 * /* */ 00056000 * /* DMS GLOBAL DATA AREA : 5/10/78 */ 00057000 * /* (1) PLS/2 MACRO DEFINITIONS */ 00058000 * /* (2) GLOBAL DATA TABLE */ 00059000 * /* (3) SYSTEM ADAPTER DECLARATIONS */ 00060000 * /* A) ENTRY POINTS */ 00061000 * /* B) DATA STRUCTURES */ 00062000 * /* C) SYMBOLIC RETURN CODES */ 00063000 * /* (4) INPUT/OUTPUT ADAPTER DECLARATIONS */ 00064000 * /* A) ENTRY POINTS */ 00065000 * /* B) DATA STRUCTURES */ 00066000 * /* C) SYMBOLIC RETURN CODES */ 00067000 * /* (5) DEVICE ADAPTER DECLARATIONS */ 00068000 * /* A) ACTION KEYS */ 00069000 * /* B) INFORMATION KEYS */ 00070000 * /* C) ENTRY POINTS */ 00071000 * /* (6) TEXT OUTPUT PROCESSOR DECLARATIONS */ 00072000 * /* A) ENTRY POINTS */ 00073000 * /* B) DATA STRUCTURES */ 00074000 * /* (7) DEBUGGING AIDS DECLARATIONS */ 00075000 * /* A) ENTRY POINTS */ 00076000 * /* (8) CONVENTIONALIZED NAMED VALUES DECLARATIONS */ 00077000 * /* */ 00078000 * /************************************************************/ 00079000 * 0004 00080000 * /************************************************************/ 00081000 * /* THE MACRO VARIABLE 'OPERSYS' IS SET HERE (IN DMSDF00) */ 00082000 * /* TO CONTROL MACRO PHASE LOGIC TO GENERATE THE CORRECT */ 00083000 * /* SYSTEM DEPENDENT CODE FOR THE OPERATING SYSTEM UNDER */ 00084000 * /* WHICH DMS EXECUTION IS TO TAKE PLACE. */ 00085000 * /* THE VARIABLE MUST BE SET TO ONE OF THE FOLLOWING: */ 00086000 * /* %OPERSYS = 'VS1' - OS/VS1 OPERATING SYSTEM */ 00087000 * /* %OPERSYS = 'MVS' - OS/VS2 RELEASE 3 AND FOLLOWING */ 00088000 * /* %OPERSYS = 'NONE' - 'STAND ALONE' EXECUTION ENVIRONMENT */ 00089000 * /************************************************************/ 00090000 * /* THE CURRENT SETTING IS %OPERSYS = 'MVS' */ 00091000 * /************************************************************/ 00092000 * 0004 00093000 * 0004 00094000 * /************************************************************/ 00095000 * /* */ 00096000 * /* GLOBAL DATA TABLE (GDT) */ 00097000 * /* */ 00098000 * /************************************************************/ 00099000 * DCL 1 GDTTBL BOUNDARY(DWORD), 0004 00100000 * 2 GDTHDR CHAR(4), /*GDT HEADER (CONTAINS 'GDT ')*/ 00101000 * 2 GDTPRM PTR(31), /*INVOKER'S PARAMETER LIST PTR*/ 00102000 * 2 GDTTR1 PTR(31), /*INTER-MODULE TRACE TABLE PTR*/ 00103000 * 2 GDTTR2 PTR(31), /*INTRA-MODULE TRACE TABLE PTR*/ 00104000 * 2 GDTDBH PTR(31), /*DEBUGGING AIDS DATA PTR*/ 00105000 * 2 GDTSTH PTR(31), /*DMS STATISTICS DATA PTR*/ 00106000 * 2 GDTRIH PTR(31), /*READER/INTERPRETER DATA PTR*/ 00107000 * 2 GDTTPH PTR(31), /*TEXT PROCESSOR DATA PTR*/ 00108000 * 2 GDTSAH PTR(31), /*SYSTEM ADAPTER DATA PTR*/ 00109000 * 2 GDTIOH PTR(31), /*I/O ADAPTER DATA PTR*/ 00110000 * 2 GDTDVH PTR(31), /*DEVICE ADAPTER DATA PTR*/ 00111000 * 2 GDTDIN PTR(31), /*UDEVINFO ENTRY POINT ADDRESS*/ 00112000 * 2 GDTDOP PTR(31), /*UDEVOP ENTRY POINT ADDRESS*/ 00113000 * 2 GDTDBG PTR(31), /*UDUMP ENTRY POINT ADDRESS*/ 00114000 * 2 GDTDVO PTR(31), /*UDEVOPEN ENTRY POINT ADDRESS*/ 00115000 * 2 GDTPRT PTR(31), /*UPRINT ENTRY POINT ADDRESS*/ 00116000 * 2 GDTESS PTR(31), /*UESTS ENTRY POINT ADDRESS*/ 00117000 * 2 GDTESA PTR(31), /*UESTA ENTRY POINT ADDRESS*/ 00118000 * 2 GDTRST PTR(31), /*UREST ENTRY POINT ADDRESS*/ 00119000 * 2 GDTRES PTR(31), /*URESET ENTRY POINT ADDRESS*/ 00120000 * 2 GDTCAL PTR(31), /*UCALL ENTRY POINT ADDRESS*/ 00121000 * 2 GDTGSP PTR(31), /*UGSPACE ENTRY POINT ADDRESS*/ 00122000 * 2 GDTFSP PTR(31), /*UFSPACE ENTRY POINT ADDRESS*/ 00123000 * 2 GDTGPL PTR(31), /*UGPOOL ENTRY POINT ADDRESS*/ 00124000 * 2 GDTFPL PTR(31), /*UFPOOL ENTRY POINT ADDRESS*/ 00125000 * 2 GDTLOD PTR(31), /*ULOAD ENTRY POINT ADDRESS*/ 00126000 * 2 GDTDEL PTR(31), /*UDELETE ENTRY POINT ADDRESS*/ 00127000 * 2 GDTPRL PTR(31), /*PROL ENTRY POINT ADDRESS */ 00128000 * 2 GDTEPL PTR(31), /*UEPIL ENTRY POINT ADDRESS */ 00129000 * 2 GDTTIM PTR(31), /*UTIME ENTRY POINT ADDRESS*/ 00130000 * 2 GDTIIO PTR(31), /*UIOINIT ENTRY POINT ADDRESS*/ 00131000 * 2 GDTTIO PTR(31), /*UIOTERM ENTRY POINT ADDRESS*/ 00132000 * 2 GDTRIP PTR(31), /*READER/INTERPRETER */ 00133000 * /* NAME ADDRESS */ 00134000 * 2 GDTTOH PTR(31), /*I/O ADAPTER MVM */ 00135000 * /* DATA ADDRESS */ 00136000 * 2 GDTOPN PTR(31), /*UOPEN ENTRY POINT ADDRESS*/ 00137000 * 2 GDTCLS PTR(31), /*UCLOSE ENTRY POINT ADDRESS*/ 00138000 * 2 GDTGET PTR(31), /*UGET ENTRY POINT ADDRESS*/ 00139000 * 2 GDTPUT PTR(31), /*UPUT ENTRY POINT ADDRESS*/ 00140000 * 2 GDTABT PTR(31), /*UABORT ROUTINE ADDRESS*/ 00141000 * 2 GDTABH PTR(31), /*UABORT ROUTINE REGISTER*/ 00142000 * /* RESTORE AREA ADDRESS*/ 00143000 * 2 GDTSNP PTR(31), /*USNAP ENTRY POINT ADDRESS */ 00144000 * 2 GDTSPR PTR(31), /*ICKSA03 AUTOMATIC STORAGE */ 00145000 * 2 GDTWTO PTR(31), /*UWTO ENTRY POINT ADDRESS */ 00146000 * 2 GDTSCR PTR(31), /*USCRATCH ENTRY POINT ADDRESS*/ 00147000 * 2 GDTVCK PTR(31), /*UVOLCHK ENTRY POINT ADDRESS */ 00148000 * 2 GDTDVC PTR(31), /*UDEVCLSE ENTRY POINT ADDRESS*/ 00149000 * 2 GDTCVR PTR(31), /*ADDRESS OF COVER TABLE */ 00150000 * 2 GDTSTE PTR(31); /*USTAE ENTRY POINT ADDRESS */ 00151000 * 0004 00152000 * 0004 00153000 * /************************************************************/ 00154000 * /* */ 00155000 * /* ENTRY POINT DECLARATIONS FOR SYSTEM ADAPTER */ 00156000 * /* */ 00157000 * /************************************************************/ 00158000 * 0005 00159000 * 0005 00160000 * DCL ICKSACL0 ENTRY BASED(GDTCAL) VALUERANGE(*) 0005 00161000 * OPTIONS(VLIST); /*UCALL ADAPTER ENTRY POINT*/ 00162000 * DCL ICKSALD0 ENTRY BASED(GDTLOD) VALUERANGE(*); 0006 00163000 * /*ULOAD ADAPTER ENTRY POINT*/ 00164000 * DCL ICKSADE0 ENTRY BASED(GDTDEL) VALUERANGE(*); 0007 00165000 * /*UDELETE ADAPTER ENTRY POINT*/ 00166000 * DCL ICKSAPR0 ENTRY BASED(GDTPRL) VALUERANGE(*); 0008 00167000 * /*PROL ADAPTER ENTRY POINT */ 00168000 * DCL ICKSAEP0 ENTRY BASED(GDTEPL) VALUERANGE(*) 0009 00169000 * OPTIONS(VLIST); /*UEPIL ADAPTER ENTRY POINT*/ 00170000 * DCL ICKSAGS0 ENTRY BASED(GDTGSP) VALUERANGE(*) 0010 00171000 * OPTIONS(VLIST); /*UGSPACE ADAPTER ENTRY POINT*/ 00172000 * DCL ICKSAFS0 ENTRY BASED(GDTFSP) VALUERANGE(*); 0011 00173000 * /*UFSPACE ADAPTER ENTRY POINT*/ 00174000 * DCL ICKSAGP0 ENTRY BASED(GDTGPL) VALUERANGE(*) 0012 00175000 * OPTIONS(VLIST); /*UGPOOL ADAPTER ENTRY POINT*/ 00176000 * DCL ICKSAFP0 ENTRY BASED(GDTFPL) VALUERANGE(*) 0013 00177000 * OPTIONS(VLIST); /*UFPOOL ADAPTER ENTRY POINT*/ 00178000 * DCL ICKSATI0 ENTRY BASED(GDTTIM) VALUERANGE(*) 0014 00179000 * OPTIONS(VLIST); /*UTIME ADAPTER ENTRY POINT*/ 00180000 * DCL ICKSASN0 ENTRY BASED(GDTSNP) VALUERANGE(*); 0015 00181000 * /*USNAP ADAPTER ENTRY POINT*/ 00182000 * DCL ICKSAWO0 ENTRY BASED(GDTWTO) VALUERANGE(*) 0016 00183000 * OPTIONS(VLIST); /*UWTO ADAPTER EP */ 00184000 * DCL ICKSASC0 ENTRY BASED(GDTSCR) VALUERANGE(*) 0017 00185000 * OPTIONS(VLIST); /*USCRATCH ADAPTER EP */ 00186000 * DCL ICKSAVC0 ENTRY BASED(GDTVCK) VALUERANGE(*) 0018 00187000 * OPTIONS(VLIST); /*UVOLCHK ADAPTER EP */ 00188000 * DCL ICKSAST0 ENTRY BASED(GDTSTE) VALUERANGE(*); 0019 00189000 * /*USTAE ADAPTER EP */ 00190000 * 0020 00191000 * 0020 00192000 * /************************************************************/ 00193000 * /* */ 00194000 * /* DATA STRUCTURE DECLARATIONS FOR SYSTEM ADAPTER */ 00195000 * /* */ 00196000 * /************************************************************/ 00197000 * 0020 00198000 * /* INTER-MODULE TRACE TABLE */ 00199000 * /* (UPDATED BY THE PROL AND UEPIL ROUTINES) */ 00200000 * DCL 1 TRACE1 CHAR(100) BASED(GDTTR1), 0020 00201000 * 2 OLDERID1 CHAR(95), /*ALL BUT THE LATEST TRACE IDS*/ 00202000 * 3 * CHAR(90), /* OLDER TRACE IDENTIFIERS */ 00203000 * 3 CALLID CHAR(2), /* TRACE ID OF CALLING MODULE*/ 00204000 * 2 NEWID1 CHAR(4); /*THE MOST RECENT TRACE ID */ 00205000 * 0020 00206000 * DCL NEWERID1 CHAR(95) BASED(GDTTR1) POSITION(6); 0021 00207000 * /*ALL BUT THE OLDEST TRACE IDS*/ 00208000 * 0022 00209000 * /* INTRA-MODULE TRACE TABLE (UPDATED BY TRACE MACRO) */ 00210000 * DCL 1 TRACE2 CHAR(100) BASED(GDTTR2), 0022 00211000 * 2 OLDERID2 CHAR(95), /*ALL BUT THE LATEST TRACE IDS*/ 00212000 * 2 NEWID2 CHAR(4); /*THE MOST RECENT TRACE ID */ 00213000 * 0022 00214000 * DCL NEWERID2 CHAR(95) BASED(GDTTR2) POSITION(6); 0023 00215000 * /*ALL BUT THE OLDEST TRACE IDS*/ 00216000 * 0024 00217000 * /* CONTROL BLOCK STRUCTURE FOR USTAE MACRO INVOCATION */ 00218000 * 0024 00219000 * DECLARE 0024 00220000 * 1 STAEPARM BDY(WORD) BASED, 0024 00221000 * 0024 00222000 * 2 STAEPFX, /* STAE PREFIX */ 00223000 * 0024 00224000 * 3 STAFPTR /* FORWARD CHAIN POINTER */ 00225000 * POINTER (31), 0024 00226000 * 3 STABPTR /* BACKWARD CHAIN POINTER */ 00227000 * POINTER (31), 0024 00228000 * 3 STAGDT /* POINTER TO THE GDT */ 00229000 * POINTER(31), 0024 00230000 * 3 STAEPA /* ENTRY POINT ADDRESS OF RECOVERY */ 00231000 * /* ROUTINE */ 00232000 * POINTER (31), 0024 00233000 * 3 STAID /* CONTROL BLOCK IDENTIFIER UNIQUE */ 00234000 * /* TO INVOKER */ 00235000 * CHAR (4), 0024 00236000 * 3 STALEN /* LENGTH OF THE INVOKERS CONTROL */ 00237000 * /* BLOCK */ 00238000 * FIXED (31), 0024 00239000 * 3 STASPTR /* POINTER TO SYSTEM DIAGNOSTIC WORK*/ 00240000 * /* AREA */ 00241000 * POINTER (31) BDY (WORD), 0024 00242000 * 3 STARPTR /* POINTER TO SAVED REGISTERS */ 00243000 * POINTER (31) BDY (WORD), 0024 00244000 * 2 STAEWORK /* CONTROL BLOCK WORK AREA TO BE */ 00245000 * /* USED AT INVOKERS DISCRETION */ 00246000 * CHAR(*); 0024 00247000 * 0024 00248000 * /************************************************************/ 00249000 * /* */ 00250000 * /* KEYWORD-ARGUMENT DECLARATIONS FOR SYSTEM ADAPTOR */ 00251000 * /* */ 00252000 * /************************************************************/ 00253000 * DCL ALL CHAR(3) CONSTANT('ALL'); 0025 00254000 * /*'ALL' ARGUMENT FOR UFPOOL*/ 00255000 * DCL FORMAT CHAR(4) CONSTANT('FORM'); 0026 00256000 * /*'FORMAT' ARGUMENT FOR UTIME */ 00257000 * DCL HSECOND CHAR(4) CONSTANT('HSEC'); 0027 00258000 * /*'HSECOND' ARGUMENT FOR UTIME*/ 00259000 * DCL CLOCK CHAR(4) CONSTANT('KLOK'); 0028 00260000 * /*'CLOCK' ARGUMENT FOR UTIME */ 00261000 * DCL SETZERO CHAR(4) CONSTANT('ZERO'); 0029 00262000 * /*UGSPACE & UGPOOL 'ZERO' ARG*/ 00263000 * DCL SETBLANK CHAR(4) CONSTANT('BLNK'); 0030 00264000 * /*UGSPACE & UGPOOL 'BLANK' ARG*/ 00265000 * DCL NOSET CHAR(4) CONSTANT('NSET'); 0031 00266000 * /*UGSPACE 'NOSET' ARGUMENT */ 00267000 * 0032 00268000 * DCL OVERRIDE CHAR(4) CONSTANT('OVRD'); 0032 00269000 * /*'PURGE' ARGUMNT FOR USCRATCH*/ 00270000 * 0033 00271000 * DCL READ CHAR(4) CONSTANT('READ'); 0033 00272000 * /*'READ' ATTRIBUTE FOR UVOLCHK*/ 00273000 * DCL ALTER CHAR(4) CONSTANT('ALTR'); 0034 00274000 * /*UVOLCHK 'ALTER' ATTRIBUTE */ 00275000 * DCL UPDATE CHAR(4) CONSTANT('UPDT'); 0035 00276000 * /*UVOLCHK 'UPDATE' ATTRIBUTE */ 00277000 * DCL CONTROL CHAR(4) CONSTANT('CNTL'); 0036 00278000 * /*UVOLCHK 'CONTROL' ATTRIBUTE */ 00279000 * 0037 00280000 * DCL LISTLN FIXED(8); /*NUMBER OF ARGUMENTS IN LIST */ 00281000 * DCL LISTPTR PTR(31); /*PARM LIST ADDRESS (ULISTLN) */ 00282000 * DCL LISTSCAN PTR(31); /*ULISTLN SCAN POINTER */ 00283000 * DCL LISTTEST BIT(1) BASED(LISTSCAN); 0040 00284000 * /*ULISTLN LIST END BIT TEST */ 00285000 * 0041 00286000 * /************************************************************/ 00287000 * /* */ 00288000 * /* SYMBOLIC RETURN CODE DECLARATIONS FOR SYSTEM ADAPTER */ 00289000 * /* */ 00290000 * /************************************************************/ 00291000 * 0041 00292000 * /* RETURN CODE */ 00293000 * 0041 00294000 * DCL SETRC FIXED(15); /*RETURN CODE FOR SETTING */ 00295000 * DCL TESTRC FIXED(15); /*RETURN CODE FOR TESTING */ 00296000 * 0042 00297000 * DCL RTNREG REG(15); /*DMS RETURN CODE REGISTER */ 00298000 * 0043 00299000 * 0043 00300000 * /************************************************************/ 00301000 * /* */ 00302000 * /* ENTRY POINT DECLARATIONS FOR INPUT/OUTPUT ADAPTER */ 00303000 * /* */ 00304000 * /************************************************************/ 00305000 * 0044 00306000 * 0044 00307000 * DCL ICKIOIT0 ENTRY BASED(GDTIIO) VALUERANGE(*) 0044 00308000 * OPTIONS(VLIST); /*UIOINIT ADAPTER ENTRY POINT*/ 00309000 * DCL ICKIOOP0 ENTRY BASED(GDTOPN) VALUERANGE(*) 0045 00310000 * OPTIONS(VLIST); /*UOPEN ADAPTER ENTRY POINT*/ 00311000 * DCL ICKIOTM0 ENTRY BASED(GDTTIO) VALUERANGE(*) 0046 00312000 * OPTIONS(VLIST); /*UIOTERM ADAPTER ENTRY POINT*/ 00313000 * DCL ICKIOCL0 ENTRY BASED(GDTCLS) VALUERANGE(*) 0047 00314000 * OPTIONS(VLIST); /*UCLOSE ADAPTER ENTRY POINT*/ 00315000 * DCL ICKIOGT0 ENTRY BASED(GDTGET) VALUERANGE(*) 0048 00316000 * OPTIONS(VLIST); /*UGET ADAPTER ENTRY POINT*/ 00317000 * DCL ICKIOPT0 ENTRY BASED(GDTPUT) VALUERANGE(*) 0049 00318000 * OPTIONS(VLIST); /*UPUT ADAPTER ENTRY POINT*/ 00319000 * 0049 00320000 * 0049 00321000 * /************************************************************/ 00322000 * /* */ 00323000 * /* DATA STRUCTURE DECLARATIONS FOR INPUT/OUTPUT ADAPTER */ 00324000 * /* */ 00325000 * /************************************************************/ 00326000 * DCL IOCSPTR PTR(31); /*ADDRESS OF THE IOCS */ 00327000 * 0050 00328000 * /*INPUT/OUTPUT CONTROL STRUCTURE (IOCS) */ 00329000 * DCL 1 IOCSTR BOUNDARY(WORD) BASED(IOCSPTR), 0051 00330000 * 2 IOCDAD PTR(31), /*ADDRESS OF DATA */ 00331000 * 2 IOCDLN FIXED(31), /*LENGTH OF DATA */ 00332000 * 2 IOCTRN FIXED(31), /*LENGTH OF TRANSMISSION */ 00333000 * 2 IOCKYL FIXED(8), /*KEY LENGTH */ 00334000 * 2 IOCDSO BIT(8), /*DATA SET ORGANIZATION */ 00335000 * 3 IOCDSOPS BIT(1), /* SEQUENTIAL */ 00336000 * 3 * BIT(7), /* RESERVED */ 00337000 * 2 IOCRFM BIT(8), /*RECORD FORMAT FLAG */ 00338000 * 3 IOCRFMFX BIT(1), /* FIXED LENGTH RECORDS */ 00339000 * 3 IOCRFMVR BIT(1), /* VARIABLE (NOT SPANNED) */ 00340000 * 3 IOCRFMUN BIT(1), /* UNDEFINED LENGTH RECORDS */ 00341000 * 3 IOCRFMSF BIT(1), /* SPANNED RECORD FORMAT */ 00342000 * 3 IOCRFMBK BIT(1), /* BLOCKED RECORDS */ 00343000 * 3 * BIT(3), /* RESERVED */ 00344000 * 2 IOCMAC BIT(8), /*MACRO FORM FLAG */ 00345000 * 3 IOCMACIN BIT(1), /* INPUT DATA SET */ 00346000 * 3 IOCMACOT BIT(1), /* OUTPUT DATA SET */ 00347000 * 3 IOCMACUP BIT(1), /* OPEN FOR UPDATE */ 00348000 * 3 IOCMACBK BIT(1), /* BLOCK PROCESSING */ 00349000 * 3 * BIT(3), /* RESERVED */ 00350000 * 3 IOCMACPA BIT(1), /* REPROCESSING FLAG */ 00351000 * 2 IOCMSG BIT(8), /*MESSAGE FLAGS */ 00352000 * 3 IOCMSGOP BIT(1), /* DATA SET IS OPEN */ 00353000 * 3 * BIT(7), /* RESERVED */ 00354000 * 2 * CHAR(3), /*RESERVED */ 00355000 * 2 IOCDSN PTR(31), /*ADDRESS OF DATA SET NAME */ 00356000 * 2 IOCCBP PTR(31), /*RETURN BLOCK ADDRESS AREA */ 00357000 * 2 IOCPNM FIXED(15), /*NUMBER OF RECORDS TO */ 00358000 * /* PUT (NOT REQUIRED */ 00359000 * /* FOR ONE RECORD) */ 00360000 * 2 * FIXED(15), /*RESERVED */ 00361000 * 2 IOCRRN FIXED(31), /*RECORD SEQ NUMBER */ 00362000 * 2 IOCEXT PTR(31); /*IOCS EXTENSION ADDRESS */ 00363000 * 0051 00364000 * DCL OPNPTR PTR(31); /*OPEN ARGUMENT LIST ADDRESS */ 00365000 * 0052 00366000 * /*OPEN ARGUMENT LIST */ 00367000 * DCL 1 OPNAGL BOUNDARY(WORD) BASED(OPNPTR) CHAR(32), 0053 00368000 * 2 OPNOPT BIT(8), /*OPEN OPTIONS */ 00369000 * 3 OPNOPTIN BIT(1), /* INPUT DATA SET */ 00370000 * 3 OPNOPTOT BIT(1), /* OUTPUT DATA SET */ 00371000 * 3 OPNOPTUP BIT(1), /* UPDATE MODE PROCESSING */ 00372000 * 3 OPNOPTBK BIT(1), /* BLOCK PROCESSING */ 00373000 * 3 OPNOPTKS BIT(1), /* KEYED PROCESSING */ 00374000 * 3 OPNOPTJM BIT(1), /* MODIFY JFCB */ 00375000 * 3 * BIT(2), /* RESERVED */ 00376000 * 2 OPNRFM BIT(8), /*RECORD FORMAT */ 00377000 * 3 OPNRFMFX BIT(1), /* FIXED RECORDS */ 00378000 * 3 OPNRFMVR BIT(1), /* VARIABLE (NOT SPANNED) */ 00379000 * 3 OPNRFMUN BIT(1), /* UNDEFINED RECORDS */ 00380000 * 3 OPNRFMSF BIT(1), /* SPANNED RECORDS */ 00381000 * 3 OPNRFMBK BIT(1), /* BLOCKED RECORDS */ 00382000 * 3 * BIT(3), /* RESERVED */ 00383000 * 2 OPNTYP BIT(8), /*DATA SET TYPE */ 00384000 * 3 OPNTYPSI BIT(1), /* SYSTEM INPUT */ 00385000 * 3 OPNTYPSO BIT(1), /* SYSTEM OUTPUT */ 00386000 * 3 * BIT(6), /* RESERVED */ 00387000 * 2 OPNMOD BIT(8), /*OPEN MODIFIERS */ 00388000 * 3 OPNMODAC BIT(1), /* ASA CARRIAGE CONTROL CHAR */ 00389000 * 3 OPNMODRC BIT(1), /* RETURN CONTROL BLOCK ADDR */ 00390000 * 3 * BIT(6), /* RESERVED */ 00391000 * 2 OPNIOC PTR(31), /*PTR TO LOCATION IN WHICH 0053 00392000 * TO RETURN IOCS ADDRESS */ 00393000 * 2 OPNDDN PTR(31), /*ADDRESS OF 8-BYTE DDNAME */ 00394000 * 2 OPNDSN PTR(31), /*ADDRESS OF 44-BYTE DSNAME */ 00395000 * 2 OPNREC FIXED(31), /*LOGICAL RECORD LENGTH */ 00396000 * 2 OPNBLK FIXED(31), /*BLOCKSIZE */ 00397000 * 2 OPNVOL PTR(31), /*PTR TO VOL SERIAL */ 00398000 * 2 OPNRSVD FIXED(31); /* RESERVED */ 00399000 * 0053 00400000 * 0053 00401000 * /************************************************************/ 00402000 * /* */ 00403000 * /* USCRATCH VOLUME LIST MAPPING STRUCTURE */ 00404000 * /* */ 00405000 * /************************************************************/ 00406000 * DCL 1 UVOLLIST BASED, 0054 00407000 * 2 UVOLCNT FIXED(15), /*NUMBER OF ENTRIES */ 00408000 * 2 UVOLENT (*) CHAR(10), /*ONE PER VOLUME */ 00409000 * 3 UVOLDEV CHAR(4) , /*DEVICE TYPE */ 00410000 * 3 UVOLVOL CHAR(6) ; /*VOLUME SERIAL */ 00411000 * 0054 00412000 * 0054 00413000 * 0054 00414000 * 0054 00415000 * /************************************************************/ 00416000 * /* */ 00417000 * /* KEYWORD-ARGUMENT DECLARATIONS FOR DEVICE ADAPTER */ 00418000 * /* ACTION KEYS */ 00419000 * /* */ 00420000 * /************************************************************/ 00421000 * DCL ACTLOW /* MINIMUM OF ACTION-KEY VALUES */ 00422000 * FIXED (31) CONSTANT (1); 0055 00423000 * 0055 00424000 * DCL ACTRDHA /* READ HOME ADDRESS */ 00425000 * FIXED (31) CONSTANT (1); 0056 00426000 * DCL ACTRDRZ /* READ RECORD ZERO */ 00427000 * FIXED (31) CONSTANT (2); 0057 00428000 * DCL ACTWPHAD /* WRITE PRI. HA WITH DEFECT-FLAG ON */ 00429000 * FIXED (31) CONSTANT (3); 0058 00430000 * DCL ACTWPHA /* WRITE PRI. HA WITH DEFECT-FLAG OFF */ 00431000 * FIXED (31) CONSTANT (4); 0059 00432000 * DCL ACTWAHAD /* WRITE ALT. HA WITH DEFECT-FLAG ON */ 00433000 * FIXED (31) CONSTANT (5); 0060 00434000 * DCL ACTWAHA /* WRITE ALT. HA WITH DEFECT-FLAG OFF */ 00435000 * FIXED (31) CONSTANT (6); 0061 00436000 * DCL ACTWRRZM /* WRITE/READ R0 MAXIMUM LENGTH */ 00437000 * FIXED (31) CONSTANT (7); 0062 00438000 * DCL ACTWRZS /* WRITE STD. LENGTH RO */ 00439000 * FIXED (31) CONSTANT (8); 0063 00440000 * DCL ACTWCKDN /* WRITE RECORD 'N' (COUNT,KEY AND DATA) */ 00441000 * FIXED (31) CONSTANT (9); 0064 00442000 * DCL ACTRCKDN /* READ RECORD 'N' (COUNT,KEY AND DATA) */ 00443000 * FIXED (31) CONSTANT (10); 0065 00444000 * DCL ACTRKDN /* READ RECORD 'N' (KEY AND DATA) */ 00445000 * FIXED (31) CONSTANT (11); 0066 00446000 * DCL ACTRDN /* READ RECORD 'N' (DATA ONLY) */ 00447000 * FIXED (31) CONSTANT (12); 0067 00448000 * DCL ACTVPHA /* VALIDATE PRIMARY HOME ADDRESS */ 00449000 * FIXED (31) CONSTANT (13); 0068 00450000 * DCL ACTVALRZ /* VALIDATE RECORD ZERO */ 00451000 * FIXED (31) CONSTANT (14); 0069 00452000 * DCL ACTSENOP /* READ DEVICE OPTIONS (3340 ONLY) */ 00453000 * FIXED (31) CONSTANT (15); 0070 00454000 * DCL ACTRRZM /* READ MAXIMUM LENGTH RECORD ZERO */ 00455000 * FIXED (31) CONSTANT (16); 0071 00456000 * DCL ACTVAHA /* VALIDATE ALTERNATE HOME ADDRESS */ 00457000 * FIXED (31) CONSTANT (17); 0072 00458000 * DCL ACTWRZSL /* WRITE R0 TO LINK PRI. AND ALT. TRACKS */ 00459000 * FIXED (31) CONSTANT (18); 0073 00460000 * DCL ACTSCKDN /* WRITE SPECIAL COUNT/KEY/DATA */ 00461000 * FIXED (31) CONSTANT (19); 0074 00462000 * DCL ACTXXXA /* (RESERVED) */ 00463000 * FIXED (31) CONSTANT (20); 0075 00464000 * DCL ACTRWHA /* RECOVER WRITE HA */ 00465000 * FIXED (31) CONSTANT (21); 0076 00466000 * DCL ACTXXXB /* (RESERVED) */ 00467000 * FIXED (31) CONSTANT (22); 0077 00468000 * DCL ACTXXXC /* (RESERVED) */ 00469000 * FIXED (31) CONSTANT (23); 0078 00470000 * DCL ACTXXXD /* (RESERVED) */ 00471000 * FIXED (31) CONSTANT (24); 0079 00472000 * DCL ACTXXXE /* (RESERVED) */ 00473000 * FIXED (31) CONSTANT (25); 0080 00474000 * DCL ACTXXXF /* (RESERVED) */ 00475000 * FIXED (31) CONSTANT (26); 0081 00476000 * DCL ACTXXXG /* (RESERVED) */ 00477000 * FIXED (31) CONSTANT (27); 0082 00478000 * DCL ACTWKDN /* WRITE RECORD 'N' (KEY AND DATA) */ 00479000 * FIXED (31) CONSTANT (28); 0083 00480000 * DCL ACTWDN /* WRITE RECORD 'N' (DATA ONLY) */ 00481000 * FIXED (31) CONSTANT (29); 0084 00482000 * DCL ACTXXXH /* (RESERVED) */ 00483000 * FIXED (31) CONSTANT (30); 0085 00484000 * DCL ACTRRHA /* RECOVER READ-HOME-ADDRESS */ 00485000 * FIXED (31) CONSTANT (31); 0086 00486000 * DCL ACTRRRZ /* RECOVER READ-RECORD-ZERO */ 00487000 * FIXED (31) CONSTANT (32); 0087 00488000 * DCL ACTXXXJ /* (RESERVED) */ 00489000 * FIXED (31) CONSTANT (33); 0088 00490000 * DCL ACTRERZ /* RECOVER STANDARD R-ZERO */ 00491000 * FIXED (31) CONSTANT (34); 0089 00492000 * 0089 00493000 * DCL ACTHIGH /* MAXIMUM NUMBER OF ACTION-KEYS */ 00494000 * FIXED (31) CONSTANT (34); 0090 00495000 * 0090 00496000 * /************************************************************/ 00497000 * /* */ 00498000 * /* DEVICE ADAPTER VOLIB INFORMATION REQUEST KEYS */ 00499000 * /* */ 00500000 * /************************************************************/ 00501000 * DCL VOLLOW /* MINIMUM VALUE FOR VOLIB INFO-KEYS */ 00502000 * FIXED (31) CONSTANT (1); 0091 00503000 * DCL VOLDNAME /* DD-NAME */ 00504000 * FIXED (31) CONSTANT (1); 0092 00505000 * DCL VOLCUU /* CUU OF VOLUME */ 00506000 * FIXED (31) CONSTANT (2); 0093 00507000 * DCL VOLNTYP /* VOLUME TYPE - DD-NAME OR CUU */ 00508000 * FIXED (31) CONSTANT (3); 0094 00509000 * DCL VOLSTATE /* ON/OFF LINE STATE */ 00510000 * FIXED (31) CONSTANT (4); 0095 00511000 * DCL VOLAMAPF /* ACCESS PTR TO FIRST MAP DATA ENTRY */ 00512000 * FIXED (31) CONSTANT (5); 0096 00513000 * DCL VOLAMAPL /* ACCESS PTR TO LAST MAP DATA ENTRY */ 00514000 * FIXED (31) CONSTANT (6); 0097 00515000 * DCL VOLIOB /* ADDRESS OF ASSOCIATED IOB */ 00516000 * FIXED (31) CONSTANT (7); 0098 00517000 * DCL VOLPRVOL /* VOLUME IS MAOUNTED PRIVATELY */ 00518000 * FIXED (31) CONSTANT (8); 0099 00519000 * DCL VOLFINIT /* FIRST TIME INIT. FLAG */ 00520000 * FIXED (31) CONSTANT (9); 0100 00521000 * DCL VOLDTYP4 /* 4 BYTE UCB DEVICE TYPE */ 00522000 * FIXED (31) CONSTANT (10); 0101 00523000 * DCL VOLDTYP /* 1 BYTE UCB DEVICE TYPE */ 00524000 * FIXED (31) CONSTANT (11); 0102 00525000 * DCL VOLHIGH /* MAXIMUM VALUE FOR VOLIB INFO-KEYS */ 00526000 * FIXED (31) CONSTANT (11); 0103 00527000 * /************************************************************/ 00528000 * /* */ 00529000 * /* DEVICE ADAPTER VOLIB UPDATE REQUEST KEYS */ 00530000 * /* */ 00531000 * /************************************************************/ 00532000 * DCL VOLSLOW /* MINIMUM VALUE FOR VOLIB STORE KEYS */ 00533000 * FIXED (31) CONSTANT (105); 0104 00534000 * DCL VOLSMAPF /* STORE PTR TO FIRST MAP DATA ENTRY */ 00535000 * FIXED (31) CONSTANT (105); 0105 00536000 * DCL VOLSMAPL /* STORE PTR TO LAST MAP DATA ENTRY */ 00537000 * FIXED (31) CONSTANT (106); 0106 00538000 * DCL VOLSHIGH /* MAXIMUM VALUE FOR VOLIB STORE KEYS */ 00539000 * FIXED (31) CONSTANT (106); 0107 00540000 * /************************************************************/ 00541000 * /* */ 00542000 * /* DEVICE INFORMATION TABLE DATA REQUEST KEYS */ 00543000 * /* */ 00544000 * /************************************************************/ 00545000 * DCL DEVLOW /* MINIMUM VALUE FOR DEV KEYS */ 00546000 * FIXED (31) CONSTANT (201); 0108 00547000 * DCL DEVPTRKS /* NUMBER OF PRIMARY TRACKS ON PACK */ 00548000 * FIXED (31) CONSTANT (201); 0109 00549000 * DCL DEVATRKS /* NUMBER OF ALTERNATE TRACKS ON PACK */ 00550000 * FIXED (31) CONSTANT (202); 0110 00551000 * DCL DEVNUMSD /* NUMBER OF SD BYTES IN HA */ 00552000 * FIXED (31) CONSTANT (203); 0111 00553000 * DCL DEVTKCYL /* TRACKS PER CYLINDER */ 00554000 * FIXED (31) CONSTANT (204); 0112 00555000 * DCL DEVLPADD /* ADDRESS OF LAST PRIMARY TRACK */ 00556000 * FIXED (31) CONSTANT (205); 0113 00557000 * DCL DEVFAADD /* ADDRESS OF FIRST ALTERNATE TRACK */ 00558000 * FIXED (31) CONSTANT (206); 0114 00559000 * DCL DEVLAADD /* ADDRESS OF LAST ALTERNATE TRACK */ 00560000 * FIXED (31) CONSTANT (207); 0115 00561000 * DCL DEVTHOLD /* THRESHOLD OF UNRECOVERABLE TRACKS */ 00562000 * FIXED (31) CONSTANT (208); 0116 00563000 * DCL DEVBSRS1 /* IPL BOOTSTRAP PROGRAM RECORD 1 */ 00564000 * FIXED (31) CONSTANT (209); 0117 00565000 * DCL DEVBSRS2 /* IPL BOOTSTRAP PROGRAM RECORD 2 */ 00566000 * FIXED (31) CONSTANT (210); 0118 00567000 * DCL DEVIPLPL /* MAX. IPL PGM. LENGTH */ 00568000 * FIXED (31) CONSTANT (211); 0119 00569000 * DCL DEVMSSID /* MSS VOLUME IN EFFECT */ 00570000 * FIXED (31) CONSTANT (212); 0120 00571000 * DCL DEVVTOCL /* DEFAULT VTOC LOCATION */ 00572000 * FIXED (31) CONSTANT (213); 0121 00573000 * DCL DEVVTOCE /* DEFAULT VTOC EXTENTS */ 00574000 * FIXED (31) CONSTANT (214); 0122 00575000 * DCL DEVDSCBF /* FORMAT 4 DACB DEVICE CONSTANTS */ 00576000 * FIXED (31) CONSTANT (215); 0123 00577000 * DCL DEVTRKCP /* TRACK CAPACITY - (HA AND R0) */ 00578000 * FIXED (31) CONSTANT (216); 0124 00579000 * DCL DEVRECOH /* RECORD OVERHEAD */ 00580000 * FIXED (31) CONSTANT (217); 0125 00581000 * DCL DEVMRTRK /* MAXIMUM NUMBER OF RECORDS PER TRACK */ 00582000 * FIXED (31) CONSTANT (218); 0126 00583000 * DCL DEVBSRW1 /* SPECIAL BOOTSTRAP: FORCES WAIT STATE */ 00584000 * FIXED (31) CONSTANT (219); 0127 00585000 * DCL DEVHIGH /* MAXIMUM VALUE FOR DEV KEY */ 00586000 * FIXED (31) CONSTANT (219); 0128 00587000 * /************************************************************/ 00588000 * /* */ 00589000 * /* ENTRY POINT DECLARATIONS FOR THE DEVICE ADAPTER */ 00590000 * /* */ 00591000 * /************************************************************/ 00592000 * 0129 00593000 * DCL ICKDVON0 ENTRY BASED(GDTDVO) VALUERANGE(*); 0129 00594000 * /* UDEVOPEN ENTRY POINT */ 00595000 * DCL ICKDVIN0 ENTRY BASED(GDTDIN) VALUERANGE(*); 0130 00596000 * /* UDEVINFO ENTRY POINT */ 00597000 * DCL ICKDVOP0 ENTRY BASED(GDTDOP) VALUERANGE(*); 0131 00598000 * /* UDEVOP ENTRY POINT */ 00599000 * DCL ICKDVCL0 ENTRY BASED(GDTDVC) VALUERANGE(*); 0132 00600000 * /* UDEVCLSE ENTRY POINT */ 00601000 * 0133 00602000 * 0133 00603000 * 0133 00604000 * /************************************************************/ 00605000 * /* */ 00606000 * /* ENTRY POINT DECLARATIONS FOR TEXT OUTPUT PROCESSOR */ 00607000 * /* */ 00608000 * /************************************************************/ 00609000 * 0133 00610000 * 0133 00611000 * DCL ICKTPPR0 ENTRY BASED(GDTPRT) VALUERANGE(*) 0133 00612000 * OPTIONS(VLIST); /*UPRINT MACRO ENTRY POINT */ 00613000 * DCL ICKTPES0 ENTRY BASED(GDTESS) VALUERANGE(*); 0134 00614000 * /*UESTS MACRO ENTRY POINT */ 00615000 * DCL ICKTPEA0 ENTRY BASED(GDTESA) VALUERANGE(*); 0135 00616000 * /*UESTA MACRO ENTRY POINT */ 00617000 * DCL ICKTPRS0 ENTRY BASED(GDTRST) VALUERANGE(*) 0136 00618000 * OPTIONS(VLIST); /*UREST MACRO ENTRY POINT */ 00619000 * DCL ICKTPRE0 ENTRY BASED(GDTRES) VALUERANGE(*) 0137 00620000 * OPTIONS(VLIST); /*URESET MACRO ENTRY POINT */ 00621000 * 0137 00622000 * 0137 00623000 * /************************************************************/ 00624000 * /* */ 00625000 * /* DATA STRUCTURE DECLARATIONS FOR TEXT OUTPUT PROCESSOR */ 00626000 * /* */ 00627000 * /************************************************************/ 00628000 * DCL DDSTRU PTR(31); /*DYNAMIC DATA STRUCTURE PTR */ 00629000 * 0138 00630000 * /*DYNAMIC DATA STRUCTURE ARGUMENT LIST */ 00631000 * DCL 1 DARGLIST BOUNDARY(WORD) BASED(DDSTRU), 0139 00632000 * 2 DARGDBP PTR(31), /*DATA BLOCK POINTER */ 00633000 * 2 DARGRETP PTR(31), /*RETURN AREA POINTER */ 00634000 * 2 DARGSTID FIXED(31),/*STATIC TEXT IDENTIFIER */ 00635000 * 3 DARGSMOD CHAR(3), /* STATIC TEXT MODULE */ 00636000 * 3 DARGSENT PTR(8), /* STATIC TEXT ENTRY */ 00637000 * 2 DARGILP FIXED(15),/*INPUT BLOCK LENGTH */ 00638000 * 2 DARGCNT FIXED(15),/*COUNT OF REF GROUPS */ 00639000 * 2 DARGRETL FIXED(15),/*RETURN AREA LENGTH */ 00640000 * 2 DARGIND FIXED(8), /*PRINT LINE INDENT FACTOR */ 00641000 * 2 * FIXED(8), /*RESERVED */ 00642000 * 2 DARGARY(*) BOUNDARY(WORD), 0139 00643000 * 3 DARGINS FIXED(15),/*INSERT REFERENCE NUMBER */ 00644000 * 4 DARGREP FIXED(15),/*REPLICATION REFERENCE NUMBER*/ 00645000 * 3 DARGINL FIXED(15),/*INPUT DATA LENGTH */ 00646000 * 4 DARGPCT FIXED(15),/*REDO REPLICATION COUNT */ 00647000 * 3 DARGDTM FIXED(31);/*DYNAMIC DATA POINTER */ 00648000 * 0139 00649000 * DCL FSADDR PTR(31); /*FORMAT STRUCTURE POINTER */ 00650000 * 0140 00651000 * /*FORMAT STRUCTURE ARGUMENT LIST */ 00652000 * DCL 1 FMTLIST BOUNDARY(WORD) BASED(FSADDR), 0141 00653000 * 2 FMTFLGS BIT(16), /*FLAG BYTES */ 00654000 * 3 FMTEOLF BIT(1), /* END OF STRUCTURE FLAG */ 00655000 * 3 FMTSCF BIT(1), /* SPACE CONTROL FLAG */ 00656000 * 3 FMTIDF BIT(1), /* INSERT DATA FLAG */ 00657000 * 3 FMTBDF BIT(1), /* BLOCK DATA FLAG */ 00658000 * 3 FMTREPF BIT(1), /* REDO FLAG */ 00659000 * 3 FMTSTF BIT(1), /* STATIC TEXT FLAG */ 00660000 * 3 FMTDFF BIT(1), /* DEFAULT DATA FLAG */ 00661000 * 3 FMTHDF BIT(1), /* HEADER FLAG */ 00662000 * 3 * BIT(8), /* RESERVED */ 00663000 * 2 FMTSPF FIXED(15),/*SPACING FACTOR */ 00664000 * 3 FMTRFNO FIXED(15),/*INSERT REFERENCE NUMBER */ 00665000 * 4 FMTILEN FIXED(15),/*BLOCK INPUT LENGTH */ 00666000 * 5 FMTSTL FIXED(15),/*STATIC TEXT LENGTH */ 00667000 * 2 FMTIOFF FIXED(15),/*BLOCK INPUT OFFSET */ 00668000 * 3 FMTTRBC FIXED(15),/*REPLICATION STRUCTURE COUNT */ 00669000 * 4 FMTSTO FIXED(15),/*STATIC TEXT OFFSET */ 00670000 * 5 FMTSPT CHAR(1), /*SPACING TYPE */ 00671000 * 2 FMTOCOL FIXED(15),/*PRINT COLUMN */ 00672000 * 3 FMTRIO FIXED(15),/*REPLICATION INPUT OFFSET */ 00673000 * 2 FMTOLEN FIXED(15),/*PRINT FIELD LENGTH */ 00674000 * 2 FMTCNVF BIT(16), /*CONVERSION FLAGS */ 00675000 * 3 FMTBH BIT(1), /* BINARY TO HEX */ 00676000 * 3 FMTBHA BIT(1), /* BINARY TO HEX APOSTROPHE */ 00677000 * 3 FMTBHD BIT(1), /* BINARY TO HEX DUMP */ 00678000 * 3 FMTBD BIT(1), /* BINARY TO DECIMAL */ 00679000 * 3 FMTPU BIT(1), /* PACKED TO UNPACKED */ 00680000 * 3 * BIT(3), /* RESERVED */ 00681000 * 3 FMTZS BIT(1), /* ZERO SUPPRESSION */ 00682000 * 3 FMTAL BIT(1), /* ALIGN LEFT */ 00683000 * 3 FMTSS BIT(1), /* SIGN SUPPRESSION */ 00684000 * 3 FMTBS BIT(1), /* BLANK SUPPRESSION */ 00685000 * 3 * BIT(4); /* RESERVED */ 00686000 * 0141 00687000 * 0141 00688000 * /************************************************************/ 00689000 * /* */ 00690000 * /* ENTRY POINT DECLARATIONS FOR DEBUGGING AIDS */ 00691000 * /* */ 00692000 * /************************************************************/ 00693000 * 0142 00694000 * 0142 00695000 * 0142 00696000 * DCL ICKDB010 ENTRY BASED(GDTDBG) VALUERANGE(*) 0142 00697000 * OPTIONS(VLIST); /*DMS DUMP ROUTINE ENTRY PT */ 00698000 * 0142 00699000 * 0142 00700000 * /************************************************************/ 00701000 * /* */ 00702000 * /* DATA STRUCTURE DECLARATIONS FOR DEBUGGING AIDS */ 00703000 * /* */ 00704000 * /************************************************************/ 00705000 * 0143 00706000 * /* DATA ITEM DECLARATIONS FOR SYMBOLIC DUMP MACROS */ 00707000 * 0143 00708000 * DCL DMPINDEX PTR(31); /*DUMP LIST PROCESSING POINTER*/ 00709000 * 0143 00710000 * /*DUMP LIST INDIVIDUAL ELEMENT FORMAT */ 00711000 * DCL 1 DMPITM CHAR(16) BOUNDARY(WORD) BASED(DMPINDEX), 00712000 * 2 DMPITMNM CHAR(8), /*DUMP ELEMENT SYMBOLIC NAME */ 00713000 * 2 DMPITMPT PTR(31), /*DUMP ELEMENT ADDRESS */ 00714000 * 2 DMPITMLN FIXED(15), /*DUMP ELEMENT LENGTH */ 00715000 * 2 DMPITMTP CHAR(1), /*DUMP ELEMENT TYPE */ 00716000 * 2 * CHAR(1); /*RESERVED */ 00717000 * 0144 00718000 * /*DUMP LIST ARRAY HEADER FORMAT */ 00719000 * DCL 1 DMPARY CHAR(16) BOUNDARY(WORD) BASED(DMPINDEX), 00720000 * 2 DMPARYNM CHAR(8), /*DUMP ARRAY SYMBOLIC NAME */ 00721000 * 2 DMPARYSZ FIXED(15), /*DUMP ARRAY SIZE */ 00722000 * 2 DMPARYIC FIXED(15), /*DUMP ARRAY ITEM COUNT */ 00723000 * 2 DMPARYEX FIXED(15), /*DUMP ARRAY EXTENT */ 00724000 * 2 DMPARYTP CHAR(1), /*DUMP ARRAY TYPE */ 00725000 * 2 * CHAR(1); /*RESERVED */ 00726000 * 0145 00727000 * /*DUMP LIST TERMINATOR FORMAT */ 00728000 * DCL DMPTRM CHAR(1) BOUNDARY(WORD) BASED(DMPINDEX); 00729000 * 0146 00730000 * DCL DMPTRMVL BIT(8) CONSTANT('FF'X); 0147 00731000 * /*DUMP LIST TERMINATION FLAG */ 00732000 * 0148 00733000 * DCL DMPELEMT FIXED(15) CONSTANT(16); 0148 00734000 * /*DUMP LIST ITEM SIZE */ 00735000 * 0149 00736000 * 0149 00737000 * /************************************************************/ 00738000 * /* */ 00739000 * /* DECLARATIONS FOR CONVENTIONALIZED NAMED VALUES */ 00740000 * /* */ 00741000 * /************************************************************/ 00742000 * 0149 00743000 * DCL REG0 REGISTER(0); /*REGISTER 0 SPECIFICATION */ 00744000 * DCL REG1 REGISTER(1); /*REGISTER 1 SPECIFICATION */ 00745000 * DCL REG2 REGISTER(2); /*REGISTER 2 SPECIFICATION */ 00746000 * DCL REG3 REGISTER(3); /*REGISTER 3 SPECIFICATION */ 00747000 * DCL REG4 REGISTER(4); /*REGISTER 4 SPECIFICATION */ 00748000 * DCL REG5 REGISTER(5); /*REGISTER 5 SPECIFICATION */ 00749000 * DCL REG6 REGISTER(6); /*REGISTER 6 SPECIFICATION */ 00750000 * DCL REG7 REGISTER(7); /*REGISTER 7 SPECIFICATION */ 00751000 * DCL REG8 REGISTER(8); /*REGISTER 8 SPECIFICATION */ 00752000 * DCL REG9 REGISTER(9); /*REGISTER 9 SPECIFICATION */ 00753000 * DCL REG10 REGISTER(10); /*REGISTER 10 SPECIFICATION */ 00754000 * DCL REG11 REGISTER(11); /*REGISTER 11 SPECIFICATION */ 00755000 * DCL REG12 REGISTER(12); /*REGISTER 12 SPECIFICATION */ 00756000 * DCL REG13 REGISTER(13); /*REGISTER 13 SPECIFICATION */ 00757000 * DCL REG14 REGISTER(14); /*REGISTER 14 SPECIFICATION */ 00758000 * DCL REG15 REGISTER(15); /*REGISTER 15 SPECIFICATION */ 00759000 * 0164 00760000 * DCL LASTCC00 FIXED(15) CONSTANT(0); 0165 00761000 * /*FSR LAST CONDITION CODE = 0*/ 00762000 * DCL LASTCC04 FIXED(15) CONSTANT(4); 0166 00763000 * /*FSR LAST CONDITION CODE = 4*/ 00764000 * DCL LASTCC08 FIXED(15) CONSTANT(8); 0167 00765000 * /*FSR LAST CONDITION CODE = 8*/ 00766000 * DCL LASTCC12 FIXED(15) CONSTANT(12); 0168 00767000 * /*FSR LAST CONDITION CODE = 12*/ 00768000 * DCL LASTCC16 FIXED(15) CONSTANT(16); 0169 00769000 * /*FSR LAST CONDITION CODE = 16*/ 00770000 * 0170 00771000 * DCL NULLPTR PTR(31) CONSTANT(0); 0170 00772000 * /*NULL POINTER VALUE */ 00773000 * DCL ON BIT(1) CONSTANT('1'B); 0171 00774000 * /*BIT SWITCH/FLAG 'ON' VALUE */ 00775000 * DCL OFF BIT(1) CONSTANT('0'B); 0172 00776000 * /*BIT SWITCH/FLAG 'OFF' VALUE */ 00777000 * DCL YES BIT(1) CONSTANT('1'B); 0173 00778000 * /*BIT SWITCH/FLAG 'YES' VALUE */ 00779000 * DCL NO BIT(1) CONSTANT('0'B); 0174 00780000 * /*BIT SWITCH/FLAG 'NO' VALUE */ 00781000 * DCL PRTFILE FIXED(31) CONSTANT(0); 0175 00782000 * /*SYSPRINT OUTPUT FILE NAME */ 00783000 * 0176 00784000 */********************************************************************/ 00785000 */* */ 00786000 */* END OF DMS GLOBAL DECLARATIONS */ 00787000 */* */ 00788000 */********************************************************************/ 00789000 * 0176 00790000 * 0176 00791000 * 0176 00792000 * 0176 00793000 * 0176 00794000 * DECLARE 0176 00795000 * 0176 00796000 * 1 VOL1 /* STANDARD VOLUME LABEL RECORD */ 00797000 * CHAR(80) BASED, 0176 00798000 * 2 VOL1ID /* 'VOL', IDENTIFIER FIELD */ 00799000 * CHAR(3), 0176 00800000 * 2 VOL1NUM /* '1', IDENTIFIER FIELD */ 00801000 * CHAR(1), 0176 00802000 * 2 VOL1SER /* VOLUME SERIAL */ 00803000 * CHAR(6), 0176 00804000 * 2 VOL1ACC /* ACCESS PROTECTION CODE */ 00805000 * CHAR(1), 0176 00806000 * 2 VOL1VTOC /* CCHHR OF VOLUME TABLE OF CONTENTS */ 00807000 * CHAR(5), 0176 00808000 * 2 * /* RESERVED */ 00809000 * CHAR(21), 0176 00810000 * 2 VOL1OWNR /* VOLUME OWNER-ID */ 00811000 * CHAR(14), 0176 00812000 * 3 VOL1OEXT /* EXTENSION TO 'OLD' OWNER-ID */ 00813000 * CHAR(4), 0176 00814000 * 3 VOL1OLDO /* 'OLD' OWNER-ID FIELD */ 00815000 * CHAR(10), 0176 00816000 * 2 * /* RESERVED */ 00817000 * CHAR(28), 0176 00818000 * 2 VOL1STDV /* STANDARD VERSION ID */ 00819000 * CHAR(1); 0176 00820000 * /************************************************************/ 00821000 * /* 03/08/78 */ 00822000 * /* DEVICE ADAPTER INTERNAL DATA STRUCTURES AND */ 00823000 * /* DEVICE TYPE DECLARATIONS */ 00824000 * /* */ 00825000 * /************************************************************/ 00826000 * /* */ 00827000 * /* (1) DEVICE ADAPTER VOLUME INFORMATION BLOCK (VOLIB) */ 00828000 * /* (2) DEVICE ADAPTER APPENDAGE INFORMATION AREA */ 00829000 * /* (3) DEVICE ADAPTER CONTROL BLOCK STORAGE AREA */ 00830000 * /* (4) DEVICE ADAPTER 3 BYTE SENSE DATA STRUCTURE */ 00831000 * /* (5) DEVICE ADAPTER DEVICE TYPE DECLARATIONS */ 00832000 * /* */ 00833000 * /************************************************************/ 00834000 * /************************************************************/ 00835000 * /* */ 00836000 * /* VOLUME INFORMATION CONTROL BLOCK DECLARATION */ 00837000 * /* */ 00838000 * /************************************************************/ 00839000 * 0177 00840000 * DCL 1 VOLIB BASED (VOLIBPTR), 0177 00841000 * 2 VLFPTR /* VOLIB FORWARD CHAIN POINTER */ 00842000 * POINTER(31), 0177 00843000 * 2 VLBPTR /* VOLIB BACKWARD CHAIN POINTER */ 00844000 * POINTER(31), 0177 00845000 * 2 VLMAPF /* FIRST MAP ENTRY POINTER */ 00846000 * CHAR(4), 0177 00847000 * 2 VLMAPL /* LAST MAP ENTRY POINTER */ 00848000 * CHAR(4), 0177 00849000 * 2 VLIOBPTR /* POINTER TO THE ASSOCIATED IOB */ 00850000 * POINTER(31), 0177 00851000 * 2 VLDNMCUU /* DDNAME OR CUU OF VOLUME */ 00852000 * CHAR(8), 0177 00853000 * 2 VLUCBDT /* 4 BYTE UCB DEVICE TYPE */ 00854000 * CHAR(4), 0177 00855000 * 3 * /* NOT USED HERE */ 00856000 * CHAR(3), 0177 00857000 * 3 VLDEVTYP /* DEVICE TYPE UCB CODE ONE BYTE */ 00858000 * CHAR(1), 0177 00859000 * 2 VLDEVIND /* DEV. TYPE (UDEVOP INDEX VALUE) */ 00860000 * FIXED(8), 0177 00861000 * 2 VLPRVOL /* PRIVATE VOLUME FLAG (1 = PRIVATE)*/ 00862000 * BIT(1) BDY(BYTE), 0177 00863000 * 2 VLFINIT /* FIRST TIME INIT. FLAG (1 = FIRST)*/ 00864000 * BIT(1) BDY(BYTE), 0177 00865000 * 2 VLSTATE /* ON/OFF LINE FLAG (1 = ON) */ 00866000 * BIT(1) BDY(BYTE), 0177 00867000 * 2 VLNTYP /* VOLUME NAME TYPE (1 = DDNAME) */ 00868000 * BIT(1) BDY(BYTE), 0177 00869000 * 2 VLNUMBER /* VOLIB ALLOCATION SEQUENCE NUMBER */ 00870000 * FIXED(8) BDY(BYTE), 0177 00871000 * 2 * /* RESERVED */ 00872000 * CHAR (2) BDY (BYTE); 0177 00873000 * 0177 00874000 * /************************************************************/ 00875000 * /* */ 00876000 * /* END OF VOLIB DECLARATION */ 00877000 * /* */ 00878000 * /************************************************************/ 00879000 * /************************************************************/ 00880000 * /* */ 00881000 * /* I/O APPENDAGE INFORMATION AREA DECLARATION */ 00882000 * /* */ 00883000 * /************************************************************/ 00884000 * 0178 00885000 * DCL 1 APINFO BASED (APIPTR), 0178 00886000 * 2 APABNC /* NUMBER OF CALLS TO ABNORMAL END */ 00887000 * FIXED(31), 0178 00888000 * 2 APAKEY /* ACTION KEY CAUSING APPENDAGE */ 00889000 * FIXED(31), 0178 00890000 * 2 APANXT /* ACTION KEY TO EXECUTE NEXT */ 00891000 * FIXED(31), 0178 00892000 * 2 APTRACK /* CCHH OF TRACK IN USE */ 00893000 * FIXED(32), 0178 00894000 * 2 APASSOC /* CCHH OF ASSOCIATED TRACK */ 00895000 * FIXED(32), 0178 00896000 * 2 APLASTA /* CCHH OF LAST ALTERNATE TRACK */ 00897000 * FIXED(32), 0178 00898000 * 2 APTRKCT /* NUMBER OF TRACKS ON VOLUME */ 00899000 * FIXED(31), 0178 00900000 * 2 APSAVE /* APPENDAGE REGISTER SAVE AREA */ 00901000 * CHAR(64), 0178 00902000 * 2 APOVFLO /* TRACK OVERFLOW FLAG */ 00903000 * BIT(1); 0178 00904000 * 0178 00905000 * /************************************************************/ 00906000 * /* */ 00907000 * /* END OF APPENDAGE INFORMATION AREA DECLARATION */ 00908000 * /* */ 00909000 * /************************************************************/ 00910000 * /************************************************************/ 00911000 * /* */ 00912000 * /* CONTROL BLOCK STORAGE AREA DECLARATION */ 00913000 * /* */ 00914000 * /************************************************************/ 00915000 * 0179 00916000 * DCL 1 CNTBLKS BASED (VOLIBPTR), 0179 00917000 * 2 CBVOLIB CHAR( LENGTH(VOLIB) ), 0179 00918000 * 2 CBECB CHAR(4) BDY (WORD), 0179 00919000 * 2 CBIOB CHAR(40), 0179 00920000 * 2 CBDCB CHAR(96), 0179 00921000 * 2 CBAPINFO CHAR( LENGTH(APINFO) ); 0179 00922000 * 0179 00923000 * /************************************************************/ 00924000 * /* */ 00925000 * /* END OF CONTROL BLOCK STORAGE AREA */ 00926000 * /* */ 00927000 * /************************************************************/ 00928000 * /************************************************************/ 00929000 * /* */ 00930000 * /* DEVICE SENSE INFORMATION DATA STRUCTURE */ 00931000 * /* */ 00932000 * /************************************************************/ 00933000 * 0180 00934000 * DCL 1 DEVSENSE /* DEVICE SENSE STRUCTURE */ 00935000 * BASED (DATAPTR), 0180 00936000 * 2 BYTE0 /* SENSE BYTE ZERO */ 00937000 * CHAR(1), 0180 00938000 * 3 * /* NOT USED */ 00939000 * BIT(3), 0180 00940000 * 3 SENEQCK /* EQUIPMENT CHECK BIT */ 00941000 * BIT(1), 0180 00942000 * 3 SENDATCK /* DATA CHECK BIT */ 00943000 * BIT(1), 0180 00944000 * 3 * /* NOT USED */ 00945000 * BIT(1), 0180 00946000 * 3 SENTRKCK /* TRACK CHECK BIT */ 00947000 * BIT(1), 0180 00948000 * 3 SENSEEKC /* SEEK CHECK BIT */ 00949000 * BIT(1), 0180 00950000 * 2 BYTE1 /* SENSE BYTE ONE */ 00951000 * CHAR(1), 0180 00952000 * 3 SENPERR /* PERMANENT ERROR (NOT 2314,2319) */ 00953000 * BIT(1), 0180 00954000 * 3 * /* NOT USED */ 00955000 * BIT(3), 0180 00956000 * 3 SENRFND /* NO RECORD FOUND BIT */ 00957000 * BIT(1), 0180 00958000 * 3 * /* NOT USED */ 00959000 * BIT(3), 0180 00960000 * 2 BYTE2 /* SENSE BYTE TWO */ 00961000 * CHAR(1), 0180 00962000 * 3 SENRPSPR /* RPS OPTION BIT */ 00963000 * BIT(1), 0180 00964000 * 3 SENCERR /* CORRECTABLE ERROR BIT */ 00965000 * BIT(1), 0180 00966000 * 3 * /* NOT USED */ 00967000 * BIT(2), 0180 00968000 * 3 SEN3344 /* 3344 DEVICE BIT */ 00969000 * BIT(1), 0180 00970000 * 4 SENEMUL /* COMPAT. FLAG (3330 EMULATION) */ 00971000 * BIT(1), 0180 00972000 * 3 * /* NOT USED */ 00973000 * BIT(1), 0180 00974000 * 3 SENMB70 /* 3340 OPTION BIT FOR 70MB */ 00975000 * BIT(1), 0180 00976000 * 3 SENMB35 /* 3340 OPTION BIT FOR 35MB */ 00977000 * BIT(1); 0180 00978000 * 0180 00979000 * /************************************************************/ 00980000 * /* */ 00981000 * /* END OF SENSE DATA STRUCTURE */ 00982000 * /* */ 00983000 * /************************************************************/ 00984000 * /************************************************************/ 00985000 * /* */ 00986000 * /* DEVICE TYPE DECLARATIONS (VLDEVIND DEVICE INDEX VALUE) */ 00987000 * /* */ 00988000 * /************************************************************/ 00989000 * 0181 00990000 * DCL DV230A /* DEVICE INDEX VALUE FOR 2305-1 */ 00991000 * FIXED(8) CONSTANT (1); 0181 00992000 * 0181 00993000 * DCL DV230B /* DEVICE INDEX VALUE FOR 2305-2 */ 00994000 * FIXED(8) CONSTANT (2); 0182 00995000 * 0182 00996000 * DCL DV2314 /* DEVICE INDEX VALUE FOR 2314/2319 */ 00997000 * FIXED(8) CONSTANT (3); 0183 00998000 * 0183 00999000 * DCL DV333A /* DEVICE INDEX VALUE FOR 3330 */ 01000000 * FIXED(8) CONSTANT (4); 0184 01001000 * 0184 01002000 * DCL DV333B /* DEVICE INDEX VALUE FOR 3330-1 */ 01003000 * FIXED(8) CONSTANT (5); 0185 01004000 * 0185 01005000 * DCL DV333C /* DEV. IND. VALUE FOR 3330 STG. PK */ 01006000 * FIXED(8) CONSTANT (6); 0186 01007000 * 0186 01008000 * DCL DV333D /* DEVICE IND. VAL. 3330-1 STG. PK. */ 01009000 * FIXED(8) CONSTANT (7); 0187 01010000 * 0187 01011000 * DCL DV334A /* DEVICE INDEX VALUE FOR 334A */ 01012000 * FIXED(8) CONSTANT (8); 0188 01013000 * 0188 01014000 * DCL DV334B /* DEVICE INDEX VALUE FOR 334B */ 01015000 * FIXED(8) CONSTANT (9); 0189 01016000 * 0189 01017000 * DCL DV334C /* DEVICE INDEX VALUE FOR 334C */ 01018000 * FIXED(8) CONSTANT (10); 0190 01019000 * 0190 01020000 * DCL DV334D /* DEVICE INDEX VALUE FOR 334D */ 01021000 * FIXED(8) CONSTANT (11); 0191 01022000 * 0191 01023000 * DCL DV3344 /* DEVICE INDEX VALUE FOR 3344 */ 01024000 * FIXED(8) CONSTANT (9); 0192 01025000 * 0192 01026000 * DCL DV3350 /* DEVICE INDEX VALUE FOR 3350 */ 01027000 * FIXED(8) CONSTANT (12); 0193 01028000 * 0193 01029000 * /************************************************************/ 01030000 * /* */ 01031000 * /* DEVICE TYPE DECLARATIONS (UCB CODE VALUES) */ 01032000 * /* */ 01033000 * /************************************************************/ 01034000 * 0194 01035000 * DCL DUCB230A /* DEVICE UCB CODE FOR 2305-1 */ 01036000 * BIT(8) CONSTANT ('06'X); 0194 01037000 * 0194 01038000 * DCL DUCB230B /* DEVICE UCB CODE FOR 2305-2 */ 01039000 * BIT(8) CONSTANT ('07'X); 0195 01040000 * 0195 01041000 * DCL DUCB2314 /* DEVICE UCB CODE FOR 2314/2319 */ 01042000 * BIT(8) CONSTANT ('08'X); 0196 01043000 * 0196 01044000 * DCL DUCB3330 /* DEVICE UCB CODE FOR 3330 */ 01045000 * BIT(8) CONSTANT ('09'X); 0197 01046000 * 0197 01047000 * DCL DUCB3331 /* DEVICE UCB CODE FOR 3330-1 */ 01048000 * BIT(8) CONSTANT ('0D'X); 0198 01049000 * 0198 01050000 * DCL DUCB334N /* DEVICE UCB CODE FOR 334N */ 01051000 * BIT(8) CONSTANT ('0A'X); 0199 01052000 * 0199 01053000 * DCL DUCB3350 /* DEVICE UCB CODE FOR 3350 */ 01054000 * BIT(8) CONSTANT ('0B'X); 0200 01055000 * 0200 01056000 * /************************************************************/ 01057000 * /* */ 01058000 * /* END OF DEVICE TYPE DECLARATIONS */ 01059000 * /* */ 01060000 * /************************************************************/ 01061000 * /************************************************************/ 01062000 * /* */ 01063000 * /* END DEVICE ADAPTER DECLARATIONS */ 01064000 * /* */ 01065000 * /************************************************************/ 01066000 * 0201 01067000 * 0201 01068000 */********************* MAPPING MACROS *******************************/ 01069000 * 0201 01070000 * 0201 01071000 */* **************************************************************** */ 01072000 */* BEFORE THE INCLUDE FOR THIS MACRO, THE MACRO VARIABLES */ 01073000 */* LISTED BELOW MUST BE SET TO 0 (OPTION NOT WANTED) OR */ 01074000 */* 1 (OPTION WANTED). THERE SHOULD BE AT LEAST ONE DSORG */ 01075000 */* VARIABLE AND ONE DEVD VARIABLE SET TO 1 UNLESS DSORGGS */ 01076000 */* OR DSORGLR IS SET. IF DSORGGS IS SET TO 1, IT */ 01077000 */* MUST BE THE ONLY VARIABLE SET TO 1. IF NO DSORG VARIABLE */ 01078000 */* IS SET TO 1, EXCP WITH EXTENSION IS ASSUMED. */ 01079000 */* */ 01080000 */* MACRO IHADCBDF CONTAINS MACRO-TIME PLS STATEMENTS TO */ 01081000 */* DECLARE AND SET TO 0 ALL THE MACRO VARIABLES FOR IHADCB. */ 01082000 */* YOU SHOULD INCLUDE IHADCBDF, THEN PUT STATEMENTS TO SET */ 01083000 */* THE PROPER MACRO VARIABLES TO 1, AND THEN INCLUDE IHADCB. */ 01084000 */* */ 01085000 */* THE MACRO VARIABLES ARE THE FOLLOWING - */ 01086000 */* */ 01087000 */* DSORGIS - ISAM */ 01088000 */* DSORGDA - BDAM */ 01089000 */* DSORGBX - BTAM LINE GROUP */ 01090000 */* DSORGCX - BTAM AND QTAM LINE GROUPS */ 01091000 */* DSORGQX - QTAM LINE GROUP */ 01092000 */* DSORGQS - QSAM */ 01093000 */* DSORGPS - QSAM AND BSAM-BPAM */ 01094000 */* DSORGBS - BSAM-BPAM */ 01095000 */* DSORGPO - BSAM-BPAM */ 01096000 */* DSORGXA - EXCP WITH APPENDAGES */ 01097000 */* DSORGXE - EXCP WITH EXTENSION */ 01098000 */* DSORGLR - DCBLRECL FIELD ONLY */ 01099000 */* DSORGGS - GRAPHICS WITH APPENDAGES */ 01100000 */* DSORGTX - TCAM LINE GROUP */ 01101000 */* DSORGTQ - TCAM MESSAGE QUEUE */ 01102000 */* DSORGTR - TCAM 3705 S22024*/ 01103000 */* DEVDDA - DIRECT ACCESS */ 01104000 */* DEVDTA - MAGNETIC TAPE */ 01105000 */* DEVDPT - PAPER TAPE */ 01106000 */* DEVDPR - PRINTER */ 01107000 */* DEVDRD - CARD READER */ 01108000 */* DEVDPC - CARD PUNCH */ 01109000 */* DEVDBS - BINARY SYNCHRONOUS COMMUNICATION */ 01110000 */* DEVDWT - WORLD TRADE TELEGRAPH */ 01111000 */* DEVDMR - MAGNETIC CARD READER */ 01112000 */* DEVDOR - OPTICAL READER */ 01113000 */* */ 01114000 */* **************************************************************** */ 01115000 */* OS/VS2 RELEASE 02, 12/13/73 */ 01116000 */* OS/VS2 RELEASE 04, 02/13/75 */ 01117000 */* */ 01118000 */* OS/VS2 RELEASE 04, 06/05/75 */ 01119000 */* **************************************************************** */ 01120000 * 0201 01121000 */* DCB SYMBOLIC DEFINITION FOR */ 01122000 * 0201 01123000 *DECLARE 0201 01124000 * 1 IHADCB BASED(DCBPTR), 0201 01125000 * 2 * CHAR(52); /* DESCRIBED IN FOLLOWING 0201 01126000 * STRUCTURES */ 01127000 * 0201 01128000 */* DEVICE INTERFACES */ 01129000 * 0202 01130000 *DECLARE 1 IHADCS00 0202 01131000 * BASED(ADDR(IHADCB)), 0202 01132000 * 2 DCBRELAD CHAR(4), /* PARTITIONED ORGANIZATION 01133000 * DATA SET - ADDRESS (IN 01134000 * THE FORM TTRN) OF MEMBER 01135000 * CURRENTLY USED. --- 0202 01136000 * SYS1.LOGREC DATA SET - 0202 01137000 * IF CCH OPTION HAS BEEN 01138000 * SPECIFIED IN SYSGEN 0202 01139000 * PROCESS, ADDRESS OF A 0202 01140000 * 12-BYTE PARAMETER IN THE 01141000 * EXPANSION OF MACRO 0202 01142000 * INSTRUCTION IGFCATAP */ 01143000 * 2 DCBKEYCN PTR(8), /* KEYED BLOCK OVERHEAD 0202 01144000 * CONSTANT */ 01145000 * 2 DCBFDAD CHAR(8); /* FULL DISK ADDRESS IN THE 01146000 * FORM OF MBBCCHHR OF 0202 01147000 * RECORD THAT WAS JUST 0202 01148000 * READ OR WRITTEN */ 01149000 * 0202 01150000 *DECLARE 1 IHADCS01 0203 01151000 * BASED(ADDR(DCBFDAD)+7), 0203 01152000 * 2 DCBDVTBL PTR(31), /* SAME AS DCBDVTBA BELOW */ 01153000 * 3 * CHAR(1), /* LAST BYTE OF DCBFDAD */ 01154000 * 3 DCBDVTBA PTR(24), /* ADDRESS OF ENTRY IN I/O 01155000 * DEVICE CHARACTERISTICS 01156000 * TABLE FOR DEVICE BEING 0203 01157000 * USED */ 01158000 * 2 * PTR(8), /* DCBKEYLE - KEY LENGTH OF 01159000 * DATA SET */ 01160000 * 2 * CHAR(1), /* DCBDEVT - DEVICE TYPE */ 01161000 * 2 DCBTRBAL FIXED(15); /* TRACK BALANCE. NUMBER OF 01162000 * BYTES REMAINING ON 0203 01163000 * CURRENT TRACK AFTER A 0203 01164000 * WRITE OPERATION (THIS 0203 01165000 * QUANTITY MAY BE NEGATIVE 01166000 * IF THERE ARE NO BYTES 0203 01167000 * REMAINING ON TRACK). */ 01168000 * 0203 01169000 * 0203 01170000 */* FOUNDATION BEFORE OPEN */ 01171000 * 0204 01172000 *DECLARE 1 IHADCS24 0204 01173000 * BASED(ADDR(IHADCB)+40), 0204 01174000 * 2 DCBDDNAM CHAR(8), /* NAME ON THE DD STATEMENT 01175000 * WHICH DEFINES THE DATA 01176000 * SET ASSOCIATED WITH THIS 01177000 * DCB */ 01178000 * 2 DCBOFLGS CHAR(1), /* FLAGS USED BY OPEN 0204 01179000 * ROUTINE */ 01180000 * 3 DCBOFLWR BIT(1), /* IF ZERO, LAST I/O 0204 01181000 * OPERATION WAS READ OR 0204 01182000 * POINT. IF ONE, LAST I/O 01183000 * OPERATION WAS WRITE. */ 01184000 * 4 DCBOFIOD BIT(1), /* DATA SET IS BEING OPENED 01185000 * FOR INPUT OR OUTPUT 0204 01186000 * (BDAM) */ 01187000 * 3 DCBOFLRB BIT(1), /* LAST I/O OPERATION WAS 0204 01188000 * IN READ BACKWARD MODE */ 01189000 * 3 DCBOFEOV BIT(1), /* SET TO 1 BY EOV WHEN IT 01190000 * CALLS CLOSE ROUTINE FOR 01191000 * CONCATENATION OF DATA 0204 01192000 * SETS WITH UNLIKE 0204 01193000 * ATTRIBUTES */ 01194000 * 3 DCBOFOPN BIT(1), /* AN OPEN HAS BEEN 0204 01195000 * SUCCESSFULLY COMPLETED */ 01196000 * 3 DCBOFPPC BIT(1), /* SET TO 1 BY PROBLEM 0204 01197000 * PROGRAM TO INDICATE A 0204 01198000 * CONCATENATION OF UNLIKE 01199000 * ATTRIBUTES */ 01200000 * 3 DCBOFTM BIT(1), /* TAPE MARK HAS BEEN READ */ 01201000 * 3 DCBOFUEX BIT(1), /* SET TO 0 BY AN I/O 0204 01202000 * SUPPORT FUNCTION WHEN 0204 01203000 * THAT FUNCTION TAKES A 0204 01204000 * USER EXIT. SET TO 1 ON 0204 01205000 * RETURN FROM USER EXIT TO 01206000 * THE I/O SUPPORT 0204 01207000 * FUNCTION WHICH TOOK THE 01208000 * EXIT. */ 01209000 * 3 DCBOFIOF BIT(1), /* SET TO 1 BY AN I/O 0204 01210000 * SUPPORT FUNCTION IF DCB 01211000 * IS TO BE PROCESSED BY 0204 01212000 * THAT FUNCTION */ 01213000 * 2 DCBIFLG CHAR(1), /* FLAGS USED BY IOS IN 0204 01214000 * COMMUNICATING ERROR 0204 01215000 * CONDITIONS AND IN 0204 01216000 * DETERMINING CORRECTIVE 0204 01217000 * PROCEDURES */ 01218000 * 3 DCBIBEC BIT(2), /* ERROR CORRECTION 0204 01219000 * INDICATOR */ 01220000 * 3 DCBIBPCT BIT(2), /* PRINTER CARRIAGE TAPE 0204 01221000 * PUNCH INDICATOR */ 01222000 * 4 DCBICH9 BIT(1), /* CHANNEL 9 @Z40MS11*/ 01223000 * 4 DCBICH12 BIT(1), /* CHANNEL 12 @Z40MS11*/ 01224000 * 3 DCBIBIOE BIT(2), /* IOS ERROR ROUTINE USE 0204 01225000 * INDICATOR */ 01226000 * 3 * BIT(2), /* RESERVED */ 01227000 * 2 DCBMACR CHAR(2), /* MACRO INSTRUCTION 0204 01228000 * REFERENCE */ 01229000 * 3 DCBMACR1 CHAR(1), /* FIRST BYTE OF DCBMACR */ 01230000 * 4 DCBMRECP BIT(1), /* EXECUTE CHANNEL PROGRAM 01231000 * (EXCP) --- ALWAYS ZERO 01232000 * (BSAM, QSAM, BPAM, 0204 01233000 * BISAM, QISAM, BDAM) 0204 01234000 * --- RESERVED (QTAM, 0204 01235000 * BTAM) */ 01236000 * 4 DCBMRFE BIT(1), /* FOUNDATION EXTENSION IS 01237000 * PRESENT (EXCP) */ 01238000 * 5 DCBMRGET BIT(1), /* GET (QSAM, QISAM, TCAM) */ 01239000 * 6 DCBMRPTQ BIT(1), /* PUT FOR MESSAGE GROUP 0204 01240000 * (QTAM) --- ALWAYS ZERO 01241000 * (BSAM, BPAM, BISAM, 0204 01242000 * BDAM) --- RESERVED 0204 01243000 * (BTAM) */ 01244000 * 4 DCBMRAPG BIT(1), /* APPENDAGES ARE REQUIRED 01245000 * (EXCP) */ 01246000 * 5 DCBMRRD BIT(1), /* READ (BSAM, BPAM, BISAM, 01247000 * BDAM, BTAM) */ 01248000 * 6 DCBMRWRQ BIT(1), /* WRITE FOR LINE GROUP 0204 01249000 * (QTAM) --- ALWAYS ZERO 01250000 * (QSAM, QISAM) */ 01251000 * 4 DCBMRCI BIT(1), /* COMMON INTERFACE (EXCP) */ 01252000 * 5 DCBMRMVG BIT(1), /* MOVE MODE OF GET (QSAM, 01253000 * QISAM) */ 01254000 * 6 DCBMRRDK BIT(1), /* KEY SEGMENT WITH READ 0204 01255000 * (BDAM) --- ALWAYS ZERO 01256000 * (BISAM) --- RESERVED 0204 01257000 * (BSAM, BPAM, QTAM, BTAM) */ 01258000 * 4 DCBMRLCG BIT(1), /* LOCATE MODE OF GET 0204 01259000 * (QSAM, QISAM) */ 01260000 * 5 DCBMRRDI BIT(1), /* ID ARGUMENT WITH READ 0204 01261000 * (BDAM) --- ALWAYS ZERO 01262000 * (BISAM) --- RESERVED 0204 01263000 * (EXCP, BSAM, BPAM, QTAM, 01264000 * BTAM) */ 01265000 * 4 DCBMRABC BIT(1), /* USER'S PROGRAM MAINTAINS 01266000 * ACCURATE BLOCK COUNT 0204 01267000 * (EXCP) */ 01268000 * 5 DCBMRPT1 BIT(1), /* POINT (WHICH IMPLIES 0204 01269000 * NOTE) (BSAM, BPAM) */ 01270000 * 6 DCBMRSBG BIT(1), /* SUBSTITUTE MODE OF GET 0204 01271000 * (QSAM) */ 01272000 * 7 DCBMRDBF BIT(1), /* DYNAMIC BUFFERING 0204 01273000 * (BISAM, BDAM) --- 0204 01274000 * ALWAYS ZERO (QISAM) --- 01275000 * RESERVED (QTAM, BTAM) */ 01276000 * 4 DCBMRCRL BIT(1), /* CNTRL (BSAM, QSAM) */ 01277000 * 5 DCBMRCHK BIT(1), /* CHECK (BISAM) */ 01278000 * 6 DCBMRRDX BIT(1), /* READ EXCLUSIVE (BDAM) */ 01279000 * 7 DCBPGFXA BIT(1), /* PAGE FIX APPENDAGE IS 0204 01280000 * SPECIFIED (EXCP) 0204 01281000 * --- RESERVED (BTAM, 0204 01282000 * BPAM, QISAM, QTAM) */ 01283000 * 4 DCBMRDMG BIT(1), /* DATA MODE OF GET (QSAM) */ 01284000 * 5 DCBMRCK BIT(1), /* CHECK (BDAM) --- 0204 01285000 * RESERVED (EXCP, BSAM, 0204 01286000 * BPAM, BISAM, QISAM, 0204 01287000 * QTAM, BTAM) */ 01288000 * 3 DCBMACR2 CHAR(1), /* SECOND BYTE OF DCBMACR */ 01289000 * 4 DCBMRSTL BIT(1), /* SETL (QISAM) --- ALWAYS 01290000 * ZERO (BSAM, QSAM, BPAM, 01291000 * BISAM, BDAM) --- 0204 01292000 * RESERVED (EXCP, QTAM, 0204 01293000 * BTAM) */ 01294000 * 4 DCBMRPUT BIT(1), /* PUT (QSAM, TCAM) - PUT 0204 01295000 * OR PUTX (QISAM) */ 01296000 * 5 DCBMRGTQ BIT(1), /* GET FOR MESSAGE GROUP 0204 01297000 * (QTAM) --- ALWAYS ZERO 01298000 * (BSAM, BPAM, BISAM, 0204 01299000 * BDAM) --- RESERVED 0204 01300000 * (EXCP, BTAM) */ 01301000 * 4 DCBMRWRT BIT(1), /* WRITE (BSAM, BPAM, 0204 01302000 * BISAM, BDAM, BTAM) */ 01303000 * 5 DCBMRRDQ BIT(1), /* READ FOR LINE GROUP 0204 01304000 * (QTAM) --- ALWAYS ZERO 01305000 * (QSAM, QISAM) --- 0204 01306000 * RESERVED (EXCP) */ 01307000 * 4 DCBMRMVP BIT(1), /* MOVE MODE OF PUT (QSAM, 01308000 * QISAM) */ 01309000 * 5 DCBMRWRK BIT(1), /* KEY SEGMENT WITH WRITE 0204 01310000 * (BDAM) --- ALWAYS ZERO 01311000 * (BISAM) --- RESERVED 0204 01312000 * (EXCP, BSAM, BPAM, QTAM, 01313000 * BTAM) */ 01314000 * 4 DCBMR5WD BIT(1), /* FIVE-WORD DEVICE 0204 01315000 * INTERFACE (EXCP) */ 01316000 * 5 DCBMRLDM BIT(1), /* LOAD MODE BSAM (CREATE 0204 01317000 * BDAM DATA SET) (BSAM) */ 01318000 * 6 DCBMRLCP BIT(1), /* LOCATE MODE OF PUT 0204 01319000 * (QSAM, QISAM) */ 01320000 * 7 DCBMRIDW BIT(1), /* ID ARGUMENT WITH WRITE 0204 01321000 * (BDAM) --- ALWAYS ZERO 01322000 * (BISAM) --- RESERVED 0204 01323000 * (BPAM, QTAM, BTAM) */ 01324000 * 4 DCBMR4WD BIT(1), /* FOUR-WORD DEVICE 0204 01325000 * INTERFACE (EXCP) */ 01326000 * 5 DCBMRPT2 BIT(1), /* POINT (WHICH IMPLIES 0204 01327000 * NOTE) (BSAM, BPAM) */ 01328000 * 6 DCBMRTMD BIT(1), /* SUBSTITUTE MODE (QSAM) */ 01329000 * 7 DCBMRUIP BIT(1), /* UPDATE IN PLACE (PUTX) 0204 01330000 * (QISAM) --- ALWAYS ZERO 01331000 * (BISAM) --- RESERVED 0204 01332000 * (BDAM, QTAM, BTAM) */ 01333000 * 4 DCBMR3WD BIT(1), /* THREE-WORD DEVICE 0204 01334000 * INTERFACE (EXCP) */ 01335000 * 5 DCBMRCTL BIT(1), /* CNTRL (BSAM, QSAM) */ 01336000 * 6 DCBMRSTK BIT(1), /* SETL BY KEY (QISAM) */ 01337000 * 7 DCBMRAWR BIT(1), /* ADD TYPE OF WRITE (BDAM) 01338000 * --- ALWAYS ZERO (BISAM) 01339000 * --- RESERVED (BPAM, 0204 01340000 * QTAM, BTAM) */ 01341000 * 4 DCBMR1WD BIT(1), /* ONE-WORD DEVICE 0204 01342000 * INTERFACE (EXCP) */ 01343000 * 5 DCBMRSWA BIT(1), /* USER'S PROGRAM HAS 0204 01344000 * PROVIDED A SEGMENT WORK 01345000 * AREA POOL (BSAM CREATE 0204 01346000 * BDAM, BDAM) */ 01347000 * 6 DCBMRDMD BIT(1), /* DATA MODE (QSAM) */ 01348000 * 7 DCBMRSTI BIT(1); /* SETL BY ID (QISAM) --- 0204 01349000 * ALWAYS ZERO (BISAM) --- 01350000 * RESERVED (BPAM, QTAM, 0204 01351000 * BTAM) */ 01352000 * 0204 01353000 */* FOUNDATION AFTER OPEN */ 01354000 * 0205 01355000 *DECLARE 1 IHADCS25 0205 01356000 * BASED(ADDR(IHADCB)+40), 0205 01357000 * 2 DCBTIOT FIXED(15), /* OFFSET FROM TIOT ORIGIN 01358000 * TO TIOELNGH FIELD IN 0205 01359000 * TIOT ENTRY FOR DD 0205 01360000 * STATEMENT ASSOCIATED 0205 01361000 * WITH THIS DCB */ 01362000 * 2 DCBMACRF CHAR(2), /* SAME AS DCBMACR BEFORE 0205 01363000 * OPEN */ 01364000 * 3 DCBMACF1 CHAR(1), /* FIRST BYTE OF DCBMACRF */ 01365000 * 4 DCBMFECP BIT(1), /* EXECUTE CHANNEL PROGRAM 01366000 * (EXCP) */ 01367000 * 4 DCBMFFE BIT(1), /* FOUNDATION EXTENSION IS 01368000 * PRESENT (EXCP) */ 01369000 * 5 DCBMFGET BIT(1), /* GET (QSAM, QISAM, TCAM) */ 01370000 * 6 DCBMFPTQ BIT(1), /* PUT FOR MESSAGE GROUP 0205 01371000 * (QTAM) */ 01372000 * 4 DCBMFAPG BIT(1), /* APPENDAGES ARE REQUIRED 01373000 * (EXCP) */ 01374000 * 5 DCBMFRD BIT(1), /* READ (BSAM, BPAM, BISAM, 01375000 * BDAM, BTAM) */ 01376000 * 6 DCBMFWRQ BIT(1), /* WRITE FOR LINE GROUP 0205 01377000 * (QTAM) */ 01378000 * 4 DCBMFCI BIT(1), /* COMMON INTERFACE (EXCP) */ 01379000 * 5 DCBMFMVG BIT(1), /* MOVE MODE OF GET (QSAM, 01380000 * QISAM) */ 01381000 * 6 DCBMFRDK BIT(1), /* KEY SEGMENT WITH READ 0205 01382000 * (BDAM) */ 01383000 * 4 DCBMFLCG BIT(1), /* LOCATE MODE OF GET 0205 01384000 * (QSAM, QISAM) */ 01385000 * 5 DCBMFRDI BIT(1), /* ID ARGUMENT WITH READ 0205 01386000 * (BDAM) */ 01387000 * 4 DCBMFABC BIT(1), /* USER'S PROGRAM MAINTAINS 01388000 * ACCURATE BLOCK COUNT 0205 01389000 * (EXCP) */ 01390000 * 5 DCBMFPT1 BIT(1), /* POINT (WHICH IMPLIES 0205 01391000 * NOTE) (BSAM, BPAM) */ 01392000 * 6 DCBMFSBG BIT(1), /* SUBSTITUTE MODE OF GET 0205 01393000 * (QSAM) */ 01394000 * 7 DCBMFDBF BIT(1), /* DYNAMIC BUFFERING 0205 01395000 * (BISAM, BDAM) */ 01396000 * 4 DCBMFCRL BIT(1), /* CNTRL (BSAM, QSAM) */ 01397000 * 5 DCBMFCHK BIT(1), /* CHECK (BISAM) */ 01398000 * 6 DCBMFRDX BIT(1), /* READ EXCLUSIVE (BDAM) */ 01399000 * 4 DCBMFDMG BIT(1), /* DATA MODE OF GET (QSAM) */ 01400000 * 5 DCBMFCK BIT(1), /* CHECK (BDAM) */ 01401000 * 3 DCBMACF2 CHAR(1), /* SECOND BYTE OF DCBMACRF */ 01402000 * 4 DCBMFSTL BIT(1), /* SETL (QISAM) */ 01403000 * 4 DCBMFPUT BIT(1), /* PUT (QSAM, TCAM) - PUT 0205 01404000 * OR PUTX (QISAM) */ 01405000 * 5 DCBMFGTQ BIT(1), /* GET FOR MESSAGE GROUP 0205 01406000 * (QTAM) */ 01407000 * 4 DCBMFWRT BIT(1), /* WRITE (BSAM, BPAM, 0205 01408000 * BISAM, BDAM, BTAM) */ 01409000 * 5 DCBMFRDQ BIT(1), /* READ FOR LINE GROUP 0205 01410000 * (QTAM) */ 01411000 * 4 DCBMFMVP BIT(1), /* MOVE MODE OF PUT (QSAM, 01412000 * QISAM) */ 01413000 * 5 DCBMFWRK BIT(1), /* KEY SEGMENT WITH WRITE 0205 01414000 * (BDAM) */ 01415000 * 4 DCBMF5WD BIT(1), /* FIVE-WORD DEVICE 0205 01416000 * INTERFACE (EXCP) */ 01417000 * 5 DCBMFLDM BIT(1), /* LOAD MODE BSAM (CREATE 0205 01418000 * BDAM DATA SET) (BSAM) */ 01419000 * 6 DCBMFLCP BIT(1), /* LOCATE MODE OF PUT 0205 01420000 * (QSAM, QISAM) */ 01421000 * 7 DCBMFIDW BIT(1), /* ID ARGUMENT WITH WRITE 0205 01422000 * (BDAM) */ 01423000 * 4 DCBMF4WD BIT(1), /* FOUR-WORD DEVICE 0205 01424000 * INTERFACE (EXCP) */ 01425000 * 5 DCBMFPT2 BIT(1), /* POINT (WHICH IMPLIES 0205 01426000 * NOTE) (BSAM, BPAM) */ 01427000 * 6 DCBMFTMD BIT(1), /* SUBSTITUTE MODE (QSAM) */ 01428000 * 7 DCBMFUIP BIT(1), /* UPDATE IN PLACE (PUTX) 0205 01429000 * (QISAM) */ 01430000 * 4 DCBMF3WD BIT(1), /* THREE-WORD DEVICE 0205 01431000 * INTERFACE (EXCP) */ 01432000 * 5 DCBMFCTL BIT(1), /* CNTRL (BSAM, QSAM) */ 01433000 * 6 DCBMFSTK BIT(1), /* SETL BY KEY (QISAM) */ 01434000 * 7 DCBMFAWR BIT(1), /* ADD TYPE OF WRITE (BDAM) */ 01435000 * 4 DCBMF1WD BIT(1), /* ONE-WORD DEVICE 0205 01436000 * INTERFACE (EXCP) */ 01437000 * 5 DCBMFSWA BIT(1), /* USER'S PROGRAM HAS 0205 01438000 * PROVIDED A SEGMENT WORK 01439000 * AREA POOL (BSAM CREATE 0205 01440000 * BDAM, BDAM) */ 01441000 * 6 DCBMFDMD BIT(1), /* DATA MODE (QSAM) */ 01442000 * 7 DCBMFSTI BIT(1), /* SETL BY ID (QISAM) */ 01443000 * 2 DCBDEBAD PTR(31), /* ADDRESS OF ASSOCIATED 0205 01444000 * DEB */ 01445000 * 3 DCBIFLGS CHAR(1), /* SAME AS DCBIFLG BEFORE 0205 01446000 * OPEN */ 01447000 * 4 DCBIFEC BIT(2), /* ERROR CORRECTION 0205 01448000 * INDICATOR */ 01449000 * 4 DCBIFPCT BIT(2), /* PRINTER CARRIAGE TAPE 0205 01450000 * PUNCH INDICATOR */ 01451000 * 5 DCBCH9 BIT(1), /* CHANNEL 9 @Z40MS11*/ 01452000 * 5 DCBCH12 BIT(1), /* CHANNEL 12 @Z40MS11*/ 01453000 * 4 DCBIFIOE BIT(2), /* IOS ERROR ROUTINE USE 0205 01454000 * INDICATOR */ 01455000 * 4 * BIT(2), /* RESERVED */ 01456000 * 3 DCBDEBA PTR(24); /* ADDRESS OF ASSOCIATED 0205 01457000 * DEB */ 01458000 * 0205 01459000 */* EXCP WITH EXTENSION OR APPENDAGES */ 01460000 * 0206 01461000 *DECLARE 1 IHADCS28 0206 01462000 * BASED(ADDR(IHADCB)+52), 0206 01463000 * 2 DCBOPTCD CHAR(1), /* OPTION CODES */ 01464000 * 3 * BIT(5), /* RESERVED */ 01465000 * 3 DCBOPTZ BIT(1), /* MAGNETIC TAPE DEVICES - 01466000 * USE REDUCED ERROR 0206 01467000 * RECOVERY PROCEDURE 0206 01468000 * (EXCP, BSAM, BPAM, QSAM) */ 01469000 * 4 DCBSRCHD BIT(1), /* USE SEARCH DIRECT, 0206 01470000 * INSTEAD OF SEARCH 0206 01471000 * PREVIOUS, ON RECORD 0206 01472000 * POSITION SENSING DEVICE 01473000 * (EXCP, BSAM, BPAM, QSAM) 01474000 * ICB217*/ 01475000 * 3 * BIT(2), /* RESERVED */ 01476000 * 2 * CHAR(7); /* RESERVED */ 01477000 * 0206 01478000 *DECLARE 1 IHADCS44 0207 01479000 * BASED(ADDR(IHADCB)+60), 0207 01480000 * 2 DCBEOEA CHAR(2), /* END OF EXTENT APPENDAGE 01481000 * ID */ 01482000 * 2 DCBPCIA CHAR(2), /* PROGRAM CONTROLLED 0207 01483000 * INTERRUPTION APPENDAGE 01484000 * ID */ 01485000 * 2 DCBSIOA CHAR(2), /* START I/O APPENDAGE ID */ 01486000 * 2 DCBCENDA CHAR(2), /* CHANNEL END APPENDAGE ID */ 01487000 * 2 DCBXENDA CHAR(2), /* ABNORMAL END APPENDAGE 0207 01488000 * ID */ 01489000 * 2 * CHAR(2); /* RESERVED */ 01490000 * 0207 01491000 * 0208 01492000 * 0208 01493000 */* **************************************************************** */ 01494000 */* */ 01495000 */* ***** DATA EXTENT BLOCK ***** */ 01496000 */* */ 01497000 */* OS/VS2 RELEASE 4, 12/05/75, LEVEL=10 */ 01498000 */* */ 01499000 */* METHOD OF ACCESS */ 01500000 */* PL/S - DCL (DEBPTR,DEBDAPTR,DEBEXPTR,DEBSBPTR) PTR */ 01501000 */* BAL - FIVE DSECTS ARE PRODUCED. USING ON A DSECT NAME */ 01502000 */* GIVES ADDRESSABILITY FOR ALL SYMBOLS WITHIN THAT */ 01503000 */* DSECT. THE DSECT NAMES AND THE SECTIONS WITHIN EACH */ 01504000 */* DSECT ARE */ 01505000 */* */ 01506000 */* DEB *** APPENDAGE VECTOR TABLE SECTION */ 01507000 */* PREFIX TABLE */ 01508000 */* BASIC SECTION */ 01509000 */* UNIT RECORD, MAGNETIC TAPE AND */ 01510000 */* TELECOMMUNICATIONS DEVICES SECTION */ 01511000 */* 3540 ACCESS METHOD DEPENDENT SECTN @X04AA9A*/ 01512000 */* ISAM DEPENDENT SECTION */ 01513000 */* *** POINTERS TO THE DEB IN OTHER CONTROL */ 01514000 */* BLOCKS SUCH AS DCB POINT TO THE BASIC */ 01515000 */* SECTION. USING ON DEBBASIC GIVES */ 01516000 */* ADDRESSABILITY FOR BASIC SECTION AND */ 01517000 */* NEXT TWO SECTIONS. DEBAPPAD IN BASIC */ 01518000 */* SECTION CONTAINS ADDRESS OF APPENDAGE */ 01519000 */* VECTOR TABLE (AVT) SECTION. PREFIX */ 01520000 */* FOLLOWS AVT SECTION. */ 01521000 */* DEBDASD DIRECT ACCESS STORAGE DEVICE SECTION */ 01522000 */* DEBACSMD EXCP, BSAM AND QSAM DEPENDENT SECTION */ 01523000 */* BPAM DEPENDENT SECTION */ 01524000 */* BDAM DEPENDENT SECTION */ 01525000 */* BTAM DEPENDENT SECTION */ 01526000 */* GAM DEPENDENT SECTION */ 01527000 */* ISAM LOAD MODE EXTENSION ** */ 01528000 */* ISAM SCAN MODE EXTENSION ** */ 01529000 */* BISAM MODE EXTENSION ** */ 01530000 */* ** FOR THESE 3 EXTENSIONS, LOAD REGISTER */ 01531000 */* FROM DEBEXPT IN ISAM DEPENDENT SECTION */ 01532000 */* TO SET REGISTER FOR USING. */ 01533000 */* DEBSUBNM SUBROUTINE NAME SECTION */ 01534000 */* DEBXTN EXTENSION FOR OS/VS2 */ 01535000 */* */ 01536000 */* WHEN LISTING IS SUPPRESSED, YOU CAN DETERMINE WHICH */ 01537000 */* DSECT A SYNBOL IS IN BY USING THE STARTMENT NUMBER */ 01538000 */* IN THE DEFN COLUMN IN THE CROSS REFERENCE LISTING. */ 01539000 */* FOR EXAMPLE, ANY SYMBOL DEFINED BETWEEN THE */ 01540000 */* STATEMENT NUMBERS FOR DEBDASD AND DEBACSMD IS IN */ 01541000 */* THE DIRECT ACCESS STORAGE DEVICE SECTION. */ 01542000 */* */ 01543000 */* F.E.'S */ 01544000 */* MICROFICHE LISTING - IEZDEB */ 01545000 */* */ 01546000 */* DEVELOPERS */ 01547000 */* BAL LISTING - SPECIFY LIST=YES ON MACRO CALL */ 01548000 */* PL/S LISTING - SPECIFY %IHALIST='YES' BEFORE INCLUDE */ 01549000 */* */ 01550000 */* FOR INTEGRATION, A LISTING SHOULD NOT BE REQUESTED. */ 01551000 */* */ 01552000 */* FUNCTION */ 01553000 */* THE DATA EXTENT BLOCK (DEB) CONTAINS AN EXTENSION OF */ 01554000 */* INFORMATION IN THE DCB. EACH DEB IS ASSOCIATED WITH A */ 01555000 */* DCB, AND THE TWO POINT TO EACH OTHER. THE DEB CONTAINS */ 01556000 */* INFORMATION CONCERNING THE PHYSICAL CHARACTERISTICS OF */ 01557000 */* THE DATA SET AND OTHER INFORMATION THAT IS USED BY THE */ 01558000 */* CONTROL PROGRAM. */ 01559000 */* */ 01560000 */* **************************************************************** */ 01561000 * 0208 01562000 * /* *************************************************************** */ 01563000 * /* DEB BASIC SECTION */ 01564000 * /* *************************************************************** */ 01565000 * 0208 01566000 * DECLARE 0208 01567000 * 1 DEBBASIC BASED(DEBPTR) BDY(WORD), 0208 01568000 * 3 DEBTCBAD PTR(31), /* ADDRESS OF TCB FOR THIS DEB */ 01569000 * 4 DEBNMSUB CHAR(1), /* NUMBER OF SUBROUTINES LOADED 01570000 * BY OPEN EXECUTOR ROUTINES */ 01571000 * 4 DEBTCBB PTR(24), /* ADDRESS OF TCB FOR THIS DEB */ 01572000 * 3 DEBDEBAD PTR(31), /* ADDRESS OF THE NEXT DEB IN 0208 01573000 * THE SAME TASK */ 01574000 * 4 DEBAMLNG CHAR(1), /* NUMBER OF BYTES IN THE ACCESS 01575000 * METHOD DEPENDENT SECTION. 0208 01576000 * FOR BDAM THIS FIELD CONTAINS 01577000 * THE LENGTH EXPRESSED IN 0208 01578000 * NUMBER OF WORDS */ 01579000 * 4 DEBDEBB PTR(24), /* *** SAME AS DEBDEBAD ABOVE */ 01580000 * 3 DEBIRBAD PTR(31), /* IRB STORAGE ADDRESS USED FOR 01581000 * APPENDAGE ASYNCHRONOUS EXITS */ 01582000 * 4 DEBOFLGS CHAR(1), /* DATA SET STATUS FLAGS */ 01583000 * 5 DEBDISP BIT(2), /* DATA SET DISPOSITION FLAGS */ 01584000 * 5 DEBEOF BIT(1), /* END-OF-FILE (EOF) ENCOUNTERED 01585000 * (TAPE INPUT) 0208 01586000 * FORMAT 1 DSCB BIT 93.0 0208 01587000 * INDICATES THAT THE CURRENT 0208 01588000 * VOLUME IS THE LAST VOLUME OF 01589000 * THE DATA SET (DASD INPUT) */ 01590000 * 5 DEBRLSE BIT(1), /* RELEASE UNUSED EXTERNAL 0208 01591000 * STORAGE (DASD) 0208 01592000 * EMULATOR TAPE WITH SECOND 0208 01593000 * GENERATION FORMAT. TAPE MAY 01594000 * CONTAIN BLOCKS SHORTER THAN 01595000 * 12 CHARACTERS (TAPE) */ 01596000 * 5 DEBDCB BIT(1), /* DCB MODIFICATION */ 01597000 * 5 DEBSPLIT BIT(1), /* SPLIT CYLINDER (DASD) 0208 01598000 * 7-TRACK EMULATOR TAPE WITH 0208 01599000 * POSSIBLE MIXED PARITY RECORDS 01600000 * (TAPE) */ 01601000 * 5 DEBLABEL BIT(1), /* NONSTANDARD LABELS */ 01602000 * 5 DEBRERR BIT(1), /* USE REDUCED ERROR RECOVERY 0208 01603000 * PROCEDURE (TAPE) 0208 01604000 * CONCATENATED PARTITIONED 0208 01605000 * ORGANIZATION DATA SETS 0208 01606000 * PROCESSED USING BPAM (DASD) */ 01607000 * 4 DEBIRBB PTR(24), /* *** SAME AS DEBIRBAD ABOVE */ 01608000 * 3 DEBOPATB CHAR(1), /* FLAGS INDICATING BOTH THE 0208 01609000 * METHOD OF I/O PROCESSING AND 01610000 * THE DISPOSITION THAT IS TO BE 01611000 * PERFORMED WHEN AN END-OF-VOLUME 01612000 * (EOV) CONDITION OCCURS */ 01613000 * 4 DEBABEND BIT(1), /* SET BY ABEND INDICATING A 0208 01614000 * SYSABEND OR SYSUDUMP DATA 0208 01615000 * SET (OS/VS2) */ 01616000 * 4 DEBZERO BIT(1), /* ALWAYS ZERO */ 01617000 * 4 DEBPOSIT BIT(2), /* DATA SET POSITIONING FLAGS */ 01618000 * 4 DEBACCS BIT(4), /* TYPE OF I/O ACCESSING BEING 01619000 * DONE */ 01620000 * 3 DEBQSCNT CHAR(1), /* PURGE (SVC 16) - QUIESCE 0208 01621000 * COUNT. NUMBER OF DEVICES 0208 01622000 * EXECUTING USER'S CHANNEL 0208 01623000 * PROGRAMS, AS SHOWN BY BITS 5 01624000 * AND 6 OF UCBFL1 FIELDS */ 01625000 * 3 DEBFLGS1 CHAR(1), /* FLAG FIELD */ 01626000 * 4 DEBPWCKD BIT(1), /* PASSWORD WAS SUPPLIED DURING 01627000 * OPEN. EOV WILL NOT REQUEST A 01628000 * PASSWORD FOR EACH ADDITIONAL 01629000 * VOLUME OF A MULTIVOLUME DATA 01630000 * SET */ 01631000 * 4 DEBEOFDF BIT(1), /* SET BY EOV TO INFORM CLOSE 0208 01632000 * THAT AN END-OF-FILE HAS BEEN 01633000 * ENCOUNTERED AND, THEREFORE, 01634000 * DEFERRED LABEL PROCESSING IS 01635000 * ALLOWED */ 01636000 * 4 DEBRSIOA BIT(1), /* SIO APPENDAGE RE-ENTRY 0208 01637000 * AUTHORIZATION BIT (OS/VS1) 0208 01638000 * (MDC331) @XM06077*/ 01639000 * 4 DEBRSV02 BIT(1), /* RESERVED */ 01640000 * 4 DEBCINDI BIT(1), /* DCB ASSOCIATED WITH THIS DEB 01641000 * IS BEING PROCESSED BY THE 0208 01642000 * COMPATIBILITY INTERFACE 0208 01643000 * ROUTINES (VSAM) ICB462*/ 01644000 * 4 DEBF1CEV BIT(1), /* EOV PROCESSING OCCURRED 0208 01645000 * DURING CLOSE PROCESSING. 0208 01646000 * TESTED AND SET TO ZERO BY 0208 01647000 * CLOSE, SET TO ONE BY EOV. 0208 01648000 * (ICB353) A42228*/ 01649000 * 4 DEBAPFIN BIT(1), /* IF ON, AUTHORIZED PROGRAMS 0208 01650000 * CAN BE LOADED MDC001*/ 01651000 * 4 DEBXTNIN BIT(1), /* IF ONE, DEB EXTENSION EXISTS 01652000 * (OS/VS2) MDC007*/ 01653000 * 3 DEBRSV05 CHAR(1), /* RESERVED */ 01654000 * 3 DEBUSRPG PTR(31), /* ADDRESS OF FIRST IOB IN THE 01655000 * USER PURGE CHAIN (OS/VS1) 0208 01656000 * ADDRESS OF PURGED I/O RESTORE 01657000 * LIST (PIRL) (OS/VS2) 0208 01658000 * (MDC029) YM3158*/ 01659000 * 4 DEBNMEXT CHAR(1), /* NUMBER OF EXTENTS SPECIFIED 01660000 * IN DSCB'S */ 01661000 * 4 DEBUSRPB PTR(24), /* *** SAME AS DEBUSRPG ABOVE */ 01662000 * 3 DEBRRQ PTR(31), /* POINTER TO RELATED REQUEST 0208 01663000 * QUEUE (OS/VS2) MDC026*/ 01664000 * 4 DEBECBAD PTR(31), /* ADDRESS OF A PARAMETER LIST 01665000 * USED TO LOCATE THE PURGE ECB 01666000 * FOR AN SVC PURGE REQUEST 0208 01667000 * (OS/VS1) MDC025*/ 01668000 * 5 DEBPRIOR CHAR(1), /* PRIORITY OF THE TASK OWNING 01669000 * DEB */ 01670000 * 5 DEBECBB PTR(24), /* *** SAME AS DEBECBAD ABOVE */ 01671000 * 3 DEBDCBAD PTR(31), /* ADDRESS OF DCB ASSOCIATED 0208 01672000 * WITH THIS DEB */ 01673000 * 4 DEBPROTG CHAR(1), /* TASK PROTECTION KEY IN HIGH- 01674000 * ORDER 4 BITS */ 01675000 * 5 DEBDEBID CHAR(1), /* A HEX F IN LOW-ORDER 4 BITS 01676000 * TO IDENTIFY THIS BLOCK AS A 01677000 * DEB */ 01678000 * 4 DEBDCBB PTR(24), /* *** SAME AS DEBDCBAD ABOVE */ 01679000 * 3 DEBAPPAD PTR(31), /* ADDRESS OF THE I/O APPENDAGE 01680000 * VECTOR TABLE */ 01681000 * 4 DEBEXSCL CHAR(1), /* EXTENT SCALE- 4 FOR DIRECT 0208 01682000 * ACCESS DEVICE AND 3525 CARD 01683000 * PUNCH WITH DEVICE-ASSOCIATED 01684000 * DATA SET SUPPORT AND 2 FOR 0208 01685000 * NONDIRECT ACCESS DEVICE AND 01686000 * COMMUNICATION DEVICE. THIS 01687000 * FIELD IS USED TO DETERMINE 0208 01688000 * THE SIZE OF THE DEVICE 0208 01689000 * DEPENDENT SECTION ICB394*/ 01690000 * 4 DEBAPPB PTR(24), /* *** SAME AS DEBAPPAD ABOVE */ 01691000 * 3 DEBBASND CHAR(0) BDY(WORD); 0208 01692000 * 0208 01693000 * /* *************************************************************** */ 01694000 * /* UNIT RECORD, MAGNETIC TAPE, TELECOMMUNICATIONS DEVICES SECTION*/ 01695000 * /* */ 01696000 * /* NOTE FOR TELECOMMUNICATIONS DEVICES, THE UCB ADDRESS */ 01697000 * /* IS REPEATED FOR EACH LINE ASSIGNED */ 01698000 * /* *************************************************************** */ 01699000 * 0209 01700000 * DECLARE 1 DEBBAS02 0209 01701000 * DEF(DEBBASND) BDY(WORD), 0209 01702000 * 3 DEBDDS1 BDY(WORD), 0209 01703000 * 4 DEBSUCBA PTR(31), /* ADDRESS OF UCB ASSOCIATED 0209 01704000 * WITH A GIVEN DATA SET */ 01705000 * 5 DEBSDVM CHAR(1), /* DEVICE MODIFIER. FOR MAGNETIC 01706000 * TAPE, SET MODE OPERATION CODE. 01707000 * FOR UNIT RECORD, NOT USED. */ 01708000 * 5 DEBSUCBB PTR(24), /* *** SAME AS DEBSUCBA ABOVE */ 01709000 * 4 DEBDEVED CHAR(0) BDY(WORD), /* END OF COMMON UNIT RECORD 0209 01710000 * FIELDS (MDC330) @X04AA9A*/ 01711000 * 0209 01712000 * /* THE FOLLOWING FIELDS ARE PRESENT ONLY FOR THE 3525 WITH */ 01713000 * /* DEVICE-ASSOCIATED DATA SET SUPPORT */ 01714000 * 0209 01715000 * 4 DEBRDCB PTR(31), /* ADDRESS OF DCB FOR THE READ 01716000 * ASSOCIATED DATA SET ICB394*/ 01717000 * 5 DEBRSV06 CHAR(1), /* RESERVED ICB394*/ 01718000 * 5 DEBRDCBA PTR(24), /* SAME AS DEBRDCB ABOVE ICB394*/ 01719000 * 4 DEBPDCB PTR(31), /* ADDRESS OF DCB FOR THE PUNCH 01720000 * ASSOCIATED DATA SET ICB394*/ 01721000 * 5 DEBRSV07 CHAR(1), /* RESERVED ICB394*/ 01722000 * 5 DEBPDCBA PTR(24), /* SAME AS DEBPDCB ABOVE ICB394*/ 01723000 * 4 DEBWDCB PTR(31), /* ADDRESS OF DCB FOR THE PRINT 01724000 * ASSOCIATED DATA SET ICB394*/ 01725000 * 5 DEBRSV08 CHAR(1), /* RESERVED ICB394*/ 01726000 * 5 DEBWDCBA PTR(24); /* SAME AS DEBWDCB ABOVE ICB394*/ 01727000 * 0209 01728000 * 0209 01729000 * /* *************************************************************** */ 01730000 * /* 3540 ACCESS METHOD DEPENDENT SECTION @X04AA9A*/ 01731000 * /* (OS/VS1 ONLY) @X04AA9A*/ 01732000 * /* */ 01733000 * /* NOTE THIS SECTION FOLLOWS DEBSUCBA IN UNIT RECORD, */ 01734000 * /* MAGNETIC TAPE, TELECOMMUNICATIONS DEVICES SECTION */ 01735000 * /* IF DEB IS FOR 3540 DEVICE. @X04AA9A*/ 01736000 * /* *************************************************************** */ 01737000 * 0210 01738000 * DECLARE 1 DEBACS09 0210 01739000 * DEF(DEBDEVED) BDY(WORD), /* @X04AA9A*/ 01740000 * 2 DEBASC09 CHAR(16) BDY(WORD), /* 3540 ACCESS METHOD DEPENDENT 01741000 * SECTION (MDC317) @X04AA9A*/ 01742000 * 3 DEBVOLAC CHAR(1), /* VOLUME ACCESSABILITY 0210 01743000 * INDICATOR (MDC327) @X04AA9A*/ 01744000 * 3 DEBDSSQL CHAR(1), /* DATA SET SECURITY QUALIFIER 01745000 * (MDC328) @X04AA9A*/ 01746000 * 3 DEBVSEQU PTR(8), /* VOLUME SEQUENCE NUMBER 0210 01747000 * (MDC318) @X04AA9A*/ 01748000 * 3 DEBEAMFG BIT(8), /* FLAG BYTE (MDC319) @X04AA9A*/ 01749000 * 4 DEBMULTI BIT(1), /* MULTI-VOLUME INDICATOR 0210 01750000 * (MDC320) @X04AA9A*/ 01751000 * 4 DEBDSOPN BIT(1), /* DATA SET IS OPEN 0210 01752000 * (MDC321) @X04AA9A*/ 01753000 * 4 DEBVAMSG BIT(1), /* VOLUME ACCESSABILITY MESSAGE 01754000 * HAS BEEN ISSUED (MDC329) 0210 01755000 * @X04AA9A*/ 01756000 * 4 DEBSECVL BIT(1), /* SECURE VOLUME (MDC332) 0210 01757000 * @X04AA9A*/ 01758000 * 4 DEBRV004 BIT(1), /* RESERVED @X04AA9A*/ 01759000 * 4 DEBRV005 BIT(1), /* RESERVED @X04AA9A*/ 01760000 * 4 DEBRV006 BIT(1), /* RESERVED @X04AA9A*/ 01761000 * 4 DEBRV007 BIT(1), /* RESERVED @X04AA9A*/ 01762000 * 3 DEBDSID CHAR(8), /* DATA SET IDENTIFIER (DSID) 0210 01763000 * (INPUT) (MDC305) @X04AA9A*/ 01764000 * 4 DEBEXDTE CHAR(6), /* EXPIRATION DATE (OUTPUT) 0210 01765000 * (MDC333) @X04AA9A*/ 01766000 * 4 DEBWTPTI CHAR(1), /* WRITE PROTECT INDICATOR 0210 01767000 * (OUTPUT) (MDC334) @X04AA9A*/ 01768000 * 4 DEBRV008 CHAR(1), /* RESERVED (OUTPUT) (MDC335) 01769000 * @X04AA9A*/ 01770000 * 3 DEBEOD CHAR(4) BDY(WORD), /* END OF DATA (EOD) ADDRESS 0210 01771000 * (INPUT) (MDC306) @X04AA9A*/ 01772000 * 4 DEBBOE CHAR(4) BDY(WORD), /* BEGINNING OF EXTENT (BOE) 0210 01773000 * ADDRESS (OUTPUT) (MDC322) 0210 01774000 * @X04AA9A*/ 01775000 * 5 DEBEODRV PTR(8), /* RESERVED (MDC307) @X04AA9A*/ 01776000 * 6 DEBBOERV PTR(8), /* RESERVED (MDC323) @X04AA9A*/ 01777000 * 5 DEBEODTT PTR(8), /* EOD TRACK NUMBER 0210 01778000 * (MDC308) @X04AA9A*/ 01779000 * 6 DEBBOETT PTR(8), /* BOE TRACK NUMBER 0210 01780000 * (MDC324) @X04AA9A*/ 01781000 * 5 DEBEOD0 PTR(8), /* MUST BE ZERO 0210 01782000 * (MDC309) @X04AA9A*/ 01783000 * 6 DEBBOE0 PTR(8), /* MUST BE ZERO 0210 01784000 * (MDC325) @X04AA9A*/ 01785000 * 5 DEBEODSS PTR(8), /* EOD SECTOR NUMBER 0210 01786000 * (MDC310) @X04AA9A*/ 01787000 * 6 DEBBOESS PTR(8); /* BOE SECTOR NUMBER 0210 01788000 * (MDC326) @X04AA9A*/ 01789000 * 0210 01790000 * 0210 01791000 * /* *************************************************************** */ 01792000 * /* DEB ISAM DEPENDENT SECTION */ 01793000 * /* */ 01794000 * /* NOTE PRESENT ONLY IF ISAM IS USED. FOLLOWS THE BASIC */ 01795000 * /* SECTION AND PRECEDES THE DIRECT ACCESS STORAGE */ 01796000 * /* DEVICE SECTION. COUNTED AS ONE EXTENT IN DEBNMEXT. */ 01797000 * /* *************************************************************** */ 01798000 * 0211 01799000 * DECLARE 1 DEBBAS01 0211 01800000 * DEF(DEBBASND) BDY(WORD), 0211 01801000 * 2 DEBISAM BDY(WORD), 0211 01802000 * 3 DEBFIEAD PTR(31), /* ADDRESS OF FIRST INDEX 0211 01803000 * EXTENT */ 01804000 * 4 DEBNIEE CHAR(1), /* NUMBER OF EXTENTS OF 0211 01805000 * INDEPENDENT INDEX AREA */ 01806000 * 4 DEBFIEB PTR(24), /* *** SAME AS DEBFIEAD ABOVE */ 01807000 * 3 DEBFPEAD PTR(31), /* ADDRESS OF THE FIRST PRIME 0211 01808000 * DATA EXTENT */ 01809000 * 4 DEBNPEE CHAR(1), /* NUMBER OF EXTENTS OF PRIME 0211 01810000 * DATA AREA (M=0 EXTENT) */ 01811000 * 4 DEBFPEB PTR(24), /* *** SAME AS DEBFPEAD ABOVE */ 01812000 * 3 DEBFOEAD PTR(31), /* ADDRESS OF THE FIRST 0211 01813000 * OVERFLOW EXTENT */ 01814000 * 4 DEBNOEE CHAR(1), /* NUMBER OF EXTENTS OF 0211 01815000 * INDEPENDENT OVERFLOW AREA */ 01816000 * 4 DEBFOEB PTR(24), /* *** SAME AS DEBFOEAD ABOVE */ 01817000 * 3 DEBEXPT PTR(31), /* ADDRESS OF ISAM DEB 0211 01818000 * EXTENSION ICB379*/ 01819000 * 4 DEBRPSID BIT(8), /* ROTATIONAL POSITION SENSING 01820000 * (RPS) DEVICE INDICATORS */ 01821000 * 5 DEBRPSP BIT(1), /* PRIME DATA AREA IS ON RPS 0211 01822000 * DEVICE */ 01823000 * 5 DEBRPSI BIT(1), /* INDEPENDENT INDEX AREA IS ON 01824000 * RPS DEVICE */ 01825000 * 5 DEBRPSO BIT(1), /* INDEPENDENT OVERFLOW AREA IS 01826000 * ON RPS DEVICE */ 01827000 * 5 DEBRPSAP BIT(1), /* RPS SIO APPENDAGE HAS BEEN 0211 01828000 * LOADED */ 01829000 * 5 DEBRSV09 BIT(1), /* RESERVED */ 01830000 * 5 DEBRSV10 BIT(1), /* RESERVED */ 01831000 * 5 DEBRSV11 BIT(1), /* RESERVED */ 01832000 * 5 DEBRSV12 BIT(1), /* RESERVED */ 01833000 * 4 DEBEXPTA PTR(24); /* SAME AS DEBEXPT ABOVE ICB379*/ 01834000 * 0211 01835000 * /* *************************************************************** */ 01836000 * /* DIRECT ACCESS STORAGE DEVICE SECTION */ 01837000 * /* */ 01838000 * /* NOTE IF ISAM IS BEING USED, THIS SECTION FOLLOWS THE */ 01839000 * /* ISAM DEVICE DEPENDENT SECTION. OTHERWISE, IT */ 01840000 * /* FOLLOWS THE BASIC SECTION. */ 01841000 * /* */ 01842000 * /* THERE IS ONE OF THESE SECTIONS FOR EACH EXTENT. */ 01843000 * /* *************************************************************** */ 01844000 * 0212 01845000 * DECLARE 0212 01846000 * 1 DEBDASD BASED(DEBDAPTR) BDY(WORD), 0212 01847000 * 3 DEBUCBAD PTR(31), /* ADDRESS OF UCB ASSOCIATED 0212 01848000 * WITH THIS DATA EXTENT */ 01849000 * 4 DEBDVMOD CHAR(1), /* DEVICE MODIFIER - FILE MASK */ 01850000 * 4 DEBUCBA PTR(24), /* *** SAME AS DEBUCBAD ABOVE */ 01851000 * 3 DEBBINUM CHAR(2), /* BIN NUMBER */ 01852000 * 3 DEBSTRCC CHAR(2), /* CYLINDER ADDRESS FOR THE 0212 01853000 * START OF AN EXTENT LIMIT */ 01854000 * 3 DEBSTRHH CHAR(2), /* READ/WRITE TRACK ADDRESS FOR 01855000 * THE START OF AN EXTENT LIMIT */ 01856000 * 3 DEBENDCC CHAR(2), /* CYLINDER ADDRESS FOR THE END 01857000 * OF AN EXTENT LIMIT */ 01858000 * 3 DEBENDHH CHAR(2), /* READ/WRITE TRACK ADDRESS FOR 01859000 * THE END OF AN EXTENT LIMIT */ 01860000 * 3 DEBNMTRK CHAR(2); /* NUMBER OF TRACKS ALLOCATED 0212 01861000 * TO A GIVEN EXTENT. FOR SPLIT 01862000 * CYLINDER DATA SETS, THIS 0212 01863000 * FIELD REPRESENTS THE NUMBER 01864000 * OF TRACKS BETWEEN THE START 01865000 * ADDRESS OF THE EXTENT AND THE 01866000 * END ADDRESS OF THE EXTENT. */ 01867000 * 0212 01868000 * 0212 01869000 * /* *************************************************************** */ 01870000 * /* EXCP ACCESS METHOD, BSAM AND QSAM DEPENDENT SECTION */ 01871000 * /* *************************************************************** */ 01872000 * 0213 01873000 * DECLARE 0213 01874000 * 1 DEBACSMD BASED(DEBEXPTR) BDY(WORD), 0213 01875000 * 3 DEBVOLSQ CHAR(2), /* VOLUME SEQUENCE NUMBER FOR 0213 01876000 * MULTIVOLUME SEQUENTIAL DATA 01877000 * SETS */ 01878000 * 4 DEBVOLBT BIT(8), /* FIRST BYTE OF DEBVOLSQ 0213 01879000 * (MDC016) YA00318*/ 01880000 * 5 DEBEXFUL BIT(1), /* SET BY EOV WHEN REWRITING AN 01881000 * OLD DIRECT ACCESS DATA SET TO 01882000 * INDICATE THAT ALL PREVIOUS 0213 01883000 * EXISTING EXTENTS HAVE BEEN 0213 01884000 * FILLED (MDC017) YA00318*/ 01885000 * 5 DEBRSV36 BIT(1), /* RESERVED MDC018*/ 01886000 * 5 DEBRSV37 BIT(1), /* RESERVED MDC018*/ 01887000 * 5 DEBRSV38 BIT(1), /* RESERVED MDC018*/ 01888000 * 5 DEBRSV39 BIT(1), /* RESERVED MDC018*/ 01889000 * 5 DEBRSV40 BIT(1), /* RESERVED MDC018*/ 01890000 * 5 DEBRSV41 BIT(1), /* RESERVED MDC018*/ 01891000 * 5 DEBRSV42 BIT(1), /* RESERVED MDC018*/ 01892000 * 4 DEBVLSEQ PTR(8), /* FOR DIRECT ACCESS, SEQUENCE 01893000 * NUMBER OF THE VOLUME OF THE 01894000 * DATA SET RELATIVE TO THE 0213 01895000 * FIRST VOLUME OF THE DATA SET. 01896000 * FOR TAPE, SEQUENCE NUMBER OF 01897000 * THE VOLUME OF THE DATA SET 0213 01898000 * RELATIVE TO THE FIRST VOLUME 01899000 * PROCESSED. (MDC019) YA00318*/ 01900000 * 3 DEBVOLNM CHAR(2), /* TOTAL NUMBER OF VOLUMES IN A 01901000 * MULTIVOLUME SEQUENTIAL DATA 01902000 * SET. */ 01903000 * 3 DEBDSNM CHAR(8) BDY(WORD), /* MEMBER NAME. THIS FIELD 0213 01904000 * APPEARS ONLY WHEN AN OUTPUT 01905000 * DATA SET HAS BEEN OPENED FOR 01906000 * A MEMBER NAME AND THE DSCB 0213 01907000 * SPECIFIES A PARTITIONED 0213 01908000 * DATA SET. */ 01909000 * 5 DEBUTSAA PTR(31), /* ADDRESS OF THE USER TOTALING 01910000 * SAVE AREA */ 01911000 * 6 DEBRSV13 CHAR(1), /* RESERVED */ 01912000 * 6 DEBUTSAB PTR(24), /* *** SAME AS DEBUTSAA ABOVE */ 01913000 * 5 DEBRSV14 CHAR(4) BDY(WORD),/* RESERVED (IF USER TOTALING 0213 01914000 * WAS SPECIFIED) */ 01915000 * 3 DEBBLKSI FIXED(15), /* MAXIMUM BLOCK SIZE 0213 01916000 * (MDC346) @ZA03699*/ 01917000 * 3 DEBLRECL FIXED(15); /* LOGICAL RECORD LENGTH 0213 01918000 * (MDC347) @ZA03699*/ 01919000 * 0213 01920000 * 0213 01921000 * /* *************************************************************** */ 01922000 * /* BPAM DEPENDENT SECTION */ 01923000 * /* *************************************************************** */ 01924000 * 0214 01925000 * 0214 01926000 * DECLARE 1 DEBACS01 0214 01927000 * BASED(DEBEXPTR) BDY(WORD), 0214 01928000 * 3 DEBDSNAM CHAR(8) BDY(WORD), /* FOR A PARTITIONED DATA SET 0214 01929000 * OPENED FOR OUTPUT FOR A 0214 01930000 * MEMBER NAME, THIS FIELD IS 0214 01931000 * THE MEMBER NAME. */ 01932000 * 4 DEBEXTNM CHAR(1); /* FOR A PARTITIONED DATA SET 0214 01933000 * OPENED FOR INPUT, EACH ONE- 01934000 * BYTE FIELD CONTAINS THE 0214 01935000 * EXTENT NUMBER OF THE FIRST 0214 01936000 * EXTENT ENTRY FOR EACH DATA 0214 01937000 * SET EXCEPT THE FIRST, IF TWO 01938000 * OR MORE DATA SETS ARE 0214 01939000 * CONCATENATED. THE NUMBER OF 01940000 * BYTES IN THE FIELD IS EQUAL 01941000 * TO ONE LESS THAN THE NUMBER 01942000 * OF DATA SETS CONCATENATED. */ 01943000 * 0214 01944000 * 0214 01945000 * /* *************************************************************** */ 01946000 * /* BDAM DEPENDENT SECTION */ 01947000 * /* *************************************************************** */ 01948000 * 0215 01949000 * 0215 01950000 * DECLARE 1 DEBACS02 0215 01951000 * BASED(DEBEXPTR) BDY(WORD), 0215 01952000 * 0215 01953000 * /* ***************************************** */ 01954000 * /* * FOR FIXED LENGTH RECORDS WITH THE * */ 01955000 * /* * OPTION OF RELATIVE BLOCK ADDRESSING * */ 01956000 * /* * (BUT NOT TRACK OVERFLOW) * */ 01957000 * /* ***************************************** */ 01958000 * 0215 01959000 * 3 DEBDBLK FIXED(31), /* ONE FOUR-BYTE FIELD FOR EACH 01960000 * EXTENT DESCRIBED IN THE 0215 01961000 * DEVICE DEPENDENT SECTION. */ 01962000 * 4 DEBDBPT PTR(8), /* NUMBER OF BLOCKS PER TRACK */ 01963000 * 4 DEBDBPE CHAR(3); /* NUMBER OF BLOCKS PER EXTENT */ 01964000 * 0215 01965000 * 0215 01966000 * DECLARE 1 DEBACS03 0216 01967000 * BASED(DEBEXPTR) BDY(WORD), 0216 01968000 * 0216 01969000 * /* ***************************************** */ 01970000 * /* * FOR FIXED LENGTH RECORDS WITH THE * */ 01971000 * /* * OPTION OF RELATIVE BLOCK ADDRESSING * */ 01972000 * /* * AND TRACK OVERFLOW. * */ 01973000 * /* ***************************************** */ 01974000 * 0216 01975000 * 3 DEBDTPP FIXED(31), /* NUMBER OF TRACKS PER PERIOD */ 01976000 * 3 DEBDBPP FIXED(31), /* NUMBER OF BLOCKS PER PERIOD */ 01977000 * /* THE FOLLOWING FIELD OCCURS ONCE FOR */ 01978000 * /* EACH EXTENT. */ 01979000 * 3 DEBDBPEF FIXED(31); /* NUMBER OF BLOCKS PER EXTENT */ 01980000 * 0216 01981000 * 0216 01982000 * /* *************************************************************** */ 01983000 * /* BTAM DEPENDENT SECTION */ 01984000 * /* */ 01985000 * /* NOTE THIS SEGMENT IS ALWAYS PRESENT FOR BTAM. IT IS */ 01986000 * /* USED WHEN A BUFFER POOL OR DYNAMIC BUFFERING IS */ 01987000 * /* USED. OTHERWISE, THE FIELDS ARE ZERO. */ 01988000 * /* *************************************************************** */ 01989000 * 0217 01990000 * 0217 01991000 * DECLARE 1 DEBACS04 0217 01992000 * BASED(DEBEXPTR) BDY(WORD), 0217 01993000 * 3 DEBTBFRA PTR(31), /* ADDRESS OF THE BUFFER ROUTINE*/ 01994000 * 4 DEBRSV15 CHAR(1), /* RESERVED */ 01995000 * 4 DEBTBFRB PTR(24), /* ADDRESS OF THE BUFFER ROUTINE*/ 01996000 * /* THE FOLLOWING FIELD IS REPEATED FOR EACH */ 01997000 * /* CCW ON THE CHANNEL PROGRAM QUEUE */ 01998000 * 3 DEBTCCWA PTR(31), /* ADDRESS OF THE FIRST (OR 0217 01999000 * FOLLOWING) CCW ON THE QUEUE */ 02000000 * 4 DEBRSV16 CHAR(1), /* RESERVED */ 02001000 * 4 DEBTCCWB PTR(24); /* *** SAME AS DEBCCWA ABOVE */ 02002000 * 0217 02003000 * 0217 02004000 * /* *************************************************************** */ 02005000 * /* GAM DEPENDENT SECTION */ 02006000 * /* *************************************************************** */ 02007000 * 0218 02008000 * 0218 02009000 * DECLARE 1 DEBACS05 0218 02010000 * BASED(DEBEXPTR) BDY(WORD), 0218 02011000 * 3 DEBFUCBA PTR(31), /* ADDRESS OF FIRST UCB */ 02012000 * 4 DEBRSV17 CHAR(1), /* RESERVED */ 02013000 * 4 DEBFUCBB PTR(24), /* ADDRESS OF FIRST UCB */ 02014000 * 3 DEBLUCBA PTR(31), /* ADDRESS OF LAST UCB */ 02015000 * 4 DEBRSV18 CHAR(1), /* RESERVED */ 02016000 * 4 DEBLUCBB PTR(24); /* ADDRESS OF LAST UCB */ 02017000 * 0218 02018000 * 0218 02019000 * /* *************************************************************** */ 02020000 * /* ISAM LOAD MODE EXTENSION */ 02021000 * /* *************************************************************** */ 02022000 * 0219 02023000 * 0219 02024000 * DECLARE 1 DEBACS06 0219 02025000 * BASED(DEBEXPT) BDY(WORD), 0219 02026000 * 2 DEBDCBFA PTR(31), /* ADDRESS OF DCB FIELD AREA 0219 02027000 * MDC013*/ 02028000 * 2 DEBPUT PTR(31); /* ADDRESS OF PUT MODULE ICB379*/ 02029000 * 0219 02030000 * 0219 02031000 * /* *************************************************************** */ 02032000 * /* ISAM SCAN MODE EXTENSION */ 02033000 * /* *************************************************************** */ 02034000 * 0220 02035000 * 0220 02036000 * DECLARE 1 DEBACS07 0220 02037000 * BASED(DEBEXPT) BDY(WORD), 0220 02038000 * 2 * PTR(31), /* DEBDCBFA - ADDRESS OF DCB 0220 02039000 * FIELD AREA MDC014*/ 02040000 * 2 DEBGET PTR(31), /* ADDRESS OF GET OR PUT MODULE 02041000 * - THIS FIELD IS ALSO CALLED 02042000 * DEBPUT ICB379*/ 02043000 * 2 DEBWKPT4 PTR(31), /* SAME AS DCBWKPT4 - ADDRESS OF 02044000 * UCB ICB379*/ 02045000 * 2 DEBWKPT5 PTR(31), /* SAME AS DCBWKPT5 - ADDRESS OF 02046000 * GET APPENDAGE MODULE ICB379*/ 02047000 * 2 DEBCREAD PTR(31), /* ADDRESS OF CHANNEL-END 0220 02048000 * APPENDAGE FOR READ ICB379*/ 02049000 * 2 DEBCSETL PTR(31), /* ADDRESS OF CHANNEL-END 0220 02050000 * APPENDAGE FOR SETL ICB379*/ 02051000 * 2 DEBCWRIT PTR(31), /* ADDRESS OF CHANNEL-END 0220 02052000 * APPENDAGE FOR WRITE ICB379*/ 02053000 * 2 DEBCCHK PTR(31), /* ADDRESS OF CHANNEL-END 0220 02054000 * APPENDAGE FOR WRITE VALIDITY 02055000 * CHECK ICB379*/ 02056000 * 2 DEBCREWT PTR(31), /* ADDRESS OF CHANNEL-END 0220 02057000 * APPENDAGE FOR RE-WRITE ICB379*/ 02058000 * 2 DEBCRECK PTR(31), /* ADDRESS OF CHANNEL-END 0220 02059000 * APPENDAGE FOR RE-CHECK ICB379*/ 02060000 * 2 DEBAREAD PTR(31), /* ADDRESS OF ABNORMAL-END 0220 02061000 * APPENDAGE FOR READ ICB379*/ 02062000 * 2 DEBASETL PTR(31), /* ADDRESS OF ABNORMAL-END 0220 02063000 * APPENDAGE FOR SETL ICB379*/ 02064000 * 2 DEBAWRIT PTR(31), /* ADDRESS OF ABNORMAL-END 0220 02065000 * APPENDAGE FOR WRITE ICB379*/ 02066000 * 2 DEBACHK PTR(31), /* ADDRESS OF ABNORMAL-END 0220 02067000 * APPENDAGE FOR WRITE VALIDITY 02068000 * CHECK ICB379*/ 02069000 * 2 DEBAREWT PTR(31), /* ADDRESS OF ABNORMAL-END 0220 02070000 * APPENDAGE FOR RE-WRITE ICB379*/ 02071000 * 2 DEBARECK PTR(31), /* ADDRESS OF ABNORMAL-END 0220 02072000 * APPENDAGE FOR RE-CHECK ICB379*/ 02073000 * 2 DEBRPSST PTR(31); /* ADDRESS OF RPS SIO APPENDAGE 02074000 * IF ADDRSPC=REAL WAS NOT 0220 02075000 * SPECIFIED ICB379*/ 02076000 * 0220 02077000 * 0220 02078000 * /* *************************************************************** */ 02079000 * /* BISAM MODE EXTENSION */ 02080000 * /* *************************************************************** */ 02081000 * 0221 02082000 * 0221 02083000 * DECLARE 1 DEBACS08 0221 02084000 * BASED(DEBEXPT) BDY(WORD), 0221 02085000 * 2 * PTR(31), /* DEBDCBFA - ADDRESS OF DCB 0221 02086000 * FIELD AREA MDC015*/ 02087000 * 2 DEBDISAD PTR(31), /* ADDRESS OF PRIVILEGED MODULE 02088000 * ENTERED WHEN A BISAM MACRO 0221 02089000 * INSTRUCTION IS EXECUTED 0221 02090000 * ICB379*/ 02091000 * 2 * PTR(31), /* DEBWKPT4 - SAME AS DCBWKPT4 - 02092000 * ADDRESS OF THE PART 1 0221 02093000 * APPENDAGE MODULE (ABNORMAL 0221 02094000 * AND CHANNEL-END APPANDAGES) 02095000 * ICB379*/ 02096000 * 2 * PTR(31), /* DEBWKPT5 - SAME AS DCBWKPT5 - 02097000 * ADDRESS OF THE PART 2 0221 02098000 * APPENDAGE MODULE (ABNORMAL 0221 02099000 * AND CHANNEL-END APPANDAGES) 02100000 * ICB379*/ 02101000 * 2 DEBFREED PTR(31), /* ADDRESS OF DYNAMIC BUFFERING 02102000 * MODULE ICB379*/ 02103000 * 2 DEBRPSIO PTR(31), /* ADDRESS OF RPS SIO APPENDAGE 02104000 * MODULE IF ADDRSPC=REAL WAS 0221 02105000 * NOT SPECIFIED AND IF DYNAMIC 02106000 * BUFFERING IS USED ICB379*/ 02107000 * 2 DEBSIOA2 PTR(31); /* ADDRESS OF DYNAMIC BUFFERING 02108000 * APPENDAGE MODULE DISPLACED BY 02109000 * PAGE FIX (PGFX) APPENDAGE IF 02110000 * ADDRSPC=REAL WAS NOT 0221 02111000 * SPECIFIED ICB379*/ 02112000 * 0221 02113000 * 0221 02114000 * /* *************************************************************** */ 02115000 * /* SUBROUTINE NAME SECTION */ 02116000 * /* */ 02117000 * /* NOTE FOLLOWS THE ACCESS METHOD DEPENDENT SECTION, OR THE */ 02118000 * /* DEVICE DEPENDENT SECTION IF THERE IS NO ACCESS */ 02119000 * /* METHOD SECTION. */ 02120000 * /* *************************************************************** */ 02121000 * 0222 02122000 * DECLARE 0222 02123000 * 1 DEBSUBNM BASED(DEBSBPTR) BDY(WORD), 0222 02124000 * 4 DEBSUBID CHAR(2); /* SUBORUTINE IDENTIFICATION. 0222 02125000 * EACH ACCESS METHOD SUBROUTINE, 02126000 * APPENDAGE SUBROUTINE, AND IRB 02127000 * ROUTINE WILL HAVE A UNIQUE 0222 02128000 * EIGHT-BYTE NAME. THE LOW- 0222 02129000 * ORDER TWO BYTES OF EACH 0222 02130000 * ROUTINE NAME WILL BE IN THIS 02131000 * FIELD IF THE SUBROUTINE IS 0222 02132000 * LOADED BY THE OPEN ROUTINES. */ 02133000 * 0222 02134000 * 0222 02135000 * /* *************************************************************** */ 02136000 * /* APPENDAGE VECTOR TABLE SECTION OF THE DEB */ 02137000 * /* *************************************************************** */ 02138000 * 0223 02139000 * DECLARE 0223 02140000 * 1 DEB BASED(DEBAPPAD) BDY(WORD), 0223 02141000 * 2 DEBAVT BDY(WORD), /* APPENDAGE VECTOR TABLE */ 02142000 * 3 DEBEOEA PTR(31), /* ADDRESS OF END-OF-EXTENT 0223 02143000 * APPENDAGE ROUTINE */ 02144000 * 4 DEBEOEAB CHAR(1), /* FLAG BYTE ICB280*/ 02145000 * 5 DEBRSV19 BIT(1), /* RESERVED */ 02146000 * 5 DEBRSV20 BIT(1), /* RESERVED */ 02147000 * 5 DEBRSV21 BIT(1), /* RESERVED */ 02148000 * 5 DEBRSV22 BIT(1), /* RESERVED */ 02149000 * 5 DEBEOENP BIT(4), /* NUMBER OF 2K PAGES TO BE 0223 02150000 * FIXED FOR THE END-OF-EXTENT 02151000 * APPENDAGE ICB280*/ 02152000 * 4 DEBEOEAD PTR(24), /* ADDRESS OF END-OF-EXTENT 0223 02153000 * APPENDAGE ROUTINE ICB280*/ 02154000 * 3 DEBSIOA PTR(31), /* ADDRESS OF START I/O 0223 02155000 * APPENDAGE ROUTINE */ 02156000 * 4 DEBSIOAB CHAR(1), /* FLAG BYTE ICB280*/ 02157000 * 5 DEBPGFX BIT(1), /* ADDRESS IN DEBSIOAD CAN BE 0223 02158000 * USED TO DETERMINE THE ENTRY 02159000 * POINT TO THE PAGE FIX (PGFX) 02160000 * APPENDAGE ROUTINE BY ADDING 02161000 * 4 TO ADDRESS IN DEBSIOAD 0223 02162000 * ICB280*/ 02163000 * 5 DEBSIOX BIT(1), /* IF ZERO, DO NOT ENTER SIO 0223 02164000 * APPENDAGE WHEN ERP IS ACTIVE. 02165000 * IF ONE, ENTER SIO APPENDAGE 02166000 * EVEN WHEN ERP IS ACTIVE. 0223 02167000 * ICB372*/ 02168000 * 5 DEBIOVR BIT(1), /* IF ONE, EXCPVR REQUEST IS 0223 02169000 * VALID. IF ZERO, EXCPVR 0223 02170000 * REQUEST IS INVALID AND WILL 02171000 * NOT BE EXECUTED. ICB401*/ 02172000 * 5 DEBFIX BIT(1), /* INDICATION THAT DEB HAS BEEN 02173000 * FIXED (OS/VS2) (MDC032) 0223 02174000 * YM5929*/ 02175000 * 5 DEBSIONP BIT(4), /* NUMBER OF 2K PAGES TO BE 0223 02176000 * FIXED FOR THE SIO 0223 02177000 * APPENDAGE ICB280*/ 02178000 * 4 DEBSIOAD PTR(24), /* ADDRESS OF START I/O 0223 02179000 * APPENDAGE ROUTINE ICB280*/ 02180000 * 3 DEBPCIA PTR(31), /* ADDRESS OF PCI APPENDAGE 0223 02181000 * ROUTINE */ 02182000 * 4 DEBPCIAB CHAR(1), /* FLAG BYTE ICB280*/ 02183000 * 5 DEBRSV24 BIT(1), /* RESERVED */ 02184000 * 5 DEBRSV25 BIT(1), /* RESERVED */ 02185000 * 5 DEBRSV26 BIT(1), /* RESERVED */ 02186000 * 5 DEBRSV27 BIT(1), /* RESERVED */ 02187000 * 5 DEBPCINP BIT(4), /* NUMBER OF 2K PAGES TO BE 0223 02188000 * FIXED FOR THE PCI APPENDAGE 02189000 * ROUTINE ICB280*/ 02190000 * 4 DEBPCIAD PTR(24), /* ADDRESS OF PROGRAM- 0223 02191000 * CONTROLLED-INTERRUPTION (PCI) 02192000 * APPENDAGE ROUTINE ICB280*/ 02193000 * 3 DEBCEA PTR(31), /* ADDRESS OF CHANNEL-END 0223 02194000 * APPENDAGE ROUTINE */ 02195000 * 4 DEBCEAB CHAR(1), /* FLAG BYTE ICB280*/ 02196000 * 5 DEBRSV28 BIT(1), /* RESERVED */ 02197000 * 5 DEBRSV29 BIT(1), /* RESERVED */ 02198000 * 5 DEBRSV30 BIT(1), /* RESERVED */ 02199000 * 5 DEBRSV31 BIT(1), /* RESERVED */ 02200000 * 5 DEBCENP BIT(4), /* NUMBER OF 2K PAGES TO BE 0223 02201000 * FIXED FOR THE CHANNEL-END 0223 02202000 * APPENDAGE ICB280*/ 02203000 * 4 DEBCEAD PTR(24), /* ADDRESS OF CHANNEL END 0223 02204000 * APPENDAGE ROUTINE ICB280*/ 02205000 * 3 DEBXCEA PTR(31), /* ADDRESS OF ABNORMAL-END 0223 02206000 * APPENDAGE ROUTINE */ 02207000 * 4 DEBXCEAB CHAR(1), /* FLAG BYTE ICB280*/ 02208000 * 5 DEBRSV32 BIT(1), /* RESERVED */ 02209000 * 5 DEBRSV33 BIT(1), /* RESERVED */ 02210000 * 5 DEBRSV34 BIT(1), /* RESERVED */ 02211000 * 5 DEBRSV35 BIT(1), /* RESERVED */ 02212000 * 5 DEBXCENP BIT(4), /* NUMBER OF 2K PAGES TO BE 0223 02213000 * FIXED FOR THE ABNORMAL-END 0223 02214000 * APPENDAGE ICB280*/ 02215000 * 4 DEBXCEAD PTR(24), /* ADDRESS OF ABNORMAL-END 0223 02216000 * APPENDAGE ROUTINE ICB280*/ 02217000 * 0223 02218000 * /* *************************************************************** */ 02219000 * /* DEB PREFIX TABLE */ 02220000 * /* *************************************************************** */ 02221000 * 0223 02222000 * 2 DEBPREFX BDY(WORD), /* DEB PREFIX TABLE */ 02223000 * 3 DEBWKARA CHAR(1) BDY(WORD), /* I/O SUPPORT WORK AREA 0223 02224000 * (DIRECT ACCESS) */ 02225000 * 3 DEBDSCBA CHAR(7) BDY(WORD,2),/* DSCB ADDRESS (BBCCHHR) USED 02226000 * BY I/O SUPPORT (DIRECT 0223 02227000 * ACCESS) */ 02228000 * 3 DEBXTNP PTR(31), /* POINTER TO DEB EXTENSION 0223 02229000 * (OS/VS2) MDC008*/ 02230000 * 4 DEBDCBMK CHAR(4) BDY(WORD), /* DCB MODIFICATION MASK USED BY 02231000 * I/O SUPPORT (OS/VS1) MDC009*/ 02232000 * 3 DEBLNGTH CHAR(1), /* LENGTH OF DEB IN DOUBLE 0223 02233000 * WORDS */ 02234000 * 3 DEBAMTYP CHAR(1), /* ACCESS METHOD TYPE ICB380*/ 02235000 * 3 DEBTBLOF FIXED(15); /* OFFSET IN THE DEB TABLE TO 0223 02236000 * THE ENTRY FOR THIS DEB ICB380*/ 02237000 * 0223 02238000 * 0223 02239000 * /* *************************************************************** */ 02240000 * /* DEB EXTENSION (OS/VS2) */ 02241000 * /* *************************************************************** */ 02242000 * 0224 02243000 * DECLARE 0224 02244000 * 1 DEBXTN BASED(DEBXTNP) BDY(WORD), 0224 02245000 * 2 DEBXLNGH FIXED(15), /* LENGTH OF DEB EXTENSION 0224 02246000 * MDC002*/ 02247000 * 2 DEBXFLG1 BIT(8), /* FLAG BYTE (MDC027) YM1272*/ 02248000 * 3 DEBXCDCB BIT(1), /* DEBDCBAD FIELD CONTAINS THE 02249000 * ADDRESS OF A COPIED DCB. 0224 02250000 * USED BY END-OF-VOLUME, TCLOSE 02251000 * AND TASK CLOSE. (MDC028) 0224 02252000 * YM1272*/ 02253000 * 3 DEBXTSKC BIT(1), /* TASK CLOSE IS CLOSING THE 0224 02254000 * RELATED DCB. SET BY TASK 0224 02255000 * CLOSE AND INTERROGATED BY 0224 02256000 * END-OF-VOLUME, FEOV AND 0224 02257000 * TCLOSE FOR DEB'S NOT ON THE 02258000 * CURRENT TCB DEB CHAIN. 0224 02259000 * (MDC031) YM2869*/ 02260000 * 3 DEBXDSSI BIT(1), /* DATA SET SECURITY INDICATOR. 02261000 * SET BY OPEN AND CHECKPOINT. 02262000 * INTERROGATED BY EOV. 0224 02263000 * (MDC348) @Z40RP9A*/ 02264000 * 3 DEBXRV43 BIT(1), /* RESERVED */ 02265000 * 3 DEBXRV44 BIT(1), /* RESERVED */ 02266000 * 3 DEBXRV45 BIT(1), /* RESERVED */ 02267000 * 3 DEBXRV46 BIT(1), /* RESERVED */ 02268000 * 3 DEBXRV47 BIT(1), /* RESERVED */ 02269000 * 2 DEBXRV48 CHAR(1), /* RESERVED */ 02270000 * 2 DEBXDSAB PTR(31), /* POINTER TO DSAB MDC004*/ 02271000 * 2 DEBXDCBM CHAR(4) BDY(WORD), /* DCB MODIFICATION MASK USED BY 02272000 * I/O SUPPORT MDC005*/ 02273000 * 2 DEBXDBPR PTR(31), /* POINTER TO DEB MDC006*/ 02274000 * 2 DEBXDSO1 BIT(8), /* SAME AS DCBDSORG BYTE 1 0224 02275000 * MDC020*/ 02276000 * 2 DEBXDSO2 BIT(8), /* SAME AS DCBDSORG BYTE 2 0224 02277000 * MDC021*/ 02278000 * 2 DEBXMCF1 BIT(8), /* SAME AS DCBMACRF BYTE 1 0224 02279000 * MDC022*/ 02280000 * 2 DEBXMCF2 BIT(8), /* SAME AS DCBMACRF BYTE 2 0224 02281000 * MDC023*/ 02282000 * 2 DEBXXARG PTR(31), /* ADDRESS OF BDAM READ 0224 02283000 * EXCLUSIVE LIST MDC024*/ 02284000 * 2 DEBXOPNJ PTR(31), /* POINTER TO DSAB (SEPARATE 0224 02285000 * FROM DEBXDSAB) DYNAMICALLY 0224 02286000 * ALLOCATED BY OPEN TYPE=J. 0224 02287000 * THIS POINTER WILL EXIST FOR 02288000 * NON-AUTHORIZED CALLERS OF 0224 02289000 * OPEN TYPE=J FOR A DIRECT 0224 02290000 * ACCESS DATA SET WHERE THE 0224 02291000 * DATA SET BEING OPENED IS 0224 02292000 * DIFFERENT FROM THE DATA SET 02293000 * DESCRIBED BY THE DDNAME IN 0224 02294000 * DCB AND THE JFCNWRIT BIT IS 02295000 * ON IN THE JFCB. THE POINTER 02296000 * WILL BE USED BY CLOSE TO 0224 02297000 * DYNAMICALLY UNALLOCATE THE 0224 02298000 * DATA SET. (MDC352) @ZA02193*/ 02299000 * 2 DEBXRV40 PTR(31); /* RESERVED */ 02300000 * 0225 02301000 */* **************************************************************** */ 02302000 */* */ 02303000 */* U N I T C O N T R O L B L O C K */ 02304000 */* */ 02305000 */* **************************************************************** */ 02306000 */* */ 02307000 */* STATUS */ 02308000 */* */ 02309000 */* OS/VS2 RELEASE 3.0 AND 3.7 PTF, 08/31/77, LEVEL=23 */ 02310000 */* */ 02311000 */* METHOD OF ACCESS */ 02312000 */* */ 02313000 */* -MULTIPROCESSING PREFIX, COMMON AND DEVICE DEPENDENT SEGMENTS, */ 02314000 */* AND DEVICE DEPENDENT EXTENSIONS. */ 02315000 */* THE UCB ADDRESS LOCATED FROM THE UCB LOOK UP TABLE POINTS */ 02316000 */* TO THE COMMON SEGMENT. THIS ADDRESS MUST HAVE THE PREFIX */ 02317000 */* ADDRESSABILITY CONSTANT SUBTRACTED FROM IT IN ORDER TO MAP */ 02318000 */* THE PREFIX FIELDS AND STANDARD FIELDS VIA THIS MACRO. */ 02319000 */* */ 02320000 */* PL/S - DCL UCBPTR PTR */ 02321000 */* BAL - PREFIX=YES */ 02322000 */* A DSECT STATEMENT LABELED UCB IS PROVIDED. A */ 02323000 */* USING STATEMENT ON THE SYMBOL UCB WILL PROVIDE */ 02324000 */* ADDRESSABILITY TO ALL PORTIONS OF THIS MAPPING */ 02325000 */* MACRO EXCEPT THE EXTENSIONS. ADDITIONAL USING */ 02326000 */* STATEMENTS ARE NECESSARY TO OBTAIN ADDRESSING */ 02327000 */* TO THESE EXTENSIONS. THESE ARE AS FOLLOWS - */ 02328000 */* */ 02329000 */* COMMON EXTENSION UCBCMEXT */ 02330000 */* MAGNETIC TAPE EXTENSION UCBMT */ 02331000 */* OPTICAL CHARACTER READER EXT UCBOCR */ 02332000 */* 3540 DEVICE EXTENSION UCB3540X @Z30OP9A*/ 02333000 */* 3800 DEVICE EXTENSION UCB3800X @Z40MP9A*/ 02334000 */* UNIT RECORD WITH UCS EXTENSION UCBUCS */ 02335000 */* */ 02336000 */* WHEN LISTING IS SUPPRESSED, YOU CAN DETERMINE WHICH */ 02337000 */* DSECT A SYMBOL IS IN BY USING THE STATEMENT NUMBER */ 02338000 */* IN THE DEFN COLUMN IN THE CROSS REFERENCE LISTING. */ 02339000 */* FOR EXAMPLE, ANY SYMBOL DEFINED BETWEEN THE */ 02340000 */* STATEMENT NUMBERS FOR UCBMT AND UCBOCR IS IN THE */ 02341000 */* UCBMT DSECT. */ 02342000 */* */ 02343000 */* -ALL PORTIONS EXCEPT THE MP PREFIX. */ 02344000 */* */ 02345000 */* BAL - PREFIX=NO OR THE PREFIX PARAMETER OMITTED OR EQUAL */ 02346000 */* TO ANY STRING OTHER THAN YES. */ 02347000 */* A DSECT STATEMENT SHOULD PRECEDE THE MACRO CALL. */ 02348000 */* SYMBOLS IN THE COMMON SECTION AND DEVICE DEPENDENT */ 02349000 */* SEGMENTS ARE ADDRESSABLE BY A USING ON UCBOB. */ 02350000 */* THE ABOVE COMMENTS ON THE EXTENSIONS APPLY HERE. */ 02351000 */* */ 02352000 */* F.E.'S */ 02353000 */* */ 02354000 */* MICROFICHE LISTING - IEFUCBOB */ 02355000 */* */ 02356000 */* DEVELOPERS */ 02357000 */* */ 02358000 */* BAL LISTING - SPECIFY LIST=YES ON MACRO CALL */ 02359000 */* PL/S LISTING - SPECIFY %IHALIST='YES' BEFORE INCLUDE */ 02360000 */* */ 02361000 */* */ 02362000 */* FUNCTION */ 02363000 */* */ 02364000 */* A UNIT CONTROL BLOCK INCORPORATING A SYSTEM RESOURCE TABLE */ 02365000 */* RECORDS THE STATUS OF A PHYSICAL INPUT OUTPUT DEVICE */ 02366000 */* ADDRESS AND IS CREATED AND INITIALIZED DURING SYSTEM */ 02367000 */* GENERATION. THE UNIT CONTROL BLOCK RESIDES IN THE NUCLEUS */ 02368000 */* BELOW 64K AND MAY POINT TO A DEVICE TYPE DEPENDENT */ 02369000 */* EXTENSION RESIDING HIGHER IN THE NUCLEUS. */ 02370000 */* THE COMMON SEGMENT OF THE UCB IS POINTED TO BY */ 02371000 */* THE UCB LOOKUP TABLE WHICH IS INDEXED BY */ 02372000 */* A FUNCTION OF THE CHANNEL CONTROL UNIT DEVICE ADDRESS. */ 02373000 */* THE UCB MAY BE POINTED TO BY TASK INPUT/OUTPUT TABLES */ 02374000 */* AND DATA EXTENT BLOCKS. THE UCB WILL CONTAIN INDICES */ 02375000 */* INTO DEVICE STATISTICS, ATTENTION AND LOGICAL CHANNEL */ 02376000 */* TABLES. */ 02377000 */* */ 02378000 */* OUTPUT */ 02379000 */* MULTIPROCESSING PREFIX */ 02380000 */* SYSGEN INDEPENDENT COMMON SECTION */ 02381000 */* INCLUDING UCBTYP WORD */ 02382000 */* DEVICE DEPENDENT SEGMENT (ONE OF THE FOLLOWING) */ 02383000 */* DIRECT ACCESS */ 02384000 */* MAGNETIC TAPE */ 02385000 */* UNIT RECORD WITH UCS OR 3886 OR 3540 OR 3800 @Z40MP9A*/ 02386000 */* GRAPHICS EXCEPT 3270 */ 02387000 */* 3270 GRAPHICS */ 02388000 */* 3704, 3705 TELEPROCESSING DEVICE */ 02389000 */* CHANNEL-TO-CHANNEL DEVICE */ 02390000 */* 3851 DEVICE @Z30LP9A*/ 02391000 */* COMMON EXTENSION */ 02392000 */* UCB EXTENSION (ONE OF THE FOLLOWING) */ 02393000 */* MAGNETIC TAPE */ 02394000 */* OPTICAL CHARACTER READER */ 02395000 */* 3540 DEVICE @Z30OP9A*/ 02396000 */* 3800 DEVICE @Z40MP9A*/ 02397000 */* UNIT RECORD WITH UNIVERSAL CHARACTER SET */ 02398000 */* */ 02399000 */* **************************************************************** */ 02400000 * 0225 02401000 */* **************************************************************** */ 02402000 */* */ 02403000 */* MULTIPROCESSING UCB PREFIX */ 02404000 */* */ 02405000 */* **************************************************************** */ 02406000 * 0225 02407000 *DECLARE 0225 02408000 * 1 UCB BASED(UCBPTR-512) BDY(WORD), /* UCB PREFIX YM0450*/ 02409000 * 2 * CHAR(504), /* RESERVED */ 02410000 * 2 UCBPXST CHAR(0), /* START OF USED FIELDS IN PREFIX 02411000 * MDC187*/ 02412000 * 2 UCBLOCK FIXED(31), /* DEVICE LOCK MDC238*/ 02413000 * 2 UCBIOQ PTR(31), /* ADDRESS OF LAST QUEUING ELEMENT 02414000 * USED FOR THIS DEVICE. ADDRESS 02415000 * OF ERP WORK AREA DURING 0225 02416000 * INTERCEPT AND ASYNCHRONOUS 0225 02417000 * ATTENTION/DEVICE END WITH UNIT 02418000 * CHECK CONDITIONS. WHEN DIRECT 02419000 * ACCESS VOLUME VERIFICATION 0225 02420000 * (DAVV) IS WAITING FOR A VOLUME 02421000 * MOUNT, THIS FIELD WILL POINT 0225 02422000 * TO THE DAVV SRB. MDC197*/ 02423000 * 2 UCBPFXND CHAR(0); /* END OF PREFIX YM0450*/ 02424000 * 0225 02425000 * 0225 02426000 */* **************************************************************** */ 02427000 */* */ 02428000 */* SYSGEN-INDEPENDENT */ 02429000 */* COMMON SECTION */ 02430000 */* */ 02431000 */* **************************************************************** */ 02432000 * 0226 02433000 *DECLARE 0226 02434000 * 1 UCBOB BASED(UCBPTR) BDY(WORD), 0226 02435000 * 2 UCBCMSEG CHAR(0), /* START OF COMMON SECTION MDC168*/ 02436000 * 2 UCBJBNR BIT(8) BDY(WORD),/* FLAG BYTE (OS/VS2) MDC012*/ 02437000 * 3 UCBVRDEV BIT(1), /* UCB FOR VIRTUAL DEVICE MDC012*/ 02438000 * 3 UCBJES3 BIT(1), /* ALL VOLUME MOUNTING AND DEVICE 02439000 * MANAGEMENT FOR THIS DEVICE IS 02440000 * CONTROLLED BY JES3 MDC246*/ 02441000 * 3 UCBDUC BIT(1), /* DISPLAY DEVICE UNIT CHECK - IPL 02442000 * (MDC347) @ZA04127*/ 02443000 * 3 UCBRV003 BIT(1), /* RESERVED */ 02444000 * 3 UCBOLDSM BIT(1), /* OLTEP COMMUNICATING DIRECTLY 0226 02445000 * WITH THE MASS STORAGE CONTROL 02446000 * (MSC), NOT THROUGH THE MASS 0226 02447000 * STORAGE SYSTEM COMMUNICATOR 0226 02448000 * (MSSC) (MDC301) @Z30LP9A*/ 02449000 * 3 UCBMMSGP BIT(1), /* MOUNT MESSAGE PENDING. THE 0226 02450000 * DEVICE HAS BEEN SELECTED BY 0226 02451000 * DEVICE ALLOCATION, BUT NO MOUNT 02452000 * MESSAGE HAS BEEN ISSUED. 0226 02453000 * (MDC361) @ZA14242*/ 02454000 * 3 UCBRV011 BIT(1), /* RESERVED MDC013*/ 02455000 * 3 UCBMONT BIT(1), /* VOLUME TO BE MOUNTED IS TO BE 02456000 * RETAINED OR CONTAIN A PASSED 0226 02457000 * DATA SET. (SET BY DEVICE 0226 02458000 * ALLOCATION OR DATA MANAGEMENT 02459000 * FOR OS/VS2) MDC014*/ 02460000 * 2 UCBFL5 BIT(8), /* FLAGS */ 02461000 * 3 UCBDCC BIT(1), /* DISCONNECT COMMAND CHAIN DEVICE 02462000 * MDC098*/ 02463000 * 3 UCBAF BIT(1), /* ATTENTION FOR THIS CONSOLE 0226 02464000 * DEVICE IS TO BE PROCESSED BY 0226 02465000 * THE COMMUNICATIONS TASK ICB321*/ 02466000 * 4 UCBAMV BIT(1), /* SUCCESSFUL COMPARISON CHECKING 02467000 * OF THE ACCESS METHOD CATALOG 0226 02468000 * AND THE VTOC (VSAM DIRECT 0226 02469000 * ACCESS DEVICES ONLY) ICB437*/ 02470000 * 3 UCBSASK BIT(1), /* DEVICE REQUIRES STAND ALONE 0226 02471000 * SEEK MDC099*/ 02472000 * 3 UCBVSDR BIT(1), /* DEVICE HAS VARIABLE LENGTH 0226 02473000 * SDR'S */ 02474000 * 3 UCBENVRD BIT(1), /* DEVICE RETURNS ENVIRONMENTAL 0226 02475000 * DATA MDC100*/ 02476000 * 3 UCBNALOC BIT(1), /* THIS OFFLINE DEVICE IS BEING 0226 02477000 * USED BY A SYSTEM COMPONENT. 0226 02478000 * THE DEVICE STATUS MUST NOT 0226 02479000 * CHANGE TO ONLINE NOR WILL IT BE 02480000 * ALLOCATED. THE LAST PATH/ 0226 02481000 * CHANNEL/CPU TO THE DEVICE MUST 02482000 * NOT BE VARY'ED OFFLINE. THE 0226 02483000 * DEVICE IS UNAVAILABLE FOR USAGE 02484000 * BY ANOTHER SYSTEM COMPONENT 0226 02485000 * WHICH PROCESSES OFFLINE DEVICES. 02486000 * TO SET THIS INDICATOR ON, A 0226 02487000 * COMPONENT MUST OBTAIN VIA ENQ, 02488000 * EXCLUSIVE, SYSTEM LEVEL CONTROL 02489000 * OF RESOURCE SYSIEFSD, Q4. 0226 02490000 * SERIALIZATION IS NOT REQUIRED 02491000 * TO TURN THIS INDICATOR OFF. 0226 02492000 * MDC027*/ 02493000 * 3 UCBALTCU BIT(1), /* DEVICE HAS AN ALTERNATE CONTROL 02494000 * UNIT ADDRESS */ 02495000 * 3 UCBALTPH BIT(1), /* DEVICE HAS AN ALTERNATE PATH */ 02496000 * 2 UCBID CHAR(1), /* UCB IDENTIFICATION (FF) */ 02497000 * 2 UCBSTAT BIT(8), /* DEVICE STATUS */ 02498000 * 3 UCBONLI BIT(1), /* DEVICE IS ONLINE */ 02499000 * 3 UCBCHGS BIT(1), /* DEVICE STATUS IS TO BE CHANGED 02500000 * FROM ONLINE TO OFFLINE, AND 0226 02501000 * EITHER ALLOCATION IS ENQUEUED 02502000 * ON DEVICES OR THE DEVICE IS 0226 02503000 * ALLOCATED. (BIT 0 IS ALSO ON.) */ 02504000 * 3 UCBRESV BIT(1), /* THE MOUNT STATUS OF THE VOLUME 02505000 * ON THIS DEVICE IS RESERVED */ 02506000 * 3 UCBUNLD BIT(1) ABNORMAL, /* UNLOAD OPERATOR COMMAND HAS 0226 02507000 * BEEN ADDRESSED TO THIS DEVICE. 02508000 * THE DEVICE IS NOT YET UNLOADED. 02509000 * MDC167*/ 02510000 * 3 UCBALOC BIT(1), /* DEVICE IS ALLOCATED */ 02511000 * 3 UCBPRES BIT(1), /* THE MOUNT STATUS OF THE VOLUME 02512000 * ON THIS DEVICE IS PERMANENTLY 02513000 * RESIDENT */ 02514000 * 3 UCBSYSR BIT(1), /* SYSTEM RESIDENCE DEVICE OR 0226 02515000 * PRIMARY CONSOLE OR 0226 02516000 * ACTIVE CONSOLE */ 02517000 * 3 UCBDADI BIT(1), /* STANDARD TAPE LABELS HAVE BEEN 02518000 * VERIFIED FOR THIS TAPE VOLUME 02519000 * OR SECONDARY CONSOLE OR 0226 02520000 * CONSOLE STATUS CHANGING */ 02521000 * 2 UCBCHAN CHAR(2), /* BINARY CHANNEL/UNIT ADDRESS 0226 02522000 * MDC102*/ 02523000 * 3 UCBCHA PTR(8), /* BINARY CHANNEL ADDRESS OF LAST 02524000 * STARTED I/O OPERATION */ 02525000 * 3 UCBUA PTR(8), /* BINARY UNIT ADDRESS */ 02526000 * 2 UCBSFLS CHAR(2), /* DEVICE STATUS FLAGS MDC103*/ 02527000 * 3 UCBFLA BIT(8), /* I/O SUPERVISOR FLAG BYTE A 0226 02528000 * MDC104*/ 02529000 * 4 UCBFL1 BIT(8), /* ALIAS */ 02530000 * 5 UCBBSY BIT(1), /* DEVICE IS BUSY MDC105*/ 02531000 * 6 UCBBUSYD BIT(1), /* ALIAS */ 02532000 * 5 UCBNRY BIT(1), /* DEVICE NOT READY MDC106*/ 02533000 * 6 UCBNOTRD BIT(1), /* ALIAS */ 02534000 * 5 UCBPST BIT(1), /* POST FLAG (ASSOC IOQE) MDC107*/ 02535000 * 6 UCBUSING BIT(1), /* ALIAS */ 02536000 * 5 UCBPSNS BIT(1), /* PENDING SENSE OPERATION MDC108*/ 02537000 * 5 UCBCUB BIT(1), /* CONTROL UNIT BUSY MDC109*/ 02538000 * 6 UCBNOTRC BIT(1), /* ALIAS */ 02539000 * 5 UCBSAP BIT(1), /* STAND ALONE PROCESS ON DEVICE 02540000 * ACTIVE (EG., RESERVE) MDC110*/ 02541000 * 5 UCBACTV BIT(1), /* CHANNEL PROGRAM ACTIVE ON 0226 02542000 * DEVICE MDC111*/ 02543000 * 5 UCBQISCE BIT(1), /* DEVICE QUIESCED MDC112*/ 02544000 * 3 UCBFLB BIT(8), /* I/O SUPERVISOR FLAG BYTE B 0226 02545000 * MDC113*/ 02546000 * 4 UCBIORST BIT(1), /* I/O RESTART VIA ALTERNATE CPU 02547000 * RECOVERY HAS FACTORED DEVICE 0226 02548000 * OUT OF CONFIGURATION BECAUSE 0226 02549000 * OF NON-ACCESSABILITY. ALL 0226 02550000 * INCOMING I/O REQUESTS ARE 0226 02551000 * INTERCEPTED AND MARKED IN 0226 02552000 * PERMANENT ERROR WITH A 0226 02553000 * COMPLETION CODE OF X'51'. 0226 02554000 * HOWEVER, IF CHANNEL 0226 02555000 * RECONFIGURATION HARDWARE (CRH) 02556000 * IS ACTIVE AND CRH WILL BE USED 02557000 * TO ACCESS THE DEVICE ASSOCIATED 02558000 * WITH THE UCB, THIS BIT WILL BE 02559000 * ON IN EVERY UCB THAT HAS 0226 02560000 * OUTSTANDING I/O ACROSS A CRH 0226 02561000 * PATH. (MDC320) @Z30CQ9A*/ 02562000 * 4 UCBASNS BIT(1), /* SENSE ACTIVE ON DEVICE MDC115*/ 02563000 * 4 UCBSPST BIT(1), /* SENSE POST INDICATOR MDC116*/ 02564000 * 4 UCBRESVH BIT(1), /* DEVICE RESERVED INDICATOR 0226 02565000 * MDC157*/ 02566000 * 4 UCBCRHRV BIT(1), /* RESERVED PATH THROUGH A CHANNEL 02567000 * RECONFIGURATION HARDWARE (CRH) 02568000 * CONNECTION (MDC303) @Z30CQ9A*/ 02569000 * 4 UCBCRHSN BIT(1), /* IF 1, SENSE PENDING FROM 0226 02570000 * INOPERATIVE CPU. IF 0, SENSE 02571000 * PENDING FROM OPERATIVE CPU. 0226 02572000 * BIT IS SET ONLY WHEN CHANNEL 0226 02573000 * RECONFIGURATION HARDWARE (CRH) 02574000 * IS ACTIVE. (MDC332) @Z30CQ9A*/ 02575000 * 4 UCBVALPH BIT(1), /* PATH VALIDATION 0226 02576000 * (MDC337) @ZA00078*/ 02577000 * 4 UCBSIGP BIT(1), /* IOS SIGP INDICATOR TO PREVENT 02578000 * PING/PONG (MDC346) @ZA03601*/ 02579000 * 2 UCBCHM BIT(8), /* PATH STATUS MASK FOR THIS 0226 02580000 * DEVICE MDC198*/ 02581000 * 3 UCBCHM1 BIT(8), /* SAME AS UCBCHM MDC199*/ 02582000 * 4 UCBPTH0 BIT(2), /* PATHS FROM CPU 0 MDC200*/ 02583000 * 5 UCBPPA BIT(1), /* PRIMARY PATH CPU 0. IF 0, PATH 02584000 * IS AVAILABLE. IF 1, PATH IS 0226 02585000 * UNAVAILABLE. (MDC350) @Z40AQ9A*/ 02586000 * 5 UCBSPA BIT(1), /* SECONDARY PATH CPU 0. IF 0, 0226 02587000 * PATH IS AVAILABLE. IF 1, PATH 02588000 * IS UNAVAILABLE. 0226 02589000 * (MDC351) @Z40AQ9A*/ 02590000 * 4 UCBPTH1 BIT(2), /* PATHS FROM CPU 1 MDC203*/ 02591000 * 5 UCBPPB BIT(1), /* PRIMARY PATH CPU 1. IF 0, PATH 02592000 * IS AVAILABLE. IF 1, PATH IS 0226 02593000 * UNAVAILABLE. (MDC352) @Z40AQ9A*/ 02594000 * 5 UCBSPB BIT(1), /* SECONDARY PATH CPU 1. IF 0, 0226 02595000 * PATH IS AVAILABLE. IF 1, PATH 02596000 * IS UNAVAILABLE. 0226 02597000 * (MDC353) @Z40AQ9A*/ 02598000 * 4 UCBRV014 BIT(1), /* RESERVED */ 02599000 * 4 UCBRV015 BIT(1), /* RESERVED */ 02600000 * 4 UCBRV016 BIT(1), /* RESERVED */ 02601000 * 4 UCBRV017 BIT(1), /* RESERVED */ 02602000 * 2 UCBCNT PTR(8), /* COUNT OF QUEUED REQUESTS 0226 02603000 * WAITING FOR DEVICE MDC206*/ 02604000 * 2 UCBLCI PTR(8), /* INCREMENT WHICH, WHEN 0226 02605000 * MULTIPLIED BY 32, BECOMES AN 0226 02606000 * INDEX TO THE LOGICAL CHANNEL 0226 02607000 * TABLE (LCHTAB) 0226 02608000 * (MDC349) @Z40AQ9A*/ 02609000 * 2 UCBCPU CHAR(1), /* LAST SIO TO DEVICE ISSUED 0226 02610000 * FROM THIS CPUID MDC207*/ 02611000 * 2 UCBWGT BIT(8) BDY(WORD),/* FLAGS */ 02612000 * 3 UCBIN BIT(1), /* SYSIN */ 02613000 * 3 UCBOUT BIT(1), /* SYSOUT */ 02614000 * 3 UCBPUB BIT(1), /* ASSUMED THAT THIS DEVICE WILL 02615000 * BE ALLOCATED FOR A PUBLIC 0226 02616000 * VOLUME REQUEST */ 02617000 * 3 UCBREW BIT(1), /* REWIND COMMAND HAS BEEN 0226 02618000 * ADDRESSED TO THIS MAGNETIC TAPE 02619000 * DEVICE BY I/O SUPPORT */ 02620000 * 3 UCBMTPXP BIT(1), /* MULTIPLE EXPOSURE DEVICE MDC117*/ 02621000 * 3 UCBVORSN BIT(1), /* VARY COMMAND OPERATOR REASON 0226 02622000 * INDICATOR MDC118*/ 02623000 * 3 UCBVHRSN BIT(1), /* VARY COMMAND HIERARCHY REASON 02624000 * INDICATOR MDC119*/ 02625000 * 3 UCBRV029 BIT(1), /* RESERVED MDC028*/ 02626000 * 2 UCBNAME CHAR(3) BDY(WORD,2), /* UNIT NAME (EBCDIC) */ 02627000 * 2 UCBTYP CHAR(4) BDY(WORD), /* DEVICE TYPE */ 02628000 * 3 UCBTBYT1 BIT(8), /* MODEL BITS */ 02629000 * 4 UCB1FEA0 BIT(1), /* BIT 0 */ 02630000 * 4 UCB1FEA1 BIT(1), /* BIT 1 */ 02631000 * 4 UCB1FEA2 BIT(1), /* BIT 2 */ 02632000 * 4 UCB1FEA3 BIT(1), /* BIT 3 */ 02633000 * 4 UCB1FEA4 BIT(1), /* BIT 4 */ 02634000 * 4 UCB1FEA5 BIT(1), /* BIT 5 */ 02635000 * 5 UCBD1600 BIT(1), /* 1600 BPI ICB475*/ 02636000 * 4 UCB1FEA6 BIT(1), /* BIT 6 */ 02637000 * 5 UCBD6250 BIT(1), /* 6250 BPI ICB475*/ 02638000 * 4 UCB1FEA7 BIT(1), /* BIT 7 */ 02639000 * 3 UCBTBYT2 BIT(8), /* OPTION FLAGS */ 02640000 * 4 UCB2OPT0 BIT(1), /* FLAG 0 */ 02641000 * 4 UCB2OPT1 BIT(1), /* FLAG 1 */ 02642000 * 4 UCB2OPT2 BIT(1), /* FLAG 2 */ 02643000 * 5 UCBDUDN1 BIT(1), /* DUAL DENSITY 800/1600 BPI 0226 02644000 * ICB475*/ 02645000 * 6 UCBRR BIT(1), /* THIS DEVICE IS SHARABLE BETWEEN 02646000 * TWO CPU'S (DIRECT ACCESS) 0226 02647000 * MDC159*/ 02648000 * 4 UCB2OPT3 BIT(1), /* FLAG 3 */ 02649000 * 5 UCBDUDN2 BIT(1), /* DUAL DENSITY 1600/6250 BPI 0226 02650000 * ICB475*/ 02651000 * 6 UCBRPS BIT(1), /* ROTATIONAL POSITION SENSING 0226 02652000 * (RPS) DEVICE (DIRECT ACCESS) 0226 02653000 * MDC120*/ 02654000 * 4 UCB2OPT4 BIT(1), /* FLAG 4 */ 02655000 * 5 UCBRWTAU BIT(1), /* READ/WRITE TAPE CONTROL MDC166*/ 02656000 * 6 UCBRVDEV BIT(1), /* IF 0, REAL DEVICE. 0226 02657000 * IF 1, VIRTUAL DEVICE. 0226 02658000 * (DIRECT ACCESS) 0226 02659000 * (MDC300) @Z30LP9A*/ 02660000 * 4 UCB2OPT5 BIT(1), /* FLAG 5 */ 02661000 * 4 UCB2OPT6 BIT(1), /* FLAG 6 */ 02662000 * 5 UCBVLPWR BIT(1), /* VOLUME REQUIRES ALTERNATE POWER 02663000 * SOURCE DEVICE (MDC322) @Z30AQ9A*/ 02664000 * 4 UCB2OPT7 BIT(1), /* FLAG 7 */ 02665000 * 5 UCBDVPWR BIT(1), /* DEVICE HAS ALTERNATE POWER 0226 02666000 * SOURCE (MDC323) @Z30AQ9A*/ 02667000 * 3 UCBTBYT3 BIT(8), /* CLASS BITS */ 02668000 * 4 UCBDVCLS BIT(8), /* SAME AS UCBTBYT3 MDC169*/ 02669000 * 5 UCB3TAPE BIT(1), /* TAPE */ 02670000 * 5 UCB3COMM BIT(1), /* COMMUNICATIONS */ 02671000 * 5 UCB3DACC BIT(1), /* DIRECT ACCESS */ 02672000 * 5 UCB3DISP BIT(1), /* DISPLAY */ 02673000 * 5 UCB3UREC BIT(1), /* UNIT RECORD */ 02674000 * 5 UCB3CHAR BIT(1), /* CHARACTER READER */ 02675000 * 5 UCBRSV10 BIT(1), /* RESERVED */ 02676000 * 5 UCBRSV11 BIT(1), /* RESERVED */ 02677000 * 3 UCBTBYT4 CHAR(1), /* DEVICE CODE */ 02678000 * 4 UCBUNTYP CHAR(1), /* SAME AS UCBTBYT4 MDC170*/ 02679000 * 2 UCBEXTPT PTR(31), /* ADDRESS OF COMMON UCB EXTENSION 02680000 * MDC227*/ 02681000 * 3 UCBFLC BIT(8), /* I/O SUPERVISOR FLAG BYTE C 0226 02682000 * MDC228*/ 02683000 * 4 UCBATTP BIT(1), /* ATTENTION PENDING MDC229*/ 02684000 * 4 UCBWAA BIT(1), /* WORK AREA APPENDED MDC230*/ 02685000 * 4 UCBUDE BIT(1), /* UNSOLICITED DEVICE END 0226 02686000 * RECEIVED MDC231*/ 02687000 * 4 UCBITF BIT(1), /* INTERCEPT CONDITION MDC232*/ 02688000 * 4 UCBIVRS BIT(1), /* INTERVENTION REQUIRED MESSAGE 02689000 * ISSUED MDC233*/ 02690000 * 4 UCBIVRR BIT(1), /* INTERVENTION REQUIRED MESSAGE 02691000 * IS NEEDED MDC234*/ 02692000 * 4 UCBTICBT BIT(1), /* CHANNEL END AND/OR DEVICE END 02693000 * OR MOUNT CONDITION PENDING. 0226 02694000 * MDC235*/ 02695000 * 4 UCBDDRSW BIT(1), /* DDR SWITCH PENDING ON THIS 0226 02696000 * DEVICE MDC236*/ 02697000 * 3 UCBEXTP PTR(24), /* ADDRESS OF COMMON UCB EXTENSION 02698000 * MDC237*/ 02699000 */* */ 02700000 */* **************************************************************** */ 02701000 */* */ 02702000 */* DEVICE-DEPENDENT UCB SEGMENTS */ 02703000 */* */ 02704000 * 2 UCBDEV CHAR(0) BDY(WORD); 0226 02705000 */* */ 02706000 */* **************************************************************** */ 02707000 */* */ 02708000 */* DIRECT ACCESS */ 02709000 */* UCB SEGMENT */ 02710000 */* */ 02711000 */* UCBVOLI, UCBSTAB AND UCBDMCT ARE SAME IN TAPE SEGMENT AS */ 02712000 */* IN DIRECT ACCESS SEGMENT. */ 02713000 */* */ 02714000 *DECLARE 1 UCBOBS01 0227 02715000 * DEF(UCBDEV) BDY(WORD), /* DEVICE-DEPENDENT SEGMENT */ 02716000 * 0227 02717000 */* **************************************************************** */ 02718000 */* */ 02719000 * 2 UCBVTOC CHAR(4) BDY(WORD),/* RELATIVE ADDRESS OF VTOC FOR 02720000 * THIS VOLUME, IN FORM TTR0 0227 02721000 * MDC085*/ 02722000 * 2 UCBVOLI CHAR(6) BDY(WORD),/* VOLUME SERIAL NUMBER */ 02723000 * 2 UCBSTAB BIT(8), /* VOLUME STATUS */ 02724000 * 3 UCBBSVL BIT(1), /* VOLUME DEMOUNTABLE BY DATA 0227 02725000 * MANAGEMENT (DIRECT ACCESS) 0227 02726000 * (OS/VS2) MDC008*/ 02727000 * 4 UCBDVSHR BIT(1), /* DEVICE NOT SHARABLE AMONG 0227 02728000 * SEVERAL CPU'S (3420 MAGNETIC 0227 02729000 * TAPE DEVICES ONLY) (MDC245) 0227 02730000 * XA03017*/ 02731000 * 3 UCBPGFL BIT(1), /* UCB IS OPEN AND IS BEING USED 02732000 * AS A PAGE FILE ICB338*/ 02733000 * 3 UCBPRSRS BIT(1), /* DURING VOLUME ATTRIBUTE 0227 02734000 * PROCESSING THIS BIT IS USED 0227 02735000 * BOTH TO DENOTE UCB'S THAT WERE 02736000 * MARKED PERMANENTLY RESIDENT 0227 02737000 * PRIOR TO GETTING CONTROL AND 0227 02738000 * TO IDENTIFY DEVICES THAT WERE 02739000 * SELECTED BY THE OPERATOR FOR 0227 02740000 * MOUNTING VOLUMES 0227 02741000 * (DIRECT ACCESS) MDC162*/ 02742000 * 4 UCBBALB BIT(1), /* ADDITIONAL VOLUME LABEL 0227 02743000 * PROCESSING (TAPE) */ 02744000 * 3 UCBBPRV BIT(1), /* PRIVATE - VOLUME USE STATUS */ 02745000 * 3 UCBBPUB BIT(1), /* PUBLIC - VOLUME USE STATUS */ 02746000 * 3 UCBBSTR BIT(1), /* STORAGE - VOLUME USE STATUS 0227 02747000 * (DIRECT ACCESS) 0227 02748000 * THE VOLUME MOUNTED HAS AN 0227 02749000 * AMERICAN NATIONAL STANDARD 0227 02750000 * LABEL (TAPE) */ 02751000 * 3 UCBSHAR BIT(1), /* VOLUME SHAREABLE AMONG JOB 0227 02752000 * STEPS (OS/VS2) MDC020*/ 02753000 * 3 UCBBNUL BIT(1), /* CONTROL VOLUME - A CATALOG DATA 02754000 * SET IS ON THIS VOLUME 0227 02755000 * (DIRECT ACCESS) 0227 02756000 * IF THE MULTIPLE CONSOLE SUPPORT 02757000 * OPTION IS IN THE SYSTEM, 0227 02758000 * DEMOUNT OR MOUNT MESSAGES HAVE 02759000 * BEEN ISSUED AND THE MESSAGE 0227 02760000 * ID'S ARE AT OFFSETS 40 THROUGH 02761000 * 45. OPEN WILL DELETE THE 0227 02762000 * MESSAGES AND TURN THIS BIT OFF. 02763000 * (TAPE) */ 02764000 * 2 UCBDMCT CHAR(1), /* VOLUME USE BYTE */ 02765000 * 3 UCBMOUNT BIT(1), /* MOUNTED OR REQUEST ISSUED 0227 02766000 * (OFF MEANS MOUNT VERIFIED) */ 02767000 * 3 UCBDMC BIT(7), /* NUMBER OF DCB'S OPEN FOR THIS 02768000 * VOLUME */ 02769000 * 2 UCBDATP CHAR(0) BDY(WORD),/* END OF COMMON DIRECT ACCESS/ 02770000 * TAPE AREA */ 02771000 * 2 UCBSQC PTR(8), /* NUMBER OF RESERVE MACRO 0227 02772000 * INSTRUCTIONS ISSUED MDC086*/ 02773000 * 2 UCBFL4 BIT(8), /* DIRECT ACCESS FLAG BYTE MDC087*/ 02774000 * 3 UCBDAVV BIT(1), /* DIRECT ACCESS VOLUME VERIFICATION 02775000 * IN CONTROL (DAVV) MDC127*/ 02776000 * 3 UCBWDAV BIT(1), /* DAVV WAITING FOR MOUNT MDC128*/ 02777000 * 3 UCBRESVP BIT(1), /* RESERVE CHANNEL PROGRAM PENDING 02778000 * (MDC356) @ZA06072*/ 02779000 * 3 UCBDSS BIT(1), /* READ HOME ADDRESS AND READ 0227 02780000 * RECORD ZERO OPERATIONS HAVE 0227 02781000 * BEEN PERFORMED BY DYNAMIC 0227 02782000 * SUPPORT SYSTEM (DSS) MDC088*/ 02783000 * 3 UCBRV065 BIT(1), /* RESERVED (MDC302) */ 02784000 * 3 UCBFL45 BIT(1), /* RESERVED */ 02785000 * 3 UCBFL46 BIT(1), /* RESERVED */ 02786000 * 3 UCBFL47 BIT(1), /* RESERVED */ 02787000 * 2 UCBUSER PTR(8), /* NUMBER OF CURRENT USERS MDC089*/ 02788000 * 2 UCBRES1A CHAR(1), /* RESERVED */ 02789000 * 2 UCBBASE PTR(31), /* ADDRESS OF BASE EXPOSURE UCB 0227 02790000 * MDC130*/ 02791000 * 2 UCBNEXP PTR(31); /* BASE - ADDRESS OF LAST 0227 02792000 * STARTED EXPOSURE 0227 02793000 * NON-BASE - ADDRESS OF NEXT 0227 02794000 * EXPOSURE IN THE RING 0227 02795000 * THIS ADDRESS POINTS TO THE 0227 02796000 * MULTIPROCESSING PREFIX MDC131*/ 02797000 * 0227 02798000 */* **************************************************************** */ 02799000 */* */ 02800000 */* MAGNETIC TAPE UCB SEGMENT */ 02801000 */* */ 02802000 */* UCBVOLI, UCBSTAB AND UCBDMCT ARE SAME IN TAPE SEGMENT AS */ 02803000 */* IN DIRECT ACCESS SEGMENT. */ 02804000 */* */ 02805000 *DECLARE 1 UCBOBS02 0228 02806000 * DEF(UCBDEV) BDY(WORD), 0228 02807000 */* **************************************************************** */ 02808000 * 0228 02809000 * 2 UCBFSCT FIXED(15), /* DATA SET SEQUENCE COUNT MDC090*/ 02810000 * 2 UCBFSEQ FIXED(15), /* DATA SET SEQUENCE NUMBER MDC091*/ 02811000 * 2 * CHAR(8), /* UCBVOLI, UCBSTAB AND UCBDMCT AS 02812000 * IN DIRECT ACCESS SEGMENT */ 02813000 * 2 UCBFSER CHAR(6), /* BEFORE OPEN, MESSAGE ID'S. 0228 02814000 * SEE UCBSTAB BIT 7. AFTER OPEN, 02815000 * DATA SET SERIAL NUMBER MDC092*/ 02816000 * 2 UCBRES1B CHAR(1), /* RESERVED */ 02817000 * 2 UCBTFL1 BIT(8), /* FLAG BYTE (TAPE DEVICES 0228 02818000 * ONLY) MDC015*/ 02819000 * 3 UCBNLTP BIT(1), /* TAPE VOLUME DOES NOT CONTAIN 0228 02820000 * LABELS MDC016*/ 02821000 * 3 UCBNSLTP BIT(1), /* TAPE CONTAINS NON-STANDARD 0228 02822000 * LABELS MDC017*/ 02823000 * 3 UCBDQDSP BIT(1), /* DEQUEUE TAPE VOLUME WHEN 0228 02824000 * DEMOUNTED (MDC369) @ZA18180*/ 02825000 * 3 UCBRV005 BIT(1), /* RESERVED */ 02826000 * 3 UCBRV006 BIT(1), /* RESERVED */ 02827000 * 3 UCBRV007 BIT(1), /* RESERVED */ 02828000 * 3 UCBRV008 BIT(1), /* RESERVED */ 02829000 * 3 UCBRV009 BIT(1), /* RESERVED */ 02830000 * 2 UCBXTN PTR(31), /* ADDRESS OF THE MAGNETIC TAPE 0228 02831000 * UCB EXTENSION MDC093*/ 02832000 * 3 UCBVOPT BIT(8), /* VOLUME STATISTICS OPTION BITS 02833000 * MDC094*/ 02834000 * 4 UCBESV BIT(1), /* ERROR STATISTICS BY VOLUME 0228 02835000 * (ESV) RECORDS KEPT MDC094*/ 02836000 * 4 UCBEVA BIT(1), /* ERROR VOLUME ANALYSIS (EVA) 0228 02837000 * RECORDS KEPT MDC094*/ 02838000 * 4 UCBESVC BIT(1), /* IF 0, ESV RECORDS SENT TO 0228 02839000 * SYS1.MAN (X OR Y) DATA SET. 0228 02840000 * IF 1, ESV RECORDS SENT TO 0228 02841000 * CONSOLE. MDC094*/ 02842000 * 4 UCBERPC BIT(1), /* AN ERROR RECOVERY PROCEDURE HAS 02843000 * CONTROL MDC094*/ 02844000 * 4 UCBESVE BIT(1), /* AN ESV RECORD HAS BEEN ISSUED 02845000 * FOR THIS VOLUME BECAUSE OF AN 02846000 * EOV CONDITION MDC094*/ 02847000 * 4 UCBRSV20 BIT(1), /* RESERVED MDC094*/ 02848000 * 4 UCBRSV21 BIT(1), /* RESERVED MDC094*/ 02849000 * 4 UCBRSV22 BIT(1), /* RESERVED MDC094*/ 02850000 * 3 UCBXTNB PTR(24); /* ADDRESS OF THE MAGNETIC TAPE 0228 02851000 * UCB EXTENSION MDC095*/ 02852000 * 0228 02853000 */* **************************************************************** */ 02854000 */* */ 02855000 */* UNIT RECORD WITH */ 02856000 */* UNIVERSAL CHARACTER SET (1403, 3211) */ 02857000 */* OR OPTICAL CHARACTER READER (3886) */ 02858000 */* OR 3540 DEVICE @Z30OP9A*/ 02859000 */* OR 3800 DEVICE @Z40MP9A*/ 02860000 */* UCB SEGMENT */ 02861000 */* */ 02862000 *DECLARE 1 UCBOBS03 0229 02863000 * DEF(UCBDEV) BDY(WORD), /* DEVICE-DEPENDENT SEGMENT */ 02864000 * 0229 02865000 */* **************************************************************** */ 02866000 * 0229 02867000 * 2 UCBXTADR PTR(31); /* ADDRESS OF UCS UCB EXTENSION 0229 02868000 * (1403 OR 3211) OR ADDRESS OF 0229 02869000 * OPTICAL CHARACTER READER UCB 0229 02870000 * EXTENSION (3886) OR ADDRESS OF 02871000 * 3540 DEVICE UCB EXTENSION 0229 02872000 * (3540) OR ADDRESS OF 3800 0229 02873000 * DEVICE UCB EXTENSION (3800) 0229 02874000 * (MDC304) @Z40MP9A*/ 02875000 * 0229 02876000 */* **************************************************************** */ 02877000 */* */ 02878000 */* GRAPHICS EXCEPT 3270 */ 02879000 */* UCB SEGMENT */ 02880000 */* */ 02881000 *DECLARE 1 UCBOBS04 0230 02882000 * DEF(UCBDEV) BDY(WORD), /* DEVICE-DEPENDENT SEGMENT */ 02883000 * 0230 02884000 */* **************************************************************** */ 02885000 */* */ 02886000 * 2 UCBSTART PTR(15), /* LAST START ADDRESS (MDC247) 0230 02887000 * YM4067*/ 02888000 * 2 UCBOPEN PTR(8), /* NUMBER OF DCB'S THAT ARE 0230 02889000 * CURRENTLY OPEN FOR THIS DEVICE */ 02890000 * 2 UCBGCB CHAR(1), /* GRAPHIC CONTROL BYTE USED FOR 02891000 * ATTENTION HANDLING */ 02892000 * 2 UCBTEB PTR(31), /* ADDRESS OF TASK ENTRY (TE) 0230 02893000 * BLOCK */ 02894000 * 2 UCBSNS CHAR(4) BDY(WORD), /* SENSE INFORMATION (MDC248) 02895000 * YM4067*/ 02896000 * 2 UCBBTA PTR(31), /* ADDRESS OF BUFFER TABLE */ 02897000 * 3 UCBDI PTR(8), /* DEVICE OR DEVICES ON A CONTROL 02898000 * UNIT TO WHICH BUFFER SECTIONS 02899000 * ARE ASSIGNED */ 02900000 * 3 UCBBTB PTR(24); /* ADDRESS OF BUFFER TABLE */ 02901000 * 0230 02902000 */* **************************************************************** */ 02903000 */* */ 02904000 */* 3270 GRAPHICS */ 02905000 */* UCB SEGMENT */ 02906000 */* */ 02907000 *DECLARE 1 UCBOBS06 0231 02908000 * DEF(UCBDEV) BDY(WORD), /* DEVICE-DEPENDENT SEGMENT ICB480*/ 02909000 * 0231 02910000 */* **************************************************************** */ 02911000 */* */ 02912000 * 2 UCBAOF CHAR(2), /* ADDITIONAL OPTIONAL FEATURES. 02913000 * AN EXTENSION OF THE OPTIONAL 0231 02914000 * FEATURES BYTE OF THE UCBTYP 0231 02915000 * FIELD. ICB480*/ 02916000 * 3 UCBAOF1 BIT(8), /* FIRST BYTE OF UCBAOF ICB480*/ 02917000 * 4 UCBOFMCR BIT(1), /* MAGNETIC CARD READER ADAPTER - 02918000 * FOR 3277 ONLY ICB480*/ 02919000 * 4 UCBOFSP BIT(1), /* SELECTOR PEN - FOR 3277 0231 02920000 * ONLY ICB480*/ 02921000 * 4 UCBOFNL BIT(1), /* NUMERIC LOCK - FOR 3277 0231 02922000 * ONLY ICB480*/ 02923000 * 4 UCBRSV64 BIT(1), /* RESERVED ICB480*/ 02924000 * 4 UCBRSV65 BIT(1), /* RESERVED ICB480*/ 02925000 * 4 UCBRSV66 BIT(1), /* RESERVED ICB480*/ 02926000 * 4 UCBRSV67 BIT(1), /* RESERVED ICB480*/ 02927000 * 4 UCBRSV68 BIT(1), /* RESERVED ICB480*/ 02928000 * 3 UCBAOF2 BIT(8), /* SECOND BYTE OF UCBAOF ICB480*/ 02929000 * 4 UCBRSV69 BIT(1), /* RESERVED ICB480*/ 02930000 * 4 UCBRSV70 BIT(1), /* RESERVED ICB480*/ 02931000 * 4 UCBRSV71 BIT(1), /* RESERVED ICB480*/ 02932000 * 4 UCBRSV72 BIT(1), /* RESERVED ICB480*/ 02933000 * 4 UCBRSV73 BIT(1), /* RESERVED ICB480*/ 02934000 * 4 UCBRSV74 BIT(1), /* RESERVED ICB480*/ 02935000 * 4 UCBRSV75 BIT(1), /* RESERVED ICB480*/ 02936000 * 4 UCBRSV76 BIT(1), /* RESERVED ICB480*/ 02937000 * 2 UCBATNCT PTR(8), /* ATTENTION COUNT. THE NUMBER OF 02938000 * ATTENTIONS NOT SERVICED IN THE 02939000 * LINE GROUP. PRESENT ONLY IF 0231 02940000 * THE DEVICE INDEX FIELD IS 1. 0231 02941000 * OTHERWISE, THIS FIELD IS 0231 02942000 * RESERVED. ICB480*/ 02943000 * 2 * BIT(8), /* UCBGCB - CONTROL BYTE. 0231 02944000 * USED FOR ATTENTION HANDLING 0231 02945000 * FLAGS. ICB480*/ 02946000 * 3 UCBOLTEP BIT(1), /* OLTEP IN CONTROL OF THE 0231 02947000 * DEVICE ICB480*/ 02948000 * 3 UCBRSV77 BIT(1), /* RESERVED ICB480*/ 02949000 * 3 UCBRSV78 BIT(1), /* RESERVED ICB480*/ 02950000 * 3 UCBRSV79 BIT(1), /* RESERVED ICB480*/ 02951000 * 3 UCBRTIAC BIT(1), /* READ TI ACTIVE MDC171*/ 02952000 * 3 UCBRIPND BIT(1), /* READ INITIAL PENDING ICB480*/ 02953000 * 3 UCBSKPFG BIT(1), /* SKIP FLAG ICB480*/ 02954000 * 3 UCBATRCD BIT(1), /* ATTENTION RECEIVED FROM THE 0231 02955000 * DEVICE ICB480*/ 02956000 * 2 UCBIRB PTR(31), /* ADDRESS OF THE IRB USED FOR 0231 02957000 * SCHEDULING THE SECOND LEVEL 0231 02958000 * ATTENTION ROUTINE ICB480*/ 02959000 * 3 UCBGRAF BIT(8), /* GRAPHICS STATUS FLAGS (BTAM) 0231 02960000 * MDC172*/ 02961000 * 4 UCBOIP BIT(1), /* OPEN IS IN PROGRESS MDC173*/ 02962000 * 4 UCBDRO BIT(1), /* DEVICE READY IN OPEN MDC174*/ 02963000 * 4 UCBDRNO BIT(1), /* DEVICE READY - NOT IN OPEN 0231 02964000 * MDC175*/ 02965000 * 4 UCBBTAM BIT(1), /* USE BTAM - IGG019UP MDC176*/ 02966000 * 4 UCBUPM BIT(1), /* USE PROVIDED MODULE MDC177*/ 02967000 * 4 UCBRPND BIT(1), /* READY PROCESSING NOT DONE 0231 02968000 * MDC178*/ 02969000 * 4 UCBDWNR BIT(1), /* DEVICE WENT NOT READY MDC179*/ 02970000 * 4 UCBRV039 BIT(1), /* RESERVED - BTAM MDC180*/ 02971000 * 3 UCBIRBA PTR(24), /* ADDRESS OF THE IRB USED FOR 0231 02972000 * SCHEDULING THE SECOND LEVEL 0231 02973000 * ATTENTION ROUTINE MDC181*/ 02974000 * 2 UCBLDNCA PTR(31), /* ADDRESS OF 3270 WORK AREA 0231 02975000 * ESTABLISHED BY VTAM MDC132*/ 02976000 * 3 UCBRDYQ PTR(31), /* ASYNCHRONOUS READY NOTIFICATION 02977000 * IRB ADDRESS (BTAM) MDC182*/ 02978000 * 4 UCBIRLN PTR(8), /* INITIALIZED RLN. THE RELATIVE 02979000 * LINE NUMBER (RLN) OF THE IOB 0231 02980000 * INITIALIZED FOR A READ INITIAL. 02981000 * IF 0, NO READ INITIAL IS 0231 02982000 * OUTSTANDING. PRESENT ONLY IF 02983000 * THE DEVICE INDEX FIELD IS 1. 0231 02984000 * OTHERWISE, THIS FIELD IS 0231 02985000 * RESERVED. ICB480*/ 02986000 * 5 UCBINRLN PTR(8), /* SAME AS UCBIRLN MDC183*/ 02987000 * 4 UCBLDNCB PTR(24), /* ADDRESS OF 3270 WORK AREA 0231 02988000 * ESTABLISHED BY VTAM MDC133*/ 02989000 * 5 UCBRDYQA PTR(24), /* ASYNCHRONOUS READY NOTIFICATION 02990000 * IRB ADDRESS (BTAM) MDC184*/ 02991000 * 2 UCBCTLNK PTR(31), /* SAME AS UCBCTLNA BELOW ICB480*/ 02992000 * 3 UCBRLN PTR(8), /* DEVICE INDEX. INDEX TO THE DEB 02993000 * UCB ADDRESS FIELD FOR THIS 0231 02994000 * DEVICE. THIS VALUE IS ALSO THE 02995000 * RELATIVE LINE NUMBER. ICB480*/ 02996000 * 3 UCBCTLNA PTR(24); /* CONTROL BLOCK LINK. IF THE 0231 02997000 * DEVICE INDEX FIELD IS 1, THIS 02998000 * FIELD CONTAINS THE ADDRESS OF 02999000 * THE DEB FOR THE LINE GROUP. 0231 03000000 * IF THE DEVICE INDEX FIELD IS 0231 03001000 * BETWEEN 2 AND 255 INCLUSIVE, 0231 03002000 * THIS FIELD CONTAINS THE 0231 03003000 * ADDRESS OF THE UCB WITH A 0231 03004000 * DEVICE INDEX OF 1. ICB480*/ 03005000 * 0231 03006000 */* **************************************************************** */ 03007000 */* */ 03008000 */* 3704, 3705 TELEPROCESSING DEVICE */ 03009000 */* UCB SEGMENT */ 03010000 */* */ 03011000 *DECLARE 1 UCBOBS07 0232 03012000 * DEF(UCBDEV) BDY(WORD), /* DEVICE-DEPENDENT SEGMENT */ 03013000 * 0232 03014000 */* **************************************************************** */ 03015000 */* */ 03016000 * 2 UCBRV040 PTR(31), /* RESERVED FOR USE AS 0232 03017000 * TELEPROCESSING EXTENSION 0232 03018000 * POINTER MDC185*/ 03019000 * 2 UCBICNCB PTR(31); /* POINTER TO VTAM'S ICNCB MDC186*/ 03020000 * 0232 03021000 */* **************************************************************** */ 03022000 */* */ 03023000 */* CHANNEL-TO-CHANNEL (CTC) DEVICE */ 03024000 */* UCB SEGMENT */ 03025000 */* */ 03026000 *DECLARE 1 UCBOBS08 0233 03027000 * DEF(UCBDEV) BDY(WORD), /* DEVICE-DEPENDENT SEGMENT */ 03028000 * 0233 03029000 */* **************************************************************** */ 03030000 */* */ 03031000 * 2 UCBCTCAD PTR(31), /* ADDRESS OF AN SRB/IOSB TO BE 0233 03032000 * USED FOR SENSE COMMAND BYTE BY 03033000 * IECTCATN IF UCBCTC80 BIT IS SET 03034000 * TO ZERO (MDC343) @Z40JP9A*/ 03035000 * 3 UCBCTCAL PTR(31), /* ADDRESS OF JES3 ROUTINE FOR 0233 03036000 * SWITCHING TO ALTERNATE PATH CTC 03037000 * IF UCBCTC80 BIT IS SET TO ONE 03038000 * (MDC344) @Z40JP9A*/ 03039000 * 2 UCBCTCF1 BIT(8), /* CHANNEL-TO-CHANNEL (CTC) DEVICE 03040000 * FLAG BYTE MDC241*/ 03041000 * 3 UCBCTC80 BIT(1), /* IF THIS BIT IS ON, ABOVE WORD 03042000 * HAS UCBCTCAL MEANING. IF THIS 03043000 * BIT IS OFF, ABOVE WORD HAS 0233 03044000 * UCBCTCAD MEANING. 0233 03045000 * (MDC345) @Z40JP9A*/ 03046000 * 3 UCBRV076 BIT(1), /* RESERVED @Z40JP9A*/ 03047000 * 3 UCBRV077 BIT(1), /* RESERVED @Z40JP9A*/ 03048000 * 3 UCBRV078 BIT(1), /* RESERVED @Z40JP9A*/ 03049000 * 3 UCBRV079 BIT(1), /* RESERVED @Z40JP9A*/ 03050000 * 3 UCBRV080 BIT(1), /* RESERVED @Z40JP9A*/ 03051000 * 3 UCBRV081 BIT(1), /* RESERVED @Z40JP9A*/ 03052000 * 3 UCBRV082 BIT(1), /* RESERVED @Z40JP9A*/ 03053000 * 2 UCBRV042 CHAR(3); /* RESERVED MDC242*/ 03054000 * 0233 03055000 */* **************************************************************** */ 03056000 */* */ 03057000 */* 3851 DEVICE */ 03058000 */* UCB SEGMENT */ 03059000 */* */ 03060000 *DECLARE 1 UCBOBS09 0234 03061000 * DEF(UCBDEV) BDY(WORD), /* DEVICE-DEPENDENT SEGMENT */ 03062000 * 0234 03063000 */* **************************************************************** */ 03064000 */* */ 03065000 * 2 UCBIOSBA PTR(31), /* ADDRESS OF IOSB. SET BY IOS 0234 03066000 * FOR ERROR CONDITIONS. 0234 03067000 * (MDC330) @Z30LP9A*/ 03068000 * 2 UCBRV066 PTR(31); /* RESERVED (MDC331) @Z30LP9A*/ 03069000 * 0234 03070000 * 0234 03071000 */* **************************************************************** */ 03072000 */* */ 03073000 */* UNIT CONTROL BLOCK EXTENSIONS */ 03074000 */* */ 03075000 */* **************************************************************** */ 03076000 * 0235 03077000 */* **************************************************************** */ 03078000 */* */ 03079000 */* COMMON UCB EXTENSION */ 03080000 */* */ 03081000 */* THIS EXTENSION IS POINTED TO BY THE UCBEXTPT FIELD IN THE */ 03082000 */* COMMON SEGMENT AND IS NOT CONTIGUOUS TO THE UCB. */ 03083000 */* */ 03084000 *DECLARE 0235 03085000 * 1 UCBCMEXT BASED(UCBEXTPT) BDY(WORD), /* MDC225*/ 03086000 * 0235 03087000 */* **************************************************************** */ 03088000 */* */ 03089000 * 2 UCBETI PTR(8) BDY(WORD),/* A BINARY NUMBER USED BY THE 0235 03090000 * EXIT EFFECTOR ROUTINE TO 0235 03091000 * COMPLETE THE 8-BYTE NAME OF AN 03092000 * IBM-SUPPLIED ERROR ROUTINE FOR 03093000 * THIS DEVICE MDC209*/ 03094000 * 2 UCBSTI PTR(8), /* INCREMENT WHICH, WHEN 0235 03095000 * MULTIPLIED BY 10, BECOMES AN 0235 03096000 * INDEX TO THE STATISTICS TABLE 03097000 * (STATAB) MDC210*/ 03098000 * 2 UCBDTI PTR(8), /* INDEX TO THE DEVICE TABLE 0235 03099000 * MDC211*/ 03100000 * 2 UCBATI PTR(8), /* INDEX TO THE ATTENTION TABLE 0235 03101000 * (ANTAB) MDC212*/ 03102000 * 3 * BIT(8), /* OPTIONAL JOB ENTRY SUBSYSTEM 0235 03103000 * (JES) FLAG BYTE ICB455*/ 03104000 * 4 UCBRSV04 BIT(1), /* RESERVED */ 03105000 * 4 UCBRSV05 BIT(1), /* RESERVED */ 03106000 * 4 UCBRSV06 BIT(1), /* RESERVED */ 03107000 * 4 UCBRSV07 BIT(1), /* RESERVED */ 03108000 * 4 UCBRSV08 BIT(1), /* RESERVED */ 03109000 * 4 UCBRSV09 BIT(1), /* RESERVED */ 03110000 * 4 UCBHALI BIT(1), /* OPTIONAL JOB ENTRY SUBSYSTEM 0235 03111000 * (JES) ALLOCATION INDICATOR 0235 03112000 * MDC213*/ 03113000 * 4 UCBHPDV BIT(1), /* OPTIONAL JOB ENTRY SUBSYSTEM 0235 03114000 * (JES) PSEUDO-DEVICE MDC214*/ 03115000 * 2 UCBSNSCT PTR(8), /* COUNT OF SENSE BYTES PRESENTED 03116000 * BY THIS DEVICE MDC215*/ 03117000 * 2 UCBFLP1 BIT(8), /* FLAG BYTE MDC216*/ 03118000 * 3 UCBNSRCH BIT(1), /* THE CURRENTLY ALLOCATED VOLUME 03119000 * WAS SPECIFICALLY REQUESTED BY 03120000 * VOLUME SERIAL NUMBER. IT IS 0235 03121000 * NOT AVAILABLE FOR ASSIGNMENT 0235 03122000 * BY OPEN/EOV FOR A NON-SPECIFIC 03123000 * VOLUME REQUEST. MDC217*/ 03124000 * 3 UCBSHRUP BIT(1), /* SHAREABLE WHEN IN UNIPROCESSOR 03125000 * MODE (MDC333) @ZA00805*/ 03126000 * 3 UCBNSWAP BIT(1), /* IF THIS BIT IS ON AND UCBPRES 03127000 * BIT IS ON, THIS FIXED HEAD 0235 03128000 * DEVICE CANNOT BE SWAPPED 0235 03129000 * (MDC364) @ZA16810*/ 03130000 * 3 UCBINHIO BIT(1), /* INHIBIT HIO FROM SVC 33 0235 03131000 * (MDC365) @ZA16811*/ 03132000 * 3 UCBRV033 BIT(1), /* RESERVED MDC163*/ 03133000 * 3 UCBERLOG BIT(1), /* INDICATES PRESENCE OF AN ERROR 03134000 * LOG IN A DEVICE (MDC328) 0235 03135000 * @Z40MP9A*/ 03136000 * 3 UCBRV035 BIT(1), /* RESERVED MDC163*/ 03137000 * 3 UCBRV036 BIT(1), /* RESERVED MDC163*/ 03138000 * 2 UCBRV041 CHAR(2), /* RESERVED MDC226*/ 03139000 * 2 UCBCCWOF FIXED(15), /* OFFSET TO CCW PREFIX MDC218*/ 03140000 * 2 UCBPMSK BIT(16), /* PATH MASK FOR MESSAGES 0235 03141000 * ISSUED MDC219*/ 03142000 * 2 UCBMFCNT FIXED(15), /* MEASUREMENT FACILITIES TOTAL 0235 03143000 * DEVICE SIO COUNT. DURING NIP 03144000 * UCB INITIALIZATION, USED FOR 0235 03145000 * PREVIOUSLY TESTED INDICATOR. 0235 03146000 * MDC220*/ 03147000 * 2 UCBASID FIXED(15), /* ASID OF THE MEMORY TO WHICH 0235 03148000 * THIS DEVICE IS ALLOCATED EXCEPT 03149000 * FOR UNALLOCATED TAPE. FOR 0235 03150000 * UNALLOCATED TAPE, ASID OF THE 03151000 * LAST MEMORY TO WHICH THIS 0235 03152000 * DEVICE WAS ALLOCATED. 0235 03153000 * (MDC348) @ZA05164*/ 03154000 * 2 UCBRV043 CHAR(1), /* RESERVED (MDC249) YM6828*/ 03155000 * 2 UCBWTOID CHAR(3); /* WTO MESSAGE IDENTIFIER 0235 03156000 * (MDC250) YM6828*/ 03157000 * 0235 03158000 */* **************************************************************** */ 03159000 */* */ 03160000 */* MAGNETIC TAPE */ 03161000 */* UCB EXTENSION */ 03162000 */* */ 03163000 */* THIS EXTENSION IS POINTED TO BY THE UCBXTN FIELD OF THE */ 03164000 */* UCB AND IS NOT CONTIGUOUS TO THE UCB. */ 03165000 */* */ 03166000 *DECLARE 0236 03167000 * 1 UCBMT BASED(UCBXTN) BDY(WORD), 0236 03168000 * 0236 03169000 */* **************************************************************** */ 03170000 */* */ 03171000 * 2 UCBCTD FIXED(15), /* SERIAL NUMBER IN BINARY OF TAPE 03172000 * DRIVE UPON WHICH THE VOLUME 0236 03173000 * WAS CREATED MDC097*/ 03174000 * 2 UCBTRT PTR(8), /* TEMPORARY READ ERROR THRESHOLD 03175000 * (IF 0, EVA IS NOT IN EFFECT). 03176000 * A BINARY NUMBER FROM 1 THROUGH 03177000 * 255 AS SELECTED AT SYSGEN TIME 03178000 * ON THE SCHEDULR MACRO BY 0236 03179000 * EVA=(N1,N2) WHERE N1 = TEMPORARY 03180000 * READ ERROR THRESHOLD. MDC097*/ 03181000 * 2 UCBTWT PTR(8), /* TEMPORARY WRITE ERROR THRESHOLD 03182000 * (IF 0, EVA IS NOT IN EFFECT). 03183000 * A BINARY NUMBER FROM 1 THROUGH 03184000 * 255 AS SELECTED AT SYSGEN TIME 03185000 * ON THE SCHEDULR MACRO BY 0236 03186000 * EVA=(N1,N2) WHERE N2 = TEMPORARY 03187000 * WRITE ERROR THRESHOLD. MDC097*/ 03188000 * 2 UCBTR PTR(8) BDY(WORD),/* THE NUMBER (BINARY) OF 0236 03189000 * TEMPORARY READ ERRORS THAT HAVE 03190000 * OCCURRED MDC097*/ 03191000 * 2 UCBTW PTR(8), /* THE NUMBER (BINARY) OF 0236 03192000 * TEMPORARY WRITE ERRORS THAT 0236 03193000 * HAVE OCCURRED MDC097*/ 03194000 * 2 UCBSIO FIXED(15), /* THE NUMBER (BINARY) OF START 0236 03195000 * I/O OPERATIONS THAT HAVE 0236 03196000 * OCCURRED MDC097*/ 03197000 * 2 UCBPR PTR(8) BDY(WORD),/* THE NUMBER (BINARY) OF 0236 03198000 * PERMANENT READ ERRORS THAT HAVE 03199000 * OCCURRED MDC097*/ 03200000 * 2 UCBPW PTR(8), /* THE NUMBER (BINARY) OF 0236 03201000 * PERMANENT WRITE ERRORS THAT 0236 03202000 * HAVE OCCURRED MDC097*/ 03203000 * 2 UCBNB PTR(8), /* THE NUMBER (BINARY) OF NOISE 0236 03204000 * BLOCKS THAT HAVE BEEN 0236 03205000 * ENCOUNTERED MDC097*/ 03206000 * 2 UCBMS CHAR(1), /* MODE SET OPERATION CODE FOR 0236 03207000 * DATA BLOCKS ON A 3420 MAGNETIC 03208000 * TAPE UNIT MDC097*/ 03209000 * 2 UCBERG FIXED(15) BDY(WORD),/* THE NUMBER (BINARY) OF ERASE 03210000 * GAPS THAT HAVE BEEN 0236 03211000 * ENCOUNTERED MDC097*/ 03212000 * 2 UCBCLN FIXED(15); /* THE NUMBER (BINARY) OF CLEANER 03213000 * ACTIONS THAT HAVE OCCURRED 0236 03214000 * MDC097*/ 03215000 * 0236 03216000 */* **************************************************************** */ 03217000 */* */ 03218000 */* OPTICAL CHARACTER READER (3886) */ 03219000 */* UCB EXTENSION */ 03220000 */* */ 03221000 */* THIS EXTENSION IS POINTED TO BY THE UCBXTADR FIELD OF THE */ 03222000 */* UCB AND IS NOT CONTIGUOUS TO THE UCB. */ 03223000 */* */ 03224000 *DECLARE 0237 03225000 * 1 UCBOCR BASED(UCBXTADR) BDY(WORD), /* MDC024*/ 03226000 * 0237 03227000 */* **************************************************************** */ 03228000 */* */ 03229000 * 2 UCBFRID CHAR(4) BDY(WORD), /* CURRENT FORMAT RECORD ID 0237 03230000 * (FRID) LOADED MDC025*/ 03231000 * 2 UCBRDATA CHAR(4) BDY(WORD); /* COMMAND DATA MDC026*/ 03232000 * 0237 03233000 */* **************************************************************** */ 03234000 */* */ 03235000 */* 3450 DEVICE @Z30OP9A*/ 03236000 */* UCB EXTENSION @Z30OP9A*/ 03237000 */* */ 03238000 */* THIS EXTENSION IS POINTED TO BY THE UCBXTADR FIELD OF THE */ 03239000 */* UCB AND IS NOT CONTIGUOUS TO THE UCB. @Z30OP9A*/ 03240000 */* */ 03241000 *DECLARE 0238 03242000 * 1 UCB3540X BASED(UCBXTADR) BDY(WORD), /* (MDC325) @Z30OP9A*/ 03243000 * 0238 03244000 */* **************************************************************** */ 03245000 */* */ 03246000 * 2 UCBVLSER CHAR(6), /* 3540 VOLID (MDC326) @Z30OP9A*/ 03247000 * 2 UCBDKBYT BIT(8), /* FLAG BYTE (MDC334) @Z30OP9A*/ 03248000 * 3 UCBDKAMX BIT(1), /* IBM-SUPPLIED DISKETTE READER, 03249000 * DISKETTE WRITER OR COPY/RESTORE 03250000 * UTILITIES ARE USING THIS 3540 03251000 * DEVICE (MDC335) @Z30OP9A*/ 03252000 * 3 UCBVLVER BIT(1), /* VOLUME VERIFICATION IS REQUIRED 03253000 * FOR CERTAIN INTERVENTION 0238 03254000 * REQUIRED CONDITIONS WHILE 3540 03255000 * DISKETTE UTILITIES ARE USING 0238 03256000 * THE DEVICE (MDC336) @Z30OP9A*/ 03257000 * 3 UCBRV067 BIT(1), /* RESERVED @Z30OP9A*/ 03258000 * 3 UCBRV068 BIT(1), /* RESERVED @Z30OP9A*/ 03259000 * 3 UCBRV069 BIT(1), /* RESERVED @Z30OP9A*/ 03260000 * 3 UCBRV070 BIT(1), /* RESERVED @Z30OP9A*/ 03261000 * 3 UCBRV071 BIT(1), /* RESERVED @Z30OP9A*/ 03262000 * 3 UCBRV072 BIT(1), /* RESERVED @Z30OP9A*/ 03263000 * 2 UCBRV073 CHAR(1); /* RESERVED @Z30OP9A*/ 03264000 * 0238 03265000 */* **************************************************************** */ 03266000 */* */ 03267000 */* 3800 DEVICE @Z40MP9A*/ 03268000 */* UCB EXTENSION @Z40MP9A*/ 03269000 */* */ 03270000 */* THIS EXTENSION IS POINTED TO BY THE UCBXTADR FIELD OF THE */ 03271000 */* UCB AND IS NOT CONTIGUOUS TO THE UCB. @Z40MP9A*/ 03272000 */* */ 03273000 *DECLARE 0239 03274000 * 1 UCB3800X BASED(UCBXTADR) BDY(WORD), /* (MDC305) @Z40MP9A*/ 03275000 * 0239 03276000 */* **************************************************************** */ 03277000 */* */ 03278000 * 2 UCBOPTNS BIT(8), /* OPTIONAL FEATURES INSTALLED ON 03279000 * PRINTER (MDC306) @Z40MP9A*/ 03280000 * 3 UCBRV051 BIT(1), /* RESERVED @Z40MP9A*/ 03281000 * 3 UCBRV052 BIT(1), /* RESERVED @Z40MP9A*/ 03282000 * 3 UCBRV053 BIT(1), /* RESERVED @Z40MP9A*/ 03283000 * 3 UCBRV054 BIT(1), /* RESERVED @Z40MP9A*/ 03284000 * 3 UCBRV055 BIT(1), /* RESERVED @Z40MP9A*/ 03285000 * 3 UCBRV056 BIT(1), /* RESERVED @Z40MP9A*/ 03286000 * 3 UCBBRSTR BIT(1), /* RESERVED (MDC307) @Z40MP9A*/ 03287000 * 3 UCBRV083 BIT(1), /* RESERVED (MDC308) @Z40MP9A*/ 03288000 * 2 UCBCGMNO PTR(8), /* NUMBER OF WRITEABLE CHARACTER 03289000 * GENERATION MODULES 0239 03290000 * (MDC309) @Z40MP9A*/ 03291000 * 2 UCBRV050 CHAR(1), /* RESERVED (MDC310) @Z40MP9A*/ 03292000 * 2 UCBACTIV BIT(8), /* ACTIVE FEATURES 0239 03293000 * (MDC311) @Z40MP9A*/ 03294000 * 3 UCBRV057 BIT(1), /* RESERVED @Z40MP9A*/ 03295000 * 3 UCBRV058 BIT(1), /* RESERVED @Z40MP9A*/ 03296000 * 3 UCBRV059 BIT(1), /* RESERVED @Z40MP9A*/ 03297000 * 3 UCBRV060 BIT(1), /* RESERVED @Z40MP9A*/ 03298000 * 3 UCBRV061 BIT(1), /* RESERVED @Z40MP9A*/ 03299000 * 3 UCBRV062 BIT(1), /* RESERVED @Z40MP9A*/ 03300000 * 3 UCBRV063 BIT(1), /* RESERVED @Z40MP9A*/ 03301000 * 3 UCBBRSTA BIT(1), /* RESERVED (MDC312) @Z40MP9A*/ 03302000 * 2 UCBCGMID (4) CHAR(1), /* FOUR ONE-BYTE ID'S FOR 0239 03303000 * CHARACTER MODULES LOADED IN 0239 03304000 * WRITEABLE CHARACTER GENERATION 03305000 * MODULES (WCGM'S) 0239 03306000 * (MDC313) @Z40MP9A*/ 03307000 * 2 UCBCHAR1 CHAR(4) BDY(WORD), /* NAME OF FIRST TRANSLATE TABLE 03308000 * (MDC314) @Z40MP9A*/ 03309000 * 2 UCBCHAR2 CHAR(4) BDY(WORD), /* NAME OF SECOND TRANSLATE TABLE 03310000 * (MDC315) @Z40MP9A*/ 03311000 * 2 UCBCHAR3 CHAR(4) BDY(WORD), /* NAME OF THIRD TRANSLATE TABLE 03312000 * (MDC316) @Z40MP9A*/ 03313000 * 2 UCBCHAR4 CHAR(4) BDY(WORD), /* NAME OF FOURTH TRANSLATE TABLE 03314000 * (MDC317) @Z40MP9A*/ 03315000 * 2 UCBFCBNM CHAR(4) BDY(WORD), /* FORMS CONTROL BUFFER (FCB) 0239 03316000 * IMAGE NAME (MDC318) @Z40MP9A*/ 03317000 * 2 UCBIMAGE CHAR(4) BDY(WORD), /* FORMS OVERLAY IMAGE 0239 03318000 * IDENTIFICATION 0239 03319000 * (MDC319) @Z40MP9A*/ 03320000 * 2 UCBRV074 PTR(31), /* RESERVED (MDC338) @Z40MP9A*/ 03321000 * 2 UCBMDRBF PTR(31), /* MISCELLANEOUS DATA RECORDING 0239 03322000 * (MDR) BUFFER ADDRESS 0239 03323000 * (MDC339) @Z40MP9A*/ 03324000 * 3 UCBRV075 PTR(8), /* RESERVED (MDC340) @Z40MP9A*/ 03325000 * 3 UCBMDRBA PTR(24); /* MDR BUFFER ADDRESS 0239 03326000 * (MDC341) @Z40MP9A*/ 03327000 * 0239 03328000 */* **************************************************************** */ 03329000 */* */ 03330000 */* UNIT RECORD WITH */ 03331000 */* UNIVERSAL CHARACTER SET (1403, 3211) */ 03332000 */* UCB EXTENSION */ 03333000 */* */ 03334000 */* THIS EXTENSION IS POINTED TO BY THE UCBXTADR FIELD OF THE */ 03335000 */* UCB AND IS NOT CONTIGUOUS TO THE UCB. */ 03336000 */* */ 03337000 *DECLARE 1 UCBUCS 0240 03338000 * BASED(UCBXTADR) BDY(WORD), /* DEVICE DEPENDENT SEGMENT */ 03339000 * 0240 03340000 */* **************************************************************** */ 03341000 * 0240 03342000 * 2 UCBUCSID CHAR(4) BDY(WORD),/* UCS IMAGE IDENTIFICATION IN 0240 03343000 * BUFFER */ 03344000 * 2 UCBUCSOP BIT(8), /* FORMAT OF UCS IMAGE IN BUFFER 03345000 * (O FOR OPTION) */ 03346000 * 3 UCBUCSO1 BIT(1), /* UCS IMAGE IS A DEFAULT IMAGE */ 03347000 * 3 UCBUCSO2 BIT(1), /* UCS IMAGE IS IN FOLD MODE */ 03348000 * 3 UCBRSV39 BIT(1), /* RESERVED */ 03349000 * 3 UCBRSV40 BIT(1), /* RESERVED */ 03350000 * 3 UCBRSV41 BIT(1), /* RESERVED */ 03351000 * 3 UCBRSV42 BIT(1), /* RESERVED */ 03352000 * 3 UCBRSV43 BIT(1), /* RESERVED */ 03353000 * 3 UCBUCSPE BIT(1), /* UCS IMAGE HAS PARITY ERROR 0240 03354000 * (3211) */ 03355000 * 2 UCBFCBOP BIT(8), /* RESERVED (1403) OR FCB OPTIONS 03356000 * (3211) (O FOR OPTION) */ 03357000 * 3 UCBFCBO1 BIT(1), /* FCB IMAGE IS A DEFAULT IMAGE */ 03358000 * 3 UCBRSV44 BIT(1), /* RESERVED */ 03359000 * 3 UCBRSV45 BIT(1), /* RESERVED */ 03360000 * 3 UCBRSV46 BIT(1), /* RESERVED */ 03361000 * 3 UCBRSV47 BIT(1), /* RESERVED */ 03362000 * 3 UCBRSV48 BIT(1), /* RESERVED */ 03363000 * 3 UCBRSV49 BIT(1), /* RESERVED */ 03364000 * 3 UCBFCBPE BIT(1), /* FCB IMAGE HAS PARITY ERROR 0240 03365000 * (MDC372) @ZA26074*/ 03366000 * 2 UCBRSV51 PTR(8), /* RESERVED */ 03367000 * 2 UCBERCNT PTR(8), /* CONTAINS A COUNT OF THE ERRORS 03368000 * THAT HAVE OCCURRED. THE COUNT, 03369000 * WHICH MAY WRAP AROUND, IS 0240 03370000 * WRITTEN IN STANDARD OBR RECORDS 03371000 * (ONE PER ERROR) AND IN NEW 0240 03372000 * DEVICE-DEPENDENT OBR RECORDS (0 03373000 * TO 3 PER ERROR) AND SERVE TO 0240 03374000 * RELATE TO EACH OTHER THE 0240 03375000 * STANDARD AND DEVICE-DEPENDENT 03376000 * OBR RECORDS THAT PERTAIN TO 0240 03377000 * EACH ERROR (3211) */ 03378000 * 2 UCBFCBID CHAR(4) BDY(WORD),/* THE FCB IMAGE IDENTIFICATION */ 03379000 * 2 UCBERADR PTR(31); /* THE ADDRESS OF THE ERP LOGOUT 03380000 * AREA */ 03381000 * 0240 03382000 * 0240 03383000 *DECLARE UCBBGN BASED(UCBPTR-512) CHAR(536) BDY(WORD); 0241 03384000 * 0242 03385000 */* */ 03386000 */* COMMUNICATION VECTOR TABLE */ 03387000 */* */ 03388000 */* OS/VS2 RELEASE 3.7 PTF, 03/30/77, LEVEL=17 */ 03389000 */* */ 03390000 */* METHOD OF ACCESS */ 03391000 */* PL/S - DCL CVTPTR PTR */ 03392000 */* BAL - DSECT=YES SHOULD BE SPECIFIED ON MACRO CALL EXCEPT */ 03393000 */* WHEN CALLED DURING SYSGEN TO CREATE CSECT. CVT FOR */ 03394000 */* OS/VS2 IS MAPPED UNLESS SYS=AOS1 IS SPECIFIED. THE */ 03395000 */* PREFIX IS NOT MAPPED UNLESS PREFIX=YES IS SPECIFIED. */ 03396000 */* A USING ON CVTMAP OR DSECT NAME WILL ESTABLISH */ 03397000 */* ADDRESSABILITY FOR ALL SYMBOLS EXCEPT IN THE 2 */ 03398000 */* EXTENSIONS. TO ESTABLISH ADDRESSABILITY FOR THE */ 03399000 */* OS - OS/VS COMMON EXTENSION, YOU SHOULD CODE */ 03400000 */* */ 03401000 */* L REG,CVTEXT1 */ 03402000 */* USING CVTXTNT1,REG */ 03403000 */* */ 03404000 */* TO ESTABLISH ADDRESSABILITY FOR THE OS/VS1 - OS/VS2 */ 03405000 */* COMMON EXTENSION, YOU SHOULD CODE */ 03406000 */* */ 03407000 */* L REG,CVTEXT2 */ 03408000 */* USING CVTXTNT2,REG */ 03409000 */* */ 03410000 */* WHERE REG IN EITHER CASE IS ANY REGISTER OTHER */ 03411000 */* THAN ZERO. */ 03412000 */* */ 03413000 */* WHEN LISTING IS SUPPRESSED, YOU CAN DETERMINE WHICH */ 03414000 */* DSECT A SYMBOL IS IN BY USING THE STATEMENT NUMBER */ 03415000 */* IN THE DEFN COLUMN IN THE CROSS REFERENCE LISTING. */ 03416000 */* FOR EXAMPLE, ANY SYMBOL DEFINED BETWEEN THE */ 03417000 */* STATEMENT NUMBERS FOR CVTXTNT1 AND CVTXTNT2 IS IN */ 03418000 */* THE OS - OS/VS COMMON EXTENSION. */ 03419000 */* */ 03420000 */* F.E.'S */ 03421000 */* MICROFICHE LISTING - CVT */ 03422000 */* */ 03423000 */* DEVELOPERS */ 03424000 */* BAL LISTING - SPECIFY LIST=YES ON MACRO CALL */ 03425000 */* PL/S LISTING - SPECIFY %IHALIST='YES' BEFORE INCLUDE */ 03426000 */* */ 03427000 */* FOR INTEGRATION, A LISTING MUST NOT BE REQUESTED UNLESS */ 03428000 */* YOUR MODULE CREATES THE CSECT. */ 03429000 * 0242 03430000 * /* CVT PROPER */ 03431000 * 0242 03432000 * DECLARE 0242 03433000 * 1 CVTMAP BASED(CVTPTR) BDY(WORD), 0242 03434000 * 2 CVT CHAR(0) BDY(WORD), /* BEGINNING OF CVT MDC150*/ 03435000 * 2 CVTTCBP PTR(31), /* ADDRESS OF A DOUBLE WORD, THE 03436000 * FIRST CONTAINING THE NEXT-TO- 03437000 * BE-DISPATCHED TCB ADDRESS. 0242 03438000 * THE SECOND CONTAINING THE 0242 03439000 * LAST (CURRENT) TCB ADDRESS. 03440000 * BOTH WORDS ARE IDENTICAL 0242 03441000 * UNLESS THE TASK GOES INTO A 03442000 * WAIT STATE. WHEN IN A WAIT 03443000 * STATE, THE FIRST WORD IS SET 03444000 * TO ZERO UNTIL THE WAITING IS 03445000 * OVER AND THEN BOTH WORDS ARE 03446000 * ONCE AGAIN IDENTICAL. 0242 03447000 * (OS/VS1) 0242 03448000 * ADDRESS OF 4-WORD LIST OF 0242 03449000 * ADDRESSES - THE NEXT TCB, THE 03450000 * CURRENT TCB, THE NEXT ASCB 0242 03451000 * AND THE CURRENT ASCB, IN THAT 03452000 * ORDER (OS/VS2) MDC026*/ 03453000 * 2 CVT0EF00 PTR(31), /* ADDRESS OF ROUTINE TO SCHEDULE 03454000 * ASYNCHRONOUS EXITS */ 03455000 * 2 CVTLINK PTR(31), /* ADDRESS OF DCB FOR 0242 03456000 * SYS1.LINKLIB DATA SET */ 03457000 * 2 CVTJOB PTR(31), /* ADDRESS OF QUEUE MANAGER 0242 03458000 * RESIDENT DATA AREA (QMRES) 0242 03459000 * (OS/VS1) (MDC083) XM4042*/ 03460000 * 2 CVTBUF PTR(31), /* ADDRESS OF THE BUFFER OF THE 03461000 * RESIDENT CONSOLE INTERRUPT 0242 03462000 * ROUTINE */ 03463000 * 2 CVTXAPG PTR(31), /* ADDRESS OF I/O SUPERVISOR 0242 03464000 * APPENDAGE VECTOR TABLE */ 03465000 * 2 CVT0VL00 PTR(31), /* ADDRESS OF ENTRY POINT OF THE 03466000 * TASK SUPERVISOR'S ADDRESS 0242 03467000 * VALIDITY CHECKING ROUTINE */ 03468000 * 2 CVTPCNVT PTR(31), /* ADDRESS OF ENTRY POINT OF THE 03469000 * ROUTINE WHICH CONVERTS A 0242 03470000 * RELATIVE TRACK ADDRESS (TTR) 03471000 * TO AN ABSOLUTE TRACK ADDRESS 03472000 * (MBBCCHHR) */ 03473000 * 2 CVTPRLTV PTR(31), /* ADDRESS OF ENTRY POINT OF THE 03474000 * ROUTINE WHICH CONVERTS AN 0242 03475000 * ABSOLUTE TRACK ADDRESS 0242 03476000 * (MBBCCHHR) TO A RELATIVE 0242 03477000 * TRACK ADDRESS (TTR) */ 03478000 * 2 CVTILK1 PTR(31), /* ADDRESS OF THE CHANNEL AND 0242 03479000 * CONTROL UNIT PORTION OF THE 03480000 * UCB LOOKUP TABLE */ 03481000 * 2 CVTILK2 PTR(31), /* ADDRESS OF THE UCB HALFWORD 03482000 * ADDRESS LIST PORTION OF THE 03483000 * UCB LOOKUP TABLE */ 03484000 * 2 CVTXTLER PTR(31), /* ADDRESS OF ERROR RECOVERY 0242 03485000 * PROCEDURE (ERP) LOADER 0242 03486000 * (IECVERPL) ENTRY POINT 0242 03487000 * IECXTLER (MDC349) @Z40AQ9A*/ 03488000 * 2 CVTSYSAD PTR(31), /* ADDRESS OF THE SYSTEM 0242 03489000 * RESIDENCE VOLUME ENTRY IN THE 03490000 * UCB LOOKUP TABLE */ 03491000 * 2 CVTBTERM PTR(31), /* ADDRESS OF ENTRY POINT OF THE 03492000 * ABTERM ROUTINE */ 03493000 * 2 CVTDATE CHAR(4) BDY(WORD), /* CURRENT DATE IN PACKED 0242 03494000 * DECIMAL */ 03495000 * 2 CVTMSLT PTR(31), /* ADDRESS OF THE MASTER COMMON 03496000 * AREA IN MASTER SCHEDULER 0242 03497000 * RESIDENT DATA AREA. 0242 03498000 * NOTE - USE CVTMSER INSTEAD 03499000 * TO ADDRESS MASTER SCHEDULER 03500000 * RESIDENT DATA AREA. */ 03501000 * 2 CVTZDTAB PTR(31), /* ADDRESS OF I/O DEVICE 0242 03502000 * CHARACTERISTIC TABLE */ 03503000 * 2 CVTXITP PTR(31), /* ADDRESS OF ERROR INTERPRETER 03504000 * ROUTINE */ 03505000 * 2 CVTDAR PTR(31), /* SAME AS CVTDARA BELOW 0242 03506000 * (OS/VS1) MDC029*/ 03507000 * 3 CVTFLGS1 BIT(8), /* FLAG BYTE (OS/VS1) MDC030*/ 03508000 * 4 CVTDMPLK BIT(1), /* SVC DUMP IS IN PROGRESS 0242 03509000 * (OS/VS1) MDC030*/ 03510000 * 4 CVTRSV01 BIT(1), /* RESERVED */ 03511000 * 4 CVTRSV02 BIT(1), /* RESERVED */ 03512000 * 4 CVTRSV03 BIT(1), /* RESERVED */ 03513000 * 4 CVTRSV04 BIT(1), /* RESERVED */ 03514000 * 4 CVTRSV05 BIT(1), /* RESERVED */ 03515000 * 4 CVTRSV06 BIT(1), /* RESERVED */ 03516000 * 4 CVTRSV07 BIT(1), /* RESERVED */ 03517000 * 3 CVTDARA PTR(24), /* ADDRESS OF THE SYS1.DUMP I/O 03518000 * CONTROL BLOCKS NEEDED BY 0242 03519000 * ABEND'S DAMAGE ASSESSMENT 0242 03520000 * ROUTINE (DAR) (OS/VS1) MDC029*/ 03521000 * 2 CVT0FN00 PTR(31), /* ADDRESS OF ENTRY POINT OF THE 03522000 * FINCH ROUTINE (OS/VS1) */ 03523000 * 2 CVTEXIT CHAR(2) BDY(WORD), /* AN SVC 3 INSTRUCTION. EXIT 03524000 * TO DISPATCHER. */ 03525000 * 2 CVTBRET CHAR(2) BDY(WORD,3), /* A BCR 15,14 INSTRUCTION. 0242 03526000 * RETURN TO CALLER (USED BY 0242 03527000 * DATA MANAGEMENT ROUTINES) */ 03528000 * 2 CVTSVDCB PTR(31), /* ADDRESS OF THE DCB FOR THE 0242 03529000 * SYS1.SVCLIB DATA SET */ 03530000 * 2 CVTTPC PTR(31), /* ADDRESS OF THE TIMER 0242 03531000 * SUPERVISOR WORK AREA */ 03532000 * 2 CVTPBLDL PTR(31), /* ADDRESS OF BRANCH AND LINK 0242 03533000 * (BALR) ENTRY POINT OF THE 0242 03534000 * BLDL ROUTINE (OS/VS1) MDC103*/ 03535000 * 2 CVTSJQ PTR(31), /* ADDRESS OF THE SELECTED JOB 03536000 * QUEUE (OS/VS1) */ 03537000 * 2 CVTCUCB PTR(31), /* ADDRESS OF THE TABLE THAT 0242 03538000 * CONTAINS THE CURRENT CONSOLE 03539000 * UCB ADDRESSES */ 03540000 * 2 CVTQTE00 PTR(31), /* ADDRESS OF THE TIMER ENQUEUE 03541000 * ROUTINE FOR INTERVAL TIMER */ 03542000 * 2 CVTQTD00 PTR(31), /* ADDRESS OF THE TIMER DEQUEUE 03543000 * ROUTINE FOR INTERVAL TIMER */ 03544000 * 2 CVTSTB PTR(31), /* ADDRESS OF THE I/O DEVICE 0242 03545000 * STATISTICS TABLE */ 03546000 * 2 CVTDCB CHAR(1) BDY(WORD), /* OPERATING SYSTEM 0242 03547000 * CONFIGURATION */ 03548000 * 4 CVTRSV08 BIT(1), /* RESERVED */ 03549000 * 4 CVT1SSS BIT(1), /* PCP */ 03550000 * 4 CVT2SPS BIT(1), /* MFT, OS/VS1 */ 03551000 * 4 CVT4MS1 BIT(1), /* MVT, OS/VS2 */ 03552000 * 4 CVTRSV09 BIT(1), /* RESERVED */ 03553000 * 4 CVT4MPS BIT(1), /* MODEL 65 MULTIPROCESSING */ 03554000 * 4 CVT6DAT BIT(1), /* DYNAMIC ADDRESS TRANSLATION 03555000 * BY CPU (OS/VS1, OS/VS2) */ 03556000 * 4 CVTMVS2 BIT(1), /* MULTIPLE MEMORY OPTION OF 0242 03557000 * OS/VS2 IS PRESENT MDC131*/ 03558000 * 2 CVTDCBA PTR(24), /* ADDRESS OF THE DCB FOR THE 0242 03559000 * SYS1.LOGREC (OUTBOARD 0242 03560000 * RECORDER) DATA SET FOR SYSTEM 03561000 * ENVIRONMENT RECORDING (SER) */ 03562000 * 2 CVTIOQET PTR(31), /* ADDRESS OF IOS REQUEST ELEMENT 03563000 * TABLE (OS/VS1) MDC020*/ 03564000 * 3 CVTSV76M FIXED(31), /* SVC 76 MESSAGE COUNT FIELD 0242 03565000 * (OS/VS2) (MDC372) @ZA18857*/ 03566000 * 2 CVTIXAVL PTR(31), /* ADDRESS OF THE I/O 0242 03567000 * SUPERVISOR'S FREELIST POINTER 03568000 * WHICH CONTAINS THE ADDRESS OF 03569000 * THE NEXT REQUEST ELEMENT 0242 03570000 * (OS/VS1) 0242 03571000 * ADDRESS OF THE I/O 0242 03572000 * SUPERVISOR'S COMMUNICATION 0242 03573000 * AREA (IOCOM) (OS/VS2) */ 03574000 * 2 CVTNUCB PTR(31), /* LOWEST ADDRESS NOT IN THE 0242 03575000 * NUCLEUS (ON PAGE BOUNDARY FOR 03576000 * OS/VS1) (ON SEGMENT BOUNDARY 03577000 * FOR OS/VS2) (MDC318) @Z30AQ9A*/ 03578000 * 2 CVTFBOSV PTR(31), /* ADDRESS OF PROGRAM FETCH 0242 03579000 * ROUTINE */ 03580000 * 2 CVT0DS PTR(31), /* ADDRESS OF ENTRY POINT OF THE 03581000 * DISPATCHER */ 03582000 * 2 CVTILCH PTR(31), /* ADDRESS OF THE LOGICAL 0242 03583000 * CHANNEL WORD TABLE */ 03584000 * 2 CVTIERLC PTR(31), /* ADDRESS OF THE ASYNCHRONOUS 03585000 * EXIT QUEUE (OS/VS1) 0242 03586000 * (MDC218) YM4043*/ 03587000 * 3 CVTRV516 PTR(31), /* ** CVTIERLC FIELD UNUSED IN 03588000 * MVS ** (MDC218) YM4043*/ 03589000 * 2 CVTMSER PTR(31), /* ADDRESS OF DATA AREA OF 0242 03590000 * MASTER SCHEDULER RESIDENT 0242 03591000 * DATA AREA */ 03592000 * 2 CVT0PT01 PTR(31), /* ADDRESS OF BRANCH ENTRY POINT 03593000 * OF POST ROUTINE */ 03594000 * 2 CVTRSV11 PTR(31), /* ** CVTTRMTB FIELD UNUSED 0242 03595000 * IN OS/VS ** */ 03596000 * 2 CVTHEAD PTR(31), /* ADDRESS OF THE HIGHEST 0242 03597000 * PRIORITY TCB IN THE READY 0242 03598000 * QUEUE (OS/VS1) MDC025*/ 03599000 * 3 CVTSV76C BIT(32) BDY(WORD), /* SVC 76 MESSAGE CONTROL FIELD. 03600000 * HIGH-ORDER BIT IS DEFINED, 0242 03601000 * AND ALL OTHER BITS ARE ZERO. 03602000 * (OS/VS2) (MDC373) @ZA18857*/ 03603000 * 4 CVTSV76Q BIT(1), /* SVC 76 ENQUEUE SWITCH 0242 03604000 * (OS/VS2) (MDC374) @ZA18857*/ 03605000 * 2 CVTMZ00 PTR(31), /* HIGHEST ADDRESS IN VIRTUAL 0242 03606000 * STORAGE FOR THE MACHINE */ 03607000 * 2 CVT1EF00 PTR(31), /* ADDRESS OF ROUTINE WHICH 0242 03608000 * CREATES IRB'S FOR EXITS */ 03609000 * 2 CVTQOCR PTR(31), /* GRAPHICS INTERFACE TASK (GFX) 03610000 * FIELD. ADDRESS OF SEVENTH 0242 03611000 * WORD OF GFX PARAMETER LIST, 03612000 * IF GFX IS ACTIVE. ZERO IF 0242 03613000 * GFX IS NOT ACTIVE. */ 03614000 * 2 CVTQMWR PTR(31), /* ADDRESS OF QUEUE MANAGER'S 0242 03615000 * SYSTEM OUTPUT COMMUNICATIONS- 03616000 * DATA-AREA (CDA), WHICH IS 0242 03617000 * STORED ON AN EXTERNAL DEVICE */ 03618000 * 2 CVTSNCTR FIXED(15), /* SERIAL NUMBER COUNTER FOR 0242 03619000 * ASSIGNING SERIAL NUMBERS TO 03620000 * NON-SPECIFIC, UNLABELED 0242 03621000 * MAGNETIC TAPE VOLUMES */ 03622000 * 2 CVTOPTA CHAR(1), /* OPTION INDICATORS */ 03623000 * 3 CVTCCH BIT(1), /* CHANNEL CHECK HANDLER (CCH) 03624000 * OPTION PRESENT - RECOVERY 0242 03625000 * MANAGEMENT SUPPORT (RMS) 0242 03626000 * XM4686*/ 03627000 * 3 CVTAPR BIT(1), /* ALTERNATE PATH RETRY (APR) 0242 03628000 * OPTION PRESENT - RECOVERY 0242 03629000 * MANAGEMENT SUPPORT (RMS) */ 03630000 * 3 CVTDDR BIT(1), /* DYNAMIC DEVICE 0242 03631000 * RECONFIGURATION (DDR) OPTION 03632000 * PRESENT - RECOVERY MANAGEMENT 03633000 * SUPPORT (RMS) (OS/VS1) 0242 03634000 * DDR SYSTEM-INITIATED SWAP 0242 03635000 * ACTIVE (OS/VS2) MDC126*/ 03636000 * 3 CVTNIP BIT(1), /* NIP IS EXECUTING */ 03637000 * 3 CVTRSV12 BIT(1), /* RESERVED */ 03638000 * 3 CVTRSV13 BIT(1), /* RESERVED */ 03639000 * 3 CVTASCII BIT(1), /* ASCII TAPE PROCESSING IS 0242 03640000 * GENERATED IN THIS SYSTEM */ 03641000 * 3 CVTXPFP BIT(1), /* CPU HAS EXTENDED PRECISION 0242 03642000 * FLOATING POINT FEATURE */ 03643000 * 2 CVTOPTB CHAR(1), /* MISCELLANEOUS FLAGS */ 03644000 * 3 CVTPROT BIT(1), /* CPU HAS STORE PROTECTION 0242 03645000 * FEATURE (OS/VS1) */ 03646000 * 3 CVTCTIMS BIT(1), /* IF ON, HARDWARE HAS THE CLOCK 03647000 * COMPARATOR AND CPU TIMER 0242 03648000 * FEATURE INSTALLED, AND OS/VS1 03649000 * SYSGEN HAS SPECIFIED THIS 0242 03650000 * FEATURE (OS/VS1) MDC127*/ 03651000 * 3 CVTTOD BIT(1), /* CPU HAS TIME-OF-DAY CLOCK 0242 03652000 * FEATURE */ 03653000 * 3 CVTNLOG BIT(1), /* SYS1.LOGREC IS UNAVAILABLE 0242 03654000 * FOR ERROR RECORDING. ALWAYS 03655000 * SET TO ZERO FOR OS/VS1 ICB382*/ 03656000 * 3 CVTAPTHR BIT(1), /* NIP SETS THIS BIT TO 1 WHEN 03657000 * DEVICE TESTING IS COMPLETE. 03658000 * IF 1, I/O SUPERVISOR USES AN 03659000 * ALTERNATE PATH TO A DEVICE 0242 03660000 * WHEN A CONDITION CODE OF 3 0242 03661000 * EXISTS. THIS BIT IS RESET BY 03662000 * NIP TO 0 AFTER THE LINK PACK 03663000 * AREA IS INITIALIZED. YM2670*/ 03664000 * 3 CVTFP BIT(1), /* CPU HAS FETCH PROTECTION 0242 03665000 * FEATURE (OS/VS1) ICB427*/ 03666000 * 3 CVTRSV16 BIT(1), /* RESERVED */ 03667000 * 3 CVTRSV17 BIT(1), /* RESERVED */ 03668000 * 2 CVTQCDSR PTR(31), /* CDE SEARCH ROUTINE ADDRESS 0242 03669000 * (OS/VS2) 0242 03670000 * ADDRESS OF THE ROUTINE THAT 03671000 * SEARCHES THE REENTERABLE LOAD 03672000 * MODULE QUEUE (OS/VS1) */ 03673000 * 2 CVTQLPAQ PTR(31), /* ADDRESS OF POINTER TO MOST 0242 03674000 * RECENT ENTRY ON LINK PACK 0242 03675000 * AREA CDE QUEUE (OS/VS2) 0242 03676000 * ADDRESS OF THE REENTERABLE 0242 03677000 * LOAD MODULE QUEUE (OS/VS1) */ 03678000 * 2 CVTRSV18 PTR(31), /* ** CVTMPCVT FIELD UNUSED IN 03679000 * OS/VS ** */ 03680000 * 2 CVTSMCA PTR(31), /* ADDRESS OF THE SYSTEM 0242 03681000 * MANAGEMENT CONTROL AREA 0242 03682000 * (SMCA) IF THE SYSTEM 0242 03683000 * MANAGEMENT FACILITIES (SMF) 03684000 * OPTION IS PRESENT IN THE 0242 03685000 * SYSTEM. OTHERWISE, ZERO. */ 03686000 * 2 CVTABEND PTR(31), /* ADDRESS OF SECONDARY CVT FOR 03687000 * ABEND IN EOT (OS/VS2) 0242 03688000 * USED BY AN INTERNAL ABEND 0242 03689000 * TRACE ROUTINE FOR DEBUG 0242 03690000 * PURPOSES (OS/VS1) XM0615*/ 03691000 * 2 CVTUSER PTR(31), /* A WORD AVAILABLE TO THE USER */ 03692000 * 2 CVTMDLDS PTR(31), /* RESERVED FOR MODEL-DEPENDENT 03693000 * SUPPORT */ 03694000 * 2 CVTQABST CHAR(2) BDY(WORD), /* AN SVC 13 (ABEND) INSTRUCTION 03695000 * (OS/VS2) RESERVED (OS/VS1) */ 03696000 * 2 CVTLNKSC CHAR(2) BDY(WORD,3), /* AN SVC 6 (LINK) INSTRUCTION 03697000 * ICB369*/ 03698000 * 2 CVTTSCE PTR(31), /* ADDRESS OF THE FIRST TIME 0242 03699000 * SLICE CONTROL ELEMENT (TSCE) */ 03700000 * 2 CVTPATCH PTR(31), /* ADDRESS OF A 200-BYTE FE 0242 03701000 * PATCH AREA */ 03702000 * 2 CVTRMS PTR(31), /* RECOVERY MANAGEMENT SUPPORT 03703000 * (RMS) COMMUNICATIONS VECTOR. 03704000 * ADDRESS OF A MACHINE STATUS 03705000 * BLOCK. */ 03706000 * 2 CVTRV515 PTR(31), /* ** CVTTSCVT FIELD UNUSED IN 03707000 * MVS ** (MDC037) @Z40AQ9A*/ 03708000 * 2 CVT0SCR1 PTR(31), /* ADDRESS OF THE SECTOR 0242 03709000 * CALCULATION ROUTINE FOR 0242 03710000 * ROTATIONAL POSITION SENSING 03711000 * (RPS) */ 03712000 * 2 CVTGTF PTR(31), /* GENERALIZED TRACE FACILITY 0242 03713000 * (GTF) CONTROL WORD ICB312*/ 03714000 * 3 CVTGTFST BIT(8), /* GTF FLAG BYTE ICB312*/ 03715000 * 4 CVTGTFS BIT(2), /* GTF STATUS (OS/VS1) MDC088*/ 03716000 * 5 CVTGTFAV BIT(1), /* IF ZERO, GTF NOT ACTIVE. 0242 03717000 * IF ONE, GTF ACTIVE. 0242 03718000 * (OS/VS2) MDC098*/ 03719000 * 5 CVTRV315 BIT(1), /* RESERVED (OS/VS2) */ 03720000 * 4 CVTSTATE BIT(1), /* GTF IS IN CONTROL PROCESSING 03721000 * A HOOK (OS/VS1) MDC093*/ 03722000 * 5 CVTRV316 BIT(1), /* RESERVED (OS/VS2) */ 03723000 * 4 CVTTMODE BIT(1), /* IF 0, MODE=INT SPECIFIED. 0242 03724000 * IF 1, MODE=EXT SPECIFIED 0242 03725000 * WHICH MEANS TRACE DATA IS TO 03726000 * BE WRITTEN TO AN EXTERNAL 0242 03727000 * DEVICE. (OS/VS1) MDC094*/ 03728000 * 5 CVTRV317 BIT(1), /* RESERVED (OS/VS2) */ 03729000 * 4 CVTFORM BIT(1), /* TRACE DATA IS TO BE FORMATTED 03730000 * ON ABNORMAL TERMINATION 0242 03731000 * (OS/VS1) MDC095*/ 03732000 * 5 CVTRV318 BIT(1), /* RESERVED (OS/VS2) */ 03733000 * 4 CVTUSR BIT(1), /* TRACE=USR SPECIFIED. 0242 03734000 * USER-REQUESTED TRACE DATA IS 03735000 * TO BE INCLUDED IN THE TRACE 03736000 * DATA SET. (MDC317) @Z30AP9A*/ 03737000 * 4 CVTRNIO BIT(1), /* GTF IS ACTIVE AND TRACING 0242 03738000 * RNIO EVENTS MDC187*/ 03739000 * 4 CVTRSV27 BIT(1), /* RESERVED */ 03740000 * 3 CVTGTFA PTR(24), /* ADDRESS OF THE MONITOR CALL 03741000 * VECTOR TABLE (OS/VS1) 0242 03742000 * ADDRESS OF MAIN MONITOR CALL 03743000 * ROUTING TABLE, MCHEAD 0242 03744000 * (OS/VS2) MDC156*/ 03745000 * 2 CVTAQAVT PTR(31), /* ADDRESS OF THE FIRST WORD OF 03746000 * THE TCAM DISPATCHER WHICH 0242 03747000 * CONTAINS THE ADDRESS OF THE 03748000 * ADDRESS VECTOR TABLE (AVT). 03749000 * IF ZERO, TCAM IS NOT STARTED */ 03750000 * 3 CVTTCMFG CHAR(1), /* TCAM FLAGS */ 03751000 * 4 CVTTCRDY BIT(1), /* TCAM IS READY TO ACCEPT USERS*/ 03752000 * 4 CVTRSV28 BIT(1), /* RESERVED */ 03753000 * 4 CVTRSV29 BIT(1), /* RESERVED */ 03754000 * 4 CVTRSV30 BIT(1), /* RESERVED */ 03755000 * 4 CVTRSV31 BIT(1), /* RESERVED */ 03756000 * 4 CVTRSV32 BIT(1), /* RESERVED */ 03757000 * 4 CVTRSV33 BIT(1), /* RESERVED */ 03758000 * 4 CVTRSV34 BIT(1), /* RESERVED */ 03759000 * 3 CVTAQAVB PTR(24), /* SAME AS CVTAQAVT ABOVE */ 03760000 * 2 CVTVOLM2 PTR(31), /* ADDRESS OF TABLE FOR POWER 0242 03761000 * WARNING FEATURE (PWF) 0242 03762000 * (OS/VS2) (MDC308) @Z30AQ9A*/ 03763000 * 3 CVTTATA PTR(31), /* ADDRESS OF THE FIRST ENTRY IN 03764000 * THE TCB ADDRESS TABLE. THE 03765000 * FIRST ENTRY IS FOR PARTITION 03766000 * 0. (OS/VS1) */ 03767000 * 4 CVTTSKS PTR(8), /* MAXIMUM ALLOWABLE NUMBER OF 03768000 * ENTRIES IN THE TCB ADDRESS 0242 03769000 * TABLE (OS/VS1) */ 03770000 * 5 CVTVOLF2 BIT(8), /* PWF FLAG BYTE. THIS BYTE IS 03771000 * OVERLAID BY CVTVOLM2 AFTER 0242 03772000 * PWF INITIALIZATION. 0242 03773000 * (OS/VS2) (MDC309) @Z30AQ9A*/ 03774000 * 6 CVTVOLI2 BIT(1), /* PWF INITIALIZATION HAS NOT 0242 03775000 * OCCURRED (OS/VS2) 0242 03776000 * (MDC310) @Z30AQ9A*/ 03777000 * 4 CVTTAT PTR(24), /* SAME AS CVTTATA ABOVE */ 03778000 * 5 CVTVOLT2 PTR(24), /* PWF RECHECK TIME DELAY. 0242 03779000 * THIS VALUE IS OVERLAID BY 0242 03780000 * CVTVOLM2 AFTER PWF 0242 03781000 * INITIALIZATION. (OS/VS2) 0242 03782000 * (MDC311) @Z30AQ9A*/ 03783000 * 2 CVTATER PTR(31), /* ADDRESS OF THE SYSTEM ERROR 03784000 * TCB. THE PURGE ROUTINE USES 03785000 * THIS FIELD TO ACCESS THE 0242 03786000 * SIRB. (OS/VS1) ICB346*/ 03787000 * 3 CVTSYST PTR(8), /* NUMBER OF ENTRIES IN THE TCB 03788000 * ADDRESS TABLE FOR TCB'S 0242 03789000 * CREATED DURING SYSTEM 0242 03790000 * GENERATION (OS/VS1) */ 03791000 * 3 CVTATERA PTR(24), /* SAME AS CVTATER ABOVE */ 03792000 * 2 CVTEXT1 PTR(31), /* ADDRESS OF OS - OS/VS COMMON 03793000 * EXTENSION ICB421*/ 03794000 * 2 CVTCBSP PTR(31), /* ADDRESS OF ACCESS METHOD 0242 03795000 * CONTROL BLOCK STRUCTURE 0242 03796000 * MDC195*/ 03797000 * 2 CVTPURG PTR(31), /* ADDRESS OF SUBSYSTEM PURGE 0242 03798000 * ROUTINE ICB330*/ 03799000 * 3 CVTRSV35 PTR(8), /* RESERVED ICB330*/ 03800000 * 3 CVTPURGA PTR(24), /* ADDRESS OF SUBSYSTEM PURGE 0242 03801000 * ROUTINE ICB330*/ 03802000 * 2 CVTAMFF CHAR(4), /* RESERVED FOR ACCESS METHOD 0242 03803000 * FLAGS ICB436*/ 03804000 * 2 CVTQMSG PTR(31), /* ADDRESS OF INFORMATION TO BE 03805000 * PRINTED BY ABEND ICB307*/ 03806000 * 3 CVTRSV36 PTR(8), /* RESERVED ICB307*/ 03807000 * 3 CVTQMSGA PTR(24), /* ADDRESS OF INFORMATION TO BE 03808000 * PRINTED BY ABEND ICB307*/ 03809000 * 2 CVTDMSR PTR(31), /* SAME AS CVTDMSRA BELOW ICB346*/ 03810000 * 3 CVTRSV37 PTR(8), /* RESERVED (OS/VS1) ICB346*/ 03811000 * 4 CVTDMSRF BIT(8), /* OPEN/CLOSE/EOV FLAG BYTE. 0242 03812000 * SETTING BOTH BIT 0 AND BIT 1 03813000 * ON WILL CAUSE BOTH KINDS OF 03814000 * DUMPS TO BE TAKEN. THESE 0242 03815000 * BITS ARE USED DURING TESTING 03816000 * AND DEBUGGING WHEN OTHER 0242 03817000 * DEBUG METHODS ARE INEFFECTIVE. 03818000 * (OS/VS2) (MDC350) @Z40AQ9A*/ 03819000 * 5 CVTSDUMP BIT(1), /* SET BY COREZAP. WILL CAUSE 03820000 * AN SDUMP TO BE TAKEN AND 0242 03821000 * IEC999I MESSAGE ISSUED FOR 0242 03822000 * EVERY ABEND ISSUED WITHIN AN 03823000 * OPEN/CLOSE/EOV OR DADSM 0242 03824000 * FUNCTION. (OS/VS2) 0242 03825000 * (MDC351) @Z40AQ9A*/ 03826000 * 5 CVTUDUMP BIT(1), /* SET BY COREZAP. WILL CAUSE 03827000 * AN ABEND DUMP TO BE TAKEN FOR 03828000 * EVERY ABEND ISSUED WITHIN AN 03829000 * OPEN/CLOSE/EOV OR DADSM 0242 03830000 * FUNCTION. (OS/VS2) 0242 03831000 * (MDC352) @Z40AQ9A*/ 03832000 * 5 CVTRV629 BIT(1), /* RESERVED (OS/VS2) @Z40AQ9A*/ 03833000 * 5 CVTRV630 BIT(1), /* RESERVED (OS/VS2) @Z40AQ9A*/ 03834000 * 5 CVTRV631 BIT(1), /* RESERVED (OS/VS2) @Z40AQ9A*/ 03835000 * 5 CVTRV632 BIT(1), /* RESERVED (OS/VS2) @Z40AQ9A*/ 03836000 * 5 CVTRV633 BIT(1), /* RESERVED (OS/VS2) @Z40AQ9A*/ 03837000 * 5 CVTRV634 BIT(1), /* RESERVED (OS/VS2) @Z40AQ9A*/ 03838000 * 3 CVTDMSRA PTR(24), /* ADDRESS OF THE OPEN/CLOSE/EOV 03839000 * SUPERVISORY ROUTINE IN THE 0242 03840000 * NUCLEUS. THIS ROUTINE 0242 03841000 * HANDLES THE ROUTING OF 0242 03842000 * CONTROL AMONG THE I/O SUPPORT 03843000 * ROUTINES. ICB346*/ 03844000 * 2 CVTRSV38 PTR(31), /* RESERVED */ 03845000 * 2 CVTRSV39 PTR(31), /* RESERVED */ 03846000 * 0242 03847000 * /* OS/VS1 - OS/VS2 COMMON SECTION */ 03848000 * 0242 03849000 * 2 CVTREAL PTR(31), /* ADDRESS OF THE VIRTUAL 0242 03850000 * STORAGE BYTE FOLLOWING THE 0242 03851000 * HIGHEST VIRTUAL=REAL STORAGE 03852000 * ADDRESS ICB368*/ 03853000 * 2 CVTPTRV PTR(31), /* ADDRESS OF PAGING SUPERVISOR 03854000 * GENERAL ROUTINE TO TRANSLATE 03855000 * REAL ADDRESSES TO VIRTUAL 0242 03856000 * ADDRESSES */ 03857000 * 2 CVTMODE PTR(31), /* ADDRESS OF ROUTINE TO CHANGE 03858000 * SYSTEM MASK (OS/VS1) 0242 03859000 * (MDC217) YM4244*/ 03860000 * 2 CVTJESCT PTR(31), /* ADDRESS OF JOB ENTRY 0242 03861000 * SUBSYSTEM (JES) CONTROL TABLE*/ 03862000 * 2 CVTJEPS PTR(31), /* ADDRESS OF JOB ENTRY 0242 03863000 * PERIPHERAL SERVICES (JEPS) 0242 03864000 * MONITOR TCB (OS/VS1) YM2702*/ 03865000 * 2 CVTTZ FIXED(31), /* DIFFERENCE BETWEEN LOCAL TIME 03866000 * AND GREENWICH MEAN TIME IN 0242 03867000 * BINARY UNITS OF 1.048576 0242 03868000 * SECONDS */ 03869000 * 2 CVTMCHPR PTR(31), /* ADDRESS OF MACHINE CHECK 0242 03870000 * PARAMETER LIST */ 03871000 * 2 CVTEORM PTR(31), /* HIGHEST REAL ADDRESS IN MAIN 03872000 * STORAGE (OS/VS1) POTENTIAL 03873000 * REAL HIGH STORAGE ADDRESS 0242 03874000 * (OS/VS2) MDC087*/ 03875000 * 2 CVTERPV PTR(31), /* ADDRESS OF I/O SUPERVISOR 0242 03876000 * SUBROUTINE TO CONVERT CCW 0242 03877000 * DATA ADDRESSES TO VIRTUAL 0242 03878000 * ADDRESSES (OS/VS1) 0242 03879000 * (MDC219) YM4043*/ 03880000 * 3 CVTRV517 PTR(31), /* ** CVTERPV FIELD UNUSED IN 0242 03881000 * MVS ** (MDC219) YM4043*/ 03882000 * 2 CVTINTLA PTR(31), /* ADDRESS OF A TIME INTERVAL. 03883000 * I/O LOAD BALANCING COUNTS THE 03884000 * NUMBER OF EXCP'S ISSUED 0242 03885000 * DURING THIS TIME INTERVAL AND 03886000 * USES THE VALUE IN DETERMINING 03887000 * THE AMOUNT OF I/O ACTIVITY IN 03888000 * THE SYSTEM. (OS/VS1) 0242 03889000 * (MDC220) YM4043*/ 03890000 * 3 CVTRV518 PTR(31), /* ** CVTINTLA FIELD UNUSED IN 03891000 * MVS ** (MDC220) YM4043*/ 03892000 * 2 CVTAPF PTR(31), /* SAME AS CVTAPFA BELOW ICB360*/ 03893000 * 3 CVTRSV40 PTR(8), /* RESERVED ICB360*/ 03894000 * 3 CVTAPFA PTR(24), /* ADDRESS OF BRANCH ENTRY POINT 03895000 * IN AUTHORIZED PROGRAM FACILITY 03896000 * (APF) ROUTINE */ 03897000 * 2 CVTEXT2 PTR(31), /* ADDRESS OF OS/VS1 - OS/VS2 0242 03898000 * COMMON EXTENSION ICB330*/ 03899000 * 3 CVTRSV41 PTR(8), /* RESERVED ICB330*/ 03900000 * 3 CVTEXT2A PTR(24), /* SAME AS CVTEXT2 ABOVE ICB330*/ 03901000 * 2 CVTHJES PTR(31), /* SAME AS CVTHJESA BELOW ICB454*/ 03902000 * 3 CVTRSV42 PTR(8), /* RESERVED ICB454*/ 03903000 * 3 CVTHJESA PTR(24), /* ADDRESS OF OPTIONAL JOB ENTRY 03904000 * SUBSYSTEM (JES) COMMUNICATION 03905000 * VECTOR TABLE ICB454*/ 03906000 * 2 CVTRSV43 FIXED(15), /* RESERVED */ 03907000 * 2 CVTRSV44 FIXED(15), /* RESERVED */ 03908000 * 2 CVTRSV45 PTR(31), /* RESERVED */ 03909000 * 2 CVTRSV46 PTR(31), /* RESERVED */ 03910000 * 0242 03911000 * /* OS/VS1 OVERLAY */ 03912000 * 0242 03913000 * 2 CVTPGSIA PTR(31), /* ADDRESS OF PAGING SUPERVISOR 03914000 * INFORMATION AREA */ 03915000 * 2 CVTPCVT PTR(31), /* ADDRESS OF PAGED CVT 0242 03916000 * EXTENSION */ 03917000 * 2 CVTA1F1 CHAR(1), /* PAGE FAULT FLAGS */ 03918000 * 3 CVTPFSW BIT(1), /* ONLY THE PAGING TASK MAY BE 03919000 * DISPATCHED */ 03920000 * 3 CVTSRSW BIT(1), /* NO TASK EXCEPT THE PAGING TASK 03921000 * MAY EXECUTE DISABLED CODE */ 03922000 * 3 CVTRSV47 BIT(1), /* RESERVED */ 03923000 * 3 CVTRSV48 BIT(1), /* RESERVED */ 03924000 * 3 CVTRSV49 BIT(1), /* RESERVED */ 03925000 * 3 CVTRSV50 BIT(1), /* RESERVED */ 03926000 * 3 CVTRSV51 BIT(1), /* RESERVED */ 03927000 * 3 CVTRSV52 BIT(1), /* RESERVED */ 03928000 * 2 CVTSYSK CHAR(1), /* SYSTEM LOCK. IF NOT ZERO, 0242 03929000 * ONLY THE PAGING TASK MAY BE 03930000 * DISPATCHED */ 03931000 * 3 CVTRSV53 BIT(1), /* RESERVED */ 03932000 * 3 CVTRSV54 BIT(1), /* RESERVED */ 03933000 * 3 CVTRSV55 BIT(1), /* RESERVED */ 03934000 * 3 CVTRSV56 BIT(1), /* RESERVED */ 03935000 * 3 CVTSLKR BIT(1), /* MACHINE CHECK HANDLING IS IN 03936000 * PROGRESS ICB320*/ 03937000 * 3 CVTSLKQ BIT(1), /* SYSTEM QUEUE AREA (SQA) HAS 03938000 * BEEN EXHAUSTED */ 03939000 * 3 CVTSLKP BIT(1), /* LAST PAGING CONTROL BLOCK 0242 03940000 * (PCB) HAS BEEN USED */ 03941000 * 3 CVTSLKO BIT(1), /* A ROUTINE RUNNING DISABLED 0242 03942000 * HAS PRODUCED A PAGE FAULT */ 03943000 * 2 CVTSULK FIXED(15), /* SUPERVISOR LOCK. NUMBER OF 03944000 * TASKS ATTEMPTING TO EXECUTE 03945000 * DISABLED ROUTINES. IF NOT 0242 03946000 * ZERO, ONLY ENABLED TASKS MAY 03947000 * RUN. */ 03948000 * 2 CVTSMF PTR(31), /* ADDRESS OF SYSTEM MANAGEMENT 03949000 * FACILITIES (SMF) TCB ICB395*/ 03950000 * 2 CVTPNWFR PTR(31), /* ADDRESS OF ROUTINE WHICH 0242 03951000 * FREES THE 'EMERGENCY' WORK 0242 03952000 * AREA (ICB413) XM2452*/ 03953000 * 2 CVTDDCE PTR(31), /* ADDRESS OF DYNAMIC DISPATCHING 03954000 * CONTROL ELEMENT ICB466*/ 03955000 * 2 CVTRSV57 FIXED(15), /* RESERVED */ 03956000 * 2 CVTRSV58 FIXED(15), /* RESERVED */ 03957000 * 2 CVTSTOA FIXED(31), /* SAVE AREA FOR THE REAL 0242 03958000 * STORAGE ADDRESS OF THE 0242 03959000 * SEGMENT TABLE ORIGIN ICB496*/ 03960000 * 2 CVTVOLM1 PTR(31), /* ADDRESS OF TABLE FOR POWER 0242 03961000 * WARNING FEATURE (PWF) 0242 03962000 * (MDC312) @X04AQ9A*/ 03963000 * 3 CVTVOLF1 BIT(8), /* PWF FLAG BYTE. THIS BYTE IS 03964000 * OVERLAID BY CVTVOLM1 AFTER 0242 03965000 * PWF INITIALIZATION. 0242 03966000 * (MDC313) @X04AQ9A*/ 03967000 * 4 CVTVOLI1 BIT(1), /* PWF INITIALIZATION HAS NOT 0242 03968000 * OCCURRED (MDC314) @X04AQ9A*/ 03969000 * 3 CVTVOLT1 PTR(24), /* PWF RECHECK TIME DELAY. 0242 03970000 * THIS VALUE IS OVERLAID BY 0242 03971000 * CVTVOLM1 AFTER PWF 0242 03972000 * INITIALIZATION. 0242 03973000 * (MDC315) @X04AQ9A*/ 03974000 * 2 CVTRSV61 PTR(31), /* RESERVED */ 03975000 * 2 CVTATMCT PTR(31), /* POINTER TO VTAM CONTROL 0242 03976000 * TABLE MDC082*/ 03977000 * 3 CVTATMST CHAR(1), /* VTAM START STATUS MDC135*/ 03978000 * 3 CVTATMCA PTR(24), /* POINTER TO VTAM CONTROL 0242 03979000 * TABLE MDC138*/ 03980000 * 2 CVTAUTH PTR(31), /* POINTER TO AUTHORIZED LIBRARY 03981000 * TABLE MDC188*/ 03982000 * 2 CVTACTAP PTR(31), /* ADDRESS OF BRANCH ENTRY TO 0242 03983000 * VTAM'S SVC ROUTINE ISTAPC42 03984000 * (MDC216) @X31BH9A*/ 03985000 * 2 CVTRV485 PTR(31), /* RESERVED MDC106*/ 03986000 * 2 CVTRV486 PTR(31), /* RESERVED MDC106*/ 03987000 * 2 CVTRV487 PTR(31), /* RESERVED MDC106*/ 03988000 * 2 CVTRV488 PTR(31); /* RESERVED MDC106*/ 03989000 * 0242 03990000 * /* OS/VS2 OVERLAY */ 03991000 * 0243 03992000 * DECLARE 0243 03993000 * 1 CVTS01 DEF(CVTPGSIA) BDY(WORD), 0243 03994000 * 2 CVTGETL PTR(31), /* ADDRESS OF IKJGETL, TSO GET 03995000 * LINE ROUTINE (MDC206) YM2225*/ 03996000 * 2 CVTLPDSR PTR(31), /* ADDRESS OF LINK PACK AREA 0243 03997000 * (LPA) DIRECTORY SEARCH 0243 03998000 * ROUTINE */ 03999000 * 2 CVTPVTP PTR(31), /* ADDRESS OF PAGE VECTOR TABLE */ 04000000 * 2 CVTLPDIA PTR(31), /* ADDRESS OF LINK PACK AREA 0243 04001000 * (LPA) DIRECTORY (ON PAGE 0243 04002000 * BOUNDARY) */ 04003000 * 3 CVTDIRST CHAR(1), /* FLAG BYTE */ 04004000 * 4 CVTDICOM BIT(1), /* LPA DIRECTORY HAS BEEN 0243 04005000 * INITIALIZED BY NIP */ 04006000 * 4 CVTRSV63 BIT(1), /* RESERVED */ 04007000 * 4 CVTRSV64 BIT(1), /* RESERVED */ 04008000 * 4 CVTRSV65 BIT(1), /* RESERVED */ 04009000 * 4 CVTRSV66 BIT(1), /* RESERVED */ 04010000 * 4 CVTRSV67 BIT(1), /* RESERVED */ 04011000 * 4 CVTRSV68 BIT(1), /* RESERVED */ 04012000 * 4 CVTRSV69 BIT(1), /* RESERVED */ 04013000 * 3 CVTLPDIR PTR(24), /* ADDRESS OF LPA DIRECTORY. 0243 04014000 * ON PAGE BOUNDARY */ 04015000 * 2 CVTRV320 PTR(31), /* ** CVTPAGE1 FIELD UNUSED IN 04016000 * MVS ** (MDC112) @Z40AQ9A*/ 04017000 * 2 CVTRV321 PTR(31), /* ** CVTPGSUP FIELD UNUSED IN 04018000 * MVS ** (MDC113) @Z40AQ9A*/ 04019000 * 2 CVTSLIDA CHAR(4) BDY(WORD), /* IDENTITY OF TCB CAUSING 0243 04020000 * SUPERVISOR LOCK BYTE (CVTSYLK) 04021000 * TO BE SET OR IDENTITY OF TCB 04022000 * THAT SECOND EXIT PROCESSING 04023000 * IS FOR WHEN CVTSEIC=1 */ 04024000 * 3 CVTSYLK CHAR(1), /* SUPERVISOR LOCK. ONLY 0243 04025000 * ENABLED TASKS MAY BE 0243 04026000 * DISPATCHED */ 04027000 * 3 CVTSLID CHAR(3), /* SAME AS CVTSLIDA ABOVE */ 04028000 * 2 CVTRV322 PTR(31), /* RESERVED FOR FUTURE USE 0243 04029000 * (MDC343) @Z40AQ9A*/ 04030000 * 2 CVTRV328 PTR(31), /* ** CVTSEG AND CVTSEGA FIELDS 04031000 * UNUSED IN MVS ** 0243 04032000 * (MDC139) @Z40AQ9A*/ 04033000 * 2 CVTRV329 PTR(31), /* ** CVTSEGB FIELD UNUSED IN 0243 04034000 * MVS ** (MDC141) @Z40AQ9A*/ 04035000 * 2 CVTRV330 PTR(31), /* ** CVTSEGC AND SUBFIELDS 0243 04036000 * UNUSED IN MVS ** 0243 04037000 * (MDC142) @Z40AQ9A*/ 04038000 * 2 CVTRV331 PTR(31), /* ** CVTSEGD AND SUBFIELDS 0243 04039000 * UNUSED IN MVS ** 0243 04040000 * (MDC145) @Z40AQ9A*/ 04041000 * 2 CVTRSV77 PTR(8), /* RESERVED */ 04042000 * 2 CVTSPVLK PTR(8), /* NUMBER OF TASKS WHICH HAVE 0243 04043000 * TERMINATED WHILE OWNING 0243 04044000 * SUPERVISOR LOCK WITHOUT 0243 04045000 * OPERATOR HAVING YET BEEN 0243 04046000 * NOTIFIED */ 04047000 * 2 CVTCTLFG CHAR(1), /* SYSTEM CONTROL FLAGS */ 04048000 * 3 CVTRV323 BIT(1), /* ** CVTPSIC BIT UNUSED IN 0243 04049000 * MVS ** (MDC118) @Z40AQ9A*/ 04050000 * 3 CVTRV333 BIT(1), /* ** CVTAPGB BIT UNUSED IN 0243 04051000 * MVS ** (MDC151) @Z40AQ9A*/ 04052000 * 3 CVTRSV78 BIT(1), /* RESERVED ICB382*/ 04053000 * 3 CVTDSTAT BIT(1), /* DEVSTAT OPTION IN EFFECT. 0243 04054000 * DEVICE ADDRESS FOR 2319, 0243 04055000 * 3330, 2314, 3330-1, 3340 CAN 04056000 * VARY ACROSS SYSTEMS MDC189*/ 04057000 * 3 CVTRSV79 BIT(1), /* RESERVED */ 04058000 * 3 CVTNOMP BIT(1), /* MULTIPROCESSING CODE IS NOT 04059000 * IN THE SYSTEM MDC176*/ 04060000 * 3 CVTGTRCE BIT(1), /* GENERALIZED TRACE FACILITY 0243 04061000 * (GTF) HAS SUPPRESSED 0243 04062000 * SUPERVISOR TRACE ICB446*/ 04063000 * 3 CVTSDTRC BIT(1), /* SVC DUMP HAS SUPPRESSED 0243 04064000 * SUPERVISOR TRACE ICB446*/ 04065000 * 2 CVTAPG CHAR(1), /* DISPATCHING PRIORITY OF 0243 04066000 * AUTOMATIC PRIORITY GROUP 0243 04067000 * (APG) ICB339*/ 04068000 * 2 CVTTRACE CHAR(2) BDY(WORD), /* BRANCH ON REGISTER 0243 04069000 * INSTRUCTION. SET BY NIP. 0243 04070000 * REGISTER TEN FOR TRACE. 0243 04071000 * REGISTER ELEVEN FOR NO TRACE.*/ 04072000 * 2 CVTTRAC2 CHAR(2) BDY(WORD,3), /* BRANCH ON REGISTER 11 0243 04073000 * INSTRUCTION. THIS ALLOWS FOR 04074000 * SUPPRESSING TRACE DYNAMICALLY 04075000 * BY SETTING CONDITION CODE 0243 04076000 * MASK TO ZERO IN FIRST 0243 04077000 * INSTRUCTION (CVTTRACE) */ 04078000 * 2 CVTRSCN PTR(31), /* ADDRESS OF ROUTINE TO SCAN 0243 04079000 * TCB TREE */ 04080000 * 2 CVTTAS PTR(31), /* ADDRESS OF ROUTINE TO 0243 04081000 * TRANSFER ADDRESS SPACE */ 04082000 * 2 CVTRV332 PTR(31), /* ** CVTPVALD FIELD UNUSED IN 04083000 * MVS ** (MDC148) @Z40AQ9A*/ 04084000 * 2 CVTSHRVM PTR(31), /* LOWEST ADDRESS OF SHARED 0243 04085000 * VIRTUAL STORAGE AREA. THIS 04086000 * ADDRESS WILL BE THE 0243 04087000 * BEGINNING OF THE COMMON 0243 04088000 * SERVICE AREA (CSA) 0243 04089000 * (MDC324) @Z30AQ9A*/ 04090000 * 2 CVT0VL01 PTR(31), /* ENTRY POINT ADDRESS OF 0243 04091000 * VALIDITY CHECK ROUTINE 0243 04092000 * (IEA0VL01) USED TO COMPARE 0243 04093000 * PROTECT KEY OF AN ADDRESS 0243 04094000 * WITH TCB PROTECT KEY. */ 04095000 * 2 CVTRV324 PTR(31), /* ** CVTPFIXQ FIELD UNUSED IN 04096000 * MVS ** (MDC119) @Z40AQ9A*/ 04097000 * 2 CVTRV325 PTR(31), /* ** CVTPFIXR FIELD UNUSED IN 04098000 * MVS ** (MDC120) @Z40AQ9A*/ 04099000 * 2 CVTRV326 PTR(31), /* ** CVTPFIXP FIELD UNUSED IN 04100000 * MVS ** (MDC121) @Z40AQ9A*/ 04101000 * 2 CVTASCRF PTR(31), /* CREATED ASCB QUEUE HEADER 0243 04102000 * (MDC337) @ZA04120*/ 04103000 * 2 CVTASCRL PTR(31), /* CREATED ASCB QUEUE TRAILER 0243 04104000 * (MDC338) @ZA04120*/ 04105000 * 2 CVTPUTL PTR(31), /* ADDRESS OF IKJPUTL, TSO PUT 04106000 * LINE ROUTINE (MDC207) YM2225*/ 04107000 * 2 CVTSRBRT PTR(31), /* DISPATCHER RETURN ADDRESS FOR 04108000 * SRB ROUTINES MDC130*/ 04109000 * 2 CVTOLT0A PTR(31), /* BRANCH ENTRY TO OLTEP MEMORY 04110000 * TERMINATION RESOURCE MANAGER 04111000 * MDC129*/ 04112000 * 2 CVTSMFEX PTR(31), /* BRANCH ENTRY TO SYSTEM 0243 04113000 * MANAGEMENT FACILITIES (SMF) 04114000 * EXCP COUNTING ROUTINE FOR 0243 04115000 * VAM WINDOW INTERCEPT MDC133*/ 04116000 * 2 CVTCSPIE PTR(31), /* FOR CHECKPOINT/RESTART, BRANCH 04117000 * ENTRY TO SPIE MDC149*/ 04118000 * 2 CVTPTGT PTR(31), /* ADDRESS OF IKJPTGT, TSO 0243 04119000 * PUTGET ROUTINE (MDC208) 0243 04120000 * YM2225*/ 04121000 * 2 CVTIOSPL PTR(8), /* PRIORITY LEVEL OF I/O 0243 04122000 * SUPERVISOR CHANNEL SCHEDULER 04123000 * MDC019*/ 04124000 * 2 CVTRV513 CHAR(1), /* RESERVED MDC165*/ 04125000 * 2 CVTDSSAC CHAR(1), /* DYNAMIC SUPPORT SYSTEM (DSS) 04126000 * ACTIVATED FLAG - USED BY 0243 04127000 * RESTART FLIH. IF X'00', DSS 04128000 * NOT INITIALIZED. IF X'FF', 04129000 * DSS HAS BEEN INITIALIZED. 0243 04130000 * MDC163*/ 04131000 * 2 CVTRV139 PTR(8), /* RESERVED */ 04132000 * 2 CVTSTCK PTR(31), /* ADDRESS OF IKJSTCK, TSO STACK 04133000 * ROUTINE (MDC209) YM2225*/ 04134000 * 2 CVTMAXMP PTR(15), /* FOR MEASUREMENT FACILITY 0243 04135000 * (MF/1), MAXIMUM PHYSICAL 0243 04136000 * CPU ADDRESS SUPPORTED BY 0243 04137000 * THIS RELEASE MDC165*/ 04138000 * 2 CVTRV144 FIXED(15), /* RESERVED */ 04139000 * 2 CVTSCAN PTR(31), /* ADDRESS OF IKJSCAN, TSO SCAN 04140000 * ROUTINE (MDC210) YM2225*/ 04141000 * 2 CVTAUTHL PTR(31), /* POINTER TO AUTHORIZED 0243 04142000 * LIBRARY TABLE MDC001*/ 04143000 * 2 CVTBLDCP PTR(31), /* BRANCH ENTRY TO BUILD POOL 0243 04144000 * MDC003*/ 04145000 * 2 CVTGETCL PTR(31), /* BRANCH ENTRY TO GET CELL 0243 04146000 * MDC004*/ 04147000 * 2 CVTFRECL PTR(31), /* BRANCH ENTRY TO FREE CELL 0243 04148000 * MDC005*/ 04149000 * 2 CVTDELCP PTR(31), /* BRANCH ENTRY TO DELETE POOL 04150000 * MDC006*/ 04151000 * 2 CVTCRMN PTR(31), /* BRANCH ENTRY TO SVC 120 0243 04152000 * (GETMAIN/FREEMAIN:CRBRANCH) 04153000 * MDC007*/ 04154000 * 2 CVTCRAS PTR(31), /* BRANCH ENTRY TO 'CREATE 0243 04155000 * ADDRESS SPACE' MDC008*/ 04156000 * 2 CVTQSAS PTR(31), /* BRANCH ENTRY TO TASK 0243 04157000 * TERMINATION MDC009*/ 04158000 * 2 CVTFRAS PTR(31), /* BRANCH ENTRY TO FREE 0243 04159000 * ADDRESS SPACE MDC010*/ 04160000 * 2 CVTS1EE PTR(31), /* BRANCH ENTRY TO STAGE 1 EXIT 04161000 * EFFECTOR MDC011*/ 04162000 * 2 CVTPARS PTR(31), /* ADDRESS OF IKJPARS, TSO PARSE 04163000 * ROUTINE (MDC211) YM2225*/ 04164000 * 2 CVTQUIS PTR(31), /* BRANCH ENTRY TO QUIESCE 0243 04165000 * MDC013*/ 04166000 * 2 CVTSTXU PTR(31), /* BRANCH ENTRY TO ATTENTION 0243 04167000 * EXIT EPILOGUE MDC014*/ 04168000 * 2 CVTOPTE PTR(31), /* BRANCH ENTRY ADDRESS TO 0243 04169000 * SYSEVENT MDC015*/ 04170000 * 2 CVTSDRM PTR(31), /* BRNACH ENTRY ADDRESS OF THE 04171000 * RESOURCE MANAGER ROUTINE FOR 04172000 * SVC DUMP. THIS ROUTINE CAN 04173000 * BE INVOKED BY MEMORY 0243 04174000 * TERMINATION MDC077*/ 04175000 * 2 CVTIOSCS PTR(31), /* ENTRY POINT OF I/O SUPERVISOR 04176000 * CHANNEL SCHEDULER MDC018*/ 04177000 * 2 CVTAQTOP PTR(31), /* POINTER TO AREA CONTAINING 0243 04178000 * QUIESCE DESCRIPTOR BLOCK 0243 04179000 * (QDB'S) FOR DEVICE ALLOCATION 04180000 * MDC021*/ 04181000 * 2 CVTVVMDI PTR(31), /* CONSTANT USED BY PAGED LINK 04182000 * PACK AREA (LPA) DIRECTORY 0243 04183000 * SEARCH ALGORITHM MDC022*/ 04184000 * 2 CVTASVT PTR(31), /* POINTER TO ADDRESS SPACE 0243 04185000 * VECTOR TABLE (ASVT) MDC070*/ 04186000 * 2 CVTGDA PTR(31), /* POINTER TO GLOBAL DATA AREA 04187000 * (GDA) IN SQA MDC024*/ 04188000 * 2 CVTASCBH PTR(31), /* POINTER TO HIGHEST PRIORITY 04189000 * ADDRESS SPACE CONTROL BLOCK 04190000 * (ASCB) ON THE ASCB 0243 04191000 * DISPATCHING QUEUE (HEAD OF 0243 04192000 * ASCB QUEUE) MDC027*/ 04193000 * 2 CVTASCBL PTR(31), /* POINTER TO LOWEST PRIORITY 0243 04194000 * ASCB ON ASCB DISPATCHING QUEUE 04195000 * MDC028*/ 04196000 * 2 CVTRTMCT PTR(31), /* POINTER TO RECOVERY/TERMINATION 04197000 * CONTROL TABLE MDC031*/ 04198000 * 2 CVTSV60 PTR(31), /* ADDRESS OF SVC 60 BRANCH ENTRY 04199000 * POINT (MDC354) @Z40FP9A*/ 04200000 * 2 CVTSDMP PTR(31), /* ADDRESS OF SVC DUMP BRANCH 0243 04201000 * ENTRY POINT MDC033*/ 04202000 * 2 CVTSCBP PTR(31), /* ADDRESS OF SCB PURGE RESOURCE 04203000 * MANAGER MDC034*/ 04204000 * 2 CVTSDBF PTR(31), /* ADDRESS OF 4K SQA BUFFER USED 04205000 * BY SVC DUMP. HIGH ORDER BIT 04206000 * OF THIS CVT WORD IS USED AS 04207000 * LOCK TO INDICATE BUFFER IS IN 04208000 * USE MDC035*/ 04209000 * 2 CVTRTMS PTR(31), /* RTM1 INTERNAL SERVICABILITY 04210000 * LEVEL INDICATOR MDC036*/ 04211000 * 2 CVTTPIOS PTR(31), /* ADDRESS OF THE TELEPROCESSING 04212000 * I/O SUPERV1SOR ROUTINE 0243 04213000 * (TPIOS) MDC078*/ 04214000 * 2 CVTSIC PTR(31), /* BRANCH ENTRY ADDRESS OF THE 04215000 * ROUTINE TO SCHEDULE SYSTEM 0243 04216000 * INITIALIZED CANCEL MDC042*/ 04217000 * 2 CVTOPCTP PTR(31), /* ADDRESS OF SYSTEM RESOURCES 04218000 * MANAGER (SRM) CONTROL TABLE 04219000 * MDC043*/ 04220000 * 2 CVTEXPRO PTR(31), /* ADDRESS OF EXIT PROLOGUE/TYPE 04221000 * 1 EXIT MDC044*/ 04222000 * 2 CVTGSMQ PTR(31), /* ADDRESS OF GLOBAL SERVICE 0243 04223000 * MANAGER QUEUE MDC045*/ 04224000 * 2 CVTLSMQ PTR(31), /* ADDRESS OF LOCAL SERVICE 0243 04225000 * MANAGER QUEUE MDC046*/ 04226000 * 2 CVTGSPL PTR(31), /* ADDRESS OF GLOBAL SYSTEM 0243 04227000 * PRIORITY LIST QUEUE MDC047*/ 04228000 * 2 CVTVWAIT PTR(31), /* ADDRESS OF WAIT ROUTINE 0243 04229000 * MDC048*/ 04230000 * 2 CVTPARRL PTR(31), /* ADDRESS OF PARTIALLY LOADED 04231000 * DELETE QUEUE MDC049*/ 04232000 * 2 CVTAPFT PTR(31), /* ADDRESS OF AUTHORIZED PROGRAM 04233000 * FACILITY (APF) TABLE. 0243 04234000 * INITIALIZED BY NIP. MDC050*/ 04235000 * 2 CVTQCS01 PTR(31), /* BRANCH ENTRY ADDRESS TO 0243 04236000 * PROGRAM MANAGER USED BY 0243 04237000 * ATTACH MDC051*/ 04238000 * 2 CVTFQCB PTR(31), /* POINTER TO FIRST MAJOR QCB 0243 04239000 * FOR ENQ MDC052*/ 04240000 * 2 CVTLQCB PTR(31), /* POINTER TO LAST MAJOR QCB 0243 04241000 * FOR ENQ MDC053*/ 04242000 * 2 CVTRENQ PTR(31), /* RESOURCE MANAGER ADDRESS 0243 04243000 * FOR ENQ MDC054*/ 04244000 * 2 CVTRSPIE PTR(31), /* RESOURCE MANAGER FOR SPIE 0243 04245000 * MDC055*/ 04246000 * 2 CVTLKRMA PTR(31), /* RESOURCE MANAGER ADDRESS FOR 04247000 * LOCK MANAGER MDC056*/ 04248000 * 2 CVTCSD PTR(31), /* VIRTUAL ADDRESS OF COMMON 0243 04249000 * SYSTEM DATA AREA (CSD). 0243 04250000 * INITIALIZED BY NIP. MDC057*/ 04251000 * 2 CVTDQIQE PTR(31), /* RESOURCE MANAGER FOR EXIT 0243 04252000 * EFFECTORS MDC058*/ 04253000 * 2 CVTRPOST PTR(31), /* RESOURCE MANAGER FOR POST 0243 04254000 * MDC059*/ 04255000 * 2 CVT062R1 PTR(31), /* BRANCH ENTRY TO DETACH MDC060*/ 04256000 * 2 CVTVEAC0 PTR(31), /* ASCBCHAP BRANCH ENTRY MDC061*/ 04257000 * 2 CVTGLMN PTR(31), /* GLOBAL BRANCH ENTRY ADDRESS 04258000 * FOR GETMAIN/FREEMAIN MDC062*/ 04259000 * 2 CVTSPSA PTR(31), /* POINTER TO GLOBAL WORK/SAVE 04260000 * AREA VECTOR TABLE (WSAG) 0243 04261000 * MDC071*/ 04262000 * 2 CVTWSAL PTR(31), /* ADDRESS OF TABLE OF LENGTHS 04263000 * OF LOCAL WORK/SAVE AREAS 0243 04264000 * MDC072*/ 04265000 * 2 CVTRV149 PTR(31), /* RESERVED (MDC073) YM4043*/ 04266000 * 2 CVTWSAC PTR(31), /* ADDRESS OF TABLE OF LENGTHS 04267000 * OF CPU WORK/SAVE AREAS MDC074*/ 04268000 * 2 CVTRECRQ PTR(31), /* ADDRESS OF THE RECORDING 0243 04269000 * REQUEST FACILITY (PART OF 0243 04270000 * RTM1 - CALLED BY RTM2 AND 0243 04271000 * RMS) MDC075*/ 04272000 * 2 CVTASMVT PTR(31), /* POINTER TO AUXILIARY STORAGE 04273000 * MANAGEMENT VECTOR TABLE 0243 04274000 * (AMVT) MDC076*/ 04275000 * 2 CVTIOBP PTR(31), /* ADDRESS OF THE BLOCK PROCESSOR 04276000 * CVT MDC079*/ 04277000 * 2 CVTSPOST PTR(31), /* POST RESOURCE MANAGER 0243 04278000 * TERMINATION ROUTINE (RMTR) 0243 04279000 * ENTRY POINT MDC085*/ 04280000 * 2 CVTRSTWD FIXED(31), /* RESTART RESOURCE MANAGEMENT 04281000 * WORD - CONTAINS IDENTIFIER OF 04282000 * USER IF RESTART IS IN USE. 0243 04283000 * OTHERWISE, ZERO. MDC161*/ 04284000 * 2 CVTFETCH PTR(31), /* ADDRESS OF ENTRY POINT FOR 0243 04285000 * BASIC FETCH MDC196*/ 04286000 * 2 CVT044R2 PTR(31), /* ADDRESS OF IGC044R2 IN CHAP 04287000 * SERVICE ROUTINE MDC197*/ 04288000 * 2 CVTPERFM PTR(31), /* ADDRESS OF THE PERFORMANCE 0243 04289000 * WORK AREA. SET BY IGX00018. 04290000 * MDC205*/ 04291000 * 2 CVTDAIR PTR(31), /* ADDRESS OF IKJDAIR, TSO 0243 04292000 * DYNAMIC ALLOCATION INTERFACE 04293000 * ROUTINE (MDC212) YM2225*/ 04294000 * 2 CVTEHDEF PTR(31), /* ADDRESS OF IKJEHDEF, TSO 0243 04295000 * DEFAULT SERVICE ROUTINE 0243 04296000 * (MDC213) YM2225*/ 04297000 * 2 CVTEHCIR PTR(31), /* ADDRESS OF IKJEHCIR, TSO 0243 04298000 * CATALOG INFORMATION ROUTINE 04299000 * (MDC214) YM2225*/ 04300000 * 2 CVTSSAP PTR(31), /* ADDRESS OF SYSTEM SAVE AREA 04301000 * MDC063*/ 04302000 * 2 CVTAIDVT PTR(31), /* POINTER TO APPENDAGE ID 0243 04303000 * VECTOR TABLE MDC064*/ 04304000 * 2 CVTIPCDS PTR(31), /* BRANCH ENTRY FOR DIRECT 0243 04305000 * SIGNAL SERVICE ROUTINE MDC065*/ 04306000 * 2 CVTIPCRI PTR(31), /* BRANCH ENTRY FOR REMOTE 0243 04307000 * IMMEDIATE SIGNAL SERVICE 0243 04308000 * ROUTINE MDC066*/ 04309000 * 2 CVTIPCRP PTR(31), /* BRANCH ENTRY FOR REMOTE 0243 04310000 * PENDABLE SIGNAL SERVICE 0243 04311000 * ROUTINE MDC067*/ 04312000 * 2 CVTPCCAT PTR(31), /* POINTER TO PHYSICAL CCA VECTOR 04313000 * TABLE MDC068*/ 04314000 * 2 CVTLCCAT PTR(31), /* POINTER TO LOGICAL CCA VECTOR 04315000 * TABLE MDC069*/ 04316000 * 2 CVTRV210 BIT(8), /* RESERVED */ 04317000 * 3 CVTRV211 BIT(1), /* RESERVED */ 04318000 * 3 CVTRV212 BIT(1), /* RESERVED */ 04319000 * 3 CVTRV213 BIT(1), /* RESERVED */ 04320000 * 3 CVTRV214 BIT(1), /* RESERVED */ 04321000 * 3 CVTRV215 BIT(1), /* RESERVED */ 04322000 * 3 CVTRV216 BIT(1), /* RESERVED */ 04323000 * 3 CVTRV217 BIT(1), /* RESERVED */ 04324000 * 3 CVTRV218 BIT(1), /* RESERVED */ 04325000 * 2 CVTRV219 BIT(8), /* RESERVED */ 04326000 * 3 CVTRV220 BIT(1), /* RESERVED */ 04327000 * 3 CVTRV221 BIT(1), /* RESERVED */ 04328000 * 3 CVTRV222 BIT(1), /* RESERVED */ 04329000 * 3 CVTRV223 BIT(1), /* RESERVED */ 04330000 * 3 CVTRV224 BIT(1), /* RESERVED */ 04331000 * 3 CVTRV225 BIT(1), /* RESERVED */ 04332000 * 3 CVTRV226 BIT(1), /* RESERVED */ 04333000 * 3 CVTRV227 BIT(1), /* RESERVED */ 04334000 * 2 CVTRV228 BIT(8), /* RESERVED */ 04335000 * 3 CVTRV229 BIT(1), /* RESERVED */ 04336000 * 3 CVTRV230 BIT(1), /* RESERVED */ 04337000 * 3 CVTRV231 BIT(1), /* RESERVED */ 04338000 * 3 CVTRV232 BIT(1), /* RESERVED */ 04339000 * 3 CVTRV233 BIT(1), /* RESERVED */ 04340000 * 3 CVTRV234 BIT(1), /* RESERVED */ 04341000 * 3 CVTRV235 BIT(1), /* RESERVED */ 04342000 * 3 CVTRV236 BIT(1), /* RESERVED */ 04343000 * 2 CVTRV237 BIT(8), /* RESERVED */ 04344000 * 3 CVTRV238 BIT(1), /* RESERVED */ 04345000 * 3 CVTRV239 BIT(1), /* RESERVED */ 04346000 * 3 CVTRV240 BIT(1), /* RESERVED */ 04347000 * 3 CVTRV241 BIT(1), /* RESERVED */ 04348000 * 3 CVTRV242 BIT(1), /* RESERVED */ 04349000 * 3 CVTRV243 BIT(1), /* RESERVED */ 04350000 * 3 CVTRV244 BIT(1), /* RESERVED */ 04351000 * 3 CVTRV245 BIT(1), /* RESERVED */ 04352000 * 2 CVTRV246 PTR(8), /* RESERVED */ 04353000 * 2 CVTRV247 PTR(8), /* RESERVED */ 04354000 * 2 CVTRV248 PTR(8), /* RESERVED */ 04355000 * 2 CVTRV249 PTR(8), /* RESERVED */ 04356000 * 2 CVTRV250 PTR(8), /* RESERVED */ 04357000 * 2 CVTRV251 PTR(8), /* RESERVED */ 04358000 * 2 CVTRV252 PTR(15), /* RESERVED */ 04359000 * 2 CVTRV253 FIXED(15), /* RESERVED */ 04360000 * 2 CVTRV254 FIXED(15), /* RESERVED */ 04361000 * 2 CVTPWI PTR(31), /* ADDRESS OF THE WINDOW 0243 04362000 * INTERCEPT ROUTINE MDC104*/ 04363000 * 2 CVTPVBP PTR(31), /* ADDRESS OF THE VIRTUAL BLOCK 04364000 * PROCESSOR MDC105*/ 04365000 * 2 CVTMFCTL PTR(31), /* POINTER TO MEASUREMENT 0243 04366000 * FACILITY CONTROL BLOCK MDC100*/ 04367000 * 2 CVTMFRTR PTR(31), /* IF MEASUREMENT FACILITY IS 0243 04368000 * ACTIVE, CONTAINS ADDRESS OF 04369000 * MEASUREMENT FACILITY ROUTER. 04370000 * OTHERWISE, ADDRESS OF 0243 04371000 * CVTBRET. MDC101*/ 04372000 * 3 CVTMFACT BIT(1), /* IF ONE, I/O SUPERVISOR AND 0243 04373000 * TIMER SECOND LEVEL INTERRUPT 04374000 * HANDLER HOOKS BRANCH TO 0243 04375000 * MEASUREMENT FACILITY ROUTER 04376000 * MDC102*/ 04377000 * 2 CVTVPSIB PTR(31), /* BRANCH ENTRY TO PAGE SERVICES 04378000 * MDC108*/ 04379000 * 2 CVTVSI PTR(31), /* BRANCH ENTRY TO VAM SERVICES 04380000 * MDC109*/ 04381000 * 2 CVTVFP PTR(31), /* BRANCH ENTRY TO FINDPAGE 0243 04382000 * MDC110*/ 04383000 * 2 CVTRV262 BIT(8), /* RESERVED */ 04384000 * 3 CVTRV263 BIT(1), /* RESERVED */ 04385000 * 3 CVTRV264 BIT(1), /* RESERVED */ 04386000 * 3 CVTRV265 BIT(1), /* RESERVED */ 04387000 * 3 CVTRV266 BIT(1), /* RESERVED */ 04388000 * 3 CVTRV267 BIT(1), /* RESERVED */ 04389000 * 3 CVTRV268 BIT(1), /* RESERVED */ 04390000 * 3 CVTRV269 BIT(1), /* RESERVED */ 04391000 * 3 CVTRV270 BIT(1), /* RESERVED */ 04392000 * 2 CVTRV271 BIT(8), /* RESERVED */ 04393000 * 3 CVTRV272 BIT(1), /* RESERVED */ 04394000 * 3 CVTRV273 BIT(1), /* RESERVED */ 04395000 * 3 CVTRV274 BIT(1), /* RESERVED */ 04396000 * 3 CVTRV275 BIT(1), /* RESERVED */ 04397000 * 3 CVTRV276 BIT(1), /* RESERVED */ 04398000 * 3 CVTRV277 BIT(1), /* RESERVED */ 04399000 * 3 CVTRV278 BIT(1), /* RESERVED */ 04400000 * 3 CVTRV279 BIT(1), /* RESERVED */ 04401000 * 2 CVTRV280 BIT(8), /* RESERVED */ 04402000 * 3 CVTRV281 BIT(1), /* RESERVED */ 04403000 * 3 CVTRV282 BIT(1), /* RESERVED */ 04404000 * 3 CVTRV283 BIT(1), /* RESERVED */ 04405000 * 3 CVTRV284 BIT(1), /* RESERVED */ 04406000 * 3 CVTRV285 BIT(1), /* RESERVED */ 04407000 * 3 CVTRV286 BIT(1), /* RESERVED */ 04408000 * 3 CVTRV287 BIT(1), /* RESERVED */ 04409000 * 3 CVTRV288 BIT(1), /* RESERVED */ 04410000 * 2 CVTRV289 BIT(8), /* RESERVED */ 04411000 * 3 CVTRV290 BIT(1), /* RESERVED */ 04412000 * 3 CVTRV291 BIT(1), /* RESERVED */ 04413000 * 3 CVTRV292 BIT(1), /* RESERVED */ 04414000 * 3 CVTRV293 BIT(1), /* RESERVED */ 04415000 * 3 CVTRV294 BIT(1), /* RESERVED */ 04416000 * 3 CVTRV295 BIT(1), /* RESERVED */ 04417000 * 3 CVTRV296 BIT(1), /* RESERVED */ 04418000 * 3 CVTRV297 BIT(1), /* RESERVED */ 04419000 * 2 CVTTRCA PTR(31), /* ADDRESS OF TRACE TABLE 0243 04420000 * HEADER (MDC327) @ZA02352*/ 04421000 * 2 CVTRV302 PTR(15), /* RESERVED */ 04422000 * 2 CVTRV303 PTR(15), /* RESERVED */ 04423000 * 2 CVTRV304 FIXED(15), /* RESERVED */ 04424000 * 2 CVTRV305 FIXED(15), /* RESERVED */ 04425000 * 2 CVTRV306 FIXED(15), /* RESERVED */ 04426000 * 2 CVTRV307 FIXED(15), /* RESERVED */ 04427000 * 2 CVTVIOP PTR(31), /* ENTRY POINT OF PAGE I/O POST 04428000 * MDC111*/ 04429000 * 2 CVTRMBR PTR(31), /* ADDRESS OF REGMAIN BRANCH 0243 04430000 * ENTRY MDC123*/ 04431000 * 2 CVTLFRM PTR(31), /* LIST FORMAT FREEMAIN BRANCH 04432000 * ENTRY POINT MDC124*/ 04433000 * 2 CVTGMBR PTR(31), /* LIST FORMAT GETMAIN BRANCH 0243 04434000 * ENTRY POINT MDC125*/ 04435000 * 2 CVT0TC0A PTR(31), /* ADDRESS OF TASK CLOSE MODULE 04436000 * IFG0TC0A MDC128*/ 04437000 * 2 CVTRLSTG FIXED(31), /* SIZE OF ACTUAL REAL STORAGE 04438000 * ONLINE AT IPL TIME IN 'K'. 0243 04439000 * VALUE PLACED HERE BY IEAVNIP0. 04440000 * MDC153*/ 04441000 * 2 CVTSPFRR PTR(31), /* 'SUPER FRR' ADDRESS (ADDRESS 04442000 * OF FUNCTIONAL RECOVERY 0243 04443000 * ROUTINE ESTABLISHED AT NIP0 04444000 * TIME TO PROTECT SUPERVISOR 0243 04445000 * CONTROL PROGRAM) MDC154*/ 04446000 * 2 CVTVEMS0 PTR(31), /* ADDRESS OF MEMORY SWITCH 0243 04447000 * ROUTINE MDC155*/ 04448000 * 2 CVTJRECM PTR(31), /* ADDRESS OF SUBSYSTEM 0243 04449000 * INTERFACE RESOURCE MANAGER 0243 04450000 * MDC157*/ 04451000 * 2 CVTIRECM PTR(31), /* ADDRESS OF INITIATOR 0243 04452000 * RESOURCE MANAGER MDC158*/ 04453000 * 2 CVTDARCM PTR(31), /* ADDRESS OF DEVICE ALLOCATION 04454000 * RESOURCE MANAGER MDC159*/ 04455000 * 2 CVT0PT02 PTR(31), /* ADDRESS OF POST ENTRY POINT 04456000 * IEA0PT02 MDC160*/ 04457000 * 2 CVTSTPRS PTR(31), /* ENTRY POINT OF STOP AND 0243 04458000 * RESTART SUBROUTINE MDC162*/ 04459000 * 2 CVTWTCB PTR(31), /* ADDRESS OF WAIT STATE TCB 0243 04460000 * MDC164*/ 04461000 * 2 CVTVACR PTR(31), /* ACR/VARY CPU CHANNEL RECOVERY 04462000 * ROUTINE ADDRESS. ADDRESS 0243 04463000 * FILLED IN BY VARY CPU 0243 04464000 * PROCESSOR. MDC178*/ 04465000 * 2 CVTQUIT PTR(31), /* VARY CPU SHUTDOWN ROUTINE 0243 04466000 * ADDRESS. ADDRESS FILLED IN 04467000 * BY VARY CPU PROCESSOR. MDC179*/ 04468000 * 2 CVTGTFR8 PTR(31), /* GENERALIZED TRACE FACILITY 0243 04469000 * (GTF) CONTROL REGISTER 8 0243 04470000 * INITIALIZATION ROUTINE 0243 04471000 * ADDRESS MDC180*/ 04472000 * 2 CVTVSTOP PTR(31), /* ADDRESS OF VARY CPU STOP CPU 04473000 * ROUTINE MDC169*/ 04474000 * 2 CVTVPSA PTR(31), /* ADDRESS OF COPY OF SYSGEN'ED 04475000 * PSA - PLACED HERE BY NIP 0243 04476000 * MDC170*/ 04477000 * 2 CVTRMPTT PTR(31), /* ADDRESS OF ISTRAMA1, THE VTAM 04478000 * RESOURCE MANAGER FOR NORMAL 04479000 * AND ABNORMAL TASK TERMINATION 04480000 * (MDC322) @Z30AP9A*/ 04481000 * 2 CVTRMPMT PTR(31), /* ADDRESS OF ISTRAMA2, THE VTAM 04482000 * RESOURCE MANAGER FOR NORMAL 04483000 * AND ABNORMAL MEMORY 0243 04484000 * TERMINATION (MDC323) @Z30AP9A*/ 04485000 * 2 CVTEXP1 PTR(31), /* ADDRESS OF EXIT PROLOGUE 0243 04486000 * WHICH RETURNS TO THE 0243 04487000 * DISPATCHER MDC173*/ 04488000 * 2 CVTCSDRL PTR(31), /* REAL ADDRESS OF COMMON SYSTEM 04489000 * DATA AREA (CSD). INITIALIZED 04490000 * BY NIP. MDC174*/ 04491000 * 2 CVTSSRB PTR(31), /* STATUS STOP SRB ENTRY MDC175*/ 04492000 * 2 CVTRPT PTR(31), /* ADDRESS OF IGARPT01 MODULE OF 04493000 * RADIX PARTITION TREE SERVICES. 04494000 * INITIALIZED BY NIP. MDC177*/ 04495000 * 2 CVTQV1 PTR(31), /* ADDRESS OF QUEUE VERIFICATION 04496000 * FOR SINGLE THREADED QUEUES 0243 04497000 * WITH HEADERS ONLY MDC181*/ 04498000 * 2 CVTQV2 PTR(31), /* ADDRESS OF QUEUE VERIFICATION 04499000 * FOR SINGLE THREADED QUEUES 0243 04500000 * WITH HEADER AND TRAILER 0243 04501000 * MDC182*/ 04502000 * 2 CVTQV3 PTR(31), /* ADDRESS OF QUEUE VERIFICATION 04503000 * FOR DOUBLE THREADED QUEUES 0243 04504000 * MDC183*/ 04505000 * 2 CVTGSDA PTR(31), /* ADDRESS OF GLOBAL SYSTEM 0243 04506000 * DUPLEX AREA. ADDRESS FILLED 04507000 * IN BY NIP0. MDC184*/ 04508000 * 3 CVTGSDAB BIT(1), /* IF HIGH-ORDER BIT IS ONE, 0243 04509000 * THERE IS A VALID VALUE IN 0243 04510000 * FOLLOWING 31 BITS MDC185*/ 04511000 * 2 CVTADV PTR(31), /* ADDRESS OF ADDRESS 0243 04512000 * VERIFICATION ROUTINE MDC186*/ 04513000 * 2 CVTTPIO PTR(31), /* ADDRESS OF VTAM TPIO (SVC 0243 04514000 * 124) ROUTINE MDC193*/ 04515000 * 2 CVTCRCA PTR(31), /* WHEN CHANNEL RECONFIGURATION 04516000 * HARDWARE (CRH) IS ACTIVE, 0243 04517000 * ADDRESS OF CRH COMMUNICATION 04518000 * AREA IECVCRCA. OTHERWISE, 0243 04519000 * ZERO. (MDC306) @Z30CQ9A*/ 04520000 * 2 CVTEVENT PTR(31), /* BRANCH ENTRY ADDRESS TO 0243 04521000 * EVENTS (FAST MULTIPLE WAIT 0243 04522000 * ROUTINE) (MDC316) @Z30HP9A*/ 04523000 * 2 CVTSSCR PTR(31), /* ADDRESS OF STORAGE SYSTEM 0243 04524000 * CONTROLLER RECOVERY MANAGER 04525000 * CLEANUP ROUTINE (SSC RMCR) 0243 04526000 * (MDC319) @Z30LP9A*/ 04527000 * 2 CVTCBBR PTR(31), /* BRANCH ENTRY ADDRESS TO 0243 04528000 * GETMAIN/FREEMAIN 0243 04529000 * (MDC325) @Z30EN9A*/ 04530000 * 2 CVTEFF02 PTR(31), /* ADDRESS OF IKJEFF02, TSO 0243 04531000 * MESSAGE ISSUER SERVICE 0243 04532000 * ROUTINE (MDC326) @ZM30972*/ 04533000 * 2 CVTRV604 PTR(31), /* RESERVED (MDC307) @Z30AQ9A*/ 04534000 * 2 CVTRV605 PTR(31), /* RESERVED (MDC307) @Z30AQ9A*/ 04535000 * 2 CVTRV606 PTR(31), /* RESERVED (MDC307) @Z30AQ9A*/ 04536000 * 2 CVTRAC PTR(31), /* ADDRESS OF ACCESS CONTROL CVT 04537000 * (MDC320) @Z40RP9A*/ 04538000 * 2 CVTCGK PTR(31), /* ADDRESS OF ROUTINE USED TO 0243 04539000 * CHANGE THE KEY OF VIRTUAL 0243 04540000 * PAGES (MDC331) @Z40EP9A*/ 04541000 * 2 CVTRV609 PTR(31), /* RESERVED (MDC332) @Z40AQ9A*/ 04542000 * 2 CVT0PT0E PTR(31), /* ENTRY POINT TO IDENTIFY POST 04543000 * EXIT ROUTINES 0243 04544000 * (MDC334) @Z40EP9A*/ 04545000 * 2 CVT0PT03 PTR(31), /* POST REINVOCATION ENTRY POINT 04546000 * FROM POST EXIT ROUTINES 0243 04547000 * (MDC335) @Z40EP9A*/ 04548000 * 2 CVTTCASP PTR(31), /* RESERVED FOR FUTURE USE 0243 04549000 * (MDC336) @Z40DQ9A*/ 04550000 * 2 CVTRV613 PTR(31), /* RESERVED (MDC307) @Z30AQ9A*/ 04551000 * 2 CVTRV614 PTR(31), /* RESERVED (MDC307) @Z30AQ9A*/ 04552000 * 2 CVTRV615 PTR(31), /* RESERVED (MDC307) @Z30AQ9A*/ 04553000 * 2 CVTRV616 PTR(31), /* RESERVED (MDC307) @Z30AQ9A*/ 04554000 * 2 CVTRV617 PTR(31), /* RESERVED (MDC307) @Z30AQ9A*/ 04555000 * 2 CVTRV618 PTR(31), /* RESERVED (MDC307) @Z30AQ9A*/ 04556000 * 2 CVTRV619 PTR(31), /* RESERVED (MDC307) @Z30AQ9A*/ 04557000 * 2 CVTIHASU PTR(31), /* ADDRESS OF BIT STRING 0243 04558000 * (MDC355) @Z404P9A*/ 04559000 * 2 CVTRV621 PTR(31), /* RESERVED (MDC307) @Z30AQ9A*/ 04560000 * 2 CVTRV622 PTR(31), /* RESERVED (MDC307) @Z30AQ9A*/ 04561000 * 2 CVTRV623 PTR(31), /* RESERVED (MDC307) @Z30AQ9A*/ 04562000 * 2 CVTRV624 PTR(31), /* RESERVED (MDC307) @Z30AQ9A*/ 04563000 * 2 CVTRV625 PTR(31), /* RESERVED (MDC307) @Z30AQ9A*/ 04564000 * 2 CVTRV626 PTR(31), /* RESERVED (MDC307) @Z30AQ9A*/ 04565000 * 2 CVTRV627 PTR(31), /* RESERVED (MDC307) @Z30AQ9A*/ 04566000 * 2 CVTRV628 PTR(31); /* RESERVED (MDC307) @Z30AQ9A*/ 04567000 * 0243 04568000 * /* */ 04569000 * /* OS - OS/VS COMMON EXTENSION */ 04570000 * /* */ 04571000 * 0244 04572000 * DECLARE 0244 04573000 * 1 CVTXTNT1 BASED(CVTEXT1), /* START OF OS - OS/VS COMMON 0244 04574000 * EXTENSION ICB421*/ 04575000 * 2 CVTFACHN PTR(31), /* ADDRESS OF CHAIN OF DCB FIELD 04576000 * AREAS (ISAM) ICB421*/ 04577000 * 2 CVTRSV87 PTR(31), /* RESERVED */ 04578000 * 2 CVTRSV88 PTR(31); /* RESERVED */ 04579000 * 0244 04580000 * /* */ 04581000 * /* OS/VS1 - OS/VS2 COMMON EXTENSION */ 04582000 * /* */ 04583000 * 0245 04584000 * DECLARE 0245 04585000 * 1 CVTXTNT2 BASED(CVTEXT2), /* START OF OS/VS1 - OS/VS2 0245 04586000 * EXTENSION */ 04587000 * 2 CVTDSSV PTR(31), /* ADDRESS OF THE DYNAMIC 0245 04588000 * SUPPORT SYSTEM (DSS) VECTOR 04589000 * TABLE ICB313*/ 04590000 * 3 CVTRSV89 PTR(8), /* RESERVED ICB313*/ 04591000 * 3 CVTDSSVA PTR(24), /* ADDRESS OF THE DSS VECTOR 0245 04592000 * TABLE ICB313*/ 04593000 * 2 CVTNUCLS CHAR(1), /* IDENTIFICATION OF THE NUCLEUS 04594000 * MEMBER NAME ICB322*/ 04595000 * 2 CVTFLGBT BIT(8), /* FLAG BYTE (OS/VS1) 0245 04596000 * (MDC301) @X04EP9A*/ 04597000 * 3 CVTNPE BIT(1), /* INDICATES NON-PAGING 0245 04598000 * ENVIRONMENT (VM HANDSHAKING) 04599000 * (OS/VS1) (MDC302) @X04EP9A*/ 04600000 * 3 CVTVME BIT(1), /* INDICATES MACHINE IS 0245 04601000 * OPERATING IN VM ENVIRONMENT 04602000 * (OS/VS1) (MDC303) @X04EP9A*/ 04603000 * 3 CVTRSV9C BIT(1), /* RESERVED */ 04604000 * 3 CVTRSV9D BIT(1), /* RESERVED */ 04605000 * 3 CVTRSV9E BIT(1), /* RESERVED */ 04606000 * 3 CVTRSV9F BIT(1), /* RESERVED */ 04607000 * 3 CVTRSV9G BIT(1), /* RESERVED */ 04608000 * 3 CVTRSV9H BIT(1), /* RESERVED */ 04609000 * 2 CVTRSV91 FIXED(15), /* RESERVED */ 04610000 * 2 CVTDEBVR PTR(31), /* ADDRESS OF BRANCH ENTRY POINT 04611000 * OF DEB VALIDITY CHECK ROUTINE 04612000 * (ICB380) XM9028*/ 04613000 * 2 CVTRSV92 PTR(31), /* RESERVED (MDC190) YM2278*/ 04614000 * 2 CVTRSV93 PTR(31), /* RESERVED */ 04615000 * 2 CVTRSV94 PTR(31), /* RESERVED */ 04616000 * 2 CVTQID PTR(31), /* SAVE AS CVTQIDA BELOW ICB381*/ 04617000 * 3 CVTRSV95 PTR(8), /* RESERVED ICB381*/ 04618000 * 3 CVTQIDA PTR(24), /* ADDRESS OF QUEUE 0245 04619000 * IDENTIFICATION (QID) TABLE 0245 04620000 * PREFIX ICB381*/ 04621000 * 2 CVTOLTEP PTR(31), /* POINTER TO CONTROL BLOCK 0245 04622000 * CREATED BY SVC 59 TO POINT TO 04623000 * PSEUDO-DEB'S ICB423*/ 04624000 * 2 CVTRSV96 FIXED(15), /* RESERVED */ 04625000 * 2 CVTRSV97 FIXED(15), /* RESERVED */ 04626000 * 2 CVTRSV98 PTR(31), /* RESERVED */ 04627000 * 2 CVTRSV99 PTR(31), /* RESERVED (MDC329) @Z40AQ9A*/ 04628000 * 2 CVTSKTA PTR(31), /* ADDRESS OF STORAGE KEY TABLE 04629000 * (VM HANDSHAKING) (OS/VS1) 0245 04630000 * (MDC304) @X04EP9A*/ 04631000 * 2 CVTICB PTR(31), /* ADDRESS OF MASS STORAGE 0245 04632000 * SYSTEM (MSS) CONTROL BLOCK 0245 04633000 * (MDC305) @Z30LP9A*/ 04634000 * 2 CVTRV400 BIT(8), /* RESERVED */ 04635000 * 3 CVTRV401 BIT(1), /* RESERVED */ 04636000 * 3 CVTRV402 BIT(1), /* RESERVED */ 04637000 * 3 CVTRV403 BIT(1), /* RESERVED */ 04638000 * 3 CVTRV404 BIT(1), /* RESERVED */ 04639000 * 3 CVTRV405 BIT(1), /* RESERVED */ 04640000 * 3 CVTRV406 BIT(1), /* RESERVED */ 04641000 * 3 CVTRV407 BIT(1), /* RESERVED */ 04642000 * 3 CVTRV408 BIT(1), /* RESERVED */ 04643000 * 2 CVTRV409 BIT(8), /* RESERVED */ 04644000 * 3 CVTRV410 BIT(1), /* RESERVED */ 04645000 * 3 CVTRV411 BIT(1), /* RESERVED */ 04646000 * 3 CVTRV412 BIT(1), /* RESERVED */ 04647000 * 3 CVTRV413 BIT(1), /* RESERVED */ 04648000 * 3 CVTRV414 BIT(1), /* RESERVED */ 04649000 * 3 CVTRV415 BIT(1), /* RESERVED */ 04650000 * 3 CVTRV416 BIT(1), /* RESERVED */ 04651000 * 3 CVTRV417 BIT(1), /* RESERVED */ 04652000 * 2 CVTRV418 PTR(8), /* RESERVED */ 04653000 * 2 CVTRV419 PTR(8), /* RESERVED */ 04654000 * 2 CVTRV420 PTR(15), /* RESERVED */ 04655000 * 2 CVTRV421 FIXED(15), /* RESERVED */ 04656000 * 2 CVTRV422 FIXED(15), /* RESERVED */ 04657000 * 2 CVTRV423 FIXED(15), /* RESERVED */ 04658000 * 2 CVTATCVT PTR(31), /* POINTER TO VTAM'S CVT MDC080*/ 04659000 * 3 CVTATACT BIT(1), /* IF ON, VTAM IS ACTIVE MDC081*/ 04660000 * 2 CVTRV425 PTR(31), /* RESERVED */ 04661000 * 2 CVTRV426 PTR(31), /* RESERVED */ 04662000 * 2 CVTRV427 PTR(31), /* RESERVED */ 04663000 * 2 CVTRV428 FIXED(31), /* RESERVED */ 04664000 * 2 CVTRV429 BIT(8), /* RESERVED */ 04665000 * 3 CVTRV430 BIT(1), /* RESERVED */ 04666000 * 3 CVTRV431 BIT(1), /* RESERVED */ 04667000 * 3 CVTRV432 BIT(1), /* RESERVED */ 04668000 * 3 CVTRV433 BIT(1), /* RESERVED */ 04669000 * 3 CVTRV434 BIT(1), /* RESERVED */ 04670000 * 3 CVTRV435 BIT(1), /* RESERVED */ 04671000 * 3 CVTRV436 BIT(1), /* RESERVED */ 04672000 * 3 CVTRV437 BIT(1), /* RESERVED */ 04673000 * 2 CVTRV438 BIT(8), /* RESERVED */ 04674000 * 3 CVTRV439 BIT(1), /* RESERVED */ 04675000 * 3 CVTRV440 BIT(1), /* RESERVED */ 04676000 * 3 CVTRV441 BIT(1), /* RESERVED */ 04677000 * 3 CVTRV442 BIT(1), /* RESERVED */ 04678000 * 3 CVTRV443 BIT(1), /* RESERVED */ 04679000 * 3 CVTRV444 BIT(1), /* RESERVED */ 04680000 * 3 CVTRV445 BIT(1), /* RESERVED */ 04681000 * 3 CVTRV446 BIT(1), /* RESERVED */ 04682000 * 2 CVTRV447 PTR(8), /* RESERVED */ 04683000 * 2 CVTRV448 PTR(8), /* RESERVED */ 04684000 * 2 CVTRV449 PTR(15), /* RESERVED */ 04685000 * 2 CVTRV450 FIXED(15), /* RESERVED */ 04686000 * 2 CVTRV451 FIXED(15), /* RESERVED */ 04687000 * 2 CVTRV452 FIXED(15), /* RESERVED */ 04688000 * 2 CVTRV453 PTR(31), /* RESERVED */ 04689000 * 2 CVTRV454 PTR(31), /* RESERVED */ 04690000 * 2 CVTRV455 PTR(31), /* RESERVED */ 04691000 * 2 CVTRV456 PTR(31), /* RESERVED */ 04692000 * 2 CVTRV457 BIT(8), /* RESERVED */ 04693000 * 3 CVTRV458 BIT(1), /* RESERVED */ 04694000 * 3 CVTRV459 BIT(1), /* RESERVED */ 04695000 * 3 CVTRV460 BIT(1), /* RESERVED */ 04696000 * 3 CVTRV461 BIT(1), /* RESERVED */ 04697000 * 3 CVTRV462 BIT(1), /* RESERVED */ 04698000 * 3 CVTRV463 BIT(1), /* RESERVED */ 04699000 * 3 CVTRV464 BIT(1), /* RESERVED */ 04700000 * 3 CVTRV465 BIT(1), /* RESERVED */ 04701000 * 2 CVTRV466 BIT(8), /* RESERVED */ 04702000 * 3 CVTRV467 BIT(1), /* RESERVED */ 04703000 * 3 CVTRV468 BIT(1), /* RESERVED */ 04704000 * 3 CVTRV469 BIT(1), /* RESERVED */ 04705000 * 3 CVTRV470 BIT(1), /* RESERVED */ 04706000 * 3 CVTRV471 BIT(1), /* RESERVED */ 04707000 * 3 CVTRV472 BIT(1), /* RESERVED */ 04708000 * 3 CVTRV473 BIT(1), /* RESERVED */ 04709000 * 3 CVTRV474 BIT(1), /* RESERVED */ 04710000 * 2 CVTRV475 PTR(8), /* RESERVED */ 04711000 * 2 CVTRV476 PTR(8), /* RESERVED */ 04712000 * 2 CVTRV477 PTR(8), /* RESERVED */ 04713000 * 2 CVTRV478 PTR(8), /* RESERVED */ 04714000 * 2 CVTRV479 FIXED(15), /* RESERVED */ 04715000 * 2 CVTRV480 PTR(31), /* RESERVED */ 04716000 * 2 CVTRV481 PTR(31), /* RESERVED */ 04717000 * 2 CVTRV482 PTR(31); /* RESERVED */ 04718000 * 0245 04719000 * /* CVT PREFIX */ 04720000 * 0246 04721000 * DCL 1 CVTFIX BASED(CVTPTR-256) BDY(WORD), 0246 04722000 * 2 * CHAR(248) BDY(WORD), /* RESERVED */ 04723000 * 2 * CHAR(2) BDY(WORD), /* RESERVED */ 04724000 * 2 CVTMDL CHAR(2) BDY(WORD,3), /* CPU MODEL NUMBER IN SIGNLESS 04725000 * PACKED DECIMAL, I.E., A MODEL 04726000 * 145 WOULD BE REPRESENTED AS 04727000 * 0145 HEX */ 04728000 * 2 CVTRELNO CHAR(4) BDY(WORD), /* RELEASE NUMBER (EBCDIC) */ 04729000 * 3 CVTNUMB CHAR(2) BDY(WORD), /* RELEASE NUMBER */ 04730000 * 3 CVTLEVL CHAR(2) BDY(WORD,3);/* LEVEL NUMBER OF THIS RELEASE */ 04731000 * 0246 04732000 * /* END OF CVT MACRO */ 04733000 * 0247 04734000 * 0247 04735000 */* */ 04736000 */* TASK CONTROL BLOCK */ 04737000 */* */ 04738000 */* OS/VS2 RELEASE 4, OS/VS1 RELEASE 5, 09/16/75, LEVEL=9 */ 04739000 */* */ 04740000 */* METHOD OF ACCESS */ 04741000 */* BAL - A DSECT IS PRODUCED UNLESS DSECT=NO IS SPECIFIED. */ 04742000 */* USING ON TCBFIX GIVES ADDRESSABILITY FOR ALL SYMBOLS */ 04743000 */* IN PREFIX AND TCB PROPER. TO GET ADDRESSABILITY FOR */ 04744000 */* THE OS/VS1 - OS/VS2 COMMON EXTENSION, YOU SHOULD */ 04745000 */* CODE */ 04746000 */* */ 04747000 */* L REG,TCBEXT2 */ 04748000 */* USING TCBXTNT2,REG */ 04749000 */* WHERE REG IS ANY REGISTER OTHER THAN ZERO. */ 04750000 */* */ 04751000 */* THIS MACRO ASSUMES A DEFAULT OF SYS=AOS2 WHICH MEANS */ 04752000 */* A MAPPING OF AN OS/VS2 TCB IS DESIRED. IF A MAPPING */ 04753000 */* OF AN OS/VS1 TCB IS DESIRED, PUT SYS=AOS1 AS A */ 04754000 */* PARAMETER ON THE MACRO CALL. IF A MAPPING OF THE */ 04755000 */* TCB FOR BOTH OS/VS1 AND OS/VS2 IS DESIRED, PUT */ 04756000 */* SYS=BOTH AS A PARAMETER. */ 04757000 */* */ 04758000 */* PL/S - DCL TCBPTR PTR */ 04759000 */* */ 04760000 */* THIS MACRO ASSUMES IT IS MAPPING AN OS/VS2 TCB. IF */ 04761000 */* AN OS/VS1 TCB MAPPING IS DESIRED, SPECIFY */ 04762000 */* %TCBSYSTM='AOS1' OR IF A MAPPING OF THE TCB FOR */ 04763000 */* BOTH OS/VS1 AND OS/VS2 IS DESIRED, SPECIFY */ 04764000 */* %TCBSYSTM='BOTH' BEFORE THE INCLUDE FOR THIS MACRO. */ 04765000 */* DO NOT SET TCBSYSTM TO 'AOS2' BECAUSE NULL MEANS */ 04766000 */* OS/VS2. */ 04767000 */* */ 04768000 */* MACRO VARIABLE TCBLEN IS SET TO THE LENGTH OF THE */ 04769000 */* TCB INCLUDING THE PREFIX. TCBLEN IS VALID IF */ 04770000 */* TCBSYSTM IS 'AOS1' OR '' (OS/VS2), BUT IT IS NOT */ 04771000 */* VALID IF TCBSYSTM='BOTH'. */ 04772000 */* */ 04773000 */* F.E.'S */ 04774000 */* MICROFICHE LISTING - IKJTCB */ 04775000 */* */ 04776000 */* DEVELOPERS */ 04777000 */* BAL LISTING - SPECIFY LIST=YES ON MACRO CALL. */ 04778000 */* PL/S LISTING - SPECIFY %IHALIST='YES' BEFORE INCLUDE. */ 04779000 */* */ 04780000 */* FOR INTEGRATION, A LISTING SHOULD NOT BE REQUESTED. */ 04781000 * 0247 04782000 * /* TCB PREFIX */ 04783000 * 0247 04784000 * DECLARE 0247 04785000 * 1 TCBFIX BASED(TCBPTR-32) BDY(DWORD), 0247 04786000 * 0247 04787000 * 2 TCBFRS CHAR(32) BDY(DWORD), /* FLOATING POINT REGISTER SAVE 04788000 * AREA */ 04789000 * 3 TCBFRS0 CHAR(8) BDY(DWORD), /* SAVE AREA FOR FLOATING 0247 04790000 * POINT REGISTER 0 */ 04791000 * 3 TCBFRS2 CHAR(8) BDY(DWORD), /* SAVE AREA FOR FLOATING 0247 04792000 * POINT REGISTER 2 */ 04793000 * 3 TCBFRS4 CHAR(8) BDY(DWORD), /* SAVE AREA FOR FLOATING 0247 04794000 * POINT REGISTER 4 */ 04795000 * 3 TCBFRS6 CHAR(8) BDY(DWORD); /* SAVE AREA FOR FLOATING 0247 04796000 * POINT REGISTER 6 */ 04797000 * 0247 04798000 * /* TCB PROPER */ 04799000 * 0248 04800000 * DECLARE 0248 04801000 * 1 TCB BASED(TCBPTR) BDY(DWORD), 0248 04802000 * 2 TCBRBP PTR(31), /* ADDRESS OF THE RB FOR 0248 04803000 * EXECUTING PROGRAM */ 04804000 * 2 TCBPIE PTR(31), /* ADDRESS OF SPIE CONTROL AREA. 04805000 * THE FIRST WORD OF THIS AREA 04806000 * CONTAINS THE PROGRAM INTERRUPT 04807000 * ELEMENT (PIE) ADDRESS. MDC024*/ 04808000 * 3 TCBPMASK CHAR(1), /* SPIE BITS */ 04809000 * 4 * BIT(4), /* RESERVED */ 04810000 * 4 TCBPM BIT(4), /* PROGRAM MASK AT TIME OF SPIE 04811000 * INITIATION. MASK RESTORED AT 04812000 * TIME OF SPIE NULLIFICATION. */ 04813000 * 3 TCBPIEA PTR(24), /* SAME AS TCBPIE ABOVE */ 04814000 * 2 TCBDEB PTR(31), /* ADDRESS OF THE DEB QUEUE */ 04815000 * 2 TCBTIO PTR(31), /* ADDRESS OF THE TASK I/O TABLE 04816000 * (TIOT) */ 04817000 * 2 TCBCMP CHAR(4) BDY(WORD), /* TASK COMPLETION CODE AND 0248 04818000 * INDICATORS */ 04819000 * 3 TCBCMPF CHAR(1), /* INDICATOR FLAGS */ 04820000 * 4 TCBCREQ BIT(1), /* A DUMP HAS BEEN REQUESTED */ 04821000 * 4 TCBCSTEP BIT(1), /* A STEP ABEND HAS BEEN 0248 04822000 * REQUESTED */ 04823000 * 4 TCBCPP BIT(1), /* SOME PROBLEM PROGRAM STORAGE 04824000 * WAS OVERLAID BY THE SECOND 0248 04825000 * LOAD OF ABEND. A FIRST LOAD 04826000 * OVERLAY IS INDICATED IN 0248 04827000 * TCBFLGS FIELD (OFFSET 29 0248 04828000 * DECIMAL) (OS/VS1) MDC054*/ 04829000 * 5 TCBDMPO BIT(1), /* DUMP OPTIONS WERE PROVIDED ON 04830000 * CALLRTM OR SETRP MACRO 0248 04831000 * (OS/VS2) MDC060*/ 04832000 * 4 TCBSTCC BIT(1), /* COMPLETION CODE IS NOT TO 0248 04833000 * BE STORED IN TCBCMPC (OFFSET 04834000 * 17 DECIMAL) IF AN ABEND IS 0248 04835000 * ENCOUNTERED. THIS IS TO 0248 04836000 * PREVENT AN OVERLAY OF THE 0248 04837000 * ORIGINAL COMPLETION CODE. 0248 04838000 * (OS/VS1) MDC055*/ 04839000 * 5 TCBNOCC BIT(1), /* A COMPLETION CODE WAS NOT 0248 04840000 * PROVIDED ON CALLRTM MACRO. 0248 04841000 * A DEFAULT CODE IS BEING USED. 04842000 * (OS/VS2) MDC061*/ 04843000 * 4 TCBCDBL BIT(1), /* A DOUBLE ABEND HAS OCCURRED 04844000 * (OS/VS1) MDC056*/ 04845000 * 5 TCBCASID BIT(1), /* ABEND WAS SCHEDULED VIA CROSS 04846000 * MEMORY ABTERM (OS/VS2) MDC062*/ 04847000 * 4 TCBCWTO BIT(1), /* A DUMP MESSAGE (WTO) IS TO BE 04848000 * ISSUED TO THE OPERATOR 0248 04849000 * (OS/VS1) MDC057*/ 04850000 * 5 TCBRV316 BIT(1), /* RESERVED FOR CALLRTM FLAG 0248 04851000 * (OS/VS2) MDC063*/ 04852000 * 4 TCBCIND BIT(1), /* ABEND TO OUTPUT AN INDICATIVE 04853000 * DUMP (OS/VS1) 0248 04854000 * (MDC303) @X04DA9A*/ 04855000 * 5 TCBRV317 BIT(1), /* RESERVED FOR CALLRTM FLAG 0248 04856000 * (OS/VS2) MDC063*/ 04857000 * 4 TCBCMSG BIT(1), /* AN ABEND MESSAGE IS PROVIDED 04858000 * TO BE PRINTED BY ABDUMP 0248 04859000 * (OS/VS1) MDC059*/ 04860000 * 5 TCBRV318 BIT(1), /* RESERVED FOR CALLRTM FLAG 0248 04861000 * (OS/VS2) MDC063*/ 04862000 * 3 TCBCMPC CHAR(3), /* SYSTEM COMPLETION CODE IN 0248 04863000 * FIRST 12 BITS, USER 0248 04864000 * COMPLETION CODE IN LAST 12 0248 04865000 * BITS */ 04866000 * 2 TCBTRN PTR(31), /* ADDRESS OF TESTRAN CONTROL 0248 04867000 * CORE TABLE */ 04868000 * 3 TCBABF CHAR(1), /* FLAG BYTE */ 04869000 * 4 TCBMOD91 BIT(1), /* BOTH TESTRAN AND DECIMAL 0248 04870000 * SIMULATOR ON A MOD 91 */ 04871000 * 4 TCBNOCHK BIT(1), /* SUPPRESS TAKING CHECKPOINTS 04872000 * FOR THIS STEP (JOB STEP TCB) */ 04873000 * 4 TCBGRPH BIT(1), /* THIS IS A GRAPHICS FOREGROUND 04874000 * JOB OR THE GRAPHIC JOB 0248 04875000 * PROCESSOR */ 04876000 * 4 TCBRSV01 BIT(1), /* RESERVED */ 04877000 * 4 TCBTCPP BIT(1), /* TCAM POST-PENDING (RORI) */ 04878000 * 4 TCBTCP BIT(1), /* TEST TASK - USED BY TEST SVC */ 04879000 * 4 TCBOLTEP BIT(1), /* OLTEP FUNCTIONS REQUIRE 0248 04880000 * CLEANUP BEFORE ABNORMAL 0248 04881000 * TERMINATION CAN BE INVOKED */ 04882000 * 4 TCBRSV02 BIT(1), /* RESERVED */ 04883000 * 3 TCBTRNB PTR(24), /* ADDRESS OF TESTRAN CONTROL 0248 04884000 * CORE TABLE */ 04885000 * 2 TCBMSS PTR(31), /* FOR JOB STEP TCB, ADDRESS OF 04886000 * THE BOUNDARY BOX. FOR 0248 04887000 * SUBTASK TCB, ADDRESS OF THE 04888000 * GOTTEN SUBTASK AREA QUEUE 0248 04889000 * ELEMENT (GQE). A GQE IS 0248 04890000 * PRESENT ONLY IF THE SYSTEM 0248 04891000 * HAS ISSUED A GETMAIN MACRO 0248 04892000 * INSTRUCTION FOR THE SPACE. 0248 04893000 * (OS/VS1) 0248 04894000 * ADDRESS OF LAST SPQE ON MSS 04895000 * QUEUE (OS/VS2) */ 04896000 * 3 TCBRSV03 PTR(8), /* ** TCBNROC FIELD UNUSED 0248 04897000 * IN OS/VS ** */ 04898000 * 3 TCBMSSB PTR(24), /* SAME AS TCBMSS ABOVE */ 04899000 * 2 TCBPKF CHAR(1), /* STORAGE PROTECTION KEY FOR 0248 04900000 * THIS TASK. IF THERE IS NO 0248 04901000 * STORAGE PROTECTION, ALL BITS 04902000 * ARE ZERO. */ 04903000 * 3 TCBFLAG BIT(4), /* STORAGE PROTECTION KEY */ 04904000 * 3 TCBZERO BIT(4), /* MUST BE ZERO */ 04905000 * 2 TCBFLGS CHAR(5), /* FLAG BYTE FIELDS */ 04906000 * 3 TCBFLGS1 CHAR(1), /* FIRST TCB FLAG BYTE */ 04907000 * 4 TCBFA BIT(1), /* ABNORMAL TERMINATION IN 0248 04908000 * PROGRESS */ 04909000 * 4 TCBFE BIT(1), /* NORMAL TERMINATION IN 0248 04910000 * PROGRESS */ 04911000 * 4 TCBFERA BIT(1), /* ENTER ABEND ERASE ROUTINE 0248 04912000 * WHEN IN CONTROL AGAIN 0248 04913000 * (OS/VS2) */ 04914000 * 4 TCBNONPR BIT(1), /* TASK IS NON-PREEMPTABLE 0248 04915000 * (OS/VS2) (MDC320) @Z40FP9A*/ 04916000 * 4 TCBPDUMP BIT(1), /* PREVENT DUMP INDICATOR 0248 04917000 * (OS/VS2) */ 04918000 * 4 TCBFT BIT(1), /* TOP TASK IN TREE BEING 0248 04919000 * ABTERMED (OS/VS2) */ 04920000 * 4 TCBFS BIT(1), /* ABTERM DUMP COMPLETED (OS/VS2) 04921000 * PROBLEM PROGRAM STORAGE HAS 04922000 * BEEN OVERLAID TO PROCESS 0248 04923000 * ABEND (OS/VS1) */ 04924000 * 4 TCBFX BIT(1), /* PROHIBIT QUEUEING OF 0248 04925000 * ASYNCHRONOUS EXITS FOR THIS 04926000 * TASK */ 04927000 * 3 TCBFLGS2 CHAR(1), /* SECOND FLAG BYTE */ 04928000 * 4 TCBFOINP BIT(1), /* THE TASK IS ABENDING AND IS 04929000 * IN THE PROCESS OF (1) OPEN 0248 04930000 * FOR DUMP DATA SET PROCESSING, 04931000 * (2) CLOSE FOR USER DATA SET 04932000 * OR (3) PURGE FOR ENQ'ED 0248 04933000 * RESOURCES. THIS BIT IS USED 04934000 * IN CONJUNCTION WITH TCBSTACK. 04935000 * (OS/VS2) ICB374*/ 04936000 * 4 TCBFSTI BIT(1), /* SECOND JOB STEP INTERVAL HAS 04937000 * EXPIRED (OS/VS2 INITIATOR 0248 04938000 * TCB) */ 04939000 * 4 TCBFABOP BIT(1), /* IF 1, THE SYSABEND DUMP DATA 04940000 * SET HAS BEEN OPENED FOR 0248 04941000 * ABEND. IF 0, THE SYSUDUMP 0248 04942000 * DUMP DATA SET WAS OPENED. 0248 04943000 * THIS BIT IS ONLY USED FOR THE 04944000 * JOB STEP TCB AND IS USED IN 04945000 * CONJUNCTION WITH TCBFDSOP 0248 04946000 * BIT. (OS/VS2) (ICB482) YM0651*/ 04947000 * 4 TCBFSMC BIT(1), /* TASK HAS ISSUED A SYSTEM- 0248 04948000 * MUST-COMPLETE AND SET ALL 0248 04949000 * OTHER TASKS IN THE SYSTEM 0248 04950000 * NON-DISPATCHABLE */ 04951000 * 4 TCBFJMC BIT(1), /* TASK HAS ISSUED A STEP-MUST- 04952000 * COMPLETE AND TURNED OFF ALL 04953000 * OTHER TASKS IN THE STEP */ 04954000 * 4 TCBFDSOP BIT(1), /* SYSABEND OPEN FOR JOB STEP 0248 04955000 * (OS/VS2) */ 04956000 * 4 TCBFETXR BIT(1), /* ETXR TO BE SCHEDULED */ 04957000 * 4 TCBFTS BIT(1), /* THIS TASK IS A MEMBER OF A 0248 04958000 * TIME-SLICED GROUP */ 04959000 * 3 TCBFLGS3 CHAR(1), /* THIRD FLAG BYTE */ 04960000 * 4 TCBFSM BIT(1), /* ALL PSW'S IN SUPERVISOR STATE 04961000 * (OS/VS2) */ 04962000 * 4 TCBADINP BIT(1), /* USED IN CONJUNCTION WITH 0248 04963000 * TCBONDSP. FLAG INDICATING 0248 04964000 * THAT ABDUMP IS CURRENTLY 0248 04965000 * PROCESSING FOR SOME TASK IN 04966000 * JOB STEP. A HIGHER LEVEL 0248 04967000 * TASK IS NOT ALLOWED TO ENTER 04968000 * MAINLINE ABEND PROCESSING IF 04969000 * THIS BIT IS SET IN JOB STEP 04970000 * TCB UNLESS JOB STEP TASK IS 04971000 * FAILING. BIT SET ONLY IN JOB 04972000 * STEP TCB AND TASK INVOKING 0248 04973000 * ABDUMP. (OS/VS2) */ 04974000 * 4 TCBABTRM BIT(1), /* ABTERM BIT TO PREVENT 0248 04975000 * MULTIPLE ABENDS (OS/VS2) */ 04976000 * 4 TCBABGM BIT(1), /* GETMAIN IS TO DEFAULT LSQA 0248 04977000 * REQUESTS TO SQA REQUESTS WHEN 04978000 * REQUEST CANNOT BE SATISFIED 04979000 * FROM LSQA (OS/VS2) */ 04980000 * 4 TCBRSV06 BIT(1), /* RESERVED (OS/VS2) */ 04981000 * 4 TCBRSV07 BIT(1), /* RESERVED (OS/VS2) */ 04982000 * 4 TCBRSV08 BIT(1), /* RESERVED (OS/VS2) */ 04983000 * 4 TCBDWSTA BIT(1), /* TASK WAS DETATCHED WITH 0248 04984000 * STAE=YES OPTION (OS/VS2) 0248 04985000 * ICB315*/ 04986000 * 3 TCBFLGS4 CHAR(1), /* NON-DISPATCHABILITY FLAGS 0248 04987000 * (OS/VS2) 0248 04988000 * RESERVED BYTE (OS/VS1) */ 04989000 * 4 TCBNDUMP BIT(1), /* ABDUMP NON-DISPATCHABILITY 0248 04990000 * INDICATOR */ 04991000 * 4 TCBSER BIT(1), /* SER1 NON-DISPATCHABILITY 0248 04992000 * INDICATOR */ 04993000 * 4 TCBRQENA BIT(1), /* I/O RQE'S EXHAUSTED */ 04994000 * 4 TCBHNDSP BIT(1), /* TASK OR JOB STEP IS 0248 04995000 * MOMENTARILY 'FROZEN' UNTIL 0248 04996000 * THE REQUIRED RESOURCES ARE 0248 04997000 * AVAILABLE. THE BIT IS SET 0248 04998000 * THROUGH THE USE OF THE 0248 04999000 * 'STATUS' SVC. ICB453*/ 05000000 * 4 TCBUXNDV BIT(1), /* TASK IS TEMPORARILY 0248 05001000 * NON-DISPATCHABLE BECAUSE SMF 05002000 * TIME LIMIT OR SYSOUT LIMIT 0248 05003000 * USER EXIT ROUTINE IS BEING 0248 05004000 * EXECUTED FOR THIS STEP */ 05005000 * 4 TCBMPCVQ BIT(1), /* VARY OR QUIESCE IN 0248 05006000 * MULTIPROCESSING SYSTEM */ 05007000 * 4 TCBMPCND BIT(1), /* M65 MULTIPROCESSING 0248 05008000 * NON-DISPATCHABILITY 0248 05009000 * INDICATOR FOR ALL CPU'S */ 05010000 * 4 TCBONDSP BIT(1), /* TASK TERMINATING AND 0248 05011000 * NON-DISPATCHABLE BECAUSE 0248 05012000 * EITHER OPEN FOR DUMP DATA 0248 05013000 * SET IS IN PROCESS OR CLOSE 0248 05014000 * BY ABEND IS IN PROCESS */ 05015000 * 3 TCBFLGS5 CHAR(1), /* MORE NON-DISPATCHABILITY 0248 05016000 * FLAGS. IF ANY BIT IN THIS 0248 05017000 * BYTE IS 1, THE TASK IS 0248 05018000 * NON-DISPATCHABLE. */ 05019000 * 4 TCBFC BIT(1), /* TASK TERMINATED (OS/VS2) */ 05020000 * 4 TCBABWF BIT(1), /* ABNORMAL WAIT (OS/VS2) */ 05021000 * 5 TCBUXNDF BIT(1), /* TASK IS TEMPORARILY 0248 05022000 * NON-DISPATCHABLE BECAUSE SMF 05023000 * TIME LIMIT OR SYSOUT LIMIT 0248 05024000 * USER EXIT ROUTINE IS BEING 0248 05025000 * EXECUTED FOR THIS STEP. THIS 05026000 * BIT IS SET TO 1 IN ALL TCB'S 05027000 * EXCEPT JOB STEP TCB. 0248 05028000 * (OS/VS1) ICB263*/ 05029000 * 4 TCBPAGE BIT(1), /* TASK IS NON-DISPATCHABLE DUE 05030000 * TO EXCESSIVE PAGING RATE */ 05031000 * 4 TCBANDSP BIT(1), /* TASK IS TEMPORARILY 0248 05032000 * NON-DISPATCHABLE BECAUSE IT 05033000 * WAS ATTACHED UNDER THE 0248 05034000 * DISP=NO OPERAND */ 05035000 * 4 TCBSYS BIT(1), /* ANOTHER TASK IS IN SYSTEM- 0248 05036000 * MUST-COMPLETE STATUS OR A 0248 05037000 * SUMMARY BIT FOR FIELD 0248 05038000 * TCBSYSCT */ 05039000 * 4 TCBSTP BIT(1), /* ANOTHER TASK IN THIS JOB STEP 05040000 * IS IN STEP-MUST-COMPLETE 0248 05041000 * STATUS */ 05042000 * 4 TCBFCD1 BIT(1), /* INITIATOR WAITING FOR REGION 05043000 * (OS/VS2) */ 05044000 * 4 TCBPNDSP BIT(1), /* PRIMARY NON-DISPATCHABILITY 05045000 * BIT. THIS BIT IS SET TO 1 0248 05046000 * IF ANY OF THE SECONDARY 0248 05047000 * NON-DISPATCHABILITY BITS 0248 05048000 * (OFFSETS 173, 174, 175, 200 05049000 * OR 201 DECIMAL) IS SET TO 1. 05050000 * THIS BIT IS SET TO 0 IF A 0248 05051000 * SECONDARY NON-DISPATCHABILITY 05052000 * BIT IS SET TO 0 AND ALL OTHER 05053000 * SECONDARY NON-DISPATCHABILITY 05054000 * BITS ARE 0. */ 05055000 * 2 TCBLMP PTR(8), /* TASK LIMIT PRIORITY (OS/VS2) 05056000 * NUMBER OF RESOURCES FOR WHICH 05057000 * THIS TASK IS ENQUEUED 0248 05058000 * (OS/VS1) */ 05059000 * 2 TCBDSP PTR(8), /* DISPATCHING PRIORITY FOR THIS 05060000 * TASK */ 05061000 * 2 TCBLLS PTR(31), /* ADDRESS OF LAST LOAD LIST 0248 05062000 * ELEMENT (LLE) IN LOAD LIST 0248 05063000 * (OS/VS2) 0248 05064000 * ADDRESS OF THE PREFIX OF THE 05065000 * MOST RECENTLY ADDED REQUEST 05066000 * BLOCK (RB-8) ON THE LIST OF 05067000 * PROGRAMS LOADED VIA THE LOAD 05068000 * MACRO INSTRUCTION (OS/VS1) 0248 05069000 * MDC070*/ 05070000 * 2 TCBJLB PTR(31), /* ADDRESS OF A JOBLIB DCB */ 05071000 * 2 TCBJPQ PTR(31), /* ADDRESS OF LAST CDE FOR JOB 05072000 * PACK AREA (JPA) CONTROL QUEUE 05073000 * (OS/VS2) */ 05074000 * 4 TCBPURGE CHAR(1), /* PURGE FLAGS (OS/VS2) */ 05075000 * 5 TCBJPQF BIT(1), /* JPQ PURGE FLAG */ 05076000 * 5 TCBRSV09 BIT(1), /* RESERVED */ 05077000 * 5 TCBRSV10 BIT(1), /* RESERVED */ 05078000 * 5 TCBRSV11 BIT(1), /* RESERVED */ 05079000 * 5 TCBRSV12 BIT(1), /* RESERVED */ 05080000 * 5 TCBRSV13 BIT(1), /* RESERVED */ 05081000 * 5 TCBRSV14 BIT(1), /* RESERVED */ 05082000 * 5 TCBRSV15 BIT(1), /* RESERVED */ 05083000 * 4 TCBJPQB PTR(24), /* SAME AS TCBJPQ ABOVE */ 05084000 * 2 TCBGRS CHAR(64) BDY(WORD), /* GENERAL REGISTER SAVE AREA */ 05085000 * 3 TCBGRS0 PTR(31), /* SAVE AREA FOR REGISTER 0 */ 05086000 * 3 TCBGRS1 PTR(31), /* SAVE AREA FOR REGISTER 1 */ 05087000 * 3 TCBGRS2 PTR(31), /* SAVE AREA FOR REGISTER 2 */ 05088000 * 3 TCBGRS3 PTR(31), /* SAVE AREA FOR REGISTER 3 */ 05089000 * 3 TCBGRS4 PTR(31), /* SAVE AREA FOR REGISTER 4 */ 05090000 * 3 TCBGRS5 PTR(31), /* SAVE AREA FOR REGISTER 5 */ 05091000 * 3 TCBGRS6 PTR(31), /* SAVE AREA FOR REGISTER 6 */ 05092000 * 3 TCBGRS7 PTR(31), /* SAVE AREA FOR REGISTER 7 */ 05093000 * 3 TCBGRS8 PTR(31), /* SAVE AREA FOR REGISTER 8 */ 05094000 * 3 TCBGRS9 PTR(31), /* SAVE AREA FOR REGISTER 9 */ 05095000 * 3 TCBGRS10 PTR(31), /* SAVE AREA FOR REGISTER 10 */ 05096000 * 3 TCBGRS11 PTR(31), /* SAVE AREA FOR REGISTER 11 */ 05097000 * 3 TCBGRS12 PTR(31), /* SAVE AREA FOR REGISTER 12 */ 05098000 * 3 TCBGRS13 PTR(31), /* SAVE AREA FOR REGISTER 13 */ 05099000 * 3 TCBGRS14 PTR(31), /* SAVE AREA FOR REGISTER 14 */ 05100000 * 3 TCBGRS15 PTR(31), /* SAVE AREA FOR REGISTER 15 */ 05101000 * 2 TCBFSA PTR(31), /* ADDRESS OF THE FIRST PROBLEM 05102000 * PROGRAM SAVE AREA */ 05103000 * 3 TCBQEL PTR(8), /* ENQUEUE COUNT (OS/VS2) */ 05104000 * 3 TCBFSAB PTR(24), /* ADDRESS OF THE FIRST PROBLEM 05105000 * PROGRAM SAVE AREA */ 05106000 * 2 TCBTCB PTR(31), /* ADDRESS OF NEXT TCB OF LOWER 05107000 * PRIORITY ON THE READY QUEUE */ 05108000 * 2 TCBTME PTR(31), /* ADDRESS OF THE TIMER QUEUE 0248 05109000 * ELEMENT (TQE) */ 05110000 * 3 TCBTQET BIT(1), /* IF ZERO, TASK TYPE TQE. 0248 05111000 * IF ONE, REAL/WAIT TYPE TQE. 05112000 * MDC028*/ 05113000 * 2 TCBJSTCB PTR(31), /* ADDRESS OF FIRST JOB STEP TCB 05114000 * OR OF THIS TCB IF KEY ZERO 0248 05115000 * (OS/VS2) */ 05116000 * 3 TCBRSV16 PTR(8), /* RESERVED */ 05117000 * 3 TCBJSTCA PTR(24), /* ADDRESS OF FIRST JOB STEP TCB 05118000 * OR OF THIS TCB IF KEY ZERO 0248 05119000 * (OS/VS2) */ 05120000 * 2 TCBNTC PTR(31), /* ADDRESS OF THE TCB FOR THE 0248 05121000 * TASK PREVIOUSLY ATTACHED BY 05122000 * THE TASK THAT ATTACHED THIS 05123000 * TASK */ 05124000 * 2 TCBOTC PTR(31), /* ADDRESS OF THE TCB FOR THE 0248 05125000 * TASK (THE ORIGINATING TASK) 05126000 * THAT ATTACHED THIS TASK. 0248 05127000 * THIS FIELD IS ZERO IN THE TCB 05128000 * FOR A SYSTEM TASK. */ 05129000 * 2 TCBLTC PTR(31), /* ADDRESS OF THE TCB FOR THE 0248 05130000 * TASK LAST ATTACHED BY THIS 0248 05131000 * TASK */ 05132000 * 2 TCBIQE PTR(31), /* ADDRESS OF AN INTERRUPTION 0248 05133000 * QUEUE ELEMENT (IQE) FOR 0248 05134000 * SCHEDULING THE ETXR ROUTINE 05135000 * OF THE TASK THAT ATTACHED 0248 05136000 * THIS TASK */ 05137000 * 2 TCBECB PTR(31), /* ADDRESS OF THE ECB THAT WILL 05138000 * BE POSTED BY THE SUPERVISOR'S 05139000 * TASK TERMINATION ROUTINES 0248 05140000 * WHEN NORMAL OR ABNORMAL 0248 05141000 * TERMINATION OCCURS. */ 05142000 * 2 TCBTSFLG BIT(8), /* TIME SHARING FLAGS */ 05143000 * 3 TCBTSTSK BIT(1), /* SWAPPED TIME SHARING TASK 0248 05144000 * (OS/VS1) MDC013*/ 05145000 * 4 TCBRV300 BIT(1), /* RESERVED (WAS TCBTSTSK) 0248 05146000 * (OS/VS2) MDC013*/ 05147000 * 3 TCBSTPPR BIT(1), /* TASK SHOULD BE MADE 0248 05148000 * NON-DISPATCHABLE VIA TCBSTPP 05149000 * WHEN IT IS NO LONGER RUNNING 05150000 * A PRIVILEGED PROGRAM */ 05151000 * 3 TCBATT BIT(1), /* TASK SHOULD NOT HAVE 0248 05152000 * ATTENTION EXITS SCHEDULED ON 05153000 * IT BY EXIT EFFECTOR */ 05154000 * 3 TCBTIOTG BIT(1), /* PURGE TGET/TPUT AFTER 0248 05155000 * ATTENTION */ 05156000 * 3 TCBRSV17 BIT(1), /* RESERVED */ 05157000 * 3 TCBRSV18 BIT(1), /* RESERVED */ 05158000 * 3 TCBDYDSP BIT(1), /* M195 TASK IS MEMBER OF 0248 05159000 * DYNAMIC DISPATCHING 0248 05160000 * GROUP ICB262*/ 05161000 * 3 TCBCPUBN BIT(1), /* FOR M195, ZERO MEANS I/O 0248 05162000 * BOUND AND ONE MEANS CPU 0248 05163000 * BOUND ICB262*/ 05164000 * 2 TCBSTPCT PTR(8), /* NUMBER OF SETTASK STARTS 0248 05165000 * WHICH MUST BE ISSUED BEFORE 05166000 * TASK IS MADE DISPATCHABLE - 05167000 * FIELD NOT RESTRICTED TO TSO */ 05168000 * 2 TCBTSLP PTR(8), /* LIMIT PRIORITY OF TIME 0248 05169000 * SHARING TASK */ 05170000 * 2 TCBTSDP CHAR(1), /* DISPATCHING PRIORITY OF TIME 05171000 * SHARING TASK */ 05172000 * 2 TCBPQE PTR(31), /* POINTER TO DPQE MINUS 8 FOR 05173000 * THE JOB STEP (OS/VS2) */ 05174000 * 2 TCBAQE PTR(31), /* LIST ORIGIN OF AQE(S) FOR 0248 05175000 * THIS TASK (OS/VS2) */ 05176000 * 2 TCBSTAB PTR(31), /* ADDRESS OF THE CURRENT STAE 05177000 * CONTROL BLOCK */ 05178000 * 3 TCBNSTAE CHAR(1), /* FLAGS INTERNAL TO STAE 0248 05179000 * ROUTINE */ 05180000 * 4 TCBSTABE BIT(1), /* ABEND ENTERED BECAUSE OF 0248 05181000 * ERROR IN STAE PROCESSING */ 05182000 * 4 TCBQUIES BIT(1), /* STAE INVOKED PURGE I/O 0248 05183000 * ROUTINE WITH QUIESCE I/O 0248 05184000 * OPTION */ 05185000 * 4 TCB33E BIT(1), /* A 33E ABEND HAS OCCURRED FOR 05186000 * TASK (OS/VS2) */ 05187000 * 4 TCBPPSUP BIT(1), /* 1=SUPERVISOR MODE, 0=PROBLEM 05188000 * PROGRAM MODE. INDICATOR TO 05189000 * SYNCH OF THE MODE OF THE 0248 05190000 * USER EXIT (OS/VS2) MDC032*/ 05191000 * 4 TCBHALT BIT(1), /* PURGE I/O ROUTINE DID NOT 0248 05192000 * SUCCESSFULLY QUIESCE I/O, BUT 05193000 * I/O WAS HALTED */ 05194000 * 4 TCBSYNCH BIT(1), /* SYNCH ISSUED BY ASIR TO 0248 05195000 * SCHEDULE EXIT ROUTINE 0248 05196000 * (OS/VS2) */ 05197000 * 4 TCBRV301 BIT(1), /* RESERVED (WAS TCBNPURG) 0248 05198000 * (OS/VS2) MDC007*/ 05199000 * 4 TCBSTCUR BIT(1), /* STAE RECURSION VALID (OS/VS2) 05200000 * ICB443*/ 05201000 * 3 TCBSTABB PTR(24), /* ADDRESS OF THE CURRENT STAE 05202000 * CONTROL BLOCK */ 05203000 * 2 TCBTCT PTR(31), /* ADDRESS OF THE TIMING CONTROL 05204000 * TABLE (TCT) IF SYSTEM 0248 05205000 * MANAGEMENT FACILITIES (SMF) 05206000 * DATA IS BEING COLLECTED FOR 05207000 * THE TASK. ZERO IF SMF DATA 05208000 * IS NOT BEING COLLECTED FOR 0248 05209000 * THE TASK OR FOR OS/VS1, IF 0248 05210000 * SMF IS NOT IN THE SYSTEM. 0248 05211000 * (MDC305) @Z30AQ9A*/ 05212000 * 3 TCBTCTGF BIT(8), /* FLAG BYTE FOR TIMING CONTROL 05213000 * TABLE ICB318*/ 05214000 * 4 TCBSMFGF BIT(1), /* IF ZERO, THE TCT CORE TABLE 05215000 * IS NOT BE TO UPDATED BY 0248 05216000 * GETMAIN/FREEMAIN. IF ONE, 0248 05217000 * THE TCT CORE TABLE IS TO BE 05218000 * UPDATED BY GETMAIN/FREEMAIN. 05219000 * ICB318*/ 05220000 * 4 TCBRSV20 BIT(1), /* RESERVED */ 05221000 * 4 TCBRSV97 BIT(1), /* RESERVED */ 05222000 * 4 TCBRSV98 BIT(1), /* RESERVED */ 05223000 * 4 TCBRSV99 BIT(1), /* RESERVED */ 05224000 * 4 TCBRSV9A BIT(1), /* RESERVED */ 05225000 * 4 TCBRSV9B BIT(1), /* RESERVED */ 05226000 * 4 TCBRSV9C BIT(1), /* RESERVED */ 05227000 * 3 TCBTCTB PTR(24), /* SAME AS TCBTCT ABOVE */ 05228000 * 2 TCBUSER PTR(31), /* A WORD AVAILABLE TO THE USER */ 05229000 * 2 TCBSCNDY CHAR(4) BDY(WORD), /* SECONDARY NON-DISPATCHABILITY 05230000 * BITS. IF ANY BIT IN THE 0248 05231000 * FOLLOWING FOUR BYTES IS 1, THE 05232000 * PRIMARY NON-DISPATCHABILITY 05233000 * BIT (OFFSET 33.7 DECIMAL) IS 05234000 * 1, AND THE TASK IS 0248 05235000 * NON-DISPATCHABLE. */ 05236000 * 3 TCBNDSP CHAR(4) BDY(WORD), /* SAME AS TCBSCNDY */ 05237000 * 4 TCBNDSP0 CHAR(1), /* BYTE 0 */ 05238000 * 4 TCBNDSP1 CHAR(1), /* BYTE 1 */ 05239000 * 5 TCBDARTN BIT(1), /* THE TASK IS TEMPORARILY 0248 05240000 * NON-DISPATCHABLE - DAMAGE 0248 05241000 * ASSESSMENT ROUTINE (DAR) */ 05242000 * 5 TCBDARPN BIT(1), /* THE TASK IS PERMANENTLY 0248 05243000 * NON-DISPATCHABLE - DAMAGE 0248 05244000 * ASSESSMENT ROUTINE (DAR) */ 05245000 * 5 TCBRSTND BIT(1), /* THE TASK IS TEMPORARILY 0248 05246000 * NON-DISPATCHABLE - RECOVERY 05247000 * MANAGEMENT SUPPORT AND SYSTEM 05248000 * ERROR RECOVERY (RMS/SER) */ 05249000 * 5 TCBRSPND BIT(1), /* THE TASK IS PERMANENTLY 0248 05250000 * NON-DISPATCHABLE - RECOVERY 05251000 * MANAGEMENT SUPPORT AND SYSTEM 05252000 * ERROR RECOVERY (RMS/SER) 0248 05253000 * (IF THIS FLAG IS ON THEN THE 05254000 * PREVIOUS BIT MUST BE ON TOO) */ 05255000 * 5 TCBDDRND BIT(1), /* THE TASK IS IN DEVICE 0248 05256000 * ALLOCATION AND DYNAMIC DEVICE 05257000 * RECONFIGURATION (DDR) HAS 0248 05258000 * MADE IT NON-DISPATCHABLE - 0248 05259000 * RECOVERY MANAGEMENT SUPPORT 05260000 * AND SYSTEM ERROR RECOVERY 0248 05261000 * (RMS/SER) (OS/VS1) MDC046*/ 05262000 * 5 TCBTPSP BIT(1), /* DISPATCHING OF TCAM TASK 0248 05263000 * MUST BE DELAYED UNTIL TCAM 0248 05264000 * I/O APPENDAGE OR SVC ROUTINE 05265000 * HAS COMPLETED EXECUTION 0248 05266000 * (TCAM IN MULTIPROCESSING 0248 05267000 * ENVIRONMENT) */ 05268000 * 5 TCBPIEND BIT(1), /* SRB IS TO BE SCHEDULED TO 0248 05269000 * PERFORM PIE/PICA PROCESSING 05270000 * (FIRST LEVEL INTERRUPT 0248 05271000 * HANDLER) MDC026*/ 05272000 * 5 TCBRSV22 BIT(1), /* RESERVED */ 05273000 * 4 TCBNDSP2 CHAR(1), /* BYTE 2 */ 05274000 * 5 TCBABD BIT(1), /* ABDUMP IS PROCESSING (OS/VS1)*/ 05275000 * 5 TCBSTPP BIT(1), /* TASK SET NON-DISPATCHABLE 0248 05276000 * BY SETTASK */ 05277000 * 5 TCBNDSVC BIT(1), /* TASK IS NON-DISPATCHABLE 0248 05278000 * BECAUSE SVC DUMP IS 0248 05279000 * EXECUTING FOR ANOTHER TASK */ 05280000 * 5 TCBNDTS BIT(1), /* TASK IS NON-DISPATCHABLE 0248 05281000 * BECAUSE IT IS BEING SWAPPED 05282000 * OUT */ 05283000 * 5 TCBIWAIT BIT(1), /* TASK IS NON-DISPATCHABLE DUE 05284000 * TO AN INPUT WAIT */ 05285000 * 5 TCBOWAIT BIT(1), /* TASK IS NON-DISPATCHABLE DUE 05286000 * TO AN OUTPUT WAIT */ 05287000 * 5 TCBDSS BIT(1), /* DYNAMIC SUPPORT SYSTEM (DSS) 05288000 * HAS SET THIS TASK 0248 05289000 * NON-DISPATCHABLE ICB313*/ 05290000 * 5 TCBABE BIT(1), /* ABEND ROUTINE WAS ENTERED BY 05291000 * THIS TASK WHILE THE DCB FOR 05292000 * SYSABEND (OR SYSUDUMP) DATA 05293000 * SET WAS BEING OPENED FOR 0248 05294000 * ANOTHER TASK (OS/VS1) */ 05295000 * 4 TCBNDSP3 CHAR(1), /* BYTE 3 */ 05296000 * 5 TCBLJSND BIT(1), /* TASK IS ABENDING AND 0248 05297000 * NON-DISPATCHABLE BECAUSE IT 05298000 * HAS A JOB STEP SUBTASK. 0248 05299000 * TCBONDSP MUST ALSO BE ON. 0248 05300000 * (OS/VS2) */ 05301000 * 5 TCBRV302 BIT(1), /* RESERVED (WAS TCBSTAND) 0248 05302000 * (OS/VS2) MDC006*/ 05303000 * 5 TCBSRBND BIT(1), /* TCB NON-DISPATCHABLE BECAUSE 05304000 * SRB'S ARE STOPPED (OS/VS2) 05305000 * MDC045*/ 05306000 * 5 TCBRSV24 BIT(1), /* RESERVED */ 05307000 * 5 TCBRSV25 BIT(1), /* RESERVED */ 05308000 * 5 TCBRSV26 BIT(1), /* RESERVED */ 05309000 * 5 TCBRSV27 BIT(1), /* RESERVED */ 05310000 * 5 TCBNDINT BIT(1), /* INITIATOR SETS THIS BIT TO 0248 05311000 * PREVENT JOB STEP EXECUTION 0248 05312000 * IN ORDER TO DO CANCEL 0248 05313000 * PROCESSING (CAN CANCEL LOOP) 05314000 * (OS/VS2) MDC075*/ 05315000 * 2 TCBMDIDS FIXED(31), /* RESERVED FOR MODEL-DEPENDENT 05316000 * SUPPORT AND FOR IBM 0248 05317000 * PROPRIETARY PROGRAMMING 0248 05318000 * SUPPORT ICBXXX*/ 05319000 * 2 TCBJSCB PTR(31), /* ADDRESS OF THE JOB STEP 0248 05320000 * CONTROL BLOCK */ 05321000 * 3 TCBRECDE CHAR(1), /* ABEND RECURSION BYTE ICB456*/ 05322000 * 4 TCBREC BIT(1), /* VALID REENTRY TO ABEND IF 0248 05323000 * NON-ZERO VALUE IN FOLLOWING 05324000 * 7 BITS ICB456*/ 05325000 * 4 * BIT(7), /* ABEND BITS ICB456*/ 05326000 * 3 TCBJSCBB PTR(24), /* ADDRESS OF THE JOB STEP 0248 05327000 * CONTROL BLOCK */ 05328000 * 2 TCBDDEXC FIXED(15), /* NUMBER OF TIMES A DYNAMIC 0248 05329000 * DISPATCHING TASK HAS HAD ITS 05330000 * TIME SLICE EXPIRE 0248 05331000 * (OS/VS1) ICB465*/ 05332000 * 2 TCBDDWTC FIXED(15), /* NUMBER OF TIMES A DYNAMIC 0248 05333000 * DISPATCHING TASK IS NOT 0248 05334000 * INTERRUPTED BY THE END OF A 05335000 * TIME SLICE BETWEEN WAITS 0248 05336000 * (OS/VS1) ICB465*/ 05337000 * 2 TCBIOBRC PTR(31), /* ADDRESS OF IOB RESTORE CHAIN 05338000 * FOR I/O QUIESCED BY EOT 0248 05339000 * YM2840*/ 05340000 * 2 TCBEXCPD PTR(31), /* ADDRESS OF EXCP DEBUG AREA 0248 05341000 * (OS/VS2) (MDC083) YM4297*/ 05342000 * 2 TCBEXT1 PTR(31), /* ADDRESS OF OS - OS/VS COMMON 05343000 * EXTENSION ICB311*/ 05344000 * 3 TCBRSV32 PTR(8), /* RESERVED ICB311*/ 05345000 * 3 TCBEXT1A PTR(24), /* ADDRESS OF OS - OS/VS COMMON 05346000 * EXTENSION ICB311*/ 05347000 * 0248 05348000 * /* OS/VS1 - OS/VS2 COMMON SECTION */ 05349000 * 0248 05350000 * 2 TCBBITS CHAR(4) BDY(WORD), /* FLAG BYTES. IF A BIT IN THE 05351000 * FOLLOWING TWO BYTES IS SET 0248 05352000 * TO 1, THE PRIMARY 0248 05353000 * NON-DISPATCHABILITY BIT 0248 05354000 * (OFFSET 33.7 DECIMAL) IS SET 05355000 * TO 1, AND THE TASK IS 0248 05356000 * NON-DISPATCHABLE. */ 05357000 * 3 TCBNDSP4 BIT(8), /* SECONDARY NON-DISPATCHABILITY 05358000 * FLAGS COMMON TO OS/VS1 AND 0248 05359000 * OS/VS2. COORDINATED WITH 0248 05360000 * PRIMARY NON-DISPATCHABILITY 05361000 * FLAG TCBPNDSP. THIS BYTE IS 05362000 * NOT CURRENTLY SUPPORTED BY 0248 05363000 * OS/VS2. MDC076*/ 05364000 * 4 TCBRSV86 BIT(1), /* RESERVED */ 05365000 * 4 TCBRSV87 BIT(1), /* RESERVED */ 05366000 * 4 TCBRSV88 BIT(1), /* RESERVED */ 05367000 * 4 TCBRSV89 BIT(1), /* RESERVED */ 05368000 * 4 TCBRSV90 BIT(1), /* RESERVED */ 05369000 * 4 TCBRSV91 BIT(1), /* RESERVED */ 05370000 * 4 TCBRSV92 BIT(1), /* RESERVED */ 05371000 * 4 TCBRSV93 BIT(1), /* RESERVED */ 05372000 * 3 TCBNDSP5 BIT(8), /* SECONDARY NON-DISPATCHABILITY 05373000 * FLAGS UNIQUE TO OS/VS1 OR 0248 05374000 * OS/VS2. COORDINATED WITH 0248 05375000 * PRIMARY NON-DISPATCHABILITY 05376000 * FLAG TCBPNDSP. THIS BYTE IS 05377000 * NOT CURRENTLY SUPPORTED BY 0248 05378000 * OS/VS2. MDC077*/ 05379000 * 4 TCBRSV94 BIT(1), /* RESERVED (OS/VS2) */ 05380000 * 4 TCBRSV95 BIT(1), /* RESERVED (OS/VS2) */ 05381000 * 4 TCBRSV74 BIT(1), /* RESERVED */ 05382000 * 4 TCBRSV75 BIT(1), /* RESERVED */ 05383000 * 4 TCBRSV76 BIT(1), /* RESERVED */ 05384000 * 4 TCBRSV77 BIT(1), /* RESERVED */ 05385000 * 4 TCBRSV78 BIT(1), /* RESERVED */ 05386000 * 4 TCBRSV79 BIT(1), /* RESERVED MDC075*/ 05387000 * 3 TCBFLGS6 CHAR(1), /* TASK-RELATED FLAGS */ 05388000 * 4 TCBRV BIT(1), /* THE PARTITION IS FIXED IN 0248 05389000 * REAL STORAGE. VIRTUAL 0248 05390000 * ADDRESSES ARE EQUAL TO REAL 05391000 * ADDRESSES. */ 05392000 * 4 TCBPIE17 BIT(1), /* PAGE FAULT INTERRUPT IS TO 0248 05393000 * BE PASSED TO THE TASK'S 0248 05394000 * INTERRUPT EXIT AND AN 8-BYTE 05395000 * PICA IS IN EFFECT FOR THIS 0248 05396000 * TASK (OS/VS2) ICB339*/ 05397000 * 4 TCBCPU BIT(1), /* TASK IS CPU-BOUND MEMBER OF 05398000 * AUTOMATIC PRIORITY GROUP 0248 05399000 * (APG) (OS/VS2) */ 05400000 * 4 TCBSPVLK BIT(1), /* TASK SCHEDULED FOR ABTERM 0248 05401000 * WHILE OWNING SUPERVISOR LOCK 05402000 * (OS/VS2) */ 05403000 * 4 TCBRV303 BIT(1), /* RESERVED (WAS TCBOLSQA) 0248 05404000 * (OS/VS2) MDC014*/ 05405000 * 4 TCBMIGR BIT(1), /* REGION SELECTED FOR MIGRATION 05406000 * FROM PRIMARY PAGING DEVICE 0248 05407000 * (OS/VS2) */ 05408000 * 4 TCBAPG BIT(1), /* TASK IS IN AUTOMATIC PRIORITY 05409000 * GROUP (APG) (OS/VS2) */ 05410000 * 4 TCBNTJS BIT(1), /* JOB STEP TASK BUT NOT HIGHEST 05411000 * IN FAILING TREE (OS/VS2) */ 05412000 * 3 TCBFLGS7 CHAR(1), /* TASK-RELATED FLAGS */ 05413000 * 4 TCBGPECB BIT(1), /* TASK IS IN AN ECB WAIT FOR A 05414000 * GETPART (OS/VS2) ICB339*/ 05415000 * 4 TCBRSV33 BIT(1), /* RESERVED (OS/VS2) */ 05416000 * 4 TCBRSV34 BIT(1), /* RESERVED (OS/VS2) */ 05417000 * 4 TCBSTACK BIT(1), /* SET IN JOB STEP TCB TO 0248 05418000 * INDICATE THAT A TASK IN THE 05419000 * JOB STEP IS IN SERIAL ABEND 05420000 * PROCESSING. USED IN 0248 05421000 * CONJUNCTION WITH TCBFOINP. 0248 05422000 * (OS/VS2) ICB374*/ 05423000 * 4 TCBSVCS BIT(1), /* RESERVED (MDC315) @Z40EP9A*/ 05424000 * 4 TCBRSTSK BIT(1), /* RESIDENT SYSTEM TASK (OS/VS2)*/ 05425000 * 4 TCBADMP BIT(1), /* ALL OTHER TASKS IN JOB STEP 05426000 * HAVE BEEN SET NON-DISPATCHABLE 05427000 * BY ABDUMP. THIS BIT IS SET 05428000 * TO CONTROL JOB STEP DURING 0248 05429000 * THE DUMPING PROCESS. (OS/VS2)*/ 05430000 * 4 TCBGTOFM BIT(1), /* GENERALIZED TRACE FACILITY 0248 05431000 * (GTF) TRACING HAS BEEN 0248 05432000 * TEMPORARILY DISABLED UNDER 0248 05433000 * THIS TASK ICB402*/ 05434000 * 2 TCBDAR CHAR(1), /* DAMAGE ASSESSMENT ROUTINE 0248 05435000 * (DAR) FLAGS */ 05436000 * 3 TCBDARP BIT(1), /* PRIMARY DAR RECURSION. DAR 05437000 * HAS BEEN ENTERED FOR THIS 0248 05438000 * TASK */ 05439000 * 3 TCBDARS BIT(1), /* SECONDARY DAR RECURSION. IF 05440000 * DAR IS REENTERED, THIS TASK 05441000 * WILL BE SET NON-DISPATCHABLE.*/ 05442000 * 3 TCBDARD BIT(1), /* A DUMP HAS BEEN REQUESTED 0248 05443000 * FOR A WRITER OR SCHEDULER 0248 05444000 * ABEND, AND THE USER HAS NOT 05445000 * PROVIDED A SYSABEND DD CARD 05446000 * (OS/VS1) */ 05447000 * 3 TCBDARC BIT(1), /* RECURSION PERMITTED IN 0248 05448000 * CLOSE - AFTER DAR PROCESSING 05449000 * COMPLETED (PCP) */ 05450000 * 4 TCBDARMC BIT(1), /* DAR HAS BEEN ENTERED TO 0248 05451000 * HANDLE A VALID RECURSION 0248 05452000 * IN MUST-COMPLETE STATUS 0248 05453000 * THROUGH ABEND ICB264*/ 05454000 * 3 TCBDARO BIT(1), /* SYSTEM ERROR TASK IS FAILING. 05455000 * DAR DUMP SHOULD NOT REQUEST 05456000 * ANY ERROR RECOVERY PROCEDURE 05457000 * (ERP) PROCESSING. */ 05458000 * 3 TCBDARWT BIT(1), /* A WTO OPERATION WITH A 0248 05459000 * 'REINSTATEMENT FAILURE' 0248 05460000 * MESSAGE IS IN PROCESS FOR DAR 05461000 * ICB264*/ 05462000 * 3 TCBDARMS BIT(1), /* WTO OPERATION WITH A 'DAR IN 05463000 * PROGRESS' MESSAGE IS IN 0248 05464000 * PROCESS FOR DAR (OS/VS1) 0248 05465000 * (MDC314) @XA08316*/ 05466000 * 3 TCBEXSVC BIT(1), /* THE DUMP SVC ROUTINE IS 0248 05467000 * EXECUTING FOR THIS TASK */ 05468000 * 2 TCBRSV37 PTR(8), /* RESERVED FOR USER MDC080*/ 05469000 * 2 TCBSYSCT PTR(8), /* NUMBER OF OUTSTANDING 0248 05470000 * SYSTEM-MUST-COMPLETE 0248 05471000 * REQUESTS (ICB497) YM3883*/ 05472000 * 2 TCBSTMCT PTR(8), /* NUMBER OF OUTSTANDING 0248 05473000 * STEP-MUST-COMPLETE 0248 05474000 * REQUESTS (ICB497) YM3883*/ 05475000 * 2 TCBEXT2 PTR(31) BDY(DWORD), /* SAME AS TCBEXT2A ICB311*/ 05476000 * 3 TCBRSV39 PTR(8), /* RESERVED ICB311*/ 05477000 * 3 TCBEXT2A PTR(24), /* ADDRESS OF OS/VS1 - OS/VS2 0248 05478000 * COMMON EXTENSION ICB311*/ 05479000 * 0248 05480000 * /* OS/VS2 TCB OVERLAY */ 05481000 * 0248 05482000 * 2 TCBAECB CHAR(4) BDY(DWORD,5),/* ABEND ECB. POSTED BY A 0248 05483000 * MOTHER TASK IN RTM2 PROCESSING 05484000 * WHEN A DAUGHTER IS WAITING TO 05485000 * TERMINATE IT. MDC033*/ 05486000 * 2 TCBTIRB PTR(31), /* ADDRESS OF TIRB FOR TASK */ 05487000 * 2 TCBBACK PTR(31), /* ADDRESS OF PREVIOUS TCB ON 0248 05488000 * READY QUEUE. ZERO IN TOP 0248 05489000 * TCB. */ 05490000 * 2 TCBRTWA PTR(31), /* POINTER TO CURRENT RTM2 WORK 05491000 * AREA MDC034*/ 05492000 * 2 TCBIOTIM FIXED(31), /* TIME IN 16-MICROSECOND UNITS 05493000 * BETWEEN TIME ORIGINAL TIME 0248 05494000 * SLICE INTERVAL WAS ASSIGNED 05495000 * AND TIME AUTOMATIC PRIORITY 05496000 * GROUP (APG) TASK WENT INTO 0248 05497000 * VOLUNTARY WAIT */ 05498000 * 2 TCBTMSAV FIXED(31), /* TIME IN 16-MICROSECOND UNITS 05499000 * REMAINING FROM ORIGINAL TIME 05500000 * SLICE INTERVAL WHEN AUTOMATIC 05501000 * PRIORITY GROUP (APG) TASK 0248 05502000 * WAS LAST DISPATCHED */ 05503000 * 2 TCBABCUR CHAR(1), /* ABEND RECURSION BYTE */ 05504000 * 2 TCBRSVAA PTR(8), /* RESERVED (ICB497) YM3883*/ 05505000 * 2 TCBTID CHAR(1), /* TASK ID NUMBER ICB374*/ 05506000 * 2 TCBRSV41 PTR(8), /* RESERVED ICB374*/ 05507000 * 2 TCBRV306 PTR(31), /* RESERVED (WAS TCBQECB) 0248 05508000 * MDC020-MDC022*/ 05509000 * 2 TCBFOE PTR(31), /* SAME AS TCBFOEA BELOW ICB339*/ 05510000 * 3 TCBRSV42 PTR(8), /* RESERVED ICB339*/ 05511000 * 3 TCBFOEA PTR(24), /* ADDRESS OF FIRST FIX 0248 05512000 * OWNERSHIP ELEMENT (FOE) IN 0248 05513000 * LIST FOR THIS TASK ICB339*/ 05514000 * 2 TCBSWA PTR(31), /* ADDRESS OF FIRST SCHEDULER 0248 05515000 * WORK AREA (SWA) SPQE ON SWA 05516000 * SPQE CHAIN (MDC326) @Z40AQ9A*/ 05517000 * 2 TCBRSV96 PTR(31), /* RESERVED */ 05518000 * 2 TCBTCBID CHAR(4) BDY(WORD), /* CONTAINS BLOCK ID - 'TCB ' 0248 05519000 * MDC012*/ 05520000 * 2 TCBRTM12 PTR(31), /* POINTER TO PARAMETER AREAS 0248 05521000 * PASSED FROM RTM1 TO RTM2 0248 05522000 * MDC008*/ 05523000 * 2 TCBESTAE CHAR(4) BDY(WORD), /* AREA TO CONTAIN RECOVERY DATA 05524000 * FOR RTM MDC029*/ 05525000 * 3 TCBSCBKY CHAR(1), /* KEY IN WHICH SYNCH IS TO PASS 05526000 * CONTROL TO THE USER EXIT 0248 05527000 * MDC030*/ 05528000 * 3 TCBESTRM BIT(8), /* ESTAE TERM OPTIONS MDC039*/ 05529000 * 4 TCBETERM BIT(1), /* ESTAE EXIT ENTERED WITH TERM 05530000 * OPTION MDC040*/ 05531000 * 4 TCBRV308 BIT(1), /* RESERVED */ 05532000 * 4 TCBRV309 BIT(1), /* RESERVED */ 05533000 * 4 TCBRV310 BIT(1), /* RESERVED */ 05534000 * 4 TCBRV311 BIT(1), /* RESERVED */ 05535000 * 4 TCBRV312 BIT(1), /* RESERVED */ 05536000 * 4 TCBRV313 BIT(1), /* RESERVED */ 05537000 * 4 TCBRV314 BIT(1), /* RESERVED */ 05538000 * 3 TCBERTYP PTR(8), /* TYPE OF ERROR CAUSING ENTRY 05539000 * TO THE RTM. SET BY RTM1. 0248 05540000 * MDC052*/ 05541000 * 3 TCBMODE PTR(8), /* MASK INDICATING MODE OF 0248 05542000 * SYSTEM AT TIME OF ERROR. 0248 05543000 * SEE IHART1W/MODE FOR 0248 05544000 * INDIVIDUAL BIT DEFINITIONS. 05545000 * MDC064*/ 05546000 * 2 TCBUKYSP PTR(31), /* ADDRESS OF SPQE'S FOR 0248 05547000 * SUBPOOLS 229 AND 230 (USER 0248 05548000 * KEY STORAGE IN THE PRIVATE 0248 05549000 * AREA) MDC067*/ 05550000 * 2 TCBCCPVI FIXED(15), /* ID OF THE CURRENT CPU RUNNING 05551000 * THIS TASK. USED FOR RECOVERY 05552000 * AND CPU AFFINITY. MDC004*/ 05553000 * 2 TCBAFFN BIT(16), /* CPU AFFINITY INDICATOR MDC047*/ 05554000 * 2 TCBFBYT1 BIT(8), /* FLAG BYTE MDC002*/ 05555000 * 3 TCBEOTFM BIT(1), /* END OF TASK FLAG FOR FREEMAIN. 05556000 * SET TO 1 BY TASK TERMINATION 05557000 * AT START OF TERMINATION 0248 05558000 * PROCESSING AND RESET TO 0 AT 05559000 * FINISH. INDICATES THAT A 0248 05560000 * FREEMAIN ON A BLOCK OF LOCAL 05561000 * STORAGE THAT IS STILL FIXED 05562000 * BY RSM SHOULD RESULT IN A 0248 05563000 * RETURN CODE OF 8 RATHER THAN 05564000 * ABNORMAL TERMINATION. MDC002*/ 05565000 * 3 TCBACTIV BIT(1), /* BIT ON MEANS THIS TCB IS 0248 05566000 * CURRENTLY ACTIVE ON A CPU. 0248 05567000 * USED TO SYNCHRONIZE SOME STATUS 05568000 * SAVING AND DISPATCHABILITY 0248 05569000 * INDICATORS WHEN ACTIVE OR NOT 05570000 * UNDER THE LOCAL LOCK. MDC003*/ 05571000 * 3 TCBNDIOS BIT(1), /* TASK HAS BEEN SET NON- 0248 05572000 * DISPATCHABLE VIA STATUSND 0248 05573000 * WHILE SVC 16 (PURGE) SCANS 0248 05574000 * THE RB CHAIN PURGING APPENDAGE- 05575000 * SCHEDULED ASYNCHRONOUS EXIT 05576000 * ROUTINES RUNNING UNDER AN 0248 05577000 * IRB/RQE OR NON-RESIDENT ERP'S 05578000 * RUNNING UNDER THE SIRB MDC005*/ 05579000 * 3 TCBPGNLY BIT(1), /* SET BY RTM2 TO INDICATE ONLY 05580000 * PURGE PHASE TO BE PERFORMED 05581000 * MDC009*/ 05582000 * 3 TCBRTM2 BIT(1), /* SET BY RTM2 TO INDICATE RTM2 05583000 * HAS BEEN ENTERED FOR THIS 0248 05584000 * TASK MDC010*/ 05585000 * 3 TCBEOT BIT(1), /* SET BY RTM2 TO INDICATE TO 0248 05586000 * EXIT THAT END OF TASK 0248 05587000 * PROCESSING IS COMPLETE MDC011*/ 05588000 * 3 TCBRV113 BIT(1), /* RESERVED */ 05589000 * 3 TCBLLH BIT(1), /* LOCALLY LOCKED TCB HAS PAGE 05590000 * FAULTED, AND I/O IS REQUIRED 05591000 * (FIRST LEVEL INTERRUPT 0248 05592000 * HANDLER) MDC027*/ 05593000 * 2 TCBFBYT2 BIT(8), /* FLAG BYTE MDC035*/ 05594000 * 3 TCBCNCB BIT(1), /* SET BY RTM2 IN THE JOB STEP 05595000 * TCB WHEN IT HAS BEEN ENTERED 05596000 * ON THE TCB FOR AN X22 0248 05597000 * ABEND MDC036*/ 05598000 * 3 TCBFMW BIT(1), /* MOTHER WAITING FLAG. TURNED 05599000 * ON IN A SUBTASK IN RTM2 0248 05600000 * PROCESSING WHEN AN ANCESTOR 05601000 * TASK IS WAITING TO ABEND 0248 05602000 * IT. MDC037*/ 05603000 * 3 TCBFDW BIT(1), /* DAUGHTER WAITING FLAG. 0248 05604000 * TURNED ON IN A MOTHER TASK 0248 05605000 * IN RTM2 PROCESSING WHEN A 0248 05606000 * DAUGHTER IS WAITING TO ABEND 05607000 * IT. MDC038*/ 05608000 * 3 TCBFPRAP BIT(1), /* SET BY RTM2 TO PREVENT 0248 05609000 * PERCOLATION TO THE TASK OF AN 05610000 * ASYNCHRONOUS ABEND MDC051*/ 05611000 * 3 TCBSSSYN BIT(1), /* SYNCHRONIZED STATUS STOP 0248 05612000 * PENDING FOR THIS TCB MDC053*/ 05613000 * 3 TCBECBNV BIT(1), /* IF 1, ECB POINTED TO BY 0248 05614000 * TCBECB IS NOT TO BE VALIDITY 05615000 * CHECKED. IF 0, ECB POINTED 05616000 * TO BY TCBECB IS TO BE 0248 05617000 * VALIDITY CHECKED. MDC071*/ 05618000 * 3 TCBRV122 BIT(1), /* RESERVED */ 05619000 * 3 TCBRV123 BIT(1), /* RESERVED */ 05620000 * 2 TCBRV124 BIT(8), /* RESERVED (MDC306) */ 05621000 * 3 TCBRV125 BIT(1), /* RESERVED (MDC307) */ 05622000 * 3 TCBRV126 BIT(1), /* RESERVED (MDC308) */ 05623000 * 3 TCBRV127 BIT(1), /* RESERVED */ 05624000 * 3 TCBRV128 BIT(1), /* RESERVED */ 05625000 * 3 TCBRV129 BIT(1), /* RESERVED */ 05626000 * 3 TCBRV130 BIT(1), /* RESERVED */ 05627000 * 3 TCBRV131 BIT(1), /* RESERVED */ 05628000 * 3 TCBRV132 BIT(1), /* RESERVED */ 05629000 * 2 TCBRV133 BIT(8), /* RESERVED */ 05630000 * 3 TCBRV134 BIT(1), /* RESERVED */ 05631000 * 3 TCBRV135 BIT(1), /* RESERVED */ 05632000 * 3 TCBRV136 BIT(1), /* RESERVED */ 05633000 * 3 TCBRV137 BIT(1), /* RESERVED */ 05634000 * 3 TCBRV138 BIT(1), /* RESERVED */ 05635000 * 3 TCBRV139 BIT(1), /* RESERVED */ 05636000 * 3 TCBRV140 BIT(1), /* RESERVED */ 05637000 * 3 TCBRV141 BIT(1), /* RESERVED */ 05638000 * 2 TCBRPT PTR(31), /* ADDRESS OF RADIX PARTITION 0248 05639000 * TREE FOR LOCAL STORAGE 0248 05640000 * MANAGEMENT MDC068*/ 05641000 * 2 TCBDBTB PTR(31), /* ADDRESS OF DEB TABLE. THERE 05642000 * IS ONE DEB TABLE PER JOB 0248 05643000 * STEP TCB. MDC073*/ 05644000 * 2 TCBSWASA PTR(31), /* ADDRESS OF SAVE AREA USED BY 05645000 * SWA MANAGER MDC079*/ 05646000 * 2 TCBSVCA2 PTR(31), /* RESERVED (MDC317) @Z40EP9A*/ 05647000 * 2 * CHAR(0) BDY(DWORD); 0248 05648000 * 0248 05649000 * /* OS/VS1 - OS/VS2 COMMON EXTENSION */ 05650000 * 0249 05651000 * DECLARE 0249 05652000 * 1 TCBXTNT2 BASED(TCBEXT2) BDY(DWORD), 0249 05653000 * 2 TCBGTF PTR(31), /* SAME AS TCBGTFA BELOW ICB312*/ 05654000 * 3 TCBTFLG BIT(8), /* GENERALIZED TRACE FACILITY 0249 05655000 * (GTF) FLAG BYTE ICB312*/ 05656000 * 4 TCBASYNC BIT(1), /* GTF ASYNCHRONOUS GATHER 0249 05657000 * ROUTINE IS IN CONTROL ICB312*/ 05658000 * 4 TCBERRTN BIT(1), /* GTF ASYNCHRONOUS GATHER ERROR 05659000 * ROUTINE IS IN CONTROL ICB312*/ 05660000 * 4 TCBDSPIT BIT(1), /* MACHINE CHECK INTERRUPTION 0249 05661000 * HANDLER SHOULD UNCONDITIONALLY 05662000 * BRANCH TO DISPATCHER ICB312*/ 05663000 * 4 TCBRSV43 BIT(1), /* RESERVED */ 05664000 * 4 TCBRSV44 BIT(1), /* RESERVED */ 05665000 * 4 TCBRSV45 BIT(1), /* RESERVED */ 05666000 * 4 TCBRSV46 BIT(1), /* RESERVED */ 05667000 * 4 TCBRSV47 BIT(1), /* RESERVED */ 05668000 * 3 TCBGTFA PTR(24), /* ADDRESS OF GTF TEMPORARY 0249 05669000 * TRACE BUFFER ICB312*/ 05670000 * 2 TCBRSVAB PTR(8), /* RESERVED (ICB497) YM3883*/ 05671000 * 2 TCBRCMP BIT(24), /* MOST RECENT ABEND COMPLETION 05672000 * CODE (INCLUDING VALID 0249 05673000 * RECURSIONS IN STAE) ICB411*/ 05674000 * 2 TCBEVENT PTR(31), /* ADDRESS OF EVENT TABLES QUEUE 05675000 * (MDC304) @X31ED9A*/ 05676000 * 2 TCBRSV49 PTR(31), /* RESERVED */ 05677000 * 2 TCBRV142 PTR(31), /* RESERVED */ 05678000 * 2 TCBRV143 PTR(31), /* RESERVED */ 05679000 * 2 TCBRV144 FIXED(15), /* RESERVED */ 05680000 * 2 TCBRV145 FIXED(15), /* RESERVED */ 05681000 * 2 TCBRV146 BIT(8), /* RESERVED */ 05682000 * 3 TCBRV147 BIT(1), /* RESERVED */ 05683000 * 3 TCBRV148 BIT(1), /* RESERVED */ 05684000 * 3 TCBRV149 BIT(1), /* RESERVED */ 05685000 * 3 TCBRV150 BIT(1), /* RESERVED */ 05686000 * 3 TCBRV151 BIT(1), /* RESERVED */ 05687000 * 3 TCBRV152 BIT(1), /* RESERVED */ 05688000 * 3 TCBRV153 BIT(1), /* RESERVED */ 05689000 * 3 TCBRV154 BIT(1), /* RESERVED */ 05690000 * 2 TCBRV155 BIT(8), /* RESERVED */ 05691000 * 3 TCBRV156 BIT(1), /* RESERVED */ 05692000 * 3 TCBRV157 BIT(1), /* RESERVED */ 05693000 * 3 TCBRV158 BIT(1), /* RESERVED */ 05694000 * 3 TCBRV159 BIT(1), /* RESERVED */ 05695000 * 3 TCBRV160 BIT(1), /* RESERVED */ 05696000 * 3 TCBRV161 BIT(1), /* RESERVED */ 05697000 * 3 TCBRV162 BIT(1), /* RESERVED */ 05698000 * 3 TCBRV163 BIT(1), /* RESERVED */ 05699000 * 2 TCBRV164 BIT(8), /* RESERVED */ 05700000 * 3 TCBRV165 BIT(1), /* RESERVED */ 05701000 * 3 TCBRV166 BIT(1), /* RESERVED */ 05702000 * 3 TCBRV167 BIT(1), /* RESERVED */ 05703000 * 3 TCBRV168 BIT(1), /* RESERVED */ 05704000 * 3 TCBRV169 BIT(1), /* RESERVED */ 05705000 * 3 TCBRV170 BIT(1), /* RESERVED */ 05706000 * 3 TCBRV171 BIT(1), /* RESERVED */ 05707000 * 3 TCBRV172 BIT(1), /* RESERVED */ 05708000 * 2 TCBRV173 BIT(8), /* RESERVED */ 05709000 * 3 TCBRV174 BIT(1), /* RESERVED */ 05710000 * 3 TCBRV175 BIT(1), /* RESERVED */ 05711000 * 3 TCBRV176 BIT(1), /* RESERVED */ 05712000 * 3 TCBRV177 BIT(1), /* RESERVED */ 05713000 * 3 TCBRV178 BIT(1), /* RESERVED */ 05714000 * 3 TCBRV179 BIT(1), /* RESERVED */ 05715000 * 3 TCBRV180 BIT(1), /* RESERVED */ 05716000 * 3 TCBRV181 BIT(1), /* RESERVED */ 05717000 * 2 * CHAR(0) BDY(DWORD); 0249 05718000 * 0249 05719000 * 0249 05720000 * /* END OF TCB */ 05721000 * 0250 05722000 * DECLARE /***** P A R A M E T E R S ***************************/ 05723000 * 0250 05724000 * VOLIBPTR /* VOLUME INFORMATION BLOCK */ 05725000 * POINTER(31), 0250 05726000 * CONDCODE /* CONDITION CODE */ 05727000 * FIXED(31); 0250 05728000 * 0250 05729000 * DECLARE /***** I N T E R N A L S *****************************/ 05730000 * 0251 05731000 * MODID /* INTER-MODULE TRACE IDENTIFIER */ 05732000 * CHAR(4) INIT('DV04'), 0251 05733000 * 0251 05734000 * POOLID /* SUB-POOL ID FOR STORAGE */ 05735000 * CHAR(4) INIT('DV04'), 0251 05736000 * 0251 05737000 * CBPOOLID /* CONTROL BLOCK POOL-ID FOR UGPOOL */ 05738000 * CHAR(4) BASED(ADDR(CBPOOLS)), 0251 05739000 * 0251 05740000 * 1 CBPOOLS, /* CONTROL BLOCK POOL-ID STRUCTURE */ 05741000 * 2 CBPOOLA /* INITIAL CHARACTER : 'D' */ 05742000 * CHAR(1), 0251 05743000 * 2 CBPOOLB /* INCREMENTING UNIQUE CHARACTER */ 05744000 * FIXED(8), 0251 05745000 * 2 CBPOOLC /* SUFFIX: 'PG', FOR PAGE BOUNDARY */ 05746000 * CHAR(2), 0251 05747000 * 0251 05748000 * CPTR /* COMPARE POINTER */ 05749000 * POINTER(31), 0251 05750000 * 0251 05751000 * DCBPTR /* DCB POINTER */ 05752000 * POINTER(31), 0251 05753000 * 0251 05754000 * UCBPTR /* UCB POINTER (FOR BASED MAPPING) */ 05755000 * POINTER(31), 0251 05756000 * 0251 05757000 * TCBPTR /* TCB POINTER (FOR BASED MAPPING) */ 05758000 * POINTER(31), 0251 05759000 * 0251 05760000 * DEBPTR /* DATA EXTENT BLOCK BASE */ 05761000 * POINTER(24), 0251 05762000 * 0251 05763000 * DEBDAPTR /* POINTER TO THE DASD SECTION OF DEB */ 05764000 * POINTER(31), 0251 05765000 * 0251 05766000 * CVTPTR /* POINTER TO THE CVT */ 05767000 * POINTER(31) LOCATION (16), 0251 05768000 * 0251 05769000 * ADDRDTCB /* POINTER TO THE TCB DOUBLE WORD */ 05770000 * POINTER (31), 0251 05771000 * 0251 05772000 * 1 DWRDTCB /* TCB DOUBLE WORD POINTED AT BY CVT */ 05773000 * CHAR (8) BDY (DWORD) BASED (ADDRDTCB), 05774000 * 0251 05775000 * 2 * /* NEW TCB */ 05776000 * POINTER (31), 0251 05777000 * 0251 05778000 * 2 CURRTCB /* CURRENT TCB */ 05779000 * POINTER (31), 0251 05780000 * 0251 05781000 * DATAPTR /* DATA POINTER */ 05782000 * POINTER(31), 0251 05783000 * 0251 05784000 * CLOSLIST /* EXECUTE FORM CLOSE PARM LIST */ 05785000 * CHAR(4) BDY (WORD), 0251 05786000 * 0251 05787000 * LGENCLOS /* LIST FORM CLOSE PARM LIST */ 05788000 * GENERATED STATIC LOCAL CHAR(4), 0251 05789000 * 0251 05790000 * OPENED /* VOLUME OPENED */ 05791000 * BIT(1) CONSTANT ('1'B), 0251 05792000 * 0251 05793000 * CLOSED /* VOLUME CLOSED */ 05794000 * BIT(1) CONSTANT ('0'B), 0251 05795000 * 0251 05796000 * OFDEBPTR /* THE POINTER TO DEB OF THE OFF-LINE */ 05797000 * /* VOLUME */ 05798000 * POINTER (24), 0251 05799000 * 0251 05800000 * PREVPTR /* THE POINTER TO PREVIOUS DEB IN THE */ 05801000 * /* DEB QUEUE */ 05802000 * POINTER (24), 0251 05803000 * 0251 05804000 * NEXTPTR /* THE POINTER TO NEXT DEB IN THE DEB */ 05805000 * /* QUEUE */ 05806000 * POINTER (24), 0251 05807000 * 0251 05808000 * 1 VTOCTTR /* TTR OF THE VTOC */ 05809000 * CHAR (4), 0251 05810000 * 0251 05811000 * 2 VTOCRTA /* RELATIVE TRACK ADDRESS OF VTOC */ 05812000 * FIXED (16) BDY(BYTE), 0251 05813000 * 0251 05814000 * 2 VTOCRZ /* RECORD PORTION OF THE VTOC */ 05815000 * BIT (16), 0251 05816000 * 0251 05817000 * INFOPTR /* POINTER TO INFORMATION FROM DIT */ 05818000 * POINTER (31), 0251 05819000 * 0251 05820000 * INFOLEN /* LENGTH OF INFORMATION FROM DIT */ 05821000 * FIXED (31), 0251 05822000 * 0251 05823000 * TRKSPCYL /* TRACKS PER CYLINDER */ 05824000 * FIXED (31) BASED (INFOPTR), 0251 05825000 * 0251 05826000 * /********** RETURN CODES ************************************/ 05827000 * 0251 05828000 * RCSUCC /* RETURN CODE FOR SUCCESSFUL COMP. */ 05829000 * FIXED(31) CONSTANT (0), 0251 05830000 * 0251 05831000 * RCFAILS /* UNABLE TO CLOSE VOLUME (FAILURE) */ 05832000 * FIXED(31) CONSTANT (1), 0251 05833000 * 0251 05834000 * RCNOEXST /* RETURN CODE FOR VOLIB NON-EXISTANT */ 05835000 * FIXED(31) CONSTANT (2), 0251 05836000 * 0251 05837000 * /***** VARIABLES FOR CALL TO UDEVOP ***************************/ 05838000 * 0251 05839000 * TRKCCHH /* TRACK ADDRESS */ 05840000 * FIXED (32), 0251 05841000 * 0251 05842000 * RECNUM /* RECORD NUMBER */ 05843000 * FIXED (31), 0251 05844000 * 0251 05845000 * LABELLEN /* LENGTH OF DATA AREA READ FROM TRACK */ 05846000 * FIXED (31), 0251 05847000 * 0251 05848000 * LABELPTR /* POINTER TO THE DATE READ FROM TRACK */ 05849000 * POINTER (31), 0251 05850000 * 0251 05851000 * /***** RETURN CODE VALUES FROM CALLED PROGRAMS ****************/ 05852000 * 0251 05853000 * RETCODE /* RETURN CODE FROM CALLED PROGRAM */ 05854000 * FIXED (31), 0251 05855000 * 0251 05856000 * CPFAILS /* CHANNEL PROGRAM FAILS */ 05857000 * FIXED (31) CONSTANT (4), 0251 05858000 * 0251 05859000 * NORECFND /* NO RECORD FOUND */ 05860000 * FIXED (31) CONSTANT (1), 0251 05861000 * 0251 05862000 * /********** PATCH AREA **************************************/ 05863000 * 0251 05864000 * 1 PTCHDV04 STATIC, /* MODULE PATCH AREA */ 05865000 * 2 * (256) CHAR(1) INIT((256) '00'X); 0251 05866000 * 0251 05867000 * 0251 05868000 * /********** LIST FORM OF CLOSE-MACRO ARGUMENT-LIST ***********/ 05869000 * 0252 05870000 * GEN DATA DEFS(LGENCLOS); 0252 05871000 * 0252 05872000 EJECT 05873000 * 0253 05874000 */***** B E G I N E X E C U T I O N *****************************/ 05875000 * 0253 05876000 * IF GDTDBG = NULLPTR 0253 05877000 * THEN; 0253 05878000 L @10,@PC00001 0253 05879000 L @10,GDTDBG(,@10) 0253 05880000 LTR @10,@10 0253 05881000 BZ @RT00253 0253 05882000 * ELSE 0255 05883000 * CALL ICKDB010 (GDTTBL, 'DV40'); 0255 05884000 * 0255 05885000 * 0255 05886000 L @10,@PC00001 0255 05887000 ST @10,@AL00001 0255 05888000 LA @15,@CC02506 0255 05889000 ST @15,@AL00001+4 0255 05890000 MVI @AL00001+4,X'80' 0255 05891000 L @15,GDTDBG(,@10) 0255 05892000 LA @01,@AL00001 0255 05893000 BALR @14,@15 0255 05894000 */* INDICATE INITIALLY SUCCESSFUL COMPLETION */ 05895000 * CONDCODE = RCSUCC; 0256 05896000 @RT00253 L @10,@PC00001+8 0256 05897000 SLR @05,@05 0256 05898000 ST @05,CONDCODE(,@10) 0256 05899000 */* DO SEARCH FOR PASSED VOLIB IN VOLIB CHAIN */ 05900000 * CPTR = GDTDVH; 0257 05901000 L @10,@PC00001 0257 05902000 L CPTR,GDTDVH(,@10) 0257 05903000 * DO WHILE CPTR ^= VOLIBPTR & CPTR ^= NULLPTR; 0258 05904000 B @DE00258 0258 05905000 @DL00258 DS 0H 0259 05906000 * CPTR = CPTR -> VLFPTR; 0259 05907000 L CPTR,VLFPTR(,CPTR) 0259 05908000 */* END-DO */ 05909000 * END; 0260 05910000 @DE00258 L @10,@PC00001+4 0260 05911000 C CPTR,VOLIBPTR(,@10) 0260 05912000 BE @DC00258 0260 05913000 LTR CPTR,CPTR 0260 05914000 BNZ @DL00258 0260 05915000 @DC00258 DS 0H 0261 05916000 */* IF VOLIB EXISTS */ 05917000 * IF CPTR = VOLIBPTR & VOLIBPTR ^= NULLPTR 0261 05918000 */* THEN-DO */ 05919000 * THEN 0261 05920000 L @10,@PC00001+4 0261 05921000 L @10,VOLIBPTR(,@10) 0261 05922000 CR CPTR,@10 0261 05923000 BNE @RF00261 0261 05924000 LTR @10,@10 0261 05925000 BZ @RF00261 0261 05926000 * VOLIBEX: DO; 0262 05927000 * 0262 05928000 VOLIBEX DS 0H 0263 05929000 */* READ VOLUME LABEL (UDEVOP) */ 05930000 * TRKCCHH = 0; 0263 05931000 SLR @10,@10 0263 05932000 ST @10,TRKCCHH 0263 05933000 * RECNUM = 3; 0264 05934000 MVC RECNUM(4),@CF00136 0264 05935000 * CALL ICKDVOP0 (GDTTBL 0265 05936000 * ,VOLIBPTR 0265 05937000 * ,ACTRDN 0265 05938000 * ,TRKCCHH 0265 05939000 * ,RECNUM 0265 05940000 * ,POOLID 0265 05941000 * ,LABELPTR 0265 05942000 * ,LABELLEN 0265 05943000 * ,RETCODE ); 0265 05944000 L @10,@PC00001 0265 05945000 ST @10,@AL00001 0265 05946000 L @15,@PC00001+4 0265 05947000 ST @15,@AL00001+4 0265 05948000 LA @15,@CF00265 0265 05949000 ST @15,@AL00001+8 0265 05950000 LA @15,TRKCCHH 0265 05951000 ST @15,@AL00001+12 0265 05952000 LA @15,RECNUM 0265 05953000 ST @15,@AL00001+16 0265 05954000 LA @15,POOLID 0265 05955000 ST @15,@AL00001+20 0265 05956000 LA @15,LABELPTR 0265 05957000 ST @15,@AL00001+24 0265 05958000 LA @15,LABELLEN 0265 05959000 ST @15,@AL00001+28 0265 05960000 LA @15,RETCODE 0265 05961000 ST @15,@AL00001+32 0265 05962000 L @15,GDTDOP(,@10) 0265 05963000 LA @01,@AL00001 0265 05964000 BALR @14,@15 0265 05965000 * RESPECIFY VOL1 BASED(LABELPTR); 0266 05966000 */* IF A VOLUME LABEL DOES NOT EXIST */ 05967000 * IF RETCODE = NORECFND | RETCODE = CPFAILS 0267 05968000 */* THEN */ 05969000 * THEN DO; 0267 05970000 * 0267 05971000 L @10,RETCODE 0267 05972000 CH @10,@CH00165 0267 05973000 BE @RT00267 0267 05974000 CH @10,@CH00044 0267 05975000 BNE @RF00267 0267 05976000 @RT00267 DS 0H 0268 05977000 */* GET SPACE FOR THE VOLUME LABEL */ 05978000 * LABELLEN = LENGTH (VOL1); 0269 05979000 MVC LABELLEN(4),@CF00477 0269 05980000 * CALL ICKSAGP0 (GDTTBL 0270 05981000 * ,LABELLEN 0270 05982000 * ,LABELPTR 0270 05983000 * ,POOLID 0270 05984000 * ,SETZERO); 0270 05985000 L @10,@PC00001 0270 05986000 ST @10,@AL00001 0270 05987000 LA @15,LABELLEN 0270 05988000 ST @15,@AL00001+4 0270 05989000 LA @15,LABELPTR 0270 05990000 ST @15,@AL00001+8 0270 05991000 LA @15,POOLID 0270 05992000 ST @15,@AL00001+12 0270 05993000 LA @15,@CC00145 0270 05994000 ST @15,@AL00001+16 0270 05995000 MVI @AL00001+16,X'80' 0270 05996000 L @15,GDTGPL(,@10) 0270 05997000 LA @01,@AL00001 0270 05998000 BALR @14,@15 0270 05999000 * RESPECIFY VOL1 BASED (LABELPTR); 0271 06000000 */* END-THEN */ 06001000 * END; 0272 06002000 */* IF NO ERRORS FOUND SO FAR */ 06003000 * IF CONDCODE = RCSUCC 0273 06004000 */* THEN */ 06005000 * THEN DO; 0273 06006000 * 0273 06007000 @RF00267 L @10,@PC00001+8 0273 06008000 L @10,CONDCODE(,@10) 0273 06009000 LTR @10,@10 0273 06010000 BNZ @RF00273 0273 06011000 */* OBTAIN NUMBER OF TRACKS PER CYLINDER FOR DEV (UDEVINFO) */ 06012000 * CALL ICKDVIN0(GDTTBL 0275 06013000 * ,VOLIBPTR 0275 06014000 * ,DEVTKCYL 0275 06015000 * ,POOLID 0275 06016000 * ,INFOPTR 0275 06017000 * ,INFOLEN 0275 06018000 * ,RETCODE); 0275 06019000 L @10,@PC00001 0275 06020000 ST @10,@AL00001 0275 06021000 L @15,@PC00001+4 0275 06022000 ST @15,@AL00001+4 0275 06023000 LA @15,@CF00335 0275 06024000 ST @15,@AL00001+8 0275 06025000 LA @15,POOLID 0275 06026000 ST @15,@AL00001+12 0275 06027000 LA @15,INFOPTR 0275 06028000 ST @15,@AL00001+16 0275 06029000 LA @15,INFOLEN 0275 06030000 ST @15,@AL00001+20 0275 06031000 LA @15,RETCODE 0275 06032000 ST @15,@AL00001+24 0275 06033000 L @15,GDTDIN(,@10) 0275 06034000 LA @01,@AL00001 0275 06035000 BALR @14,@15 0275 06036000 */* COMPUTE THE RELATIVE TRACK ADDRESS OF VTOC */ 06037000 * VTOCRTA = (VOL1VTOC (1:2) * TRKSPCYL) + VOL1VTOC (3:4); 06038000 L @10,LABELPTR 0276 06039000 MVC @ZT00002+2(2),VOL1VTOC(@10) 0276 06040000 L @01,@ZT00002 0276 06041000 L @15,INFOPTR 0276 06042000 M @00,TRKSPCYL(,@15) 0276 06043000 MVC @ZT00002+2(2),VOL1VTOC+2(@10) 0276 06044000 AL @01,@ZT00002 0276 06045000 ST @01,@TF00001 0276 06046000 MVC VTOCRTA(2),@TF00001+2 0276 06047000 */* ESTABLISH ADDRESSIBILITY TO DCB */ 06048000 * DCBPTR = ADDR(CBDCB); 0277 06049000 L @10,@PC00001+4 0277 06050000 L DCBPTR,VOLIBPTR(,@10) 0277 06051000 LA DCBPTR,CBDCB(,DCBPTR) 0277 06052000 */* OBTAIN THE ADDRESS OF THE DEB */ 06053000 * DEBPTR = DCBDEBA; 0278 06054000 L DEBPTR,DCBDEBA+39(,DCBPTR) 0278 06055000 LA DEBPTR,0(,DEBPTR) 0278 06056000 */* ESTABLISH ADDRESSABILITY TO DASD PORTION */ 06057000 * DEBDAPTR = DEBPTR + LENGTH (DEBBASIC); 0279 06058000 LA DEBDAPTR,32 0279 06059000 ALR DEBDAPTR,DEBPTR 0279 06060000 */* OBTAIN THE ADDRESS OF THE UCB FROM THE DEB */ 06061000 * UCBPTR = DEBUCBAD; 0280 06062000 L UCBPTR,DEBUCBAD(,DEBDAPTR) 0280 06063000 */* GET INTO SUPERVISOR STATE */ 06064000 * GEN (MODESET KEY=ZERO); 0281 06065000 MODESET KEY=ZERO 06066000 */* CHANGE THE VOLUME SERIAL IN THE UCB */ 06067000 * UCBVOLI = VOL1SER; 0282 06068000 L @10,LABELPTR 0282 06069000 MVC UCBVOLI(6,UCBPTR),VOL1SER(@10) 0282 06070000 */* CHANGE THE VTOC LOCATION IN UCB */ 06071000 * VTOCRZ = '0000'X; 0283 06072000 MVC VTOCRZ(2),@CB02511 0283 06073000 * VTOCRZ = VOL1VTOC (5:5); 0284 06074000 MVI VTOCRZ+1,X'00' 0284 06075000 MVC VTOCRZ(1),VOL1VTOC+4(@10) 0284 06076000 * UCBVTOC = VTOCTTR; 0285 06077000 MVC UCBVTOC(4,UCBPTR),VTOCTTR 0285 06078000 */* GET BACK INTO PROBLEM PROGRAM STATE */ 06079000 * GEN (MODESET KEY=NZERO); 0286 06080000 MODESET KEY=NZERO 06081000 */* IF VOLUME IS ON-LINE */ 06082000 * IF VLSTATE = ON 0287 06083000 */* THEN */ 06084000 * THEN DO; 0287 06085000 * 0287 06086000 L @10,@PC00001+4 0287 06087000 L @10,VOLIBPTR(,@10) 0287 06088000 TM VLSTATE(@10),B'10000000' 0287 06089000 BNO @RF00287 0287 06090000 */* IF VOLUME IS OPEN */ 06091000 * IF DCBOFOPN = OPENED 0289 06092000 */* THEN */ 06093000 * THEN 0289 06094000 TM DCBOFOPN+40(DCBPTR),B'00010000' 0289 06095000 BNO @RF00289 0289 06096000 * VOLIBOPN: DO; 0290 06097000 * 0290 06098000 VOLIBOPN DS 0H 0291 06099000 */* INHIBIT WRITING OF END-OF-FILE IN VTOC */ 06100000 * DCBMACF2 = 'F3'X & DCBMACF2; 0291 06101000 NI DCBMACF2+40(DCBPTR),X'F3' 0291 06102000 */* ISSUE CLOSE MACRO */ 06103000 * CLOSLIST = LGENCLOS; 0292 06104000 MVC CLOSLIST(4),LGENCLOS 0292 06105000 * RESPECIFY (REG2) RSTD; 0293 06106000 * REG2 = ADDR(CBDCB); 0294 06107000 L @10,@PC00001+4 0294 06108000 L REG2,VOLIBPTR(,@10) 0294 06109000 LA REG2,CBDCB(,REG2) 0294 06110000 * GEN CODE; 0295 06111000 LCLOSE1 CLOSE ((2)),MF=(E,CLOSLIST) 06112000 * RESPECIFY (REG2) UNRSTD; 0296 06113000 */* IF CLOSE IS SUCCESSFUL */ 06114000 * IF DCBOFOPN = CLOSED 0297 06115000 */* THEN INDICATE SUCCESSFUL COMPLETION */ 06116000 * THEN DO; CONDCODE = RCSUCC; END; 0297 06117000 TM DCBOFOPN+40(DCBPTR),B'00010000' 0297 06118000 BNZ @RF00297 0297 06119000 L @10,@PC00001+8 0299 06120000 SLR @06,@06 0299 06121000 ST @06,CONDCODE(,@10) 0299 06122000 */* ELSE SET RETURN CODE TO FAILURE */ 06123000 * ELSE DO; CONDCODE = 4; END; 0301 06124000 B @RC00297 0301 06125000 @RF00297 DS 0H 0302 06126000 L @10,@PC00001+8 0302 06127000 MVC CONDCODE(4,@10),@CF00044 0302 06128000 */* END-THEN (VOLUME IS OPEN) */ 06129000 * END VOLIBOPN; 0304 06130000 */* END-THEN (VOLUME IS ON-LINE) */ 06131000 * END; 0305 06132000 */* ELSE (VOLUME IS OFF-LINE) */ 06133000 * ELSE DO; 0306 06134000 * 0306 06135000 B @RC00287 0306 06136000 @RF00287 DS 0H 0307 06137000 */* ENTER SUPERVISOR STATE */ 06138000 * GEN (MODESET KEY=ZERO); 0307 06139000 MODESET KEY=ZERO 06140000 */* FREE THE CORE OCCUPIED BY THE ABNORMAL END APPENDAGE*/ 06141000 * GEN (DELETE EP=IGG019P2); 0308 06142000 DELETE EP=IGG019P2 06143000 */* ZERO OUT THE HIGH ORDER BYTE IN THE DEB IDENTIFIER */ 06144000 * DEBDEBID = ''B; 0309 06145000 MVI DEBDEBID(DEBPTR),X'00' 0309 06146000 */* ISSUE THE DEBCHK MACRO TO REMOVE DEB FROM DEB TABLE */ 06147000 * RESPECIFY (REG3) RSTD; 0310 06148000 * REG3 = DCBPTR; 0311 06149000 LR REG3,DCBPTR 0311 06150000 * GEN (DEBCHK (REG3),TYPE=DELETE,AM=EXCP); 0312 06151000 DEBCHK (REG3),TYPE=DELETE,AM=EXCP 06152000 * RESPECIFY (REG3) UNRSTD; 0313 06153000 */* OBTAIN THE POINTER TO THE TCB */ 06154000 * ADDRDTCB = CVTPTR -> CVTTCBP; 0314 06155000 L @10,CVTPTR 0314 06156000 L ADDRDTCB,CVTTCBP(,@10) 0314 06157000 * TCBPTR = CURRTCB; 0315 06158000 L TCBPTR,CURRTCB(,ADDRDTCB) 0315 06159000 */* UNCHAIN THE DEB FROM THE DEB QUEUE */ 06160000 * OFDEBPTR = DEBPTR; 0316 06161000 LR OFDEBPTR,DEBPTR 0316 06162000 * DEBPTR = TCBDEB; 0317 06163000 L DEBPTR,TCBDEB(,TCBPTR) 0317 06164000 * DO WHILE DEBPTR ^= OFDEBPTR & DEBPTR ^= NULLPTR; 0318 06165000 * 0318 06166000 B @DE00318 0318 06167000 @DL00318 DS 0H 0319 06168000 * PREVPTR = DEBPTR; 0319 06169000 ST DEBPTR,@TF00001 0319 06170000 MVC PREVPTR(3),@TF00001+1 0319 06171000 * DEBPTR = DEBDEBAD; 0320 06172000 L DEBPTR,DEBDEBAD(,DEBPTR) 0320 06173000 * END; 0321 06174000 @DE00318 CR DEBPTR,OFDEBPTR 0321 06175000 BE @DC00318 0321 06176000 LTR DEBPTR,DEBPTR 0321 06177000 BNZ @DL00318 0321 06178000 @DC00318 DS 0H 0322 06179000 * IF DEBPTR = OFDEBPTR 0322 06180000 * THEN DO; 0322 06181000 * 0322 06182000 CR DEBPTR,OFDEBPTR 0322 06183000 BNE @RF00322 0322 06184000 * IF DEBPTR = TCBDEB 0324 06185000 * THEN DO; TCBDEB = DEBDEBAD; END; 0324 06186000 C DEBPTR,TCBDEB(,TCBPTR) 0324 06187000 BNE @RF00324 0324 06188000 MVC TCBDEB(4,TCBPTR),DEBDEBAD(DEBPTR) 0326 06189000 * ELSE DO; 0328 06190000 * 0328 06191000 B @RC00324 0328 06192000 @RF00324 DS 0H 0329 06193000 * NEXTPTR = DEBDEBAD; 0329 06194000 L NEXTPTR,DEBDEBAD(,DEBPTR) 0329 06195000 * DEBPTR = PREVPTR; 0330 06196000 L DEBPTR,PREVPTR-1 0330 06197000 LA DEBPTR,0(,DEBPTR) 0330 06198000 * DEBDEBAD = NEXTPTR; 0331 06199000 ST NEXTPTR,DEBDEBAD(,DEBPTR) 0331 06200000 * END; 0332 06201000 * END; 0333 06202000 @RC00324 DS 0H 0334 06203000 */* FREE THE CORE OCCUPIED BY THE DEB */ 06204000 * RESPECIFY (REG1,REG3) RSTD; 0334 06205000 @RF00322 DS 0H 0335 06206000 * REG1 = DEBAPPAD; 0335 06207000 L REG1,DEBAPPAD(,DEBPTR) 0335 06208000 * REG3 = LENGTH (DEB) + LENGTH (DEBBASIC) + 0336 06209000 * LENGTH (DEBDASD); 0336 06210000 LA REG3,84 0336 06211000 * GEN (FREEMAIN R,LV=(REG3),A=(REG1),SP=230); 0337 06212000 FREEMAIN R,LV=(REG3),A=(REG1),SP=230 06213000 * RESPECIFY (REG1,REG3) UNRSTD; 0338 06214000 */* GET BACK INTO PROBLEM PROGRAM STATE */ 06215000 * GEN (MODESET KEY=NZERO); 0339 06216000 MODESET KEY=NZERO 06217000 */* END-ELSE (VOLUME IS OFF-LINE) */ 06218000 * END; 0340 06219000 */* IF NO ERRORS FOUND SO FAR */ 06220000 * IF CONDCODE = RCSUCC 0341 06221000 */* THEN */ 06222000 * THEN DO; 0341 06223000 * 0341 06224000 @RC00287 L @10,@PC00001+8 0341 06225000 L @10,CONDCODE(,@10) 0341 06226000 LTR @10,@10 0341 06227000 BNZ @RF00341 0341 06228000 */* IF VOLUME IS OFF-LINE */ 06229000 * IF VLSTATE = OFF 0343 06230000 */* THEN */ 06231000 * THEN DO; 0343 06232000 * 0343 06233000 L @10,@PC00001+4 0343 06234000 L @10,VOLIBPTR(,@10) 0343 06235000 TM VLSTATE(@10),B'10000000' 0343 06236000 BNZ @RF00343 0343 06237000 */* RESET THE NO-ALLOCATE BIT IN THE UCB */ 06238000 * GEN (MODESET KEY=ZERO); 0345 06239000 MODESET KEY=ZERO 06240000 * UCBNALOC = OFF; 0346 06241000 NI UCBNALOC(UCBPTR),B'11111011' 0346 06242000 * GEN (MODESET KEY=NZERO); 0347 06243000 MODESET KEY=NZERO 06244000 */* ELIMINATE THE STAE ENVIRONMENT */ 06245000 * CALL ICKSAST0 (GDTTBL 0348 06246000 * ,'CANCEL' 0348 06247000 * ,VOLIBPTR); 0348 06248000 L @10,@PC00001 0348 06249000 ST @10,@AL00001 0348 06250000 LA @15,@CC02516 0348 06251000 ST @15,@AL00001+4 0348 06252000 L @15,@PC00001+4 0348 06253000 ST @15,@AL00001+8 0348 06254000 L @15,GDTSTE(,@10) 0348 06255000 LA @01,@AL00001 0348 06256000 BALR @14,@15 0348 06257000 */* END-THEN */ 06258000 * END; 0349 06259000 */* DE-LINK THE VOLIB */ 06260000 * VLBPTR -> VLFPTR = VLFPTR; 0350 06261000 @RF00343 L @10,@PC00001+4 0350 06262000 L @10,VOLIBPTR(,@10) 0350 06263000 L @15,VLBPTR(,@10) 0350 06264000 L @10,VLFPTR(,@10) 0350 06265000 ST @10,VLFPTR(,@15) 0350 06266000 * IF VLFPTR ^= NULLPTR 0351 06267000 * THEN DO; VLFPTR -> VLBPTR = VLBPTR; END; 0351 06268000 LTR @10,@10 0351 06269000 BZ @RF00351 0351 06270000 ST @15,VLBPTR(,@10) 0353 06271000 */* RELEASE CONTROL-BLOCK STORAGE */ 06272000 * CBPOOLA = 'D'; 0355 06273000 @RF00351 MVI CBPOOLA,C'D' 0355 06274000 * CBPOOLC = 'PG'; 0356 06275000 MVC CBPOOLC(2),@CC02518 0356 06276000 * CBPOOLB = VLNUMBER; 0357 06277000 L @10,@PC00001+4 0357 06278000 L @10,VOLIBPTR(,@10) 0357 06279000 MVC CBPOOLB(1),VLNUMBER(@10) 0357 06280000 * CALL ICKSAFP0 (GDTTBL, CBPOOLID); 0358 06281000 L @10,@PC00001 0358 06282000 ST @10,@AL00001 0358 06283000 LA @15,CBPOOLS 0358 06284000 ST @15,@AL00001+4 0358 06285000 MVI @AL00001+4,X'80' 0358 06286000 L @15,GDTFPL(,@10) 0358 06287000 LA @01,@AL00001 0358 06288000 BALR @14,@15 0358 06289000 */* VOID THE VOLIB POINTER FROM THIS MOMENT HENCE */ 06290000 * VOLIBPTR = NULLPTR; 0359 06291000 L @10,@PC00001+4 0359 06292000 SLR @15,@15 0359 06293000 ST @15,VOLIBPTR(,@10) 0359 06294000 */* END-THEN */ 06295000 * END; 0360 06296000 */* END-THEN */ 06297000 * END; 0361 06298000 */* END-THEN (VOLIB EXISTS) */ 06299000 * END VOLIBEX; 0362 06300000 */* ELSE SET RETURN CODE FOR VOLIB DOES NOT EXIST */ 06301000 * ELSE DO; CONDCODE = RCNOEXST; END; 0363 06302000 B @RC00261 0363 06303000 @RF00261 DS 0H 0364 06304000 L @10,@PC00001+8 0364 06305000 MVC CONDCODE(4,@10),@CF00116 0364 06306000 */* END-PROCEDURE CLOSE_VOLUME */ 06307000 * IF GDTDBG = NULLPTR 0366 06308000 * THEN; 0366 06309000 @RC00261 L @10,@PC00001 0366 06310000 L @10,GDTDBG(,@10) 0366 06311000 LTR @10,@10 0366 06312000 BZ @RT00366 0366 06313000 * ELSE 0368 06314000 * CALL ICKDB010 (GDTTBL, 'DV49'); 0368 06315000 L @10,@PC00001 0368 06316000 ST @10,@AL00001 0368 06317000 LA @15,@CC02519 0368 06318000 ST @15,@AL00001+4 0368 06319000 MVI @AL00001+4,X'80' 0368 06320000 L @15,GDTDBG(,@10) 0368 06321000 LA @01,@AL00001 0368 06322000 BALR @14,@15 0368 06323000 * CALL ICKSAFP0 (GDTTBL,POOLID); 0369 06324000 @RT00366 L @10,@PC00001 0369 06325000 ST @10,@AL00001 0369 06326000 LA @15,POOLID 0369 06327000 ST @15,@AL00001+4 0369 06328000 MVI @AL00001+4,X'80' 0369 06329000 L @15,GDTFPL(,@10) 0369 06330000 LA @01,@AL00001 0369 06331000 BALR @14,@15 0369 06332000 * CALL ICKSAEP0(GDTTBL,MODID); 0370 06333000 * 0370 06334000 * 0370 06335000 L @10,@PC00001 0370 06336000 ST @10,@AL00001 0370 06337000 LA @15,MODID 0370 06338000 ST @15,@AL00001+4 0370 06339000 MVI @AL00001+4,X'80' 0370 06340000 L @15,GDTEPL(,@10) 0370 06341000 LA @01,@AL00001 0370 06342000 BALR @14,@15 0370 06343000 * END ICKDV04 0371 06344000 */* THE FOLLOWING INCLUDE STATEMENTS WERE FOUND IN THIS PROGRAM. * 06345000 */*%INCLUDE SYSLIB (DMSDF01 ) * 06346000 */*%INCLUDE SYSLIB (DMSDF00 ) * 06347000 */*@INCLUDE SYSLIB (DMSDF02 ) * 06348000 */*%INCLUDE SYSLIB (DMSDF08 ) * 06349000 */*%INCLUDE SYSLIB (DMSDF10 ) * 06350000 */*%INCLUDE SYSLIB (IHADCBDF) * 06351000 */*%INCLUDE SYSLIB (IHADCB ) * 06352000 */*%INCLUDE SYSLIB (IEZDEB ) * 06353000 */*%INCLUDE SYSLIB (IEFUCBOB) * 06354000 */*%INCLUDE SYSLIB (CVT ) * 06355000 */*%INCLUDE SYSLIB (IKJTCB ) * 06356000 *; 0371 06357000 @DATA DS 0H 06358000 @CH00165 DC H'1' 06359000 @DATD DSECT 06360000 DS 0F 06361000 @SA00001 DS 18F 06362000 @PC00001 DS 3F 06363000 @AL00001 DS 9A 06364000 @TF00001 DS F 06365000 @ZTEMPS DS 0F 06366000 @ZT00002 DC F'0' 06367000 @ZTEMPND EQU * 06368000 @ZLEN EQU @ZTEMPND-@ZTEMPS 06369000 ICKDV04 CSECT 06370000 DS 0F 06371000 @CF00116 DC F'2' 06372000 @CF00136 DC F'3' 06373000 @CF00044 DC F'4' 06374000 @CH00044 EQU @CF00044+2 06375000 @CF00265 DC F'12' 06376000 @CF00477 DC F'80' 06377000 @CF00335 DC F'204' 06378000 @DATD DSECT 06379000 DS 0D 06380000 LISTSCAN DS A 06381000 IOCSPTR DS A 06382000 OPNPTR DS A 06383000 DDSTRU DS A 06384000 FSADDR DS A 06385000 DMPINDEX DS A 06386000 APIPTR DS A 06387000 DATAPTR DS A 06388000 DEBEXPTR DS A 06389000 DEBSBPTR DS A 06390000 INFOPTR DS A 06391000 INFOLEN DS F 06392000 TRKCCHH DS F 06393000 RECNUM DS F 06394000 LABELLEN DS F 06395000 LABELPTR DS A 06396000 RETCODE DS F 06397000 LISTPTR DS A 06398000 SETRC DS H 06399000 TESTRC DS H 06400000 DS CL1 06401000 PREVPTR DS AL3 06402000 LISTLN DS FL1 06403000 CBPOOLS DS CL4 06404000 ORG CBPOOLS 06405000 CBPOOLA DS CL1 06406000 CBPOOLB DS FL1 06407000 CBPOOLC DS CL2 06408000 ORG CBPOOLS+4 06409000 DS CL3 06410000 CLOSLIST DS CL4 06411000 VTOCTTR DS CL4 06412000 ORG VTOCTTR 06413000 VTOCRTA DS FL2 06414000 VTOCRZ DS BL2 06415000 ORG VTOCTTR+4 06416000 ICKDV04 CSECT 06417000 DS 0F 06418000 @SIZDATD DC AL1(0) 06419000 DC AL3(@ENDDATD-@DATD) 06420000 DS 0D 06421000 @CC02516 DC C'CANCEL' 06422000 @CC00145 DC C'ZERO' 06423000 @CC02506 DC C'DV40' 06424000 @CC02519 DC C'DV49' 06425000 @CC02518 DC C'PG' 06426000 @CB02511 DC X'0000' 06427000 MODID DC CL4'DV04' 06428000 POOLID DC CL4'DV04' 06429000 PTCHDV04 DS CL256 06430000 ORG PTCHDV04 06431000 @NM00053 DC 256X'00' 06432000 ORG PTCHDV04+256 06433000 ICKDV04 CSECT 06434000 ICKDV04 CSECT 06435000 LGENCLOS CLOSE (),MF=L 06436000 @DATD DSECT 06437000 ORG *+1-(*-@DATD)/(*-@DATD) INSURE DSECT DATA 06438000 @ENDDATD EQU * 06439000 ICKDV04 CSECT 06440000 @00 EQU 00 EQUATES FOR REGISTERS 0-15 06441000 @01 EQU 01 06442000 @02 EQU 02 06443000 @03 EQU 03 06444000 @04 EQU 04 06445000 @05 EQU 05 06446000 @06 EQU 06 06447000 @07 EQU 07 06448000 @08 EQU 08 06449000 @09 EQU 09 06450000 @10 EQU 10 06451000 @11 EQU 11 06452000 @12 EQU 12 06453000 @13 EQU 13 06454000 @14 EQU 14 06455000 @15 EQU 15 06456000 NEXTPTR EQU @05 06457000 OFDEBPTR EQU @05 06458000 ADDRDTCB EQU @05 06459000 CPTR EQU @04 06460000 TCBPTR EQU @06 06461000 UCBPTR EQU @07 06462000 DEBDAPTR EQU @06 06463000 DEBPTR EQU @04 06464000 DCBPTR EQU @05 06465000 REG12 EQU @12 06466000 REG1 EQU @01 06467000 REG2 EQU @02 06468000 REG3 EQU @03 06469000 REG0 EQU @00 06470000 REG10 EQU @10 06471000 REG11 EQU @11 06472000 REG13 EQU @13 06473000 REG14 EQU @14 06474000 REG15 EQU @15 06475000 REG4 EQU @04 06476000 REG5 EQU @05 06477000 REG6 EQU @06 06478000 REG7 EQU @07 06479000 REG8 EQU @08 06480000 REG9 EQU @09 06481000 RTNREG EQU @15 06482000 CVTPTR EQU 16 06483000 ICKSAEP0 EQU 0 06484000 ICKSAGP0 EQU 0 06485000 ICKSAFP0 EQU 0 06486000 ICKSAST0 EQU 0 06487000 TRACE1 EQU 0 06488000 OLDERID1 EQU TRACE1 06489000 TRACE2 EQU 0 06490000 STAEPARM EQU 0 06491000 STAEPFX EQU STAEPARM 06492000 IOCSTR EQU 0 06493000 IOCDSO EQU IOCSTR+13 06494000 IOCRFM EQU IOCSTR+14 06495000 IOCMAC EQU IOCSTR+15 06496000 IOCMSG EQU IOCSTR+16 06497000 OPNAGL EQU 0 06498000 OPNOPT EQU OPNAGL 06499000 OPNRFM EQU OPNAGL+1 06500000 OPNTYP EQU OPNAGL+2 06501000 OPNMOD EQU OPNAGL+3 06502000 UVOLLIST EQU 0 06503000 UVOLENT EQU UVOLLIST+2 06504000 ICKDVIN0 EQU 0 06505000 ICKDVOP0 EQU 0 06506000 DARGLIST EQU 0 06507000 DARGSTID EQU DARGLIST+8 06508000 DARGARY EQU DARGLIST+20 06509000 DARGINS EQU DARGARY 06510000 DARGINL EQU DARGARY+2 06511000 FMTLIST EQU 0 06512000 FMTFLGS EQU FMTLIST 06513000 FMTSPF EQU FMTLIST+2 06514000 FMTRFNO EQU FMTSPF 06515000 FMTILEN EQU FMTRFNO 06516000 FMTIOFF EQU FMTLIST+4 06517000 FMTTRBC EQU FMTIOFF 06518000 FMTSTO EQU FMTTRBC 06519000 FMTOCOL EQU FMTLIST+6 06520000 FMTCNVF EQU FMTLIST+10 06521000 ICKDB010 EQU 0 06522000 DMPITM EQU 0 06523000 DMPARY EQU 0 06524000 VOL1 EQU 0 06525000 VOL1SER EQU VOL1+4 06526000 VOL1VTOC EQU VOL1+11 06527000 VOL1OWNR EQU VOL1+37 06528000 VOLIB EQU 0 06529000 VLFPTR EQU VOLIB 06530000 VLBPTR EQU VOLIB+4 06531000 VLUCBDT EQU VOLIB+28 06532000 VLSTATE EQU VOLIB+35 06533000 VLNUMBER EQU VOLIB+37 06534000 APINFO EQU 0 06535000 CNTBLKS EQU 0 06536000 CBDCB EQU CNTBLKS+84 06537000 DEVSENSE EQU 0 06538000 BYTE0 EQU DEVSENSE 06539000 BYTE1 EQU DEVSENSE+1 06540000 BYTE2 EQU DEVSENSE+2 06541000 SEN3344 EQU BYTE2 06542000 IHADCB EQU 0 06543000 IHADCS00 EQU 0 06544000 DCBFDAD EQU IHADCS00+5 06545000 IHADCS01 EQU 0 06546000 DCBDVTBL EQU IHADCS01 06547000 IHADCS24 EQU 0 06548000 DCBOFLGS EQU IHADCS24+8 06549000 DCBOFLWR EQU DCBOFLGS 06550000 DCBOFOPN EQU DCBOFLGS 06551000 DCBIFLG EQU IHADCS24+9 06552000 DCBIBPCT EQU DCBIFLG 06553000 DCBMACR EQU IHADCS24+10 06554000 DCBMACR1 EQU DCBMACR 06555000 DCBMRFE EQU DCBMACR1 06556000 DCBMRGET EQU DCBMRFE 06557000 DCBMRAPG EQU DCBMACR1 06558000 DCBMRRD EQU DCBMRAPG 06559000 DCBMRCI EQU DCBMACR1 06560000 DCBMRMVG EQU DCBMRCI 06561000 DCBMRLCG EQU DCBMACR1 06562000 DCBMRABC EQU DCBMACR1 06563000 DCBMRPT1 EQU DCBMRABC 06564000 DCBMRSBG EQU DCBMRPT1 06565000 DCBMRCRL EQU DCBMACR1 06566000 DCBMRCHK EQU DCBMRCRL 06567000 DCBMRRDX EQU DCBMRCHK 06568000 DCBMRDMG EQU DCBMACR1 06569000 DCBMACR2 EQU DCBMACR+1 06570000 DCBMRPUT EQU DCBMACR2 06571000 DCBMRWRT EQU DCBMACR2 06572000 DCBMRMVP EQU DCBMACR2 06573000 DCBMR5WD EQU DCBMACR2 06574000 DCBMRLDM EQU DCBMR5WD 06575000 DCBMRLCP EQU DCBMRLDM 06576000 DCBMR4WD EQU DCBMACR2 06577000 DCBMRPT2 EQU DCBMR4WD 06578000 DCBMRTMD EQU DCBMRPT2 06579000 DCBMR3WD EQU DCBMACR2 06580000 DCBMRCTL EQU DCBMR3WD 06581000 DCBMRSTK EQU DCBMRCTL 06582000 DCBMR1WD EQU DCBMACR2 06583000 DCBMRSWA EQU DCBMR1WD 06584000 DCBMRDMD EQU DCBMRSWA 06585000 IHADCS25 EQU 0 06586000 DCBMACRF EQU IHADCS25+2 06587000 DCBMACF1 EQU DCBMACRF 06588000 DCBMFFE EQU DCBMACF1 06589000 DCBMFGET EQU DCBMFFE 06590000 DCBMFAPG EQU DCBMACF1 06591000 DCBMFRD EQU DCBMFAPG 06592000 DCBMFCI EQU DCBMACF1 06593000 DCBMFMVG EQU DCBMFCI 06594000 DCBMFLCG EQU DCBMACF1 06595000 DCBMFABC EQU DCBMACF1 06596000 DCBMFPT1 EQU DCBMFABC 06597000 DCBMFSBG EQU DCBMFPT1 06598000 DCBMFCRL EQU DCBMACF1 06599000 DCBMFCHK EQU DCBMFCRL 06600000 DCBMFDMG EQU DCBMACF1 06601000 DCBMACF2 EQU DCBMACRF+1 06602000 DCBMFPUT EQU DCBMACF2 06603000 DCBMFWRT EQU DCBMACF2 06604000 DCBMFMVP EQU DCBMACF2 06605000 DCBMF5WD EQU DCBMACF2 06606000 DCBMFLDM EQU DCBMF5WD 06607000 DCBMFLCP EQU DCBMFLDM 06608000 DCBMF4WD EQU DCBMACF2 06609000 DCBMFPT2 EQU DCBMF4WD 06610000 DCBMFTMD EQU DCBMFPT2 06611000 DCBMF3WD EQU DCBMACF2 06612000 DCBMFCTL EQU DCBMF3WD 06613000 DCBMFSTK EQU DCBMFCTL 06614000 DCBMF1WD EQU DCBMACF2 06615000 DCBMFSWA EQU DCBMF1WD 06616000 DCBMFDMD EQU DCBMFSWA 06617000 DCBDEBAD EQU IHADCS25+4 06618000 DCBIFLGS EQU DCBDEBAD 06619000 DCBIFPCT EQU DCBIFLGS 06620000 DCBDEBA EQU DCBDEBAD+1 06621000 IHADCS28 EQU 0 06622000 DCBOPTCD EQU IHADCS28 06623000 DCBOPTZ EQU DCBOPTCD 06624000 IHADCS44 EQU 0 06625000 DEBBASIC EQU 0 06626000 DEBTCBAD EQU DEBBASIC 06627000 DEBDEBAD EQU DEBBASIC+4 06628000 DEBIRBAD EQU DEBBASIC+8 06629000 DEBOFLGS EQU DEBIRBAD 06630000 DEBOPATB EQU DEBBASIC+12 06631000 DEBFLGS1 EQU DEBBASIC+14 06632000 DEBUSRPG EQU DEBBASIC+16 06633000 DEBRRQ EQU DEBBASIC+20 06634000 DEBECBAD EQU DEBRRQ 06635000 DEBDCBAD EQU DEBBASIC+24 06636000 DEBPROTG EQU DEBDCBAD 06637000 DEBDEBID EQU DEBPROTG 06638000 DEBAPPAD EQU DEBBASIC+28 06639000 DEBBASND EQU DEBBASIC+32 06640000 DEBDASD EQU 0 06641000 DEBUCBAD EQU DEBDASD 06642000 DEBACSMD EQU 0 06643000 DEBVOLSQ EQU DEBACSMD 06644000 DEBVOLBT EQU DEBVOLSQ 06645000 DEBDSNM EQU DEBACSMD+4 06646000 DEBUTSAA EQU DEBDSNM 06647000 DEBACS01 EQU 0 06648000 DEBDSNAM EQU DEBACS01 06649000 DEBACS02 EQU 0 06650000 DEBDBLK EQU DEBACS02 06651000 DEBACS03 EQU 0 06652000 DEBACS04 EQU 0 06653000 DEBTBFRA EQU DEBACS04 06654000 DEBTCCWA EQU DEBACS04+4 06655000 DEBACS05 EQU 0 06656000 DEBFUCBA EQU DEBACS05 06657000 DEBLUCBA EQU DEBACS05+4 06658000 DEBACS06 EQU 0 06659000 DEBACS07 EQU 0 06660000 DEBACS08 EQU 0 06661000 DEBSUBNM EQU 0 06662000 DEB EQU 0 06663000 DEBAVT EQU DEB 06664000 DEBEOEA EQU DEBAVT 06665000 DEBEOEAB EQU DEBEOEA 06666000 DEBSIOA EQU DEBAVT+4 06667000 DEBSIOAB EQU DEBSIOA 06668000 DEBPCIA EQU DEBAVT+8 06669000 DEBPCIAB EQU DEBPCIA 06670000 DEBCEA EQU DEBAVT+12 06671000 DEBCEAB EQU DEBCEA 06672000 DEBXCEA EQU DEBAVT+16 06673000 DEBXCEAB EQU DEBXCEA 06674000 DEBPREFX EQU DEB+20 06675000 DEBXTNP EQU DEBPREFX+8 06676000 DEBXTN EQU 0 06677000 DEBXFLG1 EQU DEBXTN+2 06678000 UCB EQU 0 06679000 UCBOB EQU 0 06680000 UCBJBNR EQU UCBOB 06681000 UCBFL5 EQU UCBOB+1 06682000 UCBAF EQU UCBFL5 06683000 UCBNALOC EQU UCBFL5 06684000 UCBSTAT EQU UCBOB+3 06685000 UCBCHAN EQU UCBOB+4 06686000 UCBSFLS EQU UCBOB+6 06687000 UCBFLA EQU UCBSFLS 06688000 UCBFL1 EQU UCBFLA 06689000 UCBBSY EQU UCBFL1 06690000 UCBNRY EQU UCBFL1 06691000 UCBPST EQU UCBFL1 06692000 UCBCUB EQU UCBFL1 06693000 UCBFLB EQU UCBSFLS+1 06694000 UCBCHM EQU UCBOB+8 06695000 UCBCHM1 EQU UCBCHM 06696000 UCBPTH0 EQU UCBCHM1 06697000 UCBPTH1 EQU UCBCHM1 06698000 UCBWGT EQU UCBOB+12 06699000 UCBTYP EQU UCBOB+16 06700000 UCBTBYT1 EQU UCBTYP 06701000 UCB1FEA5 EQU UCBTBYT1 06702000 UCB1FEA6 EQU UCBTBYT1 06703000 UCBTBYT2 EQU UCBTYP+1 06704000 UCB2OPT2 EQU UCBTBYT2 06705000 UCBDUDN1 EQU UCB2OPT2 06706000 UCB2OPT3 EQU UCBTBYT2 06707000 UCBDUDN2 EQU UCB2OPT3 06708000 UCB2OPT4 EQU UCBTBYT2 06709000 UCBRWTAU EQU UCB2OPT4 06710000 UCB2OPT6 EQU UCBTBYT2 06711000 UCB2OPT7 EQU UCBTBYT2 06712000 UCBTBYT3 EQU UCBTYP+2 06713000 UCBDVCLS EQU UCBTBYT3 06714000 UCBTBYT4 EQU UCBTYP+3 06715000 UCBEXTPT EQU UCBOB+20 06716000 UCBFLC EQU UCBEXTPT 06717000 UCBDEV EQU UCBOB+24 06718000 UCBCMEXT EQU 0 06719000 UCBATI EQU UCBCMEXT+3 06720000 @NM00045 EQU UCBATI 06721000 UCBFLP1 EQU UCBCMEXT+5 06722000 UCBMT EQU 0 06723000 UCBOCR EQU 0 06724000 UCB3540X EQU 0 06725000 UCBDKBYT EQU UCB3540X+6 06726000 UCB3800X EQU 0 06727000 UCBOPTNS EQU UCB3800X 06728000 UCBACTIV EQU UCB3800X+3 06729000 UCBMDRBF EQU UCB3800X+36 06730000 UCBUCS EQU 0 06731000 UCBUCSOP EQU UCBUCS+4 06732000 UCBFCBOP EQU UCBUCS+5 06733000 CVTMAP EQU 0 06734000 CVTTCBP EQU CVTMAP 06735000 CVTDAR EQU CVTMAP+72 06736000 CVTFLGS1 EQU CVTDAR 06737000 CVTDCB EQU CVTMAP+116 06738000 CVTIOQET EQU CVTMAP+120 06739000 CVTIERLC EQU CVTMAP+144 06740000 CVTHEAD EQU CVTMAP+160 06741000 CVTSV76C EQU CVTHEAD 06742000 CVTOPTA EQU CVTMAP+182 06743000 CVTOPTB EQU CVTMAP+183 06744000 CVTGTF EQU CVTMAP+236 06745000 CVTGTFST EQU CVTGTF 06746000 CVTGTFS EQU CVTGTFST 06747000 CVTSTATE EQU CVTGTFST 06748000 CVTTMODE EQU CVTGTFST 06749000 CVTFORM EQU CVTGTFST 06750000 CVTAQAVT EQU CVTMAP+240 06751000 CVTTCMFG EQU CVTAQAVT 06752000 CVTVOLM2 EQU CVTMAP+244 06753000 CVTTATA EQU CVTVOLM2 06754000 CVTTSKS EQU CVTTATA 06755000 CVTVOLF2 EQU CVTTSKS 06756000 CVTTAT EQU CVTTATA+1 06757000 CVTATER EQU CVTMAP+248 06758000 CVTEXT1 EQU CVTMAP+252 06759000 CVTPURG EQU CVTMAP+260 06760000 CVTQMSG EQU CVTMAP+268 06761000 CVTDMSR EQU CVTMAP+272 06762000 CVTRSV37 EQU CVTDMSR 06763000 CVTDMSRF EQU CVTRSV37 06764000 CVTERPV EQU CVTMAP+316 06765000 CVTINTLA EQU CVTMAP+320 06766000 CVTAPF EQU CVTMAP+324 06767000 CVTEXT2 EQU CVTMAP+328 06768000 CVTHJES EQU CVTMAP+332 06769000 CVTPGSIA EQU CVTMAP+348 06770000 CVTA1F1 EQU CVTMAP+356 06771000 CVTSYSK EQU CVTMAP+357 06772000 CVTVOLM1 EQU CVTMAP+380 06773000 CVTVOLF1 EQU CVTVOLM1 06774000 CVTATMCT EQU CVTMAP+388 06775000 CVTXTNT1 EQU 0 06776000 CVTXTNT2 EQU 0 06777000 CVTDSSV EQU CVTXTNT2 06778000 CVTFLGBT EQU CVTXTNT2+5 06779000 CVTQID EQU CVTXTNT2+24 06780000 CVTRV400 EQU CVTXTNT2+52 06781000 CVTRV409 EQU CVTXTNT2+53 06782000 CVTATCVT EQU CVTXTNT2+64 06783000 CVTRV429 EQU CVTXTNT2+84 06784000 CVTRV438 EQU CVTXTNT2+85 06785000 CVTRV457 EQU CVTXTNT2+112 06786000 CVTRV466 EQU CVTXTNT2+113 06787000 CVTFIX EQU 0 06788000 CVTRELNO EQU CVTFIX+252 06789000 TCBFIX EQU 0 06790000 TCBFRS EQU TCBFIX 06791000 TCB EQU 0 06792000 TCBPIE EQU TCB+4 06793000 TCBPMASK EQU TCBPIE 06794000 TCBDEB EQU TCB+8 06795000 TCBCMP EQU TCB+16 06796000 TCBCMPF EQU TCBCMP 06797000 TCBCPP EQU TCBCMPF 06798000 TCBSTCC EQU TCBCMPF 06799000 TCBCDBL EQU TCBCMPF 06800000 TCBCWTO EQU TCBCMPF 06801000 TCBCIND EQU TCBCMPF 06802000 TCBCMSG EQU TCBCMPF 06803000 TCBTRN EQU TCB+20 06804000 TCBABF EQU TCBTRN 06805000 TCBMSS EQU TCB+24 06806000 TCBPKF EQU TCB+28 06807000 TCBFLGS EQU TCB+29 06808000 TCBFLGS1 EQU TCBFLGS 06809000 TCBFLGS2 EQU TCBFLGS+1 06810000 TCBFLGS3 EQU TCBFLGS+2 06811000 TCBFLGS4 EQU TCBFLGS+3 06812000 TCBFLGS5 EQU TCBFLGS+4 06813000 TCBABWF EQU TCBFLGS5 06814000 TCBJPQ EQU TCB+44 06815000 TCBPURGE EQU TCBJPQ 06816000 TCBGRS EQU TCB+48 06817000 TCBFSA EQU TCB+112 06818000 TCBTME EQU TCB+120 06819000 TCBJSTCB EQU TCB+124 06820000 TCBTSFLG EQU TCB+148 06821000 TCBTSTSK EQU TCBTSFLG 06822000 TCBSTAB EQU TCB+160 06823000 TCBNSTAE EQU TCBSTAB 06824000 TCBTCT EQU TCB+164 06825000 TCBTCTGF EQU TCBTCT 06826000 TCBSCNDY EQU TCB+172 06827000 TCBNDSP EQU TCBSCNDY 06828000 TCBNDSP1 EQU TCBNDSP+1 06829000 TCBNDSP2 EQU TCBNDSP+2 06830000 TCBNDSP3 EQU TCBNDSP+3 06831000 TCBJSCB EQU TCB+180 06832000 TCBRECDE EQU TCBJSCB 06833000 TCBEXT1 EQU TCB+196 06834000 TCBBITS EQU TCB+200 06835000 TCBNDSP4 EQU TCBBITS 06836000 TCBNDSP5 EQU TCBBITS+1 06837000 TCBFLGS6 EQU TCBBITS+2 06838000 TCBFLGS7 EQU TCBBITS+3 06839000 TCBDAR EQU TCB+204 06840000 TCBDARC EQU TCBDAR 06841000 TCBEXT2 EQU TCB+208 06842000 TCBFOE EQU TCB+244 06843000 TCBESTAE EQU TCB+264 06844000 TCBESTRM EQU TCBESTAE+1 06845000 TCBFBYT1 EQU TCB+276 06846000 TCBFBYT2 EQU TCB+277 06847000 TCBRV124 EQU TCB+278 06848000 TCBRV133 EQU TCB+279 06849000 TCBXTNT2 EQU 0 06850000 TCBGTF EQU TCBXTNT2 06851000 TCBTFLG EQU TCBGTF 06852000 TCBRV146 EQU TCBXTNT2+28 06853000 TCBRV155 EQU TCBXTNT2+29 06854000 TCBRV164 EQU TCBXTNT2+30 06855000 TCBRV173 EQU TCBXTNT2+31 06856000 CBPOOLID EQU 0 06857000 DWRDTCB EQU 0 06858000 CURRTCB EQU DWRDTCB+4 06859000 TRKSPCYL EQU 0 06860000 DMPTRM EQU 0 06861000 ICKDVCL0 EQU 0 06862000 ICKDVON0 EQU 0 06863000 ICKIOCL0 EQU 0 06864000 ICKIOGT0 EQU 0 06865000 ICKIOIT0 EQU 0 06866000 ICKIOOP0 EQU 0 06867000 ICKIOPT0 EQU 0 06868000 ICKIOTM0 EQU 0 06869000 ICKSACL0 EQU 0 06870000 ICKSADE0 EQU 0 06871000 ICKSAFS0 EQU 0 06872000 ICKSAGS0 EQU 0 06873000 ICKSALD0 EQU 0 06874000 ICKSAPR0 EQU 0 06875000 ICKSASC0 EQU 0 06876000 ICKSASN0 EQU 0 06877000 ICKSATI0 EQU 0 06878000 ICKSAVC0 EQU 0 06879000 ICKSAWO0 EQU 0 06880000 ICKTPEA0 EQU 0 06881000 ICKTPES0 EQU 0 06882000 ICKTPPR0 EQU 0 06883000 ICKTPRE0 EQU 0 06884000 ICKTPRS0 EQU 0 06885000 LISTTEST EQU 0 06886000 NEWERID1 EQU 5 06887000 NEWERID2 EQU 5 06888000 UCBBGN EQU 0 06889000 GDTTBL EQU 0 06890000 GDTTR1 EQU GDTTBL+8 06891000 GDTTR2 EQU GDTTBL+12 06892000 GDTDVH EQU GDTTBL+40 06893000 GDTDIN EQU GDTTBL+44 06894000 GDTDOP EQU GDTTBL+48 06895000 GDTDBG EQU GDTTBL+52 06896000 GDTDVO EQU GDTTBL+56 06897000 GDTPRT EQU GDTTBL+60 06898000 GDTESS EQU GDTTBL+64 06899000 GDTESA EQU GDTTBL+68 06900000 GDTRST EQU GDTTBL+72 06901000 GDTRES EQU GDTTBL+76 06902000 GDTCAL EQU GDTTBL+80 06903000 GDTGSP EQU GDTTBL+84 06904000 GDTFSP EQU GDTTBL+88 06905000 GDTGPL EQU GDTTBL+92 06906000 GDTFPL EQU GDTTBL+96 06907000 GDTLOD EQU GDTTBL+100 06908000 GDTDEL EQU GDTTBL+104 06909000 GDTPRL EQU GDTTBL+108 06910000 GDTEPL EQU GDTTBL+112 06911000 GDTTIM EQU GDTTBL+116 06912000 GDTIIO EQU GDTTBL+120 06913000 GDTTIO EQU GDTTBL+124 06914000 GDTOPN EQU GDTTBL+136 06915000 GDTCLS EQU GDTTBL+140 06916000 GDTGET EQU GDTTBL+144 06917000 GDTPUT EQU GDTTBL+148 06918000 GDTSNP EQU GDTTBL+160 06919000 GDTWTO EQU GDTTBL+168 06920000 GDTSCR EQU GDTTBL+172 06921000 GDTVCK EQU GDTTBL+176 06922000 GDTDVC EQU GDTTBL+180 06923000 GDTSTE EQU GDTTBL+188 06924000 VOLIBPTR EQU 0 06925000 CONDCODE EQU 0 06926000 DEBBAS02 EQU DEBBASND 06927000 DEBDDS1 EQU DEBBAS02 06928000 DEBSUCBA EQU DEBDDS1 06929000 DEBDEVED EQU DEBDDS1+4 06930000 DEBRDCB EQU DEBDDS1+4 06931000 DEBPDCB EQU DEBDDS1+8 06932000 DEBWDCB EQU DEBDDS1+12 06933000 DEBACS09 EQU DEBDEVED 06934000 DEBASC09 EQU DEBACS09 06935000 DEBEAMFG EQU DEBASC09+3 06936000 DEBDSID EQU DEBASC09+4 06937000 DEBEOD EQU DEBASC09+12 06938000 DEBBOE EQU DEBEOD 06939000 DEBEODRV EQU DEBBOE 06940000 DEBEODTT EQU DEBBOE+1 06941000 DEBEOD0 EQU DEBBOE+2 06942000 DEBEODSS EQU DEBBOE+3 06943000 DEBBAS01 EQU DEBBASND 06944000 DEBISAM EQU DEBBAS01 06945000 DEBFIEAD EQU DEBISAM 06946000 DEBFPEAD EQU DEBISAM+4 06947000 DEBFOEAD EQU DEBISAM+8 06948000 DEBEXPT EQU DEBISAM+12 06949000 DEBRPSID EQU DEBEXPT 06950000 UCBOBS01 EQU UCBDEV 06951000 UCBVTOC EQU UCBOBS01 06952000 UCBVOLI EQU UCBOBS01+4 06953000 UCBSTAB EQU UCBOBS01+10 06954000 UCBBSVL EQU UCBSTAB 06955000 UCBPRSRS EQU UCBSTAB 06956000 UCBDMCT EQU UCBOBS01+11 06957000 UCBFL4 EQU UCBOBS01+13 06958000 UCBOBS02 EQU UCBDEV 06959000 UCBTFL1 EQU UCBOBS02+19 06960000 UCBXTN EQU UCBOBS02+20 06961000 UCBVOPT EQU UCBXTN 06962000 UCBOBS03 EQU UCBDEV 06963000 UCBXTADR EQU UCBOBS03 06964000 UCBOBS04 EQU UCBDEV 06965000 UCBBTA EQU UCBOBS04+12 06966000 UCBOBS06 EQU UCBDEV 06967000 UCBAOF EQU UCBOBS06 06968000 UCBAOF1 EQU UCBAOF 06969000 UCBAOF2 EQU UCBAOF+1 06970000 @NM00044 EQU UCBOBS06+3 06971000 UCBIRB EQU UCBOBS06+4 06972000 UCBGRAF EQU UCBIRB 06973000 UCBLDNCA EQU UCBOBS06+8 06974000 UCBRDYQ EQU UCBLDNCA 06975000 UCBIRLN EQU UCBRDYQ 06976000 UCBLDNCB EQU UCBRDYQ+1 06977000 UCBCTLNK EQU UCBOBS06+12 06978000 UCBOBS07 EQU UCBDEV 06979000 UCBOBS08 EQU UCBDEV 06980000 UCBCTCAD EQU UCBOBS08 06981000 UCBCTCF1 EQU UCBOBS08+4 06982000 UCBOBS09 EQU UCBDEV 06983000 CVTS01 EQU CVTPGSIA 06984000 CVTLPDIA EQU CVTS01+12 06985000 CVTDIRST EQU CVTLPDIA 06986000 CVTSLIDA EQU CVTS01+24 06987000 CVTCTLFG EQU CVTS01+50 06988000 CVTRV210 EQU CVTS01+424 06989000 CVTRV219 EQU CVTS01+425 06990000 CVTRV228 EQU CVTS01+426 06991000 CVTRV237 EQU CVTS01+427 06992000 CVTMFRTR EQU CVTS01+452 06993000 CVTRV262 EQU CVTS01+468 06994000 CVTRV271 EQU CVTS01+469 06995000 CVTRV280 EQU CVTS01+470 06996000 CVTRV289 EQU CVTS01+471 06997000 CVTGSDA EQU CVTS01+600 06998000 AGO .@UNREFD START UNREFERENCED COMPONENTS 06999000 CVTRV628 EQU CVTS01+728 07000000 CVTRV627 EQU CVTS01+724 07001000 CVTRV626 EQU CVTS01+720 07002000 CVTRV625 EQU CVTS01+716 07003000 CVTRV624 EQU CVTS01+712 07004000 CVTRV623 EQU CVTS01+708 07005000 CVTRV622 EQU CVTS01+704 07006000 CVTRV621 EQU CVTS01+700 07007000 CVTIHASU EQU CVTS01+696 07008000 CVTRV619 EQU CVTS01+692 07009000 CVTRV618 EQU CVTS01+688 07010000 CVTRV617 EQU CVTS01+684 07011000 CVTRV616 EQU CVTS01+680 07012000 CVTRV615 EQU CVTS01+676 07013000 CVTRV614 EQU CVTS01+672 07014000 CVTRV613 EQU CVTS01+668 07015000 CVTTCASP EQU CVTS01+664 07016000 CVT0PT03 EQU CVTS01+660 07017000 CVT0PT0E EQU CVTS01+656 07018000 CVTRV609 EQU CVTS01+652 07019000 CVTCGK EQU CVTS01+648 07020000 CVTRAC EQU CVTS01+644 07021000 CVTRV606 EQU CVTS01+640 07022000 CVTRV605 EQU CVTS01+636 07023000 CVTRV604 EQU CVTS01+632 07024000 CVTEFF02 EQU CVTS01+628 07025000 CVTCBBR EQU CVTS01+624 07026000 CVTSSCR EQU CVTS01+620 07027000 CVTEVENT EQU CVTS01+616 07028000 CVTCRCA EQU CVTS01+612 07029000 CVTTPIO EQU CVTS01+608 07030000 CVTADV EQU CVTS01+604 07031000 CVTGSDAB EQU CVTGSDA 07032000 CVTQV3 EQU CVTS01+596 07033000 CVTQV2 EQU CVTS01+592 07034000 CVTQV1 EQU CVTS01+588 07035000 CVTRPT EQU CVTS01+584 07036000 CVTSSRB EQU CVTS01+580 07037000 CVTCSDRL EQU CVTS01+576 07038000 CVTEXP1 EQU CVTS01+572 07039000 CVTRMPMT EQU CVTS01+568 07040000 CVTRMPTT EQU CVTS01+564 07041000 CVTVPSA EQU CVTS01+560 07042000 CVTVSTOP EQU CVTS01+556 07043000 CVTGTFR8 EQU CVTS01+552 07044000 CVTQUIT EQU CVTS01+548 07045000 CVTVACR EQU CVTS01+544 07046000 CVTWTCB EQU CVTS01+540 07047000 CVTSTPRS EQU CVTS01+536 07048000 CVT0PT02 EQU CVTS01+532 07049000 CVTDARCM EQU CVTS01+528 07050000 CVTIRECM EQU CVTS01+524 07051000 CVTJRECM EQU CVTS01+520 07052000 CVTVEMS0 EQU CVTS01+516 07053000 CVTSPFRR EQU CVTS01+512 07054000 CVTRLSTG EQU CVTS01+508 07055000 CVT0TC0A EQU CVTS01+504 07056000 CVTGMBR EQU CVTS01+500 07057000 CVTLFRM EQU CVTS01+496 07058000 CVTRMBR EQU CVTS01+492 07059000 CVTVIOP EQU CVTS01+488 07060000 CVTRV307 EQU CVTS01+486 07061000 CVTRV306 EQU CVTS01+484 07062000 CVTRV305 EQU CVTS01+482 07063000 CVTRV304 EQU CVTS01+480 07064000 CVTRV303 EQU CVTS01+478 07065000 CVTRV302 EQU CVTS01+476 07066000 CVTTRCA EQU CVTS01+472 07067000 CVTRV297 EQU CVTRV289 07068000 CVTRV296 EQU CVTRV289 07069000 CVTRV295 EQU CVTRV289 07070000 CVTRV294 EQU CVTRV289 07071000 CVTRV293 EQU CVTRV289 07072000 CVTRV292 EQU CVTRV289 07073000 CVTRV291 EQU CVTRV289 07074000 CVTRV290 EQU CVTRV289 07075000 CVTRV288 EQU CVTRV280 07076000 CVTRV287 EQU CVTRV280 07077000 CVTRV286 EQU CVTRV280 07078000 CVTRV285 EQU CVTRV280 07079000 CVTRV284 EQU CVTRV280 07080000 CVTRV283 EQU CVTRV280 07081000 CVTRV282 EQU CVTRV280 07082000 CVTRV281 EQU CVTRV280 07083000 CVTRV279 EQU CVTRV271 07084000 CVTRV278 EQU CVTRV271 07085000 CVTRV277 EQU CVTRV271 07086000 CVTRV276 EQU CVTRV271 07087000 CVTRV275 EQU CVTRV271 07088000 CVTRV274 EQU CVTRV271 07089000 CVTRV273 EQU CVTRV271 07090000 CVTRV272 EQU CVTRV271 07091000 CVTRV270 EQU CVTRV262 07092000 CVTRV269 EQU CVTRV262 07093000 CVTRV268 EQU CVTRV262 07094000 CVTRV267 EQU CVTRV262 07095000 CVTRV266 EQU CVTRV262 07096000 CVTRV265 EQU CVTRV262 07097000 CVTRV264 EQU CVTRV262 07098000 CVTRV263 EQU CVTRV262 07099000 CVTVFP EQU CVTS01+464 07100000 CVTVSI EQU CVTS01+460 07101000 CVTVPSIB EQU CVTS01+456 07102000 CVTMFACT EQU CVTMFRTR 07103000 CVTMFCTL EQU CVTS01+448 07104000 CVTPVBP EQU CVTS01+444 07105000 CVTPWI EQU CVTS01+440 07106000 CVTRV254 EQU CVTS01+438 07107000 CVTRV253 EQU CVTS01+436 07108000 CVTRV252 EQU CVTS01+434 07109000 CVTRV251 EQU CVTS01+433 07110000 CVTRV250 EQU CVTS01+432 07111000 CVTRV249 EQU CVTS01+431 07112000 CVTRV248 EQU CVTS01+430 07113000 CVTRV247 EQU CVTS01+429 07114000 CVTRV246 EQU CVTS01+428 07115000 CVTRV245 EQU CVTRV237 07116000 CVTRV244 EQU CVTRV237 07117000 CVTRV243 EQU CVTRV237 07118000 CVTRV242 EQU CVTRV237 07119000 CVTRV241 EQU CVTRV237 07120000 CVTRV240 EQU CVTRV237 07121000 CVTRV239 EQU CVTRV237 07122000 CVTRV238 EQU CVTRV237 07123000 CVTRV236 EQU CVTRV228 07124000 CVTRV235 EQU CVTRV228 07125000 CVTRV234 EQU CVTRV228 07126000 CVTRV233 EQU CVTRV228 07127000 CVTRV232 EQU CVTRV228 07128000 CVTRV231 EQU CVTRV228 07129000 CVTRV230 EQU CVTRV228 07130000 CVTRV229 EQU CVTRV228 07131000 CVTRV227 EQU CVTRV219 07132000 CVTRV226 EQU CVTRV219 07133000 CVTRV225 EQU CVTRV219 07134000 CVTRV224 EQU CVTRV219 07135000 CVTRV223 EQU CVTRV219 07136000 CVTRV222 EQU CVTRV219 07137000 CVTRV221 EQU CVTRV219 07138000 CVTRV220 EQU CVTRV219 07139000 CVTRV218 EQU CVTRV210 07140000 CVTRV217 EQU CVTRV210 07141000 CVTRV216 EQU CVTRV210 07142000 CVTRV215 EQU CVTRV210 07143000 CVTRV214 EQU CVTRV210 07144000 CVTRV213 EQU CVTRV210 07145000 CVTRV212 EQU CVTRV210 07146000 CVTRV211 EQU CVTRV210 07147000 CVTLCCAT EQU CVTS01+420 07148000 CVTPCCAT EQU CVTS01+416 07149000 CVTIPCRP EQU CVTS01+412 07150000 CVTIPCRI EQU CVTS01+408 07151000 CVTIPCDS EQU CVTS01+404 07152000 CVTAIDVT EQU CVTS01+400 07153000 CVTSSAP EQU CVTS01+396 07154000 CVTEHCIR EQU CVTS01+392 07155000 CVTEHDEF EQU CVTS01+388 07156000 CVTDAIR EQU CVTS01+384 07157000 CVTPERFM EQU CVTS01+380 07158000 CVT044R2 EQU CVTS01+376 07159000 CVTFETCH EQU CVTS01+372 07160000 CVTRSTWD EQU CVTS01+368 07161000 CVTSPOST EQU CVTS01+364 07162000 CVTIOBP EQU CVTS01+360 07163000 CVTASMVT EQU CVTS01+356 07164000 CVTRECRQ EQU CVTS01+352 07165000 CVTWSAC EQU CVTS01+348 07166000 CVTRV149 EQU CVTS01+344 07167000 CVTWSAL EQU CVTS01+340 07168000 CVTSPSA EQU CVTS01+336 07169000 CVTGLMN EQU CVTS01+332 07170000 CVTVEAC0 EQU CVTS01+328 07171000 CVT062R1 EQU CVTS01+324 07172000 CVTRPOST EQU CVTS01+320 07173000 CVTDQIQE EQU CVTS01+316 07174000 CVTCSD EQU CVTS01+312 07175000 CVTLKRMA EQU CVTS01+308 07176000 CVTRSPIE EQU CVTS01+304 07177000 CVTRENQ EQU CVTS01+300 07178000 CVTLQCB EQU CVTS01+296 07179000 CVTFQCB EQU CVTS01+292 07180000 CVTQCS01 EQU CVTS01+288 07181000 CVTAPFT EQU CVTS01+284 07182000 CVTPARRL EQU CVTS01+280 07183000 CVTVWAIT EQU CVTS01+276 07184000 CVTGSPL EQU CVTS01+272 07185000 CVTLSMQ EQU CVTS01+268 07186000 CVTGSMQ EQU CVTS01+264 07187000 CVTEXPRO EQU CVTS01+260 07188000 CVTOPCTP EQU CVTS01+256 07189000 CVTSIC EQU CVTS01+252 07190000 CVTTPIOS EQU CVTS01+248 07191000 CVTRTMS EQU CVTS01+244 07192000 CVTSDBF EQU CVTS01+240 07193000 CVTSCBP EQU CVTS01+236 07194000 CVTSDMP EQU CVTS01+232 07195000 CVTSV60 EQU CVTS01+228 07196000 CVTRTMCT EQU CVTS01+224 07197000 CVTASCBL EQU CVTS01+220 07198000 CVTASCBH EQU CVTS01+216 07199000 CVTGDA EQU CVTS01+212 07200000 CVTASVT EQU CVTS01+208 07201000 CVTVVMDI EQU CVTS01+204 07202000 CVTAQTOP EQU CVTS01+200 07203000 CVTIOSCS EQU CVTS01+196 07204000 CVTSDRM EQU CVTS01+192 07205000 CVTOPTE EQU CVTS01+188 07206000 CVTSTXU EQU CVTS01+184 07207000 CVTQUIS EQU CVTS01+180 07208000 CVTPARS EQU CVTS01+176 07209000 CVTS1EE EQU CVTS01+172 07210000 CVTFRAS EQU CVTS01+168 07211000 CVTQSAS EQU CVTS01+164 07212000 CVTCRAS EQU CVTS01+160 07213000 CVTCRMN EQU CVTS01+156 07214000 CVTDELCP EQU CVTS01+152 07215000 CVTFRECL EQU CVTS01+148 07216000 CVTGETCL EQU CVTS01+144 07217000 CVTBLDCP EQU CVTS01+140 07218000 CVTAUTHL EQU CVTS01+136 07219000 CVTSCAN EQU CVTS01+132 07220000 CVTRV144 EQU CVTS01+130 07221000 CVTMAXMP EQU CVTS01+128 07222000 CVTSTCK EQU CVTS01+124 07223000 CVTRV139 EQU CVTS01+123 07224000 CVTDSSAC EQU CVTS01+122 07225000 CVTRV513 EQU CVTS01+121 07226000 CVTIOSPL EQU CVTS01+120 07227000 CVTPTGT EQU CVTS01+116 07228000 CVTCSPIE EQU CVTS01+112 07229000 CVTSMFEX EQU CVTS01+108 07230000 CVTOLT0A EQU CVTS01+104 07231000 CVTSRBRT EQU CVTS01+100 07232000 CVTPUTL EQU CVTS01+96 07233000 CVTASCRL EQU CVTS01+92 07234000 CVTASCRF EQU CVTS01+88 07235000 CVTRV326 EQU CVTS01+84 07236000 CVTRV325 EQU CVTS01+80 07237000 CVTRV324 EQU CVTS01+76 07238000 CVT0VL01 EQU CVTS01+72 07239000 CVTSHRVM EQU CVTS01+68 07240000 CVTRV332 EQU CVTS01+64 07241000 CVTTAS EQU CVTS01+60 07242000 CVTRSCN EQU CVTS01+56 07243000 CVTTRAC2 EQU CVTS01+54 07244000 CVTTRACE EQU CVTS01+52 07245000 CVTAPG EQU CVTS01+51 07246000 CVTSDTRC EQU CVTCTLFG 07247000 CVTGTRCE EQU CVTCTLFG 07248000 CVTNOMP EQU CVTCTLFG 07249000 CVTRSV79 EQU CVTCTLFG 07250000 CVTDSTAT EQU CVTCTLFG 07251000 CVTRSV78 EQU CVTCTLFG 07252000 CVTRV333 EQU CVTCTLFG 07253000 CVTRV323 EQU CVTCTLFG 07254000 CVTSPVLK EQU CVTS01+49 07255000 CVTRSV77 EQU CVTS01+48 07256000 CVTRV331 EQU CVTS01+44 07257000 CVTRV330 EQU CVTS01+40 07258000 CVTRV329 EQU CVTS01+36 07259000 CVTRV328 EQU CVTS01+32 07260000 CVTRV322 EQU CVTS01+28 07261000 CVTSLID EQU CVTSLIDA+1 07262000 CVTSYLK EQU CVTSLIDA 07263000 CVTRV321 EQU CVTS01+20 07264000 CVTRV320 EQU CVTS01+16 07265000 CVTLPDIR EQU CVTLPDIA+1 07266000 CVTRSV69 EQU CVTDIRST 07267000 CVTRSV68 EQU CVTDIRST 07268000 CVTRSV67 EQU CVTDIRST 07269000 CVTRSV66 EQU CVTDIRST 07270000 CVTRSV65 EQU CVTDIRST 07271000 CVTRSV64 EQU CVTDIRST 07272000 CVTRSV63 EQU CVTDIRST 07273000 CVTDICOM EQU CVTDIRST 07274000 CVTPVTP EQU CVTS01+8 07275000 CVTLPDSR EQU CVTS01+4 07276000 CVTGETL EQU CVTS01 07277000 UCBRV066 EQU UCBOBS09+4 07278000 UCBIOSBA EQU UCBOBS09 07279000 UCBRV042 EQU UCBOBS08+5 07280000 UCBRV082 EQU UCBCTCF1 07281000 UCBRV081 EQU UCBCTCF1 07282000 UCBRV080 EQU UCBCTCF1 07283000 UCBRV079 EQU UCBCTCF1 07284000 UCBRV078 EQU UCBCTCF1 07285000 UCBRV077 EQU UCBCTCF1 07286000 UCBRV076 EQU UCBCTCF1 07287000 UCBCTC80 EQU UCBCTCF1 07288000 UCBCTCAL EQU UCBCTCAD 07289000 UCBICNCB EQU UCBOBS07+4 07290000 UCBRV040 EQU UCBOBS07 07291000 UCBCTLNA EQU UCBCTLNK+1 07292000 UCBRLN EQU UCBCTLNK 07293000 UCBRDYQA EQU UCBLDNCB 07294000 UCBINRLN EQU UCBIRLN 07295000 UCBIRBA EQU UCBIRB+1 07296000 UCBRV039 EQU UCBGRAF 07297000 UCBDWNR EQU UCBGRAF 07298000 UCBRPND EQU UCBGRAF 07299000 UCBUPM EQU UCBGRAF 07300000 UCBBTAM EQU UCBGRAF 07301000 UCBDRNO EQU UCBGRAF 07302000 UCBDRO EQU UCBGRAF 07303000 UCBOIP EQU UCBGRAF 07304000 UCBATRCD EQU @NM00044 07305000 UCBSKPFG EQU @NM00044 07306000 UCBRIPND EQU @NM00044 07307000 UCBRTIAC EQU @NM00044 07308000 UCBRSV79 EQU @NM00044 07309000 UCBRSV78 EQU @NM00044 07310000 UCBRSV77 EQU @NM00044 07311000 UCBOLTEP EQU @NM00044 07312000 UCBATNCT EQU UCBOBS06+2 07313000 UCBRSV76 EQU UCBAOF2 07314000 UCBRSV75 EQU UCBAOF2 07315000 UCBRSV74 EQU UCBAOF2 07316000 UCBRSV73 EQU UCBAOF2 07317000 UCBRSV72 EQU UCBAOF2 07318000 UCBRSV71 EQU UCBAOF2 07319000 UCBRSV70 EQU UCBAOF2 07320000 UCBRSV69 EQU UCBAOF2 07321000 UCBRSV68 EQU UCBAOF1 07322000 UCBRSV67 EQU UCBAOF1 07323000 UCBRSV66 EQU UCBAOF1 07324000 UCBRSV65 EQU UCBAOF1 07325000 UCBRSV64 EQU UCBAOF1 07326000 UCBOFNL EQU UCBAOF1 07327000 UCBOFSP EQU UCBAOF1 07328000 UCBOFMCR EQU UCBAOF1 07329000 UCBBTB EQU UCBBTA+1 07330000 UCBDI EQU UCBBTA 07331000 UCBSNS EQU UCBOBS04+8 07332000 UCBTEB EQU UCBOBS04+4 07333000 UCBGCB EQU UCBOBS04+3 07334000 UCBOPEN EQU UCBOBS04+2 07335000 UCBSTART EQU UCBOBS04 07336000 UCBXTNB EQU UCBXTN+1 07337000 UCBRSV22 EQU UCBVOPT 07338000 UCBRSV21 EQU UCBVOPT 07339000 UCBRSV20 EQU UCBVOPT 07340000 UCBESVE EQU UCBVOPT 07341000 UCBERPC EQU UCBVOPT 07342000 UCBESVC EQU UCBVOPT 07343000 UCBEVA EQU UCBVOPT 07344000 UCBESV EQU UCBVOPT 07345000 UCBRV009 EQU UCBTFL1 07346000 UCBRV008 EQU UCBTFL1 07347000 UCBRV007 EQU UCBTFL1 07348000 UCBRV006 EQU UCBTFL1 07349000 UCBRV005 EQU UCBTFL1 07350000 UCBDQDSP EQU UCBTFL1 07351000 UCBNSLTP EQU UCBTFL1 07352000 UCBNLTP EQU UCBTFL1 07353000 UCBRES1B EQU UCBOBS02+18 07354000 UCBFSER EQU UCBOBS02+12 07355000 @NM00043 EQU UCBOBS02+4 07356000 UCBFSEQ EQU UCBOBS02+2 07357000 UCBFSCT EQU UCBOBS02 07358000 UCBNEXP EQU UCBOBS01+20 07359000 UCBBASE EQU UCBOBS01+16 07360000 UCBRES1A EQU UCBOBS01+15 07361000 UCBUSER EQU UCBOBS01+14 07362000 UCBFL47 EQU UCBFL4 07363000 UCBFL46 EQU UCBFL4 07364000 UCBFL45 EQU UCBFL4 07365000 UCBRV065 EQU UCBFL4 07366000 UCBDSS EQU UCBFL4 07367000 UCBRESVP EQU UCBFL4 07368000 UCBWDAV EQU UCBFL4 07369000 UCBDAVV EQU UCBFL4 07370000 UCBSQC EQU UCBOBS01+12 07371000 UCBDATP EQU UCBOBS01+12 07372000 UCBDMC EQU UCBDMCT 07373000 UCBMOUNT EQU UCBDMCT 07374000 UCBBNUL EQU UCBSTAB 07375000 UCBSHAR EQU UCBSTAB 07376000 UCBBSTR EQU UCBSTAB 07377000 UCBBPUB EQU UCBSTAB 07378000 UCBBPRV EQU UCBSTAB 07379000 UCBBALB EQU UCBPRSRS 07380000 UCBPGFL EQU UCBSTAB 07381000 UCBDVSHR EQU UCBBSVL 07382000 DEBEXPTA EQU DEBEXPT+1 07383000 DEBRSV12 EQU DEBRPSID 07384000 DEBRSV11 EQU DEBRPSID 07385000 DEBRSV10 EQU DEBRPSID 07386000 DEBRSV09 EQU DEBRPSID 07387000 DEBRPSAP EQU DEBRPSID 07388000 DEBRPSO EQU DEBRPSID 07389000 DEBRPSI EQU DEBRPSID 07390000 DEBRPSP EQU DEBRPSID 07391000 DEBFOEB EQU DEBFOEAD+1 07392000 DEBNOEE EQU DEBFOEAD 07393000 DEBFPEB EQU DEBFPEAD+1 07394000 DEBNPEE EQU DEBFPEAD 07395000 DEBFIEB EQU DEBFIEAD+1 07396000 DEBNIEE EQU DEBFIEAD 07397000 DEBBOESS EQU DEBEODSS 07398000 DEBBOE0 EQU DEBEOD0 07399000 DEBBOETT EQU DEBEODTT 07400000 DEBBOERV EQU DEBEODRV 07401000 DEBRV008 EQU DEBDSID+7 07402000 DEBWTPTI EQU DEBDSID+6 07403000 DEBEXDTE EQU DEBDSID 07404000 DEBRV007 EQU DEBEAMFG 07405000 DEBRV006 EQU DEBEAMFG 07406000 DEBRV005 EQU DEBEAMFG 07407000 DEBRV004 EQU DEBEAMFG 07408000 DEBSECVL EQU DEBEAMFG 07409000 DEBVAMSG EQU DEBEAMFG 07410000 DEBDSOPN EQU DEBEAMFG 07411000 DEBMULTI EQU DEBEAMFG 07412000 DEBVSEQU EQU DEBASC09+2 07413000 DEBDSSQL EQU DEBASC09+1 07414000 DEBVOLAC EQU DEBASC09 07415000 DEBWDCBA EQU DEBWDCB+1 07416000 DEBRSV08 EQU DEBWDCB 07417000 DEBPDCBA EQU DEBPDCB+1 07418000 DEBRSV07 EQU DEBPDCB 07419000 DEBRDCBA EQU DEBRDCB+1 07420000 DEBRSV06 EQU DEBRDCB 07421000 DEBSUCBB EQU DEBSUCBA+1 07422000 DEBSDVM EQU DEBSUCBA 07423000 GDTCVR EQU GDTTBL+184 07424000 GDTSPR EQU GDTTBL+164 07425000 GDTABH EQU GDTTBL+156 07426000 GDTABT EQU GDTTBL+152 07427000 GDTTOH EQU GDTTBL+132 07428000 GDTRIP EQU GDTTBL+128 07429000 GDTIOH EQU GDTTBL+36 07430000 GDTSAH EQU GDTTBL+32 07431000 GDTTPH EQU GDTTBL+28 07432000 GDTRIH EQU GDTTBL+24 07433000 GDTSTH EQU GDTTBL+20 07434000 GDTDBH EQU GDTTBL+16 07435000 GDTPRM EQU GDTTBL+4 07436000 GDTHDR EQU GDTTBL 07437000 @NM00052 EQU DWRDTCB 07438000 @NM00051 EQU TCBXTNT2+32 07439000 TCBRV181 EQU TCBRV173 07440000 TCBRV180 EQU TCBRV173 07441000 TCBRV179 EQU TCBRV173 07442000 TCBRV178 EQU TCBRV173 07443000 TCBRV177 EQU TCBRV173 07444000 TCBRV176 EQU TCBRV173 07445000 TCBRV175 EQU TCBRV173 07446000 TCBRV174 EQU TCBRV173 07447000 TCBRV172 EQU TCBRV164 07448000 TCBRV171 EQU TCBRV164 07449000 TCBRV170 EQU TCBRV164 07450000 TCBRV169 EQU TCBRV164 07451000 TCBRV168 EQU TCBRV164 07452000 TCBRV167 EQU TCBRV164 07453000 TCBRV166 EQU TCBRV164 07454000 TCBRV165 EQU TCBRV164 07455000 TCBRV163 EQU TCBRV155 07456000 TCBRV162 EQU TCBRV155 07457000 TCBRV161 EQU TCBRV155 07458000 TCBRV160 EQU TCBRV155 07459000 TCBRV159 EQU TCBRV155 07460000 TCBRV158 EQU TCBRV155 07461000 TCBRV157 EQU TCBRV155 07462000 TCBRV156 EQU TCBRV155 07463000 TCBRV154 EQU TCBRV146 07464000 TCBRV153 EQU TCBRV146 07465000 TCBRV152 EQU TCBRV146 07466000 TCBRV151 EQU TCBRV146 07467000 TCBRV150 EQU TCBRV146 07468000 TCBRV149 EQU TCBRV146 07469000 TCBRV148 EQU TCBRV146 07470000 TCBRV147 EQU TCBRV146 07471000 TCBRV145 EQU TCBXTNT2+26 07472000 TCBRV144 EQU TCBXTNT2+24 07473000 TCBRV143 EQU TCBXTNT2+20 07474000 TCBRV142 EQU TCBXTNT2+16 07475000 TCBRSV49 EQU TCBXTNT2+12 07476000 TCBEVENT EQU TCBXTNT2+8 07477000 TCBRCMP EQU TCBXTNT2+5 07478000 TCBRSVAB EQU TCBXTNT2+4 07479000 TCBGTFA EQU TCBGTF+1 07480000 TCBRSV47 EQU TCBTFLG 07481000 TCBRSV46 EQU TCBTFLG 07482000 TCBRSV45 EQU TCBTFLG 07483000 TCBRSV44 EQU TCBTFLG 07484000 TCBRSV43 EQU TCBTFLG 07485000 TCBDSPIT EQU TCBTFLG 07486000 TCBERRTN EQU TCBTFLG 07487000 TCBASYNC EQU TCBTFLG 07488000 @NM00050 EQU TCB+296 07489000 TCBSVCA2 EQU TCB+292 07490000 TCBSWASA EQU TCB+288 07491000 TCBDBTB EQU TCB+284 07492000 TCBRPT EQU TCB+280 07493000 TCBRV141 EQU TCBRV133 07494000 TCBRV140 EQU TCBRV133 07495000 TCBRV139 EQU TCBRV133 07496000 TCBRV138 EQU TCBRV133 07497000 TCBRV137 EQU TCBRV133 07498000 TCBRV136 EQU TCBRV133 07499000 TCBRV135 EQU TCBRV133 07500000 TCBRV134 EQU TCBRV133 07501000 TCBRV132 EQU TCBRV124 07502000 TCBRV131 EQU TCBRV124 07503000 TCBRV130 EQU TCBRV124 07504000 TCBRV129 EQU TCBRV124 07505000 TCBRV128 EQU TCBRV124 07506000 TCBRV127 EQU TCBRV124 07507000 TCBRV126 EQU TCBRV124 07508000 TCBRV125 EQU TCBRV124 07509000 TCBRV123 EQU TCBFBYT2 07510000 TCBRV122 EQU TCBFBYT2 07511000 TCBECBNV EQU TCBFBYT2 07512000 TCBSSSYN EQU TCBFBYT2 07513000 TCBFPRAP EQU TCBFBYT2 07514000 TCBFDW EQU TCBFBYT2 07515000 TCBFMW EQU TCBFBYT2 07516000 TCBCNCB EQU TCBFBYT2 07517000 TCBLLH EQU TCBFBYT1 07518000 TCBRV113 EQU TCBFBYT1 07519000 TCBEOT EQU TCBFBYT1 07520000 TCBRTM2 EQU TCBFBYT1 07521000 TCBPGNLY EQU TCBFBYT1 07522000 TCBNDIOS EQU TCBFBYT1 07523000 TCBACTIV EQU TCBFBYT1 07524000 TCBEOTFM EQU TCBFBYT1 07525000 TCBAFFN EQU TCB+274 07526000 TCBCCPVI EQU TCB+272 07527000 TCBUKYSP EQU TCB+268 07528000 TCBMODE EQU TCBESTAE+3 07529000 TCBERTYP EQU TCBESTAE+2 07530000 TCBRV314 EQU TCBESTRM 07531000 TCBRV313 EQU TCBESTRM 07532000 TCBRV312 EQU TCBESTRM 07533000 TCBRV311 EQU TCBESTRM 07534000 TCBRV310 EQU TCBESTRM 07535000 TCBRV309 EQU TCBESTRM 07536000 TCBRV308 EQU TCBESTRM 07537000 TCBETERM EQU TCBESTRM 07538000 TCBSCBKY EQU TCBESTAE 07539000 TCBRTM12 EQU TCB+260 07540000 TCBTCBID EQU TCB+256 07541000 TCBRSV96 EQU TCB+252 07542000 TCBSWA EQU TCB+248 07543000 TCBFOEA EQU TCBFOE+1 07544000 TCBRSV42 EQU TCBFOE 07545000 TCBRV306 EQU TCB+240 07546000 TCBRSV41 EQU TCB+239 07547000 TCBTID EQU TCB+238 07548000 TCBRSVAA EQU TCB+237 07549000 TCBABCUR EQU TCB+236 07550000 TCBTMSAV EQU TCB+232 07551000 TCBIOTIM EQU TCB+228 07552000 TCBRTWA EQU TCB+224 07553000 TCBBACK EQU TCB+220 07554000 TCBTIRB EQU TCB+216 07555000 TCBAECB EQU TCB+212 07556000 TCBEXT2A EQU TCBEXT2+1 07557000 TCBRSV39 EQU TCBEXT2 07558000 TCBSTMCT EQU TCB+207 07559000 TCBSYSCT EQU TCB+206 07560000 TCBRSV37 EQU TCB+205 07561000 TCBEXSVC EQU TCBDAR 07562000 TCBDARMS EQU TCBDAR 07563000 TCBDARWT EQU TCBDAR 07564000 TCBDARO EQU TCBDAR 07565000 TCBDARMC EQU TCBDARC 07566000 TCBDARD EQU TCBDAR 07567000 TCBDARS EQU TCBDAR 07568000 TCBDARP EQU TCBDAR 07569000 TCBGTOFM EQU TCBFLGS7 07570000 TCBADMP EQU TCBFLGS7 07571000 TCBRSTSK EQU TCBFLGS7 07572000 TCBSVCS EQU TCBFLGS7 07573000 TCBSTACK EQU TCBFLGS7 07574000 TCBRSV34 EQU TCBFLGS7 07575000 TCBRSV33 EQU TCBFLGS7 07576000 TCBGPECB EQU TCBFLGS7 07577000 TCBNTJS EQU TCBFLGS6 07578000 TCBAPG EQU TCBFLGS6 07579000 TCBMIGR EQU TCBFLGS6 07580000 TCBRV303 EQU TCBFLGS6 07581000 TCBSPVLK EQU TCBFLGS6 07582000 TCBCPU EQU TCBFLGS6 07583000 TCBPIE17 EQU TCBFLGS6 07584000 TCBRV EQU TCBFLGS6 07585000 TCBRSV79 EQU TCBNDSP5 07586000 TCBRSV78 EQU TCBNDSP5 07587000 TCBRSV77 EQU TCBNDSP5 07588000 TCBRSV76 EQU TCBNDSP5 07589000 TCBRSV75 EQU TCBNDSP5 07590000 TCBRSV74 EQU TCBNDSP5 07591000 TCBRSV95 EQU TCBNDSP5 07592000 TCBRSV94 EQU TCBNDSP5 07593000 TCBRSV93 EQU TCBNDSP4 07594000 TCBRSV92 EQU TCBNDSP4 07595000 TCBRSV91 EQU TCBNDSP4 07596000 TCBRSV90 EQU TCBNDSP4 07597000 TCBRSV89 EQU TCBNDSP4 07598000 TCBRSV88 EQU TCBNDSP4 07599000 TCBRSV87 EQU TCBNDSP4 07600000 TCBRSV86 EQU TCBNDSP4 07601000 TCBEXT1A EQU TCBEXT1+1 07602000 TCBRSV32 EQU TCBEXT1 07603000 TCBEXCPD EQU TCB+192 07604000 TCBIOBRC EQU TCB+188 07605000 TCBDDWTC EQU TCB+186 07606000 TCBDDEXC EQU TCB+184 07607000 TCBJSCBB EQU TCBJSCB+1 07608000 @NM00049 EQU TCBRECDE 07609000 TCBREC EQU TCBRECDE 07610000 TCBMDIDS EQU TCB+176 07611000 TCBNDINT EQU TCBNDSP3 07612000 TCBRSV27 EQU TCBNDSP3 07613000 TCBRSV26 EQU TCBNDSP3 07614000 TCBRSV25 EQU TCBNDSP3 07615000 TCBRSV24 EQU TCBNDSP3 07616000 TCBSRBND EQU TCBNDSP3 07617000 TCBRV302 EQU TCBNDSP3 07618000 TCBLJSND EQU TCBNDSP3 07619000 TCBABE EQU TCBNDSP2 07620000 TCBDSS EQU TCBNDSP2 07621000 TCBOWAIT EQU TCBNDSP2 07622000 TCBIWAIT EQU TCBNDSP2 07623000 TCBNDTS EQU TCBNDSP2 07624000 TCBNDSVC EQU TCBNDSP2 07625000 TCBSTPP EQU TCBNDSP2 07626000 TCBABD EQU TCBNDSP2 07627000 TCBRSV22 EQU TCBNDSP1 07628000 TCBPIEND EQU TCBNDSP1 07629000 TCBTPSP EQU TCBNDSP1 07630000 TCBDDRND EQU TCBNDSP1 07631000 TCBRSPND EQU TCBNDSP1 07632000 TCBRSTND EQU TCBNDSP1 07633000 TCBDARPN EQU TCBNDSP1 07634000 TCBDARTN EQU TCBNDSP1 07635000 TCBNDSP0 EQU TCBNDSP 07636000 TCBUSER EQU TCB+168 07637000 TCBTCTB EQU TCBTCT+1 07638000 TCBRSV9C EQU TCBTCTGF 07639000 TCBRSV9B EQU TCBTCTGF 07640000 TCBRSV9A EQU TCBTCTGF 07641000 TCBRSV99 EQU TCBTCTGF 07642000 TCBRSV98 EQU TCBTCTGF 07643000 TCBRSV97 EQU TCBTCTGF 07644000 TCBRSV20 EQU TCBTCTGF 07645000 TCBSMFGF EQU TCBTCTGF 07646000 TCBSTABB EQU TCBSTAB+1 07647000 TCBSTCUR EQU TCBNSTAE 07648000 TCBRV301 EQU TCBNSTAE 07649000 TCBSYNCH EQU TCBNSTAE 07650000 TCBHALT EQU TCBNSTAE 07651000 TCBPPSUP EQU TCBNSTAE 07652000 TCB33E EQU TCBNSTAE 07653000 TCBQUIES EQU TCBNSTAE 07654000 TCBSTABE EQU TCBNSTAE 07655000 TCBAQE EQU TCB+156 07656000 TCBPQE EQU TCB+152 07657000 TCBTSDP EQU TCB+151 07658000 TCBTSLP EQU TCB+150 07659000 TCBSTPCT EQU TCB+149 07660000 TCBCPUBN EQU TCBTSFLG 07661000 TCBDYDSP EQU TCBTSFLG 07662000 TCBRSV18 EQU TCBTSFLG 07663000 TCBRSV17 EQU TCBTSFLG 07664000 TCBTIOTG EQU TCBTSFLG 07665000 TCBATT EQU TCBTSFLG 07666000 TCBSTPPR EQU TCBTSFLG 07667000 TCBRV300 EQU TCBTSTSK 07668000 TCBECB EQU TCB+144 07669000 TCBIQE EQU TCB+140 07670000 TCBLTC EQU TCB+136 07671000 TCBOTC EQU TCB+132 07672000 TCBNTC EQU TCB+128 07673000 TCBJSTCA EQU TCBJSTCB+1 07674000 TCBRSV16 EQU TCBJSTCB 07675000 TCBTQET EQU TCBTME 07676000 TCBTCB EQU TCB+116 07677000 TCBFSAB EQU TCBFSA+1 07678000 TCBQEL EQU TCBFSA 07679000 TCBGRS15 EQU TCBGRS+60 07680000 TCBGRS14 EQU TCBGRS+56 07681000 TCBGRS13 EQU TCBGRS+52 07682000 TCBGRS12 EQU TCBGRS+48 07683000 TCBGRS11 EQU TCBGRS+44 07684000 TCBGRS10 EQU TCBGRS+40 07685000 TCBGRS9 EQU TCBGRS+36 07686000 TCBGRS8 EQU TCBGRS+32 07687000 TCBGRS7 EQU TCBGRS+28 07688000 TCBGRS6 EQU TCBGRS+24 07689000 TCBGRS5 EQU TCBGRS+20 07690000 TCBGRS4 EQU TCBGRS+16 07691000 TCBGRS3 EQU TCBGRS+12 07692000 TCBGRS2 EQU TCBGRS+8 07693000 TCBGRS1 EQU TCBGRS+4 07694000 TCBGRS0 EQU TCBGRS 07695000 TCBJPQB EQU TCBJPQ+1 07696000 TCBRSV15 EQU TCBPURGE 07697000 TCBRSV14 EQU TCBPURGE 07698000 TCBRSV13 EQU TCBPURGE 07699000 TCBRSV12 EQU TCBPURGE 07700000 TCBRSV11 EQU TCBPURGE 07701000 TCBRSV10 EQU TCBPURGE 07702000 TCBRSV09 EQU TCBPURGE 07703000 TCBJPQF EQU TCBPURGE 07704000 TCBJLB EQU TCB+40 07705000 TCBLLS EQU TCB+36 07706000 TCBDSP EQU TCB+35 07707000 TCBLMP EQU TCB+34 07708000 TCBPNDSP EQU TCBFLGS5 07709000 TCBFCD1 EQU TCBFLGS5 07710000 TCBSTP EQU TCBFLGS5 07711000 TCBSYS EQU TCBFLGS5 07712000 TCBANDSP EQU TCBFLGS5 07713000 TCBPAGE EQU TCBFLGS5 07714000 TCBUXNDF EQU TCBABWF 07715000 TCBFC EQU TCBFLGS5 07716000 TCBONDSP EQU TCBFLGS4 07717000 TCBMPCND EQU TCBFLGS4 07718000 TCBMPCVQ EQU TCBFLGS4 07719000 TCBUXNDV EQU TCBFLGS4 07720000 TCBHNDSP EQU TCBFLGS4 07721000 TCBRQENA EQU TCBFLGS4 07722000 TCBSER EQU TCBFLGS4 07723000 TCBNDUMP EQU TCBFLGS4 07724000 TCBDWSTA EQU TCBFLGS3 07725000 TCBRSV08 EQU TCBFLGS3 07726000 TCBRSV07 EQU TCBFLGS3 07727000 TCBRSV06 EQU TCBFLGS3 07728000 TCBABGM EQU TCBFLGS3 07729000 TCBABTRM EQU TCBFLGS3 07730000 TCBADINP EQU TCBFLGS3 07731000 TCBFSM EQU TCBFLGS3 07732000 TCBFTS EQU TCBFLGS2 07733000 TCBFETXR EQU TCBFLGS2 07734000 TCBFDSOP EQU TCBFLGS2 07735000 TCBFJMC EQU TCBFLGS2 07736000 TCBFSMC EQU TCBFLGS2 07737000 TCBFABOP EQU TCBFLGS2 07738000 TCBFSTI EQU TCBFLGS2 07739000 TCBFOINP EQU TCBFLGS2 07740000 TCBFX EQU TCBFLGS1 07741000 TCBFS EQU TCBFLGS1 07742000 TCBFT EQU TCBFLGS1 07743000 TCBPDUMP EQU TCBFLGS1 07744000 TCBNONPR EQU TCBFLGS1 07745000 TCBFERA EQU TCBFLGS1 07746000 TCBFE EQU TCBFLGS1 07747000 TCBFA EQU TCBFLGS1 07748000 TCBZERO EQU TCBPKF 07749000 TCBFLAG EQU TCBPKF 07750000 TCBMSSB EQU TCBMSS+1 07751000 TCBRSV03 EQU TCBMSS 07752000 TCBTRNB EQU TCBTRN+1 07753000 TCBRSV02 EQU TCBABF 07754000 TCBOLTEP EQU TCBABF 07755000 TCBTCP EQU TCBABF 07756000 TCBTCPP EQU TCBABF 07757000 TCBRSV01 EQU TCBABF 07758000 TCBGRPH EQU TCBABF 07759000 TCBNOCHK EQU TCBABF 07760000 TCBMOD91 EQU TCBABF 07761000 TCBCMPC EQU TCBCMP+1 07762000 TCBRV318 EQU TCBCMSG 07763000 TCBRV317 EQU TCBCIND 07764000 TCBRV316 EQU TCBCWTO 07765000 TCBCASID EQU TCBCDBL 07766000 TCBNOCC EQU TCBSTCC 07767000 TCBDMPO EQU TCBCPP 07768000 TCBCSTEP EQU TCBCMPF 07769000 TCBCREQ EQU TCBCMPF 07770000 TCBTIO EQU TCB+12 07771000 TCBPIEA EQU TCBPIE+1 07772000 TCBPM EQU TCBPMASK 07773000 @NM00048 EQU TCBPMASK 07774000 TCBRBP EQU TCB 07775000 TCBFRS6 EQU TCBFRS+24 07776000 TCBFRS4 EQU TCBFRS+16 07777000 TCBFRS2 EQU TCBFRS+8 07778000 TCBFRS0 EQU TCBFRS 07779000 CVTLEVL EQU CVTRELNO+2 07780000 CVTNUMB EQU CVTRELNO 07781000 CVTMDL EQU CVTFIX+250 07782000 @NM00047 EQU CVTFIX+248 07783000 @NM00046 EQU CVTFIX 07784000 CVTRV482 EQU CVTXTNT2+128 07785000 CVTRV481 EQU CVTXTNT2+124 07786000 CVTRV480 EQU CVTXTNT2+120 07787000 CVTRV479 EQU CVTXTNT2+118 07788000 CVTRV478 EQU CVTXTNT2+117 07789000 CVTRV477 EQU CVTXTNT2+116 07790000 CVTRV476 EQU CVTXTNT2+115 07791000 CVTRV475 EQU CVTXTNT2+114 07792000 CVTRV474 EQU CVTRV466 07793000 CVTRV473 EQU CVTRV466 07794000 CVTRV472 EQU CVTRV466 07795000 CVTRV471 EQU CVTRV466 07796000 CVTRV470 EQU CVTRV466 07797000 CVTRV469 EQU CVTRV466 07798000 CVTRV468 EQU CVTRV466 07799000 CVTRV467 EQU CVTRV466 07800000 CVTRV465 EQU CVTRV457 07801000 CVTRV464 EQU CVTRV457 07802000 CVTRV463 EQU CVTRV457 07803000 CVTRV462 EQU CVTRV457 07804000 CVTRV461 EQU CVTRV457 07805000 CVTRV460 EQU CVTRV457 07806000 CVTRV459 EQU CVTRV457 07807000 CVTRV458 EQU CVTRV457 07808000 CVTRV456 EQU CVTXTNT2+108 07809000 CVTRV455 EQU CVTXTNT2+104 07810000 CVTRV454 EQU CVTXTNT2+100 07811000 CVTRV453 EQU CVTXTNT2+96 07812000 CVTRV452 EQU CVTXTNT2+94 07813000 CVTRV451 EQU CVTXTNT2+92 07814000 CVTRV450 EQU CVTXTNT2+90 07815000 CVTRV449 EQU CVTXTNT2+88 07816000 CVTRV448 EQU CVTXTNT2+87 07817000 CVTRV447 EQU CVTXTNT2+86 07818000 CVTRV446 EQU CVTRV438 07819000 CVTRV445 EQU CVTRV438 07820000 CVTRV444 EQU CVTRV438 07821000 CVTRV443 EQU CVTRV438 07822000 CVTRV442 EQU CVTRV438 07823000 CVTRV441 EQU CVTRV438 07824000 CVTRV440 EQU CVTRV438 07825000 CVTRV439 EQU CVTRV438 07826000 CVTRV437 EQU CVTRV429 07827000 CVTRV436 EQU CVTRV429 07828000 CVTRV435 EQU CVTRV429 07829000 CVTRV434 EQU CVTRV429 07830000 CVTRV433 EQU CVTRV429 07831000 CVTRV432 EQU CVTRV429 07832000 CVTRV431 EQU CVTRV429 07833000 CVTRV430 EQU CVTRV429 07834000 CVTRV428 EQU CVTXTNT2+80 07835000 CVTRV427 EQU CVTXTNT2+76 07836000 CVTRV426 EQU CVTXTNT2+72 07837000 CVTRV425 EQU CVTXTNT2+68 07838000 CVTATACT EQU CVTATCVT 07839000 CVTRV423 EQU CVTXTNT2+62 07840000 CVTRV422 EQU CVTXTNT2+60 07841000 CVTRV421 EQU CVTXTNT2+58 07842000 CVTRV420 EQU CVTXTNT2+56 07843000 CVTRV419 EQU CVTXTNT2+55 07844000 CVTRV418 EQU CVTXTNT2+54 07845000 CVTRV417 EQU CVTRV409 07846000 CVTRV416 EQU CVTRV409 07847000 CVTRV415 EQU CVTRV409 07848000 CVTRV414 EQU CVTRV409 07849000 CVTRV413 EQU CVTRV409 07850000 CVTRV412 EQU CVTRV409 07851000 CVTRV411 EQU CVTRV409 07852000 CVTRV410 EQU CVTRV409 07853000 CVTRV408 EQU CVTRV400 07854000 CVTRV407 EQU CVTRV400 07855000 CVTRV406 EQU CVTRV400 07856000 CVTRV405 EQU CVTRV400 07857000 CVTRV404 EQU CVTRV400 07858000 CVTRV403 EQU CVTRV400 07859000 CVTRV402 EQU CVTRV400 07860000 CVTRV401 EQU CVTRV400 07861000 CVTICB EQU CVTXTNT2+48 07862000 CVTSKTA EQU CVTXTNT2+44 07863000 CVTRSV99 EQU CVTXTNT2+40 07864000 CVTRSV98 EQU CVTXTNT2+36 07865000 CVTRSV97 EQU CVTXTNT2+34 07866000 CVTRSV96 EQU CVTXTNT2+32 07867000 CVTOLTEP EQU CVTXTNT2+28 07868000 CVTQIDA EQU CVTQID+1 07869000 CVTRSV95 EQU CVTQID 07870000 CVTRSV94 EQU CVTXTNT2+20 07871000 CVTRSV93 EQU CVTXTNT2+16 07872000 CVTRSV92 EQU CVTXTNT2+12 07873000 CVTDEBVR EQU CVTXTNT2+8 07874000 CVTRSV91 EQU CVTXTNT2+6 07875000 CVTRSV9H EQU CVTFLGBT 07876000 CVTRSV9G EQU CVTFLGBT 07877000 CVTRSV9F EQU CVTFLGBT 07878000 CVTRSV9E EQU CVTFLGBT 07879000 CVTRSV9D EQU CVTFLGBT 07880000 CVTRSV9C EQU CVTFLGBT 07881000 CVTVME EQU CVTFLGBT 07882000 CVTNPE EQU CVTFLGBT 07883000 CVTNUCLS EQU CVTXTNT2+4 07884000 CVTDSSVA EQU CVTDSSV+1 07885000 CVTRSV89 EQU CVTDSSV 07886000 CVTRSV88 EQU CVTXTNT1+8 07887000 CVTRSV87 EQU CVTXTNT1+4 07888000 CVTFACHN EQU CVTXTNT1 07889000 CVTRV488 EQU CVTMAP+412 07890000 CVTRV487 EQU CVTMAP+408 07891000 CVTRV486 EQU CVTMAP+404 07892000 CVTRV485 EQU CVTMAP+400 07893000 CVTACTAP EQU CVTMAP+396 07894000 CVTAUTH EQU CVTMAP+392 07895000 CVTATMCA EQU CVTATMCT+1 07896000 CVTATMST EQU CVTATMCT 07897000 CVTRSV61 EQU CVTMAP+384 07898000 CVTVOLT1 EQU CVTVOLM1+1 07899000 CVTVOLI1 EQU CVTVOLF1 07900000 CVTSTOA EQU CVTMAP+376 07901000 CVTRSV58 EQU CVTMAP+374 07902000 CVTRSV57 EQU CVTMAP+372 07903000 CVTDDCE EQU CVTMAP+368 07904000 CVTPNWFR EQU CVTMAP+364 07905000 CVTSMF EQU CVTMAP+360 07906000 CVTSULK EQU CVTMAP+358 07907000 CVTSLKO EQU CVTSYSK 07908000 CVTSLKP EQU CVTSYSK 07909000 CVTSLKQ EQU CVTSYSK 07910000 CVTSLKR EQU CVTSYSK 07911000 CVTRSV56 EQU CVTSYSK 07912000 CVTRSV55 EQU CVTSYSK 07913000 CVTRSV54 EQU CVTSYSK 07914000 CVTRSV53 EQU CVTSYSK 07915000 CVTRSV52 EQU CVTA1F1 07916000 CVTRSV51 EQU CVTA1F1 07917000 CVTRSV50 EQU CVTA1F1 07918000 CVTRSV49 EQU CVTA1F1 07919000 CVTRSV48 EQU CVTA1F1 07920000 CVTRSV47 EQU CVTA1F1 07921000 CVTSRSW EQU CVTA1F1 07922000 CVTPFSW EQU CVTA1F1 07923000 CVTPCVT EQU CVTMAP+352 07924000 CVTRSV46 EQU CVTMAP+344 07925000 CVTRSV45 EQU CVTMAP+340 07926000 CVTRSV44 EQU CVTMAP+338 07927000 CVTRSV43 EQU CVTMAP+336 07928000 CVTHJESA EQU CVTHJES+1 07929000 CVTRSV42 EQU CVTHJES 07930000 CVTEXT2A EQU CVTEXT2+1 07931000 CVTRSV41 EQU CVTEXT2 07932000 CVTAPFA EQU CVTAPF+1 07933000 CVTRSV40 EQU CVTAPF 07934000 CVTRV518 EQU CVTINTLA 07935000 CVTRV517 EQU CVTERPV 07936000 CVTEORM EQU CVTMAP+312 07937000 CVTMCHPR EQU CVTMAP+308 07938000 CVTTZ EQU CVTMAP+304 07939000 CVTJEPS EQU CVTMAP+300 07940000 CVTJESCT EQU CVTMAP+296 07941000 CVTMODE EQU CVTMAP+292 07942000 CVTPTRV EQU CVTMAP+288 07943000 CVTREAL EQU CVTMAP+284 07944000 CVTRSV39 EQU CVTMAP+280 07945000 CVTRSV38 EQU CVTMAP+276 07946000 CVTDMSRA EQU CVTDMSR+1 07947000 CVTRV634 EQU CVTDMSRF 07948000 CVTRV633 EQU CVTDMSRF 07949000 CVTRV632 EQU CVTDMSRF 07950000 CVTRV631 EQU CVTDMSRF 07951000 CVTRV630 EQU CVTDMSRF 07952000 CVTRV629 EQU CVTDMSRF 07953000 CVTUDUMP EQU CVTDMSRF 07954000 CVTSDUMP EQU CVTDMSRF 07955000 CVTQMSGA EQU CVTQMSG+1 07956000 CVTRSV36 EQU CVTQMSG 07957000 CVTAMFF EQU CVTMAP+264 07958000 CVTPURGA EQU CVTPURG+1 07959000 CVTRSV35 EQU CVTPURG 07960000 CVTCBSP EQU CVTMAP+256 07961000 CVTATERA EQU CVTATER+1 07962000 CVTSYST EQU CVTATER 07963000 CVTVOLT2 EQU CVTTAT 07964000 CVTVOLI2 EQU CVTVOLF2 07965000 CVTAQAVB EQU CVTAQAVT+1 07966000 CVTRSV34 EQU CVTTCMFG 07967000 CVTRSV33 EQU CVTTCMFG 07968000 CVTRSV32 EQU CVTTCMFG 07969000 CVTRSV31 EQU CVTTCMFG 07970000 CVTRSV30 EQU CVTTCMFG 07971000 CVTRSV29 EQU CVTTCMFG 07972000 CVTRSV28 EQU CVTTCMFG 07973000 CVTTCRDY EQU CVTTCMFG 07974000 CVTGTFA EQU CVTGTF+1 07975000 CVTRSV27 EQU CVTGTFST 07976000 CVTRNIO EQU CVTGTFST 07977000 CVTUSR EQU CVTGTFST 07978000 CVTRV318 EQU CVTFORM 07979000 CVTRV317 EQU CVTTMODE 07980000 CVTRV316 EQU CVTSTATE 07981000 CVTRV315 EQU CVTGTFS 07982000 CVTGTFAV EQU CVTGTFS 07983000 CVT0SCR1 EQU CVTMAP+232 07984000 CVTRV515 EQU CVTMAP+228 07985000 CVTRMS EQU CVTMAP+224 07986000 CVTPATCH EQU CVTMAP+220 07987000 CVTTSCE EQU CVTMAP+216 07988000 CVTLNKSC EQU CVTMAP+214 07989000 CVTQABST EQU CVTMAP+212 07990000 CVTMDLDS EQU CVTMAP+208 07991000 CVTUSER EQU CVTMAP+204 07992000 CVTABEND EQU CVTMAP+200 07993000 CVTSMCA EQU CVTMAP+196 07994000 CVTRSV18 EQU CVTMAP+192 07995000 CVTQLPAQ EQU CVTMAP+188 07996000 CVTQCDSR EQU CVTMAP+184 07997000 CVTRSV17 EQU CVTOPTB 07998000 CVTRSV16 EQU CVTOPTB 07999000 CVTFP EQU CVTOPTB 08000000 CVTAPTHR EQU CVTOPTB 08001000 CVTNLOG EQU CVTOPTB 08002000 CVTTOD EQU CVTOPTB 08003000 CVTCTIMS EQU CVTOPTB 08004000 CVTPROT EQU CVTOPTB 08005000 CVTXPFP EQU CVTOPTA 08006000 CVTASCII EQU CVTOPTA 08007000 CVTRSV13 EQU CVTOPTA 08008000 CVTRSV12 EQU CVTOPTA 08009000 CVTNIP EQU CVTOPTA 08010000 CVTDDR EQU CVTOPTA 08011000 CVTAPR EQU CVTOPTA 08012000 CVTCCH EQU CVTOPTA 08013000 CVTSNCTR EQU CVTMAP+180 08014000 CVTQMWR EQU CVTMAP+176 08015000 CVTQOCR EQU CVTMAP+172 08016000 CVT1EF00 EQU CVTMAP+168 08017000 CVTMZ00 EQU CVTMAP+164 08018000 CVTSV76Q EQU CVTSV76C 08019000 CVTRSV11 EQU CVTMAP+156 08020000 CVT0PT01 EQU CVTMAP+152 08021000 CVTMSER EQU CVTMAP+148 08022000 CVTRV516 EQU CVTIERLC 08023000 CVTILCH EQU CVTMAP+140 08024000 CVT0DS EQU CVTMAP+136 08025000 CVTFBOSV EQU CVTMAP+132 08026000 CVTNUCB EQU CVTMAP+128 08027000 CVTIXAVL EQU CVTMAP+124 08028000 CVTSV76M EQU CVTIOQET 08029000 CVTDCBA EQU CVTMAP+117 08030000 CVTMVS2 EQU CVTDCB 08031000 CVT6DAT EQU CVTDCB 08032000 CVT4MPS EQU CVTDCB 08033000 CVTRSV09 EQU CVTDCB 08034000 CVT4MS1 EQU CVTDCB 08035000 CVT2SPS EQU CVTDCB 08036000 CVT1SSS EQU CVTDCB 08037000 CVTRSV08 EQU CVTDCB 08038000 CVTSTB EQU CVTMAP+112 08039000 CVTQTD00 EQU CVTMAP+108 08040000 CVTQTE00 EQU CVTMAP+104 08041000 CVTCUCB EQU CVTMAP+100 08042000 CVTSJQ EQU CVTMAP+96 08043000 CVTPBLDL EQU CVTMAP+92 08044000 CVTTPC EQU CVTMAP+88 08045000 CVTSVDCB EQU CVTMAP+84 08046000 CVTBRET EQU CVTMAP+82 08047000 CVTEXIT EQU CVTMAP+80 08048000 CVT0FN00 EQU CVTMAP+76 08049000 CVTDARA EQU CVTDAR+1 08050000 CVTRSV07 EQU CVTFLGS1 08051000 CVTRSV06 EQU CVTFLGS1 08052000 CVTRSV05 EQU CVTFLGS1 08053000 CVTRSV04 EQU CVTFLGS1 08054000 CVTRSV03 EQU CVTFLGS1 08055000 CVTRSV02 EQU CVTFLGS1 08056000 CVTRSV01 EQU CVTFLGS1 08057000 CVTDMPLK EQU CVTFLGS1 08058000 CVTXITP EQU CVTMAP+68 08059000 CVTZDTAB EQU CVTMAP+64 08060000 CVTMSLT EQU CVTMAP+60 08061000 CVTDATE EQU CVTMAP+56 08062000 CVTBTERM EQU CVTMAP+52 08063000 CVTSYSAD EQU CVTMAP+48 08064000 CVTXTLER EQU CVTMAP+44 08065000 CVTILK2 EQU CVTMAP+40 08066000 CVTILK1 EQU CVTMAP+36 08067000 CVTPRLTV EQU CVTMAP+32 08068000 CVTPCNVT EQU CVTMAP+28 08069000 CVT0VL00 EQU CVTMAP+24 08070000 CVTXAPG EQU CVTMAP+20 08071000 CVTBUF EQU CVTMAP+16 08072000 CVTJOB EQU CVTMAP+12 08073000 CVTLINK EQU CVTMAP+8 08074000 CVT0EF00 EQU CVTMAP+4 08075000 CVT EQU CVTMAP 08076000 UCBERADR EQU UCBUCS+12 08077000 UCBFCBID EQU UCBUCS+8 08078000 UCBERCNT EQU UCBUCS+7 08079000 UCBRSV51 EQU UCBUCS+6 08080000 UCBFCBPE EQU UCBFCBOP 08081000 UCBRSV49 EQU UCBFCBOP 08082000 UCBRSV48 EQU UCBFCBOP 08083000 UCBRSV47 EQU UCBFCBOP 08084000 UCBRSV46 EQU UCBFCBOP 08085000 UCBRSV45 EQU UCBFCBOP 08086000 UCBRSV44 EQU UCBFCBOP 08087000 UCBFCBO1 EQU UCBFCBOP 08088000 UCBUCSPE EQU UCBUCSOP 08089000 UCBRSV43 EQU UCBUCSOP 08090000 UCBRSV42 EQU UCBUCSOP 08091000 UCBRSV41 EQU UCBUCSOP 08092000 UCBRSV40 EQU UCBUCSOP 08093000 UCBRSV39 EQU UCBUCSOP 08094000 UCBUCSO2 EQU UCBUCSOP 08095000 UCBUCSO1 EQU UCBUCSOP 08096000 UCBUCSID EQU UCBUCS 08097000 UCBMDRBA EQU UCBMDRBF+1 08098000 UCBRV075 EQU UCBMDRBF 08099000 UCBRV074 EQU UCB3800X+32 08100000 UCBIMAGE EQU UCB3800X+28 08101000 UCBFCBNM EQU UCB3800X+24 08102000 UCBCHAR4 EQU UCB3800X+20 08103000 UCBCHAR3 EQU UCB3800X+16 08104000 UCBCHAR2 EQU UCB3800X+12 08105000 UCBCHAR1 EQU UCB3800X+8 08106000 UCBCGMID EQU UCB3800X+4 08107000 UCBBRSTA EQU UCBACTIV 08108000 UCBRV063 EQU UCBACTIV 08109000 UCBRV062 EQU UCBACTIV 08110000 UCBRV061 EQU UCBACTIV 08111000 UCBRV060 EQU UCBACTIV 08112000 UCBRV059 EQU UCBACTIV 08113000 UCBRV058 EQU UCBACTIV 08114000 UCBRV057 EQU UCBACTIV 08115000 UCBRV050 EQU UCB3800X+2 08116000 UCBCGMNO EQU UCB3800X+1 08117000 UCBRV083 EQU UCBOPTNS 08118000 UCBBRSTR EQU UCBOPTNS 08119000 UCBRV056 EQU UCBOPTNS 08120000 UCBRV055 EQU UCBOPTNS 08121000 UCBRV054 EQU UCBOPTNS 08122000 UCBRV053 EQU UCBOPTNS 08123000 UCBRV052 EQU UCBOPTNS 08124000 UCBRV051 EQU UCBOPTNS 08125000 UCBRV073 EQU UCB3540X+7 08126000 UCBRV072 EQU UCBDKBYT 08127000 UCBRV071 EQU UCBDKBYT 08128000 UCBRV070 EQU UCBDKBYT 08129000 UCBRV069 EQU UCBDKBYT 08130000 UCBRV068 EQU UCBDKBYT 08131000 UCBRV067 EQU UCBDKBYT 08132000 UCBVLVER EQU UCBDKBYT 08133000 UCBDKAMX EQU UCBDKBYT 08134000 UCBVLSER EQU UCB3540X 08135000 UCBRDATA EQU UCBOCR+4 08136000 UCBFRID EQU UCBOCR 08137000 UCBCLN EQU UCBMT+14 08138000 UCBERG EQU UCBMT+12 08139000 UCBMS EQU UCBMT+11 08140000 UCBNB EQU UCBMT+10 08141000 UCBPW EQU UCBMT+9 08142000 UCBPR EQU UCBMT+8 08143000 UCBSIO EQU UCBMT+6 08144000 UCBTW EQU UCBMT+5 08145000 UCBTR EQU UCBMT+4 08146000 UCBTWT EQU UCBMT+3 08147000 UCBTRT EQU UCBMT+2 08148000 UCBCTD EQU UCBMT 08149000 UCBWTOID EQU UCBCMEXT+17 08150000 UCBRV043 EQU UCBCMEXT+16 08151000 UCBASID EQU UCBCMEXT+14 08152000 UCBMFCNT EQU UCBCMEXT+12 08153000 UCBPMSK EQU UCBCMEXT+10 08154000 UCBCCWOF EQU UCBCMEXT+8 08155000 UCBRV041 EQU UCBCMEXT+6 08156000 UCBRV036 EQU UCBFLP1 08157000 UCBRV035 EQU UCBFLP1 08158000 UCBERLOG EQU UCBFLP1 08159000 UCBRV033 EQU UCBFLP1 08160000 UCBINHIO EQU UCBFLP1 08161000 UCBNSWAP EQU UCBFLP1 08162000 UCBSHRUP EQU UCBFLP1 08163000 UCBNSRCH EQU UCBFLP1 08164000 UCBSNSCT EQU UCBCMEXT+4 08165000 UCBHPDV EQU @NM00045 08166000 UCBHALI EQU @NM00045 08167000 UCBRSV09 EQU @NM00045 08168000 UCBRSV08 EQU @NM00045 08169000 UCBRSV07 EQU @NM00045 08170000 UCBRSV06 EQU @NM00045 08171000 UCBRSV05 EQU @NM00045 08172000 UCBRSV04 EQU @NM00045 08173000 UCBDTI EQU UCBCMEXT+2 08174000 UCBSTI EQU UCBCMEXT+1 08175000 UCBETI EQU UCBCMEXT 08176000 UCBEXTP EQU UCBEXTPT+1 08177000 UCBDDRSW EQU UCBFLC 08178000 UCBTICBT EQU UCBFLC 08179000 UCBIVRR EQU UCBFLC 08180000 UCBIVRS EQU UCBFLC 08181000 UCBITF EQU UCBFLC 08182000 UCBUDE EQU UCBFLC 08183000 UCBWAA EQU UCBFLC 08184000 UCBATTP EQU UCBFLC 08185000 UCBUNTYP EQU UCBTBYT4 08186000 UCBRSV11 EQU UCBDVCLS 08187000 UCBRSV10 EQU UCBDVCLS 08188000 UCB3CHAR EQU UCBDVCLS 08189000 UCB3UREC EQU UCBDVCLS 08190000 UCB3DISP EQU UCBDVCLS 08191000 UCB3DACC EQU UCBDVCLS 08192000 UCB3COMM EQU UCBDVCLS 08193000 UCB3TAPE EQU UCBDVCLS 08194000 UCBDVPWR EQU UCB2OPT7 08195000 UCBVLPWR EQU UCB2OPT6 08196000 UCB2OPT5 EQU UCBTBYT2 08197000 UCBRVDEV EQU UCBRWTAU 08198000 UCBRPS EQU UCBDUDN2 08199000 UCBRR EQU UCBDUDN1 08200000 UCB2OPT1 EQU UCBTBYT2 08201000 UCB2OPT0 EQU UCBTBYT2 08202000 UCB1FEA7 EQU UCBTBYT1 08203000 UCBD6250 EQU UCB1FEA6 08204000 UCBD1600 EQU UCB1FEA5 08205000 UCB1FEA4 EQU UCBTBYT1 08206000 UCB1FEA3 EQU UCBTBYT1 08207000 UCB1FEA2 EQU UCBTBYT1 08208000 UCB1FEA1 EQU UCBTBYT1 08209000 UCB1FEA0 EQU UCBTBYT1 08210000 UCBNAME EQU UCBOB+13 08211000 UCBRV029 EQU UCBWGT 08212000 UCBVHRSN EQU UCBWGT 08213000 UCBVORSN EQU UCBWGT 08214000 UCBMTPXP EQU UCBWGT 08215000 UCBREW EQU UCBWGT 08216000 UCBPUB EQU UCBWGT 08217000 UCBOUT EQU UCBWGT 08218000 UCBIN EQU UCBWGT 08219000 UCBCPU EQU UCBOB+11 08220000 UCBLCI EQU UCBOB+10 08221000 UCBCNT EQU UCBOB+9 08222000 UCBRV017 EQU UCBCHM1 08223000 UCBRV016 EQU UCBCHM1 08224000 UCBRV015 EQU UCBCHM1 08225000 UCBRV014 EQU UCBCHM1 08226000 UCBSPB EQU UCBPTH1 08227000 UCBPPB EQU UCBPTH1 08228000 UCBSPA EQU UCBPTH0 08229000 UCBPPA EQU UCBPTH0 08230000 UCBSIGP EQU UCBFLB 08231000 UCBVALPH EQU UCBFLB 08232000 UCBCRHSN EQU UCBFLB 08233000 UCBCRHRV EQU UCBFLB 08234000 UCBRESVH EQU UCBFLB 08235000 UCBSPST EQU UCBFLB 08236000 UCBASNS EQU UCBFLB 08237000 UCBIORST EQU UCBFLB 08238000 UCBQISCE EQU UCBFL1 08239000 UCBACTV EQU UCBFL1 08240000 UCBSAP EQU UCBFL1 08241000 UCBNOTRC EQU UCBCUB 08242000 UCBPSNS EQU UCBFL1 08243000 UCBUSING EQU UCBPST 08244000 UCBNOTRD EQU UCBNRY 08245000 UCBBUSYD EQU UCBBSY 08246000 UCBUA EQU UCBCHAN+1 08247000 UCBCHA EQU UCBCHAN 08248000 UCBDADI EQU UCBSTAT 08249000 UCBSYSR EQU UCBSTAT 08250000 UCBPRES EQU UCBSTAT 08251000 UCBALOC EQU UCBSTAT 08252000 UCBUNLD EQU UCBSTAT 08253000 UCBRESV EQU UCBSTAT 08254000 UCBCHGS EQU UCBSTAT 08255000 UCBONLI EQU UCBSTAT 08256000 UCBID EQU UCBOB+2 08257000 UCBALTPH EQU UCBFL5 08258000 UCBALTCU EQU UCBFL5 08259000 UCBENVRD EQU UCBFL5 08260000 UCBVSDR EQU UCBFL5 08261000 UCBSASK EQU UCBFL5 08262000 UCBAMV EQU UCBAF 08263000 UCBDCC EQU UCBFL5 08264000 UCBMONT EQU UCBJBNR 08265000 UCBRV011 EQU UCBJBNR 08266000 UCBMMSGP EQU UCBJBNR 08267000 UCBOLDSM EQU UCBJBNR 08268000 UCBRV003 EQU UCBJBNR 08269000 UCBDUC EQU UCBJBNR 08270000 UCBJES3 EQU UCBJBNR 08271000 UCBVRDEV EQU UCBJBNR 08272000 UCBCMSEG EQU UCBOB 08273000 UCBPFXND EQU UCB+512 08274000 UCBIOQ EQU UCB+508 08275000 UCBLOCK EQU UCB+504 08276000 UCBPXST EQU UCB+504 08277000 @NM00042 EQU UCB 08278000 DEBXRV40 EQU DEBXTN+28 08279000 DEBXOPNJ EQU DEBXTN+24 08280000 DEBXXARG EQU DEBXTN+20 08281000 DEBXMCF2 EQU DEBXTN+19 08282000 DEBXMCF1 EQU DEBXTN+18 08283000 DEBXDSO2 EQU DEBXTN+17 08284000 DEBXDSO1 EQU DEBXTN+16 08285000 DEBXDBPR EQU DEBXTN+12 08286000 DEBXDCBM EQU DEBXTN+8 08287000 DEBXDSAB EQU DEBXTN+4 08288000 DEBXRV48 EQU DEBXTN+3 08289000 DEBXRV47 EQU DEBXFLG1 08290000 DEBXRV46 EQU DEBXFLG1 08291000 DEBXRV45 EQU DEBXFLG1 08292000 DEBXRV44 EQU DEBXFLG1 08293000 DEBXRV43 EQU DEBXFLG1 08294000 DEBXDSSI EQU DEBXFLG1 08295000 DEBXTSKC EQU DEBXFLG1 08296000 DEBXCDCB EQU DEBXFLG1 08297000 DEBXLNGH EQU DEBXTN 08298000 DEBTBLOF EQU DEBPREFX+14 08299000 DEBAMTYP EQU DEBPREFX+13 08300000 DEBLNGTH EQU DEBPREFX+12 08301000 DEBDCBMK EQU DEBXTNP 08302000 DEBDSCBA EQU DEBPREFX+1 08303000 DEBWKARA EQU DEBPREFX 08304000 DEBXCEAD EQU DEBXCEA+1 08305000 DEBXCENP EQU DEBXCEAB 08306000 DEBRSV35 EQU DEBXCEAB 08307000 DEBRSV34 EQU DEBXCEAB 08308000 DEBRSV33 EQU DEBXCEAB 08309000 DEBRSV32 EQU DEBXCEAB 08310000 DEBCEAD EQU DEBCEA+1 08311000 DEBCENP EQU DEBCEAB 08312000 DEBRSV31 EQU DEBCEAB 08313000 DEBRSV30 EQU DEBCEAB 08314000 DEBRSV29 EQU DEBCEAB 08315000 DEBRSV28 EQU DEBCEAB 08316000 DEBPCIAD EQU DEBPCIA+1 08317000 DEBPCINP EQU DEBPCIAB 08318000 DEBRSV27 EQU DEBPCIAB 08319000 DEBRSV26 EQU DEBPCIAB 08320000 DEBRSV25 EQU DEBPCIAB 08321000 DEBRSV24 EQU DEBPCIAB 08322000 DEBSIOAD EQU DEBSIOA+1 08323000 DEBSIONP EQU DEBSIOAB 08324000 DEBFIX EQU DEBSIOAB 08325000 DEBIOVR EQU DEBSIOAB 08326000 DEBSIOX EQU DEBSIOAB 08327000 DEBPGFX EQU DEBSIOAB 08328000 DEBEOEAD EQU DEBEOEA+1 08329000 DEBEOENP EQU DEBEOEAB 08330000 DEBRSV22 EQU DEBEOEAB 08331000 DEBRSV21 EQU DEBEOEAB 08332000 DEBRSV20 EQU DEBEOEAB 08333000 DEBRSV19 EQU DEBEOEAB 08334000 DEBSUBID EQU DEBSUBNM 08335000 DEBSIOA2 EQU DEBACS08+24 08336000 DEBRPSIO EQU DEBACS08+20 08337000 DEBFREED EQU DEBACS08+16 08338000 @NM00041 EQU DEBACS08+12 08339000 @NM00040 EQU DEBACS08+8 08340000 DEBDISAD EQU DEBACS08+4 08341000 @NM00039 EQU DEBACS08 08342000 DEBRPSST EQU DEBACS07+64 08343000 DEBARECK EQU DEBACS07+60 08344000 DEBAREWT EQU DEBACS07+56 08345000 DEBACHK EQU DEBACS07+52 08346000 DEBAWRIT EQU DEBACS07+48 08347000 DEBASETL EQU DEBACS07+44 08348000 DEBAREAD EQU DEBACS07+40 08349000 DEBCRECK EQU DEBACS07+36 08350000 DEBCREWT EQU DEBACS07+32 08351000 DEBCCHK EQU DEBACS07+28 08352000 DEBCWRIT EQU DEBACS07+24 08353000 DEBCSETL EQU DEBACS07+20 08354000 DEBCREAD EQU DEBACS07+16 08355000 DEBWKPT5 EQU DEBACS07+12 08356000 DEBWKPT4 EQU DEBACS07+8 08357000 DEBGET EQU DEBACS07+4 08358000 @NM00038 EQU DEBACS07 08359000 DEBPUT EQU DEBACS06+4 08360000 DEBDCBFA EQU DEBACS06 08361000 DEBLUCBB EQU DEBLUCBA+1 08362000 DEBRSV18 EQU DEBLUCBA 08363000 DEBFUCBB EQU DEBFUCBA+1 08364000 DEBRSV17 EQU DEBFUCBA 08365000 DEBTCCWB EQU DEBTCCWA+1 08366000 DEBRSV16 EQU DEBTCCWA 08367000 DEBTBFRB EQU DEBTBFRA+1 08368000 DEBRSV15 EQU DEBTBFRA 08369000 DEBDBPEF EQU DEBACS03+8 08370000 DEBDBPP EQU DEBACS03+4 08371000 DEBDTPP EQU DEBACS03 08372000 DEBDBPE EQU DEBDBLK+1 08373000 DEBDBPT EQU DEBDBLK 08374000 DEBEXTNM EQU DEBDSNAM 08375000 DEBLRECL EQU DEBACSMD+14 08376000 DEBBLKSI EQU DEBACSMD+12 08377000 DEBRSV14 EQU DEBDSNM+4 08378000 DEBUTSAB EQU DEBUTSAA+1 08379000 DEBRSV13 EQU DEBUTSAA 08380000 DEBVOLNM EQU DEBACSMD+2 08381000 DEBVLSEQ EQU DEBVOLSQ+1 08382000 DEBRSV42 EQU DEBVOLBT 08383000 DEBRSV41 EQU DEBVOLBT 08384000 DEBRSV40 EQU DEBVOLBT 08385000 DEBRSV39 EQU DEBVOLBT 08386000 DEBRSV38 EQU DEBVOLBT 08387000 DEBRSV37 EQU DEBVOLBT 08388000 DEBRSV36 EQU DEBVOLBT 08389000 DEBEXFUL EQU DEBVOLBT 08390000 DEBNMTRK EQU DEBDASD+14 08391000 DEBENDHH EQU DEBDASD+12 08392000 DEBENDCC EQU DEBDASD+10 08393000 DEBSTRHH EQU DEBDASD+8 08394000 DEBSTRCC EQU DEBDASD+6 08395000 DEBBINUM EQU DEBDASD+4 08396000 DEBUCBA EQU DEBUCBAD+1 08397000 DEBDVMOD EQU DEBUCBAD 08398000 DEBAPPB EQU DEBAPPAD+1 08399000 DEBEXSCL EQU DEBAPPAD 08400000 DEBDCBB EQU DEBDCBAD+1 08401000 DEBECBB EQU DEBECBAD+1 08402000 DEBPRIOR EQU DEBECBAD 08403000 DEBUSRPB EQU DEBUSRPG+1 08404000 DEBNMEXT EQU DEBUSRPG 08405000 DEBRSV05 EQU DEBBASIC+15 08406000 DEBXTNIN EQU DEBFLGS1 08407000 DEBAPFIN EQU DEBFLGS1 08408000 DEBF1CEV EQU DEBFLGS1 08409000 DEBCINDI EQU DEBFLGS1 08410000 DEBRSV02 EQU DEBFLGS1 08411000 DEBRSIOA EQU DEBFLGS1 08412000 DEBEOFDF EQU DEBFLGS1 08413000 DEBPWCKD EQU DEBFLGS1 08414000 DEBQSCNT EQU DEBBASIC+13 08415000 DEBACCS EQU DEBOPATB 08416000 DEBPOSIT EQU DEBOPATB 08417000 DEBZERO EQU DEBOPATB 08418000 DEBABEND EQU DEBOPATB 08419000 DEBIRBB EQU DEBIRBAD+1 08420000 DEBRERR EQU DEBOFLGS 08421000 DEBLABEL EQU DEBOFLGS 08422000 DEBSPLIT EQU DEBOFLGS 08423000 DEBDCB EQU DEBOFLGS 08424000 DEBRLSE EQU DEBOFLGS 08425000 DEBEOF EQU DEBOFLGS 08426000 DEBDISP EQU DEBOFLGS 08427000 DEBDEBB EQU DEBDEBAD+1 08428000 DEBAMLNG EQU DEBDEBAD 08429000 DEBTCBB EQU DEBTCBAD+1 08430000 DEBNMSUB EQU DEBTCBAD 08431000 @NM00037 EQU IHADCS44+10 08432000 DCBXENDA EQU IHADCS44+8 08433000 DCBCENDA EQU IHADCS44+6 08434000 DCBSIOA EQU IHADCS44+4 08435000 DCBPCIA EQU IHADCS44+2 08436000 DCBEOEA EQU IHADCS44 08437000 @NM00036 EQU IHADCS28+1 08438000 @NM00035 EQU DCBOPTCD 08439000 DCBSRCHD EQU DCBOPTZ 08440000 @NM00034 EQU DCBOPTCD 08441000 @NM00033 EQU DCBIFLGS 08442000 DCBIFIOE EQU DCBIFLGS 08443000 DCBCH12 EQU DCBIFPCT 08444000 DCBCH9 EQU DCBIFPCT 08445000 DCBIFEC EQU DCBIFLGS 08446000 DCBMFSTI EQU DCBMFDMD 08447000 DCBMFAWR EQU DCBMFSTK 08448000 DCBMFUIP EQU DCBMFTMD 08449000 DCBMFIDW EQU DCBMFLCP 08450000 DCBMFWRK EQU DCBMFMVP 08451000 DCBMFRDQ EQU DCBMFWRT 08452000 DCBMFGTQ EQU DCBMFPUT 08453000 DCBMFSTL EQU DCBMACF2 08454000 DCBMFCK EQU DCBMFDMG 08455000 DCBMFRDX EQU DCBMFCHK 08456000 DCBMFDBF EQU DCBMFSBG 08457000 DCBMFRDI EQU DCBMFLCG 08458000 DCBMFRDK EQU DCBMFMVG 08459000 DCBMFWRQ EQU DCBMFRD 08460000 DCBMFPTQ EQU DCBMFGET 08461000 DCBMFECP EQU DCBMACF1 08462000 DCBTIOT EQU IHADCS25 08463000 DCBMRSTI EQU DCBMRDMD 08464000 DCBMRAWR EQU DCBMRSTK 08465000 DCBMRUIP EQU DCBMRTMD 08466000 DCBMRIDW EQU DCBMRLCP 08467000 DCBMRWRK EQU DCBMRMVP 08468000 DCBMRRDQ EQU DCBMRWRT 08469000 DCBMRGTQ EQU DCBMRPUT 08470000 DCBMRSTL EQU DCBMACR2 08471000 DCBMRCK EQU DCBMRDMG 08472000 DCBPGFXA EQU DCBMRRDX 08473000 DCBMRDBF EQU DCBMRSBG 08474000 DCBMRRDI EQU DCBMRLCG 08475000 DCBMRRDK EQU DCBMRMVG 08476000 DCBMRWRQ EQU DCBMRRD 08477000 DCBMRPTQ EQU DCBMRGET 08478000 DCBMRECP EQU DCBMACR1 08479000 @NM00032 EQU DCBIFLG 08480000 DCBIBIOE EQU DCBIFLG 08481000 DCBICH12 EQU DCBIBPCT 08482000 DCBICH9 EQU DCBIBPCT 08483000 DCBIBEC EQU DCBIFLG 08484000 DCBOFIOF EQU DCBOFLGS 08485000 DCBOFUEX EQU DCBOFLGS 08486000 DCBOFTM EQU DCBOFLGS 08487000 DCBOFPPC EQU DCBOFLGS 08488000 DCBOFEOV EQU DCBOFLGS 08489000 DCBOFLRB EQU DCBOFLGS 08490000 DCBOFIOD EQU DCBOFLWR 08491000 DCBDDNAM EQU IHADCS24 08492000 DCBTRBAL EQU IHADCS01+6 08493000 @NM00031 EQU IHADCS01+5 08494000 @NM00030 EQU IHADCS01+4 08495000 DCBDVTBA EQU DCBDVTBL+1 08496000 @NM00029 EQU DCBDVTBL 08497000 DCBKEYCN EQU IHADCS00+4 08498000 DCBRELAD EQU IHADCS00 08499000 @NM00028 EQU IHADCB 08500000 SENMB35 EQU BYTE2 08501000 SENMB70 EQU BYTE2 08502000 @NM00027 EQU BYTE2 08503000 SENEMUL EQU SEN3344 08504000 @NM00026 EQU BYTE2 08505000 SENCERR EQU BYTE2 08506000 SENRPSPR EQU BYTE2 08507000 @NM00025 EQU BYTE1 08508000 SENRFND EQU BYTE1 08509000 @NM00024 EQU BYTE1 08510000 SENPERR EQU BYTE1 08511000 SENSEEKC EQU BYTE0 08512000 SENTRKCK EQU BYTE0 08513000 @NM00023 EQU BYTE0 08514000 SENDATCK EQU BYTE0 08515000 SENEQCK EQU BYTE0 08516000 @NM00022 EQU BYTE0 08517000 CBAPINFO EQU CNTBLKS+180 08518000 CBIOB EQU CNTBLKS+44 08519000 CBECB EQU CNTBLKS+40 08520000 CBVOLIB EQU CNTBLKS 08521000 APOVFLO EQU APINFO+92 08522000 APSAVE EQU APINFO+28 08523000 APTRKCT EQU APINFO+24 08524000 APLASTA EQU APINFO+20 08525000 APASSOC EQU APINFO+16 08526000 APTRACK EQU APINFO+12 08527000 APANXT EQU APINFO+8 08528000 APAKEY EQU APINFO+4 08529000 APABNC EQU APINFO 08530000 @NM00021 EQU VOLIB+38 08531000 VLNTYP EQU VOLIB+36 08532000 VLFINIT EQU VOLIB+34 08533000 VLPRVOL EQU VOLIB+33 08534000 VLDEVIND EQU VOLIB+32 08535000 VLDEVTYP EQU VLUCBDT+3 08536000 @NM00020 EQU VLUCBDT 08537000 VLDNMCUU EQU VOLIB+20 08538000 VLIOBPTR EQU VOLIB+16 08539000 VLMAPL EQU VOLIB+12 08540000 VLMAPF EQU VOLIB+8 08541000 VOL1STDV EQU VOL1+79 08542000 @NM00019 EQU VOL1+51 08543000 VOL1OLDO EQU VOL1OWNR+4 08544000 VOL1OEXT EQU VOL1OWNR 08545000 @NM00018 EQU VOL1+16 08546000 VOL1ACC EQU VOL1+10 08547000 VOL1NUM EQU VOL1+3 08548000 VOL1ID EQU VOL1 08549000 @NM00017 EQU DMPARY+15 08550000 DMPARYTP EQU DMPARY+14 08551000 DMPARYEX EQU DMPARY+12 08552000 DMPARYIC EQU DMPARY+10 08553000 DMPARYSZ EQU DMPARY+8 08554000 DMPARYNM EQU DMPARY 08555000 @NM00016 EQU DMPITM+15 08556000 DMPITMTP EQU DMPITM+14 08557000 DMPITMLN EQU DMPITM+12 08558000 DMPITMPT EQU DMPITM+8 08559000 DMPITMNM EQU DMPITM 08560000 @NM00015 EQU FMTCNVF+1 08561000 FMTBS EQU FMTCNVF+1 08562000 FMTSS EQU FMTCNVF+1 08563000 FMTAL EQU FMTCNVF+1 08564000 FMTZS EQU FMTCNVF+1 08565000 @NM00014 EQU FMTCNVF 08566000 FMTPU EQU FMTCNVF 08567000 FMTBD EQU FMTCNVF 08568000 FMTBHD EQU FMTCNVF 08569000 FMTBHA EQU FMTCNVF 08570000 FMTBH EQU FMTCNVF 08571000 FMTOLEN EQU FMTLIST+8 08572000 FMTRIO EQU FMTOCOL 08573000 FMTSPT EQU FMTSTO 08574000 FMTSTL EQU FMTILEN 08575000 @NM00013 EQU FMTFLGS+1 08576000 FMTHDF EQU FMTFLGS 08577000 FMTDFF EQU FMTFLGS 08578000 FMTSTF EQU FMTFLGS 08579000 FMTREPF EQU FMTFLGS 08580000 FMTBDF EQU FMTFLGS 08581000 FMTIDF EQU FMTFLGS 08582000 FMTSCF EQU FMTFLGS 08583000 FMTEOLF EQU FMTFLGS 08584000 DARGDTM EQU DARGARY+4 08585000 DARGPCT EQU DARGINL 08586000 DARGREP EQU DARGINS 08587000 @NM00012 EQU DARGLIST+19 08588000 DARGIND EQU DARGLIST+18 08589000 DARGRETL EQU DARGLIST+16 08590000 DARGCNT EQU DARGLIST+14 08591000 DARGILP EQU DARGLIST+12 08592000 DARGSENT EQU DARGSTID+3 08593000 DARGSMOD EQU DARGSTID 08594000 DARGRETP EQU DARGLIST+4 08595000 DARGDBP EQU DARGLIST 08596000 UVOLVOL EQU UVOLENT+4 08597000 UVOLDEV EQU UVOLENT 08598000 UVOLCNT EQU UVOLLIST 08599000 OPNRSVD EQU OPNAGL+28 08600000 OPNVOL EQU OPNAGL+24 08601000 OPNBLK EQU OPNAGL+20 08602000 OPNREC EQU OPNAGL+16 08603000 OPNDSN EQU OPNAGL+12 08604000 OPNDDN EQU OPNAGL+8 08605000 OPNIOC EQU OPNAGL+4 08606000 @NM00011 EQU OPNMOD 08607000 OPNMODRC EQU OPNMOD 08608000 OPNMODAC EQU OPNMOD 08609000 @NM00010 EQU OPNTYP 08610000 OPNTYPSO EQU OPNTYP 08611000 OPNTYPSI EQU OPNTYP 08612000 @NM00009 EQU OPNRFM 08613000 OPNRFMBK EQU OPNRFM 08614000 OPNRFMSF EQU OPNRFM 08615000 OPNRFMUN EQU OPNRFM 08616000 OPNRFMVR EQU OPNRFM 08617000 OPNRFMFX EQU OPNRFM 08618000 @NM00008 EQU OPNOPT 08619000 OPNOPTJM EQU OPNOPT 08620000 OPNOPTKS EQU OPNOPT 08621000 OPNOPTBK EQU OPNOPT 08622000 OPNOPTUP EQU OPNOPT 08623000 OPNOPTOT EQU OPNOPT 08624000 OPNOPTIN EQU OPNOPT 08625000 IOCEXT EQU IOCSTR+36 08626000 IOCRRN EQU IOCSTR+32 08627000 @NM00007 EQU IOCSTR+30 08628000 IOCPNM EQU IOCSTR+28 08629000 IOCCBP EQU IOCSTR+24 08630000 IOCDSN EQU IOCSTR+20 08631000 @NM00006 EQU IOCSTR+17 08632000 @NM00005 EQU IOCMSG 08633000 IOCMSGOP EQU IOCMSG 08634000 IOCMACPA EQU IOCMAC 08635000 @NM00004 EQU IOCMAC 08636000 IOCMACBK EQU IOCMAC 08637000 IOCMACUP EQU IOCMAC 08638000 IOCMACOT EQU IOCMAC 08639000 IOCMACIN EQU IOCMAC 08640000 @NM00003 EQU IOCRFM 08641000 IOCRFMBK EQU IOCRFM 08642000 IOCRFMSF EQU IOCRFM 08643000 IOCRFMUN EQU IOCRFM 08644000 IOCRFMVR EQU IOCRFM 08645000 IOCRFMFX EQU IOCRFM 08646000 @NM00002 EQU IOCDSO 08647000 IOCDSOPS EQU IOCDSO 08648000 IOCKYL EQU IOCSTR+12 08649000 IOCTRN EQU IOCSTR+8 08650000 IOCDLN EQU IOCSTR+4 08651000 IOCDAD EQU IOCSTR 08652000 STAEWORK EQU STAEPARM+32 08653000 STARPTR EQU STAEPFX+28 08654000 STASPTR EQU STAEPFX+24 08655000 STALEN EQU STAEPFX+20 08656000 STAID EQU STAEPFX+16 08657000 STAEPA EQU STAEPFX+12 08658000 STAGDT EQU STAEPFX+8 08659000 STABPTR EQU STAEPFX+4 08660000 STAFPTR EQU STAEPFX 08661000 NEWID2 EQU TRACE2+95 08662000 OLDERID2 EQU TRACE2 08663000 NEWID1 EQU TRACE1+95 08664000 CALLID EQU OLDERID1+90 08665000 @NM00001 EQU OLDERID1 08666000 .@UNREFD ANOP END UNREFERENCED COMPONENTS 08667000 @RF00289 EQU @RC00287 08668000 @RC00297 EQU @RC00287 08669000 @RF00273 EQU @RC00261 08670000 @RF00341 EQU @RC00261 08671000 @ENDDATA EQU * 08672000 END ICKDV04,(C'PLS1707',0701,78192) 08673000