TITLE '********** ICKDV01: UDEVOPEN OPEN 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 ICKDV01 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'ICKDV01 78.192' 0002 00020000 ICKDVON DS 0H 0002 00021000 USING *,@15 0002 00022000 B @PROLOG 0002 00023000 DC AL2(@EP00003-ICKDVON) 00024000 ENTRY ICKDVON 00025000 RSTVOL DS 0H 0002 00026000 USING *,@15 0002 00027000 B @PROLOG 0002 00028000 DC AL2(@EP00649-RSTVOL) 00029000 ENTRY RSTVOL 00030000 DROP @15 00031000 @PROLOG STM @14,@12,12(@13) 0002 00032000 BALR @11,0 0002 00033000 @PSTART LA @12,4095(,@11) 0002 00034000 USING @PSTART,@11 0002 00035000 USING @PSTART+4095,@12 0002 00036000 L @00,@SIZDATD 0002 00037000 GETMAIN R,LV=(0) 00038000 LR @10,@01 0002 00039000 USING @DATD,@10 0002 00040000 ST @13,@SA00001+4 0002 00041000 LM @15,@01,16(@13) 0002 00042000 ST @10,8(,@13) 0002 00043000 LR @13,@10 0002 00044000 XC @ZTEMPS(@ZLEN),@ZTEMPS 00045000 AH @15,4(,@15) 0002 00046000 BR @15 0002 00047000 @EP00002 DS 0H 0003 00048000 * ICKDVON: ENTRY 0003 00049000 * ( 0003 00050000 * GDTTBL, /* GLOBAL DATA TABLE */ 00051000 * VOLNAME, /* VOLUME NAME */ 00052000 * VOLNTYPE, /* VOLUME NAME TYPE */ 00053000 * DEVICETY, /* DEVICE-TYPE */ 00054000 * MIMICDEV, /* DEVICE BEING MIMICKED */ 00055000 * VOLIBPTR, /* VOLIB POINTER */ 00056000 * CONDCODE /* CONDITION CODE */ 00057000 * ); 0003 00058000 * 0003 00059000 B @EC00003 0003 00060000 @EP00003 MVC @PC00001(28),0(@01) 0003 00061000 @EC00003 DS 0H 0004 00062000 */***** S T A N D A R D I N C L U D E S **************************/ 00063000 * 0004 00064000 * /************************************************************/ 00065000 * /* */ 00066000 * /* DMS GLOBAL DATA AREA : 5/10/78 */ 00067000 * /* (1) PLS/2 MACRO DEFINITIONS */ 00068000 * /* (2) GLOBAL DATA TABLE */ 00069000 * /* (3) SYSTEM ADAPTER DECLARATIONS */ 00070000 * /* A) ENTRY POINTS */ 00071000 * /* B) DATA STRUCTURES */ 00072000 * /* C) SYMBOLIC RETURN CODES */ 00073000 * /* (4) INPUT/OUTPUT ADAPTER DECLARATIONS */ 00074000 * /* A) ENTRY POINTS */ 00075000 * /* B) DATA STRUCTURES */ 00076000 * /* C) SYMBOLIC RETURN CODES */ 00077000 * /* (5) DEVICE ADAPTER DECLARATIONS */ 00078000 * /* A) ACTION KEYS */ 00079000 * /* B) INFORMATION KEYS */ 00080000 * /* C) ENTRY POINTS */ 00081000 * /* (6) TEXT OUTPUT PROCESSOR DECLARATIONS */ 00082000 * /* A) ENTRY POINTS */ 00083000 * /* B) DATA STRUCTURES */ 00084000 * /* (7) DEBUGGING AIDS DECLARATIONS */ 00085000 * /* A) ENTRY POINTS */ 00086000 * /* (8) CONVENTIONALIZED NAMED VALUES DECLARATIONS */ 00087000 * /* */ 00088000 * /************************************************************/ 00089000 * 0004 00090000 * /************************************************************/ 00091000 * /* THE MACRO VARIABLE 'OPERSYS' IS SET HERE (IN DMSDF00) */ 00092000 * /* TO CONTROL MACRO PHASE LOGIC TO GENERATE THE CORRECT */ 00093000 * /* SYSTEM DEPENDENT CODE FOR THE OPERATING SYSTEM UNDER */ 00094000 * /* WHICH DMS EXECUTION IS TO TAKE PLACE. */ 00095000 * /* THE VARIABLE MUST BE SET TO ONE OF THE FOLLOWING: */ 00096000 * /* %OPERSYS = 'VS1' - OS/VS1 OPERATING SYSTEM */ 00097000 * /* %OPERSYS = 'MVS' - OS/VS2 RELEASE 3 AND FOLLOWING */ 00098000 * /* %OPERSYS = 'NONE' - 'STAND ALONE' EXECUTION ENVIRONMENT */ 00099000 * /************************************************************/ 00100000 * /* THE CURRENT SETTING IS %OPERSYS = 'MVS' */ 00101000 * /************************************************************/ 00102000 * 0004 00103000 * 0004 00104000 * /************************************************************/ 00105000 * /* */ 00106000 * /* GLOBAL DATA TABLE (GDT) */ 00107000 * /* */ 00108000 * /************************************************************/ 00109000 * DCL 1 GDTTBL BOUNDARY(DWORD), 0004 00110000 * 2 GDTHDR CHAR(4), /*GDT HEADER (CONTAINS 'GDT ')*/ 00111000 * 2 GDTPRM PTR(31), /*INVOKER'S PARAMETER LIST PTR*/ 00112000 * 2 GDTTR1 PTR(31), /*INTER-MODULE TRACE TABLE PTR*/ 00113000 * 2 GDTTR2 PTR(31), /*INTRA-MODULE TRACE TABLE PTR*/ 00114000 * 2 GDTDBH PTR(31), /*DEBUGGING AIDS DATA PTR*/ 00115000 * 2 GDTSTH PTR(31), /*DMS STATISTICS DATA PTR*/ 00116000 * 2 GDTRIH PTR(31), /*READER/INTERPRETER DATA PTR*/ 00117000 * 2 GDTTPH PTR(31), /*TEXT PROCESSOR DATA PTR*/ 00118000 * 2 GDTSAH PTR(31), /*SYSTEM ADAPTER DATA PTR*/ 00119000 * 2 GDTIOH PTR(31), /*I/O ADAPTER DATA PTR*/ 00120000 * 2 GDTDVH PTR(31), /*DEVICE ADAPTER DATA PTR*/ 00121000 * 2 GDTDIN PTR(31), /*UDEVINFO ENTRY POINT ADDRESS*/ 00122000 * 2 GDTDOP PTR(31), /*UDEVOP ENTRY POINT ADDRESS*/ 00123000 * 2 GDTDBG PTR(31), /*UDUMP ENTRY POINT ADDRESS*/ 00124000 * 2 GDTDVO PTR(31), /*UDEVOPEN ENTRY POINT ADDRESS*/ 00125000 * 2 GDTPRT PTR(31), /*UPRINT ENTRY POINT ADDRESS*/ 00126000 * 2 GDTESS PTR(31), /*UESTS ENTRY POINT ADDRESS*/ 00127000 * 2 GDTESA PTR(31), /*UESTA ENTRY POINT ADDRESS*/ 00128000 * 2 GDTRST PTR(31), /*UREST ENTRY POINT ADDRESS*/ 00129000 * 2 GDTRES PTR(31), /*URESET ENTRY POINT ADDRESS*/ 00130000 * 2 GDTCAL PTR(31), /*UCALL ENTRY POINT ADDRESS*/ 00131000 * 2 GDTGSP PTR(31), /*UGSPACE ENTRY POINT ADDRESS*/ 00132000 * 2 GDTFSP PTR(31), /*UFSPACE ENTRY POINT ADDRESS*/ 00133000 * 2 GDTGPL PTR(31), /*UGPOOL ENTRY POINT ADDRESS*/ 00134000 * 2 GDTFPL PTR(31), /*UFPOOL ENTRY POINT ADDRESS*/ 00135000 * 2 GDTLOD PTR(31), /*ULOAD ENTRY POINT ADDRESS*/ 00136000 * 2 GDTDEL PTR(31), /*UDELETE ENTRY POINT ADDRESS*/ 00137000 * 2 GDTPRL PTR(31), /*PROL ENTRY POINT ADDRESS */ 00138000 * 2 GDTEPL PTR(31), /*UEPIL ENTRY POINT ADDRESS */ 00139000 * 2 GDTTIM PTR(31), /*UTIME ENTRY POINT ADDRESS*/ 00140000 * 2 GDTIIO PTR(31), /*UIOINIT ENTRY POINT ADDRESS*/ 00141000 * 2 GDTTIO PTR(31), /*UIOTERM ENTRY POINT ADDRESS*/ 00142000 * 2 GDTRIP PTR(31), /*READER/INTERPRETER */ 00143000 * /* NAME ADDRESS */ 00144000 * 2 GDTTOH PTR(31), /*I/O ADAPTER MVM */ 00145000 * /* DATA ADDRESS */ 00146000 * 2 GDTOPN PTR(31), /*UOPEN ENTRY POINT ADDRESS*/ 00147000 * 2 GDTCLS PTR(31), /*UCLOSE ENTRY POINT ADDRESS*/ 00148000 * 2 GDTGET PTR(31), /*UGET ENTRY POINT ADDRESS*/ 00149000 * 2 GDTPUT PTR(31), /*UPUT ENTRY POINT ADDRESS*/ 00150000 * 2 GDTABT PTR(31), /*UABORT ROUTINE ADDRESS*/ 00151000 * 2 GDTABH PTR(31), /*UABORT ROUTINE REGISTER*/ 00152000 * /* RESTORE AREA ADDRESS*/ 00153000 * 2 GDTSNP PTR(31), /*USNAP ENTRY POINT ADDRESS */ 00154000 * 2 GDTSPR PTR(31), /*ICKSA03 AUTOMATIC STORAGE */ 00155000 * 2 GDTWTO PTR(31), /*UWTO ENTRY POINT ADDRESS */ 00156000 * 2 GDTSCR PTR(31), /*USCRATCH ENTRY POINT ADDRESS*/ 00157000 * 2 GDTVCK PTR(31), /*UVOLCHK ENTRY POINT ADDRESS */ 00158000 * 2 GDTDVC PTR(31), /*UDEVCLSE ENTRY POINT ADDRESS*/ 00159000 * 2 GDTCVR PTR(31), /*ADDRESS OF COVER TABLE */ 00160000 * 2 GDTSTE PTR(31); /*USTAE ENTRY POINT ADDRESS */ 00161000 * 0004 00162000 * 0004 00163000 * /************************************************************/ 00164000 * /* */ 00165000 * /* ENTRY POINT DECLARATIONS FOR SYSTEM ADAPTER */ 00166000 * /* */ 00167000 * /************************************************************/ 00168000 * 0005 00169000 * 0005 00170000 * DCL ICKSACL0 ENTRY BASED(GDTCAL) VALUERANGE(*) 0005 00171000 * OPTIONS(VLIST); /*UCALL ADAPTER ENTRY POINT*/ 00172000 * DCL ICKSALD0 ENTRY BASED(GDTLOD) VALUERANGE(*); 0006 00173000 * /*ULOAD ADAPTER ENTRY POINT*/ 00174000 * DCL ICKSADE0 ENTRY BASED(GDTDEL) VALUERANGE(*); 0007 00175000 * /*UDELETE ADAPTER ENTRY POINT*/ 00176000 * DCL ICKSAPR0 ENTRY BASED(GDTPRL) VALUERANGE(*); 0008 00177000 * /*PROL ADAPTER ENTRY POINT */ 00178000 * DCL ICKSAEP0 ENTRY BASED(GDTEPL) VALUERANGE(*) 0009 00179000 * OPTIONS(VLIST); /*UEPIL ADAPTER ENTRY POINT*/ 00180000 * DCL ICKSAGS0 ENTRY BASED(GDTGSP) VALUERANGE(*) 0010 00181000 * OPTIONS(VLIST); /*UGSPACE ADAPTER ENTRY POINT*/ 00182000 * DCL ICKSAFS0 ENTRY BASED(GDTFSP) VALUERANGE(*); 0011 00183000 * /*UFSPACE ADAPTER ENTRY POINT*/ 00184000 * DCL ICKSAGP0 ENTRY BASED(GDTGPL) VALUERANGE(*) 0012 00185000 * OPTIONS(VLIST); /*UGPOOL ADAPTER ENTRY POINT*/ 00186000 * DCL ICKSAFP0 ENTRY BASED(GDTFPL) VALUERANGE(*) 0013 00187000 * OPTIONS(VLIST); /*UFPOOL ADAPTER ENTRY POINT*/ 00188000 * DCL ICKSATI0 ENTRY BASED(GDTTIM) VALUERANGE(*) 0014 00189000 * OPTIONS(VLIST); /*UTIME ADAPTER ENTRY POINT*/ 00190000 * DCL ICKSASN0 ENTRY BASED(GDTSNP) VALUERANGE(*); 0015 00191000 * /*USNAP ADAPTER ENTRY POINT*/ 00192000 * DCL ICKSAWO0 ENTRY BASED(GDTWTO) VALUERANGE(*) 0016 00193000 * OPTIONS(VLIST); /*UWTO ADAPTER EP */ 00194000 * DCL ICKSASC0 ENTRY BASED(GDTSCR) VALUERANGE(*) 0017 00195000 * OPTIONS(VLIST); /*USCRATCH ADAPTER EP */ 00196000 * DCL ICKSAVC0 ENTRY BASED(GDTVCK) VALUERANGE(*) 0018 00197000 * OPTIONS(VLIST); /*UVOLCHK ADAPTER EP */ 00198000 * DCL ICKSAST0 ENTRY BASED(GDTSTE) VALUERANGE(*); 0019 00199000 * /*USTAE ADAPTER EP */ 00200000 * 0020 00201000 * 0020 00202000 * /************************************************************/ 00203000 * /* */ 00204000 * /* DATA STRUCTURE DECLARATIONS FOR SYSTEM ADAPTER */ 00205000 * /* */ 00206000 * /************************************************************/ 00207000 * 0020 00208000 * /* INTER-MODULE TRACE TABLE */ 00209000 * /* (UPDATED BY THE PROL AND UEPIL ROUTINES) */ 00210000 * DCL 1 TRACE1 CHAR(100) BASED(GDTTR1), 0020 00211000 * 2 OLDERID1 CHAR(95), /*ALL BUT THE LATEST TRACE IDS*/ 00212000 * 3 * CHAR(90), /* OLDER TRACE IDENTIFIERS */ 00213000 * 3 CALLID CHAR(2), /* TRACE ID OF CALLING MODULE*/ 00214000 * 2 NEWID1 CHAR(4); /*THE MOST RECENT TRACE ID */ 00215000 * 0020 00216000 * DCL NEWERID1 CHAR(95) BASED(GDTTR1) POSITION(6); 0021 00217000 * /*ALL BUT THE OLDEST TRACE IDS*/ 00218000 * 0022 00219000 * /* INTRA-MODULE TRACE TABLE (UPDATED BY TRACE MACRO) */ 00220000 * DCL 1 TRACE2 CHAR(100) BASED(GDTTR2), 0022 00221000 * 2 OLDERID2 CHAR(95), /*ALL BUT THE LATEST TRACE IDS*/ 00222000 * 2 NEWID2 CHAR(4); /*THE MOST RECENT TRACE ID */ 00223000 * 0022 00224000 * DCL NEWERID2 CHAR(95) BASED(GDTTR2) POSITION(6); 0023 00225000 * /*ALL BUT THE OLDEST TRACE IDS*/ 00226000 * 0024 00227000 * /* CONTROL BLOCK STRUCTURE FOR USTAE MACRO INVOCATION */ 00228000 * 0024 00229000 * DECLARE 0024 00230000 * 1 STAEPARM BDY(WORD) BASED, 0024 00231000 * 0024 00232000 * 2 STAEPFX, /* STAE PREFIX */ 00233000 * 0024 00234000 * 3 STAFPTR /* FORWARD CHAIN POINTER */ 00235000 * POINTER (31), 0024 00236000 * 3 STABPTR /* BACKWARD CHAIN POINTER */ 00237000 * POINTER (31), 0024 00238000 * 3 STAGDT /* POINTER TO THE GDT */ 00239000 * POINTER(31), 0024 00240000 * 3 STAEPA /* ENTRY POINT ADDRESS OF RECOVERY */ 00241000 * /* ROUTINE */ 00242000 * POINTER (31), 0024 00243000 * 3 STAID /* CONTROL BLOCK IDENTIFIER UNIQUE */ 00244000 * /* TO INVOKER */ 00245000 * CHAR (4), 0024 00246000 * 3 STALEN /* LENGTH OF THE INVOKERS CONTROL */ 00247000 * /* BLOCK */ 00248000 * FIXED (31), 0024 00249000 * 3 STASPTR /* POINTER TO SYSTEM DIAGNOSTIC WORK*/ 00250000 * /* AREA */ 00251000 * POINTER (31) BDY (WORD), 0024 00252000 * 3 STARPTR /* POINTER TO SAVED REGISTERS */ 00253000 * POINTER (31) BDY (WORD), 0024 00254000 * 2 STAEWORK /* CONTROL BLOCK WORK AREA TO BE */ 00255000 * /* USED AT INVOKERS DISCRETION */ 00256000 * CHAR(*); 0024 00257000 * 0024 00258000 * /************************************************************/ 00259000 * /* */ 00260000 * /* KEYWORD-ARGUMENT DECLARATIONS FOR SYSTEM ADAPTOR */ 00261000 * /* */ 00262000 * /************************************************************/ 00263000 * DCL ALL CHAR(3) CONSTANT('ALL'); 0025 00264000 * /*'ALL' ARGUMENT FOR UFPOOL*/ 00265000 * DCL FORMAT CHAR(4) CONSTANT('FORM'); 0026 00266000 * /*'FORMAT' ARGUMENT FOR UTIME */ 00267000 * DCL HSECOND CHAR(4) CONSTANT('HSEC'); 0027 00268000 * /*'HSECOND' ARGUMENT FOR UTIME*/ 00269000 * DCL CLOCK CHAR(4) CONSTANT('KLOK'); 0028 00270000 * /*'CLOCK' ARGUMENT FOR UTIME */ 00271000 * DCL SETZERO CHAR(4) CONSTANT('ZERO'); 0029 00272000 * /*UGSPACE & UGPOOL 'ZERO' ARG*/ 00273000 * DCL SETBLANK CHAR(4) CONSTANT('BLNK'); 0030 00274000 * /*UGSPACE & UGPOOL 'BLANK' ARG*/ 00275000 * DCL NOSET CHAR(4) CONSTANT('NSET'); 0031 00276000 * /*UGSPACE 'NOSET' ARGUMENT */ 00277000 * 0032 00278000 * DCL OVERRIDE CHAR(4) CONSTANT('OVRD'); 0032 00279000 * /*'PURGE' ARGUMNT FOR USCRATCH*/ 00280000 * 0033 00281000 * DCL READ CHAR(4) CONSTANT('READ'); 0033 00282000 * /*'READ' ATTRIBUTE FOR UVOLCHK*/ 00283000 * DCL ALTER CHAR(4) CONSTANT('ALTR'); 0034 00284000 * /*UVOLCHK 'ALTER' ATTRIBUTE */ 00285000 * DCL UPDATE CHAR(4) CONSTANT('UPDT'); 0035 00286000 * /*UVOLCHK 'UPDATE' ATTRIBUTE */ 00287000 * DCL CONTROL CHAR(4) CONSTANT('CNTL'); 0036 00288000 * /*UVOLCHK 'CONTROL' ATTRIBUTE */ 00289000 * 0037 00290000 * DCL LISTLN FIXED(8); /*NUMBER OF ARGUMENTS IN LIST */ 00291000 * DCL LISTPTR PTR(31); /*PARM LIST ADDRESS (ULISTLN) */ 00292000 * DCL LISTSCAN PTR(31); /*ULISTLN SCAN POINTER */ 00293000 * DCL LISTTEST BIT(1) BASED(LISTSCAN); 0040 00294000 * /*ULISTLN LIST END BIT TEST */ 00295000 * 0041 00296000 * /************************************************************/ 00297000 * /* */ 00298000 * /* SYMBOLIC RETURN CODE DECLARATIONS FOR SYSTEM ADAPTER */ 00299000 * /* */ 00300000 * /************************************************************/ 00301000 * 0041 00302000 * /* RETURN CODE */ 00303000 * 0041 00304000 * DCL SETRC FIXED(15); /*RETURN CODE FOR SETTING */ 00305000 * DCL TESTRC FIXED(15); /*RETURN CODE FOR TESTING */ 00306000 * 0042 00307000 * DCL RTNREG REG(15); /*DMS RETURN CODE REGISTER */ 00308000 * 0043 00309000 * 0043 00310000 * /************************************************************/ 00311000 * /* */ 00312000 * /* ENTRY POINT DECLARATIONS FOR INPUT/OUTPUT ADAPTER */ 00313000 * /* */ 00314000 * /************************************************************/ 00315000 * 0044 00316000 * 0044 00317000 * DCL ICKIOIT0 ENTRY BASED(GDTIIO) VALUERANGE(*) 0044 00318000 * OPTIONS(VLIST); /*UIOINIT ADAPTER ENTRY POINT*/ 00319000 * DCL ICKIOOP0 ENTRY BASED(GDTOPN) VALUERANGE(*) 0045 00320000 * OPTIONS(VLIST); /*UOPEN ADAPTER ENTRY POINT*/ 00321000 * DCL ICKIOTM0 ENTRY BASED(GDTTIO) VALUERANGE(*) 0046 00322000 * OPTIONS(VLIST); /*UIOTERM ADAPTER ENTRY POINT*/ 00323000 * DCL ICKIOCL0 ENTRY BASED(GDTCLS) VALUERANGE(*) 0047 00324000 * OPTIONS(VLIST); /*UCLOSE ADAPTER ENTRY POINT*/ 00325000 * DCL ICKIOGT0 ENTRY BASED(GDTGET) VALUERANGE(*) 0048 00326000 * OPTIONS(VLIST); /*UGET ADAPTER ENTRY POINT*/ 00327000 * DCL ICKIOPT0 ENTRY BASED(GDTPUT) VALUERANGE(*) 0049 00328000 * OPTIONS(VLIST); /*UPUT ADAPTER ENTRY POINT*/ 00329000 * 0049 00330000 * 0049 00331000 * /************************************************************/ 00332000 * /* */ 00333000 * /* DATA STRUCTURE DECLARATIONS FOR INPUT/OUTPUT ADAPTER */ 00334000 * /* */ 00335000 * /************************************************************/ 00336000 * DCL IOCSPTR PTR(31); /*ADDRESS OF THE IOCS */ 00337000 * 0050 00338000 * /*INPUT/OUTPUT CONTROL STRUCTURE (IOCS) */ 00339000 * DCL 1 IOCSTR BOUNDARY(WORD) BASED(IOCSPTR), 0051 00340000 * 2 IOCDAD PTR(31), /*ADDRESS OF DATA */ 00341000 * 2 IOCDLN FIXED(31), /*LENGTH OF DATA */ 00342000 * 2 IOCTRN FIXED(31), /*LENGTH OF TRANSMISSION */ 00343000 * 2 IOCKYL FIXED(8), /*KEY LENGTH */ 00344000 * 2 IOCDSO BIT(8), /*DATA SET ORGANIZATION */ 00345000 * 3 IOCDSOPS BIT(1), /* SEQUENTIAL */ 00346000 * 3 * BIT(7), /* RESERVED */ 00347000 * 2 IOCRFM BIT(8), /*RECORD FORMAT FLAG */ 00348000 * 3 IOCRFMFX BIT(1), /* FIXED LENGTH RECORDS */ 00349000 * 3 IOCRFMVR BIT(1), /* VARIABLE (NOT SPANNED) */ 00350000 * 3 IOCRFMUN BIT(1), /* UNDEFINED LENGTH RECORDS */ 00351000 * 3 IOCRFMSF BIT(1), /* SPANNED RECORD FORMAT */ 00352000 * 3 IOCRFMBK BIT(1), /* BLOCKED RECORDS */ 00353000 * 3 * BIT(3), /* RESERVED */ 00354000 * 2 IOCMAC BIT(8), /*MACRO FORM FLAG */ 00355000 * 3 IOCMACIN BIT(1), /* INPUT DATA SET */ 00356000 * 3 IOCMACOT BIT(1), /* OUTPUT DATA SET */ 00357000 * 3 IOCMACUP BIT(1), /* OPEN FOR UPDATE */ 00358000 * 3 IOCMACBK BIT(1), /* BLOCK PROCESSING */ 00359000 * 3 * BIT(3), /* RESERVED */ 00360000 * 3 IOCMACPA BIT(1), /* REPROCESSING FLAG */ 00361000 * 2 IOCMSG BIT(8), /*MESSAGE FLAGS */ 00362000 * 3 IOCMSGOP BIT(1), /* DATA SET IS OPEN */ 00363000 * 3 * BIT(7), /* RESERVED */ 00364000 * 2 * CHAR(3), /*RESERVED */ 00365000 * 2 IOCDSN PTR(31), /*ADDRESS OF DATA SET NAME */ 00366000 * 2 IOCCBP PTR(31), /*RETURN BLOCK ADDRESS AREA */ 00367000 * 2 IOCPNM FIXED(15), /*NUMBER OF RECORDS TO */ 00368000 * /* PUT (NOT REQUIRED */ 00369000 * /* FOR ONE RECORD) */ 00370000 * 2 * FIXED(15), /*RESERVED */ 00371000 * 2 IOCRRN FIXED(31), /*RECORD SEQ NUMBER */ 00372000 * 2 IOCEXT PTR(31); /*IOCS EXTENSION ADDRESS */ 00373000 * 0051 00374000 * DCL OPNPTR PTR(31); /*OPEN ARGUMENT LIST ADDRESS */ 00375000 * 0052 00376000 * /*OPEN ARGUMENT LIST */ 00377000 * DCL 1 OPNAGL BOUNDARY(WORD) BASED(OPNPTR) CHAR(32), 0053 00378000 * 2 OPNOPT BIT(8), /*OPEN OPTIONS */ 00379000 * 3 OPNOPTIN BIT(1), /* INPUT DATA SET */ 00380000 * 3 OPNOPTOT BIT(1), /* OUTPUT DATA SET */ 00381000 * 3 OPNOPTUP BIT(1), /* UPDATE MODE PROCESSING */ 00382000 * 3 OPNOPTBK BIT(1), /* BLOCK PROCESSING */ 00383000 * 3 OPNOPTKS BIT(1), /* KEYED PROCESSING */ 00384000 * 3 OPNOPTJM BIT(1), /* MODIFY JFCB */ 00385000 * 3 * BIT(2), /* RESERVED */ 00386000 * 2 OPNRFM BIT(8), /*RECORD FORMAT */ 00387000 * 3 OPNRFMFX BIT(1), /* FIXED RECORDS */ 00388000 * 3 OPNRFMVR BIT(1), /* VARIABLE (NOT SPANNED) */ 00389000 * 3 OPNRFMUN BIT(1), /* UNDEFINED RECORDS */ 00390000 * 3 OPNRFMSF BIT(1), /* SPANNED RECORDS */ 00391000 * 3 OPNRFMBK BIT(1), /* BLOCKED RECORDS */ 00392000 * 3 * BIT(3), /* RESERVED */ 00393000 * 2 OPNTYP BIT(8), /*DATA SET TYPE */ 00394000 * 3 OPNTYPSI BIT(1), /* SYSTEM INPUT */ 00395000 * 3 OPNTYPSO BIT(1), /* SYSTEM OUTPUT */ 00396000 * 3 * BIT(6), /* RESERVED */ 00397000 * 2 OPNMOD BIT(8), /*OPEN MODIFIERS */ 00398000 * 3 OPNMODAC BIT(1), /* ASA CARRIAGE CONTROL CHAR */ 00399000 * 3 OPNMODRC BIT(1), /* RETURN CONTROL BLOCK ADDR */ 00400000 * 3 * BIT(6), /* RESERVED */ 00401000 * 2 OPNIOC PTR(31), /*PTR TO LOCATION IN WHICH 0053 00402000 * TO RETURN IOCS ADDRESS */ 00403000 * 2 OPNDDN PTR(31), /*ADDRESS OF 8-BYTE DDNAME */ 00404000 * 2 OPNDSN PTR(31), /*ADDRESS OF 44-BYTE DSNAME */ 00405000 * 2 OPNREC FIXED(31), /*LOGICAL RECORD LENGTH */ 00406000 * 2 OPNBLK FIXED(31), /*BLOCKSIZE */ 00407000 * 2 OPNVOL PTR(31), /*PTR TO VOL SERIAL */ 00408000 * 2 OPNRSVD FIXED(31); /* RESERVED */ 00409000 * 0053 00410000 * 0053 00411000 * /************************************************************/ 00412000 * /* */ 00413000 * /* USCRATCH VOLUME LIST MAPPING STRUCTURE */ 00414000 * /* */ 00415000 * /************************************************************/ 00416000 * DCL 1 UVOLLIST BASED, 0054 00417000 * 2 UVOLCNT FIXED(15), /*NUMBER OF ENTRIES */ 00418000 * 2 UVOLENT (*) CHAR(10), /*ONE PER VOLUME */ 00419000 * 3 UVOLDEV CHAR(4) , /*DEVICE TYPE */ 00420000 * 3 UVOLVOL CHAR(6) ; /*VOLUME SERIAL */ 00421000 * 0054 00422000 * 0054 00423000 * 0054 00424000 * 0054 00425000 * /************************************************************/ 00426000 * /* */ 00427000 * /* KEYWORD-ARGUMENT DECLARATIONS FOR DEVICE ADAPTER */ 00428000 * /* ACTION KEYS */ 00429000 * /* */ 00430000 * /************************************************************/ 00431000 * DCL ACTLOW /* MINIMUM OF ACTION-KEY VALUES */ 00432000 * FIXED (31) CONSTANT (1); 0055 00433000 * 0055 00434000 * DCL ACTRDHA /* READ HOME ADDRESS */ 00435000 * FIXED (31) CONSTANT (1); 0056 00436000 * DCL ACTRDRZ /* READ RECORD ZERO */ 00437000 * FIXED (31) CONSTANT (2); 0057 00438000 * DCL ACTWPHAD /* WRITE PRI. HA WITH DEFECT-FLAG ON */ 00439000 * FIXED (31) CONSTANT (3); 0058 00440000 * DCL ACTWPHA /* WRITE PRI. HA WITH DEFECT-FLAG OFF */ 00441000 * FIXED (31) CONSTANT (4); 0059 00442000 * DCL ACTWAHAD /* WRITE ALT. HA WITH DEFECT-FLAG ON */ 00443000 * FIXED (31) CONSTANT (5); 0060 00444000 * DCL ACTWAHA /* WRITE ALT. HA WITH DEFECT-FLAG OFF */ 00445000 * FIXED (31) CONSTANT (6); 0061 00446000 * DCL ACTWRRZM /* WRITE/READ R0 MAXIMUM LENGTH */ 00447000 * FIXED (31) CONSTANT (7); 0062 00448000 * DCL ACTWRZS /* WRITE STD. LENGTH RO */ 00449000 * FIXED (31) CONSTANT (8); 0063 00450000 * DCL ACTWCKDN /* WRITE RECORD 'N' (COUNT,KEY AND DATA) */ 00451000 * FIXED (31) CONSTANT (9); 0064 00452000 * DCL ACTRCKDN /* READ RECORD 'N' (COUNT,KEY AND DATA) */ 00453000 * FIXED (31) CONSTANT (10); 0065 00454000 * DCL ACTRKDN /* READ RECORD 'N' (KEY AND DATA) */ 00455000 * FIXED (31) CONSTANT (11); 0066 00456000 * DCL ACTRDN /* READ RECORD 'N' (DATA ONLY) */ 00457000 * FIXED (31) CONSTANT (12); 0067 00458000 * DCL ACTVPHA /* VALIDATE PRIMARY HOME ADDRESS */ 00459000 * FIXED (31) CONSTANT (13); 0068 00460000 * DCL ACTVALRZ /* VALIDATE RECORD ZERO */ 00461000 * FIXED (31) CONSTANT (14); 0069 00462000 * DCL ACTSENOP /* READ DEVICE OPTIONS (3340 ONLY) */ 00463000 * FIXED (31) CONSTANT (15); 0070 00464000 * DCL ACTRRZM /* READ MAXIMUM LENGTH RECORD ZERO */ 00465000 * FIXED (31) CONSTANT (16); 0071 00466000 * DCL ACTVAHA /* VALIDATE ALTERNATE HOME ADDRESS */ 00467000 * FIXED (31) CONSTANT (17); 0072 00468000 * DCL ACTWRZSL /* WRITE R0 TO LINK PRI. AND ALT. TRACKS */ 00469000 * FIXED (31) CONSTANT (18); 0073 00470000 * DCL ACTSCKDN /* WRITE SPECIAL COUNT/KEY/DATA */ 00471000 * FIXED (31) CONSTANT (19); 0074 00472000 * DCL ACTXXXA /* (RESERVED) */ 00473000 * FIXED (31) CONSTANT (20); 0075 00474000 * DCL ACTRWHA /* RECOVER WRITE HA */ 00475000 * FIXED (31) CONSTANT (21); 0076 00476000 * DCL ACTXXXB /* (RESERVED) */ 00477000 * FIXED (31) CONSTANT (22); 0077 00478000 * DCL ACTXXXC /* (RESERVED) */ 00479000 * FIXED (31) CONSTANT (23); 0078 00480000 * DCL ACTXXXD /* (RESERVED) */ 00481000 * FIXED (31) CONSTANT (24); 0079 00482000 * DCL ACTXXXE /* (RESERVED) */ 00483000 * FIXED (31) CONSTANT (25); 0080 00484000 * DCL ACTXXXF /* (RESERVED) */ 00485000 * FIXED (31) CONSTANT (26); 0081 00486000 * DCL ACTXXXG /* (RESERVED) */ 00487000 * FIXED (31) CONSTANT (27); 0082 00488000 * DCL ACTWKDN /* WRITE RECORD 'N' (KEY AND DATA) */ 00489000 * FIXED (31) CONSTANT (28); 0083 00490000 * DCL ACTWDN /* WRITE RECORD 'N' (DATA ONLY) */ 00491000 * FIXED (31) CONSTANT (29); 0084 00492000 * DCL ACTXXXH /* (RESERVED) */ 00493000 * FIXED (31) CONSTANT (30); 0085 00494000 * DCL ACTRRHA /* RECOVER READ-HOME-ADDRESS */ 00495000 * FIXED (31) CONSTANT (31); 0086 00496000 * DCL ACTRRRZ /* RECOVER READ-RECORD-ZERO */ 00497000 * FIXED (31) CONSTANT (32); 0087 00498000 * DCL ACTXXXJ /* (RESERVED) */ 00499000 * FIXED (31) CONSTANT (33); 0088 00500000 * DCL ACTRERZ /* RECOVER STANDARD R-ZERO */ 00501000 * FIXED (31) CONSTANT (34); 0089 00502000 * 0089 00503000 * DCL ACTHIGH /* MAXIMUM NUMBER OF ACTION-KEYS */ 00504000 * FIXED (31) CONSTANT (34); 0090 00505000 * 0090 00506000 * /************************************************************/ 00507000 * /* */ 00508000 * /* DEVICE ADAPTER VOLIB INFORMATION REQUEST KEYS */ 00509000 * /* */ 00510000 * /************************************************************/ 00511000 * DCL VOLLOW /* MINIMUM VALUE FOR VOLIB INFO-KEYS */ 00512000 * FIXED (31) CONSTANT (1); 0091 00513000 * DCL VOLDNAME /* DD-NAME */ 00514000 * FIXED (31) CONSTANT (1); 0092 00515000 * DCL VOLCUU /* CUU OF VOLUME */ 00516000 * FIXED (31) CONSTANT (2); 0093 00517000 * DCL VOLNTYP /* VOLUME TYPE - DD-NAME OR CUU */ 00518000 * FIXED (31) CONSTANT (3); 0094 00519000 * DCL VOLSTATE /* ON/OFF LINE STATE */ 00520000 * FIXED (31) CONSTANT (4); 0095 00521000 * DCL VOLAMAPF /* ACCESS PTR TO FIRST MAP DATA ENTRY */ 00522000 * FIXED (31) CONSTANT (5); 0096 00523000 * DCL VOLAMAPL /* ACCESS PTR TO LAST MAP DATA ENTRY */ 00524000 * FIXED (31) CONSTANT (6); 0097 00525000 * DCL VOLIOB /* ADDRESS OF ASSOCIATED IOB */ 00526000 * FIXED (31) CONSTANT (7); 0098 00527000 * DCL VOLPRVOL /* VOLUME IS MAOUNTED PRIVATELY */ 00528000 * FIXED (31) CONSTANT (8); 0099 00529000 * DCL VOLFINIT /* FIRST TIME INIT. FLAG */ 00530000 * FIXED (31) CONSTANT (9); 0100 00531000 * DCL VOLDTYP4 /* 4 BYTE UCB DEVICE TYPE */ 00532000 * FIXED (31) CONSTANT (10); 0101 00533000 * DCL VOLDTYP /* 1 BYTE UCB DEVICE TYPE */ 00534000 * FIXED (31) CONSTANT (11); 0102 00535000 * DCL VOLHIGH /* MAXIMUM VALUE FOR VOLIB INFO-KEYS */ 00536000 * FIXED (31) CONSTANT (11); 0103 00537000 * /************************************************************/ 00538000 * /* */ 00539000 * /* DEVICE ADAPTER VOLIB UPDATE REQUEST KEYS */ 00540000 * /* */ 00541000 * /************************************************************/ 00542000 * DCL VOLSLOW /* MINIMUM VALUE FOR VOLIB STORE KEYS */ 00543000 * FIXED (31) CONSTANT (105); 0104 00544000 * DCL VOLSMAPF /* STORE PTR TO FIRST MAP DATA ENTRY */ 00545000 * FIXED (31) CONSTANT (105); 0105 00546000 * DCL VOLSMAPL /* STORE PTR TO LAST MAP DATA ENTRY */ 00547000 * FIXED (31) CONSTANT (106); 0106 00548000 * DCL VOLSHIGH /* MAXIMUM VALUE FOR VOLIB STORE KEYS */ 00549000 * FIXED (31) CONSTANT (106); 0107 00550000 * /************************************************************/ 00551000 * /* */ 00552000 * /* DEVICE INFORMATION TABLE DATA REQUEST KEYS */ 00553000 * /* */ 00554000 * /************************************************************/ 00555000 * DCL DEVLOW /* MINIMUM VALUE FOR DEV KEYS */ 00556000 * FIXED (31) CONSTANT (201); 0108 00557000 * DCL DEVPTRKS /* NUMBER OF PRIMARY TRACKS ON PACK */ 00558000 * FIXED (31) CONSTANT (201); 0109 00559000 * DCL DEVATRKS /* NUMBER OF ALTERNATE TRACKS ON PACK */ 00560000 * FIXED (31) CONSTANT (202); 0110 00561000 * DCL DEVNUMSD /* NUMBER OF SD BYTES IN HA */ 00562000 * FIXED (31) CONSTANT (203); 0111 00563000 * DCL DEVTKCYL /* TRACKS PER CYLINDER */ 00564000 * FIXED (31) CONSTANT (204); 0112 00565000 * DCL DEVLPADD /* ADDRESS OF LAST PRIMARY TRACK */ 00566000 * FIXED (31) CONSTANT (205); 0113 00567000 * DCL DEVFAADD /* ADDRESS OF FIRST ALTERNATE TRACK */ 00568000 * FIXED (31) CONSTANT (206); 0114 00569000 * DCL DEVLAADD /* ADDRESS OF LAST ALTERNATE TRACK */ 00570000 * FIXED (31) CONSTANT (207); 0115 00571000 * DCL DEVTHOLD /* THRESHOLD OF UNRECOVERABLE TRACKS */ 00572000 * FIXED (31) CONSTANT (208); 0116 00573000 * DCL DEVBSRS1 /* IPL BOOTSTRAP PROGRAM RECORD 1 */ 00574000 * FIXED (31) CONSTANT (209); 0117 00575000 * DCL DEVBSRS2 /* IPL BOOTSTRAP PROGRAM RECORD 2 */ 00576000 * FIXED (31) CONSTANT (210); 0118 00577000 * DCL DEVIPLPL /* MAX. IPL PGM. LENGTH */ 00578000 * FIXED (31) CONSTANT (211); 0119 00579000 * DCL DEVMSSID /* MSS VOLUME IN EFFECT */ 00580000 * FIXED (31) CONSTANT (212); 0120 00581000 * DCL DEVVTOCL /* DEFAULT VTOC LOCATION */ 00582000 * FIXED (31) CONSTANT (213); 0121 00583000 * DCL DEVVTOCE /* DEFAULT VTOC EXTENTS */ 00584000 * FIXED (31) CONSTANT (214); 0122 00585000 * DCL DEVDSCBF /* FORMAT 4 DACB DEVICE CONSTANTS */ 00586000 * FIXED (31) CONSTANT (215); 0123 00587000 * DCL DEVTRKCP /* TRACK CAPACITY - (HA AND R0) */ 00588000 * FIXED (31) CONSTANT (216); 0124 00589000 * DCL DEVRECOH /* RECORD OVERHEAD */ 00590000 * FIXED (31) CONSTANT (217); 0125 00591000 * DCL DEVMRTRK /* MAXIMUM NUMBER OF RECORDS PER TRACK */ 00592000 * FIXED (31) CONSTANT (218); 0126 00593000 * DCL DEVBSRW1 /* SPECIAL BOOTSTRAP: FORCES WAIT STATE */ 00594000 * FIXED (31) CONSTANT (219); 0127 00595000 * DCL DEVHIGH /* MAXIMUM VALUE FOR DEV KEY */ 00596000 * FIXED (31) CONSTANT (219); 0128 00597000 * /************************************************************/ 00598000 * /* */ 00599000 * /* ENTRY POINT DECLARATIONS FOR THE DEVICE ADAPTER */ 00600000 * /* */ 00601000 * /************************************************************/ 00602000 * 0129 00603000 * DCL ICKDVON0 ENTRY BASED(GDTDVO) VALUERANGE(*); 0129 00604000 * /* UDEVOPEN ENTRY POINT */ 00605000 * DCL ICKDVIN0 ENTRY BASED(GDTDIN) VALUERANGE(*); 0130 00606000 * /* UDEVINFO ENTRY POINT */ 00607000 * DCL ICKDVOP0 ENTRY BASED(GDTDOP) VALUERANGE(*); 0131 00608000 * /* UDEVOP ENTRY POINT */ 00609000 * DCL ICKDVCL0 ENTRY BASED(GDTDVC) VALUERANGE(*); 0132 00610000 * /* UDEVCLSE ENTRY POINT */ 00611000 * 0133 00612000 * 0133 00613000 * 0133 00614000 * /************************************************************/ 00615000 * /* */ 00616000 * /* ENTRY POINT DECLARATIONS FOR TEXT OUTPUT PROCESSOR */ 00617000 * /* */ 00618000 * /************************************************************/ 00619000 * 0133 00620000 * 0133 00621000 * DCL ICKTPPR0 ENTRY BASED(GDTPRT) VALUERANGE(*) 0133 00622000 * OPTIONS(VLIST); /*UPRINT MACRO ENTRY POINT */ 00623000 * DCL ICKTPES0 ENTRY BASED(GDTESS) VALUERANGE(*); 0134 00624000 * /*UESTS MACRO ENTRY POINT */ 00625000 * DCL ICKTPEA0 ENTRY BASED(GDTESA) VALUERANGE(*); 0135 00626000 * /*UESTA MACRO ENTRY POINT */ 00627000 * DCL ICKTPRS0 ENTRY BASED(GDTRST) VALUERANGE(*) 0136 00628000 * OPTIONS(VLIST); /*UREST MACRO ENTRY POINT */ 00629000 * DCL ICKTPRE0 ENTRY BASED(GDTRES) VALUERANGE(*) 0137 00630000 * OPTIONS(VLIST); /*URESET MACRO ENTRY POINT */ 00631000 * 0137 00632000 * 0137 00633000 * /************************************************************/ 00634000 * /* */ 00635000 * /* DATA STRUCTURE DECLARATIONS FOR TEXT OUTPUT PROCESSOR */ 00636000 * /* */ 00637000 * /************************************************************/ 00638000 * DCL DDSTRU PTR(31); /*DYNAMIC DATA STRUCTURE PTR */ 00639000 * 0138 00640000 * /*DYNAMIC DATA STRUCTURE ARGUMENT LIST */ 00641000 * DCL 1 DARGLIST BOUNDARY(WORD) BASED(DDSTRU), 0139 00642000 * 2 DARGDBP PTR(31), /*DATA BLOCK POINTER */ 00643000 * 2 DARGRETP PTR(31), /*RETURN AREA POINTER */ 00644000 * 2 DARGSTID FIXED(31),/*STATIC TEXT IDENTIFIER */ 00645000 * 3 DARGSMOD CHAR(3), /* STATIC TEXT MODULE */ 00646000 * 3 DARGSENT PTR(8), /* STATIC TEXT ENTRY */ 00647000 * 2 DARGILP FIXED(15),/*INPUT BLOCK LENGTH */ 00648000 * 2 DARGCNT FIXED(15),/*COUNT OF REF GROUPS */ 00649000 * 2 DARGRETL FIXED(15),/*RETURN AREA LENGTH */ 00650000 * 2 DARGIND FIXED(8), /*PRINT LINE INDENT FACTOR */ 00651000 * 2 * FIXED(8), /*RESERVED */ 00652000 * 2 DARGARY(*) BOUNDARY(WORD), 0139 00653000 * 3 DARGINS FIXED(15),/*INSERT REFERENCE NUMBER */ 00654000 * 4 DARGREP FIXED(15),/*REPLICATION REFERENCE NUMBER*/ 00655000 * 3 DARGINL FIXED(15),/*INPUT DATA LENGTH */ 00656000 * 4 DARGPCT FIXED(15),/*REDO REPLICATION COUNT */ 00657000 * 3 DARGDTM FIXED(31);/*DYNAMIC DATA POINTER */ 00658000 * 0139 00659000 * DCL FSADDR PTR(31); /*FORMAT STRUCTURE POINTER */ 00660000 * 0140 00661000 * /*FORMAT STRUCTURE ARGUMENT LIST */ 00662000 * DCL 1 FMTLIST BOUNDARY(WORD) BASED(FSADDR), 0141 00663000 * 2 FMTFLGS BIT(16), /*FLAG BYTES */ 00664000 * 3 FMTEOLF BIT(1), /* END OF STRUCTURE FLAG */ 00665000 * 3 FMTSCF BIT(1), /* SPACE CONTROL FLAG */ 00666000 * 3 FMTIDF BIT(1), /* INSERT DATA FLAG */ 00667000 * 3 FMTBDF BIT(1), /* BLOCK DATA FLAG */ 00668000 * 3 FMTREPF BIT(1), /* REDO FLAG */ 00669000 * 3 FMTSTF BIT(1), /* STATIC TEXT FLAG */ 00670000 * 3 FMTDFF BIT(1), /* DEFAULT DATA FLAG */ 00671000 * 3 FMTHDF BIT(1), /* HEADER FLAG */ 00672000 * 3 * BIT(8), /* RESERVED */ 00673000 * 2 FMTSPF FIXED(15),/*SPACING FACTOR */ 00674000 * 3 FMTRFNO FIXED(15),/*INSERT REFERENCE NUMBER */ 00675000 * 4 FMTILEN FIXED(15),/*BLOCK INPUT LENGTH */ 00676000 * 5 FMTSTL FIXED(15),/*STATIC TEXT LENGTH */ 00677000 * 2 FMTIOFF FIXED(15),/*BLOCK INPUT OFFSET */ 00678000 * 3 FMTTRBC FIXED(15),/*REPLICATION STRUCTURE COUNT */ 00679000 * 4 FMTSTO FIXED(15),/*STATIC TEXT OFFSET */ 00680000 * 5 FMTSPT CHAR(1), /*SPACING TYPE */ 00681000 * 2 FMTOCOL FIXED(15),/*PRINT COLUMN */ 00682000 * 3 FMTRIO FIXED(15),/*REPLICATION INPUT OFFSET */ 00683000 * 2 FMTOLEN FIXED(15),/*PRINT FIELD LENGTH */ 00684000 * 2 FMTCNVF BIT(16), /*CONVERSION FLAGS */ 00685000 * 3 FMTBH BIT(1), /* BINARY TO HEX */ 00686000 * 3 FMTBHA BIT(1), /* BINARY TO HEX APOSTROPHE */ 00687000 * 3 FMTBHD BIT(1), /* BINARY TO HEX DUMP */ 00688000 * 3 FMTBD BIT(1), /* BINARY TO DECIMAL */ 00689000 * 3 FMTPU BIT(1), /* PACKED TO UNPACKED */ 00690000 * 3 * BIT(3), /* RESERVED */ 00691000 * 3 FMTZS BIT(1), /* ZERO SUPPRESSION */ 00692000 * 3 FMTAL BIT(1), /* ALIGN LEFT */ 00693000 * 3 FMTSS BIT(1), /* SIGN SUPPRESSION */ 00694000 * 3 FMTBS BIT(1), /* BLANK SUPPRESSION */ 00695000 * 3 * BIT(4); /* RESERVED */ 00696000 * 0141 00697000 * 0141 00698000 * /************************************************************/ 00699000 * /* */ 00700000 * /* ENTRY POINT DECLARATIONS FOR DEBUGGING AIDS */ 00701000 * /* */ 00702000 * /************************************************************/ 00703000 * 0142 00704000 * 0142 00705000 * 0142 00706000 * DCL ICKDB010 ENTRY BASED(GDTDBG) VALUERANGE(*) 0142 00707000 * OPTIONS(VLIST); /*DMS DUMP ROUTINE ENTRY PT */ 00708000 * 0142 00709000 * 0142 00710000 * /************************************************************/ 00711000 * /* */ 00712000 * /* DATA STRUCTURE DECLARATIONS FOR DEBUGGING AIDS */ 00713000 * /* */ 00714000 * /************************************************************/ 00715000 * 0143 00716000 * /* DATA ITEM DECLARATIONS FOR SYMBOLIC DUMP MACROS */ 00717000 * 0143 00718000 * DCL DMPINDEX PTR(31); /*DUMP LIST PROCESSING POINTER*/ 00719000 * 0143 00720000 * /*DUMP LIST INDIVIDUAL ELEMENT FORMAT */ 00721000 * DCL 1 DMPITM CHAR(16) BOUNDARY(WORD) BASED(DMPINDEX), 00722000 * 2 DMPITMNM CHAR(8), /*DUMP ELEMENT SYMBOLIC NAME */ 00723000 * 2 DMPITMPT PTR(31), /*DUMP ELEMENT ADDRESS */ 00724000 * 2 DMPITMLN FIXED(15), /*DUMP ELEMENT LENGTH */ 00725000 * 2 DMPITMTP CHAR(1), /*DUMP ELEMENT TYPE */ 00726000 * 2 * CHAR(1); /*RESERVED */ 00727000 * 0144 00728000 * /*DUMP LIST ARRAY HEADER FORMAT */ 00729000 * DCL 1 DMPARY CHAR(16) BOUNDARY(WORD) BASED(DMPINDEX), 00730000 * 2 DMPARYNM CHAR(8), /*DUMP ARRAY SYMBOLIC NAME */ 00731000 * 2 DMPARYSZ FIXED(15), /*DUMP ARRAY SIZE */ 00732000 * 2 DMPARYIC FIXED(15), /*DUMP ARRAY ITEM COUNT */ 00733000 * 2 DMPARYEX FIXED(15), /*DUMP ARRAY EXTENT */ 00734000 * 2 DMPARYTP CHAR(1), /*DUMP ARRAY TYPE */ 00735000 * 2 * CHAR(1); /*RESERVED */ 00736000 * 0145 00737000 * /*DUMP LIST TERMINATOR FORMAT */ 00738000 * DCL DMPTRM CHAR(1) BOUNDARY(WORD) BASED(DMPINDEX); 00739000 * 0146 00740000 * DCL DMPTRMVL BIT(8) CONSTANT('FF'X); 0147 00741000 * /*DUMP LIST TERMINATION FLAG */ 00742000 * 0148 00743000 * DCL DMPELEMT FIXED(15) CONSTANT(16); 0148 00744000 * /*DUMP LIST ITEM SIZE */ 00745000 * 0149 00746000 * 0149 00747000 * /************************************************************/ 00748000 * /* */ 00749000 * /* DECLARATIONS FOR CONVENTIONALIZED NAMED VALUES */ 00750000 * /* */ 00751000 * /************************************************************/ 00752000 * 0149 00753000 * DCL REG0 REGISTER(0); /*REGISTER 0 SPECIFICATION */ 00754000 * DCL REG1 REGISTER(1); /*REGISTER 1 SPECIFICATION */ 00755000 * DCL REG2 REGISTER(2); /*REGISTER 2 SPECIFICATION */ 00756000 * DCL REG3 REGISTER(3); /*REGISTER 3 SPECIFICATION */ 00757000 * DCL REG4 REGISTER(4); /*REGISTER 4 SPECIFICATION */ 00758000 * DCL REG5 REGISTER(5); /*REGISTER 5 SPECIFICATION */ 00759000 * DCL REG6 REGISTER(6); /*REGISTER 6 SPECIFICATION */ 00760000 * DCL REG7 REGISTER(7); /*REGISTER 7 SPECIFICATION */ 00761000 * DCL REG8 REGISTER(8); /*REGISTER 8 SPECIFICATION */ 00762000 * DCL REG9 REGISTER(9); /*REGISTER 9 SPECIFICATION */ 00763000 * DCL REG10 REGISTER(10); /*REGISTER 10 SPECIFICATION */ 00764000 * DCL REG11 REGISTER(11); /*REGISTER 11 SPECIFICATION */ 00765000 * DCL REG12 REGISTER(12); /*REGISTER 12 SPECIFICATION */ 00766000 * DCL REG13 REGISTER(13); /*REGISTER 13 SPECIFICATION */ 00767000 * DCL REG14 REGISTER(14); /*REGISTER 14 SPECIFICATION */ 00768000 * DCL REG15 REGISTER(15); /*REGISTER 15 SPECIFICATION */ 00769000 * 0164 00770000 * DCL LASTCC00 FIXED(15) CONSTANT(0); 0165 00771000 * /*FSR LAST CONDITION CODE = 0*/ 00772000 * DCL LASTCC04 FIXED(15) CONSTANT(4); 0166 00773000 * /*FSR LAST CONDITION CODE = 4*/ 00774000 * DCL LASTCC08 FIXED(15) CONSTANT(8); 0167 00775000 * /*FSR LAST CONDITION CODE = 8*/ 00776000 * DCL LASTCC12 FIXED(15) CONSTANT(12); 0168 00777000 * /*FSR LAST CONDITION CODE = 12*/ 00778000 * DCL LASTCC16 FIXED(15) CONSTANT(16); 0169 00779000 * /*FSR LAST CONDITION CODE = 16*/ 00780000 * 0170 00781000 * DCL NULLPTR PTR(31) CONSTANT(0); 0170 00782000 * /*NULL POINTER VALUE */ 00783000 * DCL ON BIT(1) CONSTANT('1'B); 0171 00784000 * /*BIT SWITCH/FLAG 'ON' VALUE */ 00785000 * DCL OFF BIT(1) CONSTANT('0'B); 0172 00786000 * /*BIT SWITCH/FLAG 'OFF' VALUE */ 00787000 * DCL YES BIT(1) CONSTANT('1'B); 0173 00788000 * /*BIT SWITCH/FLAG 'YES' VALUE */ 00789000 * DCL NO BIT(1) CONSTANT('0'B); 0174 00790000 * /*BIT SWITCH/FLAG 'NO' VALUE */ 00791000 * DCL PRTFILE FIXED(31) CONSTANT(0); 0175 00792000 * /*SYSPRINT OUTPUT FILE NAME */ 00793000 * 0176 00794000 */********************************************************************/ 00795000 */* */ 00796000 */* END OF DMS GLOBAL DECLARATIONS */ 00797000 */* */ 00798000 */********************************************************************/ 00799000 * 0176 00800000 * 0176 00801000 * 0176 00802000 * 0176 00803000 * /************************************************************/ 00804000 * /* 03/08/78 */ 00805000 * /* DEVICE ADAPTER INTERNAL DATA STRUCTURES AND */ 00806000 * /* DEVICE TYPE DECLARATIONS */ 00807000 * /* */ 00808000 * /************************************************************/ 00809000 * /* */ 00810000 * /* (1) DEVICE ADAPTER VOLUME INFORMATION BLOCK (VOLIB) */ 00811000 * /* (2) DEVICE ADAPTER APPENDAGE INFORMATION AREA */ 00812000 * /* (3) DEVICE ADAPTER CONTROL BLOCK STORAGE AREA */ 00813000 * /* (4) DEVICE ADAPTER 3 BYTE SENSE DATA STRUCTURE */ 00814000 * /* (5) DEVICE ADAPTER DEVICE TYPE DECLARATIONS */ 00815000 * /* */ 00816000 * /************************************************************/ 00817000 * /************************************************************/ 00818000 * /* */ 00819000 * /* VOLUME INFORMATION CONTROL BLOCK DECLARATION */ 00820000 * /* */ 00821000 * /************************************************************/ 00822000 * 0176 00823000 * DCL 1 VOLIB BASED (VOLIBPTR), 0176 00824000 * 2 VLFPTR /* VOLIB FORWARD CHAIN POINTER */ 00825000 * POINTER(31), 0176 00826000 * 2 VLBPTR /* VOLIB BACKWARD CHAIN POINTER */ 00827000 * POINTER(31), 0176 00828000 * 2 VLMAPF /* FIRST MAP ENTRY POINTER */ 00829000 * CHAR(4), 0176 00830000 * 2 VLMAPL /* LAST MAP ENTRY POINTER */ 00831000 * CHAR(4), 0176 00832000 * 2 VLIOBPTR /* POINTER TO THE ASSOCIATED IOB */ 00833000 * POINTER(31), 0176 00834000 * 2 VLDNMCUU /* DDNAME OR CUU OF VOLUME */ 00835000 * CHAR(8), 0176 00836000 * 2 VLUCBDT /* 4 BYTE UCB DEVICE TYPE */ 00837000 * CHAR(4), 0176 00838000 * 3 * /* NOT USED HERE */ 00839000 * CHAR(3), 0176 00840000 * 3 VLDEVTYP /* DEVICE TYPE UCB CODE ONE BYTE */ 00841000 * CHAR(1), 0176 00842000 * 2 VLDEVIND /* DEV. TYPE (UDEVOP INDEX VALUE) */ 00843000 * FIXED(8), 0176 00844000 * 2 VLPRVOL /* PRIVATE VOLUME FLAG (1 = PRIVATE)*/ 00845000 * BIT(1) BDY(BYTE), 0176 00846000 * 2 VLFINIT /* FIRST TIME INIT. FLAG (1 = FIRST)*/ 00847000 * BIT(1) BDY(BYTE), 0176 00848000 * 2 VLSTATE /* ON/OFF LINE FLAG (1 = ON) */ 00849000 * BIT(1) BDY(BYTE), 0176 00850000 * 2 VLNTYP /* VOLUME NAME TYPE (1 = DDNAME) */ 00851000 * BIT(1) BDY(BYTE), 0176 00852000 * 2 VLNUMBER /* VOLIB ALLOCATION SEQUENCE NUMBER */ 00853000 * FIXED(8) BDY(BYTE), 0176 00854000 * 2 * /* RESERVED */ 00855000 * CHAR (2) BDY (BYTE); 0176 00856000 * 0176 00857000 * /************************************************************/ 00858000 * /* */ 00859000 * /* END OF VOLIB DECLARATION */ 00860000 * /* */ 00861000 * /************************************************************/ 00862000 * /************************************************************/ 00863000 * /* */ 00864000 * /* I/O APPENDAGE INFORMATION AREA DECLARATION */ 00865000 * /* */ 00866000 * /************************************************************/ 00867000 * 0177 00868000 * DCL 1 APINFO BASED (APIPTR), 0177 00869000 * 2 APABNC /* NUMBER OF CALLS TO ABNORMAL END */ 00870000 * FIXED(31), 0177 00871000 * 2 APAKEY /* ACTION KEY CAUSING APPENDAGE */ 00872000 * FIXED(31), 0177 00873000 * 2 APANXT /* ACTION KEY TO EXECUTE NEXT */ 00874000 * FIXED(31), 0177 00875000 * 2 APTRACK /* CCHH OF TRACK IN USE */ 00876000 * FIXED(32), 0177 00877000 * 2 APASSOC /* CCHH OF ASSOCIATED TRACK */ 00878000 * FIXED(32), 0177 00879000 * 2 APLASTA /* CCHH OF LAST ALTERNATE TRACK */ 00880000 * FIXED(32), 0177 00881000 * 2 APTRKCT /* NUMBER OF TRACKS ON VOLUME */ 00882000 * FIXED(31), 0177 00883000 * 2 APSAVE /* APPENDAGE REGISTER SAVE AREA */ 00884000 * CHAR(64), 0177 00885000 * 2 APOVFLO /* TRACK OVERFLOW FLAG */ 00886000 * BIT(1); 0177 00887000 * 0177 00888000 * /************************************************************/ 00889000 * /* */ 00890000 * /* END OF APPENDAGE INFORMATION AREA DECLARATION */ 00891000 * /* */ 00892000 * /************************************************************/ 00893000 * /************************************************************/ 00894000 * /* */ 00895000 * /* CONTROL BLOCK STORAGE AREA DECLARATION */ 00896000 * /* */ 00897000 * /************************************************************/ 00898000 * 0178 00899000 * DCL 1 CNTBLKS BASED (VOLIBPTR), 0178 00900000 * 2 CBVOLIB CHAR( LENGTH(VOLIB) ), 0178 00901000 * 2 CBECB CHAR(4) BDY (WORD), 0178 00902000 * 2 CBIOB CHAR(40), 0178 00903000 * 2 CBDCB CHAR(96), 0178 00904000 * 2 CBAPINFO CHAR( LENGTH(APINFO) ); 0178 00905000 * 0178 00906000 * /************************************************************/ 00907000 * /* */ 00908000 * /* END OF CONTROL BLOCK STORAGE AREA */ 00909000 * /* */ 00910000 * /************************************************************/ 00911000 * /************************************************************/ 00912000 * /* */ 00913000 * /* DEVICE SENSE INFORMATION DATA STRUCTURE */ 00914000 * /* */ 00915000 * /************************************************************/ 00916000 * 0179 00917000 * DCL 1 DEVSENSE /* DEVICE SENSE STRUCTURE */ 00918000 * BASED (DATAPTR), 0179 00919000 * 2 BYTE0 /* SENSE BYTE ZERO */ 00920000 * CHAR(1), 0179 00921000 * 3 * /* NOT USED */ 00922000 * BIT(3), 0179 00923000 * 3 SENEQCK /* EQUIPMENT CHECK BIT */ 00924000 * BIT(1), 0179 00925000 * 3 SENDATCK /* DATA CHECK BIT */ 00926000 * BIT(1), 0179 00927000 * 3 * /* NOT USED */ 00928000 * BIT(1), 0179 00929000 * 3 SENTRKCK /* TRACK CHECK BIT */ 00930000 * BIT(1), 0179 00931000 * 3 SENSEEKC /* SEEK CHECK BIT */ 00932000 * BIT(1), 0179 00933000 * 2 BYTE1 /* SENSE BYTE ONE */ 00934000 * CHAR(1), 0179 00935000 * 3 SENPERR /* PERMANENT ERROR (NOT 2314,2319) */ 00936000 * BIT(1), 0179 00937000 * 3 * /* NOT USED */ 00938000 * BIT(3), 0179 00939000 * 3 SENRFND /* NO RECORD FOUND BIT */ 00940000 * BIT(1), 0179 00941000 * 3 * /* NOT USED */ 00942000 * BIT(3), 0179 00943000 * 2 BYTE2 /* SENSE BYTE TWO */ 00944000 * CHAR(1), 0179 00945000 * 3 SENRPSPR /* RPS OPTION BIT */ 00946000 * BIT(1), 0179 00947000 * 3 SENCERR /* CORRECTABLE ERROR BIT */ 00948000 * BIT(1), 0179 00949000 * 3 * /* NOT USED */ 00950000 * BIT(2), 0179 00951000 * 3 SEN3344 /* 3344 DEVICE BIT */ 00952000 * BIT(1), 0179 00953000 * 4 SENEMUL /* COMPAT. FLAG (3330 EMULATION) */ 00954000 * BIT(1), 0179 00955000 * 3 * /* NOT USED */ 00956000 * BIT(1), 0179 00957000 * 3 SENMB70 /* 3340 OPTION BIT FOR 70MB */ 00958000 * BIT(1), 0179 00959000 * 3 SENMB35 /* 3340 OPTION BIT FOR 35MB */ 00960000 * BIT(1); 0179 00961000 * 0179 00962000 * /************************************************************/ 00963000 * /* */ 00964000 * /* END OF SENSE DATA STRUCTURE */ 00965000 * /* */ 00966000 * /************************************************************/ 00967000 * /************************************************************/ 00968000 * /* */ 00969000 * /* DEVICE TYPE DECLARATIONS (VLDEVIND DEVICE INDEX VALUE) */ 00970000 * /* */ 00971000 * /************************************************************/ 00972000 * 0180 00973000 * DCL DV230A /* DEVICE INDEX VALUE FOR 2305-1 */ 00974000 * FIXED(8) CONSTANT (1); 0180 00975000 * 0180 00976000 * DCL DV230B /* DEVICE INDEX VALUE FOR 2305-2 */ 00977000 * FIXED(8) CONSTANT (2); 0181 00978000 * 0181 00979000 * DCL DV2314 /* DEVICE INDEX VALUE FOR 2314/2319 */ 00980000 * FIXED(8) CONSTANT (3); 0182 00981000 * 0182 00982000 * DCL DV333A /* DEVICE INDEX VALUE FOR 3330 */ 00983000 * FIXED(8) CONSTANT (4); 0183 00984000 * 0183 00985000 * DCL DV333B /* DEVICE INDEX VALUE FOR 3330-1 */ 00986000 * FIXED(8) CONSTANT (5); 0184 00987000 * 0184 00988000 * DCL DV333C /* DEV. IND. VALUE FOR 3330 STG. PK */ 00989000 * FIXED(8) CONSTANT (6); 0185 00990000 * 0185 00991000 * DCL DV333D /* DEVICE IND. VAL. 3330-1 STG. PK. */ 00992000 * FIXED(8) CONSTANT (7); 0186 00993000 * 0186 00994000 * DCL DV334A /* DEVICE INDEX VALUE FOR 334A */ 00995000 * FIXED(8) CONSTANT (8); 0187 00996000 * 0187 00997000 * DCL DV334B /* DEVICE INDEX VALUE FOR 334B */ 00998000 * FIXED(8) CONSTANT (9); 0188 00999000 * 0188 01000000 * DCL DV334C /* DEVICE INDEX VALUE FOR 334C */ 01001000 * FIXED(8) CONSTANT (10); 0189 01002000 * 0189 01003000 * DCL DV334D /* DEVICE INDEX VALUE FOR 334D */ 01004000 * FIXED(8) CONSTANT (11); 0190 01005000 * 0190 01006000 * DCL DV3344 /* DEVICE INDEX VALUE FOR 3344 */ 01007000 * FIXED(8) CONSTANT (9); 0191 01008000 * 0191 01009000 * DCL DV3350 /* DEVICE INDEX VALUE FOR 3350 */ 01010000 * FIXED(8) CONSTANT (12); 0192 01011000 * 0192 01012000 * /************************************************************/ 01013000 * /* */ 01014000 * /* DEVICE TYPE DECLARATIONS (UCB CODE VALUES) */ 01015000 * /* */ 01016000 * /************************************************************/ 01017000 * 0193 01018000 * DCL DUCB230A /* DEVICE UCB CODE FOR 2305-1 */ 01019000 * BIT(8) CONSTANT ('06'X); 0193 01020000 * 0193 01021000 * DCL DUCB230B /* DEVICE UCB CODE FOR 2305-2 */ 01022000 * BIT(8) CONSTANT ('07'X); 0194 01023000 * 0194 01024000 * DCL DUCB2314 /* DEVICE UCB CODE FOR 2314/2319 */ 01025000 * BIT(8) CONSTANT ('08'X); 0195 01026000 * 0195 01027000 * DCL DUCB3330 /* DEVICE UCB CODE FOR 3330 */ 01028000 * BIT(8) CONSTANT ('09'X); 0196 01029000 * 0196 01030000 * DCL DUCB3331 /* DEVICE UCB CODE FOR 3330-1 */ 01031000 * BIT(8) CONSTANT ('0D'X); 0197 01032000 * 0197 01033000 * DCL DUCB334N /* DEVICE UCB CODE FOR 334N */ 01034000 * BIT(8) CONSTANT ('0A'X); 0198 01035000 * 0198 01036000 * DCL DUCB3350 /* DEVICE UCB CODE FOR 3350 */ 01037000 * BIT(8) CONSTANT ('0B'X); 0199 01038000 * 0199 01039000 * /************************************************************/ 01040000 * /* */ 01041000 * /* END OF DEVICE TYPE DECLARATIONS */ 01042000 * /* */ 01043000 * /************************************************************/ 01044000 * /************************************************************/ 01045000 * /* */ 01046000 * /* END DEVICE ADAPTER DECLARATIONS */ 01047000 * /* */ 01048000 * /************************************************************/ 01049000 * 0200 01050000 * 0200 01051000 */******************** LIST FORM MACROS ****************************/ 01052000 * 0200 01053000 *LDCB1: 0200 01054000 * GEN DATA; 0200 01055000 LDCB1 DS 0H 0200 01056000 * GEN DATA; 0201 01057000 */******************** MAPPING MACROS ******************************/ 01058000 * 0202 01059000 * 0202 01060000 */* **************************************************************** */ 01061000 */* BEFORE THE INCLUDE FOR THIS MACRO, THE MACRO VARIABLES */ 01062000 */* LISTED BELOW MUST BE SET TO 0 (OPTION NOT WANTED) OR */ 01063000 */* 1 (OPTION WANTED). THERE SHOULD BE AT LEAST ONE DSORG */ 01064000 */* VARIABLE AND ONE DEVD VARIABLE SET TO 1 UNLESS DSORGGS */ 01065000 */* OR DSORGLR IS SET. IF DSORGGS IS SET TO 1, IT */ 01066000 */* MUST BE THE ONLY VARIABLE SET TO 1. IF NO DSORG VARIABLE */ 01067000 */* IS SET TO 1, EXCP WITH EXTENSION IS ASSUMED. */ 01068000 */* */ 01069000 */* MACRO IHADCBDF CONTAINS MACRO-TIME PLS STATEMENTS TO */ 01070000 */* DECLARE AND SET TO 0 ALL THE MACRO VARIABLES FOR IHADCB. */ 01071000 */* YOU SHOULD INCLUDE IHADCBDF, THEN PUT STATEMENTS TO SET */ 01072000 */* THE PROPER MACRO VARIABLES TO 1, AND THEN INCLUDE IHADCB. */ 01073000 */* */ 01074000 */* THE MACRO VARIABLES ARE THE FOLLOWING - */ 01075000 */* */ 01076000 */* DSORGIS - ISAM */ 01077000 */* DSORGDA - BDAM */ 01078000 */* DSORGBX - BTAM LINE GROUP */ 01079000 */* DSORGCX - BTAM AND QTAM LINE GROUPS */ 01080000 */* DSORGQX - QTAM LINE GROUP */ 01081000 */* DSORGQS - QSAM */ 01082000 */* DSORGPS - QSAM AND BSAM-BPAM */ 01083000 */* DSORGBS - BSAM-BPAM */ 01084000 */* DSORGPO - BSAM-BPAM */ 01085000 */* DSORGXA - EXCP WITH APPENDAGES */ 01086000 */* DSORGXE - EXCP WITH EXTENSION */ 01087000 */* DSORGLR - DCBLRECL FIELD ONLY */ 01088000 */* DSORGGS - GRAPHICS WITH APPENDAGES */ 01089000 */* DSORGTX - TCAM LINE GROUP */ 01090000 */* DSORGTQ - TCAM MESSAGE QUEUE */ 01091000 */* DSORGTR - TCAM 3705 S22024*/ 01092000 */* DEVDDA - DIRECT ACCESS */ 01093000 */* DEVDTA - MAGNETIC TAPE */ 01094000 */* DEVDPT - PAPER TAPE */ 01095000 */* DEVDPR - PRINTER */ 01096000 */* DEVDRD - CARD READER */ 01097000 */* DEVDPC - CARD PUNCH */ 01098000 */* DEVDBS - BINARY SYNCHRONOUS COMMUNICATION */ 01099000 */* DEVDWT - WORLD TRADE TELEGRAPH */ 01100000 */* DEVDMR - MAGNETIC CARD READER */ 01101000 */* DEVDOR - OPTICAL READER */ 01102000 */* */ 01103000 */* **************************************************************** */ 01104000 */* OS/VS2 RELEASE 02, 12/13/73 */ 01105000 */* OS/VS2 RELEASE 04, 02/13/75 */ 01106000 */* */ 01107000 */* OS/VS2 RELEASE 04, 06/05/75 */ 01108000 */* **************************************************************** */ 01109000 * 0202 01110000 */* DCB SYMBOLIC DEFINITION FOR */ 01111000 * 0202 01112000 *DECLARE 0202 01113000 * 1 IHADCB BASED(DCBPTR), 0202 01114000 * 2 * CHAR(52); /* DESCRIBED IN FOLLOWING 0202 01115000 * STRUCTURES */ 01116000 * 0202 01117000 */* DEVICE INTERFACES */ 01118000 * 0203 01119000 *DECLARE 1 IHADCS00 0203 01120000 * BASED(ADDR(IHADCB)), 0203 01121000 * 2 DCBRELAD CHAR(4), /* PARTITIONED ORGANIZATION 01122000 * DATA SET - ADDRESS (IN 01123000 * THE FORM TTRN) OF MEMBER 01124000 * CURRENTLY USED. --- 0203 01125000 * SYS1.LOGREC DATA SET - 0203 01126000 * IF CCH OPTION HAS BEEN 01127000 * SPECIFIED IN SYSGEN 0203 01128000 * PROCESS, ADDRESS OF A 0203 01129000 * 12-BYTE PARAMETER IN THE 01130000 * EXPANSION OF MACRO 0203 01131000 * INSTRUCTION IGFCATAP */ 01132000 * 2 DCBKEYCN PTR(8), /* KEYED BLOCK OVERHEAD 0203 01133000 * CONSTANT */ 01134000 * 2 DCBFDAD CHAR(8); /* FULL DISK ADDRESS IN THE 01135000 * FORM OF MBBCCHHR OF 0203 01136000 * RECORD THAT WAS JUST 0203 01137000 * READ OR WRITTEN */ 01138000 * 0203 01139000 *DECLARE 1 IHADCS01 0204 01140000 * BASED(ADDR(DCBFDAD)+7), 0204 01141000 * 2 DCBDVTBL PTR(31), /* SAME AS DCBDVTBA BELOW */ 01142000 * 3 * CHAR(1), /* LAST BYTE OF DCBFDAD */ 01143000 * 3 DCBDVTBA PTR(24), /* ADDRESS OF ENTRY IN I/O 01144000 * DEVICE CHARACTERISTICS 01145000 * TABLE FOR DEVICE BEING 0204 01146000 * USED */ 01147000 * 2 * PTR(8), /* DCBKEYLE - KEY LENGTH OF 01148000 * DATA SET */ 01149000 * 2 * CHAR(1), /* DCBDEVT - DEVICE TYPE */ 01150000 * 2 DCBTRBAL FIXED(15); /* TRACK BALANCE. NUMBER OF 01151000 * BYTES REMAINING ON 0204 01152000 * CURRENT TRACK AFTER A 0204 01153000 * WRITE OPERATION (THIS 0204 01154000 * QUANTITY MAY BE NEGATIVE 01155000 * IF THERE ARE NO BYTES 0204 01156000 * REMAINING ON TRACK). */ 01157000 * 0204 01158000 */* ACCESS METHOD COMMON INTERFACE */ 01159000 * 0205 01160000 *DECLARE 1 IHADCS11 0205 01161000 * BASED(ADDR(IHADCB)+16), 0205 01162000 * 2 DCBRELB FIXED(31), /* SAME AS DCBREL BELOW */ 01163000 * 3 DCBKEYLE PTR(8), /* KEY LENGTH OF DATA SET */ 01164000 * 3 DCBREL PTR(24), /* NUMBER OF RELATIVE 0205 01165000 * TRACKS OR BLOCKS IN THIS 01166000 * DATA SET (BDAM) */ 01167000 * 4 DCBDEVT CHAR(1), /* DEVICE TYPE */ 01168000 * 2 DCBBUFCB PTR(31), /* ADDRESS OF BUFFER POOL 0205 01169000 * CONTROL BLOCK */ 01170000 * 3 DCBBUFNO PTR(8), /* NUMBER OF BUFFERS 0205 01171000 * REQUIRED FOR THIS DATA 0205 01172000 * SET. MAY RANGE FROM 0 TO 01173000 * 255. IF UNBLOCKED 0205 01174000 * SPANNED RECORDS ARE 0205 01175000 * USED, NUMBER OF SEGMENT 01176000 * WORK AREAS REQUIRED FOR 01177000 * THIS DATA SET. */ 01178000 * 3 DCBBUFCA PTR(24), /* ADDRESS OF BUFFER POOL 0205 01179000 * CONTROL BLOCK */ 01180000 * 2 DCBBUFL FIXED(15), /* LENGTH OF BUFFER. MAY 0205 01181000 * RANGE FROM 0 TO 32,767. */ 01182000 * 2 DCBDSORG CHAR(2), /* DATA SET ORGANIZATION 0205 01183000 * BEING USED */ 01184000 * 3 DCBDSRG1 CHAR(1), /* FIRST BYTE OF DCBDSORG */ 01185000 * 4 DCBDSGIS BIT(1), /* IS - INDEXED SEQUENTIAL 01186000 * ORGANIZATION */ 01187000 * 4 DCBDSGPS BIT(1), /* PS - PHYSICAL SEQUENTIAL 01188000 * ORGANIZATION */ 01189000 * 4 DCBDSGDA BIT(1), /* DA - DIRECT ORGANIZATION */ 01190000 * 4 DCBDSGCX BIT(1), /* CX - BTAM OR QTAM LINE 0205 01191000 * GROUP */ 01192000 * 4 * BIT(1), /* RESERVED @ZA02213*/ 01193000 * 4 * BIT(1), /* RESERVES @ZA02213*/ 01194000 * 4 DCBDSGPO BIT(1), /* PO - PARTITIONED 0205 01195000 * ORGANIZATION */ 01196000 * 4 DCBDSGU BIT(1), /* U - UNMOVABLE, THE DATA 01197000 * CONTAINS LOCATION 0205 01198000 * DEPENDENT INFORMATION */ 01199000 * 3 DCBDSRG2 CHAR(1), /* SECOND BYTE OF DCBDSORG */ 01200000 * 4 DCBDSGGS BIT(1), /* GS - GRAPHICS 0205 01201000 * ORGANIZATION */ 01202000 * 4 DCBDSGTX BIT(1), /* TX - TCAM LINE GROUP */ 01203000 * 4 DCBDSGTQ BIT(1), /* TQ - TCAM MESSAGE QUEUE */ 01204000 * 4 * BIT(1), /* RESERVED */ 01205000 * 4 DCBACBM BIT(1), /* ACCESS METHOD CONTROL 0205 01206000 * BLOCK ICBI DCB-1*/ 01207000 * 4 DCBDSGTR BIT(1), /* TR - TCAM 3705 */ 01208000 * 4 * BIT(2), /* RESERVED ICBI DCB-1*/ 01209000 * 2 DCBIOBAD PTR(31), /* ADDRESS OF IOB WHEN 0205 01210000 * CHAINED SCHEDULING IS 0205 01211000 * USED OR FOR 1419/1275 */ 01212000 * 3 DCBODEB PTR(31), /* ADDRESS OF OLD DEB */ 01213000 * 4 DCBLNP PTR(8), /* 3525 PRINTER LINE 0205 01214000 * POSITION COUNTER */ 01215000 * 5 DCBQSLM CHAR(1), /* QSAM LOCATE MODE LOGICAL 01216000 * RECORD INTERFACE 0205 01217000 * INDICATOR BYTE FOR UPDAT 01218000 * PROCESSING OF SPANNED 0205 01219000 * RECORDS */ 01220000 * 6 DCB1DVDS BIT(1), /* ONLY ONE DEVICE IS 0205 01221000 * ALLOCATED TO THIS DATA 01222000 * SET */ 01223000 * 6 DCBUPDCM BIT(1), /* UPDATE COMPLETE, FREE 0205 01224000 * OLD DEB */ 01225000 * 6 DCBUPDBT BIT(2), /* UPDATE BITS */ 01226000 * 6 * BIT(4), /* RESERVED */ 01227000 * 4 DCBIOBAA PTR(24), /* SAME AS DCBIOBAD ABOVE */ 01228000 * 5 DCBODEBA PTR(24); /* ADDRESS OF OLD DEB */ 01229000 * 0205 01230000 *DECLARE 1 IHADCS50 0206 01231000 * BASED(ADDR(DCBIOBAD)), /* ICBI DCB-4*/ 01232000 * 2 DCBSVCXL PTR(31), /* SAME AS DCBSVCXA BELOW 0206 01233000 * ICBI DCB-4*/ 01234000 * 3 * PTR(8), /* RESERVED ICBI DCB-4*/ 01235000 * 3 DCBSVCXA PTR(24), /* POINTER TO EXIT LIST OF 01236000 * JES C.I. INTERFACE 0206 01237000 * CONTROL SVC ICBI DCB-4*/ 01238000 */* FOUNDATION EXTENSION */ 01239000 * 0206 01240000 * 2 DCBEODAD PTR(31), /* SAME AS DCBEODA BELOW */ 01241000 * 3 DCBBFALN CHAR(1), /* BUFFER ALIGNMENT BITS */ 01242000 * 4 DCBHIARC CHAR(1), /* HIERARCHY BITS */ 01243000 * 5 DCBBFTEK CHAR(1), /* BUFFERING TECHNIQUE BITS */ 01244000 * 6 DCBH1 BIT(1), /* HIERARCHY 1 MAIN STORAGE 01245000 * - BIT 5 IS ZERO */ 01246000 * 6 DCBBFT BIT(3), /* BUFFERING TECHNIQUE */ 01247000 * 7 DCBBFTS BIT(1), /* SIMPLE BUFFERING - BIT 3 01248000 * IS ZERO */ 01249000 * 7 DCBBFTKR BIT(1), /* UNBLOCKED SPANNED 0206 01250000 * RECORDS - SOFTWARE 0206 01251000 * TRACK OVERFLOW (BDAM) */ 01252000 * 7 DCBBFTE BIT(1), /* EXCHANGE BUFFERING - BIT 01253000 * 1 IS ZERO */ 01254000 * 6 DCBBFTKD BIT(1), /* DYNAMIC BUFFERING (BTAM) */ 01255000 * 6 DCBH0 BIT(1), /* HIERARCHY 0 MAIN STORAGE 01256000 * - BIT 0 IS ZERO */ 01257000 * 6 DCBBFA BIT(2), /* BUFFER ALIGNMENT */ 01258000 * 3 DCBEODA PTR(24), /* ADDRESS OF A 0206 01259000 * USER-PROVIDED ROUTINE TO 01260000 * HANDLE END-OF-DATA 0206 01261000 * CONDITIONS */ 01262000 * 2 DCBEXLST PTR(31), /* ADDRESS OF USER-PROVIDED 01263000 * LIST OF EXITS */ 01264000 * 3 DCBRECFM CHAR(1), /* RECORD FORMAT */ 01265000 * 4 DCBRECLA BIT(3), /* RECORD LENGTH INDICATOR 01266000 * - ASCII */ 01267000 * 5 DCBRECL BIT(2), /* RECORD LENGTH INDICATOR */ 01268000 * 5 DCBRECTO BIT(1), /* TRACK OVERFLOW */ 01269000 * 4 DCBRECBR BIT(1), /* BLOCKED RECORDS */ 01270000 * 4 DCBRECSB BIT(1), /* FOR FIXED LENGTH RECORD 01271000 * FORMAT - STANDARD 0206 01272000 * BLOCKS. FOR VARIABLE 0206 01273000 * LENGTH RECORD FORMAT - 01274000 * SPANNED RECORDS */ 01275000 * 4 DCBRECCC BIT(2), /* CONTROL CHARACTER 0206 01276000 * INDICATOR */ 01277000 * 4 DCBRECKL BIT(1), /* KEY LENGTH (KEYLEN) WAS 01278000 * SPECIFIED IN DCB MACRO 01279000 * INSTRUCTION */ 01280000 * 3 DCBEXLSA PTR(24); /* ADDRESS OF USER-PROVIDED 01281000 * LIST OF EXITS */ 01282000 * 0206 01283000 * 0206 01284000 */* FOUNDATION BEFORE OPEN */ 01285000 * 0207 01286000 *DECLARE 1 IHADCS24 0207 01287000 * BASED(ADDR(IHADCB)+40), 0207 01288000 * 2 DCBDDNAM CHAR(8), /* NAME ON THE DD STATEMENT 01289000 * WHICH DEFINES THE DATA 01290000 * SET ASSOCIATED WITH THIS 01291000 * DCB */ 01292000 * 2 DCBOFLGS CHAR(1), /* FLAGS USED BY OPEN 0207 01293000 * ROUTINE */ 01294000 * 3 DCBOFLWR BIT(1), /* IF ZERO, LAST I/O 0207 01295000 * OPERATION WAS READ OR 0207 01296000 * POINT. IF ONE, LAST I/O 01297000 * OPERATION WAS WRITE. */ 01298000 * 4 DCBOFIOD BIT(1), /* DATA SET IS BEING OPENED 01299000 * FOR INPUT OR OUTPUT 0207 01300000 * (BDAM) */ 01301000 * 3 DCBOFLRB BIT(1), /* LAST I/O OPERATION WAS 0207 01302000 * IN READ BACKWARD MODE */ 01303000 * 3 DCBOFEOV BIT(1), /* SET TO 1 BY EOV WHEN IT 01304000 * CALLS CLOSE ROUTINE FOR 01305000 * CONCATENATION OF DATA 0207 01306000 * SETS WITH UNLIKE 0207 01307000 * ATTRIBUTES */ 01308000 * 3 DCBOFOPN BIT(1), /* AN OPEN HAS BEEN 0207 01309000 * SUCCESSFULLY COMPLETED */ 01310000 * 3 DCBOFPPC BIT(1), /* SET TO 1 BY PROBLEM 0207 01311000 * PROGRAM TO INDICATE A 0207 01312000 * CONCATENATION OF UNLIKE 01313000 * ATTRIBUTES */ 01314000 * 3 DCBOFTM BIT(1), /* TAPE MARK HAS BEEN READ */ 01315000 * 3 DCBOFUEX BIT(1), /* SET TO 0 BY AN I/O 0207 01316000 * SUPPORT FUNCTION WHEN 0207 01317000 * THAT FUNCTION TAKES A 0207 01318000 * USER EXIT. SET TO 1 ON 0207 01319000 * RETURN FROM USER EXIT TO 01320000 * THE I/O SUPPORT 0207 01321000 * FUNCTION WHICH TOOK THE 01322000 * EXIT. */ 01323000 * 3 DCBOFIOF BIT(1), /* SET TO 1 BY AN I/O 0207 01324000 * SUPPORT FUNCTION IF DCB 01325000 * IS TO BE PROCESSED BY 0207 01326000 * THAT FUNCTION */ 01327000 * 2 DCBIFLG CHAR(1), /* FLAGS USED BY IOS IN 0207 01328000 * COMMUNICATING ERROR 0207 01329000 * CONDITIONS AND IN 0207 01330000 * DETERMINING CORRECTIVE 0207 01331000 * PROCEDURES */ 01332000 * 3 DCBIBEC BIT(2), /* ERROR CORRECTION 0207 01333000 * INDICATOR */ 01334000 * 3 DCBIBPCT BIT(2), /* PRINTER CARRIAGE TAPE 0207 01335000 * PUNCH INDICATOR */ 01336000 * 4 DCBICH9 BIT(1), /* CHANNEL 9 @Z40MS11*/ 01337000 * 4 DCBICH12 BIT(1), /* CHANNEL 12 @Z40MS11*/ 01338000 * 3 DCBIBIOE BIT(2), /* IOS ERROR ROUTINE USE 0207 01339000 * INDICATOR */ 01340000 * 3 * BIT(2), /* RESERVED */ 01341000 * 2 DCBMACR CHAR(2), /* MACRO INSTRUCTION 0207 01342000 * REFERENCE */ 01343000 * 3 DCBMACR1 CHAR(1), /* FIRST BYTE OF DCBMACR */ 01344000 * 4 DCBMRECP BIT(1), /* EXECUTE CHANNEL PROGRAM 01345000 * (EXCP) --- ALWAYS ZERO 01346000 * (BSAM, QSAM, BPAM, 0207 01347000 * BISAM, QISAM, BDAM) 0207 01348000 * --- RESERVED (QTAM, 0207 01349000 * BTAM) */ 01350000 * 4 DCBMRFE BIT(1), /* FOUNDATION EXTENSION IS 01351000 * PRESENT (EXCP) */ 01352000 * 5 DCBMRGET BIT(1), /* GET (QSAM, QISAM, TCAM) */ 01353000 * 6 DCBMRPTQ BIT(1), /* PUT FOR MESSAGE GROUP 0207 01354000 * (QTAM) --- ALWAYS ZERO 01355000 * (BSAM, BPAM, BISAM, 0207 01356000 * BDAM) --- RESERVED 0207 01357000 * (BTAM) */ 01358000 * 4 DCBMRAPG BIT(1), /* APPENDAGES ARE REQUIRED 01359000 * (EXCP) */ 01360000 * 5 DCBMRRD BIT(1), /* READ (BSAM, BPAM, BISAM, 01361000 * BDAM, BTAM) */ 01362000 * 6 DCBMRWRQ BIT(1), /* WRITE FOR LINE GROUP 0207 01363000 * (QTAM) --- ALWAYS ZERO 01364000 * (QSAM, QISAM) */ 01365000 * 4 DCBMRCI BIT(1), /* COMMON INTERFACE (EXCP) */ 01366000 * 5 DCBMRMVG BIT(1), /* MOVE MODE OF GET (QSAM, 01367000 * QISAM) */ 01368000 * 6 DCBMRRDK BIT(1), /* KEY SEGMENT WITH READ 0207 01369000 * (BDAM) --- ALWAYS ZERO 01370000 * (BISAM) --- RESERVED 0207 01371000 * (BSAM, BPAM, QTAM, BTAM) */ 01372000 * 4 DCBMRLCG BIT(1), /* LOCATE MODE OF GET 0207 01373000 * (QSAM, QISAM) */ 01374000 * 5 DCBMRRDI BIT(1), /* ID ARGUMENT WITH READ 0207 01375000 * (BDAM) --- ALWAYS ZERO 01376000 * (BISAM) --- RESERVED 0207 01377000 * (EXCP, BSAM, BPAM, QTAM, 01378000 * BTAM) */ 01379000 * 4 DCBMRABC BIT(1), /* USER'S PROGRAM MAINTAINS 01380000 * ACCURATE BLOCK COUNT 0207 01381000 * (EXCP) */ 01382000 * 5 DCBMRPT1 BIT(1), /* POINT (WHICH IMPLIES 0207 01383000 * NOTE) (BSAM, BPAM) */ 01384000 * 6 DCBMRSBG BIT(1), /* SUBSTITUTE MODE OF GET 0207 01385000 * (QSAM) */ 01386000 * 7 DCBMRDBF BIT(1), /* DYNAMIC BUFFERING 0207 01387000 * (BISAM, BDAM) --- 0207 01388000 * ALWAYS ZERO (QISAM) --- 01389000 * RESERVED (QTAM, BTAM) */ 01390000 * 4 DCBMRCRL BIT(1), /* CNTRL (BSAM, QSAM) */ 01391000 * 5 DCBMRCHK BIT(1), /* CHECK (BISAM) */ 01392000 * 6 DCBMRRDX BIT(1), /* READ EXCLUSIVE (BDAM) */ 01393000 * 7 DCBPGFXA BIT(1), /* PAGE FIX APPENDAGE IS 0207 01394000 * SPECIFIED (EXCP) 0207 01395000 * --- RESERVED (BTAM, 0207 01396000 * BPAM, QISAM, QTAM) */ 01397000 * 4 DCBMRDMG BIT(1), /* DATA MODE OF GET (QSAM) */ 01398000 * 5 DCBMRCK BIT(1), /* CHECK (BDAM) --- 0207 01399000 * RESERVED (EXCP, BSAM, 0207 01400000 * BPAM, BISAM, QISAM, 0207 01401000 * QTAM, BTAM) */ 01402000 * 3 DCBMACR2 CHAR(1), /* SECOND BYTE OF DCBMACR */ 01403000 * 4 DCBMRSTL BIT(1), /* SETL (QISAM) --- ALWAYS 01404000 * ZERO (BSAM, QSAM, BPAM, 01405000 * BISAM, BDAM) --- 0207 01406000 * RESERVED (EXCP, QTAM, 0207 01407000 * BTAM) */ 01408000 * 4 DCBMRPUT BIT(1), /* PUT (QSAM, TCAM) - PUT 0207 01409000 * OR PUTX (QISAM) */ 01410000 * 5 DCBMRGTQ BIT(1), /* GET FOR MESSAGE GROUP 0207 01411000 * (QTAM) --- ALWAYS ZERO 01412000 * (BSAM, BPAM, BISAM, 0207 01413000 * BDAM) --- RESERVED 0207 01414000 * (EXCP, BTAM) */ 01415000 * 4 DCBMRWRT BIT(1), /* WRITE (BSAM, BPAM, 0207 01416000 * BISAM, BDAM, BTAM) */ 01417000 * 5 DCBMRRDQ BIT(1), /* READ FOR LINE GROUP 0207 01418000 * (QTAM) --- ALWAYS ZERO 01419000 * (QSAM, QISAM) --- 0207 01420000 * RESERVED (EXCP) */ 01421000 * 4 DCBMRMVP BIT(1), /* MOVE MODE OF PUT (QSAM, 01422000 * QISAM) */ 01423000 * 5 DCBMRWRK BIT(1), /* KEY SEGMENT WITH WRITE 0207 01424000 * (BDAM) --- ALWAYS ZERO 01425000 * (BISAM) --- RESERVED 0207 01426000 * (EXCP, BSAM, BPAM, QTAM, 01427000 * BTAM) */ 01428000 * 4 DCBMR5WD BIT(1), /* FIVE-WORD DEVICE 0207 01429000 * INTERFACE (EXCP) */ 01430000 * 5 DCBMRLDM BIT(1), /* LOAD MODE BSAM (CREATE 0207 01431000 * BDAM DATA SET) (BSAM) */ 01432000 * 6 DCBMRLCP BIT(1), /* LOCATE MODE OF PUT 0207 01433000 * (QSAM, QISAM) */ 01434000 * 7 DCBMRIDW BIT(1), /* ID ARGUMENT WITH WRITE 0207 01435000 * (BDAM) --- ALWAYS ZERO 01436000 * (BISAM) --- RESERVED 0207 01437000 * (BPAM, QTAM, BTAM) */ 01438000 * 4 DCBMR4WD BIT(1), /* FOUR-WORD DEVICE 0207 01439000 * INTERFACE (EXCP) */ 01440000 * 5 DCBMRPT2 BIT(1), /* POINT (WHICH IMPLIES 0207 01441000 * NOTE) (BSAM, BPAM) */ 01442000 * 6 DCBMRTMD BIT(1), /* SUBSTITUTE MODE (QSAM) */ 01443000 * 7 DCBMRUIP BIT(1), /* UPDATE IN PLACE (PUTX) 0207 01444000 * (QISAM) --- ALWAYS ZERO 01445000 * (BISAM) --- RESERVED 0207 01446000 * (BDAM, QTAM, BTAM) */ 01447000 * 4 DCBMR3WD BIT(1), /* THREE-WORD DEVICE 0207 01448000 * INTERFACE (EXCP) */ 01449000 * 5 DCBMRCTL BIT(1), /* CNTRL (BSAM, QSAM) */ 01450000 * 6 DCBMRSTK BIT(1), /* SETL BY KEY (QISAM) */ 01451000 * 7 DCBMRAWR BIT(1), /* ADD TYPE OF WRITE (BDAM) 01452000 * --- ALWAYS ZERO (BISAM) 01453000 * --- RESERVED (BPAM, 0207 01454000 * QTAM, BTAM) */ 01455000 * 4 DCBMR1WD BIT(1), /* ONE-WORD DEVICE 0207 01456000 * INTERFACE (EXCP) */ 01457000 * 5 DCBMRSWA BIT(1), /* USER'S PROGRAM HAS 0207 01458000 * PROVIDED A SEGMENT WORK 01459000 * AREA POOL (BSAM CREATE 0207 01460000 * BDAM, BDAM) */ 01461000 * 6 DCBMRDMD BIT(1), /* DATA MODE (QSAM) */ 01462000 * 7 DCBMRSTI BIT(1); /* SETL BY ID (QISAM) --- 0207 01463000 * ALWAYS ZERO (BISAM) --- 01464000 * RESERVED (BPAM, QTAM, 0207 01465000 * BTAM) */ 01466000 * 0207 01467000 */* FOUNDATION AFTER OPEN */ 01468000 * 0208 01469000 *DECLARE 1 IHADCS25 0208 01470000 * BASED(ADDR(IHADCB)+40), 0208 01471000 * 2 DCBTIOT FIXED(15), /* OFFSET FROM TIOT ORIGIN 01472000 * TO TIOELNGH FIELD IN 0208 01473000 * TIOT ENTRY FOR DD 0208 01474000 * STATEMENT ASSOCIATED 0208 01475000 * WITH THIS DCB */ 01476000 * 2 DCBMACRF CHAR(2), /* SAME AS DCBMACR BEFORE 0208 01477000 * OPEN */ 01478000 * 3 DCBMACF1 CHAR(1), /* FIRST BYTE OF DCBMACRF */ 01479000 * 4 DCBMFECP BIT(1), /* EXECUTE CHANNEL PROGRAM 01480000 * (EXCP) */ 01481000 * 4 DCBMFFE BIT(1), /* FOUNDATION EXTENSION IS 01482000 * PRESENT (EXCP) */ 01483000 * 5 DCBMFGET BIT(1), /* GET (QSAM, QISAM, TCAM) */ 01484000 * 6 DCBMFPTQ BIT(1), /* PUT FOR MESSAGE GROUP 0208 01485000 * (QTAM) */ 01486000 * 4 DCBMFAPG BIT(1), /* APPENDAGES ARE REQUIRED 01487000 * (EXCP) */ 01488000 * 5 DCBMFRD BIT(1), /* READ (BSAM, BPAM, BISAM, 01489000 * BDAM, BTAM) */ 01490000 * 6 DCBMFWRQ BIT(1), /* WRITE FOR LINE GROUP 0208 01491000 * (QTAM) */ 01492000 * 4 DCBMFCI BIT(1), /* COMMON INTERFACE (EXCP) */ 01493000 * 5 DCBMFMVG BIT(1), /* MOVE MODE OF GET (QSAM, 01494000 * QISAM) */ 01495000 * 6 DCBMFRDK BIT(1), /* KEY SEGMENT WITH READ 0208 01496000 * (BDAM) */ 01497000 * 4 DCBMFLCG BIT(1), /* LOCATE MODE OF GET 0208 01498000 * (QSAM, QISAM) */ 01499000 * 5 DCBMFRDI BIT(1), /* ID ARGUMENT WITH READ 0208 01500000 * (BDAM) */ 01501000 * 4 DCBMFABC BIT(1), /* USER'S PROGRAM MAINTAINS 01502000 * ACCURATE BLOCK COUNT 0208 01503000 * (EXCP) */ 01504000 * 5 DCBMFPT1 BIT(1), /* POINT (WHICH IMPLIES 0208 01505000 * NOTE) (BSAM, BPAM) */ 01506000 * 6 DCBMFSBG BIT(1), /* SUBSTITUTE MODE OF GET 0208 01507000 * (QSAM) */ 01508000 * 7 DCBMFDBF BIT(1), /* DYNAMIC BUFFERING 0208 01509000 * (BISAM, BDAM) */ 01510000 * 4 DCBMFCRL BIT(1), /* CNTRL (BSAM, QSAM) */ 01511000 * 5 DCBMFCHK BIT(1), /* CHECK (BISAM) */ 01512000 * 6 DCBMFRDX BIT(1), /* READ EXCLUSIVE (BDAM) */ 01513000 * 4 DCBMFDMG BIT(1), /* DATA MODE OF GET (QSAM) */ 01514000 * 5 DCBMFCK BIT(1), /* CHECK (BDAM) */ 01515000 * 3 DCBMACF2 CHAR(1), /* SECOND BYTE OF DCBMACRF */ 01516000 * 4 DCBMFSTL BIT(1), /* SETL (QISAM) */ 01517000 * 4 DCBMFPUT BIT(1), /* PUT (QSAM, TCAM) - PUT 0208 01518000 * OR PUTX (QISAM) */ 01519000 * 5 DCBMFGTQ BIT(1), /* GET FOR MESSAGE GROUP 0208 01520000 * (QTAM) */ 01521000 * 4 DCBMFWRT BIT(1), /* WRITE (BSAM, BPAM, 0208 01522000 * BISAM, BDAM, BTAM) */ 01523000 * 5 DCBMFRDQ BIT(1), /* READ FOR LINE GROUP 0208 01524000 * (QTAM) */ 01525000 * 4 DCBMFMVP BIT(1), /* MOVE MODE OF PUT (QSAM, 01526000 * QISAM) */ 01527000 * 5 DCBMFWRK BIT(1), /* KEY SEGMENT WITH WRITE 0208 01528000 * (BDAM) */ 01529000 * 4 DCBMF5WD BIT(1), /* FIVE-WORD DEVICE 0208 01530000 * INTERFACE (EXCP) */ 01531000 * 5 DCBMFLDM BIT(1), /* LOAD MODE BSAM (CREATE 0208 01532000 * BDAM DATA SET) (BSAM) */ 01533000 * 6 DCBMFLCP BIT(1), /* LOCATE MODE OF PUT 0208 01534000 * (QSAM, QISAM) */ 01535000 * 7 DCBMFIDW BIT(1), /* ID ARGUMENT WITH WRITE 0208 01536000 * (BDAM) */ 01537000 * 4 DCBMF4WD BIT(1), /* FOUR-WORD DEVICE 0208 01538000 * INTERFACE (EXCP) */ 01539000 * 5 DCBMFPT2 BIT(1), /* POINT (WHICH IMPLIES 0208 01540000 * NOTE) (BSAM, BPAM) */ 01541000 * 6 DCBMFTMD BIT(1), /* SUBSTITUTE MODE (QSAM) */ 01542000 * 7 DCBMFUIP BIT(1), /* UPDATE IN PLACE (PUTX) 0208 01543000 * (QISAM) */ 01544000 * 4 DCBMF3WD BIT(1), /* THREE-WORD DEVICE 0208 01545000 * INTERFACE (EXCP) */ 01546000 * 5 DCBMFCTL BIT(1), /* CNTRL (BSAM, QSAM) */ 01547000 * 6 DCBMFSTK BIT(1), /* SETL BY KEY (QISAM) */ 01548000 * 7 DCBMFAWR BIT(1), /* ADD TYPE OF WRITE (BDAM) */ 01549000 * 4 DCBMF1WD BIT(1), /* ONE-WORD DEVICE 0208 01550000 * INTERFACE (EXCP) */ 01551000 * 5 DCBMFSWA BIT(1), /* USER'S PROGRAM HAS 0208 01552000 * PROVIDED A SEGMENT WORK 01553000 * AREA POOL (BSAM CREATE 0208 01554000 * BDAM, BDAM) */ 01555000 * 6 DCBMFDMD BIT(1), /* DATA MODE (QSAM) */ 01556000 * 7 DCBMFSTI BIT(1), /* SETL BY ID (QISAM) */ 01557000 * 2 DCBDEBAD PTR(31), /* ADDRESS OF ASSOCIATED 0208 01558000 * DEB */ 01559000 * 3 DCBIFLGS CHAR(1), /* SAME AS DCBIFLG BEFORE 0208 01560000 * OPEN */ 01561000 * 4 DCBIFEC BIT(2), /* ERROR CORRECTION 0208 01562000 * INDICATOR */ 01563000 * 4 DCBIFPCT BIT(2), /* PRINTER CARRIAGE TAPE 0208 01564000 * PUNCH INDICATOR */ 01565000 * 5 DCBCH9 BIT(1), /* CHANNEL 9 @Z40MS11*/ 01566000 * 5 DCBCH12 BIT(1), /* CHANNEL 12 @Z40MS11*/ 01567000 * 4 DCBIFIOE BIT(2), /* IOS ERROR ROUTINE USE 0208 01568000 * INDICATOR */ 01569000 * 4 * BIT(2), /* RESERVED */ 01570000 * 3 DCBDEBA PTR(24); /* ADDRESS OF ASSOCIATED 0208 01571000 * DEB */ 01572000 * 0208 01573000 */* EXCP WITH EXTENSION OR APPENDAGES */ 01574000 * 0209 01575000 *DECLARE 1 IHADCS28 0209 01576000 * BASED(ADDR(IHADCB)+52), 0209 01577000 * 2 DCBOPTCD CHAR(1), /* OPTION CODES */ 01578000 * 3 * BIT(5), /* RESERVED */ 01579000 * 3 DCBOPTZ BIT(1), /* MAGNETIC TAPE DEVICES - 01580000 * USE REDUCED ERROR 0209 01581000 * RECOVERY PROCEDURE 0209 01582000 * (EXCP, BSAM, BPAM, QSAM) */ 01583000 * 4 DCBSRCHD BIT(1), /* USE SEARCH DIRECT, 0209 01584000 * INSTEAD OF SEARCH 0209 01585000 * PREVIOUS, ON RECORD 0209 01586000 * POSITION SENSING DEVICE 01587000 * (EXCP, BSAM, BPAM, QSAM) 01588000 * ICB217*/ 01589000 * 3 * BIT(2), /* RESERVED */ 01590000 * 2 * CHAR(7); /* RESERVED */ 01591000 * 0209 01592000 *DECLARE 1 IHADCS44 0210 01593000 * BASED(ADDR(IHADCB)+60), 0210 01594000 * 2 DCBEOEA CHAR(2), /* END OF EXTENT APPENDAGE 01595000 * ID */ 01596000 * 2 DCBPCIA CHAR(2), /* PROGRAM CONTROLLED 0210 01597000 * INTERRUPTION APPENDAGE 01598000 * ID */ 01599000 * 2 DCBSIOA CHAR(2), /* START I/O APPENDAGE ID */ 01600000 * 2 DCBCENDA CHAR(2), /* CHANNEL END APPENDAGE ID */ 01601000 * 2 DCBXENDA CHAR(2), /* ABNORMAL END APPENDAGE 0210 01602000 * ID */ 01603000 * 2 * CHAR(2); /* RESERVED */ 01604000 * 0210 01605000 * 0211 01606000 * 0211 01607000 */* **************************************************************** */ 01608000 */* */ 01609000 */* ***** DATA EXTENT BLOCK ***** */ 01610000 */* */ 01611000 */* OS/VS2 RELEASE 4, 12/05/75, LEVEL=10 */ 01612000 */* */ 01613000 */* METHOD OF ACCESS */ 01614000 */* PL/S - DCL (DEBPTR,DEBDAPTR,DEBEXPTR,DEBSBPTR) PTR */ 01615000 */* BAL - FIVE DSECTS ARE PRODUCED. USING ON A DSECT NAME */ 01616000 */* GIVES ADDRESSABILITY FOR ALL SYMBOLS WITHIN THAT */ 01617000 */* DSECT. THE DSECT NAMES AND THE SECTIONS WITHIN EACH */ 01618000 */* DSECT ARE */ 01619000 */* */ 01620000 */* DEB *** APPENDAGE VECTOR TABLE SECTION */ 01621000 */* PREFIX TABLE */ 01622000 */* BASIC SECTION */ 01623000 */* UNIT RECORD, MAGNETIC TAPE AND */ 01624000 */* TELECOMMUNICATIONS DEVICES SECTION */ 01625000 */* 3540 ACCESS METHOD DEPENDENT SECTN @X04AA9A*/ 01626000 */* ISAM DEPENDENT SECTION */ 01627000 */* *** POINTERS TO THE DEB IN OTHER CONTROL */ 01628000 */* BLOCKS SUCH AS DCB POINT TO THE BASIC */ 01629000 */* SECTION. USING ON DEBBASIC GIVES */ 01630000 */* ADDRESSABILITY FOR BASIC SECTION AND */ 01631000 */* NEXT TWO SECTIONS. DEBAPPAD IN BASIC */ 01632000 */* SECTION CONTAINS ADDRESS OF APPENDAGE */ 01633000 */* VECTOR TABLE (AVT) SECTION. PREFIX */ 01634000 */* FOLLOWS AVT SECTION. */ 01635000 */* DEBDASD DIRECT ACCESS STORAGE DEVICE SECTION */ 01636000 */* DEBACSMD EXCP, BSAM AND QSAM DEPENDENT SECTION */ 01637000 */* BPAM DEPENDENT SECTION */ 01638000 */* BDAM DEPENDENT SECTION */ 01639000 */* BTAM DEPENDENT SECTION */ 01640000 */* GAM DEPENDENT SECTION */ 01641000 */* ISAM LOAD MODE EXTENSION ** */ 01642000 */* ISAM SCAN MODE EXTENSION ** */ 01643000 */* BISAM MODE EXTENSION ** */ 01644000 */* ** FOR THESE 3 EXTENSIONS, LOAD REGISTER */ 01645000 */* FROM DEBEXPT IN ISAM DEPENDENT SECTION */ 01646000 */* TO SET REGISTER FOR USING. */ 01647000 */* DEBSUBNM SUBROUTINE NAME SECTION */ 01648000 */* DEBXTN EXTENSION FOR OS/VS2 */ 01649000 */* */ 01650000 */* WHEN LISTING IS SUPPRESSED, YOU CAN DETERMINE WHICH */ 01651000 */* DSECT A SYNBOL IS IN BY USING THE STARTMENT NUMBER */ 01652000 */* IN THE DEFN COLUMN IN THE CROSS REFERENCE LISTING. */ 01653000 */* FOR EXAMPLE, ANY SYMBOL DEFINED BETWEEN THE */ 01654000 */* STATEMENT NUMBERS FOR DEBDASD AND DEBACSMD IS IN */ 01655000 */* THE DIRECT ACCESS STORAGE DEVICE SECTION. */ 01656000 */* */ 01657000 */* F.E.'S */ 01658000 */* MICROFICHE LISTING - IEZDEB */ 01659000 */* */ 01660000 */* DEVELOPERS */ 01661000 */* BAL LISTING - SPECIFY LIST=YES ON MACRO CALL */ 01662000 */* PL/S LISTING - SPECIFY %IHALIST='YES' BEFORE INCLUDE */ 01663000 */* */ 01664000 */* FOR INTEGRATION, A LISTING SHOULD NOT BE REQUESTED. */ 01665000 */* */ 01666000 */* FUNCTION */ 01667000 */* THE DATA EXTENT BLOCK (DEB) CONTAINS AN EXTENSION OF */ 01668000 */* INFORMATION IN THE DCB. EACH DEB IS ASSOCIATED WITH A */ 01669000 */* DCB, AND THE TWO POINT TO EACH OTHER. THE DEB CONTAINS */ 01670000 */* INFORMATION CONCERNING THE PHYSICAL CHARACTERISTICS OF */ 01671000 */* THE DATA SET AND OTHER INFORMATION THAT IS USED BY THE */ 01672000 */* CONTROL PROGRAM. */ 01673000 */* */ 01674000 */* **************************************************************** */ 01675000 * 0211 01676000 * /* *************************************************************** */ 01677000 * /* DEB BASIC SECTION */ 01678000 * /* *************************************************************** */ 01679000 * 0211 01680000 * DECLARE 0211 01681000 * 1 DEBBASIC BASED(DEBPTR) BDY(WORD), 0211 01682000 * 3 DEBTCBAD PTR(31), /* ADDRESS OF TCB FOR THIS DEB */ 01683000 * 4 DEBNMSUB CHAR(1), /* NUMBER OF SUBROUTINES LOADED 01684000 * BY OPEN EXECUTOR ROUTINES */ 01685000 * 4 DEBTCBB PTR(24), /* ADDRESS OF TCB FOR THIS DEB */ 01686000 * 3 DEBDEBAD PTR(31), /* ADDRESS OF THE NEXT DEB IN 0211 01687000 * THE SAME TASK */ 01688000 * 4 DEBAMLNG CHAR(1), /* NUMBER OF BYTES IN THE ACCESS 01689000 * METHOD DEPENDENT SECTION. 0211 01690000 * FOR BDAM THIS FIELD CONTAINS 01691000 * THE LENGTH EXPRESSED IN 0211 01692000 * NUMBER OF WORDS */ 01693000 * 4 DEBDEBB PTR(24), /* *** SAME AS DEBDEBAD ABOVE */ 01694000 * 3 DEBIRBAD PTR(31), /* IRB STORAGE ADDRESS USED FOR 01695000 * APPENDAGE ASYNCHRONOUS EXITS */ 01696000 * 4 DEBOFLGS CHAR(1), /* DATA SET STATUS FLAGS */ 01697000 * 5 DEBDISP BIT(2), /* DATA SET DISPOSITION FLAGS */ 01698000 * 5 DEBEOF BIT(1), /* END-OF-FILE (EOF) ENCOUNTERED 01699000 * (TAPE INPUT) 0211 01700000 * FORMAT 1 DSCB BIT 93.0 0211 01701000 * INDICATES THAT THE CURRENT 0211 01702000 * VOLUME IS THE LAST VOLUME OF 01703000 * THE DATA SET (DASD INPUT) */ 01704000 * 5 DEBRLSE BIT(1), /* RELEASE UNUSED EXTERNAL 0211 01705000 * STORAGE (DASD) 0211 01706000 * EMULATOR TAPE WITH SECOND 0211 01707000 * GENERATION FORMAT. TAPE MAY 01708000 * CONTAIN BLOCKS SHORTER THAN 01709000 * 12 CHARACTERS (TAPE) */ 01710000 * 5 DEBDCB BIT(1), /* DCB MODIFICATION */ 01711000 * 5 DEBSPLIT BIT(1), /* SPLIT CYLINDER (DASD) 0211 01712000 * 7-TRACK EMULATOR TAPE WITH 0211 01713000 * POSSIBLE MIXED PARITY RECORDS 01714000 * (TAPE) */ 01715000 * 5 DEBLABEL BIT(1), /* NONSTANDARD LABELS */ 01716000 * 5 DEBRERR BIT(1), /* USE REDUCED ERROR RECOVERY 0211 01717000 * PROCEDURE (TAPE) 0211 01718000 * CONCATENATED PARTITIONED 0211 01719000 * ORGANIZATION DATA SETS 0211 01720000 * PROCESSED USING BPAM (DASD) */ 01721000 * 4 DEBIRBB PTR(24), /* *** SAME AS DEBIRBAD ABOVE */ 01722000 * 3 DEBOPATB CHAR(1), /* FLAGS INDICATING BOTH THE 0211 01723000 * METHOD OF I/O PROCESSING AND 01724000 * THE DISPOSITION THAT IS TO BE 01725000 * PERFORMED WHEN AN END-OF-VOLUME 01726000 * (EOV) CONDITION OCCURS */ 01727000 * 4 DEBABEND BIT(1), /* SET BY ABEND INDICATING A 0211 01728000 * SYSABEND OR SYSUDUMP DATA 0211 01729000 * SET (OS/VS2) */ 01730000 * 4 DEBZERO BIT(1), /* ALWAYS ZERO */ 01731000 * 4 DEBPOSIT BIT(2), /* DATA SET POSITIONING FLAGS */ 01732000 * 4 DEBACCS BIT(4), /* TYPE OF I/O ACCESSING BEING 01733000 * DONE */ 01734000 * 3 DEBQSCNT CHAR(1), /* PURGE (SVC 16) - QUIESCE 0211 01735000 * COUNT. NUMBER OF DEVICES 0211 01736000 * EXECUTING USER'S CHANNEL 0211 01737000 * PROGRAMS, AS SHOWN BY BITS 5 01738000 * AND 6 OF UCBFL1 FIELDS */ 01739000 * 3 DEBFLGS1 CHAR(1), /* FLAG FIELD */ 01740000 * 4 DEBPWCKD BIT(1), /* PASSWORD WAS SUPPLIED DURING 01741000 * OPEN. EOV WILL NOT REQUEST A 01742000 * PASSWORD FOR EACH ADDITIONAL 01743000 * VOLUME OF A MULTIVOLUME DATA 01744000 * SET */ 01745000 * 4 DEBEOFDF BIT(1), /* SET BY EOV TO INFORM CLOSE 0211 01746000 * THAT AN END-OF-FILE HAS BEEN 01747000 * ENCOUNTERED AND, THEREFORE, 01748000 * DEFERRED LABEL PROCESSING IS 01749000 * ALLOWED */ 01750000 * 4 DEBRSIOA BIT(1), /* SIO APPENDAGE RE-ENTRY 0211 01751000 * AUTHORIZATION BIT (OS/VS1) 0211 01752000 * (MDC331) @XM06077*/ 01753000 * 4 DEBRSV02 BIT(1), /* RESERVED */ 01754000 * 4 DEBCINDI BIT(1), /* DCB ASSOCIATED WITH THIS DEB 01755000 * IS BEING PROCESSED BY THE 0211 01756000 * COMPATIBILITY INTERFACE 0211 01757000 * ROUTINES (VSAM) ICB462*/ 01758000 * 4 DEBF1CEV BIT(1), /* EOV PROCESSING OCCURRED 0211 01759000 * DURING CLOSE PROCESSING. 0211 01760000 * TESTED AND SET TO ZERO BY 0211 01761000 * CLOSE, SET TO ONE BY EOV. 0211 01762000 * (ICB353) A42228*/ 01763000 * 4 DEBAPFIN BIT(1), /* IF ON, AUTHORIZED PROGRAMS 0211 01764000 * CAN BE LOADED MDC001*/ 01765000 * 4 DEBXTNIN BIT(1), /* IF ONE, DEB EXTENSION EXISTS 01766000 * (OS/VS2) MDC007*/ 01767000 * 3 DEBRSV05 CHAR(1), /* RESERVED */ 01768000 * 3 DEBUSRPG PTR(31), /* ADDRESS OF FIRST IOB IN THE 01769000 * USER PURGE CHAIN (OS/VS1) 0211 01770000 * ADDRESS OF PURGED I/O RESTORE 01771000 * LIST (PIRL) (OS/VS2) 0211 01772000 * (MDC029) YM3158*/ 01773000 * 4 DEBNMEXT CHAR(1), /* NUMBER OF EXTENTS SPECIFIED 01774000 * IN DSCB'S */ 01775000 * 4 DEBUSRPB PTR(24), /* *** SAME AS DEBUSRPG ABOVE */ 01776000 * 3 DEBRRQ PTR(31), /* POINTER TO RELATED REQUEST 0211 01777000 * QUEUE (OS/VS2) MDC026*/ 01778000 * 4 DEBECBAD PTR(31), /* ADDRESS OF A PARAMETER LIST 01779000 * USED TO LOCATE THE PURGE ECB 01780000 * FOR AN SVC PURGE REQUEST 0211 01781000 * (OS/VS1) MDC025*/ 01782000 * 5 DEBPRIOR CHAR(1), /* PRIORITY OF THE TASK OWNING 01783000 * DEB */ 01784000 * 5 DEBECBB PTR(24), /* *** SAME AS DEBECBAD ABOVE */ 01785000 * 3 DEBDCBAD PTR(31), /* ADDRESS OF DCB ASSOCIATED 0211 01786000 * WITH THIS DEB */ 01787000 * 4 DEBPROTG CHAR(1), /* TASK PROTECTION KEY IN HIGH- 01788000 * ORDER 4 BITS */ 01789000 * 5 DEBDEBID CHAR(1), /* A HEX F IN LOW-ORDER 4 BITS 01790000 * TO IDENTIFY THIS BLOCK AS A 01791000 * DEB */ 01792000 * 4 DEBDCBB PTR(24), /* *** SAME AS DEBDCBAD ABOVE */ 01793000 * 3 DEBAPPAD PTR(31), /* ADDRESS OF THE I/O APPENDAGE 01794000 * VECTOR TABLE */ 01795000 * 4 DEBEXSCL CHAR(1), /* EXTENT SCALE- 4 FOR DIRECT 0211 01796000 * ACCESS DEVICE AND 3525 CARD 01797000 * PUNCH WITH DEVICE-ASSOCIATED 01798000 * DATA SET SUPPORT AND 2 FOR 0211 01799000 * NONDIRECT ACCESS DEVICE AND 01800000 * COMMUNICATION DEVICE. THIS 01801000 * FIELD IS USED TO DETERMINE 0211 01802000 * THE SIZE OF THE DEVICE 0211 01803000 * DEPENDENT SECTION ICB394*/ 01804000 * 4 DEBAPPB PTR(24), /* *** SAME AS DEBAPPAD ABOVE */ 01805000 * 3 DEBBASND CHAR(0) BDY(WORD); 0211 01806000 * 0211 01807000 * /* *************************************************************** */ 01808000 * /* UNIT RECORD, MAGNETIC TAPE, TELECOMMUNICATIONS DEVICES SECTION*/ 01809000 * /* */ 01810000 * /* NOTE FOR TELECOMMUNICATIONS DEVICES, THE UCB ADDRESS */ 01811000 * /* IS REPEATED FOR EACH LINE ASSIGNED */ 01812000 * /* *************************************************************** */ 01813000 * 0212 01814000 * DECLARE 1 DEBBAS02 0212 01815000 * DEF(DEBBASND) BDY(WORD), 0212 01816000 * 3 DEBDDS1 BDY(WORD), 0212 01817000 * 4 DEBSUCBA PTR(31), /* ADDRESS OF UCB ASSOCIATED 0212 01818000 * WITH A GIVEN DATA SET */ 01819000 * 5 DEBSDVM CHAR(1), /* DEVICE MODIFIER. FOR MAGNETIC 01820000 * TAPE, SET MODE OPERATION CODE. 01821000 * FOR UNIT RECORD, NOT USED. */ 01822000 * 5 DEBSUCBB PTR(24), /* *** SAME AS DEBSUCBA ABOVE */ 01823000 * 4 DEBDEVED CHAR(0) BDY(WORD), /* END OF COMMON UNIT RECORD 0212 01824000 * FIELDS (MDC330) @X04AA9A*/ 01825000 * 0212 01826000 * /* THE FOLLOWING FIELDS ARE PRESENT ONLY FOR THE 3525 WITH */ 01827000 * /* DEVICE-ASSOCIATED DATA SET SUPPORT */ 01828000 * 0212 01829000 * 4 DEBRDCB PTR(31), /* ADDRESS OF DCB FOR THE READ 01830000 * ASSOCIATED DATA SET ICB394*/ 01831000 * 5 DEBRSV06 CHAR(1), /* RESERVED ICB394*/ 01832000 * 5 DEBRDCBA PTR(24), /* SAME AS DEBRDCB ABOVE ICB394*/ 01833000 * 4 DEBPDCB PTR(31), /* ADDRESS OF DCB FOR THE PUNCH 01834000 * ASSOCIATED DATA SET ICB394*/ 01835000 * 5 DEBRSV07 CHAR(1), /* RESERVED ICB394*/ 01836000 * 5 DEBPDCBA PTR(24), /* SAME AS DEBPDCB ABOVE ICB394*/ 01837000 * 4 DEBWDCB PTR(31), /* ADDRESS OF DCB FOR THE PRINT 01838000 * ASSOCIATED DATA SET ICB394*/ 01839000 * 5 DEBRSV08 CHAR(1), /* RESERVED ICB394*/ 01840000 * 5 DEBWDCBA PTR(24); /* SAME AS DEBWDCB ABOVE ICB394*/ 01841000 * 0212 01842000 * 0212 01843000 * /* *************************************************************** */ 01844000 * /* 3540 ACCESS METHOD DEPENDENT SECTION @X04AA9A*/ 01845000 * /* (OS/VS1 ONLY) @X04AA9A*/ 01846000 * /* */ 01847000 * /* NOTE THIS SECTION FOLLOWS DEBSUCBA IN UNIT RECORD, */ 01848000 * /* MAGNETIC TAPE, TELECOMMUNICATIONS DEVICES SECTION */ 01849000 * /* IF DEB IS FOR 3540 DEVICE. @X04AA9A*/ 01850000 * /* *************************************************************** */ 01851000 * 0213 01852000 * DECLARE 1 DEBACS09 0213 01853000 * DEF(DEBDEVED) BDY(WORD), /* @X04AA9A*/ 01854000 * 2 DEBASC09 CHAR(16) BDY(WORD), /* 3540 ACCESS METHOD DEPENDENT 01855000 * SECTION (MDC317) @X04AA9A*/ 01856000 * 3 DEBVOLAC CHAR(1), /* VOLUME ACCESSABILITY 0213 01857000 * INDICATOR (MDC327) @X04AA9A*/ 01858000 * 3 DEBDSSQL CHAR(1), /* DATA SET SECURITY QUALIFIER 01859000 * (MDC328) @X04AA9A*/ 01860000 * 3 DEBVSEQU PTR(8), /* VOLUME SEQUENCE NUMBER 0213 01861000 * (MDC318) @X04AA9A*/ 01862000 * 3 DEBEAMFG BIT(8), /* FLAG BYTE (MDC319) @X04AA9A*/ 01863000 * 4 DEBMULTI BIT(1), /* MULTI-VOLUME INDICATOR 0213 01864000 * (MDC320) @X04AA9A*/ 01865000 * 4 DEBDSOPN BIT(1), /* DATA SET IS OPEN 0213 01866000 * (MDC321) @X04AA9A*/ 01867000 * 4 DEBVAMSG BIT(1), /* VOLUME ACCESSABILITY MESSAGE 01868000 * HAS BEEN ISSUED (MDC329) 0213 01869000 * @X04AA9A*/ 01870000 * 4 DEBSECVL BIT(1), /* SECURE VOLUME (MDC332) 0213 01871000 * @X04AA9A*/ 01872000 * 4 DEBRV004 BIT(1), /* RESERVED @X04AA9A*/ 01873000 * 4 DEBRV005 BIT(1), /* RESERVED @X04AA9A*/ 01874000 * 4 DEBRV006 BIT(1), /* RESERVED @X04AA9A*/ 01875000 * 4 DEBRV007 BIT(1), /* RESERVED @X04AA9A*/ 01876000 * 3 DEBDSID CHAR(8), /* DATA SET IDENTIFIER (DSID) 0213 01877000 * (INPUT) (MDC305) @X04AA9A*/ 01878000 * 4 DEBEXDTE CHAR(6), /* EXPIRATION DATE (OUTPUT) 0213 01879000 * (MDC333) @X04AA9A*/ 01880000 * 4 DEBWTPTI CHAR(1), /* WRITE PROTECT INDICATOR 0213 01881000 * (OUTPUT) (MDC334) @X04AA9A*/ 01882000 * 4 DEBRV008 CHAR(1), /* RESERVED (OUTPUT) (MDC335) 01883000 * @X04AA9A*/ 01884000 * 3 DEBEOD CHAR(4) BDY(WORD), /* END OF DATA (EOD) ADDRESS 0213 01885000 * (INPUT) (MDC306) @X04AA9A*/ 01886000 * 4 DEBBOE CHAR(4) BDY(WORD), /* BEGINNING OF EXTENT (BOE) 0213 01887000 * ADDRESS (OUTPUT) (MDC322) 0213 01888000 * @X04AA9A*/ 01889000 * 5 DEBEODRV PTR(8), /* RESERVED (MDC307) @X04AA9A*/ 01890000 * 6 DEBBOERV PTR(8), /* RESERVED (MDC323) @X04AA9A*/ 01891000 * 5 DEBEODTT PTR(8), /* EOD TRACK NUMBER 0213 01892000 * (MDC308) @X04AA9A*/ 01893000 * 6 DEBBOETT PTR(8), /* BOE TRACK NUMBER 0213 01894000 * (MDC324) @X04AA9A*/ 01895000 * 5 DEBEOD0 PTR(8), /* MUST BE ZERO 0213 01896000 * (MDC309) @X04AA9A*/ 01897000 * 6 DEBBOE0 PTR(8), /* MUST BE ZERO 0213 01898000 * (MDC325) @X04AA9A*/ 01899000 * 5 DEBEODSS PTR(8), /* EOD SECTOR NUMBER 0213 01900000 * (MDC310) @X04AA9A*/ 01901000 * 6 DEBBOESS PTR(8); /* BOE SECTOR NUMBER 0213 01902000 * (MDC326) @X04AA9A*/ 01903000 * 0213 01904000 * 0213 01905000 * /* *************************************************************** */ 01906000 * /* DEB ISAM DEPENDENT SECTION */ 01907000 * /* */ 01908000 * /* NOTE PRESENT ONLY IF ISAM IS USED. FOLLOWS THE BASIC */ 01909000 * /* SECTION AND PRECEDES THE DIRECT ACCESS STORAGE */ 01910000 * /* DEVICE SECTION. COUNTED AS ONE EXTENT IN DEBNMEXT. */ 01911000 * /* *************************************************************** */ 01912000 * 0214 01913000 * DECLARE 1 DEBBAS01 0214 01914000 * DEF(DEBBASND) BDY(WORD), 0214 01915000 * 2 DEBISAM BDY(WORD), 0214 01916000 * 3 DEBFIEAD PTR(31), /* ADDRESS OF FIRST INDEX 0214 01917000 * EXTENT */ 01918000 * 4 DEBNIEE CHAR(1), /* NUMBER OF EXTENTS OF 0214 01919000 * INDEPENDENT INDEX AREA */ 01920000 * 4 DEBFIEB PTR(24), /* *** SAME AS DEBFIEAD ABOVE */ 01921000 * 3 DEBFPEAD PTR(31), /* ADDRESS OF THE FIRST PRIME 0214 01922000 * DATA EXTENT */ 01923000 * 4 DEBNPEE CHAR(1), /* NUMBER OF EXTENTS OF PRIME 0214 01924000 * DATA AREA (M=0 EXTENT) */ 01925000 * 4 DEBFPEB PTR(24), /* *** SAME AS DEBFPEAD ABOVE */ 01926000 * 3 DEBFOEAD PTR(31), /* ADDRESS OF THE FIRST 0214 01927000 * OVERFLOW EXTENT */ 01928000 * 4 DEBNOEE CHAR(1), /* NUMBER OF EXTENTS OF 0214 01929000 * INDEPENDENT OVERFLOW AREA */ 01930000 * 4 DEBFOEB PTR(24), /* *** SAME AS DEBFOEAD ABOVE */ 01931000 * 3 DEBEXPT PTR(31), /* ADDRESS OF ISAM DEB 0214 01932000 * EXTENSION ICB379*/ 01933000 * 4 DEBRPSID BIT(8), /* ROTATIONAL POSITION SENSING 01934000 * (RPS) DEVICE INDICATORS */ 01935000 * 5 DEBRPSP BIT(1), /* PRIME DATA AREA IS ON RPS 0214 01936000 * DEVICE */ 01937000 * 5 DEBRPSI BIT(1), /* INDEPENDENT INDEX AREA IS ON 01938000 * RPS DEVICE */ 01939000 * 5 DEBRPSO BIT(1), /* INDEPENDENT OVERFLOW AREA IS 01940000 * ON RPS DEVICE */ 01941000 * 5 DEBRPSAP BIT(1), /* RPS SIO APPENDAGE HAS BEEN 0214 01942000 * LOADED */ 01943000 * 5 DEBRSV09 BIT(1), /* RESERVED */ 01944000 * 5 DEBRSV10 BIT(1), /* RESERVED */ 01945000 * 5 DEBRSV11 BIT(1), /* RESERVED */ 01946000 * 5 DEBRSV12 BIT(1), /* RESERVED */ 01947000 * 4 DEBEXPTA PTR(24); /* SAME AS DEBEXPT ABOVE ICB379*/ 01948000 * 0214 01949000 * /* *************************************************************** */ 01950000 * /* DIRECT ACCESS STORAGE DEVICE SECTION */ 01951000 * /* */ 01952000 * /* NOTE IF ISAM IS BEING USED, THIS SECTION FOLLOWS THE */ 01953000 * /* ISAM DEVICE DEPENDENT SECTION. OTHERWISE, IT */ 01954000 * /* FOLLOWS THE BASIC SECTION. */ 01955000 * /* */ 01956000 * /* THERE IS ONE OF THESE SECTIONS FOR EACH EXTENT. */ 01957000 * /* *************************************************************** */ 01958000 * 0215 01959000 * DECLARE 0215 01960000 * 1 DEBDASD BASED(DEBDAPTR) BDY(WORD), 0215 01961000 * 3 DEBUCBAD PTR(31), /* ADDRESS OF UCB ASSOCIATED 0215 01962000 * WITH THIS DATA EXTENT */ 01963000 * 4 DEBDVMOD CHAR(1), /* DEVICE MODIFIER - FILE MASK */ 01964000 * 4 DEBUCBA PTR(24), /* *** SAME AS DEBUCBAD ABOVE */ 01965000 * 3 DEBBINUM CHAR(2), /* BIN NUMBER */ 01966000 * 3 DEBSTRCC CHAR(2), /* CYLINDER ADDRESS FOR THE 0215 01967000 * START OF AN EXTENT LIMIT */ 01968000 * 3 DEBSTRHH CHAR(2), /* READ/WRITE TRACK ADDRESS FOR 01969000 * THE START OF AN EXTENT LIMIT */ 01970000 * 3 DEBENDCC CHAR(2), /* CYLINDER ADDRESS FOR THE END 01971000 * OF AN EXTENT LIMIT */ 01972000 * 3 DEBENDHH CHAR(2), /* READ/WRITE TRACK ADDRESS FOR 01973000 * THE END OF AN EXTENT LIMIT */ 01974000 * 3 DEBNMTRK CHAR(2); /* NUMBER OF TRACKS ALLOCATED 0215 01975000 * TO A GIVEN EXTENT. FOR SPLIT 01976000 * CYLINDER DATA SETS, THIS 0215 01977000 * FIELD REPRESENTS THE NUMBER 01978000 * OF TRACKS BETWEEN THE START 01979000 * ADDRESS OF THE EXTENT AND THE 01980000 * END ADDRESS OF THE EXTENT. */ 01981000 * 0215 01982000 * 0215 01983000 * /* *************************************************************** */ 01984000 * /* EXCP ACCESS METHOD, BSAM AND QSAM DEPENDENT SECTION */ 01985000 * /* *************************************************************** */ 01986000 * 0216 01987000 * DECLARE 0216 01988000 * 1 DEBACSMD BASED(DEBEXPTR) BDY(WORD), 0216 01989000 * 3 DEBVOLSQ CHAR(2), /* VOLUME SEQUENCE NUMBER FOR 0216 01990000 * MULTIVOLUME SEQUENTIAL DATA 01991000 * SETS */ 01992000 * 4 DEBVOLBT BIT(8), /* FIRST BYTE OF DEBVOLSQ 0216 01993000 * (MDC016) YA00318*/ 01994000 * 5 DEBEXFUL BIT(1), /* SET BY EOV WHEN REWRITING AN 01995000 * OLD DIRECT ACCESS DATA SET TO 01996000 * INDICATE THAT ALL PREVIOUS 0216 01997000 * EXISTING EXTENTS HAVE BEEN 0216 01998000 * FILLED (MDC017) YA00318*/ 01999000 * 5 DEBRSV36 BIT(1), /* RESERVED MDC018*/ 02000000 * 5 DEBRSV37 BIT(1), /* RESERVED MDC018*/ 02001000 * 5 DEBRSV38 BIT(1), /* RESERVED MDC018*/ 02002000 * 5 DEBRSV39 BIT(1), /* RESERVED MDC018*/ 02003000 * 5 DEBRSV40 BIT(1), /* RESERVED MDC018*/ 02004000 * 5 DEBRSV41 BIT(1), /* RESERVED MDC018*/ 02005000 * 5 DEBRSV42 BIT(1), /* RESERVED MDC018*/ 02006000 * 4 DEBVLSEQ PTR(8), /* FOR DIRECT ACCESS, SEQUENCE 02007000 * NUMBER OF THE VOLUME OF THE 02008000 * DATA SET RELATIVE TO THE 0216 02009000 * FIRST VOLUME OF THE DATA SET. 02010000 * FOR TAPE, SEQUENCE NUMBER OF 02011000 * THE VOLUME OF THE DATA SET 0216 02012000 * RELATIVE TO THE FIRST VOLUME 02013000 * PROCESSED. (MDC019) YA00318*/ 02014000 * 3 DEBVOLNM CHAR(2), /* TOTAL NUMBER OF VOLUMES IN A 02015000 * MULTIVOLUME SEQUENTIAL DATA 02016000 * SET. */ 02017000 * 3 DEBDSNM CHAR(8) BDY(WORD), /* MEMBER NAME. THIS FIELD 0216 02018000 * APPEARS ONLY WHEN AN OUTPUT 02019000 * DATA SET HAS BEEN OPENED FOR 02020000 * A MEMBER NAME AND THE DSCB 0216 02021000 * SPECIFIES A PARTITIONED 0216 02022000 * DATA SET. */ 02023000 * 5 DEBUTSAA PTR(31), /* ADDRESS OF THE USER TOTALING 02024000 * SAVE AREA */ 02025000 * 6 DEBRSV13 CHAR(1), /* RESERVED */ 02026000 * 6 DEBUTSAB PTR(24), /* *** SAME AS DEBUTSAA ABOVE */ 02027000 * 5 DEBRSV14 CHAR(4) BDY(WORD),/* RESERVED (IF USER TOTALING 0216 02028000 * WAS SPECIFIED) */ 02029000 * 3 DEBBLKSI FIXED(15), /* MAXIMUM BLOCK SIZE 0216 02030000 * (MDC346) @ZA03699*/ 02031000 * 3 DEBLRECL FIXED(15); /* LOGICAL RECORD LENGTH 0216 02032000 * (MDC347) @ZA03699*/ 02033000 * 0216 02034000 * 0216 02035000 * /* *************************************************************** */ 02036000 * /* BPAM DEPENDENT SECTION */ 02037000 * /* *************************************************************** */ 02038000 * 0217 02039000 * 0217 02040000 * DECLARE 1 DEBACS01 0217 02041000 * BASED(DEBEXPTR) BDY(WORD), 0217 02042000 * 3 DEBDSNAM CHAR(8) BDY(WORD), /* FOR A PARTITIONED DATA SET 0217 02043000 * OPENED FOR OUTPUT FOR A 0217 02044000 * MEMBER NAME, THIS FIELD IS 0217 02045000 * THE MEMBER NAME. */ 02046000 * 4 DEBEXTNM CHAR(1); /* FOR A PARTITIONED DATA SET 0217 02047000 * OPENED FOR INPUT, EACH ONE- 02048000 * BYTE FIELD CONTAINS THE 0217 02049000 * EXTENT NUMBER OF THE FIRST 0217 02050000 * EXTENT ENTRY FOR EACH DATA 0217 02051000 * SET EXCEPT THE FIRST, IF TWO 02052000 * OR MORE DATA SETS ARE 0217 02053000 * CONCATENATED. THE NUMBER OF 02054000 * BYTES IN THE FIELD IS EQUAL 02055000 * TO ONE LESS THAN THE NUMBER 02056000 * OF DATA SETS CONCATENATED. */ 02057000 * 0217 02058000 * 0217 02059000 * /* *************************************************************** */ 02060000 * /* BDAM DEPENDENT SECTION */ 02061000 * /* *************************************************************** */ 02062000 * 0218 02063000 * 0218 02064000 * DECLARE 1 DEBACS02 0218 02065000 * BASED(DEBEXPTR) BDY(WORD), 0218 02066000 * 0218 02067000 * /* ***************************************** */ 02068000 * /* * FOR FIXED LENGTH RECORDS WITH THE * */ 02069000 * /* * OPTION OF RELATIVE BLOCK ADDRESSING * */ 02070000 * /* * (BUT NOT TRACK OVERFLOW) * */ 02071000 * /* ***************************************** */ 02072000 * 0218 02073000 * 3 DEBDBLK FIXED(31), /* ONE FOUR-BYTE FIELD FOR EACH 02074000 * EXTENT DESCRIBED IN THE 0218 02075000 * DEVICE DEPENDENT SECTION. */ 02076000 * 4 DEBDBPT PTR(8), /* NUMBER OF BLOCKS PER TRACK */ 02077000 * 4 DEBDBPE CHAR(3); /* NUMBER OF BLOCKS PER EXTENT */ 02078000 * 0218 02079000 * 0218 02080000 * DECLARE 1 DEBACS03 0219 02081000 * BASED(DEBEXPTR) BDY(WORD), 0219 02082000 * 0219 02083000 * /* ***************************************** */ 02084000 * /* * FOR FIXED LENGTH RECORDS WITH THE * */ 02085000 * /* * OPTION OF RELATIVE BLOCK ADDRESSING * */ 02086000 * /* * AND TRACK OVERFLOW. * */ 02087000 * /* ***************************************** */ 02088000 * 0219 02089000 * 3 DEBDTPP FIXED(31), /* NUMBER OF TRACKS PER PERIOD */ 02090000 * 3 DEBDBPP FIXED(31), /* NUMBER OF BLOCKS PER PERIOD */ 02091000 * /* THE FOLLOWING FIELD OCCURS ONCE FOR */ 02092000 * /* EACH EXTENT. */ 02093000 * 3 DEBDBPEF FIXED(31); /* NUMBER OF BLOCKS PER EXTENT */ 02094000 * 0219 02095000 * 0219 02096000 * /* *************************************************************** */ 02097000 * /* BTAM DEPENDENT SECTION */ 02098000 * /* */ 02099000 * /* NOTE THIS SEGMENT IS ALWAYS PRESENT FOR BTAM. IT IS */ 02100000 * /* USED WHEN A BUFFER POOL OR DYNAMIC BUFFERING IS */ 02101000 * /* USED. OTHERWISE, THE FIELDS ARE ZERO. */ 02102000 * /* *************************************************************** */ 02103000 * 0220 02104000 * 0220 02105000 * DECLARE 1 DEBACS04 0220 02106000 * BASED(DEBEXPTR) BDY(WORD), 0220 02107000 * 3 DEBTBFRA PTR(31), /* ADDRESS OF THE BUFFER ROUTINE*/ 02108000 * 4 DEBRSV15 CHAR(1), /* RESERVED */ 02109000 * 4 DEBTBFRB PTR(24), /* ADDRESS OF THE BUFFER ROUTINE*/ 02110000 * /* THE FOLLOWING FIELD IS REPEATED FOR EACH */ 02111000 * /* CCW ON THE CHANNEL PROGRAM QUEUE */ 02112000 * 3 DEBTCCWA PTR(31), /* ADDRESS OF THE FIRST (OR 0220 02113000 * FOLLOWING) CCW ON THE QUEUE */ 02114000 * 4 DEBRSV16 CHAR(1), /* RESERVED */ 02115000 * 4 DEBTCCWB PTR(24); /* *** SAME AS DEBCCWA ABOVE */ 02116000 * 0220 02117000 * 0220 02118000 * /* *************************************************************** */ 02119000 * /* GAM DEPENDENT SECTION */ 02120000 * /* *************************************************************** */ 02121000 * 0221 02122000 * 0221 02123000 * DECLARE 1 DEBACS05 0221 02124000 * BASED(DEBEXPTR) BDY(WORD), 0221 02125000 * 3 DEBFUCBA PTR(31), /* ADDRESS OF FIRST UCB */ 02126000 * 4 DEBRSV17 CHAR(1), /* RESERVED */ 02127000 * 4 DEBFUCBB PTR(24), /* ADDRESS OF FIRST UCB */ 02128000 * 3 DEBLUCBA PTR(31), /* ADDRESS OF LAST UCB */ 02129000 * 4 DEBRSV18 CHAR(1), /* RESERVED */ 02130000 * 4 DEBLUCBB PTR(24); /* ADDRESS OF LAST UCB */ 02131000 * 0221 02132000 * 0221 02133000 * /* *************************************************************** */ 02134000 * /* ISAM LOAD MODE EXTENSION */ 02135000 * /* *************************************************************** */ 02136000 * 0222 02137000 * 0222 02138000 * DECLARE 1 DEBACS06 0222 02139000 * BASED(DEBEXPT) BDY(WORD), 0222 02140000 * 2 DEBDCBFA PTR(31), /* ADDRESS OF DCB FIELD AREA 0222 02141000 * MDC013*/ 02142000 * 2 DEBPUT PTR(31); /* ADDRESS OF PUT MODULE ICB379*/ 02143000 * 0222 02144000 * 0222 02145000 * /* *************************************************************** */ 02146000 * /* ISAM SCAN MODE EXTENSION */ 02147000 * /* *************************************************************** */ 02148000 * 0223 02149000 * 0223 02150000 * DECLARE 1 DEBACS07 0223 02151000 * BASED(DEBEXPT) BDY(WORD), 0223 02152000 * 2 * PTR(31), /* DEBDCBFA - ADDRESS OF DCB 0223 02153000 * FIELD AREA MDC014*/ 02154000 * 2 DEBGET PTR(31), /* ADDRESS OF GET OR PUT MODULE 02155000 * - THIS FIELD IS ALSO CALLED 02156000 * DEBPUT ICB379*/ 02157000 * 2 DEBWKPT4 PTR(31), /* SAME AS DCBWKPT4 - ADDRESS OF 02158000 * UCB ICB379*/ 02159000 * 2 DEBWKPT5 PTR(31), /* SAME AS DCBWKPT5 - ADDRESS OF 02160000 * GET APPENDAGE MODULE ICB379*/ 02161000 * 2 DEBCREAD PTR(31), /* ADDRESS OF CHANNEL-END 0223 02162000 * APPENDAGE FOR READ ICB379*/ 02163000 * 2 DEBCSETL PTR(31), /* ADDRESS OF CHANNEL-END 0223 02164000 * APPENDAGE FOR SETL ICB379*/ 02165000 * 2 DEBCWRIT PTR(31), /* ADDRESS OF CHANNEL-END 0223 02166000 * APPENDAGE FOR WRITE ICB379*/ 02167000 * 2 DEBCCHK PTR(31), /* ADDRESS OF CHANNEL-END 0223 02168000 * APPENDAGE FOR WRITE VALIDITY 02169000 * CHECK ICB379*/ 02170000 * 2 DEBCREWT PTR(31), /* ADDRESS OF CHANNEL-END 0223 02171000 * APPENDAGE FOR RE-WRITE ICB379*/ 02172000 * 2 DEBCRECK PTR(31), /* ADDRESS OF CHANNEL-END 0223 02173000 * APPENDAGE FOR RE-CHECK ICB379*/ 02174000 * 2 DEBAREAD PTR(31), /* ADDRESS OF ABNORMAL-END 0223 02175000 * APPENDAGE FOR READ ICB379*/ 02176000 * 2 DEBASETL PTR(31), /* ADDRESS OF ABNORMAL-END 0223 02177000 * APPENDAGE FOR SETL ICB379*/ 02178000 * 2 DEBAWRIT PTR(31), /* ADDRESS OF ABNORMAL-END 0223 02179000 * APPENDAGE FOR WRITE ICB379*/ 02180000 * 2 DEBACHK PTR(31), /* ADDRESS OF ABNORMAL-END 0223 02181000 * APPENDAGE FOR WRITE VALIDITY 02182000 * CHECK ICB379*/ 02183000 * 2 DEBAREWT PTR(31), /* ADDRESS OF ABNORMAL-END 0223 02184000 * APPENDAGE FOR RE-WRITE ICB379*/ 02185000 * 2 DEBARECK PTR(31), /* ADDRESS OF ABNORMAL-END 0223 02186000 * APPENDAGE FOR RE-CHECK ICB379*/ 02187000 * 2 DEBRPSST PTR(31); /* ADDRESS OF RPS SIO APPENDAGE 02188000 * IF ADDRSPC=REAL WAS NOT 0223 02189000 * SPECIFIED ICB379*/ 02190000 * 0223 02191000 * 0223 02192000 * /* *************************************************************** */ 02193000 * /* BISAM MODE EXTENSION */ 02194000 * /* *************************************************************** */ 02195000 * 0224 02196000 * 0224 02197000 * DECLARE 1 DEBACS08 0224 02198000 * BASED(DEBEXPT) BDY(WORD), 0224 02199000 * 2 * PTR(31), /* DEBDCBFA - ADDRESS OF DCB 0224 02200000 * FIELD AREA MDC015*/ 02201000 * 2 DEBDISAD PTR(31), /* ADDRESS OF PRIVILEGED MODULE 02202000 * ENTERED WHEN A BISAM MACRO 0224 02203000 * INSTRUCTION IS EXECUTED 0224 02204000 * ICB379*/ 02205000 * 2 * PTR(31), /* DEBWKPT4 - SAME AS DCBWKPT4 - 02206000 * ADDRESS OF THE PART 1 0224 02207000 * APPENDAGE MODULE (ABNORMAL 0224 02208000 * AND CHANNEL-END APPANDAGES) 02209000 * ICB379*/ 02210000 * 2 * PTR(31), /* DEBWKPT5 - SAME AS DCBWKPT5 - 02211000 * ADDRESS OF THE PART 2 0224 02212000 * APPENDAGE MODULE (ABNORMAL 0224 02213000 * AND CHANNEL-END APPANDAGES) 02214000 * ICB379*/ 02215000 * 2 DEBFREED PTR(31), /* ADDRESS OF DYNAMIC BUFFERING 02216000 * MODULE ICB379*/ 02217000 * 2 DEBRPSIO PTR(31), /* ADDRESS OF RPS SIO APPENDAGE 02218000 * MODULE IF ADDRSPC=REAL WAS 0224 02219000 * NOT SPECIFIED AND IF DYNAMIC 02220000 * BUFFERING IS USED ICB379*/ 02221000 * 2 DEBSIOA2 PTR(31); /* ADDRESS OF DYNAMIC BUFFERING 02222000 * APPENDAGE MODULE DISPLACED BY 02223000 * PAGE FIX (PGFX) APPENDAGE IF 02224000 * ADDRSPC=REAL WAS NOT 0224 02225000 * SPECIFIED ICB379*/ 02226000 * 0224 02227000 * 0224 02228000 * /* *************************************************************** */ 02229000 * /* SUBROUTINE NAME SECTION */ 02230000 * /* */ 02231000 * /* NOTE FOLLOWS THE ACCESS METHOD DEPENDENT SECTION, OR THE */ 02232000 * /* DEVICE DEPENDENT SECTION IF THERE IS NO ACCESS */ 02233000 * /* METHOD SECTION. */ 02234000 * /* *************************************************************** */ 02235000 * 0225 02236000 * DECLARE 0225 02237000 * 1 DEBSUBNM BASED(DEBSBPTR) BDY(WORD), 0225 02238000 * 4 DEBSUBID CHAR(2); /* SUBORUTINE IDENTIFICATION. 0225 02239000 * EACH ACCESS METHOD SUBROUTINE, 02240000 * APPENDAGE SUBROUTINE, AND IRB 02241000 * ROUTINE WILL HAVE A UNIQUE 0225 02242000 * EIGHT-BYTE NAME. THE LOW- 0225 02243000 * ORDER TWO BYTES OF EACH 0225 02244000 * ROUTINE NAME WILL BE IN THIS 02245000 * FIELD IF THE SUBROUTINE IS 0225 02246000 * LOADED BY THE OPEN ROUTINES. */ 02247000 * 0225 02248000 * 0225 02249000 * /* *************************************************************** */ 02250000 * /* APPENDAGE VECTOR TABLE SECTION OF THE DEB */ 02251000 * /* *************************************************************** */ 02252000 * 0226 02253000 * DECLARE 0226 02254000 * 1 DEB BASED(DEBAPPAD) BDY(WORD), 0226 02255000 * 2 DEBAVT BDY(WORD), /* APPENDAGE VECTOR TABLE */ 02256000 * 3 DEBEOEA PTR(31), /* ADDRESS OF END-OF-EXTENT 0226 02257000 * APPENDAGE ROUTINE */ 02258000 * 4 DEBEOEAB CHAR(1), /* FLAG BYTE ICB280*/ 02259000 * 5 DEBRSV19 BIT(1), /* RESERVED */ 02260000 * 5 DEBRSV20 BIT(1), /* RESERVED */ 02261000 * 5 DEBRSV21 BIT(1), /* RESERVED */ 02262000 * 5 DEBRSV22 BIT(1), /* RESERVED */ 02263000 * 5 DEBEOENP BIT(4), /* NUMBER OF 2K PAGES TO BE 0226 02264000 * FIXED FOR THE END-OF-EXTENT 02265000 * APPENDAGE ICB280*/ 02266000 * 4 DEBEOEAD PTR(24), /* ADDRESS OF END-OF-EXTENT 0226 02267000 * APPENDAGE ROUTINE ICB280*/ 02268000 * 3 DEBSIOA PTR(31), /* ADDRESS OF START I/O 0226 02269000 * APPENDAGE ROUTINE */ 02270000 * 4 DEBSIOAB CHAR(1), /* FLAG BYTE ICB280*/ 02271000 * 5 DEBPGFX BIT(1), /* ADDRESS IN DEBSIOAD CAN BE 0226 02272000 * USED TO DETERMINE THE ENTRY 02273000 * POINT TO THE PAGE FIX (PGFX) 02274000 * APPENDAGE ROUTINE BY ADDING 02275000 * 4 TO ADDRESS IN DEBSIOAD 0226 02276000 * ICB280*/ 02277000 * 5 DEBSIOX BIT(1), /* IF ZERO, DO NOT ENTER SIO 0226 02278000 * APPENDAGE WHEN ERP IS ACTIVE. 02279000 * IF ONE, ENTER SIO APPENDAGE 02280000 * EVEN WHEN ERP IS ACTIVE. 0226 02281000 * ICB372*/ 02282000 * 5 DEBIOVR BIT(1), /* IF ONE, EXCPVR REQUEST IS 0226 02283000 * VALID. IF ZERO, EXCPVR 0226 02284000 * REQUEST IS INVALID AND WILL 02285000 * NOT BE EXECUTED. ICB401*/ 02286000 * 5 DEBFIX BIT(1), /* INDICATION THAT DEB HAS BEEN 02287000 * FIXED (OS/VS2) (MDC032) 0226 02288000 * YM5929*/ 02289000 * 5 DEBSIONP BIT(4), /* NUMBER OF 2K PAGES TO BE 0226 02290000 * FIXED FOR THE SIO 0226 02291000 * APPENDAGE ICB280*/ 02292000 * 4 DEBSIOAD PTR(24), /* ADDRESS OF START I/O 0226 02293000 * APPENDAGE ROUTINE ICB280*/ 02294000 * 3 DEBPCIA PTR(31), /* ADDRESS OF PCI APPENDAGE 0226 02295000 * ROUTINE */ 02296000 * 4 DEBPCIAB CHAR(1), /* FLAG BYTE ICB280*/ 02297000 * 5 DEBRSV24 BIT(1), /* RESERVED */ 02298000 * 5 DEBRSV25 BIT(1), /* RESERVED */ 02299000 * 5 DEBRSV26 BIT(1), /* RESERVED */ 02300000 * 5 DEBRSV27 BIT(1), /* RESERVED */ 02301000 * 5 DEBPCINP BIT(4), /* NUMBER OF 2K PAGES TO BE 0226 02302000 * FIXED FOR THE PCI APPENDAGE 02303000 * ROUTINE ICB280*/ 02304000 * 4 DEBPCIAD PTR(24), /* ADDRESS OF PROGRAM- 0226 02305000 * CONTROLLED-INTERRUPTION (PCI) 02306000 * APPENDAGE ROUTINE ICB280*/ 02307000 * 3 DEBCEA PTR(31), /* ADDRESS OF CHANNEL-END 0226 02308000 * APPENDAGE ROUTINE */ 02309000 * 4 DEBCEAB CHAR(1), /* FLAG BYTE ICB280*/ 02310000 * 5 DEBRSV28 BIT(1), /* RESERVED */ 02311000 * 5 DEBRSV29 BIT(1), /* RESERVED */ 02312000 * 5 DEBRSV30 BIT(1), /* RESERVED */ 02313000 * 5 DEBRSV31 BIT(1), /* RESERVED */ 02314000 * 5 DEBCENP BIT(4), /* NUMBER OF 2K PAGES TO BE 0226 02315000 * FIXED FOR THE CHANNEL-END 0226 02316000 * APPENDAGE ICB280*/ 02317000 * 4 DEBCEAD PTR(24), /* ADDRESS OF CHANNEL END 0226 02318000 * APPENDAGE ROUTINE ICB280*/ 02319000 * 3 DEBXCEA PTR(31), /* ADDRESS OF ABNORMAL-END 0226 02320000 * APPENDAGE ROUTINE */ 02321000 * 4 DEBXCEAB CHAR(1), /* FLAG BYTE ICB280*/ 02322000 * 5 DEBRSV32 BIT(1), /* RESERVED */ 02323000 * 5 DEBRSV33 BIT(1), /* RESERVED */ 02324000 * 5 DEBRSV34 BIT(1), /* RESERVED */ 02325000 * 5 DEBRSV35 BIT(1), /* RESERVED */ 02326000 * 5 DEBXCENP BIT(4), /* NUMBER OF 2K PAGES TO BE 0226 02327000 * FIXED FOR THE ABNORMAL-END 0226 02328000 * APPENDAGE ICB280*/ 02329000 * 4 DEBXCEAD PTR(24), /* ADDRESS OF ABNORMAL-END 0226 02330000 * APPENDAGE ROUTINE ICB280*/ 02331000 * 0226 02332000 * /* *************************************************************** */ 02333000 * /* DEB PREFIX TABLE */ 02334000 * /* *************************************************************** */ 02335000 * 0226 02336000 * 2 DEBPREFX BDY(WORD), /* DEB PREFIX TABLE */ 02337000 * 3 DEBWKARA CHAR(1) BDY(WORD), /* I/O SUPPORT WORK AREA 0226 02338000 * (DIRECT ACCESS) */ 02339000 * 3 DEBDSCBA CHAR(7) BDY(WORD,2),/* DSCB ADDRESS (BBCCHHR) USED 02340000 * BY I/O SUPPORT (DIRECT 0226 02341000 * ACCESS) */ 02342000 * 3 DEBXTNP PTR(31), /* POINTER TO DEB EXTENSION 0226 02343000 * (OS/VS2) MDC008*/ 02344000 * 4 DEBDCBMK CHAR(4) BDY(WORD), /* DCB MODIFICATION MASK USED BY 02345000 * I/O SUPPORT (OS/VS1) MDC009*/ 02346000 * 3 DEBLNGTH CHAR(1), /* LENGTH OF DEB IN DOUBLE 0226 02347000 * WORDS */ 02348000 * 3 DEBAMTYP CHAR(1), /* ACCESS METHOD TYPE ICB380*/ 02349000 * 3 DEBTBLOF FIXED(15); /* OFFSET IN THE DEB TABLE TO 0226 02350000 * THE ENTRY FOR THIS DEB ICB380*/ 02351000 * 0226 02352000 * 0226 02353000 * /* *************************************************************** */ 02354000 * /* DEB EXTENSION (OS/VS2) */ 02355000 * /* *************************************************************** */ 02356000 * 0227 02357000 * DECLARE 0227 02358000 * 1 DEBXTN BASED(DEBXTNP) BDY(WORD), 0227 02359000 * 2 DEBXLNGH FIXED(15), /* LENGTH OF DEB EXTENSION 0227 02360000 * MDC002*/ 02361000 * 2 DEBXFLG1 BIT(8), /* FLAG BYTE (MDC027) YM1272*/ 02362000 * 3 DEBXCDCB BIT(1), /* DEBDCBAD FIELD CONTAINS THE 02363000 * ADDRESS OF A COPIED DCB. 0227 02364000 * USED BY END-OF-VOLUME, TCLOSE 02365000 * AND TASK CLOSE. (MDC028) 0227 02366000 * YM1272*/ 02367000 * 3 DEBXTSKC BIT(1), /* TASK CLOSE IS CLOSING THE 0227 02368000 * RELATED DCB. SET BY TASK 0227 02369000 * CLOSE AND INTERROGATED BY 0227 02370000 * END-OF-VOLUME, FEOV AND 0227 02371000 * TCLOSE FOR DEB'S NOT ON THE 02372000 * CURRENT TCB DEB CHAIN. 0227 02373000 * (MDC031) YM2869*/ 02374000 * 3 DEBXDSSI BIT(1), /* DATA SET SECURITY INDICATOR. 02375000 * SET BY OPEN AND CHECKPOINT. 02376000 * INTERROGATED BY EOV. 0227 02377000 * (MDC348) @Z40RP9A*/ 02378000 * 3 DEBXRV43 BIT(1), /* RESERVED */ 02379000 * 3 DEBXRV44 BIT(1), /* RESERVED */ 02380000 * 3 DEBXRV45 BIT(1), /* RESERVED */ 02381000 * 3 DEBXRV46 BIT(1), /* RESERVED */ 02382000 * 3 DEBXRV47 BIT(1), /* RESERVED */ 02383000 * 2 DEBXRV48 CHAR(1), /* RESERVED */ 02384000 * 2 DEBXDSAB PTR(31), /* POINTER TO DSAB MDC004*/ 02385000 * 2 DEBXDCBM CHAR(4) BDY(WORD), /* DCB MODIFICATION MASK USED BY 02386000 * I/O SUPPORT MDC005*/ 02387000 * 2 DEBXDBPR PTR(31), /* POINTER TO DEB MDC006*/ 02388000 * 2 DEBXDSO1 BIT(8), /* SAME AS DCBDSORG BYTE 1 0227 02389000 * MDC020*/ 02390000 * 2 DEBXDSO2 BIT(8), /* SAME AS DCBDSORG BYTE 2 0227 02391000 * MDC021*/ 02392000 * 2 DEBXMCF1 BIT(8), /* SAME AS DCBMACRF BYTE 1 0227 02393000 * MDC022*/ 02394000 * 2 DEBXMCF2 BIT(8), /* SAME AS DCBMACRF BYTE 2 0227 02395000 * MDC023*/ 02396000 * 2 DEBXXARG PTR(31), /* ADDRESS OF BDAM READ 0227 02397000 * EXCLUSIVE LIST MDC024*/ 02398000 * 2 DEBXOPNJ PTR(31), /* POINTER TO DSAB (SEPARATE 0227 02399000 * FROM DEBXDSAB) DYNAMICALLY 0227 02400000 * ALLOCATED BY OPEN TYPE=J. 0227 02401000 * THIS POINTER WILL EXIST FOR 02402000 * NON-AUTHORIZED CALLERS OF 0227 02403000 * OPEN TYPE=J FOR A DIRECT 0227 02404000 * ACCESS DATA SET WHERE THE 0227 02405000 * DATA SET BEING OPENED IS 0227 02406000 * DIFFERENT FROM THE DATA SET 02407000 * DESCRIBED BY THE DDNAME IN 0227 02408000 * DCB AND THE JFCNWRIT BIT IS 02409000 * ON IN THE JFCB. THE POINTER 02410000 * WILL BE USED BY CLOSE TO 0227 02411000 * DYNAMICALLY UNALLOCATE THE 0227 02412000 * DATA SET. (MDC352) @ZA02193*/ 02413000 * 2 DEBXRV40 PTR(31); /* RESERVED */ 02414000 * 0228 02415000 * 0228 02416000 */* **************************************************************** */ 02417000 */* */ 02418000 */* EVENT CONTROL BLOCK (ECB) (OS/VS1 AND OS/VS2) AND */ 02419000 */* EVENT CONTROL BLOCK EXTENSION (ECBE) (OS/VS2 ONLY) */ 02420000 */* */ 02421000 */* OS/VS2 RELEASE 4, OS/VS1 RELEASE 5, 04/24/75, LEVEL=1 */ 02422000 */* */ 02423000 */* METHOD OF ACCESS */ 02424000 */* BAL - A DSECT IS PRODUCED FOR ECB UNLESS DSECT=NO IS */ 02425000 */* SPECIFIED. USING ON ECB GIVES ADDRESSABILITY FOR */ 02426000 */* ALL ECB SYMBOLS. */ 02427000 */* IF EXT=YES IS SPECIFIED, A DSECT IS PRODUCED FOR */ 02428000 */* ECB EXTENSION (ECBE). USING ON ECBE GIVES */ 02429000 */* ADDRESSABILITY FOR ALL ECBE SYMBOLS. */ 02430000 */* PL/S - DCL ECBPTR PTR */ 02431000 */* SPECIFY %ECBEXT='YES' BEFORE INCLUDING IHAECB IF */ 02432000 */* THE ECB EXTENSION (ECBE) IS TO BE MAPPED. */ 02433000 */* IF A MODULE USES THE ECB EXTENSION, A RESPECIFY */ 02434000 */* STATEMENT MUST BE ISSUED ON ECBE. ECBE IS BASED */ 02435000 */* ON ECBEXTB, BUT THIS ADDRESS HAS THE LOW-ORDER 2 */ 02436000 */* BITS ON TO INDICATE THAT AN ECB EXTENSION EXISTS. */ 02437000 */* THE ADDRESS IN ECBEXTB MUST BE PUT IN ANOTHER */ 02438000 */* POINTER FIELD AND THE LOW-ORDER 2 BITS TURNED OFF */ 02439000 */* IN ORDER TO OBTAIN PROPER ADDRESSABILITY TO THE */ 02440000 */* EXTENSION. */ 02441000 */* */ 02442000 */* NOTE */ 02443000 */* THE ECB IS USED FOR COMMUNICATION BETWEEN VARIOUS */ 02444000 */* COMPONENTS OF THE CONTROL PROGRAM, AS WELL AS BETWEEN */ 02445000 */* PROCESSING PROGRAMS AND THE CONTROL PROGRAM. AN ECB IS */ 02446000 */* THE SUBJECT OF WAIT AND POST MACRO INSTRUCTIONS. */ 02447000 */* **************************************************************** */ 02448000 * 0228 02449000 *DECLARE 0228 02450000 * 1 ECB BASED(ECBPTR) BDY(WORD), 0228 02451000 * 2 ECBRB FIXED(31), /* REQUEST BLOCK ADDRESS 0228 02452000 * (WHILE AWAITING 0228 02453000 * COMPLETION OF AN EVENT) */ 02454000 * 3 ECBEVTB PTR(31), /* ADDRESS OF EVENT TABLE 0228 02455000 * (MDC300) @X31ED9A*/ 02456000 * 4 ECBEXTB PTR(31), /* ADDRESS OF ECB EXTENSION 02457000 * (OS/VS2) 0228 02458000 * (MDC305) @Z40EP9A*/ 02459000 * 5 ECBCC BIT(8), /* COMPLETION CODE BYTE */ 02460000 * 6 ECBWAITB BIT(1), /* WAIT BIT */ 02461000 * 6 ECBPOSTB BIT(1), /* POST BIT */ 02462000 * 6 * BIT(6), /* COMPLETION CODE BITS */ 02463000 * 5 ECBCCCNT CHAR(3) BDY(WORD,2),/* ZEROES OR REMAINDER OF 0228 02464000 * COMPLETION CODE (AFTER 02465000 * COMPLETION OF THE EVENT) */ 02466000 * 6 ECBRBA PTR(24), /* REQUEST BLOCK ADDRESS 0228 02467000 * (WHILE AWAITING 0228 02468000 * COMPLETION OF AN EVENT) */ 02469000 * 7 ECBEVTBA PTR(24), /* ADDRESS OF EVENT TABLE 0228 02470000 * (MDC302) @X31ED9A*/ 02471000 * 8 ECBEXTBA PTR(24), /* ADDRESS OF ECB EXTENSION 02472000 * (OS/VS2) 0228 02473000 * (MDC306) @Z40EP9A*/ 02474000 * 9 * CHAR(2), /* FIRST TWO BYTES OF 0228 02475000 * ECBEVTBA @XM06072*/ 02476000 * 9 ECBBYTE3 BIT(8), /* THIRD BYTE OF ECBEVTBA 0228 02477000 * (MDC303) @XM06072*/ 02478000 * 10 * BIT(6), /* BITS 0-5 OF 0228 02479000 * ECBBYTE3 @Z40EP9A*/ 02480000 * 10 ECBEXTND BIT(2), /* ECB EXTENSION EXISTS 0228 02481000 * (OS/VS2) 0228 02482000 * (MDC307) @Z40EP9A*/ 02483000 * 11 * BIT(1), /* BIT 6 OF 0228 02484000 * ECBBYTE3 @Z40EP9A*/ 02485000 * 11 ECBEVNT BIT(1); /* EXTENDED FORMAT ECB 0228 02486000 * (MDC304) @XM06072*/ 02487000 * 0229 02488000 * 0229 02489000 */* INPUT/OUTPUT BLOCK */ 02490000 */* */ 02491000 */* OS/VS2 RELEASE 4, OS/VS1 RELEASE 5, 10/30/75, LEVEL=4 */ 02492000 */* */ 02493000 */* METHOD OF ACCESS */ 02494000 */* BAL - DSECT IS PRODUCED UNLESS DSECT=NO IS SPECIFIED. */ 02495000 */* USING ON IOB GIVES ADDRESSABILITY FOR ALL SYMBOLS. */ 02496000 */* PL/S - DCL (IOBPRPTR,IOBSTPTR) PTR */ 02497000 */* */ 02498000 * 0229 02499000 * DECLARE 0229 02500000 * 1 IOBPREFX BASED(IOBPRPTR) BDY(WORD), 0229 02501000 * 0229 02502000 * /* *************************************************************** */ 02503000 * /* */ 02504000 * /* PREFIX SECTIONS OF THE IOB */ 02505000 * /* */ 02506000 * /* *************************************************************** */ 02507000 * 0229 02508000 * /* **************************************** */ 02509000 * /* QSAM,BSAM,BPAM PREFIX */ 02510000 * /* CHAINED SCHEDULING *** 16 BYTES */ 02511000 * /* **************************************** */ 02512000 * 0229 02513000 * 2 IOBCFLG1 CHAR(1), /* I/O INDICATORS */ 02514000 * 3 IOBRSV01 BIT(1), /* RESERVED */ 02515000 * 3 IOBRSV02 BIT(1), /* RESERVED */ 02516000 * 3 IOBRSV03 BIT(1), /* RESERVED */ 02517000 * 3 IOBRSV04 BIT(1), /* RESERVED */ 02518000 * 3 IOBPTST BIT(1), /* NOTE OR POINT OPERATION IS 0229 02519000 * IN PROCESS */ 02520000 * 3 IOBABAPP BIT(1), /* ERROR HAS BEEN PROCESSED ONCE 02521000 * BY ABNORMAL-END APPENDAGE 0229 02522000 * ROUTINE */ 02523000 * 3 IOBRSTCH BIT(1), /* RESTART CHANNEL */ 02524000 * 3 IOBPCI BIT(1), /* SET WHEN A PROGRAM-CONTROLLED 02525000 * INTERRUPTION (PCI) OCCURS */ 02526000 * 2 IOBRSV05 CHAR(1), /* RESERVED */ 02527000 * 2 IOBCINOP CHAR(1), /* OFFSET OF THE LAST I/O 0229 02528000 * COMMAND FOR INPUT OPERATION 02529000 * (NOP CCW) FROM THE ORIGIN OF 02530000 * THE ICB */ 02531000 * 2 IOBCONOP CHAR(1), /* OFFSET OF THE LAST I/O 0229 02532000 * COMMAND FOR AN OUTPUT 0229 02533000 * OPERATION (NOP CCW) FROM 0229 02534000 * THE ORIGIN OF THE ICB */ 02535000 * 2 IOBCECB FIXED(31), /* EVENT CONTROL BLOCK USED BY 02536000 * BSAM OR QSAM. SHOWS THE 0229 02537000 * STATUS OF THE I/O OPERATION. */ 02538000 * 2 IOBCICB PTR(31), /* ADDRESS OF THE FIRST 0229 02539000 * INTERRUPT CONTROL BLOCK (ICB) 02540000 * ON THE ICB QUEUE */ 02541000 * 2 IOBCNOPA PTR(31); /* ADDRESS OF THE NOP COMMAND AT 02542000 * THE END OF THE QUEUE */ 02543000 * 0229 02544000 * /* **************************************** */ 02545000 * /* QSAM,BSAM,BPAM PREFIX */ 02546000 * /* NORMAL SCHEDULING *** 8 BYTES */ 02547000 * /* **************************************** */ 02548000 * 0230 02549000 * DECLARE 1 IOBORG01 0230 02550000 * DEF(IOBPREFX) POS(9) BDY(WORD), 0230 02551000 * 2 IOBNIOBA PTR(31), /* ADDRESS OF THE NEXT IOB 0230 02552000 * ASSOCIATED WITH ONE PARTICULAR 02553000 * DCB. THE IOB'S ARE CHAINED 02554000 * IN SEQUENTIAL ORDER. */ 02555000 * 3 IOBNFLG1 CHAR(1), /* FLAG BYTE */ 02556000 * 4 IOBPRTOV BIT(1), /* PRTOV HAS OCCURRED (PRINTER 02557000 * DEVICES) (MDC331) @Z40FP9A*/ 02558000 * 5 IOBSEGMT BIT(1), /* SEGMENTING OF A SPANNED 0230 02559000 * RECORD IS IN PROCESS (QSAM 0230 02560000 * LOCATE MODE, LOGICAL RECORD 02561000 * INTERFACE, UPDATE PROCESSING) 02562000 * (DIRECT ACCESS) (OS/VS2) 0230 02563000 * (MDC332) @Z40FP9A*/ 02564000 * 4 IOBWRITE BIT(1), /* A WRITE OPERATION IS IN 0230 02565000 * PROCESS */ 02566000 * 4 IOBREAD BIT(1), /* A READ OPERATION IS IN 0230 02567000 * PROCESS */ 02568000 * 4 IOBUPDAT BIT(1), /* UPDATE FLAG. SET ON TOGETHER 02569000 * WITH BIT 1 OF THIS BYTE TO 0230 02570000 * SHOW THAT THE BLOCK IS TO BE 02571000 * UPDATED. CAN ONLY OCCUR IF 02572000 * THE OPEN PARAMETER IS UPDAT. */ 02573000 * 4 IOBBKSPC BIT(1), /* IOB BEING USED FOR BACKSPACE, 02574000 * CONTROL OR NOTE/POINT 0230 02575000 * OPERATION */ 02576000 * 4 IOBSPAN BIT(1), /* THE RECORD CURRENTLY BEING 0230 02577000 * PROCESSED HAS MORE THAN ONE 02578000 * SEGMENT (QSAM LOCATE MODE, 0230 02579000 * LOGICAL RECORD INTERFACE, 0230 02580000 * UPDAT PROCESSING OF SPANNED 02581000 * RECORDS) */ 02582000 * 4 IOBUPERR BIT(1), /* UPDATE CHANNEL PROGRAM HAS 0230 02583000 * BEEN SPLIT INTO TWO PARTS 0230 02584000 * MDC036*/ 02585000 * 4 IOBFIRST BIT(1), /* THIS IS THE FIRST IOB ON 0230 02586000 * CHAIN */ 02587000 * 3 IOBNIOBB PTR(24), /* SAME AS IOBNIOBA ABOVE */ 02588000 * 2 IOBNECB FIXED(31); /* EVENT CONTROL BLOCK USED BY 02589000 * QSAM TO INDICATE THE STATUS 02590000 * OF THE I/O EVENT */ 02591000 * 0230 02592000 * /* **************************************** */ 02593000 * /* BDAM PREFIX *** 8 BYTES */ 02594000 * /* **************************************** */ 02595000 * 0231 02596000 * DECLARE 1 IOBORG02 0231 02597000 * DEF(IOBPREFX) POS(9) BDY(WORD), 0231 02598000 * 2 IOBDQADA PTR(31), /* ADDRESS OF THE OTHER IOB 0231 02599000 * REFERRED TO IN DESCRIPTION 0231 02600000 * OF IOBDEQ BELOW */ 02601000 * 3 IOBDEQIN CHAR(1), /* DEQUEUE LOOP INDICATOR */ 02602000 * 4 IOBDEQ BIT(1), /* THIS IOB IS USING A TRACK 0231 02603000 * THAT WAS DEQUEUED BY ANOTHER 02604000 * IOB WHICH IS NOW WAITING TO 02605000 * DEQUEUE ANOTHER TRACK. THE 02606000 * OTHER IOB ENQUEUED ON TWO OR 02607000 * MORE TRACKS TO FIND SPACE IN 02608000 * WHICH TO WRITE/ADD A SPANNED 02609000 * RECORD. THE OTHER IOB 0231 02610000 * REMAINED ENQUEUED UNTIL IT 0231 02611000 * EITHER WROTE THE RECORD OR 0231 02612000 * DETERMINED THAT THERE WAS 0231 02613000 * ENOUGH CONTIGUOUS FREE SPACE 02614000 * ON THE TRACKS TO CONTAIN THE 02615000 * RECORD. AFTER THE OTHER IOB 02616000 * DEQUEUED THE CURRENT TRACK, 02617000 * THE DEQUEUEING WAS INTERRUPTED 02618000 * BY THE NEED OF THIS IOB FOR 02619000 * THE CURRENT TRACK. */ 02620000 * 4 IOBRSV07 BIT(1), /* RESERVED */ 02621000 * 4 IOBRSV08 BIT(1), /* RESERVED */ 02622000 * 4 IOBRSV09 BIT(1), /* RESERVED */ 02623000 * 4 IOBRSV10 BIT(1), /* RESERVED */ 02624000 * 4 IOBRSV11 BIT(1), /* RESERVED */ 02625000 * 4 IOBRSV12 BIT(1), /* RESERVED */ 02626000 * 4 IOBRSV13 BIT(1), /* RESERVED */ 02627000 * 3 IOBDQADB PTR(24), /* SAME AS IOBDQADA ABOVE */ 02628000 * 2 IOBSWAP PTR(31); /* ADDRESS OF THE SEGMENT WORK 02629000 * AREA USED BY THIS IOB TO READ 02630000 * OR WRITE A RECORD OF A FORMAT 02631000 * VS DATA SET */ 02632000 * 0231 02633000 * /* **************************************** */ 02634000 * /* GAM,QISAM PREFIX *** 4 BYTES */ 02635000 * /* **************************************** */ 02636000 * 0232 02637000 * DECLARE 1 IOBORG03 0232 02638000 * DEF(IOBPREFX) POS(13) BDY(WORD), 0232 02639000 * 2 IOBGQECB FIXED(31); /* EVENT CONTROL BLOCK THAT IS 02640000 * WITHIN FIRST IOB ONLY (GAM) 02641000 * EVENT CONTROL BLOCK USED TO 02642000 * INDICATE STATUS OF AN I/O 0232 02643000 * EVENT (QISAM) */ 02644000 * 0232 02645000 * /* *************************************************************** */ 02646000 * /* */ 02647000 * /* STANDARD SECTION OF THE IOB */ 02648000 * /* */ 02649000 * /* *************************************************************** */ 02650000 * 0233 02651000 * DECLARE 0233 02652000 * 1 IOBSTDRD BASED(IOBSTPTR) BDY(WORD), 0233 02653000 * 2 IOBFLAG1 CHAR(1), /* FLAG BYTE 1 */ 02654000 * 3 IOBDATCH BIT(1), /* DATA CHAINING USED IN CHANNEL 02655000 * PROGRAM */ 02656000 * 3 IOBCMDCH BIT(1), /* COMMAND CHAINING USED IN 0233 02657000 * CHANNEL PROGRAM */ 02658000 * 3 IOBERRTN BIT(1), /* ERROR ROUTINE IS IN CONTROL */ 02659000 * 3 IOBRPSTN BIT(1), /* DEVICE IS TO BE REPOSITIONED */ 02660000 * 3 IOBCYCCK BIT(1), /* CYCLIC REDUNDANCY CHECK (CRC) 02661000 * NEEDED (TAPE) */ 02662000 * 4 IOBFCREX BIT(1), /* FETCH COMMAND RETRY EXIT 0233 02663000 * (DIRECT ACCESS) */ 02664000 * 3 IOBIOERR BIT(1), /* EXCEPTIONAL CONDITION. AFTER 02665000 * THE ERROR ROUTINE RETURNS AND 02666000 * THIS BIT IS ON, THE ERROR IS 02667000 * CONSIDERED PERMANENT. */ 02668000 * 3 IOBUNREL BIT(1), /* IOB UNRELATED FLAG (I.E., 0233 02669000 * NONSEQUENTIAL) */ 02670000 * 3 IOBRSTRT BIT(1), /* IF 1, RESTART ADDRESS IN IOB 02671000 * TO BE USED. IF 0, START. 0233 02672000 * (OS/VS1) MDC034*/ 02673000 * 4 IOBSPSVC BIT(1), /* FOR SAM/PAM, SET BY SVC IF 0233 02674000 * I/O APPENDAGE SHOULD NOT 0233 02675000 * PROCESS INTERRUPT (OS/VS2) 0233 02676000 * MDC035*/ 02677000 * 2 IOBFLAG2 CHAR(1), /* FLAG BYTE 2 */ 02678000 * 3 IOBHALT BIT(1), /* HALT I/O HAS BEEN ISSUED BY 02679000 * SVC PURGE ROUTINE */ 02680000 * 3 IOBSENSE BIT(1), /* SENSE WILL NOT BE PERFORMED 02681000 * UNTIL THE DEVICE IS FREE */ 02682000 * 3 IOBPURGE BIT(1), /* IOB HAS BEEN PURGED TO ALLOW 02683000 * I/O ACTIVITY TO QUIESCE. 0233 02684000 * (OS/VS1) MDC046*/ 02685000 * 4 IOBRRT3 BIT(1), /* TYPE 3 RELATED REQUEST 0233 02686000 * (OS/VS2) MDC048*/ 02687000 * 3 IOBRDHA0 BIT(1), /* HOME ADDRESS (R0) RECORD IS 02688000 * TO BE READ. SEEK COMMAND NOT 02689000 * NEEDED. (OS/VS1) MDC047*/ 02690000 * 4 IOBRRT2 BIT(1), /* TYPE 2 RELATED REQUEST 0233 02691000 * (OS/VS2) MDC049*/ 02692000 * 3 IOBALTTR BIT(1), /* NO TEST FOR OUT-OF-EXTENT. 0233 02693000 * AN ALTERNATE TRACK IS IN USE.*/ 02694000 * 3 IOBSKUPD BIT(1), /* SEEK ADDRESS IS BEING 0233 02695000 * UPDATED. CYLINDER END OR 0233 02696000 * FILE MASK VIOLATION HAS 0233 02697000 * OCCURRED. */ 02698000 * 3 IOBSTATO BIT(1), /* DEVICE END STATUS HAS BEEN 0233 02699000 * OR'ED WITH CHANNEL END STATUS 02700000 * (GRAPHICS DEVICE) */ 02701000 * 3 IOBPNCH BIT(1), /* ERROR RECOVERY IN CONTROL FOR 02702000 * A 2540 CARD PUNCH WITH THREE 02703000 * BUFFERS. (QSAM) 0233 02704000 * RESETPL MACRO INSTRUCTION WAS 02705000 * USED. (BTAM) */ 02706000 * 2 IOBSENS0 CHAR(1), /* FIRST SENSE BYTE */ 02707000 * 3 IOBS0B0 BIT(1), /* BIT 0 (DEVICE DEPENDENT) */ 02708000 * 3 IOBS0B1 BIT(1), /* BIT 1 (DEVICE DEPENDENT) */ 02709000 * 3 IOBS0B2 BIT(1), /* BIT 2 (DEVICE DEPENDENT) */ 02710000 * 3 IOBS0B3 BIT(1), /* BIT 3 (DEVICE DEPENDENT) */ 02711000 * 3 IOBS0B4 BIT(1), /* BIT 4 (DEVICE DEPENDENT) */ 02712000 * 3 IOBS0B5 BIT(1), /* BIT 5 (DEVICE DEPENDENT) */ 02713000 * 3 IOBS0B6 BIT(1), /* BIT 6 (DEVICE DEPENDENT) */ 02714000 * 3 IOBS0B7 BIT(1), /* BIT 7 (DEVICE DEPENDENT) */ 02715000 * 4 IOBSNSC9 BIT(1), /* CHANNEL 9 SENSED IN 0233 02716000 * CARRIAGE TAPE */ 02717000 * 2 IOBSENS1 CHAR(1), /* SECOND SENSE BYTE */ 02718000 * 3 IOBS1B0 BIT(1), /* BIT 0 (DEVICE DEPENDENT) */ 02719000 * 3 IOBS1B1 BIT(1), /* BIT 1 (DEVICE DEPENDENT) */ 02720000 * 3 IOBS1B2 BIT(1), /* BIT 2 (DEVICE DEPENDENT) */ 02721000 * 3 IOBS1B3 BIT(1), /* BIT 3 (DEVICE DEPENDENT) */ 02722000 * 3 IOBS1B4 BIT(1), /* BIT 4 (DEVICE DEPENDENT) */ 02723000 * 3 IOBS1B5 BIT(1), /* BIT 5 (DEVICE DEPENDENT) */ 02724000 * 3 IOBS1B6 BIT(1), /* BIT 6 (DEVICE DEPENDENT) */ 02725000 * 3 IOBS1B7 BIT(1), /* BIT 7 (DEVICE DEPENDENT) */ 02726000 * 2 IOBECBPT PTR(31), /* ADDRESS OF ECB TO BE POSTED 02727000 * ON I/O COMPLETION */ 02728000 * 3 IOBECBCC CHAR(1), /* COMPLETION CODE FOR AN I/O 0233 02729000 * REQUEST. THIS CODE WILL 0233 02730000 * APPEAR IN THE FIRST BYTE OF 02731000 * AN ECB. */ 02732000 * 3 IOBECBPB PTR(24), /* ADDRESS OF THE ECB TO BE 0233 02733000 * POSTED UPON THE COMPLETION OF 02734000 * AN I/O EVENT. FOR BSAM/BPAM, 02735000 * ECB IS IN THE DECB. FOR 0233 02736000 * QSAM, ECB IS IN THE QSAM 0233 02737000 * PREFIX OF THE IOB. */ 02738000 * 2 IOBFLAG3 CHAR(1), /* I/O SUPERVISOR ERROR ROUTINE 02739000 * FLAG BYTE (DEVICE DEPENDENT) */ 02740000 * 3 IOBFL3 BIT(8), /* FLAG 3 - STATUS ERROR COUNTS 02741000 * FOR MAGNETIC DOCUMENT READER 02742000 * (3890) OR FLAGS FOR 3800 0233 02743000 * (OS/VS1) (MDC307) @X50AD9A*/ 02744000 * 4 IOBCCC BIT(1), /* CHANNEL CONTROL CHECK ERROR 02745000 * COUNT (3890) MDC038*/ 02746000 * 4 IOBICC BIT(1), /* INTERFACE CONTROL CHECK ERROR 02747000 * COUNT (3890) MDC039*/ 02748000 * 4 IOBCDC BIT(1), /* CHANNEL DATA CHECK ERROR 0233 02749000 * (3890) MDC040*/ 02750000 * 4 IOBACU BIT(1), /* ATTENTION/CONTROL UNIT ERROR 02751000 * (3890) MDC041*/ 02752000 * 4 IOBCNC BIT(1), /* CHAIN CHECK ERROR (3890) 0233 02753000 * MDC042*/ 02754000 * 5 IOBSDR BIT(1), /* STATISTICS ONLY FLAG (3800) 02755000 * (MDC306) @X50AD9A*/ 02756000 * 4 IOBMSG BIT(1), /* MESSAGE FLAG (3890 OR 3800) 02757000 * (MDC308) @X50AD9A*/ 02758000 * 4 IOBICL BIT(1), /* INCORRECT LENGTH ERROR (3890) 02759000 * MDC020*/ 02760000 * 5 IOBJAM BIT(1), /* SET ON WHEN JES SUBSYSTEM HAS 02761000 * DETECTED A PAPER JAM SO 3800 02762000 * ERP WILL SUPPRESS ITS 0233 02763000 * INTERVENTION REQUIRED MESSAGE 02764000 * (3800) (MDC330) @X50AD9A*/ 02765000 * 4 IOBLOG BIT(1), /* LOG OUT FLAG (3890 OR 3800) 02766000 * (MDC309) @X50AD9A*/ 02767000 * 2 IOBCSW CHAR(7) BDY(WORD,2), /* LOW-ORDER SEVEN BYTES OF THE 02768000 * LAST CSW THAT REFLECTS THE 0233 02769000 * STATUS FOR THIS REQUEST */ 02770000 * 3 IOBIOCSW CHAR(5) BDY(WORD,2),/* LOW-ORDER BYTES OF CSW FOR 0233 02771000 * MAGNETIC DOCUMENT READER 0233 02772000 * (3890) (OS/VS1) MDC022*/ 02773000 * 4 IOBCMDA PTR(24) BDY(WORD,2),/* COMMAND ADDRESS (3890)MDC023*/ 02774000 * 4 IOBSTBYT BIT(16), /* STATUS BITS 32-47 (3890) 0233 02775000 * MDC024*/ 02776000 * 5 IOBUSTAT BIT(8), /* CSW UNIT STATUS FLAGS (3800) 02777000 * (MDC311) @Z40MP9A*/ 02778000 * 6 IOBUSB0 BIT(1), /* ATTENTION (MDC312) @Z40MP9A*/ 02779000 * 6 IOBUSB1 BIT(1), /* STATUS MODIFIER 0233 02780000 * (MDC313) @Z40MP9A*/ 02781000 * 6 IOBUSB2 BIT(1), /* CONTROL UNIT END 0233 02782000 * (MDC314) @Z40MP9A*/ 02783000 * 6 IOBUSB3 BIT(1), /* BUSY (MDC315) @Z40MP9A*/ 02784000 * 6 IOBUSB4 BIT(1), /* CHANNEL END (MDC316) @Z40MP9A*/ 02785000 * 6 IOBUSB5 BIT(1), /* DEVICE END (MDC317) @Z40MP9A*/ 02786000 * 6 IOBUSB6 BIT(1), /* UNIT CHECK (MDC318) @Z40MP9A*/ 02787000 * 6 IOBUSB7 BIT(1), /* UNIT EXCEPTION 0233 02788000 * (MDC319) @Z40MP9A*/ 02789000 * 5 IOBCSTAT BIT(8), /* CSW CHANNEL STATUS FLAGS 0233 02790000 * (3800) (MDC320) @Z40MP9A*/ 02791000 * 6 IOBCSB0 BIT(1), /* PROGRAM CONTROL INTERRUPT 0233 02792000 * (MDC321) @Z40MP9A*/ 02793000 * 6 IOBCSB1 BIT(1), /* INCORRECT LENGTH 0233 02794000 * (MDC322) @Z40MP9A*/ 02795000 * 6 IOBCSB2 BIT(1), /* PROGRAM CHECK 0233 02796000 * (MDC323) @Z40MP9A*/ 02797000 * 6 IOBCSB3 BIT(1), /* PROTECTION CHECK 0233 02798000 * (MDC324) @Z40MP9A*/ 02799000 * 6 IOBCSB4 BIT(1), /* CHANNEL DATA CHECK 0233 02800000 * (MDC325) @Z40MP9A*/ 02801000 * 6 IOBCSB5 BIT(1), /* CHANNEL CONTROL CHECK 0233 02802000 * (MDC326) @Z40MP9A*/ 02803000 * 6 IOBCSB6 BIT(1), /* INTERFACE CONTROL CHECK 0233 02804000 * (MDC327) @Z40MP9A*/ 02805000 * 6 IOBCSB7 BIT(1), /* CHAINING CHECK 0233 02806000 * (MDC328) @Z40MP9A*/ 02807000 * 2 IOBSTART PTR(31), /* ADDRESS OF CHANNEL PROGRAM 0233 02808000 * TO BE EXECUTED */ 02809000 * 3 IOBSIOCC CHAR(1), /* SIO CODE. BITS 2 AND 3 0233 02810000 * CONTAIN CONDITION CODE 0233 02811000 * RETURNED AFTER EXECUTION OF 02812000 * SIO INSTRUCTION FOR THIS I/O 02813000 * EVENT. */ 02814000 * 3 IOBSTRTB PTR(24), /* ADDRESS OF CHANNEL PROGRAM 0233 02815000 * TO BE EXECUTED */ 02816000 * 2 IOBDCBPT PTR(31), /* ADDRESS OF DCB ASSOCIATED 0233 02817000 * WITH THIS IOB */ 02818000 * 3 IOBFLAG4 BIT(8), /* FLAG BYTE MDC011*/ 02819000 * 4 IOBGDPOL BIT(1), /* RE-ENTER SIO APPENDAGE FOR 0233 02820000 * OLTEP GUARANTEED DEVICE PATH 02821000 * MDC012*/ 02822000 * 4 IOBCC3WE BIT(1), /* USER REQUESTS THAT IOS POST A 02823000 * X'6D' FOR A CONDITION CODE 3 02824000 * ON ATTEMPTED I/O OPERATIONS 02825000 * (OS/VS2) (MDC310) @Z309P9A*/ 02826000 * 4 IOBPMERR BIT(1), /* VTAM SETS THIS BIT ON TO 0233 02827000 * INDICATE TO IOS THAT VTAM 0233 02828000 * SHOULD BE POSTED WITH A 0233 02829000 * PERMANENT I/O ERROR BECAUSE 02830000 * ALL ALTERNATE PATHS TO THE 0233 02831000 * 3705 HAVE BEEN TRIED 0233 02832000 * (OS/VS1) (MDC329) @X04BH9A*/ 02833000 * 4 IOBRSV40 BIT(1), /* RESERVED */ 02834000 * 4 IOBRSV41 BIT(1), /* RESERVED */ 02835000 * 4 IOBRSV42 BIT(1), /* RESERVED */ 02836000 * 4 IOBJES3I BIT(1), /* JES3 INTERVENTION REQUIRED 0233 02837000 * NOTIFICATION. SETTING THIS 02838000 * BIT WILL RESULT IN TURNING ON 02839000 * BIT IOSPGDPX IN THE IOSB. 0233 02840000 * (OS/VS2) (MDC305) @Y02BP9A*/ 02841000 * 4 IOBRSV44 BIT(1), /* RESERVED */ 02842000 * 3 IOBDCBPB PTR(24), /* ADDRESS OF DCB ASSOCIATED 0233 02843000 * WITH THIS IOB */ 02844000 * 2 IOBRESTR PTR(31), /* AFTER SVC 16 (PURGE) - 0233 02845000 * QUIESCE - ADDRESS OF THE NEXT 02846000 * IOB IN THE PURGE CHAIN. 0233 02847000 * (LAST IOB IN THE CHAIN, BYTE 02848000 * 4 IS FF.) 0233 02849000 * DURING I/O SUPERVISOR WRITE- 02850000 * TO-OPERATOR ROUTINE CONTROL - 02851000 * CCHH PART OF THE ADDRESS OF A 02852000 * DEFECTIVE TRACK. 0233 02853000 * DURING I/O ERROR CORRECTION 02854000 * (MEANINGFUL ONLY IF BIT 3 IN 02855000 * THE IOBFLAG1 FIELD IS ON) - 02856000 * ADDRESS OF THE CHANNEL 0233 02857000 * PROGRAM USED TO CORRECT AN 0233 02858000 * ERROR CONDITION. 0233 02859000 * AFTER I/O ERROR CORRECTION - 02860000 * IF A CHANNEL PROGRAM IS 0233 02861000 * RESTARTED THROUGH A CCW OTHER 02862000 * THAN THE ONE POINTED TO BY 0233 02863000 * THE IOBSTART FIELD, ITS 0233 02864000 * ADDRESS IS HERE. */ 02865000 * 3 IOBREPOS CHAR(1), /* DURING I/O ERROR CORRECTION 02866000 * (MEANINGFUL ONLY IF BIT 3 IN 02867000 * THE IOBFLAG1 FIELD IS ON) FOR 02868000 * MAGNETIC TAPE ONLY - THE 0233 02869000 * CONTROL COMMAND (BSR, FSR, 0233 02870000 * ERG) REQUIRED TO REPOSITION 02871000 * OVER A BLOCK. */ 02872000 * 3 IOBRSTRB PTR(24), /* SAME AS IOBRESTR ABOVE */ 02873000 * 2 IOBINCAM FIXED(15) BDY(WORD), /* QSAM, BSAM, EXCP ACCESS 0233 02874000 * METHOD -- NORMAL SCHEDULING - 02875000 * VALUE USED TO INCREMENT BLOCK 02876000 * COUNT FIELD IN DCB FOR 0233 02877000 * MAGNETIC TAPE. CHAINED 0233 02878000 * SCHEDULING - ZEROS. 0233 02879000 * QSAM, BSAM -- OPERATION CODE 02880000 * OF WRITE CCW WHEN A USASI 0233 02881000 * CONTROL CHARACTER AND NO DATA 02882000 * IS TO BE WRITTEN (PRINTER AND 02883000 * CARD PUNCH ONLY) */ 02884000 * 3 IOBBTAMF CHAR(1), /* FLAG BYTE FOR BTAM */ 02885000 * 4 IOBPRMER BIT(1), /* SAD OR ENABLE ISSUED BY OPEN 02886000 * RESULTED IN A PERMANENT I/O 02887000 * ERROR */ 02888000 * 4 IOBINUSE BIT(1), /* THIS IOB IS CURRENTLY IN USE 02889000 * BY AN I/O OPERATION */ 02890000 * 4 IOBRSV14 BIT(1), /* RESERVED */ 02891000 * 4 IOBRSV15 BIT(1), /* RESERVED */ 02892000 * 4 IOBRSV16 BIT(1), /* RESERVED */ 02893000 * 4 IOBRSV17 BIT(1), /* RESERVED */ 02894000 * 4 IOBRFTMG BIT(1), /* A REQUEST-FOR-TEST MESSAGE 0233 02895000 * RECEIVED FROM A REMOTE 3270 02896000 * DISPLAY STATION ICB478*/ 02897000 * 4 IOBOLTST BIT(1), /* LINE IS UNDER ON-LINE TEST 0233 02898000 * OPERATION */ 02899000 * 3 IOBRSV19 CHAR(1), /* RESERVED */ 02900000 * 2 IOBERRCT FIXED(15); /* USED BY I/O SUPERVISOR ERROR 02901000 * ROUTINES TO COUNT TEMPORARY 02902000 * ERRORS DURING RETRY */ 02903000 * 0233 02904000 * 0233 02905000 * DECLARE 1 IOBORG04 0234 02906000 * DEF(IOBINCAM) BDY(WORD), 0234 02907000 * 2 IOBCRDCC CHAR(1), /* DATA CHECK ERROR COUNT 0234 02908000 * (OPTICAL READER) */ 02909000 * 2 IOBCRILC CHAR(1); /* INCORRECT LENGTH ERROR COUNT 02910000 * (OPTICAL READER) */ 02911000 * 0234 02912000 * 0234 02913000 * DECLARE 1 IOBORG12 0235 02914000 * DEF(IOBINCAM) BDY(WORD), 0235 02915000 * 2 IOBFL4 BIT(8), /* FLAG 4 - SENSE ERROR COUNTS 02916000 * FOR MAGNETIC DOCUMENT READER 02917000 * (3890) (OS/VS1) MDC025*/ 02918000 * 3 IOBOVR BIT(1), /* OVERRUN ERROR MDC026*/ 02919000 * 3 IOBREJ BIT(1), /* COMMAND REJECT ERROR MDC027*/ 02920000 * 3 IOBDCK BIT(1), /* DATA CHECK ERROR MDC028*/ 02921000 * 3 IOBBUS BIT(1), /* BUS-OUT ERROR MDC029*/ 02922000 * 3 IOBEQP BIT(1), /* EQUIPMENT CHECK ERROR MDC030*/ 02923000 * 3 IOBENT BIT(1), /* FIRST TIME ENTRY SWITCH 0235 02924000 * MDC045*/ 02925000 * 3 IOBRSV47 BIT(1), /* RESERVED FOR 3890 MDC044*/ 02926000 * 3 IOBRSV46 BIT(1); /* RESERVED FOR 3890 MDC033*/ 02927000 * 0235 02928000 * 0235 02929000 * /* *************************************************************** */ 02930000 * /* */ 02931000 * /* EXTENSION SECTIONS OF THE IOB */ 02932000 * /* */ 02933000 * /* *************************************************************** */ 02934000 * 0236 02935000 * /* **************************************** */ 02936000 * /* DIRECT ACCESS EXTENSION *** 8 BYTES */ 02937000 * /* **************************************** */ 02938000 * 0236 02939000 * DECLARE 0236 02940000 * 1 IOBEXTEN DEF(IOBSTDRD) POS(33) BDY(WORD), 0236 02941000 * 2 IOBSEEK CHAR(8) BDY(WORD), /* A SEEK ADDRESS (IN THE FORMAT 02942000 * MBBCCHHR) USED WITH A CHANNEL 02943000 * PROGRAM */ 02944000 * 3 IOBM CHAR(1), /* THE NUMBER OF THE DEB EXTENT 02945000 * TO BE USED FOR THIS REQUEST. 02946000 * THE FIRST EXTENT IS NUMBER 0236 02947000 * ZERO. */ 02948000 * 3 IOBBB CHAR(2), /* BIN NUMBER(DATA CELL) */ 02949000 * 4 IOBBB1 CHAR(1), 0236 02950000 * 4 IOBBB2 CHAR(1), 0236 02951000 * 3 IOBCC CHAR(2), /* CYLINDER NUMBER */ 02952000 * 4 IOBCC1 CHAR(1), 0236 02953000 * 4 IOBCC2 CHAR(1), 0236 02954000 * 3 IOBHH CHAR(2), /* TRACK NUMBER */ 02955000 * 4 IOBHH1 CHAR(1), 0236 02956000 * 4 IOBHH2 CHAR(1), 0236 02957000 * 3 IOBR CHAR(1); /* RECORD NUMBER */ 02958000 * 0236 02959000 * /* **************************************** */ 02960000 * /* BTAM EXTENSION *** 40 BYTES + */ 02961000 * /* CHANNEL PROGRAM */ 02962000 * /* **************************************** */ 02963000 * 0237 02964000 * DECLARE 1 IOBORG05 0237 02965000 * DEF(IOBEXTEN) BDY(WORD), 0237 02966000 * 2 IOBUCBX CHAR(1), /* UCB INDEX. THE LINE NUMBER 02967000 * IS USED AS AN INDEX TO LOCATE 02968000 * THE PROPER UCB ADDRESS IN THE 02969000 * DEB. */ 02970000 * 2 IOBWORK CHAR(5), /* WORK AREA USED BY ERROR 0237 02971000 * ROUTINES AND ON-LINE TERMINAL 02972000 * TEST ROUTINES */ 02973000 * 2 IOBRCVPT CHAR(1), /* RECEIVED ACK (ACK-0 OR ACK-1)*/ 02974000 * 2 IOBSNDPT CHAR(1), /* SENT ACK (ACK-0 OR ACK-1) */ 02975000 * 2 IOBERCCW CHAR(8) BDY(WORD), /* CCW AREA USED BY THE BTAM 0237 02976000 * ERROR RECOVERY ROUTINES */ 02977000 * 2 IOBERINF CHAR(16) BDY(WORD), /* ERROR INFORMATION FIELD USED 02978000 * BY THE BTAM ERROR RECOVERY 0237 02979000 * ROUTINES */ 02980000 * 2 IOBCPA CHAR(8) BDY(WORD); /* CHANNEL PROGRAMS AREA. THE 02981000 * LENGTH DEPENDS ON THE 0237 02982000 * TERMINAL AND THE OPTIONS. */ 02983000 * 0237 02984000 * /* **************************************** */ 02985000 * /* GAM EXTENSION *** 40 BYTES */ 02986000 * /* **************************************** */ 02987000 * 0238 02988000 * DECLARE 1 IOBORG06 0238 02989000 * DEF(IOBEXTEN) BDY(WORD), 0238 02990000 * 3 IOBUCBXG CHAR(1), /* UCB INDEX */ 02991000 * 3 IOBRSV37 CHAR(3), /* RESERVED */ 02992000 * 3 IOBNXTPT PTR(31), /* ADDRESS OF NEXT AVAILABLE 0238 02993000 * IOB. SET TO ZERO IF THIS IS 02994000 * LAST IOB. */ 02995000 * 4 IOBSTATA CHAR(1), /* STATUS INDICATORS */ 02996000 * 5 IOBAVLFL BIT(1), /* IF 0, IOB IS AVAILABLE. 0238 02997000 * IF 1, IOB IS NOT AVAILABLE */ 02998000 * 5 IOBRSV20 BIT(1), /* RESERVED */ 02999000 * 5 IOBRSV21 BIT(1), /* RESERVED */ 03000000 * 5 IOBRSV22 BIT(1), /* RESERVED */ 03001000 * 5 IOBRSV23 BIT(1), /* RESERVED */ 03002000 * 5 IOBRSV24 BIT(1), /* RESERVED */ 03003000 * 5 IOBRSV25 BIT(1), /* RESERVED */ 03004000 * 5 IOBRSV26 BIT(1), /* RESERVED */ 03005000 * 4 IOBNXTPB PTR(24), /* SAME AS IOBNXTPT ABOVE */ 03006000 * 3 IOBCCW CHAR(32) BDY(WORD); /* LIST OF CHANNEL COMMAND WORDS 03007000 * TO TRANSFER DATA */ 03008000 * 0238 03009000 * /* **************************************** */ 03010000 * /* QISAM EXTENSION *** 2 BYTES */ 03011000 * /* **************************************** */ 03012000 * 0239 03013000 * DECLARE 1 IOBORG07 0239 03014000 * DEF(IOBEXTEN) POS(9) BDY(WORD), 0239 03015000 * 2 W1IEXTEN CHAR(2), /* APPENDAGE CODES FOR BOTH 0239 03016000 * NORMAL AND ABNORMAL CHANNEL 03017000 * END CONDITIONS */ 03018000 * 3 W1OEXTEN CHAR(2); /* SAME AS W1IEXTEN ABOVE */ 03019000 * 0239 03020000 * /* **************************************** */ 03021000 * /* BISAM EXTENSION *** 16 BYTES */ 03022000 * /* **************************************** */ 03023000 * 0240 03024000 * DECLARE 1 IOBORG08 0240 03025000 * DEF(IOBEXTEN) POS(9) BDY(WORD), 0240 03026000 * 2 IOBCCWAD PTR(31), /* FOR FIXED LENGTH RECORDS, 0240 03027000 * ADDRESS OF FIRST CCW OF 0240 03028000 * CHANNEL PROGRAM. 0240 03029000 * FOR VARIABLE LENGTH RECORDS, 03030000 * ADDRESS OF BUFFER, IF DYNAMIC 03031000 * BUFFERING SPECIFIED, AFTER 0240 03032000 * COMPLETION OF READ FOR UPDATE 03033000 * (READ KU) */ 03034000 * 2 IOBINDCT CHAR(1), /* INDICATORS */ 03035000 * 3 IOBDEQCP BIT(1), /* DEQUEUE CHANNEL PROGRAM FROM 03036000 * QUEUE */ 03037000 * 3 IOBUNSCH BIT(1), /* UNSCHEDULED QUEUE */ 03038000 * 3 IOBOVPTR BIT(1), /* IF 0, DECBAREA + 6 POINTS TO 03039000 * OVERFLOW RECORD DATA. 0240 03040000 * IF 1, DCBMSWA POINTS TO 0240 03041000 * OVERFLOW RECORD KEY FOLLOWED 03042000 * BY DATA. */ 03043000 * 3 IOBKEYAD BIT(1), /* IF 0, DECBKEY POINTS TO 0240 03044000 * OVERFLOW RECORD KEY. 0240 03045000 * IF 1, DCBMSWA + 8 POINTS TO 03046000 * OVERFLOW RECORD KEY. */ 03047000 * 3 IOBRSV27 BIT(1), /* RESERVED */ 03048000 * 3 IOBRSV28 BIT(1), /* RESERVED */ 03049000 * 3 IOBRSV29 BIT(1), /* RESERVED */ 03050000 * 3 IOBCHNNL BIT(1), /* IF 0, NORMAL CHANNEL END HAS 03051000 * OCCURRED. 0240 03052000 * IF 1, ABNORMAL CHANNEL END 0240 03053000 * HAS OCCURRED. */ 03054000 * 2 IOBUNSQR CHAR(1), /* REASON FOR UNSCHEDULED QUEUE */ 03055000 * 3 IOBCPBSY BIT(1), /* CHANNEL PROGRAM CP1 OR CP2 0240 03056000 * BUSY */ 03057000 * 3 IOBNTAV1 BIT(1), /* NO CP4, CP5 OR CP6 AVAILABLE */ 03058000 * 3 IOBNTAV2 BIT(1), /* NO CP7 AVAILABLE */ 03059000 * 3 IOBKNWR BIT(1), /* WRITE KN IS IN EFFECT 0240 03060000 * (UNSCHEDULED IOB IS FOR 0240 03061000 * WRITE KN) */ 03062000 * 3 IOBKNRWR BIT(1), /* WRITE KN IS IN EFFECT 0240 03063000 * (UNSCHEDULED IOB IS FOR 0240 03064000 * READ OR WRITE KN) */ 03065000 * 3 IOBRSV30 BIT(1), /* RESERVED */ 03066000 * 3 IOBRSV31 BIT(1), /* RESERVED */ 03067000 * 3 IOBRSV32 BIT(1), /* RESERVED */ 03068000 * 2 IOBAPP CHAR(1), /* APPENDAGE CODE */ 03069000 * 2 IOBASYN CHAR(1), /* ASYNCHRONOUS ROUTINE CODE */ 03070000 * 2 IOBFCHAD PTR(31), /* FORWARD CHAIN ADDRESS */ 03071000 * 3 IOBCOUNT CHAR(1), /* WRITE CHECK COUNTER */ 03072000 * 3 IOBFCHNB PTR(24), /* FORWARD CHAIN ADDRESS */ 03073000 * 2 IOBBCHAD PTR(31); /* BACKWARD CHAIN ADDRESS */ 03074000 * 0240 03075000 * /* **************************************** */ 03076000 * /* BDAM EXTENSION *** 40 BYTES + */ 03077000 * /* CHANNEL PROGRAM */ 03078000 * /* **************************************** */ 03079000 * 0241 03080000 * DECLARE 1 IOBORG09 0241 03081000 * DEF(IOBEXTEN) POS(9) BDY(WORD), 0241 03082000 * 2 IOBDBYTR FIXED(15), /* NUMBER OF UNUSED BYTES 0241 03083000 * REMAINING ON THE TRACK */ 03084000 * 2 IOBDIOBS FIXED(15), /* OVERALL SIZE OF THE IOB */ 03085000 * 2 IOBDPLAD PTR(31), /* ADDRESS OF THE NEXT IOB IN 0241 03086000 * THE POOL OF IOB'S */ 03087000 * 3 IOBDAYLI CHAR(1), /* ALL BITS SET TO ZERO INDICATE 03088000 * THE AVAILABILITY OF THIS IOB */ 03089000 * 3 IOBDPLB PTR(24), /* ADDRESS OF THE NEXT IOB IN 0241 03090000 * THE POOL OF IOB'S */ 03091000 * 2 IOBDTYPE CHAR(1), /* THE TYPE OF REQUEST AND 0241 03092000 * SPECIFIED OPTIONS */ 03093000 * 3 IOBVERFY BIT(1), /* VERIFY */ 03094000 * 3 IOBOVFLO BIT(1), /* OVERFLOW */ 03095000 * 3 IOBEXTSC BIT(1), /* EXTENDED SEARCH */ 03096000 * 3 IOBFDBCK BIT(1), /* FEEDBACK */ 03097000 * 3 IOBACTAD BIT(1), /* ACTUAL ADDRESSING */ 03098000 * 3 IOBDYNBF BIT(1), /* DYNAMIC BUFFERING */ 03099000 * 3 IOBRDEXC BIT(1), /* READ EXCLUSIVE */ 03100000 * 3 IOBRELBL BIT(1), /* RELATIVE BLOCK ADDRESSING */ 03101000 * 2 IOBDTYP2 CHAR(1), /* SECOND BYTE OF OPTIONS AND 0241 03102000 * REQUESTS */ 03103000 * 3 IOBSKEY BIT(1), /* KEY ADDRESS CODED AS 'S' */ 03104000 * 3 IOBSBLKL BIT(1), /* BLOCK LENGTH CODED AS 'S' */ 03105000 * 3 IOBSUFFX BIT(2), /* IF BITS 2 AND 3 ARE ONE, RU 03106000 * IS SUFFIXED TO THE TYPE, 0241 03107000 * INDICATING THAT THE FEEDBACK 03108000 * ADDRESS IN DECNXADR CAN BE 0241 03109000 * THE ADDRESS OF EITHER THE 0241 03110000 * NEXT DATA RECORD OR THE NEXT 03111000 * CAPACITY RECORD, WHICHEVER 0241 03112000 * OCCURS FIRST. 0241 03113000 * IF BIT 2 IS ZERO AND BIT 3 IS 03114000 * ONE, R IS SUFFIXED TO THE 0241 03115000 * TYPE, INDICATING THAT THE 0241 03116000 * FEEDBACK ADDRESS IN DECNXADR 03117000 * IS THE ADDRESS OF THE NEXT 0241 03118000 * DATA RECORD. */ 03119000 * 3 IOBRQUST BIT(1), /* IF 1, READ REQUEST. 0241 03120000 * IF 0, WRITE REQUEST. */ 03121000 * 3 IOBTYPE BIT(1), /* IF 1, KEY TYPE. 0241 03122000 * IF 0, ID TYPE. */ 03123000 * 3 IOBADDTY BIT(1), /* ADD TYPE */ 03124000 * 3 IOBRELEX BIT(1), /* RELEX MACRO ISSUED */ 03125000 * 2 IOBDSTAT CHAR(2), /* STATUS OF THE I/O REQUEST */ 03126000 * 3 IOBSTAT1 CHAR(1), /* FLAG BYTE */ 03127000 * 4 IOBABNRM BIT(1), /* ABNORMAL COMPLETION */ 03128000 * 4 IOBNEWVL BIT(1), /* ON EXTENDED SEARCH, THE NEXT 03129000 * EXTENT IS ON A NEW VOLUME. 0241 03130000 * THE ASI ROUTINE MUST ISSUE THE 03131000 * EXCP MACRO. THE END-OF-EXTENT 03132000 * APPENDAGE CANNOT. */ 03133000 * 4 IOBSYNCH BIT(1), /* MODULE WAS ENTERED VIA 0241 03134000 * SYNCH MDC037*/ 03135000 * 4 IOBPASS2 BIT(1), /* ON EXTENDED SEARCH, INDICATES 03136000 * TO THE RELATIVE BLOCK 0241 03137000 * CONVERSION ROUTINE THAT THE 03138000 * SECOND PASS OF A TWO-PASS 0241 03139000 * CONVERSION ROUTINE HAS 0241 03140000 * COMPLETED */ 03141000 * 4 IOBENQUE BIT(1), /* FOR EXCLUSIVE CONTROL 0241 03142000 * REQUEST, INDICATES THAT A 0241 03143000 * RECORD HAS BEEN ENQUEUED */ 03144000 * 4 IOBBUFF BIT(1), /* A BUFFER HAS BEEN ASSIGNED 0241 03145000 * TO THIS IOB */ 03146000 * 4 IOBADDVU BIT(1), /* IOB BEING USED TO ADD A 0241 03147000 * VARIABLE (V) OR UNDEFINED (U) 03148000 * TYPE RECORD TO THE DATA SET */ 03149000 * 4 IOBSIORT BIT(1), /* INDICATES TO THE DYNAMIC 0241 03150000 * BUFFERING ROUTINE THAT IT 0241 03151000 * WAS ENTERED FROM, AND IS TO 03152000 * RETURN TO, THE START I/O 0241 03153000 * APPENDAGE MODULE */ 03154000 * 3 IOBSTAT2 CHAR(1), /* ERROR CODE FOR ABNORMAL 0241 03155000 * COMPLETION USED AS POST CODE 03156000 * IN ECB */ 03157000 * 2 IOBDCPND PTR(31), /* ADDRESS OF LOCATION WHERE 0241 03158000 * CHANNEL END PROGRAM SHOULD 0241 03159000 * END */ 03160000 * 2 IOBDBYTN FIXED(15), /* NUMBER OF BYTES NEEDED ON A 03161000 * TRACK TO WRITE A NEW BLOCK */ 03162000 * 2 IOBRSV34 CHAR(2), /* RESERVED */ 03163000 * 2 IOBDQPTR PTR(31), /* ADDRESS OF IOB FOR NEXT I/O 03164000 * OPERATION TO BE EXECUTED */ 03165000 * 2 IOBRSV35 CHAR(8) BDY(WORD), /* RESERVED */ 03166000 * 2 IOBDNCRF CHAR(8) BDY(WORD), /* COUNT FIELD FOR NEW BLOCK */ 03167000 * 2 IOBCHNPR CHAR(0) BDY(WORD); /* CHANNEL PROGRAM USED TO 0241 03168000 * TRANSFER DATA AS REQUESTED BY 03169000 * THE READ OR WRITE MACRO 0241 03170000 * INSTRUCTION STARTS HERE */ 03171000 * 0241 03172000 * /* **************************************** */ 03173000 * /* VSAM EXTENSION *** 24 BYTES */ 03174000 * /* **************************************** */ 03175000 * 0242 03176000 * DECLARE 1 IOBORG10 0242 03177000 * DEF(IOBEXTEN) POS(9) BDY(WORD), 0242 03178000 * 2 IOBSEEK2 CHAR(8) BDY(WORD), /* SEEK FIELD 2 ICB435*/ 03179000 * 3 IOBSK2M CHAR(1), /* EXTENT NUMBER ICB435*/ 03180000 * 3 IOBSK2BB CHAR(2), /* BIN NUMBER ICB435*/ 03181000 * 3 IOBSK2CC CHAR(2), /* CYLINDER NUMBER ICB435*/ 03182000 * 3 IOBSK2HH CHAR(2), /* HEAD NUMBER ICB435*/ 03183000 * 3 IOBSK2R CHAR(1), /* RECORD NUMBER ICB435*/ 03184000 * 2 IOBBUFC PTR(31), /* ADDRESS OF ASSOCIATED BUFFER 03185000 * CONTROL BLOCK ICB435*/ 03186000 * 2 IOBREADA PTR(31), /* ADDRESS OF FIRST READ CHANNEL 03187000 * PROGRAM SEGMENT THAT HAS NOT 03188000 * BEEN PROCESSED ICB435*/ 03189000 * 2 IOBNEXTA PTR(31), /* ADDRESS OF NEXT ACTIVE IOB 0242 03190000 * ICB435*/ 03191000 * 2 IOBRDCHP PTR(31); /* ADDRESS OF READ CHANNEL 0242 03192000 * PROGRAM ICB435*/ 03193000 * 0242 03194000 * /* **************************************** */ 03195000 * /* VTAM EXTENSION (OS/VS1 ONLY) */ 03196000 * /* *** 24 BYTES */ 03197000 * /* **************************************** */ 03198000 * 0243 03199000 * DECLARE 1 IOBORG11 0243 03200000 * DEF(IOBEXTEN) BDY(WORD), 0243 03201000 * 2 IOBERCT PTR(31), /* SAME AS IOBERCTA BELOW MDC001*/ 03202000 * 3 IOBUCBXV PTR(8), /* UCB INDEX MDC050*/ 03203000 * 4 IOBRTYPE BIT(8), /* RECORD TYPE FOR OBR MDC002*/ 03204000 * 3 IOBERCTA PTR(24), /* POINTER TO COUNTERS FOR SIO 03205000 * AND TEMPORARY ERRORS MDC003*/ 03206000 * 2 IOBNAME PTR(31), /* SAME AS IOBNAMEA BELOW MDC004*/ 03207000 * 3 IOBNAMSZ BIT(8), /* SIZE OF TERMINAL NAME MDC005*/ 03208000 * 3 IOBNAMEA PTR(24), /* POINTER TO TERMINAL NAME 0243 03209000 * MDC006*/ 03210000 * 2 IOBMDREC PTR(31), /* POINTER TO RECORD BEING 0243 03211000 * PASSED TO MISCELLANEOUS DATA 03212000 * RECORDER MDC007*/ 03213000 * 2 IOBRCD PTR(31), /* POINTER TO QUEUE OF OBR 0243 03214000 * RECORDS PASSED FROM 3705 0243 03215000 * MDC008*/ 03216000 * 2 IOBSENSV BIT(8), /* SENSE BYTE SAVE AREA MDC009*/ 03217000 * 2 IOBCSWSV CHAR(7); /* SAVE AREA FOR LAST 7 BYTES OF 03218000 * CSW MDC010*/ 03219000 * 0243 03220000 * /* **************************************** */ 03221000 * /* 3540 EXTENSION *** 4 BYTES @Z30OP9A*/ 03222000 * /* **************************************** */ 03223000 * 0244 03224000 * DECLARE 1 IOBORG13 0244 03225000 * DEF(IOBEXTEN) BDY(WORD), /* @Z30OP9A*/ 03226000 * 2 IOBSKADR CHAR(4) BDY(WORD), /* 3540 SEEK ADDRESS 0244 03227000 * (MDC300) @Z30OP9A*/ 03228000 * 3 IOBSKRV PTR(8), /* RESERVED (MDC301) @Z30OP9A*/ 03229000 * 3 IOBSKTT PTR(8), /* TRACK NUMBER 0244 03230000 * (MDC302) @Z30OP9A*/ 03231000 * 3 IOBSK0 PTR(8), /* MUST BE ZERO 0244 03232000 * (MDC303) @Z30OP9A*/ 03233000 * 3 IOBSKSS PTR(8); /* SECTOR NUMBER 0244 03234000 * (MDC304) @Z30OP9A*/ 03235000 * 0245 03236000 */* **************************************************************** */ 03237000 */* */ 03238000 */* U N I T C O N T R O L B L O C K */ 03239000 */* */ 03240000 */* **************************************************************** */ 03241000 */* */ 03242000 */* STATUS */ 03243000 */* */ 03244000 */* OS/VS2 RELEASE 3.0 AND 3.7 PTF, 08/31/77, LEVEL=23 */ 03245000 */* */ 03246000 */* METHOD OF ACCESS */ 03247000 */* */ 03248000 */* -MULTIPROCESSING PREFIX, COMMON AND DEVICE DEPENDENT SEGMENTS, */ 03249000 */* AND DEVICE DEPENDENT EXTENSIONS. */ 03250000 */* THE UCB ADDRESS LOCATED FROM THE UCB LOOK UP TABLE POINTS */ 03251000 */* TO THE COMMON SEGMENT. THIS ADDRESS MUST HAVE THE PREFIX */ 03252000 */* ADDRESSABILITY CONSTANT SUBTRACTED FROM IT IN ORDER TO MAP */ 03253000 */* THE PREFIX FIELDS AND STANDARD FIELDS VIA THIS MACRO. */ 03254000 */* */ 03255000 */* PL/S - DCL UCBPTR PTR */ 03256000 */* BAL - PREFIX=YES */ 03257000 */* A DSECT STATEMENT LABELED UCB IS PROVIDED. A */ 03258000 */* USING STATEMENT ON THE SYMBOL UCB WILL PROVIDE */ 03259000 */* ADDRESSABILITY TO ALL PORTIONS OF THIS MAPPING */ 03260000 */* MACRO EXCEPT THE EXTENSIONS. ADDITIONAL USING */ 03261000 */* STATEMENTS ARE NECESSARY TO OBTAIN ADDRESSING */ 03262000 */* TO THESE EXTENSIONS. THESE ARE AS FOLLOWS - */ 03263000 */* */ 03264000 */* COMMON EXTENSION UCBCMEXT */ 03265000 */* MAGNETIC TAPE EXTENSION UCBMT */ 03266000 */* OPTICAL CHARACTER READER EXT UCBOCR */ 03267000 */* 3540 DEVICE EXTENSION UCB3540X @Z30OP9A*/ 03268000 */* 3800 DEVICE EXTENSION UCB3800X @Z40MP9A*/ 03269000 */* UNIT RECORD WITH UCS EXTENSION UCBUCS */ 03270000 */* */ 03271000 */* WHEN LISTING IS SUPPRESSED, YOU CAN DETERMINE WHICH */ 03272000 */* DSECT A SYMBOL IS IN BY USING THE STATEMENT NUMBER */ 03273000 */* IN THE DEFN COLUMN IN THE CROSS REFERENCE LISTING. */ 03274000 */* FOR EXAMPLE, ANY SYMBOL DEFINED BETWEEN THE */ 03275000 */* STATEMENT NUMBERS FOR UCBMT AND UCBOCR IS IN THE */ 03276000 */* UCBMT DSECT. */ 03277000 */* */ 03278000 */* -ALL PORTIONS EXCEPT THE MP PREFIX. */ 03279000 */* */ 03280000 */* BAL - PREFIX=NO OR THE PREFIX PARAMETER OMITTED OR EQUAL */ 03281000 */* TO ANY STRING OTHER THAN YES. */ 03282000 */* A DSECT STATEMENT SHOULD PRECEDE THE MACRO CALL. */ 03283000 */* SYMBOLS IN THE COMMON SECTION AND DEVICE DEPENDENT */ 03284000 */* SEGMENTS ARE ADDRESSABLE BY A USING ON UCBOB. */ 03285000 */* THE ABOVE COMMENTS ON THE EXTENSIONS APPLY HERE. */ 03286000 */* */ 03287000 */* F.E.'S */ 03288000 */* */ 03289000 */* MICROFICHE LISTING - IEFUCBOB */ 03290000 */* */ 03291000 */* DEVELOPERS */ 03292000 */* */ 03293000 */* BAL LISTING - SPECIFY LIST=YES ON MACRO CALL */ 03294000 */* PL/S LISTING - SPECIFY %IHALIST='YES' BEFORE INCLUDE */ 03295000 */* */ 03296000 */* */ 03297000 */* FUNCTION */ 03298000 */* */ 03299000 */* A UNIT CONTROL BLOCK INCORPORATING A SYSTEM RESOURCE TABLE */ 03300000 */* RECORDS THE STATUS OF A PHYSICAL INPUT OUTPUT DEVICE */ 03301000 */* ADDRESS AND IS CREATED AND INITIALIZED DURING SYSTEM */ 03302000 */* GENERATION. THE UNIT CONTROL BLOCK RESIDES IN THE NUCLEUS */ 03303000 */* BELOW 64K AND MAY POINT TO A DEVICE TYPE DEPENDENT */ 03304000 */* EXTENSION RESIDING HIGHER IN THE NUCLEUS. */ 03305000 */* THE COMMON SEGMENT OF THE UCB IS POINTED TO BY */ 03306000 */* THE UCB LOOKUP TABLE WHICH IS INDEXED BY */ 03307000 */* A FUNCTION OF THE CHANNEL CONTROL UNIT DEVICE ADDRESS. */ 03308000 */* THE UCB MAY BE POINTED TO BY TASK INPUT/OUTPUT TABLES */ 03309000 */* AND DATA EXTENT BLOCKS. THE UCB WILL CONTAIN INDICES */ 03310000 */* INTO DEVICE STATISTICS, ATTENTION AND LOGICAL CHANNEL */ 03311000 */* TABLES. */ 03312000 */* */ 03313000 */* OUTPUT */ 03314000 */* MULTIPROCESSING PREFIX */ 03315000 */* SYSGEN INDEPENDENT COMMON SECTION */ 03316000 */* INCLUDING UCBTYP WORD */ 03317000 */* DEVICE DEPENDENT SEGMENT (ONE OF THE FOLLOWING) */ 03318000 */* DIRECT ACCESS */ 03319000 */* MAGNETIC TAPE */ 03320000 */* UNIT RECORD WITH UCS OR 3886 OR 3540 OR 3800 @Z40MP9A*/ 03321000 */* GRAPHICS EXCEPT 3270 */ 03322000 */* 3270 GRAPHICS */ 03323000 */* 3704, 3705 TELEPROCESSING DEVICE */ 03324000 */* CHANNEL-TO-CHANNEL DEVICE */ 03325000 */* 3851 DEVICE @Z30LP9A*/ 03326000 */* COMMON EXTENSION */ 03327000 */* UCB EXTENSION (ONE OF THE FOLLOWING) */ 03328000 */* MAGNETIC TAPE */ 03329000 */* OPTICAL CHARACTER READER */ 03330000 */* 3540 DEVICE @Z30OP9A*/ 03331000 */* 3800 DEVICE @Z40MP9A*/ 03332000 */* UNIT RECORD WITH UNIVERSAL CHARACTER SET */ 03333000 */* */ 03334000 */* **************************************************************** */ 03335000 * 0245 03336000 */* **************************************************************** */ 03337000 */* */ 03338000 */* MULTIPROCESSING UCB PREFIX */ 03339000 */* */ 03340000 */* **************************************************************** */ 03341000 * 0245 03342000 *DECLARE 0245 03343000 * 1 UCB BASED(UCBPTR-512) BDY(WORD), /* UCB PREFIX YM0450*/ 03344000 * 2 * CHAR(504), /* RESERVED */ 03345000 * 2 UCBPXST CHAR(0), /* START OF USED FIELDS IN PREFIX 03346000 * MDC187*/ 03347000 * 2 UCBLOCK FIXED(31), /* DEVICE LOCK MDC238*/ 03348000 * 2 UCBIOQ PTR(31), /* ADDRESS OF LAST QUEUING ELEMENT 03349000 * USED FOR THIS DEVICE. ADDRESS 03350000 * OF ERP WORK AREA DURING 0245 03351000 * INTERCEPT AND ASYNCHRONOUS 0245 03352000 * ATTENTION/DEVICE END WITH UNIT 03353000 * CHECK CONDITIONS. WHEN DIRECT 03354000 * ACCESS VOLUME VERIFICATION 0245 03355000 * (DAVV) IS WAITING FOR A VOLUME 03356000 * MOUNT, THIS FIELD WILL POINT 0245 03357000 * TO THE DAVV SRB. MDC197*/ 03358000 * 2 UCBPFXND CHAR(0); /* END OF PREFIX YM0450*/ 03359000 * 0245 03360000 * 0245 03361000 */* **************************************************************** */ 03362000 */* */ 03363000 */* SYSGEN-INDEPENDENT */ 03364000 */* COMMON SECTION */ 03365000 */* */ 03366000 */* **************************************************************** */ 03367000 * 0246 03368000 *DECLARE 0246 03369000 * 1 UCBOB BASED(UCBPTR) BDY(WORD), 0246 03370000 * 2 UCBCMSEG CHAR(0), /* START OF COMMON SECTION MDC168*/ 03371000 * 2 UCBJBNR BIT(8) BDY(WORD),/* FLAG BYTE (OS/VS2) MDC012*/ 03372000 * 3 UCBVRDEV BIT(1), /* UCB FOR VIRTUAL DEVICE MDC012*/ 03373000 * 3 UCBJES3 BIT(1), /* ALL VOLUME MOUNTING AND DEVICE 03374000 * MANAGEMENT FOR THIS DEVICE IS 03375000 * CONTROLLED BY JES3 MDC246*/ 03376000 * 3 UCBDUC BIT(1), /* DISPLAY DEVICE UNIT CHECK - IPL 03377000 * (MDC347) @ZA04127*/ 03378000 * 3 UCBRV003 BIT(1), /* RESERVED */ 03379000 * 3 UCBOLDSM BIT(1), /* OLTEP COMMUNICATING DIRECTLY 0246 03380000 * WITH THE MASS STORAGE CONTROL 03381000 * (MSC), NOT THROUGH THE MASS 0246 03382000 * STORAGE SYSTEM COMMUNICATOR 0246 03383000 * (MSSC) (MDC301) @Z30LP9A*/ 03384000 * 3 UCBMMSGP BIT(1), /* MOUNT MESSAGE PENDING. THE 0246 03385000 * DEVICE HAS BEEN SELECTED BY 0246 03386000 * DEVICE ALLOCATION, BUT NO MOUNT 03387000 * MESSAGE HAS BEEN ISSUED. 0246 03388000 * (MDC361) @ZA14242*/ 03389000 * 3 UCBRV011 BIT(1), /* RESERVED MDC013*/ 03390000 * 3 UCBMONT BIT(1), /* VOLUME TO BE MOUNTED IS TO BE 03391000 * RETAINED OR CONTAIN A PASSED 0246 03392000 * DATA SET. (SET BY DEVICE 0246 03393000 * ALLOCATION OR DATA MANAGEMENT 03394000 * FOR OS/VS2) MDC014*/ 03395000 * 2 UCBFL5 BIT(8), /* FLAGS */ 03396000 * 3 UCBDCC BIT(1), /* DISCONNECT COMMAND CHAIN DEVICE 03397000 * MDC098*/ 03398000 * 3 UCBAF BIT(1), /* ATTENTION FOR THIS CONSOLE 0246 03399000 * DEVICE IS TO BE PROCESSED BY 0246 03400000 * THE COMMUNICATIONS TASK ICB321*/ 03401000 * 4 UCBAMV BIT(1), /* SUCCESSFUL COMPARISON CHECKING 03402000 * OF THE ACCESS METHOD CATALOG 0246 03403000 * AND THE VTOC (VSAM DIRECT 0246 03404000 * ACCESS DEVICES ONLY) ICB437*/ 03405000 * 3 UCBSASK BIT(1), /* DEVICE REQUIRES STAND ALONE 0246 03406000 * SEEK MDC099*/ 03407000 * 3 UCBVSDR BIT(1), /* DEVICE HAS VARIABLE LENGTH 0246 03408000 * SDR'S */ 03409000 * 3 UCBENVRD BIT(1), /* DEVICE RETURNS ENVIRONMENTAL 0246 03410000 * DATA MDC100*/ 03411000 * 3 UCBNALOC BIT(1), /* THIS OFFLINE DEVICE IS BEING 0246 03412000 * USED BY A SYSTEM COMPONENT. 0246 03413000 * THE DEVICE STATUS MUST NOT 0246 03414000 * CHANGE TO ONLINE NOR WILL IT BE 03415000 * ALLOCATED. THE LAST PATH/ 0246 03416000 * CHANNEL/CPU TO THE DEVICE MUST 03417000 * NOT BE VARY'ED OFFLINE. THE 0246 03418000 * DEVICE IS UNAVAILABLE FOR USAGE 03419000 * BY ANOTHER SYSTEM COMPONENT 0246 03420000 * WHICH PROCESSES OFFLINE DEVICES. 03421000 * TO SET THIS INDICATOR ON, A 0246 03422000 * COMPONENT MUST OBTAIN VIA ENQ, 03423000 * EXCLUSIVE, SYSTEM LEVEL CONTROL 03424000 * OF RESOURCE SYSIEFSD, Q4. 0246 03425000 * SERIALIZATION IS NOT REQUIRED 03426000 * TO TURN THIS INDICATOR OFF. 0246 03427000 * MDC027*/ 03428000 * 3 UCBALTCU BIT(1), /* DEVICE HAS AN ALTERNATE CONTROL 03429000 * UNIT ADDRESS */ 03430000 * 3 UCBALTPH BIT(1), /* DEVICE HAS AN ALTERNATE PATH */ 03431000 * 2 UCBID CHAR(1), /* UCB IDENTIFICATION (FF) */ 03432000 * 2 UCBSTAT BIT(8), /* DEVICE STATUS */ 03433000 * 3 UCBONLI BIT(1), /* DEVICE IS ONLINE */ 03434000 * 3 UCBCHGS BIT(1), /* DEVICE STATUS IS TO BE CHANGED 03435000 * FROM ONLINE TO OFFLINE, AND 0246 03436000 * EITHER ALLOCATION IS ENQUEUED 03437000 * ON DEVICES OR THE DEVICE IS 0246 03438000 * ALLOCATED. (BIT 0 IS ALSO ON.) */ 03439000 * 3 UCBRESV BIT(1), /* THE MOUNT STATUS OF THE VOLUME 03440000 * ON THIS DEVICE IS RESERVED */ 03441000 * 3 UCBUNLD BIT(1) ABNORMAL, /* UNLOAD OPERATOR COMMAND HAS 0246 03442000 * BEEN ADDRESSED TO THIS DEVICE. 03443000 * THE DEVICE IS NOT YET UNLOADED. 03444000 * MDC167*/ 03445000 * 3 UCBALOC BIT(1), /* DEVICE IS ALLOCATED */ 03446000 * 3 UCBPRES BIT(1), /* THE MOUNT STATUS OF THE VOLUME 03447000 * ON THIS DEVICE IS PERMANENTLY 03448000 * RESIDENT */ 03449000 * 3 UCBSYSR BIT(1), /* SYSTEM RESIDENCE DEVICE OR 0246 03450000 * PRIMARY CONSOLE OR 0246 03451000 * ACTIVE CONSOLE */ 03452000 * 3 UCBDADI BIT(1), /* STANDARD TAPE LABELS HAVE BEEN 03453000 * VERIFIED FOR THIS TAPE VOLUME 03454000 * OR SECONDARY CONSOLE OR 0246 03455000 * CONSOLE STATUS CHANGING */ 03456000 * 2 UCBCHAN CHAR(2), /* BINARY CHANNEL/UNIT ADDRESS 0246 03457000 * MDC102*/ 03458000 * 3 UCBCHA PTR(8), /* BINARY CHANNEL ADDRESS OF LAST 03459000 * STARTED I/O OPERATION */ 03460000 * 3 UCBUA PTR(8), /* BINARY UNIT ADDRESS */ 03461000 * 2 UCBSFLS CHAR(2), /* DEVICE STATUS FLAGS MDC103*/ 03462000 * 3 UCBFLA BIT(8), /* I/O SUPERVISOR FLAG BYTE A 0246 03463000 * MDC104*/ 03464000 * 4 UCBFL1 BIT(8), /* ALIAS */ 03465000 * 5 UCBBSY BIT(1), /* DEVICE IS BUSY MDC105*/ 03466000 * 6 UCBBUSYD BIT(1), /* ALIAS */ 03467000 * 5 UCBNRY BIT(1), /* DEVICE NOT READY MDC106*/ 03468000 * 6 UCBNOTRD BIT(1), /* ALIAS */ 03469000 * 5 UCBPST BIT(1), /* POST FLAG (ASSOC IOQE) MDC107*/ 03470000 * 6 UCBUSING BIT(1), /* ALIAS */ 03471000 * 5 UCBPSNS BIT(1), /* PENDING SENSE OPERATION MDC108*/ 03472000 * 5 UCBCUB BIT(1), /* CONTROL UNIT BUSY MDC109*/ 03473000 * 6 UCBNOTRC BIT(1), /* ALIAS */ 03474000 * 5 UCBSAP BIT(1), /* STAND ALONE PROCESS ON DEVICE 03475000 * ACTIVE (EG., RESERVE) MDC110*/ 03476000 * 5 UCBACTV BIT(1), /* CHANNEL PROGRAM ACTIVE ON 0246 03477000 * DEVICE MDC111*/ 03478000 * 5 UCBQISCE BIT(1), /* DEVICE QUIESCED MDC112*/ 03479000 * 3 UCBFLB BIT(8), /* I/O SUPERVISOR FLAG BYTE B 0246 03480000 * MDC113*/ 03481000 * 4 UCBIORST BIT(1), /* I/O RESTART VIA ALTERNATE CPU 03482000 * RECOVERY HAS FACTORED DEVICE 0246 03483000 * OUT OF CONFIGURATION BECAUSE 0246 03484000 * OF NON-ACCESSABILITY. ALL 0246 03485000 * INCOMING I/O REQUESTS ARE 0246 03486000 * INTERCEPTED AND MARKED IN 0246 03487000 * PERMANENT ERROR WITH A 0246 03488000 * COMPLETION CODE OF X'51'. 0246 03489000 * HOWEVER, IF CHANNEL 0246 03490000 * RECONFIGURATION HARDWARE (CRH) 03491000 * IS ACTIVE AND CRH WILL BE USED 03492000 * TO ACCESS THE DEVICE ASSOCIATED 03493000 * WITH THE UCB, THIS BIT WILL BE 03494000 * ON IN EVERY UCB THAT HAS 0246 03495000 * OUTSTANDING I/O ACROSS A CRH 0246 03496000 * PATH. (MDC320) @Z30CQ9A*/ 03497000 * 4 UCBASNS BIT(1), /* SENSE ACTIVE ON DEVICE MDC115*/ 03498000 * 4 UCBSPST BIT(1), /* SENSE POST INDICATOR MDC116*/ 03499000 * 4 UCBRESVH BIT(1), /* DEVICE RESERVED INDICATOR 0246 03500000 * MDC157*/ 03501000 * 4 UCBCRHRV BIT(1), /* RESERVED PATH THROUGH A CHANNEL 03502000 * RECONFIGURATION HARDWARE (CRH) 03503000 * CONNECTION (MDC303) @Z30CQ9A*/ 03504000 * 4 UCBCRHSN BIT(1), /* IF 1, SENSE PENDING FROM 0246 03505000 * INOPERATIVE CPU. IF 0, SENSE 03506000 * PENDING FROM OPERATIVE CPU. 0246 03507000 * BIT IS SET ONLY WHEN CHANNEL 0246 03508000 * RECONFIGURATION HARDWARE (CRH) 03509000 * IS ACTIVE. (MDC332) @Z30CQ9A*/ 03510000 * 4 UCBVALPH BIT(1), /* PATH VALIDATION 0246 03511000 * (MDC337) @ZA00078*/ 03512000 * 4 UCBSIGP BIT(1), /* IOS SIGP INDICATOR TO PREVENT 03513000 * PING/PONG (MDC346) @ZA03601*/ 03514000 * 2 UCBCHM BIT(8), /* PATH STATUS MASK FOR THIS 0246 03515000 * DEVICE MDC198*/ 03516000 * 3 UCBCHM1 BIT(8), /* SAME AS UCBCHM MDC199*/ 03517000 * 4 UCBPTH0 BIT(2), /* PATHS FROM CPU 0 MDC200*/ 03518000 * 5 UCBPPA BIT(1), /* PRIMARY PATH CPU 0. IF 0, PATH 03519000 * IS AVAILABLE. IF 1, PATH IS 0246 03520000 * UNAVAILABLE. (MDC350) @Z40AQ9A*/ 03521000 * 5 UCBSPA BIT(1), /* SECONDARY PATH CPU 0. IF 0, 0246 03522000 * PATH IS AVAILABLE. IF 1, PATH 03523000 * IS UNAVAILABLE. 0246 03524000 * (MDC351) @Z40AQ9A*/ 03525000 * 4 UCBPTH1 BIT(2), /* PATHS FROM CPU 1 MDC203*/ 03526000 * 5 UCBPPB BIT(1), /* PRIMARY PATH CPU 1. IF 0, PATH 03527000 * IS AVAILABLE. IF 1, PATH IS 0246 03528000 * UNAVAILABLE. (MDC352) @Z40AQ9A*/ 03529000 * 5 UCBSPB BIT(1), /* SECONDARY PATH CPU 1. IF 0, 0246 03530000 * PATH IS AVAILABLE. IF 1, PATH 03531000 * IS UNAVAILABLE. 0246 03532000 * (MDC353) @Z40AQ9A*/ 03533000 * 4 UCBRV014 BIT(1), /* RESERVED */ 03534000 * 4 UCBRV015 BIT(1), /* RESERVED */ 03535000 * 4 UCBRV016 BIT(1), /* RESERVED */ 03536000 * 4 UCBRV017 BIT(1), /* RESERVED */ 03537000 * 2 UCBCNT PTR(8), /* COUNT OF QUEUED REQUESTS 0246 03538000 * WAITING FOR DEVICE MDC206*/ 03539000 * 2 UCBLCI PTR(8), /* INCREMENT WHICH, WHEN 0246 03540000 * MULTIPLIED BY 32, BECOMES AN 0246 03541000 * INDEX TO THE LOGICAL CHANNEL 0246 03542000 * TABLE (LCHTAB) 0246 03543000 * (MDC349) @Z40AQ9A*/ 03544000 * 2 UCBCPU CHAR(1), /* LAST SIO TO DEVICE ISSUED 0246 03545000 * FROM THIS CPUID MDC207*/ 03546000 * 2 UCBWGT BIT(8) BDY(WORD),/* FLAGS */ 03547000 * 3 UCBIN BIT(1), /* SYSIN */ 03548000 * 3 UCBOUT BIT(1), /* SYSOUT */ 03549000 * 3 UCBPUB BIT(1), /* ASSUMED THAT THIS DEVICE WILL 03550000 * BE ALLOCATED FOR A PUBLIC 0246 03551000 * VOLUME REQUEST */ 03552000 * 3 UCBREW BIT(1), /* REWIND COMMAND HAS BEEN 0246 03553000 * ADDRESSED TO THIS MAGNETIC TAPE 03554000 * DEVICE BY I/O SUPPORT */ 03555000 * 3 UCBMTPXP BIT(1), /* MULTIPLE EXPOSURE DEVICE MDC117*/ 03556000 * 3 UCBVORSN BIT(1), /* VARY COMMAND OPERATOR REASON 0246 03557000 * INDICATOR MDC118*/ 03558000 * 3 UCBVHRSN BIT(1), /* VARY COMMAND HIERARCHY REASON 03559000 * INDICATOR MDC119*/ 03560000 * 3 UCBRV029 BIT(1), /* RESERVED MDC028*/ 03561000 * 2 UCBNAME CHAR(3) BDY(WORD,2), /* UNIT NAME (EBCDIC) */ 03562000 * 2 UCBTYP CHAR(4) BDY(WORD), /* DEVICE TYPE */ 03563000 * 3 UCBTBYT1 BIT(8), /* MODEL BITS */ 03564000 * 4 UCB1FEA0 BIT(1), /* BIT 0 */ 03565000 * 4 UCB1FEA1 BIT(1), /* BIT 1 */ 03566000 * 4 UCB1FEA2 BIT(1), /* BIT 2 */ 03567000 * 4 UCB1FEA3 BIT(1), /* BIT 3 */ 03568000 * 4 UCB1FEA4 BIT(1), /* BIT 4 */ 03569000 * 4 UCB1FEA5 BIT(1), /* BIT 5 */ 03570000 * 5 UCBD1600 BIT(1), /* 1600 BPI ICB475*/ 03571000 * 4 UCB1FEA6 BIT(1), /* BIT 6 */ 03572000 * 5 UCBD6250 BIT(1), /* 6250 BPI ICB475*/ 03573000 * 4 UCB1FEA7 BIT(1), /* BIT 7 */ 03574000 * 3 UCBTBYT2 BIT(8), /* OPTION FLAGS */ 03575000 * 4 UCB2OPT0 BIT(1), /* FLAG 0 */ 03576000 * 4 UCB2OPT1 BIT(1), /* FLAG 1 */ 03577000 * 4 UCB2OPT2 BIT(1), /* FLAG 2 */ 03578000 * 5 UCBDUDN1 BIT(1), /* DUAL DENSITY 800/1600 BPI 0246 03579000 * ICB475*/ 03580000 * 6 UCBRR BIT(1), /* THIS DEVICE IS SHARABLE BETWEEN 03581000 * TWO CPU'S (DIRECT ACCESS) 0246 03582000 * MDC159*/ 03583000 * 4 UCB2OPT3 BIT(1), /* FLAG 3 */ 03584000 * 5 UCBDUDN2 BIT(1), /* DUAL DENSITY 1600/6250 BPI 0246 03585000 * ICB475*/ 03586000 * 6 UCBRPS BIT(1), /* ROTATIONAL POSITION SENSING 0246 03587000 * (RPS) DEVICE (DIRECT ACCESS) 0246 03588000 * MDC120*/ 03589000 * 4 UCB2OPT4 BIT(1), /* FLAG 4 */ 03590000 * 5 UCBRWTAU BIT(1), /* READ/WRITE TAPE CONTROL MDC166*/ 03591000 * 6 UCBRVDEV BIT(1), /* IF 0, REAL DEVICE. 0246 03592000 * IF 1, VIRTUAL DEVICE. 0246 03593000 * (DIRECT ACCESS) 0246 03594000 * (MDC300) @Z30LP9A*/ 03595000 * 4 UCB2OPT5 BIT(1), /* FLAG 5 */ 03596000 * 4 UCB2OPT6 BIT(1), /* FLAG 6 */ 03597000 * 5 UCBVLPWR BIT(1), /* VOLUME REQUIRES ALTERNATE POWER 03598000 * SOURCE DEVICE (MDC322) @Z30AQ9A*/ 03599000 * 4 UCB2OPT7 BIT(1), /* FLAG 7 */ 03600000 * 5 UCBDVPWR BIT(1), /* DEVICE HAS ALTERNATE POWER 0246 03601000 * SOURCE (MDC323) @Z30AQ9A*/ 03602000 * 3 UCBTBYT3 BIT(8), /* CLASS BITS */ 03603000 * 4 UCBDVCLS BIT(8), /* SAME AS UCBTBYT3 MDC169*/ 03604000 * 5 UCB3TAPE BIT(1), /* TAPE */ 03605000 * 5 UCB3COMM BIT(1), /* COMMUNICATIONS */ 03606000 * 5 UCB3DACC BIT(1), /* DIRECT ACCESS */ 03607000 * 5 UCB3DISP BIT(1), /* DISPLAY */ 03608000 * 5 UCB3UREC BIT(1), /* UNIT RECORD */ 03609000 * 5 UCB3CHAR BIT(1), /* CHARACTER READER */ 03610000 * 5 UCBRSV10 BIT(1), /* RESERVED */ 03611000 * 5 UCBRSV11 BIT(1), /* RESERVED */ 03612000 * 3 UCBTBYT4 CHAR(1), /* DEVICE CODE */ 03613000 * 4 UCBUNTYP CHAR(1), /* SAME AS UCBTBYT4 MDC170*/ 03614000 * 2 UCBEXTPT PTR(31), /* ADDRESS OF COMMON UCB EXTENSION 03615000 * MDC227*/ 03616000 * 3 UCBFLC BIT(8), /* I/O SUPERVISOR FLAG BYTE C 0246 03617000 * MDC228*/ 03618000 * 4 UCBATTP BIT(1), /* ATTENTION PENDING MDC229*/ 03619000 * 4 UCBWAA BIT(1), /* WORK AREA APPENDED MDC230*/ 03620000 * 4 UCBUDE BIT(1), /* UNSOLICITED DEVICE END 0246 03621000 * RECEIVED MDC231*/ 03622000 * 4 UCBITF BIT(1), /* INTERCEPT CONDITION MDC232*/ 03623000 * 4 UCBIVRS BIT(1), /* INTERVENTION REQUIRED MESSAGE 03624000 * ISSUED MDC233*/ 03625000 * 4 UCBIVRR BIT(1), /* INTERVENTION REQUIRED MESSAGE 03626000 * IS NEEDED MDC234*/ 03627000 * 4 UCBTICBT BIT(1), /* CHANNEL END AND/OR DEVICE END 03628000 * OR MOUNT CONDITION PENDING. 0246 03629000 * MDC235*/ 03630000 * 4 UCBDDRSW BIT(1), /* DDR SWITCH PENDING ON THIS 0246 03631000 * DEVICE MDC236*/ 03632000 * 3 UCBEXTP PTR(24), /* ADDRESS OF COMMON UCB EXTENSION 03633000 * MDC237*/ 03634000 */* */ 03635000 */* **************************************************************** */ 03636000 */* */ 03637000 */* DEVICE-DEPENDENT UCB SEGMENTS */ 03638000 */* */ 03639000 * 2 UCBDEV CHAR(0) BDY(WORD); 0246 03640000 */* */ 03641000 */* **************************************************************** */ 03642000 */* */ 03643000 */* DIRECT ACCESS */ 03644000 */* UCB SEGMENT */ 03645000 */* */ 03646000 */* UCBVOLI, UCBSTAB AND UCBDMCT ARE SAME IN TAPE SEGMENT AS */ 03647000 */* IN DIRECT ACCESS SEGMENT. */ 03648000 */* */ 03649000 *DECLARE 1 UCBOBS01 0247 03650000 * DEF(UCBDEV) BDY(WORD), /* DEVICE-DEPENDENT SEGMENT */ 03651000 * 0247 03652000 */* **************************************************************** */ 03653000 */* */ 03654000 * 2 UCBVTOC CHAR(4) BDY(WORD),/* RELATIVE ADDRESS OF VTOC FOR 03655000 * THIS VOLUME, IN FORM TTR0 0247 03656000 * MDC085*/ 03657000 * 2 UCBVOLI CHAR(6) BDY(WORD),/* VOLUME SERIAL NUMBER */ 03658000 * 2 UCBSTAB BIT(8), /* VOLUME STATUS */ 03659000 * 3 UCBBSVL BIT(1), /* VOLUME DEMOUNTABLE BY DATA 0247 03660000 * MANAGEMENT (DIRECT ACCESS) 0247 03661000 * (OS/VS2) MDC008*/ 03662000 * 4 UCBDVSHR BIT(1), /* DEVICE NOT SHARABLE AMONG 0247 03663000 * SEVERAL CPU'S (3420 MAGNETIC 0247 03664000 * TAPE DEVICES ONLY) (MDC245) 0247 03665000 * XA03017*/ 03666000 * 3 UCBPGFL BIT(1), /* UCB IS OPEN AND IS BEING USED 03667000 * AS A PAGE FILE ICB338*/ 03668000 * 3 UCBPRSRS BIT(1), /* DURING VOLUME ATTRIBUTE 0247 03669000 * PROCESSING THIS BIT IS USED 0247 03670000 * BOTH TO DENOTE UCB'S THAT WERE 03671000 * MARKED PERMANENTLY RESIDENT 0247 03672000 * PRIOR TO GETTING CONTROL AND 0247 03673000 * TO IDENTIFY DEVICES THAT WERE 03674000 * SELECTED BY THE OPERATOR FOR 0247 03675000 * MOUNTING VOLUMES 0247 03676000 * (DIRECT ACCESS) MDC162*/ 03677000 * 4 UCBBALB BIT(1), /* ADDITIONAL VOLUME LABEL 0247 03678000 * PROCESSING (TAPE) */ 03679000 * 3 UCBBPRV BIT(1), /* PRIVATE - VOLUME USE STATUS */ 03680000 * 3 UCBBPUB BIT(1), /* PUBLIC - VOLUME USE STATUS */ 03681000 * 3 UCBBSTR BIT(1), /* STORAGE - VOLUME USE STATUS 0247 03682000 * (DIRECT ACCESS) 0247 03683000 * THE VOLUME MOUNTED HAS AN 0247 03684000 * AMERICAN NATIONAL STANDARD 0247 03685000 * LABEL (TAPE) */ 03686000 * 3 UCBSHAR BIT(1), /* VOLUME SHAREABLE AMONG JOB 0247 03687000 * STEPS (OS/VS2) MDC020*/ 03688000 * 3 UCBBNUL BIT(1), /* CONTROL VOLUME - A CATALOG DATA 03689000 * SET IS ON THIS VOLUME 0247 03690000 * (DIRECT ACCESS) 0247 03691000 * IF THE MULTIPLE CONSOLE SUPPORT 03692000 * OPTION IS IN THE SYSTEM, 0247 03693000 * DEMOUNT OR MOUNT MESSAGES HAVE 03694000 * BEEN ISSUED AND THE MESSAGE 0247 03695000 * ID'S ARE AT OFFSETS 40 THROUGH 03696000 * 45. OPEN WILL DELETE THE 0247 03697000 * MESSAGES AND TURN THIS BIT OFF. 03698000 * (TAPE) */ 03699000 * 2 UCBDMCT CHAR(1), /* VOLUME USE BYTE */ 03700000 * 3 UCBMOUNT BIT(1), /* MOUNTED OR REQUEST ISSUED 0247 03701000 * (OFF MEANS MOUNT VERIFIED) */ 03702000 * 3 UCBDMC BIT(7), /* NUMBER OF DCB'S OPEN FOR THIS 03703000 * VOLUME */ 03704000 * 2 UCBDATP CHAR(0) BDY(WORD),/* END OF COMMON DIRECT ACCESS/ 03705000 * TAPE AREA */ 03706000 * 2 UCBSQC PTR(8), /* NUMBER OF RESERVE MACRO 0247 03707000 * INSTRUCTIONS ISSUED MDC086*/ 03708000 * 2 UCBFL4 BIT(8), /* DIRECT ACCESS FLAG BYTE MDC087*/ 03709000 * 3 UCBDAVV BIT(1), /* DIRECT ACCESS VOLUME VERIFICATION 03710000 * IN CONTROL (DAVV) MDC127*/ 03711000 * 3 UCBWDAV BIT(1), /* DAVV WAITING FOR MOUNT MDC128*/ 03712000 * 3 UCBRESVP BIT(1), /* RESERVE CHANNEL PROGRAM PENDING 03713000 * (MDC356) @ZA06072*/ 03714000 * 3 UCBDSS BIT(1), /* READ HOME ADDRESS AND READ 0247 03715000 * RECORD ZERO OPERATIONS HAVE 0247 03716000 * BEEN PERFORMED BY DYNAMIC 0247 03717000 * SUPPORT SYSTEM (DSS) MDC088*/ 03718000 * 3 UCBRV065 BIT(1), /* RESERVED (MDC302) */ 03719000 * 3 UCBFL45 BIT(1), /* RESERVED */ 03720000 * 3 UCBFL46 BIT(1), /* RESERVED */ 03721000 * 3 UCBFL47 BIT(1), /* RESERVED */ 03722000 * 2 UCBUSER PTR(8), /* NUMBER OF CURRENT USERS MDC089*/ 03723000 * 2 UCBRES1A CHAR(1), /* RESERVED */ 03724000 * 2 UCBBASE PTR(31), /* ADDRESS OF BASE EXPOSURE UCB 0247 03725000 * MDC130*/ 03726000 * 2 UCBNEXP PTR(31); /* BASE - ADDRESS OF LAST 0247 03727000 * STARTED EXPOSURE 0247 03728000 * NON-BASE - ADDRESS OF NEXT 0247 03729000 * EXPOSURE IN THE RING 0247 03730000 * THIS ADDRESS POINTS TO THE 0247 03731000 * MULTIPROCESSING PREFIX MDC131*/ 03732000 * 0247 03733000 */* **************************************************************** */ 03734000 */* */ 03735000 */* MAGNETIC TAPE UCB SEGMENT */ 03736000 */* */ 03737000 */* UCBVOLI, UCBSTAB AND UCBDMCT ARE SAME IN TAPE SEGMENT AS */ 03738000 */* IN DIRECT ACCESS SEGMENT. */ 03739000 */* */ 03740000 *DECLARE 1 UCBOBS02 0248 03741000 * DEF(UCBDEV) BDY(WORD), 0248 03742000 */* **************************************************************** */ 03743000 * 0248 03744000 * 2 UCBFSCT FIXED(15), /* DATA SET SEQUENCE COUNT MDC090*/ 03745000 * 2 UCBFSEQ FIXED(15), /* DATA SET SEQUENCE NUMBER MDC091*/ 03746000 * 2 * CHAR(8), /* UCBVOLI, UCBSTAB AND UCBDMCT AS 03747000 * IN DIRECT ACCESS SEGMENT */ 03748000 * 2 UCBFSER CHAR(6), /* BEFORE OPEN, MESSAGE ID'S. 0248 03749000 * SEE UCBSTAB BIT 7. AFTER OPEN, 03750000 * DATA SET SERIAL NUMBER MDC092*/ 03751000 * 2 UCBRES1B CHAR(1), /* RESERVED */ 03752000 * 2 UCBTFL1 BIT(8), /* FLAG BYTE (TAPE DEVICES 0248 03753000 * ONLY) MDC015*/ 03754000 * 3 UCBNLTP BIT(1), /* TAPE VOLUME DOES NOT CONTAIN 0248 03755000 * LABELS MDC016*/ 03756000 * 3 UCBNSLTP BIT(1), /* TAPE CONTAINS NON-STANDARD 0248 03757000 * LABELS MDC017*/ 03758000 * 3 UCBDQDSP BIT(1), /* DEQUEUE TAPE VOLUME WHEN 0248 03759000 * DEMOUNTED (MDC369) @ZA18180*/ 03760000 * 3 UCBRV005 BIT(1), /* RESERVED */ 03761000 * 3 UCBRV006 BIT(1), /* RESERVED */ 03762000 * 3 UCBRV007 BIT(1), /* RESERVED */ 03763000 * 3 UCBRV008 BIT(1), /* RESERVED */ 03764000 * 3 UCBRV009 BIT(1), /* RESERVED */ 03765000 * 2 UCBXTN PTR(31), /* ADDRESS OF THE MAGNETIC TAPE 0248 03766000 * UCB EXTENSION MDC093*/ 03767000 * 3 UCBVOPT BIT(8), /* VOLUME STATISTICS OPTION BITS 03768000 * MDC094*/ 03769000 * 4 UCBESV BIT(1), /* ERROR STATISTICS BY VOLUME 0248 03770000 * (ESV) RECORDS KEPT MDC094*/ 03771000 * 4 UCBEVA BIT(1), /* ERROR VOLUME ANALYSIS (EVA) 0248 03772000 * RECORDS KEPT MDC094*/ 03773000 * 4 UCBESVC BIT(1), /* IF 0, ESV RECORDS SENT TO 0248 03774000 * SYS1.MAN (X OR Y) DATA SET. 0248 03775000 * IF 1, ESV RECORDS SENT TO 0248 03776000 * CONSOLE. MDC094*/ 03777000 * 4 UCBERPC BIT(1), /* AN ERROR RECOVERY PROCEDURE HAS 03778000 * CONTROL MDC094*/ 03779000 * 4 UCBESVE BIT(1), /* AN ESV RECORD HAS BEEN ISSUED 03780000 * FOR THIS VOLUME BECAUSE OF AN 03781000 * EOV CONDITION MDC094*/ 03782000 * 4 UCBRSV20 BIT(1), /* RESERVED MDC094*/ 03783000 * 4 UCBRSV21 BIT(1), /* RESERVED MDC094*/ 03784000 * 4 UCBRSV22 BIT(1), /* RESERVED MDC094*/ 03785000 * 3 UCBXTNB PTR(24); /* ADDRESS OF THE MAGNETIC TAPE 0248 03786000 * UCB EXTENSION MDC095*/ 03787000 * 0248 03788000 */* **************************************************************** */ 03789000 */* */ 03790000 */* UNIT RECORD WITH */ 03791000 */* UNIVERSAL CHARACTER SET (1403, 3211) */ 03792000 */* OR OPTICAL CHARACTER READER (3886) */ 03793000 */* OR 3540 DEVICE @Z30OP9A*/ 03794000 */* OR 3800 DEVICE @Z40MP9A*/ 03795000 */* UCB SEGMENT */ 03796000 */* */ 03797000 *DECLARE 1 UCBOBS03 0249 03798000 * DEF(UCBDEV) BDY(WORD), /* DEVICE-DEPENDENT SEGMENT */ 03799000 * 0249 03800000 */* **************************************************************** */ 03801000 * 0249 03802000 * 2 UCBXTADR PTR(31); /* ADDRESS OF UCS UCB EXTENSION 0249 03803000 * (1403 OR 3211) OR ADDRESS OF 0249 03804000 * OPTICAL CHARACTER READER UCB 0249 03805000 * EXTENSION (3886) OR ADDRESS OF 03806000 * 3540 DEVICE UCB EXTENSION 0249 03807000 * (3540) OR ADDRESS OF 3800 0249 03808000 * DEVICE UCB EXTENSION (3800) 0249 03809000 * (MDC304) @Z40MP9A*/ 03810000 * 0249 03811000 */* **************************************************************** */ 03812000 */* */ 03813000 */* GRAPHICS EXCEPT 3270 */ 03814000 */* UCB SEGMENT */ 03815000 */* */ 03816000 *DECLARE 1 UCBOBS04 0250 03817000 * DEF(UCBDEV) BDY(WORD), /* DEVICE-DEPENDENT SEGMENT */ 03818000 * 0250 03819000 */* **************************************************************** */ 03820000 */* */ 03821000 * 2 UCBSTART PTR(15), /* LAST START ADDRESS (MDC247) 0250 03822000 * YM4067*/ 03823000 * 2 UCBOPEN PTR(8), /* NUMBER OF DCB'S THAT ARE 0250 03824000 * CURRENTLY OPEN FOR THIS DEVICE */ 03825000 * 2 UCBGCB CHAR(1), /* GRAPHIC CONTROL BYTE USED FOR 03826000 * ATTENTION HANDLING */ 03827000 * 2 UCBTEB PTR(31), /* ADDRESS OF TASK ENTRY (TE) 0250 03828000 * BLOCK */ 03829000 * 2 UCBSNS CHAR(4) BDY(WORD), /* SENSE INFORMATION (MDC248) 03830000 * YM4067*/ 03831000 * 2 UCBBTA PTR(31), /* ADDRESS OF BUFFER TABLE */ 03832000 * 3 UCBDI PTR(8), /* DEVICE OR DEVICES ON A CONTROL 03833000 * UNIT TO WHICH BUFFER SECTIONS 03834000 * ARE ASSIGNED */ 03835000 * 3 UCBBTB PTR(24); /* ADDRESS OF BUFFER TABLE */ 03836000 * 0250 03837000 */* **************************************************************** */ 03838000 */* */ 03839000 */* 3270 GRAPHICS */ 03840000 */* UCB SEGMENT */ 03841000 */* */ 03842000 *DECLARE 1 UCBOBS06 0251 03843000 * DEF(UCBDEV) BDY(WORD), /* DEVICE-DEPENDENT SEGMENT ICB480*/ 03844000 * 0251 03845000 */* **************************************************************** */ 03846000 */* */ 03847000 * 2 UCBAOF CHAR(2), /* ADDITIONAL OPTIONAL FEATURES. 03848000 * AN EXTENSION OF THE OPTIONAL 0251 03849000 * FEATURES BYTE OF THE UCBTYP 0251 03850000 * FIELD. ICB480*/ 03851000 * 3 UCBAOF1 BIT(8), /* FIRST BYTE OF UCBAOF ICB480*/ 03852000 * 4 UCBOFMCR BIT(1), /* MAGNETIC CARD READER ADAPTER - 03853000 * FOR 3277 ONLY ICB480*/ 03854000 * 4 UCBOFSP BIT(1), /* SELECTOR PEN - FOR 3277 0251 03855000 * ONLY ICB480*/ 03856000 * 4 UCBOFNL BIT(1), /* NUMERIC LOCK - FOR 3277 0251 03857000 * ONLY ICB480*/ 03858000 * 4 UCBRSV64 BIT(1), /* RESERVED ICB480*/ 03859000 * 4 UCBRSV65 BIT(1), /* RESERVED ICB480*/ 03860000 * 4 UCBRSV66 BIT(1), /* RESERVED ICB480*/ 03861000 * 4 UCBRSV67 BIT(1), /* RESERVED ICB480*/ 03862000 * 4 UCBRSV68 BIT(1), /* RESERVED ICB480*/ 03863000 * 3 UCBAOF2 BIT(8), /* SECOND BYTE OF UCBAOF ICB480*/ 03864000 * 4 UCBRSV69 BIT(1), /* RESERVED ICB480*/ 03865000 * 4 UCBRSV70 BIT(1), /* RESERVED ICB480*/ 03866000 * 4 UCBRSV71 BIT(1), /* RESERVED ICB480*/ 03867000 * 4 UCBRSV72 BIT(1), /* RESERVED ICB480*/ 03868000 * 4 UCBRSV73 BIT(1), /* RESERVED ICB480*/ 03869000 * 4 UCBRSV74 BIT(1), /* RESERVED ICB480*/ 03870000 * 4 UCBRSV75 BIT(1), /* RESERVED ICB480*/ 03871000 * 4 UCBRSV76 BIT(1), /* RESERVED ICB480*/ 03872000 * 2 UCBATNCT PTR(8), /* ATTENTION COUNT. THE NUMBER OF 03873000 * ATTENTIONS NOT SERVICED IN THE 03874000 * LINE GROUP. PRESENT ONLY IF 0251 03875000 * THE DEVICE INDEX FIELD IS 1. 0251 03876000 * OTHERWISE, THIS FIELD IS 0251 03877000 * RESERVED. ICB480*/ 03878000 * 2 * BIT(8), /* UCBGCB - CONTROL BYTE. 0251 03879000 * USED FOR ATTENTION HANDLING 0251 03880000 * FLAGS. ICB480*/ 03881000 * 3 UCBOLTEP BIT(1), /* OLTEP IN CONTROL OF THE 0251 03882000 * DEVICE ICB480*/ 03883000 * 3 UCBRSV77 BIT(1), /* RESERVED ICB480*/ 03884000 * 3 UCBRSV78 BIT(1), /* RESERVED ICB480*/ 03885000 * 3 UCBRSV79 BIT(1), /* RESERVED ICB480*/ 03886000 * 3 UCBRTIAC BIT(1), /* READ TI ACTIVE MDC171*/ 03887000 * 3 UCBRIPND BIT(1), /* READ INITIAL PENDING ICB480*/ 03888000 * 3 UCBSKPFG BIT(1), /* SKIP FLAG ICB480*/ 03889000 * 3 UCBATRCD BIT(1), /* ATTENTION RECEIVED FROM THE 0251 03890000 * DEVICE ICB480*/ 03891000 * 2 UCBIRB PTR(31), /* ADDRESS OF THE IRB USED FOR 0251 03892000 * SCHEDULING THE SECOND LEVEL 0251 03893000 * ATTENTION ROUTINE ICB480*/ 03894000 * 3 UCBGRAF BIT(8), /* GRAPHICS STATUS FLAGS (BTAM) 0251 03895000 * MDC172*/ 03896000 * 4 UCBOIP BIT(1), /* OPEN IS IN PROGRESS MDC173*/ 03897000 * 4 UCBDRO BIT(1), /* DEVICE READY IN OPEN MDC174*/ 03898000 * 4 UCBDRNO BIT(1), /* DEVICE READY - NOT IN OPEN 0251 03899000 * MDC175*/ 03900000 * 4 UCBBTAM BIT(1), /* USE BTAM - IGG019UP MDC176*/ 03901000 * 4 UCBUPM BIT(1), /* USE PROVIDED MODULE MDC177*/ 03902000 * 4 UCBRPND BIT(1), /* READY PROCESSING NOT DONE 0251 03903000 * MDC178*/ 03904000 * 4 UCBDWNR BIT(1), /* DEVICE WENT NOT READY MDC179*/ 03905000 * 4 UCBRV039 BIT(1), /* RESERVED - BTAM MDC180*/ 03906000 * 3 UCBIRBA PTR(24), /* ADDRESS OF THE IRB USED FOR 0251 03907000 * SCHEDULING THE SECOND LEVEL 0251 03908000 * ATTENTION ROUTINE MDC181*/ 03909000 * 2 UCBLDNCA PTR(31), /* ADDRESS OF 3270 WORK AREA 0251 03910000 * ESTABLISHED BY VTAM MDC132*/ 03911000 * 3 UCBRDYQ PTR(31), /* ASYNCHRONOUS READY NOTIFICATION 03912000 * IRB ADDRESS (BTAM) MDC182*/ 03913000 * 4 UCBIRLN PTR(8), /* INITIALIZED RLN. THE RELATIVE 03914000 * LINE NUMBER (RLN) OF THE IOB 0251 03915000 * INITIALIZED FOR A READ INITIAL. 03916000 * IF 0, NO READ INITIAL IS 0251 03917000 * OUTSTANDING. PRESENT ONLY IF 03918000 * THE DEVICE INDEX FIELD IS 1. 0251 03919000 * OTHERWISE, THIS FIELD IS 0251 03920000 * RESERVED. ICB480*/ 03921000 * 5 UCBINRLN PTR(8), /* SAME AS UCBIRLN MDC183*/ 03922000 * 4 UCBLDNCB PTR(24), /* ADDRESS OF 3270 WORK AREA 0251 03923000 * ESTABLISHED BY VTAM MDC133*/ 03924000 * 5 UCBRDYQA PTR(24), /* ASYNCHRONOUS READY NOTIFICATION 03925000 * IRB ADDRESS (BTAM) MDC184*/ 03926000 * 2 UCBCTLNK PTR(31), /* SAME AS UCBCTLNA BELOW ICB480*/ 03927000 * 3 UCBRLN PTR(8), /* DEVICE INDEX. INDEX TO THE DEB 03928000 * UCB ADDRESS FIELD FOR THIS 0251 03929000 * DEVICE. THIS VALUE IS ALSO THE 03930000 * RELATIVE LINE NUMBER. ICB480*/ 03931000 * 3 UCBCTLNA PTR(24); /* CONTROL BLOCK LINK. IF THE 0251 03932000 * DEVICE INDEX FIELD IS 1, THIS 03933000 * FIELD CONTAINS THE ADDRESS OF 03934000 * THE DEB FOR THE LINE GROUP. 0251 03935000 * IF THE DEVICE INDEX FIELD IS 0251 03936000 * BETWEEN 2 AND 255 INCLUSIVE, 0251 03937000 * THIS FIELD CONTAINS THE 0251 03938000 * ADDRESS OF THE UCB WITH A 0251 03939000 * DEVICE INDEX OF 1. ICB480*/ 03940000 * 0251 03941000 */* **************************************************************** */ 03942000 */* */ 03943000 */* 3704, 3705 TELEPROCESSING DEVICE */ 03944000 */* UCB SEGMENT */ 03945000 */* */ 03946000 *DECLARE 1 UCBOBS07 0252 03947000 * DEF(UCBDEV) BDY(WORD), /* DEVICE-DEPENDENT SEGMENT */ 03948000 * 0252 03949000 */* **************************************************************** */ 03950000 */* */ 03951000 * 2 UCBRV040 PTR(31), /* RESERVED FOR USE AS 0252 03952000 * TELEPROCESSING EXTENSION 0252 03953000 * POINTER MDC185*/ 03954000 * 2 UCBICNCB PTR(31); /* POINTER TO VTAM'S ICNCB MDC186*/ 03955000 * 0252 03956000 */* **************************************************************** */ 03957000 */* */ 03958000 */* CHANNEL-TO-CHANNEL (CTC) DEVICE */ 03959000 */* UCB SEGMENT */ 03960000 */* */ 03961000 *DECLARE 1 UCBOBS08 0253 03962000 * DEF(UCBDEV) BDY(WORD), /* DEVICE-DEPENDENT SEGMENT */ 03963000 * 0253 03964000 */* **************************************************************** */ 03965000 */* */ 03966000 * 2 UCBCTCAD PTR(31), /* ADDRESS OF AN SRB/IOSB TO BE 0253 03967000 * USED FOR SENSE COMMAND BYTE BY 03968000 * IECTCATN IF UCBCTC80 BIT IS SET 03969000 * TO ZERO (MDC343) @Z40JP9A*/ 03970000 * 3 UCBCTCAL PTR(31), /* ADDRESS OF JES3 ROUTINE FOR 0253 03971000 * SWITCHING TO ALTERNATE PATH CTC 03972000 * IF UCBCTC80 BIT IS SET TO ONE 03973000 * (MDC344) @Z40JP9A*/ 03974000 * 2 UCBCTCF1 BIT(8), /* CHANNEL-TO-CHANNEL (CTC) DEVICE 03975000 * FLAG BYTE MDC241*/ 03976000 * 3 UCBCTC80 BIT(1), /* IF THIS BIT IS ON, ABOVE WORD 03977000 * HAS UCBCTCAL MEANING. IF THIS 03978000 * BIT IS OFF, ABOVE WORD HAS 0253 03979000 * UCBCTCAD MEANING. 0253 03980000 * (MDC345) @Z40JP9A*/ 03981000 * 3 UCBRV076 BIT(1), /* RESERVED @Z40JP9A*/ 03982000 * 3 UCBRV077 BIT(1), /* RESERVED @Z40JP9A*/ 03983000 * 3 UCBRV078 BIT(1), /* RESERVED @Z40JP9A*/ 03984000 * 3 UCBRV079 BIT(1), /* RESERVED @Z40JP9A*/ 03985000 * 3 UCBRV080 BIT(1), /* RESERVED @Z40JP9A*/ 03986000 * 3 UCBRV081 BIT(1), /* RESERVED @Z40JP9A*/ 03987000 * 3 UCBRV082 BIT(1), /* RESERVED @Z40JP9A*/ 03988000 * 2 UCBRV042 CHAR(3); /* RESERVED MDC242*/ 03989000 * 0253 03990000 */* **************************************************************** */ 03991000 */* */ 03992000 */* 3851 DEVICE */ 03993000 */* UCB SEGMENT */ 03994000 */* */ 03995000 *DECLARE 1 UCBOBS09 0254 03996000 * DEF(UCBDEV) BDY(WORD), /* DEVICE-DEPENDENT SEGMENT */ 03997000 * 0254 03998000 */* **************************************************************** */ 03999000 */* */ 04000000 * 2 UCBIOSBA PTR(31), /* ADDRESS OF IOSB. SET BY IOS 0254 04001000 * FOR ERROR CONDITIONS. 0254 04002000 * (MDC330) @Z30LP9A*/ 04003000 * 2 UCBRV066 PTR(31); /* RESERVED (MDC331) @Z30LP9A*/ 04004000 * 0254 04005000 * 0254 04006000 */* **************************************************************** */ 04007000 */* */ 04008000 */* UNIT CONTROL BLOCK EXTENSIONS */ 04009000 */* */ 04010000 */* **************************************************************** */ 04011000 * 0255 04012000 */* **************************************************************** */ 04013000 */* */ 04014000 */* COMMON UCB EXTENSION */ 04015000 */* */ 04016000 */* THIS EXTENSION IS POINTED TO BY THE UCBEXTPT FIELD IN THE */ 04017000 */* COMMON SEGMENT AND IS NOT CONTIGUOUS TO THE UCB. */ 04018000 */* */ 04019000 *DECLARE 0255 04020000 * 1 UCBCMEXT BASED(UCBEXTPT) BDY(WORD), /* MDC225*/ 04021000 * 0255 04022000 */* **************************************************************** */ 04023000 */* */ 04024000 * 2 UCBETI PTR(8) BDY(WORD),/* A BINARY NUMBER USED BY THE 0255 04025000 * EXIT EFFECTOR ROUTINE TO 0255 04026000 * COMPLETE THE 8-BYTE NAME OF AN 04027000 * IBM-SUPPLIED ERROR ROUTINE FOR 04028000 * THIS DEVICE MDC209*/ 04029000 * 2 UCBSTI PTR(8), /* INCREMENT WHICH, WHEN 0255 04030000 * MULTIPLIED BY 10, BECOMES AN 0255 04031000 * INDEX TO THE STATISTICS TABLE 04032000 * (STATAB) MDC210*/ 04033000 * 2 UCBDTI PTR(8), /* INDEX TO THE DEVICE TABLE 0255 04034000 * MDC211*/ 04035000 * 2 UCBATI PTR(8), /* INDEX TO THE ATTENTION TABLE 0255 04036000 * (ANTAB) MDC212*/ 04037000 * 3 * BIT(8), /* OPTIONAL JOB ENTRY SUBSYSTEM 0255 04038000 * (JES) FLAG BYTE ICB455*/ 04039000 * 4 UCBRSV04 BIT(1), /* RESERVED */ 04040000 * 4 UCBRSV05 BIT(1), /* RESERVED */ 04041000 * 4 UCBRSV06 BIT(1), /* RESERVED */ 04042000 * 4 UCBRSV07 BIT(1), /* RESERVED */ 04043000 * 4 UCBRSV08 BIT(1), /* RESERVED */ 04044000 * 4 UCBRSV09 BIT(1), /* RESERVED */ 04045000 * 4 UCBHALI BIT(1), /* OPTIONAL JOB ENTRY SUBSYSTEM 0255 04046000 * (JES) ALLOCATION INDICATOR 0255 04047000 * MDC213*/ 04048000 * 4 UCBHPDV BIT(1), /* OPTIONAL JOB ENTRY SUBSYSTEM 0255 04049000 * (JES) PSEUDO-DEVICE MDC214*/ 04050000 * 2 UCBSNSCT PTR(8), /* COUNT OF SENSE BYTES PRESENTED 04051000 * BY THIS DEVICE MDC215*/ 04052000 * 2 UCBFLP1 BIT(8), /* FLAG BYTE MDC216*/ 04053000 * 3 UCBNSRCH BIT(1), /* THE CURRENTLY ALLOCATED VOLUME 04054000 * WAS SPECIFICALLY REQUESTED BY 04055000 * VOLUME SERIAL NUMBER. IT IS 0255 04056000 * NOT AVAILABLE FOR ASSIGNMENT 0255 04057000 * BY OPEN/EOV FOR A NON-SPECIFIC 04058000 * VOLUME REQUEST. MDC217*/ 04059000 * 3 UCBSHRUP BIT(1), /* SHAREABLE WHEN IN UNIPROCESSOR 04060000 * MODE (MDC333) @ZA00805*/ 04061000 * 3 UCBNSWAP BIT(1), /* IF THIS BIT IS ON AND UCBPRES 04062000 * BIT IS ON, THIS FIXED HEAD 0255 04063000 * DEVICE CANNOT BE SWAPPED 0255 04064000 * (MDC364) @ZA16810*/ 04065000 * 3 UCBINHIO BIT(1), /* INHIBIT HIO FROM SVC 33 0255 04066000 * (MDC365) @ZA16811*/ 04067000 * 3 UCBRV033 BIT(1), /* RESERVED MDC163*/ 04068000 * 3 UCBERLOG BIT(1), /* INDICATES PRESENCE OF AN ERROR 04069000 * LOG IN A DEVICE (MDC328) 0255 04070000 * @Z40MP9A*/ 04071000 * 3 UCBRV035 BIT(1), /* RESERVED MDC163*/ 04072000 * 3 UCBRV036 BIT(1), /* RESERVED MDC163*/ 04073000 * 2 UCBRV041 CHAR(2), /* RESERVED MDC226*/ 04074000 * 2 UCBCCWOF FIXED(15), /* OFFSET TO CCW PREFIX MDC218*/ 04075000 * 2 UCBPMSK BIT(16), /* PATH MASK FOR MESSAGES 0255 04076000 * ISSUED MDC219*/ 04077000 * 2 UCBMFCNT FIXED(15), /* MEASUREMENT FACILITIES TOTAL 0255 04078000 * DEVICE SIO COUNT. DURING NIP 04079000 * UCB INITIALIZATION, USED FOR 0255 04080000 * PREVIOUSLY TESTED INDICATOR. 0255 04081000 * MDC220*/ 04082000 * 2 UCBASID FIXED(15), /* ASID OF THE MEMORY TO WHICH 0255 04083000 * THIS DEVICE IS ALLOCATED EXCEPT 04084000 * FOR UNALLOCATED TAPE. FOR 0255 04085000 * UNALLOCATED TAPE, ASID OF THE 04086000 * LAST MEMORY TO WHICH THIS 0255 04087000 * DEVICE WAS ALLOCATED. 0255 04088000 * (MDC348) @ZA05164*/ 04089000 * 2 UCBRV043 CHAR(1), /* RESERVED (MDC249) YM6828*/ 04090000 * 2 UCBWTOID CHAR(3); /* WTO MESSAGE IDENTIFIER 0255 04091000 * (MDC250) YM6828*/ 04092000 * 0255 04093000 */* **************************************************************** */ 04094000 */* */ 04095000 */* MAGNETIC TAPE */ 04096000 */* UCB EXTENSION */ 04097000 */* */ 04098000 */* THIS EXTENSION IS POINTED TO BY THE UCBXTN FIELD OF THE */ 04099000 */* UCB AND IS NOT CONTIGUOUS TO THE UCB. */ 04100000 */* */ 04101000 *DECLARE 0256 04102000 * 1 UCBMT BASED(UCBXTN) BDY(WORD), 0256 04103000 * 0256 04104000 */* **************************************************************** */ 04105000 */* */ 04106000 * 2 UCBCTD FIXED(15), /* SERIAL NUMBER IN BINARY OF TAPE 04107000 * DRIVE UPON WHICH THE VOLUME 0256 04108000 * WAS CREATED MDC097*/ 04109000 * 2 UCBTRT PTR(8), /* TEMPORARY READ ERROR THRESHOLD 04110000 * (IF 0, EVA IS NOT IN EFFECT). 04111000 * A BINARY NUMBER FROM 1 THROUGH 04112000 * 255 AS SELECTED AT SYSGEN TIME 04113000 * ON THE SCHEDULR MACRO BY 0256 04114000 * EVA=(N1,N2) WHERE N1 = TEMPORARY 04115000 * READ ERROR THRESHOLD. MDC097*/ 04116000 * 2 UCBTWT PTR(8), /* TEMPORARY WRITE ERROR THRESHOLD 04117000 * (IF 0, EVA IS NOT IN EFFECT). 04118000 * A BINARY NUMBER FROM 1 THROUGH 04119000 * 255 AS SELECTED AT SYSGEN TIME 04120000 * ON THE SCHEDULR MACRO BY 0256 04121000 * EVA=(N1,N2) WHERE N2 = TEMPORARY 04122000 * WRITE ERROR THRESHOLD. MDC097*/ 04123000 * 2 UCBTR PTR(8) BDY(WORD),/* THE NUMBER (BINARY) OF 0256 04124000 * TEMPORARY READ ERRORS THAT HAVE 04125000 * OCCURRED MDC097*/ 04126000 * 2 UCBTW PTR(8), /* THE NUMBER (BINARY) OF 0256 04127000 * TEMPORARY WRITE ERRORS THAT 0256 04128000 * HAVE OCCURRED MDC097*/ 04129000 * 2 UCBSIO FIXED(15), /* THE NUMBER (BINARY) OF START 0256 04130000 * I/O OPERATIONS THAT HAVE 0256 04131000 * OCCURRED MDC097*/ 04132000 * 2 UCBPR PTR(8) BDY(WORD),/* THE NUMBER (BINARY) OF 0256 04133000 * PERMANENT READ ERRORS THAT HAVE 04134000 * OCCURRED MDC097*/ 04135000 * 2 UCBPW PTR(8), /* THE NUMBER (BINARY) OF 0256 04136000 * PERMANENT WRITE ERRORS THAT 0256 04137000 * HAVE OCCURRED MDC097*/ 04138000 * 2 UCBNB PTR(8), /* THE NUMBER (BINARY) OF NOISE 0256 04139000 * BLOCKS THAT HAVE BEEN 0256 04140000 * ENCOUNTERED MDC097*/ 04141000 * 2 UCBMS CHAR(1), /* MODE SET OPERATION CODE FOR 0256 04142000 * DATA BLOCKS ON A 3420 MAGNETIC 04143000 * TAPE UNIT MDC097*/ 04144000 * 2 UCBERG FIXED(15) BDY(WORD),/* THE NUMBER (BINARY) OF ERASE 04145000 * GAPS THAT HAVE BEEN 0256 04146000 * ENCOUNTERED MDC097*/ 04147000 * 2 UCBCLN FIXED(15); /* THE NUMBER (BINARY) OF CLEANER 04148000 * ACTIONS THAT HAVE OCCURRED 0256 04149000 * MDC097*/ 04150000 * 0256 04151000 */* **************************************************************** */ 04152000 */* */ 04153000 */* OPTICAL CHARACTER READER (3886) */ 04154000 */* UCB EXTENSION */ 04155000 */* */ 04156000 */* THIS EXTENSION IS POINTED TO BY THE UCBXTADR FIELD OF THE */ 04157000 */* UCB AND IS NOT CONTIGUOUS TO THE UCB. */ 04158000 */* */ 04159000 *DECLARE 0257 04160000 * 1 UCBOCR BASED(UCBXTADR) BDY(WORD), /* MDC024*/ 04161000 * 0257 04162000 */* **************************************************************** */ 04163000 */* */ 04164000 * 2 UCBFRID CHAR(4) BDY(WORD), /* CURRENT FORMAT RECORD ID 0257 04165000 * (FRID) LOADED MDC025*/ 04166000 * 2 UCBRDATA CHAR(4) BDY(WORD); /* COMMAND DATA MDC026*/ 04167000 * 0257 04168000 */* **************************************************************** */ 04169000 */* */ 04170000 */* 3450 DEVICE @Z30OP9A*/ 04171000 */* UCB EXTENSION @Z30OP9A*/ 04172000 */* */ 04173000 */* THIS EXTENSION IS POINTED TO BY THE UCBXTADR FIELD OF THE */ 04174000 */* UCB AND IS NOT CONTIGUOUS TO THE UCB. @Z30OP9A*/ 04175000 */* */ 04176000 *DECLARE 0258 04177000 * 1 UCB3540X BASED(UCBXTADR) BDY(WORD), /* (MDC325) @Z30OP9A*/ 04178000 * 0258 04179000 */* **************************************************************** */ 04180000 */* */ 04181000 * 2 UCBVLSER CHAR(6), /* 3540 VOLID (MDC326) @Z30OP9A*/ 04182000 * 2 UCBDKBYT BIT(8), /* FLAG BYTE (MDC334) @Z30OP9A*/ 04183000 * 3 UCBDKAMX BIT(1), /* IBM-SUPPLIED DISKETTE READER, 04184000 * DISKETTE WRITER OR COPY/RESTORE 04185000 * UTILITIES ARE USING THIS 3540 04186000 * DEVICE (MDC335) @Z30OP9A*/ 04187000 * 3 UCBVLVER BIT(1), /* VOLUME VERIFICATION IS REQUIRED 04188000 * FOR CERTAIN INTERVENTION 0258 04189000 * REQUIRED CONDITIONS WHILE 3540 04190000 * DISKETTE UTILITIES ARE USING 0258 04191000 * THE DEVICE (MDC336) @Z30OP9A*/ 04192000 * 3 UCBRV067 BIT(1), /* RESERVED @Z30OP9A*/ 04193000 * 3 UCBRV068 BIT(1), /* RESERVED @Z30OP9A*/ 04194000 * 3 UCBRV069 BIT(1), /* RESERVED @Z30OP9A*/ 04195000 * 3 UCBRV070 BIT(1), /* RESERVED @Z30OP9A*/ 04196000 * 3 UCBRV071 BIT(1), /* RESERVED @Z30OP9A*/ 04197000 * 3 UCBRV072 BIT(1), /* RESERVED @Z30OP9A*/ 04198000 * 2 UCBRV073 CHAR(1); /* RESERVED @Z30OP9A*/ 04199000 * 0258 04200000 */* **************************************************************** */ 04201000 */* */ 04202000 */* 3800 DEVICE @Z40MP9A*/ 04203000 */* UCB EXTENSION @Z40MP9A*/ 04204000 */* */ 04205000 */* THIS EXTENSION IS POINTED TO BY THE UCBXTADR FIELD OF THE */ 04206000 */* UCB AND IS NOT CONTIGUOUS TO THE UCB. @Z40MP9A*/ 04207000 */* */ 04208000 *DECLARE 0259 04209000 * 1 UCB3800X BASED(UCBXTADR) BDY(WORD), /* (MDC305) @Z40MP9A*/ 04210000 * 0259 04211000 */* **************************************************************** */ 04212000 */* */ 04213000 * 2 UCBOPTNS BIT(8), /* OPTIONAL FEATURES INSTALLED ON 04214000 * PRINTER (MDC306) @Z40MP9A*/ 04215000 * 3 UCBRV051 BIT(1), /* RESERVED @Z40MP9A*/ 04216000 * 3 UCBRV052 BIT(1), /* RESERVED @Z40MP9A*/ 04217000 * 3 UCBRV053 BIT(1), /* RESERVED @Z40MP9A*/ 04218000 * 3 UCBRV054 BIT(1), /* RESERVED @Z40MP9A*/ 04219000 * 3 UCBRV055 BIT(1), /* RESERVED @Z40MP9A*/ 04220000 * 3 UCBRV056 BIT(1), /* RESERVED @Z40MP9A*/ 04221000 * 3 UCBBRSTR BIT(1), /* RESERVED (MDC307) @Z40MP9A*/ 04222000 * 3 UCBRV083 BIT(1), /* RESERVED (MDC308) @Z40MP9A*/ 04223000 * 2 UCBCGMNO PTR(8), /* NUMBER OF WRITEABLE CHARACTER 04224000 * GENERATION MODULES 0259 04225000 * (MDC309) @Z40MP9A*/ 04226000 * 2 UCBRV050 CHAR(1), /* RESERVED (MDC310) @Z40MP9A*/ 04227000 * 2 UCBACTIV BIT(8), /* ACTIVE FEATURES 0259 04228000 * (MDC311) @Z40MP9A*/ 04229000 * 3 UCBRV057 BIT(1), /* RESERVED @Z40MP9A*/ 04230000 * 3 UCBRV058 BIT(1), /* RESERVED @Z40MP9A*/ 04231000 * 3 UCBRV059 BIT(1), /* RESERVED @Z40MP9A*/ 04232000 * 3 UCBRV060 BIT(1), /* RESERVED @Z40MP9A*/ 04233000 * 3 UCBRV061 BIT(1), /* RESERVED @Z40MP9A*/ 04234000 * 3 UCBRV062 BIT(1), /* RESERVED @Z40MP9A*/ 04235000 * 3 UCBRV063 BIT(1), /* RESERVED @Z40MP9A*/ 04236000 * 3 UCBBRSTA BIT(1), /* RESERVED (MDC312) @Z40MP9A*/ 04237000 * 2 UCBCGMID (4) CHAR(1), /* FOUR ONE-BYTE ID'S FOR 0259 04238000 * CHARACTER MODULES LOADED IN 0259 04239000 * WRITEABLE CHARACTER GENERATION 04240000 * MODULES (WCGM'S) 0259 04241000 * (MDC313) @Z40MP9A*/ 04242000 * 2 UCBCHAR1 CHAR(4) BDY(WORD), /* NAME OF FIRST TRANSLATE TABLE 04243000 * (MDC314) @Z40MP9A*/ 04244000 * 2 UCBCHAR2 CHAR(4) BDY(WORD), /* NAME OF SECOND TRANSLATE TABLE 04245000 * (MDC315) @Z40MP9A*/ 04246000 * 2 UCBCHAR3 CHAR(4) BDY(WORD), /* NAME OF THIRD TRANSLATE TABLE 04247000 * (MDC316) @Z40MP9A*/ 04248000 * 2 UCBCHAR4 CHAR(4) BDY(WORD), /* NAME OF FOURTH TRANSLATE TABLE 04249000 * (MDC317) @Z40MP9A*/ 04250000 * 2 UCBFCBNM CHAR(4) BDY(WORD), /* FORMS CONTROL BUFFER (FCB) 0259 04251000 * IMAGE NAME (MDC318) @Z40MP9A*/ 04252000 * 2 UCBIMAGE CHAR(4) BDY(WORD), /* FORMS OVERLAY IMAGE 0259 04253000 * IDENTIFICATION 0259 04254000 * (MDC319) @Z40MP9A*/ 04255000 * 2 UCBRV074 PTR(31), /* RESERVED (MDC338) @Z40MP9A*/ 04256000 * 2 UCBMDRBF PTR(31), /* MISCELLANEOUS DATA RECORDING 0259 04257000 * (MDR) BUFFER ADDRESS 0259 04258000 * (MDC339) @Z40MP9A*/ 04259000 * 3 UCBRV075 PTR(8), /* RESERVED (MDC340) @Z40MP9A*/ 04260000 * 3 UCBMDRBA PTR(24); /* MDR BUFFER ADDRESS 0259 04261000 * (MDC341) @Z40MP9A*/ 04262000 * 0259 04263000 */* **************************************************************** */ 04264000 */* */ 04265000 */* UNIT RECORD WITH */ 04266000 */* UNIVERSAL CHARACTER SET (1403, 3211) */ 04267000 */* UCB EXTENSION */ 04268000 */* */ 04269000 */* THIS EXTENSION IS POINTED TO BY THE UCBXTADR FIELD OF THE */ 04270000 */* UCB AND IS NOT CONTIGUOUS TO THE UCB. */ 04271000 */* */ 04272000 *DECLARE 1 UCBUCS 0260 04273000 * BASED(UCBXTADR) BDY(WORD), /* DEVICE DEPENDENT SEGMENT */ 04274000 * 0260 04275000 */* **************************************************************** */ 04276000 * 0260 04277000 * 2 UCBUCSID CHAR(4) BDY(WORD),/* UCS IMAGE IDENTIFICATION IN 0260 04278000 * BUFFER */ 04279000 * 2 UCBUCSOP BIT(8), /* FORMAT OF UCS IMAGE IN BUFFER 04280000 * (O FOR OPTION) */ 04281000 * 3 UCBUCSO1 BIT(1), /* UCS IMAGE IS A DEFAULT IMAGE */ 04282000 * 3 UCBUCSO2 BIT(1), /* UCS IMAGE IS IN FOLD MODE */ 04283000 * 3 UCBRSV39 BIT(1), /* RESERVED */ 04284000 * 3 UCBRSV40 BIT(1), /* RESERVED */ 04285000 * 3 UCBRSV41 BIT(1), /* RESERVED */ 04286000 * 3 UCBRSV42 BIT(1), /* RESERVED */ 04287000 * 3 UCBRSV43 BIT(1), /* RESERVED */ 04288000 * 3 UCBUCSPE BIT(1), /* UCS IMAGE HAS PARITY ERROR 0260 04289000 * (3211) */ 04290000 * 2 UCBFCBOP BIT(8), /* RESERVED (1403) OR FCB OPTIONS 04291000 * (3211) (O FOR OPTION) */ 04292000 * 3 UCBFCBO1 BIT(1), /* FCB IMAGE IS A DEFAULT IMAGE */ 04293000 * 3 UCBRSV44 BIT(1), /* RESERVED */ 04294000 * 3 UCBRSV45 BIT(1), /* RESERVED */ 04295000 * 3 UCBRSV46 BIT(1), /* RESERVED */ 04296000 * 3 UCBRSV47 BIT(1), /* RESERVED */ 04297000 * 3 UCBRSV48 BIT(1), /* RESERVED */ 04298000 * 3 UCBRSV49 BIT(1), /* RESERVED */ 04299000 * 3 UCBFCBPE BIT(1), /* FCB IMAGE HAS PARITY ERROR 0260 04300000 * (MDC372) @ZA26074*/ 04301000 * 2 UCBRSV51 PTR(8), /* RESERVED */ 04302000 * 2 UCBERCNT PTR(8), /* CONTAINS A COUNT OF THE ERRORS 04303000 * THAT HAVE OCCURRED. THE COUNT, 04304000 * WHICH MAY WRAP AROUND, IS 0260 04305000 * WRITTEN IN STANDARD OBR RECORDS 04306000 * (ONE PER ERROR) AND IN NEW 0260 04307000 * DEVICE-DEPENDENT OBR RECORDS (0 04308000 * TO 3 PER ERROR) AND SERVE TO 0260 04309000 * RELATE TO EACH OTHER THE 0260 04310000 * STANDARD AND DEVICE-DEPENDENT 04311000 * OBR RECORDS THAT PERTAIN TO 0260 04312000 * EACH ERROR (3211) */ 04313000 * 2 UCBFCBID CHAR(4) BDY(WORD),/* THE FCB IMAGE IDENTIFICATION */ 04314000 * 2 UCBERADR PTR(31); /* THE ADDRESS OF THE ERP LOGOUT 04315000 * AREA */ 04316000 * 0260 04317000 * 0260 04318000 *DECLARE UCBBGN BASED(UCBPTR-512) CHAR(536) BDY(WORD); 0261 04319000 * 0262 04320000 * 0262 04321000 */* **************************************************************** */ 04322000 */* */ 04323000 */* JOB FILE CONTROL BLOCK */ 04324000 */* */ 04325000 */* OS/VS2 RELEASE 3.0 AND 3.7 PTF, 03/16/77, LEVEL=1 */ 04326000 */* */ 04327000 */* METHOD OF ACCESS */ 04328000 */* BAL - A DSECT CARD SHOULD PRECEDE MACRO CALL. USING ON */ 04329000 */* INFMJFCB GIVES ADDRESSABILITY FOR ALL SYMBOLS. */ 04330000 */* PL/S - DCL JFCBPTR PTR */ 04331000 */* */ 04332000 */* F.E.'S */ 04333000 */* MICROFICHE LISTING - IEFJFCBN */ 04334000 */* */ 04335000 */* DEVELOPERS */ 04336000 */* BAL LISTING - SPECIFY LIST=YES ON MACRO CALL. */ 04337000 */* PL/S LISTING - SPECIFY %IHALIST='YES' BEFORE INCLUDE. */ 04338000 */* */ 04339000 */* FOR INTEGRATION A LISTING SHOULD NOT BE REQUESTED. */ 04340000 */* **************************************************************** */ 04341000 * 0262 04342000 *DECLARE 0262 04343000 * 1 INFMJFCB BASED(JFCBPTR) BDY(WORD), 0262 04344000 * 2 JFCBDSNM CHAR(44) BDY(WORD), /* DATA SET NAME */ 04345000 * 3 JFCBQNAM CHAR(8) BDY(WORD), /* PROCESS QUEUE NAME SPECIFIED BY 04346000 * THE QNAME KEYWORD (TCAM) */ 04347000 * 2 JFCBELNM CHAR(8) BDY(WORD), /* ELEMENT NAME OR RELATIVE 0262 04348000 * GENERATION NUMBER. TYPE OF 0262 04349000 * AREA (INDEX, PRIME OR OVERFLOW) 04350000 * FOR AN INDEXED SEQUENTIAL DATA 04351000 * SET ONLY. */ 04352000 * 3 JFCIPLTX CHAR(7) BDY(WORD), /* MODULE NAME OF NETWORK CONTROL 04353000 * PROGRAM (TCAM) ICB391*/ 04354000 * 2 JFCBTSDM BIT(8), /* JOB MANAGEMENT/DATA MANAGEMENT 04355000 * INTERFACE */ 04356000 * 3 JFCCAT BIT(1), /* DATA SET IS CATALOGED */ 04357000 * 3 JFCVSL BIT(1), /* VOLUME SERIAL LIST HAS BEEN 0262 04358000 * CHANGED */ 04359000 * 3 JFCSDS BIT(1), /* DATA SET IS A SYSIN OR SYSOUT 04360000 * DATA SET */ 04361000 * 3 JFCTTR BIT(1), /* A JOB STEP IS TO BE RESTARTED. 04362000 * USE JFCBOTTR INSTEAD OF 0262 04363000 * DS1LSTAR FIELD TO REPOSITION 0262 04364000 * DATA SET IF AUTOMATIC STEP 0262 04365000 * RESTART OCCURS. (THIS JOB HAD 04366000 * ABEND PROCESSING FOR A DATA SET 04367000 * OPENED FOR MOD.) */ 04368000 * 3 JFCNWRIT BIT(1), /* DO NOT WRITE BACK THE JFCB 0262 04369000 * DURING OPEN PROCESSING */ 04370000 * 3 JFCNDSCB BIT(1), /* DO NOT MERGE DSCB OR LABEL 0262 04371000 * FIELDS INTO THIS JFCB */ 04372000 * 3 JFCNDCB BIT(1), /* DO NOT MERGE DCB FIELDS INTO 0262 04373000 * THIS JFCB */ 04374000 * 3 JFCPAT BIT(1), /* THE PATTERNING DSCB IS COMPLETE*/ 04375000 * 2 JFCBDSCB CHAR(3) BDY(WORD,2),/* TTR ADDRESS OF THE FORMAT 1 0262 04376000 * DSCB FOR DATA SET PART ON THE 04377000 * FIRST VOLUME OF THE DATA SET 0262 04378000 * ICB398*/ 04379000 * 2 JFCFCBID CHAR(4) BDY(WORD), /* FORMS CONTROL BUFFER IMAGE 0262 04380000 * IDENTIFICATION FOR THE 3211 0262 04381000 * PRINTER OR DATA PROTECTION 0262 04382000 * IMAGE IDENTIFICATION FOR THE 0262 04383000 * 3525 CARD PUNCH WITH THE READ 04384000 * AND PRINT FEATURES OR FORMAT 0262 04385000 * RECORD ID MDC007*/ 04386000 * 3 JFCBFRID CHAR(4) BDY(WORD), /* LAST 4 CHARACTERS OF A PDS 0262 04387000 * MEMBER TO BE USED IN THE 0262 04388000 * INTERPRETATION OF DOCUMENTS 0262 04389000 * READ BY 3886 DEVICE FOR THIS 0262 04390000 * STEP MDC024*/ 04391000 * 4 JFCAMCRO CHAR(2) BDY(WORD), /* VSAM CHECKPOINT/RESTART OPTION 04392000 * INDICATORS ICB438*/ 04393000 * 4 JFCAMSTR FIXED(15) BDY(WORD,3), /* NUMBER OF STRINGS ICB438*/ 04394000 * 2 JFCBADBF FIXED(15) BDY(WORD), /* NUMBER OF DATA BUFFERS ICB438*/ 04395000 * 2 JFCNLREC FIXED(15) BDY(WORD,3), /* LOGICAL RECORD LENGTH FOR 0262 04396000 * VSAM ICB438*/ 04397000 * 2 JFCVINDX FIXED(15) BDY(WORD), /* MASS STORAGE SYSTEM 0262 04398000 * COMMUNICATOR (MSSC) VOLUME 0262 04399000 * SELECTION INDEX 0262 04400000 * (MDC308) @Z30LP9A*/ 04401000 * 2 JFCBLTYP BIT(8) BDY(WORD,3), /* LABEL TYPE */ 04402000 * 3 JFCRSV38 BIT(1), /* RESERVED */ 04403000 * 3 JFCBAL BIT(1), /* AMERICAN NATIONAL STANDARD TAPE 04404000 * LABELS (AL OR IF BIT 4 IS ALSO 04405000 * ON, AUL) */ 04406000 * 3 JFCBLTM BIT(1), /* UNLABELLED TAPE CREATED BY DOS 04407000 * MAY HAVE LEADING TAPE MARK. 0262 04408000 * OPEN/CLOSE/EOV AND RESTART MUST 04409000 * SPACE OVER A TAPE MARK IF ONE 04410000 * EXISTS. ICB398*/ 04411000 * 3 JFCBLP BIT(1), /* BYPASS LABEL PROCESSING */ 04412000 * 3 JFCSUL BIT(1), /* USER LABEL */ 04413000 * 3 JFCNSL BIT(1), /* NONSTANDARD LABEL */ 04414000 * 3 JFCSL BIT(1), /* STANDARD LABEL */ 04415000 * 3 JFCNL BIT(1), /* NO LABEL */ 04416000 * 2 JFCBOTTR CHAR(3) BDY(WORD,4),/* DASD MOD DATA SET - IF AUTOMATIC 04417000 * STEP RESTART WAS REQUESTED, TTR 04418000 * OF THE END-OF-DATA INDICATOR 0262 04419000 * EXISTING WHEN THE DATA SET WAS 04420000 * FIRST OPENED DURING THE 0262 04421000 * ORIGINAL EXECUTION OF THE 0262 04422000 * CURRENT STEP */ 04423000 * 3 JFCBUFOF PTR(8), /* TAPE DATA SET - THIS FIELD 0262 04424000 * CONTAINS THE BUFFER OFFSET (DCB 04425000 * SUBPARAMETER VALUE) */ 04426000 * 4 JFCBFOFL BIT(1), /* IF 1, THE OFFSET EQUALS FOUR 0262 04427000 * AND THE BUFFER OFFSET FIELD OF 04428000 * EACH BLOCK (D-FORMAT RECORDS) 04429000 * CONTAINS THE BLOCK LENGTH 0262 04430000 * (SPECIFIED BY BUFOFF=L). 0262 04431000 * IF 0, THE OFFSET IS AS 0262 04432000 * SPECIFIED IN THE REMAINING 0262 04433000 * SEVEN BITS AND THE BUFFER 0262 04434000 * OFFSET FIELD OF EACH BLOCK DOES 04435000 * NOT CONTAIN THE BLOCK LENGTH. */ 04436000 * 3 JFCBFLSQ FIXED(15), /* FOR MAGNETIC TAPE DEVICES, 0262 04437000 * FILE SEQUENCE NUMBER */ 04438000 * 4 JFCFUNC BIT(8), /* FUNCTION INDICATORS FOR THE 0262 04439000 * 3525 CARD PUNCH (SPECIFIED BY 04440000 * THE FUNC PARAMETER) ICB392*/ 04441000 * 5 JFCFNCBI BIT(1), /* I - INTERPRET (PUNCH AND PRINT 04442000 * TWO LINES) ICB392*/ 04443000 * 5 JFCFNCBR BIT(1), /* R - READ ICB392*/ 04444000 * 5 JFCFNCBP BIT(1), /* P - PUNCH ICB392*/ 04445000 * 5 JFCFNCBW BIT(1), /* W - PRINT ICB392*/ 04446000 * 5 JFCFNCBD BIT(1), /* D - DATA PROTECTION ICB392*/ 04447000 * 5 JFCFNCBX BIT(1), /* X - THIS DATA SET IS TO BE 0262 04448000 * PRINTED. THIS MAY BE CODED 0262 04449000 * WITH PW OR RPW TO DISTINGUISH 04450000 * THE DATA SET TO BE PRINTED FROM 04451000 * THE DATA SET TO BE PUNCHED. 0262 04452000 * ICB392*/ 04453000 * 5 JFCFNCBT BIT(1), /* T - TWO-LINE PRINT SUPPORT 0262 04454000 * REQUEST. THE SECOND PRINT LINE 04455000 * IS LOCATED ON CARD LINE THREE. 04456000 * ICB392*/ 04457000 * 5 JFCRSV31 BIT(1), /* RESERVED ICB392*/ 04458000 * 2 JFCBVLSQ FIXED(15), /* VOLUME SEQUENCE NUMBER */ 04459000 * 2 JFCBMASK CHAR(8) BDY(WORD), /* DATA MANAGEMENT TASK */ 04460000 * 3 JFCBOPS1 CHAR(5), /* OPEN ROUTINE INTERNAL SWITCHES */ 04461000 * 3 JFCBFLG1 BIT(8), /* FLAG BYTE */ 04462000 * 4 JFCSTAND BIT(1), /* VOLUME LABEL PROCESSING 0262 04463000 * STANDARD */ 04464000 * 4 JFCSLCRE BIT(1), /* CREATION OF A STANDARD LABEL 0262 04465000 * IS NECESSARY */ 04466000 * 4 JFCSLDES BIT(1), /* DESTRUCTION OF A STANDARD LABEL 04467000 * IS NECESSARY */ 04468000 * 4 JFCDUAL BIT(1), /* DUAL-DENSITY CHECK DETECTED */ 04469000 * 4 JFCOPEN BIT(4), /* OPEN ROUTINE INTERNAL SWITCHES */ 04470000 * 5 * BIT(3), /* OPEN ROUTINE INTERNAL SWITCHES */ 04471000 * 5 JFCBPWBP BIT(1), /* PASSWORD BYPASS INDICATOR 0262 04472000 * MDC010*/ 04473000 * 3 JFCBFLG2 BIT(8), /* FLAG BYTE OF OPEN SWITCHES */ 04474000 * 4 JFCINOP BIT(1), /* TREAT THE INOUT OPTION OF OPEN 04475000 * AS INPUT */ 04476000 * 4 JFCOUTOP BIT(1), /* TREAT THE OUTIN OPTION OF OPEN 04477000 * AS OUTPUT */ 04478000 * 4 JFCDEFER BIT(1), /* SET ONLY IN A JFCB RECORDED IN 04479000 * A DATA SET DESCRIPTOR RECORD 0262 04480000 * (DSDR) BY THE CHECKPOINT 0262 04481000 * ROUTINE. INDICATES THAT THE 0262 04482000 * DATA SET RELATED TO THE JFCB IS 04483000 * BEING PROCESSED SEQUENTIALLY, 04484000 * AT THE CHECKPOINT, ON A VOLUME 04485000 * OTHER THAN THE VOLUME ON WHICH 04486000 * PROCESSING BEGAN IN THE CURRENT 04487000 * STEP. WHEN RESTART OCCURS, 0262 04488000 * THIS BIT CAUSES DEFERRED VOLUME 04489000 * MOUNTING. */ 04490000 * 5 JFCNRPS BIT(1), /* USE BY OPEN ROUTINES - SET TO 04491000 * INDICATE THAT THIS DATA SET 0262 04492000 * RESIDES ON A NON-RPS DEVICE. 0262 04493000 * RESET TO ZERO WHEN OPEN 0262 04494000 * PROCESSING IS COMPLETED. ICB495*/ 04495000 * 4 JFCMODNW BIT(1), /* DISPOSITION OF THIS DATA SET 0262 04496000 * HAS BEEN CHANGED FROM MOD TO 0262 04497000 * NEW. DISPOSITION (IN JFCBIND2) 04498000 * WILL BE RESTORED TO MOD AFTER 04499000 * OPEN. */ 04500000 * 4 JFCSDRPS BIT(1), /* USE SEARCH DIRECT FOR 0262 04501000 * ROTATIONAL POSITION SENSING 0262 04502000 * (RPS) DEVICES ICB398*/ 04503000 * 4 JFCTRACE BIT(1), /* GTF TRACE IS TO OCCUR DURING 0262 04504000 * OPEN/CLOSE/EOV AND DYNAMIC 0262 04505000 * ALLOCATION PROCESSING OF DCB 0262 04506000 * ICB392*/ 04507000 * 4 JFCBBUFF BIT(1), /* INDICATOR TO OPEN THAT A 0262 04508000 * NON-ZERO VALUE IN JFCBOTTR IS 04509000 * NOT TO PREVENT THE NORMAL 0262 04510000 * STORING BY OPEN OF A TTR IN 0262 04511000 * JFCBOTTR. BEFORE OPEN - 0262 04512000 * JFCBUFOF (OFFSET 67) CONTAINS 04513000 * A BUFFER OFFSET OR INVALID 0262 04514000 * INFORMATION RESULTING FROM A 0262 04515000 * JFCB-TO-JFCB MERGE. AFTER 0262 04516000 * OPEN - OPEN MAY HAVE STORED A 04517000 * TTR IN JFCBOTTR (OFFSET 67), IN 04518000 * WHICH CASE OPEN WILL HAVE SET 04519000 * THIS BIT TO ZERO. */ 04520000 * 4 JFCRCTLG BIT(1), /* OPEN HAS UPDATED THE TTR. 0262 04521000 * SCHEDULER STEP TERMINATION 0262 04522000 * ROUTINE IS TO RECATALOG THIS 0262 04523000 * DATA SET AND PLACE IN THE 0262 04524000 * CATALOG ENTRY THE DSCB TTR 0262 04525000 * CONTAINED IN JFCBDSCB IF THIS 04526000 * DATA SET IS CATALOGED. ICB398*/ 04527000 * 3 JFCBOPS2 BIT(8), /* OPEN ROUTINE INTERNAL SWITCHES */ 04528000 * 2 JFCBCRDT CHAR(3) BDY(WORD), /* DATA SET CREATION DATE (YDD, 0262 04529000 * Y=YEAR AND DD=DAY) */ 04530000 * 2 JFCBXPDT CHAR(3) BDY(WORD,4),/* DATA SET EXPIRATION DATE (YDD) */ 04531000 * 2 JFCBIND1 BIT(8), /* INDICATOR BYTE 1 */ 04532000 * 3 JFCRLSE BIT(2), /* RELEASE EXTERNAL STORAGE */ 04533000 * 3 JFCLOC BIT(2), /* DATA SET HAS BEEN LOCATED */ 04534000 * 3 JFCADDED BIT(2), /* NEW VOLUME HAS BEEN ADDED TO 0262 04535000 * THE DATA SET */ 04536000 * 3 JFCGDG BIT(1), /* DATA SET IS A MEMBER OF A 0262 04537000 * GENERATION DATA GROUP */ 04538000 * 3 JFCPDS BIT(1), /* DATA SET IS A MEMBER OF A 0262 04539000 * PARTITIONED DATA SET */ 04540000 * 2 JFCBIND2 BIT(8), /* INDICATOR BYTE 2 */ 04541000 * 3 JFCDISP BIT(2), /* BIT PATTERN FOR NEW, MOD, OLD */ 04542000 * 3 JFCSECUR BIT(2), /* DATA SET SECURITY */ 04543000 * 3 JFCSHARE BIT(1), /* SHARED DATA SET */ 04544000 * 3 JFCENT BIT(1), /* DELETE THIS JFCB BEFORE 0262 04545000 * ALLOCATION FOR A RESTARTED 0262 04546000 * GENERATION DATA GROUP */ 04547000 * 3 JFCREQ BIT(1), /* STORAGE VOLUME REQUESTED */ 04548000 * 3 JFCTEMP BIT(1), /* TEMPORARY DATA SET */ 04549000 * 2 JFCAMPTR PTR(31), /* POINTER TO AMPBLK FOR 0262 04550000 * ADDITIONAL VSAM PARAMETERS 0262 04551000 * ICB438*/ 04552000 * 3 JFCBUFRQ CHAR(1), /* NUMBER OF BUFFERS REQUIRED FOR 04553000 * EACH LINE (QTAM) */ 04554000 * 4 JFCBUFNO CHAR(1), /* NUMBER OF BUFFERS REQUIRED FOR 04555000 * THIS DATA SET (ACCESS METHODS 04556000 * OTHER THAN TCAM AND QTAM) */ 04557000 * 5 JFCBUFIN BIT(4), /* THE NUMBER OF BUFFERS ASSIGNED 04558000 * INITIALLY FOR RECEIVING 0262 04559000 * OPERATIONS FOR EACH LINE IN A 04560000 * LINE GROUP (TCAM) MDC021*/ 04561000 * 5 JFCBFOUT BIT(4), /* THE NUMBER OF BUFFERS ASSIGNED 04562000 * INITIALLY FOR SENDING 0262 04563000 * OPERATIONS FOR EACH LINE IN A 04564000 * LINE GROUP (TCAM) MDC022*/ 04565000 * 3 JFCBGNCP PTR(8), /* FOR GAM, THIS FIELD IS USED FOR 04566000 * THE NUMBER OF IOB'S CONSTRUCTED 04567000 * BY THE OPEN ROUTINE. MAXIMUM 04568000 * NUMBER IS 99. MDC025*/ 04569000 * 4 JFCBHIAR CHAR(1), /* BUFFER POOL LOCATION IN MAIN 0262 04570000 * STORAGE (HIERARCHY) */ 04571000 * 5 JFCBFALN CHAR(1), /* BUFFER ALIGNMENT */ 04572000 * 6 JFCBFTEK BIT(8), /* BUFFERING TECHNIQUE */ 04573000 * 7 JFCHIER BIT(1), /* BITS 0 AND 5 DESCRIBE MAIN 0262 04574000 * STORAGE HIERARCHY. BOTH BITS 04575000 * OFF, HIERARCHY 0. BIT 0 OFF 0262 04576000 * AND BIT 5 ON, HIERARCHY 1. */ 04577000 * 7 JFCBBFTA BIT(2), /* A - FOR QSAM LOCATE MODE 0262 04578000 * PROCESSING OF SPANNED RECORDS, 04579000 * AUTOMATIC RECORD AREA 0262 04580000 * CONSTRUCTION DURING LOGICAL 0262 04581000 * RECORD INTERFACE PROCESSING. 0262 04582000 * OPEN IS TO CONSTRUCT A RECORD 04583000 * AREA IF IT AUTOMATICALLY 0262 04584000 * CONSTRUCTS BUFFERS. */ 04585000 * 8 JFCSIM BIT(1), /* S - SIMPLE BUFFERING */ 04586000 * 8 JFCBBFTR BIT(1), /* R - FOR BSAM CREATE BDAM 0262 04587000 * PROCESSING OR BDAM PROCESSING 04588000 * OF UNBLOCKED SPANNED RECORDS, 04589000 * SOFTWARE TRACK OVERFLOW. OPEN 04590000 * FORMS A SEGMENT WORK AREA POOL 04591000 * AND STORES THE ADDRESS OF THE 04592000 * SEGMENT WORK AREA CONTROL BLOCK 04593000 * IN THE DCBEOBW FIELD OF THE 0262 04594000 * DATA CONTROL BLOCK. WRITE USES 04595000 * A SEGMENT WORK AREA TO WRITE A 04596000 * RECORD AS ONE OR MORE SEGMENTS. 04597000 * FOR BSAM INPUT PROCESSING OF 0262 04598000 * UNBLOCKED SPANNED RECORDS WITH 04599000 * KEYS, RECORD OFFSET PROCESSING. 04600000 * READ READS ONE RECORD SEGMENT 04601000 * INTO THE RECORD AREA. THE 0262 04602000 * FIRST SEGMENT OF A RECORD IS 0262 04603000 * PRECEDED IN THE RECORD AREA BY 04604000 * THE KEY. SUBSEQUENT SEGMENTS 04605000 * ARE AT AN OFFSET EQUAL TO THE 04606000 * KEY LENGTH. */ 04607000 * 7 JFCEXC BIT(1), /* E - EXCHANGE BUFFERING */ 04608000 * 7 JFCDYN BIT(1), /* DYNAMIC BUFFERING */ 04609000 * 7 JFCHIER1 BIT(1), /* HIERARCHY 1 MAIN STORAGE */ 04610000 * 7 JFCDWORD BIT(1), /* D - DOUBLE WORD BOUNDARY */ 04611000 * 7 JFCFWORD BIT(1), /* F - FULL WORD NOT A DOUBLE 0262 04612000 * WORD BOUNDARY */ 04613000 * 3 JFCBUFL FIXED(15) BDY(WORD,3), /* BUFFER LENGTH */ 04614000 * 2 JFCEROPT BIT(8), /* ERROR OPTION. DISPOSITION OF 04615000 * PERMANENT ERRORS IF USER 0262 04616000 * RETURNS FROM A SYNCHRONOUS 0262 04617000 * ERROR EXIT (QSAM) */ 04618000 * 3 JFCACC BIT(1), /* ACCEPT */ 04619000 * 3 JFCSKP BIT(1), /* SKIP */ 04620000 * 3 JFCABN BIT(1), /* ABNORMAL END OF TASK */ 04621000 * 3 JFCTOPT BIT(1), /* ON-LINE TERMINAL TEST 0262 04622000 * (BTAM) ICB349*/ 04623000 * 3 JFCRSV02 BIT(1), /* RESERVED */ 04624000 * 3 JFCRSV03 BIT(1), /* RESERVED */ 04625000 * 3 JFCRSV04 BIT(1), /* RESERVED */ 04626000 * 3 JFCRSV05 BIT(1), /* RESERVED */ 04627000 * 2 JFCTRTCH CHAR(1) BDY(WORD,2);/* TAPE RECORDING TECHNIQUE 0262 04628000 * FOR 7-TRACK TAPE */ 04629000 * 0262 04630000 *DECLARE 0263 04631000 * 1 JFCKEYLE CHAR(1) DEF(JFCTRTCH) BDY(WORD,2), 0263 04632000 * /* DIRECT ACCESS KEY LENGTH */ 04633000 * 2 JFCCODE BIT(8) BDY(BYTE), /* CONVERSION CODE (PAPER TAPE) */ 04634000 * 3 JFCNOCON BIT(1), /* N - NO CONVERSION */ 04635000 * 3 JFCBCD BIT(1), /* I - IBM BCD */ 04636000 * 3 JFCFRI BIT(1), /* F - FRIDEN */ 04637000 * 3 JFCBUR BIT(1), /* B - BURROUGHS */ 04638000 * 3 JFCNCR BIT(1), /* C - NATIONAL CASH REGISTER */ 04639000 * 3 JFCASCII BIT(1), /* A - ASCII (8-TRACK) */ 04640000 * 3 JFCTTY BIT(1), /* T - TELETYPE */ 04641000 * 3 JFCRSV32 BIT(1); /* RESERVED */ 04642000 * 0263 04643000 *DECLARE 0264 04644000 * 1 JFCSTACK BIT(8) DEF(JFCTRTCH) BDY(WORD,2), 0264 04645000 * /* STACKER SELECTION (CARD READER, 04646000 * (CARD PUNCH) */ 04647000 * 2 JFCMODE BIT(8) BDY(WORD,2), /* MODE OF OPERATION (CARD READER, 04648000 * (CARD PUNCH) ICB394*/ 04649000 * 3 JFCBIN BIT(1), /* C - COLUMN BINARY MODE */ 04650000 * 3 JFCEBCD BIT(1), /* E - EBCDIC MODE */ 04651000 * 3 JFCMODEO BIT(1), /* O - OPTICAL MARK READ MODE 0264 04652000 * (3505 ONLY) ICB394*/ 04653000 * 3 JFCMODER BIT(1), /* R - READ COLUMN ELIMINATE MODE 04654000 * (3505 AND 3525 WITH READ 0264 04655000 * FEATURE) ICB394*/ 04656000 * 3 JFCRSV06 BIT(1), /* RESERVED */ 04657000 * 3 JFCRSV07 BIT(1), /* RESERVED */ 04658000 * 3 JFCTWO BIT(1), /* 2 - STACKER TWO */ 04659000 * 3 JFCONE BIT(1); /* 1 - STACKER ONE */ 04660000 * 0264 04661000 *DECLARE 0265 04662000 * 1 JFCSPPRT DEF(JFCTRTCH) BDY(WORD,2), 0265 04663000 * 2 JFCPRTSP BIT(8) BDY(WORD,2), /* NORMAL PRINTER SPACING */ 04664000 * 2 JFCDEN BIT(8), /* TAPE DENSITY - 2400/3400 SERIES 04665000 * MAGNETIC TAPE UNITS */ 04666000 * 2 JFCBABFS PTR(24) BDY(WORD,4),/* TOTAL BUFFER SIZE FOR ALL VSAM 04667000 * BUFFERS ICB438*/ 04668000 * 3 JFCLIMCT CHAR(3) BDY(WORD,4),/* SEARCH LIMIT (BDAM) */ 04669000 * 4 * CHAR(1), /* RESERVED */ 04670000 * 4 JFCTRKBL CHAR(2) BDY(WORD),/* DATA SET OPENED FOR MOD - IF 0265 04671000 * AUTOMATIC STEP RESTART WAS 0265 04672000 * REQUESTED, TRACK BALANCE 0265 04673000 * EXISTING WHEN THE DATA SET WAS 04674000 * FIRST OPENED DURING THE 0265 04675000 * ORIGINAL EXECUTION OF THE 0265 04676000 * CURRENT STEP */ 04677000 * 2 JFCDSORG BIT(16) BDY(WORD,3),/* DATA SET ORGANIZATION BEING 0265 04678000 * USED */ 04679000 * 3 JFCDSRG1 BIT(8), /* BYTE 1 OF JFCDSORG */ 04680000 * 4 JFCORGIS BIT(1), /* INDEXED SEQUENTIAL */ 04681000 * 4 JFCORGPS BIT(1), /* PHYSICAL SEQUENTIAL */ 04682000 * 4 JFCORGDA BIT(1), /* DIRECT */ 04683000 * 4 JFCORGCX BIT(1), /* BTAM OR QTAM LINE GROUP MDC011*/ 04684000 * 4 JFCORGCQ BIT(1), /* QTAM DIRECT ACCESS MESSAGE 0265 04685000 * QUEUE MDC012*/ 04686000 * 4 JFCORGMQ BIT(1), /* QTAM PROBLEM PROGRAM MESSAGE 0265 04687000 * QUEUE MDC013*/ 04688000 * 4 JFCORGPO BIT(1), /* PARTITIONED */ 04689000 * 4 JFCORGU BIT(1), /* UNMOVABLE - THE DATA CONTAINS 04690000 * LOCATION DEPENDENT INFORMATION */ 04691000 * 3 JFCDSRG2 BIT(8), /* BYTE 2 OF JFCDSORG */ 04692000 * 4 JFCORGGS BIT(1), /* GRAPHICS */ 04693000 * 4 JFCORGTX BIT(1), /* TCAM LINE GROUP MDC014*/ 04694000 * 4 JFCORGTQ BIT(1), /* TCAM MESSAGE QUEUE MDC015*/ 04695000 * 4 JFCRSV13 BIT(1), /* RESERVED, BINARY ZERO */ 04696000 * 4 JFCORGAM BIT(1), /* VSAM ICB438*/ 04697000 * 4 JFCORGTR BIT(1), /* TCAM 3705 MDC016*/ 04698000 * 4 JFCRSV15 BIT(1), /* RESERVED, BINARY ZERO */ 04699000 * 4 JFCRSV16 BIT(1), /* RESERVED, BINARY ZERO */ 04700000 * 2 JFCRECFM BIT(8) BDY(WORD), /* RECORD FORMAT */ 04701000 * 3 JFCRCFM BIT(3), /* RECORD FORMAT (USASI/USASCII) 04702000 * MDC023*/ 04703000 * 4 JFCFMREC BIT(2), /* BITS INDICATING RECORD FORMAT */ 04704000 * 4 JFCRFO BIT(1), /* T - TRACK OVERFLOW */ 04705000 * 3 JFCRFB BIT(1), /* B - BLOCKED - MAY NOT OCCUR 0265 04706000 * WITH UNDEFINED */ 04707000 * 3 JFCRFS BIT(1), /* S - FOR FIXED LENGTH RECORD 0265 04708000 * FORMAT, STANDARD BLOCKS. NO 0265 04709000 * TRUNCATED BLOCKS OR UNFILLED 0265 04710000 * TRACKS ARE EMBEDDED IN THE DATA 04711000 * SET. 0265 04712000 * FOR VARIABLE LENGTH RECORD 0265 04713000 * FORMAT, SPANNED RECORDS. */ 04714000 * 3 JFCCHAR BIT(2), /* CONTROL CHARACTER */ 04715000 * 3 * BIT(1), /* RESERVED */ 04716000 * 2 JFCOPTCD BIT(8) BDY(WORD,2), /* OPTION CODES */ 04717000 * 3 JFCWVCSP BIT(1), /* QSAM-BSAM-BPAM - W - WRITE 0265 04718000 * VALIDITY CHECK */ 04719000 * 4 JFCWVCIS BIT(1), /* BISAM-QISAM - W - WRITE 0265 04720000 * VALIDITY CHECK */ 04721000 * 5 JFCWVCBD BIT(1), /* BDAM - W - WRITE VALIDITY 0265 04722000 * CHECK */ 04723000 * 6 JFCSDNAM BIT(1), /* TCAM - SOURCE OR DESTINATION 0265 04724000 * NAME PRECEDES MESSAGE (AFTER 0265 04725000 * CONTROL BYTE) */ 04726000 * 3 JFCALLOW BIT(1), /* QSAM-BSAM-BPAM - U - ALLOW A 0265 04727000 * DATA CHECK CAUSED BY AN 0265 04728000 * INVALID CHARACTER (1403 0265 04729000 * PRINTER WITH UCS FEATURE) */ 04730000 * 4 JFCRSV17 BIT(1), /* RESERVED */ 04731000 * 5 JFCOVER BIT(1), /* BDAM - TRACK OVERFLOW */ 04732000 * 6 JFCWUMSG BIT(1), /* TCAM - WORK UNIT IS A MESSAGE 04733000 * (DEFAULT WORK UNIT IS A RECORD)*/ 04734000 * 3 JFCPCIBT BIT(1), /* QSAM-BSAM-BPAM - C - CHAINED 0265 04735000 * SCHEDULING USING THE PROGRAM 0265 04736000 * CONTROLLED INTERRUPTION */ 04737000 * 4 JFCMAST BIT(1), /* BISAM-QISAM - M - MASTER 0265 04738000 * INDEXES */ 04739000 * 5 JFCEXT BIT(1), /* BDAM - E - EXTENDED SEARCH */ 04740000 * 6 JFCCBWU BIT(1), /* TCAM - CONTROL BYTE PRECEDES 0265 04741000 * WORK UNIT */ 04742000 * 3 JFCBCKPT BIT(1), /* QSAM-BSAM-BPAM - BYPASS 0265 04743000 * EMBEDDED DOS CHECKPOINT 0265 04744000 * RECORDS ON TAPE ICB398*/ 04745000 * 4 JFCIND BIT(1), /* BISAM-QISAM - I - INDEPENDENT 04746000 * OVERFLOW AREA */ 04747000 * 5 JFCFEED BIT(1), /* BDAM - F - FEEDBACK */ 04748000 * 3 JFCRSV18 BIT(1), /* RESERVED */ 04749000 * 4 JFCCYL BIT(1), /* BISAM-QISAM - Y - CYLINDER 0265 04750000 * OVERFLOW AREA */ 04751000 * 5 JFCACT BIT(1), /* BDAM - A - ACTUAL ADRESSING */ 04752000 * 6 JFCOPTQ BIT(1), /* USASI/USASCII - EBCDIC TO ASCII 04753000 * OR ASCII TO EBCDIC TRANSLATION 04754000 * REQUIRED */ 04755000 * 3 JFCREDUC BIT(1), /* QSAM-BSAM-BPAM-EXCP - Z - 0265 04756000 * USE REDUCED ERROR RECOVERY 0265 04757000 * PROCEDURE (MAGNETIC TAPE) */ 04758000 * 4 JFCRSV19 BIT(1), /* RESERVED */ 04759000 * 5 JFCRSV20 BIT(1), /* RESERVED */ 04760000 * 6 JFCSRCHD BIT(1), /* QSAM-BSAM-BPAM - USE SEARCH 0265 04761000 * DIRECT (SD) INSTEAD OF SEARCH 04762000 * PREVIOUS ON ROTATIONAL POSITION 04763000 * SENSING (RPS) DEVICE. (DIRECT 04764000 * ACCESS) */ 04765000 * 3 JFCRSV21 BIT(1), /* RESERVED */ 04766000 * 4 JFCDEL BIT(1), /* BISAM-QISAM - L - DELETE 0265 04767000 * OPTION */ 04768000 * 5 JFCRSV22 BIT(1), /* RESERVED */ 04769000 * 3 JFCOPTJ BIT(1), /* QSAM-BSAM-BPAM - J - 3800 0265 04770000 * CONTROL CHARACTER 0265 04771000 * (MDC301) @Z40MP9A*/ 04772000 * 4 JFCREORG BIT(1), /* BISAM-QISAM - R - 0265 04773000 * REORGANIZATION CRITERIA */ 04774000 * 5 JFCREL BIT(1), /* BDAM - R - RELATIVE BLOCK 0265 04775000 * ADDRESSING */ 04776000 * 2 JFCBLKSI FIXED(15) BDY(WORD,3), /* MAXIMUM BLOCK SIZE */ 04777000 * 3 JFCBUFSI FIXED(15) BDY(WORD,3), /* MAXIMUM BUFFER SIZE */ 04778000 * 4 JFCBAXBF FIXED(15) BDY(WORD,3), /* NUMBER OF INDEX BUFFERS 0265 04779000 * (VSAM) ICB438*/ 04780000 * 2 JFCAMSYN CHAR(8) BDY(WORD), /* MODULE NAME FOR SYNAD ROUTINE 04781000 * FOR VSAM ICB438*/ 04782000 * 3 JFCLRECL FIXED(15) BDY(WORD), /* LOGICAL RECORD LENGTH */ 04783000 * 3 JFCNCP CHAR(1) BDY(WORD,3), /* NUMBER OF CHANNEL PROGRAMS. 04784000 * NUMBER OF READ OR WRITE 0265 04785000 * REQUESTS WHICH MAY BE ISSUED 0265 04786000 * PRIOR TO A CHECK. NUMBER OF 0265 04787000 * IOB'S GENERATED. (MAXIMUM 0265 04788000 * NUMBER IS 99.) 0265 04789000 * NOTE - GAM USES JFCBFTEK FOR 0265 04790000 * THIS INFORMATION AND DOES 0265 04791000 * NOT USE THIS FIELD AT ALL. */ 04792000 * 4 JFCBUFMX CHAR(1), /* THE MAXIMUM NUMBER OF BUFFERS 04793000 * TO BE USED FOR DATA TRANSFER 0265 04794000 * FOR EACH LINE IN THIS LINE 0265 04795000 * GROUP (TCAM) */ 04796000 * 3 JFCNTM CHAR(1) BDY(WORD,4), /* THE NUMBER OF TRACKS THAT 0265 04797000 * DETERMINE THE DEVELOPMENT OF A 04798000 * MASTER INDEX. MAXIMUM NUMBER 04799000 * IS 99. (ISAM) */ 04800000 * 4 JFCBFSEQ PTR(8), /* TAPE POSITIONING INFORMATION 0265 04801000 * FOR CHECKPOINT RESTART. THIS 04802000 * FIELD IS USED TO PASS A 0265 04803000 * PHYSICAL FILE SEQUENCE COUNT 0265 04804000 * FROM CHECKPOINT TO RESTART. 0265 04805000 * THE COUNT TELLS THE PHYSICAL 0265 04806000 * POSITION OF THE TAPE VOLUME 0265 04807000 * THAT WAS BEING PROCESSED WHEN 04808000 * THE CHECKPOINT WAS TAKEN. 0265 04809000 * SA60703*/ 04810000 * 5 JFCPCI BIT(8), /* PROGRAM-CONTROLLED INTERRUPTION 04811000 * (PCI) FLAG BYTE (TCAM) */ 04812000 * 6 JFCPCIX1 BIT(1), /* PCI=(X,) RECEIVE OPERATIONS 0265 04813000 * ICB473*/ 04814000 * 6 JFCPCIX2 BIT(1), /* PCI=(,X) SEND OPERATIONS 0265 04815000 * X INDICATES THAT AFTER THE 0265 04816000 * FIRST BUFFER IS FILLED (ON 0265 04817000 * RECEIVE OPERATIONS) OR EMPTIED 04818000 * (ON SEND OPERATIONS), A PCI 0265 04819000 * OCCURS DURING THE FILLING OR 0265 04820000 * EMPTYING OF THE NEXT BUFFER. 0265 04821000 * THE FIRST BUFFER REMAINS 0265 04822000 * ALLOCATED AND ANOTHER IS 0265 04823000 * ALLOCATED. ICB473*/ 04824000 * 6 JFCPCIA1 BIT(1), /* PCI=(A,) RECEIVE OPERATIONS */ 04825000 * 6 JFCPCIA2 BIT(1), /* PCI=(,A) SEND OPERATIONS 0265 04826000 * A INDICATES THAT AFTER THE 0265 04827000 * FIRST BUFFER IS FILLED (ON 0265 04828000 * RECEIVE OPERATIONS) OR EMPTIED 04829000 * (ON SEND OPERATIONS), A PCI 0265 04830000 * OCCURS DURING THE FILLING OR 0265 04831000 * EMPTYING OF THE NEXT BUFFER. 0265 04832000 * THE FIRST BUFFER IS DEALLOCATED. 04833000 * A BUFFER IS ALLOCATED IN PLACE 04834000 * OF THE DEALLOCATED BUFFER. */ 04835000 * 6 JFCPCIN1 BIT(1), /* PCI=(N,) RECEIVE OPERATIONS */ 04836000 * 6 JFCPCIN2 BIT(1), /* PCI=(,N) SEND OPERATIONS 0265 04837000 * N INDICATES THAT NO PCI'S ARE 04838000 * TAKEN DURING FILLING (ON 0265 04839000 * RECEIVE OPERATIONS) OR EMPTYING 04840000 * (ON SEND OPERATIONS) OF BUFFERS. 04841000 * BUFFERS ARE DEALLOCATED AT THE 04842000 * END OF TRANSMISSION. */ 04843000 * 6 JFCPCIR1 BIT(1), /* PCI=(R,) RECEIVE OPERATIONS */ 04844000 * 6 JFCPCIR2 BIT(1), /* PCI=(,R) SEND OPERATIONS 0265 04845000 * R INDICATES THAT AFTER THE 0265 04846000 * FIRST BUFFER IS FILLED (ON 0265 04847000 * RECEIVE OPERATIONS) OR EMPTIED 04848000 * (ON SEND OPERATIONS), A PCI 0265 04849000 * OCCURS DURING THE FILLING OR 0265 04850000 * EMPTYING OF EACH SUCCEEDING 0265 04851000 * BUFFER. THE COMPLETED BUFFER 04852000 * IS DEALLOCATED, BUT NO NEW 0265 04853000 * BUFFER IS ALLOCATED TO TAKE 0265 04854000 * ITS PLACE. */ 04855000 * 0265 04856000 * /*******************************************************************/ 04857000 * /* */ 04858000 * /* NORMAL 108 SEGMENT */ 04859000 * /* */ 04860000 * /*******************************************************************/ 04861000 * 0265 04862000 * 3 JFCRESRV CHAR(4) BDY(WORD), /* FIRST BYTE CONTAINS NUMBER OF 04863000 * BYTES FOR TIME OF DAY. SECOND 04864000 * BYTE CONTAINS NUMBER OF BYTES 04865000 * FOR DATE. THIRD BYTE CONTAINS 04866000 * NUMBER OF BYTES FOR OUTSEQ. 0265 04867000 * FOURTH BYTE CONTAINS NUMBER OF 04868000 * BYTES IN. (TCAM) */ 04869000 * 4 JFCRKP FIXED(15) BDY(WORD), /* THE RELATIVE POSITION OF THE 04870000 * FIRST BYTE OF THE KEY WITHIN 0265 04871000 * EACH LOGICAL RECORD. MAXIMUM 04872000 * VALUE IS LOGICAL RECORD LENGTH 04873000 * MINUS KEY LENGTH. */ 04874000 * 4 JFCCYLOF CHAR(1), /* THE NUMBER OF TRACKS TO BE 0265 04875000 * RESERVED ON EACH CYLINDER TO 0265 04876000 * HOLD RECORDS THAT OVERFLOW 0265 04877000 * FROM OTHER TRACKS ON THAT 0265 04878000 * CYLINDER. MAXIMUM VALUE IS 0265 04879000 * 99. */ 04880000 * 4 JFCDBUFN CHAR(1), /* RESERVED */ 04881000 * 2 JFCINTVL CHAR(1) BDY(WORD); /* INTENTIONAL DELAY, IN SECONDS, 04882000 * BETWEEN PASSES THROUGH A 0265 04883000 * POLLING LIST (QTAM) */ 04884000 * 0265 04885000 * /*******************************************************************/ 04886000 * /* */ 04887000 * /* END OF NORMAL 108 SEGMENT */ 04888000 * /* */ 04889000 * /*******************************************************************/ 04890000 * 0266 04891000 * /*******************************************************************/ 04892000 * /* */ 04893000 * /* 108 PRINTER SEGMENT */ 04894000 * /* */ 04895000 * /* NOTE THIS SEGMENT REPLACES THE NORMAL 108 SEGMENT IF */ 04896000 * /* THE DD STATEMENT USES THE UCS PARAMETER. */ 04897000 * /* */ 04898000 * /*******************************************************************/ 04899000 * 0266 04900000 *DECLARE 0266 04901000 * 1 JFCUCSEG DEF(JFCRESRV) BDY(WORD), 0266 04902000 * 2 JFCUCSID CHAR(4) BDY(WORD), /* NAME OF THE UCS IMAGE TO BE 0266 04903000 * LOADED */ 04904000 * 2 JFCUCSOP BIT(8), /* OPERATION OF THE UCS IMAGE TO 04905000 * BE LOADED */ 04906000 * 3 JFCBEXTP BIT(1), /* JFCB EXTENSION PRESENT FOR 3800 04907000 * DEVICE (MDC302) @Z40MP9A*/ 04908000 * 3 JFCFOLD BIT(1), /* UCS IMAGE IS TO BE LOADED IN 0266 04909000 * THE FOLD MODE */ 04910000 * 3 JFCRSV25 BIT(1), /* RESERVED */ 04911000 * 3 JFCVER BIT(1), /* UCS IMAGE IS TO BE VERIFIED */ 04912000 * 3 JFCFCBAL BIT(1), /* FORMS ARE TO BE ALIGNED */ 04913000 * 3 JFCFCBVR BIT(1), /* FORMS CONTROL BUFFER (FCB) 0266 04914000 * IMAGE IS TO BE VERIFIED */ 04915000 * 3 JFCRSV26 BIT(1), /* RESERVED */ 04916000 * 3 JFCRSV27 BIT(1), /* RESERVED */ 04917000 * 0266 04918000 * /*******************************************************************/ 04919000 * /* */ 04920000 * /* END OF 108 PRINTER SEGMENT */ 04921000 * /* */ 04922000 * /*******************************************************************/ 04923000 * 0266 04924000 * 2 JFCOUTLI PTR(24) BDY(WORD,2),/* SMF - SYSOUT LIMIT. BINARY 0266 04925000 * REPRESENTATION OF THE OUTLIM= 04926000 * PARAMETER ON THE SYSOUT DD 0266 04927000 * STATEMENT. THE MAXIMUM NUMBER 04928000 * OF LOGICAL RECORDS SPECIFIED 0266 04929000 * FOR THIS OUTPUT DATA SET. */ 04930000 * 3 JFCTHRSH CHAR(1), /* RECORDS TO BE USED */ 04931000 * 4 JFCCPRI BIT(8), /* PRIORITY BETWEEN SEND AND 0266 04932000 * RECEIVE OPERATIONS (TCAM) */ 04933000 * 5 JFCRSV53 BIT(1), /* RESERVED MDC020*/ 04934000 * 5 JFCRSV54 BIT(1), /* RESERVED MDC019*/ 04935000 * 5 JFCRSV55 BIT(1), /* RESERVED MDC018*/ 04936000 * 5 JFCRSV33 BIT(1), /* RESERVED */ 04937000 * 5 JFCRSV34 BIT(1), /* RESERVED */ 04938000 * 5 JFCRECV BIT(1), /* RECEIVE PRIORITY MDC018*/ 04939000 * 5 JFCEQUAL BIT(1), /* EQUAL PRIORITY MDC019*/ 04940000 * 5 JFCSEND BIT(1), /* SEND PRIORITY MDC020*/ 04941000 * 3 JFCSOWA FIXED(15), /* LENGTH, IN BYTES, OF THE USER- 04942000 * PROVIDED WORK AREA (QTAM) */ 04943000 * 2 JFCBNTCS CHAR(1), /* NUMBER OF OVERFLOW TRACKS */ 04944000 * 2 JFCBNVOL CHAR(1), /* NUMBER OF VOLUME SERIAL NUMBERS*/ 04945000 * 2 JFCBVOLS CHAR(30) BDY(WORD,3),/* THE FIRST FIVE VOLUME SERIAL 04946000 * NUMBERS */ 04947000 * 3 JFCAVOLS (5) CHAR(6); /* THE FIRST FIVE VOLUME SERIAL 0266 04948000 * NUMBERS @Z30LP9A*/ 04949000 * 0266 04950000 *DECLARE 0267 04951000 * 1 JFCBS001 DEF(JFCBVOLS) BDY(WORD,3), /* @Z30LP9A*/ 04952000 * 2 * CHAR(22), /* FIRST 22 BYTES OF 0267 04953000 * JFCBVOLS @Z30LP9A*/ 04954000 * 2 JFCMSVGP CHAR(8) BDY(WORD), /* MASS STORAGE VOLUME GROUP FROM 04955000 * WHICH TO SELECT A VOLUME 0267 04956000 * (MDC306) @Z30LP9A*/ 04957000 * 2 JFCBEXTL CHAR(1), /* LENGTH OF BLOCK OF EXTRA VOLUME 04958000 * SERIAL NUMBERS (BEYOND FIVE) */ 04959000 * 2 JFCBEXAD CHAR(3), /* RELATIVE TRACK ADDRESS (TTR) 0267 04960000 * OF FIRST JFCB EXTENSION BLOCK 04961000 * FOR VOLUME SERIAL NUMBERS OR 0267 04962000 * TTR OF JFCB EXTENSION BLOCK 0267 04963000 * FOR 3800 (MDC303) @Z40MP9A*/ 04964000 * 2 JFCBPQTY CHAR(3) BDY(WORD), /* PRIMARY QUANTITY OF DIRECT 0267 04965000 * ACCESS STORAGE REQUIRED */ 04966000 * 3 JFCRUNIT CHAR(3), /* UNIT TYPE (EBCDIC) OF A DEVICE 04967000 * AT A REMOTE TERMINAL. THE 0267 04968000 * FIRST TWO CHARACTERS ARE RD 0267 04969000 * (READER), PR (PRINTER) OR PU 0267 04970000 * (PUNCH). THE THIRD CHARACTER 04971000 * IS A NUMBER FROM 1 TO 9. ICB387*/ 04972000 * 2 JFCBCTRI BIT(8), /* SPACE PARAMETERS */ 04973000 * 3 JFCBSPAC BIT(2), /* SPACE MASK BITS */ 04974000 * 3 JFCBMSGP BIT(1), /* REQUEST IS FOR A MASS STORAGE 04975000 * VOLUME GROUP (MSVGP) VOLUME 0267 04976000 * (MDC307) @Z30LP9A*/ 04977000 * 3 JFCRSV29 BIT(1), /* RESERVED */ 04978000 * 3 JFCONTIG BIT(1), /* CONTIG REQUEST */ 04979000 * 3 JFCMIXG BIT(1), /* MXIG REQUEST */ 04980000 * 3 JFCALX BIT(1), /* ALX REQUEST */ 04981000 * 3 JFCROUND BIT(1), /* ROUND REQUEST */ 04982000 * 2 JFCBSQTY CHAR(3) BDY(WORD), /* SECONDARY QUANTITY OF DIRECT 0267 04983000 * ACCESS STORAGE REQUIRED */ 04984000 * 3 JFCRQID FIXED(15), /* QUEUE IDENTIFICATION (QID) USED 04985000 * BY ACCESS METHOD TO DETERMINE 04986000 * THE REMOTE TERMINAL LOCATION 0267 04987000 * FOR THIS JOB. ICB387*/ 04988000 * 2 JFCFLGS1 BIT(8), /* FLAG BYTE (ICB488) SA53458*/ 04989000 * 3 JFCBDLET BIT(1), /* IF ONE, DELETE THE DATA SET 0267 04990000 * USED WHEN EXTENDING THE JOB 0267 04991000 * QUEUE OR SPOOL DATA SETS 0267 04992000 * (OS/VS1) (MDC305) @XM05457*/ 04993000 * 3 JFCTOPEN BIT(1), /* TAPE DATA SET HAS BEEN OPENED 04994000 * MDC026*/ 04995000 * 3 JFCBADSP BIT(1), /* AUTOMATIC DATA SET PROTECTION 04996000 * INDICATOR (MDC310) @Z40RP9A*/ 04997000 * 3 JFCRSV42 BIT(1), /* RESERVED (MDC311) */ 04998000 * 3 JFCBCEOV BIT(1), /* IF ONE, CHKPT=EOV SPECIFIED FOR 04999000 * THIS DATA SET (MDC312) @Z30JP9A*/ 05000000 * 3 JFCVRDS BIT(1), /* VIO DATA SET MDC006*/ 05001000 * 3 JFCRSV45 BIT(1), /* RESERVED */ 05002000 * 3 JFCBUAFF BIT(1), /* UNIT AFFINITY SPECIFIED FOR 0267 05003000 * THIS DATA SET (ICB488) SA53458*/ 05004000 * 2 JFCBDQTY CHAR(3) BDY(WORD), /* QUANTITY OF DIRECT ACCESS 0267 05005000 * STORAGE REQUIRED FOR A 0267 05006000 * DIRECTORY OR AN EMBEDDED INDEX 05007000 * AREA */ 05008000 * 2 JFCBSPNM PTR(24) BDY(WORD,4),/* MAIN STORAGE ADDRESS OF THE 0267 05009000 * JFCB WITH WHICH CYLINDERS ARE 05010000 * SPLIT (OS/VS1) 0267 05011000 * (MDC315) @ZA18180*/ 05012000 * 3 JFCBFLG3 BIT(8), /* FLAG BYTE (OS/VS2) 0267 05013000 * (MDC316) @ZA18180*/ 05014000 * 4 JFCDQDSP BIT(1), /* REQUEST DEQUEUE OF TAPE VOLUME 05015000 * WHEN DEMOUNTED 0267 05016000 * (MDC317) @ZA18180*/ 05017000 * 4 JFCBRV01 BIT(1), /* RESERVED @ZA18180*/ 05018000 * 4 JFCBRV02 BIT(1), /* RESERVED @ZA18180*/ 05019000 * 4 JFCBRV03 BIT(1), /* RESERVED @ZA18180*/ 05020000 * 4 JFCBRV04 BIT(1), /* RESERVED @ZA18180*/ 05021000 * 4 JFCBRV05 BIT(1), /* RESERVED @ZA18180*/ 05022000 * 4 JFCBRV06 BIT(1), /* RESERVED @ZA18180*/ 05023000 * 4 JFCBRV07 BIT(1), /* RESERVED @ZA18180*/ 05024000 * 3 JFCBRV08 FIXED(15), /* RESERVED (OS/VS2) @ZA18180*/ 05025000 * 2 JFCBABST FIXED(15), /* RELATIVE ADDRESS OF FIRST TRACK 05026000 * TO BE ALLOCATED */ 05027000 * 2 JFCBSBNM PTR(24) BDY(WORD), /* MAIN STORAGE ADDRESS OF THE 0267 05028000 * JFCB FROM WHICH SPACE IS TO 0267 05029000 * BE SUBALLOCATED */ 05030000 * 2 JFCBDRLH CHAR(3) BDY(WORD,4),/* AVERAGE DATA BLOCK LENGTH */ 05031000 * 2 JFCBVLCT CHAR(1), /* VOLUME COUNT */ 05032000 * 2 JFCBSPTN CHAR(1), /* NUMBER OF TRACKS PER CYLINDER 05033000 * TO BE USED BY THIS DATA SET 0267 05034000 * WHEN SPLIT CYLINDER IS 0267 05035000 * INDICATED */ 05036000 * 2 JFCBEND CHAR(0) BDY(WORD); 0267 05037000 * 0268 05038000 */* */ 05039000 */* COMMUNICATION VECTOR TABLE */ 05040000 */* */ 05041000 */* OS/VS2 RELEASE 3.7 PTF, 03/30/77, LEVEL=17 */ 05042000 */* */ 05043000 */* METHOD OF ACCESS */ 05044000 */* PL/S - DCL CVTPTR PTR */ 05045000 */* BAL - DSECT=YES SHOULD BE SPECIFIED ON MACRO CALL EXCEPT */ 05046000 */* WHEN CALLED DURING SYSGEN TO CREATE CSECT. CVT FOR */ 05047000 */* OS/VS2 IS MAPPED UNLESS SYS=AOS1 IS SPECIFIED. THE */ 05048000 */* PREFIX IS NOT MAPPED UNLESS PREFIX=YES IS SPECIFIED. */ 05049000 */* A USING ON CVTMAP OR DSECT NAME WILL ESTABLISH */ 05050000 */* ADDRESSABILITY FOR ALL SYMBOLS EXCEPT IN THE 2 */ 05051000 */* EXTENSIONS. TO ESTABLISH ADDRESSABILITY FOR THE */ 05052000 */* OS - OS/VS COMMON EXTENSION, YOU SHOULD CODE */ 05053000 */* */ 05054000 */* L REG,CVTEXT1 */ 05055000 */* USING CVTXTNT1,REG */ 05056000 */* */ 05057000 */* TO ESTABLISH ADDRESSABILITY FOR THE OS/VS1 - OS/VS2 */ 05058000 */* COMMON EXTENSION, YOU SHOULD CODE */ 05059000 */* */ 05060000 */* L REG,CVTEXT2 */ 05061000 */* USING CVTXTNT2,REG */ 05062000 */* */ 05063000 */* WHERE REG IN EITHER CASE IS ANY REGISTER OTHER */ 05064000 */* THAN ZERO. */ 05065000 */* */ 05066000 */* WHEN LISTING IS SUPPRESSED, YOU CAN DETERMINE WHICH */ 05067000 */* DSECT A SYMBOL IS IN BY USING THE STATEMENT NUMBER */ 05068000 */* IN THE DEFN COLUMN IN THE CROSS REFERENCE LISTING. */ 05069000 */* FOR EXAMPLE, ANY SYMBOL DEFINED BETWEEN THE */ 05070000 */* STATEMENT NUMBERS FOR CVTXTNT1 AND CVTXTNT2 IS IN */ 05071000 */* THE OS - OS/VS COMMON EXTENSION. */ 05072000 */* */ 05073000 */* F.E.'S */ 05074000 */* MICROFICHE LISTING - CVT */ 05075000 */* */ 05076000 */* DEVELOPERS */ 05077000 */* BAL LISTING - SPECIFY LIST=YES ON MACRO CALL */ 05078000 */* PL/S LISTING - SPECIFY %IHALIST='YES' BEFORE INCLUDE */ 05079000 */* */ 05080000 */* FOR INTEGRATION, A LISTING MUST NOT BE REQUESTED UNLESS */ 05081000 */* YOUR MODULE CREATES THE CSECT. */ 05082000 * 0268 05083000 * /* CVT PROPER */ 05084000 * 0268 05085000 * DECLARE 0268 05086000 * 1 CVTMAP BASED(CVTPTR) BDY(WORD), 0268 05087000 * 2 CVT CHAR(0) BDY(WORD), /* BEGINNING OF CVT MDC150*/ 05088000 * 2 CVTTCBP PTR(31), /* ADDRESS OF A DOUBLE WORD, THE 05089000 * FIRST CONTAINING THE NEXT-TO- 05090000 * BE-DISPATCHED TCB ADDRESS. 0268 05091000 * THE SECOND CONTAINING THE 0268 05092000 * LAST (CURRENT) TCB ADDRESS. 05093000 * BOTH WORDS ARE IDENTICAL 0268 05094000 * UNLESS THE TASK GOES INTO A 05095000 * WAIT STATE. WHEN IN A WAIT 05096000 * STATE, THE FIRST WORD IS SET 05097000 * TO ZERO UNTIL THE WAITING IS 05098000 * OVER AND THEN BOTH WORDS ARE 05099000 * ONCE AGAIN IDENTICAL. 0268 05100000 * (OS/VS1) 0268 05101000 * ADDRESS OF 4-WORD LIST OF 0268 05102000 * ADDRESSES - THE NEXT TCB, THE 05103000 * CURRENT TCB, THE NEXT ASCB 0268 05104000 * AND THE CURRENT ASCB, IN THAT 05105000 * ORDER (OS/VS2) MDC026*/ 05106000 * 2 CVT0EF00 PTR(31), /* ADDRESS OF ROUTINE TO SCHEDULE 05107000 * ASYNCHRONOUS EXITS */ 05108000 * 2 CVTLINK PTR(31), /* ADDRESS OF DCB FOR 0268 05109000 * SYS1.LINKLIB DATA SET */ 05110000 * 2 CVTJOB PTR(31), /* ADDRESS OF QUEUE MANAGER 0268 05111000 * RESIDENT DATA AREA (QMRES) 0268 05112000 * (OS/VS1) (MDC083) XM4042*/ 05113000 * 2 CVTBUF PTR(31), /* ADDRESS OF THE BUFFER OF THE 05114000 * RESIDENT CONSOLE INTERRUPT 0268 05115000 * ROUTINE */ 05116000 * 2 CVTXAPG PTR(31), /* ADDRESS OF I/O SUPERVISOR 0268 05117000 * APPENDAGE VECTOR TABLE */ 05118000 * 2 CVT0VL00 PTR(31), /* ADDRESS OF ENTRY POINT OF THE 05119000 * TASK SUPERVISOR'S ADDRESS 0268 05120000 * VALIDITY CHECKING ROUTINE */ 05121000 * 2 CVTPCNVT PTR(31), /* ADDRESS OF ENTRY POINT OF THE 05122000 * ROUTINE WHICH CONVERTS A 0268 05123000 * RELATIVE TRACK ADDRESS (TTR) 05124000 * TO AN ABSOLUTE TRACK ADDRESS 05125000 * (MBBCCHHR) */ 05126000 * 2 CVTPRLTV PTR(31), /* ADDRESS OF ENTRY POINT OF THE 05127000 * ROUTINE WHICH CONVERTS AN 0268 05128000 * ABSOLUTE TRACK ADDRESS 0268 05129000 * (MBBCCHHR) TO A RELATIVE 0268 05130000 * TRACK ADDRESS (TTR) */ 05131000 * 2 CVTILK1 PTR(31), /* ADDRESS OF THE CHANNEL AND 0268 05132000 * CONTROL UNIT PORTION OF THE 05133000 * UCB LOOKUP TABLE */ 05134000 * 2 CVTILK2 PTR(31), /* ADDRESS OF THE UCB HALFWORD 05135000 * ADDRESS LIST PORTION OF THE 05136000 * UCB LOOKUP TABLE */ 05137000 * 2 CVTXTLER PTR(31), /* ADDRESS OF ERROR RECOVERY 0268 05138000 * PROCEDURE (ERP) LOADER 0268 05139000 * (IECVERPL) ENTRY POINT 0268 05140000 * IECXTLER (MDC349) @Z40AQ9A*/ 05141000 * 2 CVTSYSAD PTR(31), /* ADDRESS OF THE SYSTEM 0268 05142000 * RESIDENCE VOLUME ENTRY IN THE 05143000 * UCB LOOKUP TABLE */ 05144000 * 2 CVTBTERM PTR(31), /* ADDRESS OF ENTRY POINT OF THE 05145000 * ABTERM ROUTINE */ 05146000 * 2 CVTDATE CHAR(4) BDY(WORD), /* CURRENT DATE IN PACKED 0268 05147000 * DECIMAL */ 05148000 * 2 CVTMSLT PTR(31), /* ADDRESS OF THE MASTER COMMON 05149000 * AREA IN MASTER SCHEDULER 0268 05150000 * RESIDENT DATA AREA. 0268 05151000 * NOTE - USE CVTMSER INSTEAD 05152000 * TO ADDRESS MASTER SCHEDULER 05153000 * RESIDENT DATA AREA. */ 05154000 * 2 CVTZDTAB PTR(31), /* ADDRESS OF I/O DEVICE 0268 05155000 * CHARACTERISTIC TABLE */ 05156000 * 2 CVTXITP PTR(31), /* ADDRESS OF ERROR INTERPRETER 05157000 * ROUTINE */ 05158000 * 2 CVTDAR PTR(31), /* SAME AS CVTDARA BELOW 0268 05159000 * (OS/VS1) MDC029*/ 05160000 * 3 CVTFLGS1 BIT(8), /* FLAG BYTE (OS/VS1) MDC030*/ 05161000 * 4 CVTDMPLK BIT(1), /* SVC DUMP IS IN PROGRESS 0268 05162000 * (OS/VS1) MDC030*/ 05163000 * 4 CVTRSV01 BIT(1), /* RESERVED */ 05164000 * 4 CVTRSV02 BIT(1), /* RESERVED */ 05165000 * 4 CVTRSV03 BIT(1), /* RESERVED */ 05166000 * 4 CVTRSV04 BIT(1), /* RESERVED */ 05167000 * 4 CVTRSV05 BIT(1), /* RESERVED */ 05168000 * 4 CVTRSV06 BIT(1), /* RESERVED */ 05169000 * 4 CVTRSV07 BIT(1), /* RESERVED */ 05170000 * 3 CVTDARA PTR(24), /* ADDRESS OF THE SYS1.DUMP I/O 05171000 * CONTROL BLOCKS NEEDED BY 0268 05172000 * ABEND'S DAMAGE ASSESSMENT 0268 05173000 * ROUTINE (DAR) (OS/VS1) MDC029*/ 05174000 * 2 CVT0FN00 PTR(31), /* ADDRESS OF ENTRY POINT OF THE 05175000 * FINCH ROUTINE (OS/VS1) */ 05176000 * 2 CVTEXIT CHAR(2) BDY(WORD), /* AN SVC 3 INSTRUCTION. EXIT 05177000 * TO DISPATCHER. */ 05178000 * 2 CVTBRET CHAR(2) BDY(WORD,3), /* A BCR 15,14 INSTRUCTION. 0268 05179000 * RETURN TO CALLER (USED BY 0268 05180000 * DATA MANAGEMENT ROUTINES) */ 05181000 * 2 CVTSVDCB PTR(31), /* ADDRESS OF THE DCB FOR THE 0268 05182000 * SYS1.SVCLIB DATA SET */ 05183000 * 2 CVTTPC PTR(31), /* ADDRESS OF THE TIMER 0268 05184000 * SUPERVISOR WORK AREA */ 05185000 * 2 CVTPBLDL PTR(31), /* ADDRESS OF BRANCH AND LINK 0268 05186000 * (BALR) ENTRY POINT OF THE 0268 05187000 * BLDL ROUTINE (OS/VS1) MDC103*/ 05188000 * 2 CVTSJQ PTR(31), /* ADDRESS OF THE SELECTED JOB 05189000 * QUEUE (OS/VS1) */ 05190000 * 2 CVTCUCB PTR(31), /* ADDRESS OF THE TABLE THAT 0268 05191000 * CONTAINS THE CURRENT CONSOLE 05192000 * UCB ADDRESSES */ 05193000 * 2 CVTQTE00 PTR(31), /* ADDRESS OF THE TIMER ENQUEUE 05194000 * ROUTINE FOR INTERVAL TIMER */ 05195000 * 2 CVTQTD00 PTR(31), /* ADDRESS OF THE TIMER DEQUEUE 05196000 * ROUTINE FOR INTERVAL TIMER */ 05197000 * 2 CVTSTB PTR(31), /* ADDRESS OF THE I/O DEVICE 0268 05198000 * STATISTICS TABLE */ 05199000 * 2 CVTDCB CHAR(1) BDY(WORD), /* OPERATING SYSTEM 0268 05200000 * CONFIGURATION */ 05201000 * 4 CVTRSV08 BIT(1), /* RESERVED */ 05202000 * 4 CVT1SSS BIT(1), /* PCP */ 05203000 * 4 CVT2SPS BIT(1), /* MFT, OS/VS1 */ 05204000 * 4 CVT4MS1 BIT(1), /* MVT, OS/VS2 */ 05205000 * 4 CVTRSV09 BIT(1), /* RESERVED */ 05206000 * 4 CVT4MPS BIT(1), /* MODEL 65 MULTIPROCESSING */ 05207000 * 4 CVT6DAT BIT(1), /* DYNAMIC ADDRESS TRANSLATION 05208000 * BY CPU (OS/VS1, OS/VS2) */ 05209000 * 4 CVTMVS2 BIT(1), /* MULTIPLE MEMORY OPTION OF 0268 05210000 * OS/VS2 IS PRESENT MDC131*/ 05211000 * 2 CVTDCBA PTR(24), /* ADDRESS OF THE DCB FOR THE 0268 05212000 * SYS1.LOGREC (OUTBOARD 0268 05213000 * RECORDER) DATA SET FOR SYSTEM 05214000 * ENVIRONMENT RECORDING (SER) */ 05215000 * 2 CVTIOQET PTR(31), /* ADDRESS OF IOS REQUEST ELEMENT 05216000 * TABLE (OS/VS1) MDC020*/ 05217000 * 3 CVTSV76M FIXED(31), /* SVC 76 MESSAGE COUNT FIELD 0268 05218000 * (OS/VS2) (MDC372) @ZA18857*/ 05219000 * 2 CVTIXAVL PTR(31), /* ADDRESS OF THE I/O 0268 05220000 * SUPERVISOR'S FREELIST POINTER 05221000 * WHICH CONTAINS THE ADDRESS OF 05222000 * THE NEXT REQUEST ELEMENT 0268 05223000 * (OS/VS1) 0268 05224000 * ADDRESS OF THE I/O 0268 05225000 * SUPERVISOR'S COMMUNICATION 0268 05226000 * AREA (IOCOM) (OS/VS2) */ 05227000 * 2 CVTNUCB PTR(31), /* LOWEST ADDRESS NOT IN THE 0268 05228000 * NUCLEUS (ON PAGE BOUNDARY FOR 05229000 * OS/VS1) (ON SEGMENT BOUNDARY 05230000 * FOR OS/VS2) (MDC318) @Z30AQ9A*/ 05231000 * 2 CVTFBOSV PTR(31), /* ADDRESS OF PROGRAM FETCH 0268 05232000 * ROUTINE */ 05233000 * 2 CVT0DS PTR(31), /* ADDRESS OF ENTRY POINT OF THE 05234000 * DISPATCHER */ 05235000 * 2 CVTILCH PTR(31), /* ADDRESS OF THE LOGICAL 0268 05236000 * CHANNEL WORD TABLE */ 05237000 * 2 CVTIERLC PTR(31), /* ADDRESS OF THE ASYNCHRONOUS 05238000 * EXIT QUEUE (OS/VS1) 0268 05239000 * (MDC218) YM4043*/ 05240000 * 3 CVTRV516 PTR(31), /* ** CVTIERLC FIELD UNUSED IN 05241000 * MVS ** (MDC218) YM4043*/ 05242000 * 2 CVTMSER PTR(31), /* ADDRESS OF DATA AREA OF 0268 05243000 * MASTER SCHEDULER RESIDENT 0268 05244000 * DATA AREA */ 05245000 * 2 CVT0PT01 PTR(31), /* ADDRESS OF BRANCH ENTRY POINT 05246000 * OF POST ROUTINE */ 05247000 * 2 CVTRSV11 PTR(31), /* ** CVTTRMTB FIELD UNUSED 0268 05248000 * IN OS/VS ** */ 05249000 * 2 CVTHEAD PTR(31), /* ADDRESS OF THE HIGHEST 0268 05250000 * PRIORITY TCB IN THE READY 0268 05251000 * QUEUE (OS/VS1) MDC025*/ 05252000 * 3 CVTSV76C BIT(32) BDY(WORD), /* SVC 76 MESSAGE CONTROL FIELD. 05253000 * HIGH-ORDER BIT IS DEFINED, 0268 05254000 * AND ALL OTHER BITS ARE ZERO. 05255000 * (OS/VS2) (MDC373) @ZA18857*/ 05256000 * 4 CVTSV76Q BIT(1), /* SVC 76 ENQUEUE SWITCH 0268 05257000 * (OS/VS2) (MDC374) @ZA18857*/ 05258000 * 2 CVTMZ00 PTR(31), /* HIGHEST ADDRESS IN VIRTUAL 0268 05259000 * STORAGE FOR THE MACHINE */ 05260000 * 2 CVT1EF00 PTR(31), /* ADDRESS OF ROUTINE WHICH 0268 05261000 * CREATES IRB'S FOR EXITS */ 05262000 * 2 CVTQOCR PTR(31), /* GRAPHICS INTERFACE TASK (GFX) 05263000 * FIELD. ADDRESS OF SEVENTH 0268 05264000 * WORD OF GFX PARAMETER LIST, 05265000 * IF GFX IS ACTIVE. ZERO IF 0268 05266000 * GFX IS NOT ACTIVE. */ 05267000 * 2 CVTQMWR PTR(31), /* ADDRESS OF QUEUE MANAGER'S 0268 05268000 * SYSTEM OUTPUT COMMUNICATIONS- 05269000 * DATA-AREA (CDA), WHICH IS 0268 05270000 * STORED ON AN EXTERNAL DEVICE */ 05271000 * 2 CVTSNCTR FIXED(15), /* SERIAL NUMBER COUNTER FOR 0268 05272000 * ASSIGNING SERIAL NUMBERS TO 05273000 * NON-SPECIFIC, UNLABELED 0268 05274000 * MAGNETIC TAPE VOLUMES */ 05275000 * 2 CVTOPTA CHAR(1), /* OPTION INDICATORS */ 05276000 * 3 CVTCCH BIT(1), /* CHANNEL CHECK HANDLER (CCH) 05277000 * OPTION PRESENT - RECOVERY 0268 05278000 * MANAGEMENT SUPPORT (RMS) 0268 05279000 * XM4686*/ 05280000 * 3 CVTAPR BIT(1), /* ALTERNATE PATH RETRY (APR) 0268 05281000 * OPTION PRESENT - RECOVERY 0268 05282000 * MANAGEMENT SUPPORT (RMS) */ 05283000 * 3 CVTDDR BIT(1), /* DYNAMIC DEVICE 0268 05284000 * RECONFIGURATION (DDR) OPTION 05285000 * PRESENT - RECOVERY MANAGEMENT 05286000 * SUPPORT (RMS) (OS/VS1) 0268 05287000 * DDR SYSTEM-INITIATED SWAP 0268 05288000 * ACTIVE (OS/VS2) MDC126*/ 05289000 * 3 CVTNIP BIT(1), /* NIP IS EXECUTING */ 05290000 * 3 CVTRSV12 BIT(1), /* RESERVED */ 05291000 * 3 CVTRSV13 BIT(1), /* RESERVED */ 05292000 * 3 CVTASCII BIT(1), /* ASCII TAPE PROCESSING IS 0268 05293000 * GENERATED IN THIS SYSTEM */ 05294000 * 3 CVTXPFP BIT(1), /* CPU HAS EXTENDED PRECISION 0268 05295000 * FLOATING POINT FEATURE */ 05296000 * 2 CVTOPTB CHAR(1), /* MISCELLANEOUS FLAGS */ 05297000 * 3 CVTPROT BIT(1), /* CPU HAS STORE PROTECTION 0268 05298000 * FEATURE (OS/VS1) */ 05299000 * 3 CVTCTIMS BIT(1), /* IF ON, HARDWARE HAS THE CLOCK 05300000 * COMPARATOR AND CPU TIMER 0268 05301000 * FEATURE INSTALLED, AND OS/VS1 05302000 * SYSGEN HAS SPECIFIED THIS 0268 05303000 * FEATURE (OS/VS1) MDC127*/ 05304000 * 3 CVTTOD BIT(1), /* CPU HAS TIME-OF-DAY CLOCK 0268 05305000 * FEATURE */ 05306000 * 3 CVTNLOG BIT(1), /* SYS1.LOGREC IS UNAVAILABLE 0268 05307000 * FOR ERROR RECORDING. ALWAYS 05308000 * SET TO ZERO FOR OS/VS1 ICB382*/ 05309000 * 3 CVTAPTHR BIT(1), /* NIP SETS THIS BIT TO 1 WHEN 05310000 * DEVICE TESTING IS COMPLETE. 05311000 * IF 1, I/O SUPERVISOR USES AN 05312000 * ALTERNATE PATH TO A DEVICE 0268 05313000 * WHEN A CONDITION CODE OF 3 0268 05314000 * EXISTS. THIS BIT IS RESET BY 05315000 * NIP TO 0 AFTER THE LINK PACK 05316000 * AREA IS INITIALIZED. YM2670*/ 05317000 * 3 CVTFP BIT(1), /* CPU HAS FETCH PROTECTION 0268 05318000 * FEATURE (OS/VS1) ICB427*/ 05319000 * 3 CVTRSV16 BIT(1), /* RESERVED */ 05320000 * 3 CVTRSV17 BIT(1), /* RESERVED */ 05321000 * 2 CVTQCDSR PTR(31), /* CDE SEARCH ROUTINE ADDRESS 0268 05322000 * (OS/VS2) 0268 05323000 * ADDRESS OF THE ROUTINE THAT 05324000 * SEARCHES THE REENTERABLE LOAD 05325000 * MODULE QUEUE (OS/VS1) */ 05326000 * 2 CVTQLPAQ PTR(31), /* ADDRESS OF POINTER TO MOST 0268 05327000 * RECENT ENTRY ON LINK PACK 0268 05328000 * AREA CDE QUEUE (OS/VS2) 0268 05329000 * ADDRESS OF THE REENTERABLE 0268 05330000 * LOAD MODULE QUEUE (OS/VS1) */ 05331000 * 2 CVTRSV18 PTR(31), /* ** CVTMPCVT FIELD UNUSED IN 05332000 * OS/VS ** */ 05333000 * 2 CVTSMCA PTR(31), /* ADDRESS OF THE SYSTEM 0268 05334000 * MANAGEMENT CONTROL AREA 0268 05335000 * (SMCA) IF THE SYSTEM 0268 05336000 * MANAGEMENT FACILITIES (SMF) 05337000 * OPTION IS PRESENT IN THE 0268 05338000 * SYSTEM. OTHERWISE, ZERO. */ 05339000 * 2 CVTABEND PTR(31), /* ADDRESS OF SECONDARY CVT FOR 05340000 * ABEND IN EOT (OS/VS2) 0268 05341000 * USED BY AN INTERNAL ABEND 0268 05342000 * TRACE ROUTINE FOR DEBUG 0268 05343000 * PURPOSES (OS/VS1) XM0615*/ 05344000 * 2 CVTUSER PTR(31), /* A WORD AVAILABLE TO THE USER */ 05345000 * 2 CVTMDLDS PTR(31), /* RESERVED FOR MODEL-DEPENDENT 05346000 * SUPPORT */ 05347000 * 2 CVTQABST CHAR(2) BDY(WORD), /* AN SVC 13 (ABEND) INSTRUCTION 05348000 * (OS/VS2) RESERVED (OS/VS1) */ 05349000 * 2 CVTLNKSC CHAR(2) BDY(WORD,3), /* AN SVC 6 (LINK) INSTRUCTION 05350000 * ICB369*/ 05351000 * 2 CVTTSCE PTR(31), /* ADDRESS OF THE FIRST TIME 0268 05352000 * SLICE CONTROL ELEMENT (TSCE) */ 05353000 * 2 CVTPATCH PTR(31), /* ADDRESS OF A 200-BYTE FE 0268 05354000 * PATCH AREA */ 05355000 * 2 CVTRMS PTR(31), /* RECOVERY MANAGEMENT SUPPORT 05356000 * (RMS) COMMUNICATIONS VECTOR. 05357000 * ADDRESS OF A MACHINE STATUS 05358000 * BLOCK. */ 05359000 * 2 CVTRV515 PTR(31), /* ** CVTTSCVT FIELD UNUSED IN 05360000 * MVS ** (MDC037) @Z40AQ9A*/ 05361000 * 2 CVT0SCR1 PTR(31), /* ADDRESS OF THE SECTOR 0268 05362000 * CALCULATION ROUTINE FOR 0268 05363000 * ROTATIONAL POSITION SENSING 05364000 * (RPS) */ 05365000 * 2 CVTGTF PTR(31), /* GENERALIZED TRACE FACILITY 0268 05366000 * (GTF) CONTROL WORD ICB312*/ 05367000 * 3 CVTGTFST BIT(8), /* GTF FLAG BYTE ICB312*/ 05368000 * 4 CVTGTFS BIT(2), /* GTF STATUS (OS/VS1) MDC088*/ 05369000 * 5 CVTGTFAV BIT(1), /* IF ZERO, GTF NOT ACTIVE. 0268 05370000 * IF ONE, GTF ACTIVE. 0268 05371000 * (OS/VS2) MDC098*/ 05372000 * 5 CVTRV315 BIT(1), /* RESERVED (OS/VS2) */ 05373000 * 4 CVTSTATE BIT(1), /* GTF IS IN CONTROL PROCESSING 05374000 * A HOOK (OS/VS1) MDC093*/ 05375000 * 5 CVTRV316 BIT(1), /* RESERVED (OS/VS2) */ 05376000 * 4 CVTTMODE BIT(1), /* IF 0, MODE=INT SPECIFIED. 0268 05377000 * IF 1, MODE=EXT SPECIFIED 0268 05378000 * WHICH MEANS TRACE DATA IS TO 05379000 * BE WRITTEN TO AN EXTERNAL 0268 05380000 * DEVICE. (OS/VS1) MDC094*/ 05381000 * 5 CVTRV317 BIT(1), /* RESERVED (OS/VS2) */ 05382000 * 4 CVTFORM BIT(1), /* TRACE DATA IS TO BE FORMATTED 05383000 * ON ABNORMAL TERMINATION 0268 05384000 * (OS/VS1) MDC095*/ 05385000 * 5 CVTRV318 BIT(1), /* RESERVED (OS/VS2) */ 05386000 * 4 CVTUSR BIT(1), /* TRACE=USR SPECIFIED. 0268 05387000 * USER-REQUESTED TRACE DATA IS 05388000 * TO BE INCLUDED IN THE TRACE 05389000 * DATA SET. (MDC317) @Z30AP9A*/ 05390000 * 4 CVTRNIO BIT(1), /* GTF IS ACTIVE AND TRACING 0268 05391000 * RNIO EVENTS MDC187*/ 05392000 * 4 CVTRSV27 BIT(1), /* RESERVED */ 05393000 * 3 CVTGTFA PTR(24), /* ADDRESS OF THE MONITOR CALL 05394000 * VECTOR TABLE (OS/VS1) 0268 05395000 * ADDRESS OF MAIN MONITOR CALL 05396000 * ROUTING TABLE, MCHEAD 0268 05397000 * (OS/VS2) MDC156*/ 05398000 * 2 CVTAQAVT PTR(31), /* ADDRESS OF THE FIRST WORD OF 05399000 * THE TCAM DISPATCHER WHICH 0268 05400000 * CONTAINS THE ADDRESS OF THE 05401000 * ADDRESS VECTOR TABLE (AVT). 05402000 * IF ZERO, TCAM IS NOT STARTED */ 05403000 * 3 CVTTCMFG CHAR(1), /* TCAM FLAGS */ 05404000 * 4 CVTTCRDY BIT(1), /* TCAM IS READY TO ACCEPT USERS*/ 05405000 * 4 CVTRSV28 BIT(1), /* RESERVED */ 05406000 * 4 CVTRSV29 BIT(1), /* RESERVED */ 05407000 * 4 CVTRSV30 BIT(1), /* RESERVED */ 05408000 * 4 CVTRSV31 BIT(1), /* RESERVED */ 05409000 * 4 CVTRSV32 BIT(1), /* RESERVED */ 05410000 * 4 CVTRSV33 BIT(1), /* RESERVED */ 05411000 * 4 CVTRSV34 BIT(1), /* RESERVED */ 05412000 * 3 CVTAQAVB PTR(24), /* SAME AS CVTAQAVT ABOVE */ 05413000 * 2 CVTVOLM2 PTR(31), /* ADDRESS OF TABLE FOR POWER 0268 05414000 * WARNING FEATURE (PWF) 0268 05415000 * (OS/VS2) (MDC308) @Z30AQ9A*/ 05416000 * 3 CVTTATA PTR(31), /* ADDRESS OF THE FIRST ENTRY IN 05417000 * THE TCB ADDRESS TABLE. THE 05418000 * FIRST ENTRY IS FOR PARTITION 05419000 * 0. (OS/VS1) */ 05420000 * 4 CVTTSKS PTR(8), /* MAXIMUM ALLOWABLE NUMBER OF 05421000 * ENTRIES IN THE TCB ADDRESS 0268 05422000 * TABLE (OS/VS1) */ 05423000 * 5 CVTVOLF2 BIT(8), /* PWF FLAG BYTE. THIS BYTE IS 05424000 * OVERLAID BY CVTVOLM2 AFTER 0268 05425000 * PWF INITIALIZATION. 0268 05426000 * (OS/VS2) (MDC309) @Z30AQ9A*/ 05427000 * 6 CVTVOLI2 BIT(1), /* PWF INITIALIZATION HAS NOT 0268 05428000 * OCCURRED (OS/VS2) 0268 05429000 * (MDC310) @Z30AQ9A*/ 05430000 * 4 CVTTAT PTR(24), /* SAME AS CVTTATA ABOVE */ 05431000 * 5 CVTVOLT2 PTR(24), /* PWF RECHECK TIME DELAY. 0268 05432000 * THIS VALUE IS OVERLAID BY 0268 05433000 * CVTVOLM2 AFTER PWF 0268 05434000 * INITIALIZATION. (OS/VS2) 0268 05435000 * (MDC311) @Z30AQ9A*/ 05436000 * 2 CVTATER PTR(31), /* ADDRESS OF THE SYSTEM ERROR 05437000 * TCB. THE PURGE ROUTINE USES 05438000 * THIS FIELD TO ACCESS THE 0268 05439000 * SIRB. (OS/VS1) ICB346*/ 05440000 * 3 CVTSYST PTR(8), /* NUMBER OF ENTRIES IN THE TCB 05441000 * ADDRESS TABLE FOR TCB'S 0268 05442000 * CREATED DURING SYSTEM 0268 05443000 * GENERATION (OS/VS1) */ 05444000 * 3 CVTATERA PTR(24), /* SAME AS CVTATER ABOVE */ 05445000 * 2 CVTEXT1 PTR(31), /* ADDRESS OF OS - OS/VS COMMON 05446000 * EXTENSION ICB421*/ 05447000 * 2 CVTCBSP PTR(31), /* ADDRESS OF ACCESS METHOD 0268 05448000 * CONTROL BLOCK STRUCTURE 0268 05449000 * MDC195*/ 05450000 * 2 CVTPURG PTR(31), /* ADDRESS OF SUBSYSTEM PURGE 0268 05451000 * ROUTINE ICB330*/ 05452000 * 3 CVTRSV35 PTR(8), /* RESERVED ICB330*/ 05453000 * 3 CVTPURGA PTR(24), /* ADDRESS OF SUBSYSTEM PURGE 0268 05454000 * ROUTINE ICB330*/ 05455000 * 2 CVTAMFF CHAR(4), /* RESERVED FOR ACCESS METHOD 0268 05456000 * FLAGS ICB436*/ 05457000 * 2 CVTQMSG PTR(31), /* ADDRESS OF INFORMATION TO BE 05458000 * PRINTED BY ABEND ICB307*/ 05459000 * 3 CVTRSV36 PTR(8), /* RESERVED ICB307*/ 05460000 * 3 CVTQMSGA PTR(24), /* ADDRESS OF INFORMATION TO BE 05461000 * PRINTED BY ABEND ICB307*/ 05462000 * 2 CVTDMSR PTR(31), /* SAME AS CVTDMSRA BELOW ICB346*/ 05463000 * 3 CVTRSV37 PTR(8), /* RESERVED (OS/VS1) ICB346*/ 05464000 * 4 CVTDMSRF BIT(8), /* OPEN/CLOSE/EOV FLAG BYTE. 0268 05465000 * SETTING BOTH BIT 0 AND BIT 1 05466000 * ON WILL CAUSE BOTH KINDS OF 05467000 * DUMPS TO BE TAKEN. THESE 0268 05468000 * BITS ARE USED DURING TESTING 05469000 * AND DEBUGGING WHEN OTHER 0268 05470000 * DEBUG METHODS ARE INEFFECTIVE. 05471000 * (OS/VS2) (MDC350) @Z40AQ9A*/ 05472000 * 5 CVTSDUMP BIT(1), /* SET BY COREZAP. WILL CAUSE 05473000 * AN SDUMP TO BE TAKEN AND 0268 05474000 * IEC999I MESSAGE ISSUED FOR 0268 05475000 * EVERY ABEND ISSUED WITHIN AN 05476000 * OPEN/CLOSE/EOV OR DADSM 0268 05477000 * FUNCTION. (OS/VS2) 0268 05478000 * (MDC351) @Z40AQ9A*/ 05479000 * 5 CVTUDUMP BIT(1), /* SET BY COREZAP. WILL CAUSE 05480000 * AN ABEND DUMP TO BE TAKEN FOR 05481000 * EVERY ABEND ISSUED WITHIN AN 05482000 * OPEN/CLOSE/EOV OR DADSM 0268 05483000 * FUNCTION. (OS/VS2) 0268 05484000 * (MDC352) @Z40AQ9A*/ 05485000 * 5 CVTRV629 BIT(1), /* RESERVED (OS/VS2) @Z40AQ9A*/ 05486000 * 5 CVTRV630 BIT(1), /* RESERVED (OS/VS2) @Z40AQ9A*/ 05487000 * 5 CVTRV631 BIT(1), /* RESERVED (OS/VS2) @Z40AQ9A*/ 05488000 * 5 CVTRV632 BIT(1), /* RESERVED (OS/VS2) @Z40AQ9A*/ 05489000 * 5 CVTRV633 BIT(1), /* RESERVED (OS/VS2) @Z40AQ9A*/ 05490000 * 5 CVTRV634 BIT(1), /* RESERVED (OS/VS2) @Z40AQ9A*/ 05491000 * 3 CVTDMSRA PTR(24), /* ADDRESS OF THE OPEN/CLOSE/EOV 05492000 * SUPERVISORY ROUTINE IN THE 0268 05493000 * NUCLEUS. THIS ROUTINE 0268 05494000 * HANDLES THE ROUTING OF 0268 05495000 * CONTROL AMONG THE I/O SUPPORT 05496000 * ROUTINES. ICB346*/ 05497000 * 2 CVTRSV38 PTR(31), /* RESERVED */ 05498000 * 2 CVTRSV39 PTR(31), /* RESERVED */ 05499000 * 0268 05500000 * /* OS/VS1 - OS/VS2 COMMON SECTION */ 05501000 * 0268 05502000 * 2 CVTREAL PTR(31), /* ADDRESS OF THE VIRTUAL 0268 05503000 * STORAGE BYTE FOLLOWING THE 0268 05504000 * HIGHEST VIRTUAL=REAL STORAGE 05505000 * ADDRESS ICB368*/ 05506000 * 2 CVTPTRV PTR(31), /* ADDRESS OF PAGING SUPERVISOR 05507000 * GENERAL ROUTINE TO TRANSLATE 05508000 * REAL ADDRESSES TO VIRTUAL 0268 05509000 * ADDRESSES */ 05510000 * 2 CVTMODE PTR(31), /* ADDRESS OF ROUTINE TO CHANGE 05511000 * SYSTEM MASK (OS/VS1) 0268 05512000 * (MDC217) YM4244*/ 05513000 * 2 CVTJESCT PTR(31), /* ADDRESS OF JOB ENTRY 0268 05514000 * SUBSYSTEM (JES) CONTROL TABLE*/ 05515000 * 2 CVTJEPS PTR(31), /* ADDRESS OF JOB ENTRY 0268 05516000 * PERIPHERAL SERVICES (JEPS) 0268 05517000 * MONITOR TCB (OS/VS1) YM2702*/ 05518000 * 2 CVTTZ FIXED(31), /* DIFFERENCE BETWEEN LOCAL TIME 05519000 * AND GREENWICH MEAN TIME IN 0268 05520000 * BINARY UNITS OF 1.048576 0268 05521000 * SECONDS */ 05522000 * 2 CVTMCHPR PTR(31), /* ADDRESS OF MACHINE CHECK 0268 05523000 * PARAMETER LIST */ 05524000 * 2 CVTEORM PTR(31), /* HIGHEST REAL ADDRESS IN MAIN 05525000 * STORAGE (OS/VS1) POTENTIAL 05526000 * REAL HIGH STORAGE ADDRESS 0268 05527000 * (OS/VS2) MDC087*/ 05528000 * 2 CVTERPV PTR(31), /* ADDRESS OF I/O SUPERVISOR 0268 05529000 * SUBROUTINE TO CONVERT CCW 0268 05530000 * DATA ADDRESSES TO VIRTUAL 0268 05531000 * ADDRESSES (OS/VS1) 0268 05532000 * (MDC219) YM4043*/ 05533000 * 3 CVTRV517 PTR(31), /* ** CVTERPV FIELD UNUSED IN 0268 05534000 * MVS ** (MDC219) YM4043*/ 05535000 * 2 CVTINTLA PTR(31), /* ADDRESS OF A TIME INTERVAL. 05536000 * I/O LOAD BALANCING COUNTS THE 05537000 * NUMBER OF EXCP'S ISSUED 0268 05538000 * DURING THIS TIME INTERVAL AND 05539000 * USES THE VALUE IN DETERMINING 05540000 * THE AMOUNT OF I/O ACTIVITY IN 05541000 * THE SYSTEM. (OS/VS1) 0268 05542000 * (MDC220) YM4043*/ 05543000 * 3 CVTRV518 PTR(31), /* ** CVTINTLA FIELD UNUSED IN 05544000 * MVS ** (MDC220) YM4043*/ 05545000 * 2 CVTAPF PTR(31), /* SAME AS CVTAPFA BELOW ICB360*/ 05546000 * 3 CVTRSV40 PTR(8), /* RESERVED ICB360*/ 05547000 * 3 CVTAPFA PTR(24), /* ADDRESS OF BRANCH ENTRY POINT 05548000 * IN AUTHORIZED PROGRAM FACILITY 05549000 * (APF) ROUTINE */ 05550000 * 2 CVTEXT2 PTR(31), /* ADDRESS OF OS/VS1 - OS/VS2 0268 05551000 * COMMON EXTENSION ICB330*/ 05552000 * 3 CVTRSV41 PTR(8), /* RESERVED ICB330*/ 05553000 * 3 CVTEXT2A PTR(24), /* SAME AS CVTEXT2 ABOVE ICB330*/ 05554000 * 2 CVTHJES PTR(31), /* SAME AS CVTHJESA BELOW ICB454*/ 05555000 * 3 CVTRSV42 PTR(8), /* RESERVED ICB454*/ 05556000 * 3 CVTHJESA PTR(24), /* ADDRESS OF OPTIONAL JOB ENTRY 05557000 * SUBSYSTEM (JES) COMMUNICATION 05558000 * VECTOR TABLE ICB454*/ 05559000 * 2 CVTRSV43 FIXED(15), /* RESERVED */ 05560000 * 2 CVTRSV44 FIXED(15), /* RESERVED */ 05561000 * 2 CVTRSV45 PTR(31), /* RESERVED */ 05562000 * 2 CVTRSV46 PTR(31), /* RESERVED */ 05563000 * 0268 05564000 * /* OS/VS1 OVERLAY */ 05565000 * 0268 05566000 * 2 CVTPGSIA PTR(31), /* ADDRESS OF PAGING SUPERVISOR 05567000 * INFORMATION AREA */ 05568000 * 2 CVTPCVT PTR(31), /* ADDRESS OF PAGED CVT 0268 05569000 * EXTENSION */ 05570000 * 2 CVTA1F1 CHAR(1), /* PAGE FAULT FLAGS */ 05571000 * 3 CVTPFSW BIT(1), /* ONLY THE PAGING TASK MAY BE 05572000 * DISPATCHED */ 05573000 * 3 CVTSRSW BIT(1), /* NO TASK EXCEPT THE PAGING TASK 05574000 * MAY EXECUTE DISABLED CODE */ 05575000 * 3 CVTRSV47 BIT(1), /* RESERVED */ 05576000 * 3 CVTRSV48 BIT(1), /* RESERVED */ 05577000 * 3 CVTRSV49 BIT(1), /* RESERVED */ 05578000 * 3 CVTRSV50 BIT(1), /* RESERVED */ 05579000 * 3 CVTRSV51 BIT(1), /* RESERVED */ 05580000 * 3 CVTRSV52 BIT(1), /* RESERVED */ 05581000 * 2 CVTSYSK CHAR(1), /* SYSTEM LOCK. IF NOT ZERO, 0268 05582000 * ONLY THE PAGING TASK MAY BE 05583000 * DISPATCHED */ 05584000 * 3 CVTRSV53 BIT(1), /* RESERVED */ 05585000 * 3 CVTRSV54 BIT(1), /* RESERVED */ 05586000 * 3 CVTRSV55 BIT(1), /* RESERVED */ 05587000 * 3 CVTRSV56 BIT(1), /* RESERVED */ 05588000 * 3 CVTSLKR BIT(1), /* MACHINE CHECK HANDLING IS IN 05589000 * PROGRESS ICB320*/ 05590000 * 3 CVTSLKQ BIT(1), /* SYSTEM QUEUE AREA (SQA) HAS 05591000 * BEEN EXHAUSTED */ 05592000 * 3 CVTSLKP BIT(1), /* LAST PAGING CONTROL BLOCK 0268 05593000 * (PCB) HAS BEEN USED */ 05594000 * 3 CVTSLKO BIT(1), /* A ROUTINE RUNNING DISABLED 0268 05595000 * HAS PRODUCED A PAGE FAULT */ 05596000 * 2 CVTSULK FIXED(15), /* SUPERVISOR LOCK. NUMBER OF 05597000 * TASKS ATTEMPTING TO EXECUTE 05598000 * DISABLED ROUTINES. IF NOT 0268 05599000 * ZERO, ONLY ENABLED TASKS MAY 05600000 * RUN. */ 05601000 * 2 CVTSMF PTR(31), /* ADDRESS OF SYSTEM MANAGEMENT 05602000 * FACILITIES (SMF) TCB ICB395*/ 05603000 * 2 CVTPNWFR PTR(31), /* ADDRESS OF ROUTINE WHICH 0268 05604000 * FREES THE 'EMERGENCY' WORK 0268 05605000 * AREA (ICB413) XM2452*/ 05606000 * 2 CVTDDCE PTR(31), /* ADDRESS OF DYNAMIC DISPATCHING 05607000 * CONTROL ELEMENT ICB466*/ 05608000 * 2 CVTRSV57 FIXED(15), /* RESERVED */ 05609000 * 2 CVTRSV58 FIXED(15), /* RESERVED */ 05610000 * 2 CVTSTOA FIXED(31), /* SAVE AREA FOR THE REAL 0268 05611000 * STORAGE ADDRESS OF THE 0268 05612000 * SEGMENT TABLE ORIGIN ICB496*/ 05613000 * 2 CVTVOLM1 PTR(31), /* ADDRESS OF TABLE FOR POWER 0268 05614000 * WARNING FEATURE (PWF) 0268 05615000 * (MDC312) @X04AQ9A*/ 05616000 * 3 CVTVOLF1 BIT(8), /* PWF FLAG BYTE. THIS BYTE IS 05617000 * OVERLAID BY CVTVOLM1 AFTER 0268 05618000 * PWF INITIALIZATION. 0268 05619000 * (MDC313) @X04AQ9A*/ 05620000 * 4 CVTVOLI1 BIT(1), /* PWF INITIALIZATION HAS NOT 0268 05621000 * OCCURRED (MDC314) @X04AQ9A*/ 05622000 * 3 CVTVOLT1 PTR(24), /* PWF RECHECK TIME DELAY. 0268 05623000 * THIS VALUE IS OVERLAID BY 0268 05624000 * CVTVOLM1 AFTER PWF 0268 05625000 * INITIALIZATION. 0268 05626000 * (MDC315) @X04AQ9A*/ 05627000 * 2 CVTRSV61 PTR(31), /* RESERVED */ 05628000 * 2 CVTATMCT PTR(31), /* POINTER TO VTAM CONTROL 0268 05629000 * TABLE MDC082*/ 05630000 * 3 CVTATMST CHAR(1), /* VTAM START STATUS MDC135*/ 05631000 * 3 CVTATMCA PTR(24), /* POINTER TO VTAM CONTROL 0268 05632000 * TABLE MDC138*/ 05633000 * 2 CVTAUTH PTR(31), /* POINTER TO AUTHORIZED LIBRARY 05634000 * TABLE MDC188*/ 05635000 * 2 CVTACTAP PTR(31), /* ADDRESS OF BRANCH ENTRY TO 0268 05636000 * VTAM'S SVC ROUTINE ISTAPC42 05637000 * (MDC216) @X31BH9A*/ 05638000 * 2 CVTRV485 PTR(31), /* RESERVED MDC106*/ 05639000 * 2 CVTRV486 PTR(31), /* RESERVED MDC106*/ 05640000 * 2 CVTRV487 PTR(31), /* RESERVED MDC106*/ 05641000 * 2 CVTRV488 PTR(31); /* RESERVED MDC106*/ 05642000 * 0268 05643000 * /* OS/VS2 OVERLAY */ 05644000 * 0269 05645000 * DECLARE 0269 05646000 * 1 CVTS01 DEF(CVTPGSIA) BDY(WORD), 0269 05647000 * 2 CVTGETL PTR(31), /* ADDRESS OF IKJGETL, TSO GET 05648000 * LINE ROUTINE (MDC206) YM2225*/ 05649000 * 2 CVTLPDSR PTR(31), /* ADDRESS OF LINK PACK AREA 0269 05650000 * (LPA) DIRECTORY SEARCH 0269 05651000 * ROUTINE */ 05652000 * 2 CVTPVTP PTR(31), /* ADDRESS OF PAGE VECTOR TABLE */ 05653000 * 2 CVTLPDIA PTR(31), /* ADDRESS OF LINK PACK AREA 0269 05654000 * (LPA) DIRECTORY (ON PAGE 0269 05655000 * BOUNDARY) */ 05656000 * 3 CVTDIRST CHAR(1), /* FLAG BYTE */ 05657000 * 4 CVTDICOM BIT(1), /* LPA DIRECTORY HAS BEEN 0269 05658000 * INITIALIZED BY NIP */ 05659000 * 4 CVTRSV63 BIT(1), /* RESERVED */ 05660000 * 4 CVTRSV64 BIT(1), /* RESERVED */ 05661000 * 4 CVTRSV65 BIT(1), /* RESERVED */ 05662000 * 4 CVTRSV66 BIT(1), /* RESERVED */ 05663000 * 4 CVTRSV67 BIT(1), /* RESERVED */ 05664000 * 4 CVTRSV68 BIT(1), /* RESERVED */ 05665000 * 4 CVTRSV69 BIT(1), /* RESERVED */ 05666000 * 3 CVTLPDIR PTR(24), /* ADDRESS OF LPA DIRECTORY. 0269 05667000 * ON PAGE BOUNDARY */ 05668000 * 2 CVTRV320 PTR(31), /* ** CVTPAGE1 FIELD UNUSED IN 05669000 * MVS ** (MDC112) @Z40AQ9A*/ 05670000 * 2 CVTRV321 PTR(31), /* ** CVTPGSUP FIELD UNUSED IN 05671000 * MVS ** (MDC113) @Z40AQ9A*/ 05672000 * 2 CVTSLIDA CHAR(4) BDY(WORD), /* IDENTITY OF TCB CAUSING 0269 05673000 * SUPERVISOR LOCK BYTE (CVTSYLK) 05674000 * TO BE SET OR IDENTITY OF TCB 05675000 * THAT SECOND EXIT PROCESSING 05676000 * IS FOR WHEN CVTSEIC=1 */ 05677000 * 3 CVTSYLK CHAR(1), /* SUPERVISOR LOCK. ONLY 0269 05678000 * ENABLED TASKS MAY BE 0269 05679000 * DISPATCHED */ 05680000 * 3 CVTSLID CHAR(3), /* SAME AS CVTSLIDA ABOVE */ 05681000 * 2 CVTRV322 PTR(31), /* RESERVED FOR FUTURE USE 0269 05682000 * (MDC343) @Z40AQ9A*/ 05683000 * 2 CVTRV328 PTR(31), /* ** CVTSEG AND CVTSEGA FIELDS 05684000 * UNUSED IN MVS ** 0269 05685000 * (MDC139) @Z40AQ9A*/ 05686000 * 2 CVTRV329 PTR(31), /* ** CVTSEGB FIELD UNUSED IN 0269 05687000 * MVS ** (MDC141) @Z40AQ9A*/ 05688000 * 2 CVTRV330 PTR(31), /* ** CVTSEGC AND SUBFIELDS 0269 05689000 * UNUSED IN MVS ** 0269 05690000 * (MDC142) @Z40AQ9A*/ 05691000 * 2 CVTRV331 PTR(31), /* ** CVTSEGD AND SUBFIELDS 0269 05692000 * UNUSED IN MVS ** 0269 05693000 * (MDC145) @Z40AQ9A*/ 05694000 * 2 CVTRSV77 PTR(8), /* RESERVED */ 05695000 * 2 CVTSPVLK PTR(8), /* NUMBER OF TASKS WHICH HAVE 0269 05696000 * TERMINATED WHILE OWNING 0269 05697000 * SUPERVISOR LOCK WITHOUT 0269 05698000 * OPERATOR HAVING YET BEEN 0269 05699000 * NOTIFIED */ 05700000 * 2 CVTCTLFG CHAR(1), /* SYSTEM CONTROL FLAGS */ 05701000 * 3 CVTRV323 BIT(1), /* ** CVTPSIC BIT UNUSED IN 0269 05702000 * MVS ** (MDC118) @Z40AQ9A*/ 05703000 * 3 CVTRV333 BIT(1), /* ** CVTAPGB BIT UNUSED IN 0269 05704000 * MVS ** (MDC151) @Z40AQ9A*/ 05705000 * 3 CVTRSV78 BIT(1), /* RESERVED ICB382*/ 05706000 * 3 CVTDSTAT BIT(1), /* DEVSTAT OPTION IN EFFECT. 0269 05707000 * DEVICE ADDRESS FOR 2319, 0269 05708000 * 3330, 2314, 3330-1, 3340 CAN 05709000 * VARY ACROSS SYSTEMS MDC189*/ 05710000 * 3 CVTRSV79 BIT(1), /* RESERVED */ 05711000 * 3 CVTNOMP BIT(1), /* MULTIPROCESSING CODE IS NOT 05712000 * IN THE SYSTEM MDC176*/ 05713000 * 3 CVTGTRCE BIT(1), /* GENERALIZED TRACE FACILITY 0269 05714000 * (GTF) HAS SUPPRESSED 0269 05715000 * SUPERVISOR TRACE ICB446*/ 05716000 * 3 CVTSDTRC BIT(1), /* SVC DUMP HAS SUPPRESSED 0269 05717000 * SUPERVISOR TRACE ICB446*/ 05718000 * 2 CVTAPG CHAR(1), /* DISPATCHING PRIORITY OF 0269 05719000 * AUTOMATIC PRIORITY GROUP 0269 05720000 * (APG) ICB339*/ 05721000 * 2 CVTTRACE CHAR(2) BDY(WORD), /* BRANCH ON REGISTER 0269 05722000 * INSTRUCTION. SET BY NIP. 0269 05723000 * REGISTER TEN FOR TRACE. 0269 05724000 * REGISTER ELEVEN FOR NO TRACE.*/ 05725000 * 2 CVTTRAC2 CHAR(2) BDY(WORD,3), /* BRANCH ON REGISTER 11 0269 05726000 * INSTRUCTION. THIS ALLOWS FOR 05727000 * SUPPRESSING TRACE DYNAMICALLY 05728000 * BY SETTING CONDITION CODE 0269 05729000 * MASK TO ZERO IN FIRST 0269 05730000 * INSTRUCTION (CVTTRACE) */ 05731000 * 2 CVTRSCN PTR(31), /* ADDRESS OF ROUTINE TO SCAN 0269 05732000 * TCB TREE */ 05733000 * 2 CVTTAS PTR(31), /* ADDRESS OF ROUTINE TO 0269 05734000 * TRANSFER ADDRESS SPACE */ 05735000 * 2 CVTRV332 PTR(31), /* ** CVTPVALD FIELD UNUSED IN 05736000 * MVS ** (MDC148) @Z40AQ9A*/ 05737000 * 2 CVTSHRVM PTR(31), /* LOWEST ADDRESS OF SHARED 0269 05738000 * VIRTUAL STORAGE AREA. THIS 05739000 * ADDRESS WILL BE THE 0269 05740000 * BEGINNING OF THE COMMON 0269 05741000 * SERVICE AREA (CSA) 0269 05742000 * (MDC324) @Z30AQ9A*/ 05743000 * 2 CVT0VL01 PTR(31), /* ENTRY POINT ADDRESS OF 0269 05744000 * VALIDITY CHECK ROUTINE 0269 05745000 * (IEA0VL01) USED TO COMPARE 0269 05746000 * PROTECT KEY OF AN ADDRESS 0269 05747000 * WITH TCB PROTECT KEY. */ 05748000 * 2 CVTRV324 PTR(31), /* ** CVTPFIXQ FIELD UNUSED IN 05749000 * MVS ** (MDC119) @Z40AQ9A*/ 05750000 * 2 CVTRV325 PTR(31), /* ** CVTPFIXR FIELD UNUSED IN 05751000 * MVS ** (MDC120) @Z40AQ9A*/ 05752000 * 2 CVTRV326 PTR(31), /* ** CVTPFIXP FIELD UNUSED IN 05753000 * MVS ** (MDC121) @Z40AQ9A*/ 05754000 * 2 CVTASCRF PTR(31), /* CREATED ASCB QUEUE HEADER 0269 05755000 * (MDC337) @ZA04120*/ 05756000 * 2 CVTASCRL PTR(31), /* CREATED ASCB QUEUE TRAILER 0269 05757000 * (MDC338) @ZA04120*/ 05758000 * 2 CVTPUTL PTR(31), /* ADDRESS OF IKJPUTL, TSO PUT 05759000 * LINE ROUTINE (MDC207) YM2225*/ 05760000 * 2 CVTSRBRT PTR(31), /* DISPATCHER RETURN ADDRESS FOR 05761000 * SRB ROUTINES MDC130*/ 05762000 * 2 CVTOLT0A PTR(31), /* BRANCH ENTRY TO OLTEP MEMORY 05763000 * TERMINATION RESOURCE MANAGER 05764000 * MDC129*/ 05765000 * 2 CVTSMFEX PTR(31), /* BRANCH ENTRY TO SYSTEM 0269 05766000 * MANAGEMENT FACILITIES (SMF) 05767000 * EXCP COUNTING ROUTINE FOR 0269 05768000 * VAM WINDOW INTERCEPT MDC133*/ 05769000 * 2 CVTCSPIE PTR(31), /* FOR CHECKPOINT/RESTART, BRANCH 05770000 * ENTRY TO SPIE MDC149*/ 05771000 * 2 CVTPTGT PTR(31), /* ADDRESS OF IKJPTGT, TSO 0269 05772000 * PUTGET ROUTINE (MDC208) 0269 05773000 * YM2225*/ 05774000 * 2 CVTIOSPL PTR(8), /* PRIORITY LEVEL OF I/O 0269 05775000 * SUPERVISOR CHANNEL SCHEDULER 05776000 * MDC019*/ 05777000 * 2 CVTRV513 CHAR(1), /* RESERVED MDC165*/ 05778000 * 2 CVTDSSAC CHAR(1), /* DYNAMIC SUPPORT SYSTEM (DSS) 05779000 * ACTIVATED FLAG - USED BY 0269 05780000 * RESTART FLIH. IF X'00', DSS 05781000 * NOT INITIALIZED. IF X'FF', 05782000 * DSS HAS BEEN INITIALIZED. 0269 05783000 * MDC163*/ 05784000 * 2 CVTRV139 PTR(8), /* RESERVED */ 05785000 * 2 CVTSTCK PTR(31), /* ADDRESS OF IKJSTCK, TSO STACK 05786000 * ROUTINE (MDC209) YM2225*/ 05787000 * 2 CVTMAXMP PTR(15), /* FOR MEASUREMENT FACILITY 0269 05788000 * (MF/1), MAXIMUM PHYSICAL 0269 05789000 * CPU ADDRESS SUPPORTED BY 0269 05790000 * THIS RELEASE MDC165*/ 05791000 * 2 CVTRV144 FIXED(15), /* RESERVED */ 05792000 * 2 CVTSCAN PTR(31), /* ADDRESS OF IKJSCAN, TSO SCAN 05793000 * ROUTINE (MDC210) YM2225*/ 05794000 * 2 CVTAUTHL PTR(31), /* POINTER TO AUTHORIZED 0269 05795000 * LIBRARY TABLE MDC001*/ 05796000 * 2 CVTBLDCP PTR(31), /* BRANCH ENTRY TO BUILD POOL 0269 05797000 * MDC003*/ 05798000 * 2 CVTGETCL PTR(31), /* BRANCH ENTRY TO GET CELL 0269 05799000 * MDC004*/ 05800000 * 2 CVTFRECL PTR(31), /* BRANCH ENTRY TO FREE CELL 0269 05801000 * MDC005*/ 05802000 * 2 CVTDELCP PTR(31), /* BRANCH ENTRY TO DELETE POOL 05803000 * MDC006*/ 05804000 * 2 CVTCRMN PTR(31), /* BRANCH ENTRY TO SVC 120 0269 05805000 * (GETMAIN/FREEMAIN:CRBRANCH) 05806000 * MDC007*/ 05807000 * 2 CVTCRAS PTR(31), /* BRANCH ENTRY TO 'CREATE 0269 05808000 * ADDRESS SPACE' MDC008*/ 05809000 * 2 CVTQSAS PTR(31), /* BRANCH ENTRY TO TASK 0269 05810000 * TERMINATION MDC009*/ 05811000 * 2 CVTFRAS PTR(31), /* BRANCH ENTRY TO FREE 0269 05812000 * ADDRESS SPACE MDC010*/ 05813000 * 2 CVTS1EE PTR(31), /* BRANCH ENTRY TO STAGE 1 EXIT 05814000 * EFFECTOR MDC011*/ 05815000 * 2 CVTPARS PTR(31), /* ADDRESS OF IKJPARS, TSO PARSE 05816000 * ROUTINE (MDC211) YM2225*/ 05817000 * 2 CVTQUIS PTR(31), /* BRANCH ENTRY TO QUIESCE 0269 05818000 * MDC013*/ 05819000 * 2 CVTSTXU PTR(31), /* BRANCH ENTRY TO ATTENTION 0269 05820000 * EXIT EPILOGUE MDC014*/ 05821000 * 2 CVTOPTE PTR(31), /* BRANCH ENTRY ADDRESS TO 0269 05822000 * SYSEVENT MDC015*/ 05823000 * 2 CVTSDRM PTR(31), /* BRNACH ENTRY ADDRESS OF THE 05824000 * RESOURCE MANAGER ROUTINE FOR 05825000 * SVC DUMP. THIS ROUTINE CAN 05826000 * BE INVOKED BY MEMORY 0269 05827000 * TERMINATION MDC077*/ 05828000 * 2 CVTIOSCS PTR(31), /* ENTRY POINT OF I/O SUPERVISOR 05829000 * CHANNEL SCHEDULER MDC018*/ 05830000 * 2 CVTAQTOP PTR(31), /* POINTER TO AREA CONTAINING 0269 05831000 * QUIESCE DESCRIPTOR BLOCK 0269 05832000 * (QDB'S) FOR DEVICE ALLOCATION 05833000 * MDC021*/ 05834000 * 2 CVTVVMDI PTR(31), /* CONSTANT USED BY PAGED LINK 05835000 * PACK AREA (LPA) DIRECTORY 0269 05836000 * SEARCH ALGORITHM MDC022*/ 05837000 * 2 CVTASVT PTR(31), /* POINTER TO ADDRESS SPACE 0269 05838000 * VECTOR TABLE (ASVT) MDC070*/ 05839000 * 2 CVTGDA PTR(31), /* POINTER TO GLOBAL DATA AREA 05840000 * (GDA) IN SQA MDC024*/ 05841000 * 2 CVTASCBH PTR(31), /* POINTER TO HIGHEST PRIORITY 05842000 * ADDRESS SPACE CONTROL BLOCK 05843000 * (ASCB) ON THE ASCB 0269 05844000 * DISPATCHING QUEUE (HEAD OF 0269 05845000 * ASCB QUEUE) MDC027*/ 05846000 * 2 CVTASCBL PTR(31), /* POINTER TO LOWEST PRIORITY 0269 05847000 * ASCB ON ASCB DISPATCHING QUEUE 05848000 * MDC028*/ 05849000 * 2 CVTRTMCT PTR(31), /* POINTER TO RECOVERY/TERMINATION 05850000 * CONTROL TABLE MDC031*/ 05851000 * 2 CVTSV60 PTR(31), /* ADDRESS OF SVC 60 BRANCH ENTRY 05852000 * POINT (MDC354) @Z40FP9A*/ 05853000 * 2 CVTSDMP PTR(31), /* ADDRESS OF SVC DUMP BRANCH 0269 05854000 * ENTRY POINT MDC033*/ 05855000 * 2 CVTSCBP PTR(31), /* ADDRESS OF SCB PURGE RESOURCE 05856000 * MANAGER MDC034*/ 05857000 * 2 CVTSDBF PTR(31), /* ADDRESS OF 4K SQA BUFFER USED 05858000 * BY SVC DUMP. HIGH ORDER BIT 05859000 * OF THIS CVT WORD IS USED AS 05860000 * LOCK TO INDICATE BUFFER IS IN 05861000 * USE MDC035*/ 05862000 * 2 CVTRTMS PTR(31), /* RTM1 INTERNAL SERVICABILITY 05863000 * LEVEL INDICATOR MDC036*/ 05864000 * 2 CVTTPIOS PTR(31), /* ADDRESS OF THE TELEPROCESSING 05865000 * I/O SUPERV1SOR ROUTINE 0269 05866000 * (TPIOS) MDC078*/ 05867000 * 2 CVTSIC PTR(31), /* BRANCH ENTRY ADDRESS OF THE 05868000 * ROUTINE TO SCHEDULE SYSTEM 0269 05869000 * INITIALIZED CANCEL MDC042*/ 05870000 * 2 CVTOPCTP PTR(31), /* ADDRESS OF SYSTEM RESOURCES 05871000 * MANAGER (SRM) CONTROL TABLE 05872000 * MDC043*/ 05873000 * 2 CVTEXPRO PTR(31), /* ADDRESS OF EXIT PROLOGUE/TYPE 05874000 * 1 EXIT MDC044*/ 05875000 * 2 CVTGSMQ PTR(31), /* ADDRESS OF GLOBAL SERVICE 0269 05876000 * MANAGER QUEUE MDC045*/ 05877000 * 2 CVTLSMQ PTR(31), /* ADDRESS OF LOCAL SERVICE 0269 05878000 * MANAGER QUEUE MDC046*/ 05879000 * 2 CVTGSPL PTR(31), /* ADDRESS OF GLOBAL SYSTEM 0269 05880000 * PRIORITY LIST QUEUE MDC047*/ 05881000 * 2 CVTVWAIT PTR(31), /* ADDRESS OF WAIT ROUTINE 0269 05882000 * MDC048*/ 05883000 * 2 CVTPARRL PTR(31), /* ADDRESS OF PARTIALLY LOADED 05884000 * DELETE QUEUE MDC049*/ 05885000 * 2 CVTAPFT PTR(31), /* ADDRESS OF AUTHORIZED PROGRAM 05886000 * FACILITY (APF) TABLE. 0269 05887000 * INITIALIZED BY NIP. MDC050*/ 05888000 * 2 CVTQCS01 PTR(31), /* BRANCH ENTRY ADDRESS TO 0269 05889000 * PROGRAM MANAGER USED BY 0269 05890000 * ATTACH MDC051*/ 05891000 * 2 CVTFQCB PTR(31), /* POINTER TO FIRST MAJOR QCB 0269 05892000 * FOR ENQ MDC052*/ 05893000 * 2 CVTLQCB PTR(31), /* POINTER TO LAST MAJOR QCB 0269 05894000 * FOR ENQ MDC053*/ 05895000 * 2 CVTRENQ PTR(31), /* RESOURCE MANAGER ADDRESS 0269 05896000 * FOR ENQ MDC054*/ 05897000 * 2 CVTRSPIE PTR(31), /* RESOURCE MANAGER FOR SPIE 0269 05898000 * MDC055*/ 05899000 * 2 CVTLKRMA PTR(31), /* RESOURCE MANAGER ADDRESS FOR 05900000 * LOCK MANAGER MDC056*/ 05901000 * 2 CVTCSD PTR(31), /* VIRTUAL ADDRESS OF COMMON 0269 05902000 * SYSTEM DATA AREA (CSD). 0269 05903000 * INITIALIZED BY NIP. MDC057*/ 05904000 * 2 CVTDQIQE PTR(31), /* RESOURCE MANAGER FOR EXIT 0269 05905000 * EFFECTORS MDC058*/ 05906000 * 2 CVTRPOST PTR(31), /* RESOURCE MANAGER FOR POST 0269 05907000 * MDC059*/ 05908000 * 2 CVT062R1 PTR(31), /* BRANCH ENTRY TO DETACH MDC060*/ 05909000 * 2 CVTVEAC0 PTR(31), /* ASCBCHAP BRANCH ENTRY MDC061*/ 05910000 * 2 CVTGLMN PTR(31), /* GLOBAL BRANCH ENTRY ADDRESS 05911000 * FOR GETMAIN/FREEMAIN MDC062*/ 05912000 * 2 CVTSPSA PTR(31), /* POINTER TO GLOBAL WORK/SAVE 05913000 * AREA VECTOR TABLE (WSAG) 0269 05914000 * MDC071*/ 05915000 * 2 CVTWSAL PTR(31), /* ADDRESS OF TABLE OF LENGTHS 05916000 * OF LOCAL WORK/SAVE AREAS 0269 05917000 * MDC072*/ 05918000 * 2 CVTRV149 PTR(31), /* RESERVED (MDC073) YM4043*/ 05919000 * 2 CVTWSAC PTR(31), /* ADDRESS OF TABLE OF LENGTHS 05920000 * OF CPU WORK/SAVE AREAS MDC074*/ 05921000 * 2 CVTRECRQ PTR(31), /* ADDRESS OF THE RECORDING 0269 05922000 * REQUEST FACILITY (PART OF 0269 05923000 * RTM1 - CALLED BY RTM2 AND 0269 05924000 * RMS) MDC075*/ 05925000 * 2 CVTASMVT PTR(31), /* POINTER TO AUXILIARY STORAGE 05926000 * MANAGEMENT VECTOR TABLE 0269 05927000 * (AMVT) MDC076*/ 05928000 * 2 CVTIOBP PTR(31), /* ADDRESS OF THE BLOCK PROCESSOR 05929000 * CVT MDC079*/ 05930000 * 2 CVTSPOST PTR(31), /* POST RESOURCE MANAGER 0269 05931000 * TERMINATION ROUTINE (RMTR) 0269 05932000 * ENTRY POINT MDC085*/ 05933000 * 2 CVTRSTWD FIXED(31), /* RESTART RESOURCE MANAGEMENT 05934000 * WORD - CONTAINS IDENTIFIER OF 05935000 * USER IF RESTART IS IN USE. 0269 05936000 * OTHERWISE, ZERO. MDC161*/ 05937000 * 2 CVTFETCH PTR(31), /* ADDRESS OF ENTRY POINT FOR 0269 05938000 * BASIC FETCH MDC196*/ 05939000 * 2 CVT044R2 PTR(31), /* ADDRESS OF IGC044R2 IN CHAP 05940000 * SERVICE ROUTINE MDC197*/ 05941000 * 2 CVTPERFM PTR(31), /* ADDRESS OF THE PERFORMANCE 0269 05942000 * WORK AREA. SET BY IGX00018. 05943000 * MDC205*/ 05944000 * 2 CVTDAIR PTR(31), /* ADDRESS OF IKJDAIR, TSO 0269 05945000 * DYNAMIC ALLOCATION INTERFACE 05946000 * ROUTINE (MDC212) YM2225*/ 05947000 * 2 CVTEHDEF PTR(31), /* ADDRESS OF IKJEHDEF, TSO 0269 05948000 * DEFAULT SERVICE ROUTINE 0269 05949000 * (MDC213) YM2225*/ 05950000 * 2 CVTEHCIR PTR(31), /* ADDRESS OF IKJEHCIR, TSO 0269 05951000 * CATALOG INFORMATION ROUTINE 05952000 * (MDC214) YM2225*/ 05953000 * 2 CVTSSAP PTR(31), /* ADDRESS OF SYSTEM SAVE AREA 05954000 * MDC063*/ 05955000 * 2 CVTAIDVT PTR(31), /* POINTER TO APPENDAGE ID 0269 05956000 * VECTOR TABLE MDC064*/ 05957000 * 2 CVTIPCDS PTR(31), /* BRANCH ENTRY FOR DIRECT 0269 05958000 * SIGNAL SERVICE ROUTINE MDC065*/ 05959000 * 2 CVTIPCRI PTR(31), /* BRANCH ENTRY FOR REMOTE 0269 05960000 * IMMEDIATE SIGNAL SERVICE 0269 05961000 * ROUTINE MDC066*/ 05962000 * 2 CVTIPCRP PTR(31), /* BRANCH ENTRY FOR REMOTE 0269 05963000 * PENDABLE SIGNAL SERVICE 0269 05964000 * ROUTINE MDC067*/ 05965000 * 2 CVTPCCAT PTR(31), /* POINTER TO PHYSICAL CCA VECTOR 05966000 * TABLE MDC068*/ 05967000 * 2 CVTLCCAT PTR(31), /* POINTER TO LOGICAL CCA VECTOR 05968000 * TABLE MDC069*/ 05969000 * 2 CVTRV210 BIT(8), /* RESERVED */ 05970000 * 3 CVTRV211 BIT(1), /* RESERVED */ 05971000 * 3 CVTRV212 BIT(1), /* RESERVED */ 05972000 * 3 CVTRV213 BIT(1), /* RESERVED */ 05973000 * 3 CVTRV214 BIT(1), /* RESERVED */ 05974000 * 3 CVTRV215 BIT(1), /* RESERVED */ 05975000 * 3 CVTRV216 BIT(1), /* RESERVED */ 05976000 * 3 CVTRV217 BIT(1), /* RESERVED */ 05977000 * 3 CVTRV218 BIT(1), /* RESERVED */ 05978000 * 2 CVTRV219 BIT(8), /* RESERVED */ 05979000 * 3 CVTRV220 BIT(1), /* RESERVED */ 05980000 * 3 CVTRV221 BIT(1), /* RESERVED */ 05981000 * 3 CVTRV222 BIT(1), /* RESERVED */ 05982000 * 3 CVTRV223 BIT(1), /* RESERVED */ 05983000 * 3 CVTRV224 BIT(1), /* RESERVED */ 05984000 * 3 CVTRV225 BIT(1), /* RESERVED */ 05985000 * 3 CVTRV226 BIT(1), /* RESERVED */ 05986000 * 3 CVTRV227 BIT(1), /* RESERVED */ 05987000 * 2 CVTRV228 BIT(8), /* RESERVED */ 05988000 * 3 CVTRV229 BIT(1), /* RESERVED */ 05989000 * 3 CVTRV230 BIT(1), /* RESERVED */ 05990000 * 3 CVTRV231 BIT(1), /* RESERVED */ 05991000 * 3 CVTRV232 BIT(1), /* RESERVED */ 05992000 * 3 CVTRV233 BIT(1), /* RESERVED */ 05993000 * 3 CVTRV234 BIT(1), /* RESERVED */ 05994000 * 3 CVTRV235 BIT(1), /* RESERVED */ 05995000 * 3 CVTRV236 BIT(1), /* RESERVED */ 05996000 * 2 CVTRV237 BIT(8), /* RESERVED */ 05997000 * 3 CVTRV238 BIT(1), /* RESERVED */ 05998000 * 3 CVTRV239 BIT(1), /* RESERVED */ 05999000 * 3 CVTRV240 BIT(1), /* RESERVED */ 06000000 * 3 CVTRV241 BIT(1), /* RESERVED */ 06001000 * 3 CVTRV242 BIT(1), /* RESERVED */ 06002000 * 3 CVTRV243 BIT(1), /* RESERVED */ 06003000 * 3 CVTRV244 BIT(1), /* RESERVED */ 06004000 * 3 CVTRV245 BIT(1), /* RESERVED */ 06005000 * 2 CVTRV246 PTR(8), /* RESERVED */ 06006000 * 2 CVTRV247 PTR(8), /* RESERVED */ 06007000 * 2 CVTRV248 PTR(8), /* RESERVED */ 06008000 * 2 CVTRV249 PTR(8), /* RESERVED */ 06009000 * 2 CVTRV250 PTR(8), /* RESERVED */ 06010000 * 2 CVTRV251 PTR(8), /* RESERVED */ 06011000 * 2 CVTRV252 PTR(15), /* RESERVED */ 06012000 * 2 CVTRV253 FIXED(15), /* RESERVED */ 06013000 * 2 CVTRV254 FIXED(15), /* RESERVED */ 06014000 * 2 CVTPWI PTR(31), /* ADDRESS OF THE WINDOW 0269 06015000 * INTERCEPT ROUTINE MDC104*/ 06016000 * 2 CVTPVBP PTR(31), /* ADDRESS OF THE VIRTUAL BLOCK 06017000 * PROCESSOR MDC105*/ 06018000 * 2 CVTMFCTL PTR(31), /* POINTER TO MEASUREMENT 0269 06019000 * FACILITY CONTROL BLOCK MDC100*/ 06020000 * 2 CVTMFRTR PTR(31), /* IF MEASUREMENT FACILITY IS 0269 06021000 * ACTIVE, CONTAINS ADDRESS OF 06022000 * MEASUREMENT FACILITY ROUTER. 06023000 * OTHERWISE, ADDRESS OF 0269 06024000 * CVTBRET. MDC101*/ 06025000 * 3 CVTMFACT BIT(1), /* IF ONE, I/O SUPERVISOR AND 0269 06026000 * TIMER SECOND LEVEL INTERRUPT 06027000 * HANDLER HOOKS BRANCH TO 0269 06028000 * MEASUREMENT FACILITY ROUTER 06029000 * MDC102*/ 06030000 * 2 CVTVPSIB PTR(31), /* BRANCH ENTRY TO PAGE SERVICES 06031000 * MDC108*/ 06032000 * 2 CVTVSI PTR(31), /* BRANCH ENTRY TO VAM SERVICES 06033000 * MDC109*/ 06034000 * 2 CVTVFP PTR(31), /* BRANCH ENTRY TO FINDPAGE 0269 06035000 * MDC110*/ 06036000 * 2 CVTRV262 BIT(8), /* RESERVED */ 06037000 * 3 CVTRV263 BIT(1), /* RESERVED */ 06038000 * 3 CVTRV264 BIT(1), /* RESERVED */ 06039000 * 3 CVTRV265 BIT(1), /* RESERVED */ 06040000 * 3 CVTRV266 BIT(1), /* RESERVED */ 06041000 * 3 CVTRV267 BIT(1), /* RESERVED */ 06042000 * 3 CVTRV268 BIT(1), /* RESERVED */ 06043000 * 3 CVTRV269 BIT(1), /* RESERVED */ 06044000 * 3 CVTRV270 BIT(1), /* RESERVED */ 06045000 * 2 CVTRV271 BIT(8), /* RESERVED */ 06046000 * 3 CVTRV272 BIT(1), /* RESERVED */ 06047000 * 3 CVTRV273 BIT(1), /* RESERVED */ 06048000 * 3 CVTRV274 BIT(1), /* RESERVED */ 06049000 * 3 CVTRV275 BIT(1), /* RESERVED */ 06050000 * 3 CVTRV276 BIT(1), /* RESERVED */ 06051000 * 3 CVTRV277 BIT(1), /* RESERVED */ 06052000 * 3 CVTRV278 BIT(1), /* RESERVED */ 06053000 * 3 CVTRV279 BIT(1), /* RESERVED */ 06054000 * 2 CVTRV280 BIT(8), /* RESERVED */ 06055000 * 3 CVTRV281 BIT(1), /* RESERVED */ 06056000 * 3 CVTRV282 BIT(1), /* RESERVED */ 06057000 * 3 CVTRV283 BIT(1), /* RESERVED */ 06058000 * 3 CVTRV284 BIT(1), /* RESERVED */ 06059000 * 3 CVTRV285 BIT(1), /* RESERVED */ 06060000 * 3 CVTRV286 BIT(1), /* RESERVED */ 06061000 * 3 CVTRV287 BIT(1), /* RESERVED */ 06062000 * 3 CVTRV288 BIT(1), /* RESERVED */ 06063000 * 2 CVTRV289 BIT(8), /* RESERVED */ 06064000 * 3 CVTRV290 BIT(1), /* RESERVED */ 06065000 * 3 CVTRV291 BIT(1), /* RESERVED */ 06066000 * 3 CVTRV292 BIT(1), /* RESERVED */ 06067000 * 3 CVTRV293 BIT(1), /* RESERVED */ 06068000 * 3 CVTRV294 BIT(1), /* RESERVED */ 06069000 * 3 CVTRV295 BIT(1), /* RESERVED */ 06070000 * 3 CVTRV296 BIT(1), /* RESERVED */ 06071000 * 3 CVTRV297 BIT(1), /* RESERVED */ 06072000 * 2 CVTTRCA PTR(31), /* ADDRESS OF TRACE TABLE 0269 06073000 * HEADER (MDC327) @ZA02352*/ 06074000 * 2 CVTRV302 PTR(15), /* RESERVED */ 06075000 * 2 CVTRV303 PTR(15), /* RESERVED */ 06076000 * 2 CVTRV304 FIXED(15), /* RESERVED */ 06077000 * 2 CVTRV305 FIXED(15), /* RESERVED */ 06078000 * 2 CVTRV306 FIXED(15), /* RESERVED */ 06079000 * 2 CVTRV307 FIXED(15), /* RESERVED */ 06080000 * 2 CVTVIOP PTR(31), /* ENTRY POINT OF PAGE I/O POST 06081000 * MDC111*/ 06082000 * 2 CVTRMBR PTR(31), /* ADDRESS OF REGMAIN BRANCH 0269 06083000 * ENTRY MDC123*/ 06084000 * 2 CVTLFRM PTR(31), /* LIST FORMAT FREEMAIN BRANCH 06085000 * ENTRY POINT MDC124*/ 06086000 * 2 CVTGMBR PTR(31), /* LIST FORMAT GETMAIN BRANCH 0269 06087000 * ENTRY POINT MDC125*/ 06088000 * 2 CVT0TC0A PTR(31), /* ADDRESS OF TASK CLOSE MODULE 06089000 * IFG0TC0A MDC128*/ 06090000 * 2 CVTRLSTG FIXED(31), /* SIZE OF ACTUAL REAL STORAGE 06091000 * ONLINE AT IPL TIME IN 'K'. 0269 06092000 * VALUE PLACED HERE BY IEAVNIP0. 06093000 * MDC153*/ 06094000 * 2 CVTSPFRR PTR(31), /* 'SUPER FRR' ADDRESS (ADDRESS 06095000 * OF FUNCTIONAL RECOVERY 0269 06096000 * ROUTINE ESTABLISHED AT NIP0 06097000 * TIME TO PROTECT SUPERVISOR 0269 06098000 * CONTROL PROGRAM) MDC154*/ 06099000 * 2 CVTVEMS0 PTR(31), /* ADDRESS OF MEMORY SWITCH 0269 06100000 * ROUTINE MDC155*/ 06101000 * 2 CVTJRECM PTR(31), /* ADDRESS OF SUBSYSTEM 0269 06102000 * INTERFACE RESOURCE MANAGER 0269 06103000 * MDC157*/ 06104000 * 2 CVTIRECM PTR(31), /* ADDRESS OF INITIATOR 0269 06105000 * RESOURCE MANAGER MDC158*/ 06106000 * 2 CVTDARCM PTR(31), /* ADDRESS OF DEVICE ALLOCATION 06107000 * RESOURCE MANAGER MDC159*/ 06108000 * 2 CVT0PT02 PTR(31), /* ADDRESS OF POST ENTRY POINT 06109000 * IEA0PT02 MDC160*/ 06110000 * 2 CVTSTPRS PTR(31), /* ENTRY POINT OF STOP AND 0269 06111000 * RESTART SUBROUTINE MDC162*/ 06112000 * 2 CVTWTCB PTR(31), /* ADDRESS OF WAIT STATE TCB 0269 06113000 * MDC164*/ 06114000 * 2 CVTVACR PTR(31), /* ACR/VARY CPU CHANNEL RECOVERY 06115000 * ROUTINE ADDRESS. ADDRESS 0269 06116000 * FILLED IN BY VARY CPU 0269 06117000 * PROCESSOR. MDC178*/ 06118000 * 2 CVTQUIT PTR(31), /* VARY CPU SHUTDOWN ROUTINE 0269 06119000 * ADDRESS. ADDRESS FILLED IN 06120000 * BY VARY CPU PROCESSOR. MDC179*/ 06121000 * 2 CVTGTFR8 PTR(31), /* GENERALIZED TRACE FACILITY 0269 06122000 * (GTF) CONTROL REGISTER 8 0269 06123000 * INITIALIZATION ROUTINE 0269 06124000 * ADDRESS MDC180*/ 06125000 * 2 CVTVSTOP PTR(31), /* ADDRESS OF VARY CPU STOP CPU 06126000 * ROUTINE MDC169*/ 06127000 * 2 CVTVPSA PTR(31), /* ADDRESS OF COPY OF SYSGEN'ED 06128000 * PSA - PLACED HERE BY NIP 0269 06129000 * MDC170*/ 06130000 * 2 CVTRMPTT PTR(31), /* ADDRESS OF ISTRAMA1, THE VTAM 06131000 * RESOURCE MANAGER FOR NORMAL 06132000 * AND ABNORMAL TASK TERMINATION 06133000 * (MDC322) @Z30AP9A*/ 06134000 * 2 CVTRMPMT PTR(31), /* ADDRESS OF ISTRAMA2, THE VTAM 06135000 * RESOURCE MANAGER FOR NORMAL 06136000 * AND ABNORMAL MEMORY 0269 06137000 * TERMINATION (MDC323) @Z30AP9A*/ 06138000 * 2 CVTEXP1 PTR(31), /* ADDRESS OF EXIT PROLOGUE 0269 06139000 * WHICH RETURNS TO THE 0269 06140000 * DISPATCHER MDC173*/ 06141000 * 2 CVTCSDRL PTR(31), /* REAL ADDRESS OF COMMON SYSTEM 06142000 * DATA AREA (CSD). INITIALIZED 06143000 * BY NIP. MDC174*/ 06144000 * 2 CVTSSRB PTR(31), /* STATUS STOP SRB ENTRY MDC175*/ 06145000 * 2 CVTRPT PTR(31), /* ADDRESS OF IGARPT01 MODULE OF 06146000 * RADIX PARTITION TREE SERVICES. 06147000 * INITIALIZED BY NIP. MDC177*/ 06148000 * 2 CVTQV1 PTR(31), /* ADDRESS OF QUEUE VERIFICATION 06149000 * FOR SINGLE THREADED QUEUES 0269 06150000 * WITH HEADERS ONLY MDC181*/ 06151000 * 2 CVTQV2 PTR(31), /* ADDRESS OF QUEUE VERIFICATION 06152000 * FOR SINGLE THREADED QUEUES 0269 06153000 * WITH HEADER AND TRAILER 0269 06154000 * MDC182*/ 06155000 * 2 CVTQV3 PTR(31), /* ADDRESS OF QUEUE VERIFICATION 06156000 * FOR DOUBLE THREADED QUEUES 0269 06157000 * MDC183*/ 06158000 * 2 CVTGSDA PTR(31), /* ADDRESS OF GLOBAL SYSTEM 0269 06159000 * DUPLEX AREA. ADDRESS FILLED 06160000 * IN BY NIP0. MDC184*/ 06161000 * 3 CVTGSDAB BIT(1), /* IF HIGH-ORDER BIT IS ONE, 0269 06162000 * THERE IS A VALID VALUE IN 0269 06163000 * FOLLOWING 31 BITS MDC185*/ 06164000 * 2 CVTADV PTR(31), /* ADDRESS OF ADDRESS 0269 06165000 * VERIFICATION ROUTINE MDC186*/ 06166000 * 2 CVTTPIO PTR(31), /* ADDRESS OF VTAM TPIO (SVC 0269 06167000 * 124) ROUTINE MDC193*/ 06168000 * 2 CVTCRCA PTR(31), /* WHEN CHANNEL RECONFIGURATION 06169000 * HARDWARE (CRH) IS ACTIVE, 0269 06170000 * ADDRESS OF CRH COMMUNICATION 06171000 * AREA IECVCRCA. OTHERWISE, 0269 06172000 * ZERO. (MDC306) @Z30CQ9A*/ 06173000 * 2 CVTEVENT PTR(31), /* BRANCH ENTRY ADDRESS TO 0269 06174000 * EVENTS (FAST MULTIPLE WAIT 0269 06175000 * ROUTINE) (MDC316) @Z30HP9A*/ 06176000 * 2 CVTSSCR PTR(31), /* ADDRESS OF STORAGE SYSTEM 0269 06177000 * CONTROLLER RECOVERY MANAGER 06178000 * CLEANUP ROUTINE (SSC RMCR) 0269 06179000 * (MDC319) @Z30LP9A*/ 06180000 * 2 CVTCBBR PTR(31), /* BRANCH ENTRY ADDRESS TO 0269 06181000 * GETMAIN/FREEMAIN 0269 06182000 * (MDC325) @Z30EN9A*/ 06183000 * 2 CVTEFF02 PTR(31), /* ADDRESS OF IKJEFF02, TSO 0269 06184000 * MESSAGE ISSUER SERVICE 0269 06185000 * ROUTINE (MDC326) @ZM30972*/ 06186000 * 2 CVTRV604 PTR(31), /* RESERVED (MDC307) @Z30AQ9A*/ 06187000 * 2 CVTRV605 PTR(31), /* RESERVED (MDC307) @Z30AQ9A*/ 06188000 * 2 CVTRV606 PTR(31), /* RESERVED (MDC307) @Z30AQ9A*/ 06189000 * 2 CVTRAC PTR(31), /* ADDRESS OF ACCESS CONTROL CVT 06190000 * (MDC320) @Z40RP9A*/ 06191000 * 2 CVTCGK PTR(31), /* ADDRESS OF ROUTINE USED TO 0269 06192000 * CHANGE THE KEY OF VIRTUAL 0269 06193000 * PAGES (MDC331) @Z40EP9A*/ 06194000 * 2 CVTRV609 PTR(31), /* RESERVED (MDC332) @Z40AQ9A*/ 06195000 * 2 CVT0PT0E PTR(31), /* ENTRY POINT TO IDENTIFY POST 06196000 * EXIT ROUTINES 0269 06197000 * (MDC334) @Z40EP9A*/ 06198000 * 2 CVT0PT03 PTR(31), /* POST REINVOCATION ENTRY POINT 06199000 * FROM POST EXIT ROUTINES 0269 06200000 * (MDC335) @Z40EP9A*/ 06201000 * 2 CVTTCASP PTR(31), /* RESERVED FOR FUTURE USE 0269 06202000 * (MDC336) @Z40DQ9A*/ 06203000 * 2 CVTRV613 PTR(31), /* RESERVED (MDC307) @Z30AQ9A*/ 06204000 * 2 CVTRV614 PTR(31), /* RESERVED (MDC307) @Z30AQ9A*/ 06205000 * 2 CVTRV615 PTR(31), /* RESERVED (MDC307) @Z30AQ9A*/ 06206000 * 2 CVTRV616 PTR(31), /* RESERVED (MDC307) @Z30AQ9A*/ 06207000 * 2 CVTRV617 PTR(31), /* RESERVED (MDC307) @Z30AQ9A*/ 06208000 * 2 CVTRV618 PTR(31), /* RESERVED (MDC307) @Z30AQ9A*/ 06209000 * 2 CVTRV619 PTR(31), /* RESERVED (MDC307) @Z30AQ9A*/ 06210000 * 2 CVTIHASU PTR(31), /* ADDRESS OF BIT STRING 0269 06211000 * (MDC355) @Z404P9A*/ 06212000 * 2 CVTRV621 PTR(31), /* RESERVED (MDC307) @Z30AQ9A*/ 06213000 * 2 CVTRV622 PTR(31), /* RESERVED (MDC307) @Z30AQ9A*/ 06214000 * 2 CVTRV623 PTR(31), /* RESERVED (MDC307) @Z30AQ9A*/ 06215000 * 2 CVTRV624 PTR(31), /* RESERVED (MDC307) @Z30AQ9A*/ 06216000 * 2 CVTRV625 PTR(31), /* RESERVED (MDC307) @Z30AQ9A*/ 06217000 * 2 CVTRV626 PTR(31), /* RESERVED (MDC307) @Z30AQ9A*/ 06218000 * 2 CVTRV627 PTR(31), /* RESERVED (MDC307) @Z30AQ9A*/ 06219000 * 2 CVTRV628 PTR(31); /* RESERVED (MDC307) @Z30AQ9A*/ 06220000 * 0269 06221000 * /* */ 06222000 * /* OS - OS/VS COMMON EXTENSION */ 06223000 * /* */ 06224000 * 0270 06225000 * DECLARE 0270 06226000 * 1 CVTXTNT1 BASED(CVTEXT1), /* START OF OS - OS/VS COMMON 0270 06227000 * EXTENSION ICB421*/ 06228000 * 2 CVTFACHN PTR(31), /* ADDRESS OF CHAIN OF DCB FIELD 06229000 * AREAS (ISAM) ICB421*/ 06230000 * 2 CVTRSV87 PTR(31), /* RESERVED */ 06231000 * 2 CVTRSV88 PTR(31); /* RESERVED */ 06232000 * 0270 06233000 * /* */ 06234000 * /* OS/VS1 - OS/VS2 COMMON EXTENSION */ 06235000 * /* */ 06236000 * 0271 06237000 * DECLARE 0271 06238000 * 1 CVTXTNT2 BASED(CVTEXT2), /* START OF OS/VS1 - OS/VS2 0271 06239000 * EXTENSION */ 06240000 * 2 CVTDSSV PTR(31), /* ADDRESS OF THE DYNAMIC 0271 06241000 * SUPPORT SYSTEM (DSS) VECTOR 06242000 * TABLE ICB313*/ 06243000 * 3 CVTRSV89 PTR(8), /* RESERVED ICB313*/ 06244000 * 3 CVTDSSVA PTR(24), /* ADDRESS OF THE DSS VECTOR 0271 06245000 * TABLE ICB313*/ 06246000 * 2 CVTNUCLS CHAR(1), /* IDENTIFICATION OF THE NUCLEUS 06247000 * MEMBER NAME ICB322*/ 06248000 * 2 CVTFLGBT BIT(8), /* FLAG BYTE (OS/VS1) 0271 06249000 * (MDC301) @X04EP9A*/ 06250000 * 3 CVTNPE BIT(1), /* INDICATES NON-PAGING 0271 06251000 * ENVIRONMENT (VM HANDSHAKING) 06252000 * (OS/VS1) (MDC302) @X04EP9A*/ 06253000 * 3 CVTVME BIT(1), /* INDICATES MACHINE IS 0271 06254000 * OPERATING IN VM ENVIRONMENT 06255000 * (OS/VS1) (MDC303) @X04EP9A*/ 06256000 * 3 CVTRSV9C BIT(1), /* RESERVED */ 06257000 * 3 CVTRSV9D BIT(1), /* RESERVED */ 06258000 * 3 CVTRSV9E BIT(1), /* RESERVED */ 06259000 * 3 CVTRSV9F BIT(1), /* RESERVED */ 06260000 * 3 CVTRSV9G BIT(1), /* RESERVED */ 06261000 * 3 CVTRSV9H BIT(1), /* RESERVED */ 06262000 * 2 CVTRSV91 FIXED(15), /* RESERVED */ 06263000 * 2 CVTDEBVR PTR(31), /* ADDRESS OF BRANCH ENTRY POINT 06264000 * OF DEB VALIDITY CHECK ROUTINE 06265000 * (ICB380) XM9028*/ 06266000 * 2 CVTRSV92 PTR(31), /* RESERVED (MDC190) YM2278*/ 06267000 * 2 CVTRSV93 PTR(31), /* RESERVED */ 06268000 * 2 CVTRSV94 PTR(31), /* RESERVED */ 06269000 * 2 CVTQID PTR(31), /* SAVE AS CVTQIDA BELOW ICB381*/ 06270000 * 3 CVTRSV95 PTR(8), /* RESERVED ICB381*/ 06271000 * 3 CVTQIDA PTR(24), /* ADDRESS OF QUEUE 0271 06272000 * IDENTIFICATION (QID) TABLE 0271 06273000 * PREFIX ICB381*/ 06274000 * 2 CVTOLTEP PTR(31), /* POINTER TO CONTROL BLOCK 0271 06275000 * CREATED BY SVC 59 TO POINT TO 06276000 * PSEUDO-DEB'S ICB423*/ 06277000 * 2 CVTRSV96 FIXED(15), /* RESERVED */ 06278000 * 2 CVTRSV97 FIXED(15), /* RESERVED */ 06279000 * 2 CVTRSV98 PTR(31), /* RESERVED */ 06280000 * 2 CVTRSV99 PTR(31), /* RESERVED (MDC329) @Z40AQ9A*/ 06281000 * 2 CVTSKTA PTR(31), /* ADDRESS OF STORAGE KEY TABLE 06282000 * (VM HANDSHAKING) (OS/VS1) 0271 06283000 * (MDC304) @X04EP9A*/ 06284000 * 2 CVTICB PTR(31), /* ADDRESS OF MASS STORAGE 0271 06285000 * SYSTEM (MSS) CONTROL BLOCK 0271 06286000 * (MDC305) @Z30LP9A*/ 06287000 * 2 CVTRV400 BIT(8), /* RESERVED */ 06288000 * 3 CVTRV401 BIT(1), /* RESERVED */ 06289000 * 3 CVTRV402 BIT(1), /* RESERVED */ 06290000 * 3 CVTRV403 BIT(1), /* RESERVED */ 06291000 * 3 CVTRV404 BIT(1), /* RESERVED */ 06292000 * 3 CVTRV405 BIT(1), /* RESERVED */ 06293000 * 3 CVTRV406 BIT(1), /* RESERVED */ 06294000 * 3 CVTRV407 BIT(1), /* RESERVED */ 06295000 * 3 CVTRV408 BIT(1), /* RESERVED */ 06296000 * 2 CVTRV409 BIT(8), /* RESERVED */ 06297000 * 3 CVTRV410 BIT(1), /* RESERVED */ 06298000 * 3 CVTRV411 BIT(1), /* RESERVED */ 06299000 * 3 CVTRV412 BIT(1), /* RESERVED */ 06300000 * 3 CVTRV413 BIT(1), /* RESERVED */ 06301000 * 3 CVTRV414 BIT(1), /* RESERVED */ 06302000 * 3 CVTRV415 BIT(1), /* RESERVED */ 06303000 * 3 CVTRV416 BIT(1), /* RESERVED */ 06304000 * 3 CVTRV417 BIT(1), /* RESERVED */ 06305000 * 2 CVTRV418 PTR(8), /* RESERVED */ 06306000 * 2 CVTRV419 PTR(8), /* RESERVED */ 06307000 * 2 CVTRV420 PTR(15), /* RESERVED */ 06308000 * 2 CVTRV421 FIXED(15), /* RESERVED */ 06309000 * 2 CVTRV422 FIXED(15), /* RESERVED */ 06310000 * 2 CVTRV423 FIXED(15), /* RESERVED */ 06311000 * 2 CVTATCVT PTR(31), /* POINTER TO VTAM'S CVT MDC080*/ 06312000 * 3 CVTATACT BIT(1), /* IF ON, VTAM IS ACTIVE MDC081*/ 06313000 * 2 CVTRV425 PTR(31), /* RESERVED */ 06314000 * 2 CVTRV426 PTR(31), /* RESERVED */ 06315000 * 2 CVTRV427 PTR(31), /* RESERVED */ 06316000 * 2 CVTRV428 FIXED(31), /* RESERVED */ 06317000 * 2 CVTRV429 BIT(8), /* RESERVED */ 06318000 * 3 CVTRV430 BIT(1), /* RESERVED */ 06319000 * 3 CVTRV431 BIT(1), /* RESERVED */ 06320000 * 3 CVTRV432 BIT(1), /* RESERVED */ 06321000 * 3 CVTRV433 BIT(1), /* RESERVED */ 06322000 * 3 CVTRV434 BIT(1), /* RESERVED */ 06323000 * 3 CVTRV435 BIT(1), /* RESERVED */ 06324000 * 3 CVTRV436 BIT(1), /* RESERVED */ 06325000 * 3 CVTRV437 BIT(1), /* RESERVED */ 06326000 * 2 CVTRV438 BIT(8), /* RESERVED */ 06327000 * 3 CVTRV439 BIT(1), /* RESERVED */ 06328000 * 3 CVTRV440 BIT(1), /* RESERVED */ 06329000 * 3 CVTRV441 BIT(1), /* RESERVED */ 06330000 * 3 CVTRV442 BIT(1), /* RESERVED */ 06331000 * 3 CVTRV443 BIT(1), /* RESERVED */ 06332000 * 3 CVTRV444 BIT(1), /* RESERVED */ 06333000 * 3 CVTRV445 BIT(1), /* RESERVED */ 06334000 * 3 CVTRV446 BIT(1), /* RESERVED */ 06335000 * 2 CVTRV447 PTR(8), /* RESERVED */ 06336000 * 2 CVTRV448 PTR(8), /* RESERVED */ 06337000 * 2 CVTRV449 PTR(15), /* RESERVED */ 06338000 * 2 CVTRV450 FIXED(15), /* RESERVED */ 06339000 * 2 CVTRV451 FIXED(15), /* RESERVED */ 06340000 * 2 CVTRV452 FIXED(15), /* RESERVED */ 06341000 * 2 CVTRV453 PTR(31), /* RESERVED */ 06342000 * 2 CVTRV454 PTR(31), /* RESERVED */ 06343000 * 2 CVTRV455 PTR(31), /* RESERVED */ 06344000 * 2 CVTRV456 PTR(31), /* RESERVED */ 06345000 * 2 CVTRV457 BIT(8), /* RESERVED */ 06346000 * 3 CVTRV458 BIT(1), /* RESERVED */ 06347000 * 3 CVTRV459 BIT(1), /* RESERVED */ 06348000 * 3 CVTRV460 BIT(1), /* RESERVED */ 06349000 * 3 CVTRV461 BIT(1), /* RESERVED */ 06350000 * 3 CVTRV462 BIT(1), /* RESERVED */ 06351000 * 3 CVTRV463 BIT(1), /* RESERVED */ 06352000 * 3 CVTRV464 BIT(1), /* RESERVED */ 06353000 * 3 CVTRV465 BIT(1), /* RESERVED */ 06354000 * 2 CVTRV466 BIT(8), /* RESERVED */ 06355000 * 3 CVTRV467 BIT(1), /* RESERVED */ 06356000 * 3 CVTRV468 BIT(1), /* RESERVED */ 06357000 * 3 CVTRV469 BIT(1), /* RESERVED */ 06358000 * 3 CVTRV470 BIT(1), /* RESERVED */ 06359000 * 3 CVTRV471 BIT(1), /* RESERVED */ 06360000 * 3 CVTRV472 BIT(1), /* RESERVED */ 06361000 * 3 CVTRV473 BIT(1), /* RESERVED */ 06362000 * 3 CVTRV474 BIT(1), /* RESERVED */ 06363000 * 2 CVTRV475 PTR(8), /* RESERVED */ 06364000 * 2 CVTRV476 PTR(8), /* RESERVED */ 06365000 * 2 CVTRV477 PTR(8), /* RESERVED */ 06366000 * 2 CVTRV478 PTR(8), /* RESERVED */ 06367000 * 2 CVTRV479 FIXED(15), /* RESERVED */ 06368000 * 2 CVTRV480 PTR(31), /* RESERVED */ 06369000 * 2 CVTRV481 PTR(31), /* RESERVED */ 06370000 * 2 CVTRV482 PTR(31); /* RESERVED */ 06371000 * 0271 06372000 * /* CVT PREFIX */ 06373000 * 0272 06374000 * DCL 1 CVTFIX BASED(CVTPTR-256) BDY(WORD), 0272 06375000 * 2 * CHAR(248) BDY(WORD), /* RESERVED */ 06376000 * 2 * CHAR(2) BDY(WORD), /* RESERVED */ 06377000 * 2 CVTMDL CHAR(2) BDY(WORD,3), /* CPU MODEL NUMBER IN SIGNLESS 06378000 * PACKED DECIMAL, I.E., A MODEL 06379000 * 145 WOULD BE REPRESENTED AS 06380000 * 0145 HEX */ 06381000 * 2 CVTRELNO CHAR(4) BDY(WORD), /* RELEASE NUMBER (EBCDIC) */ 06382000 * 3 CVTNUMB CHAR(2) BDY(WORD), /* RELEASE NUMBER */ 06383000 * 3 CVTLEVL CHAR(2) BDY(WORD,3);/* LEVEL NUMBER OF THIS RELEASE */ 06384000 * 0272 06385000 * /* END OF CVT MACRO */ 06386000 * 0273 06387000 * 0273 06388000 */* */ 06389000 */* TASK CONTROL BLOCK */ 06390000 */* */ 06391000 */* OS/VS2 RELEASE 4, OS/VS1 RELEASE 5, 09/16/75, LEVEL=9 */ 06392000 */* */ 06393000 */* METHOD OF ACCESS */ 06394000 */* BAL - A DSECT IS PRODUCED UNLESS DSECT=NO IS SPECIFIED. */ 06395000 */* USING ON TCBFIX GIVES ADDRESSABILITY FOR ALL SYMBOLS */ 06396000 */* IN PREFIX AND TCB PROPER. TO GET ADDRESSABILITY FOR */ 06397000 */* THE OS/VS1 - OS/VS2 COMMON EXTENSION, YOU SHOULD */ 06398000 */* CODE */ 06399000 */* */ 06400000 */* L REG,TCBEXT2 */ 06401000 */* USING TCBXTNT2,REG */ 06402000 */* WHERE REG IS ANY REGISTER OTHER THAN ZERO. */ 06403000 */* */ 06404000 */* THIS MACRO ASSUMES A DEFAULT OF SYS=AOS2 WHICH MEANS */ 06405000 */* A MAPPING OF AN OS/VS2 TCB IS DESIRED. IF A MAPPING */ 06406000 */* OF AN OS/VS1 TCB IS DESIRED, PUT SYS=AOS1 AS A */ 06407000 */* PARAMETER ON THE MACRO CALL. IF A MAPPING OF THE */ 06408000 */* TCB FOR BOTH OS/VS1 AND OS/VS2 IS DESIRED, PUT */ 06409000 */* SYS=BOTH AS A PARAMETER. */ 06410000 */* */ 06411000 */* PL/S - DCL TCBPTR PTR */ 06412000 */* */ 06413000 */* THIS MACRO ASSUMES IT IS MAPPING AN OS/VS2 TCB. IF */ 06414000 */* AN OS/VS1 TCB MAPPING IS DESIRED, SPECIFY */ 06415000 */* %TCBSYSTM='AOS1' OR IF A MAPPING OF THE TCB FOR */ 06416000 */* BOTH OS/VS1 AND OS/VS2 IS DESIRED, SPECIFY */ 06417000 */* %TCBSYSTM='BOTH' BEFORE THE INCLUDE FOR THIS MACRO. */ 06418000 */* DO NOT SET TCBSYSTM TO 'AOS2' BECAUSE NULL MEANS */ 06419000 */* OS/VS2. */ 06420000 */* */ 06421000 */* MACRO VARIABLE TCBLEN IS SET TO THE LENGTH OF THE */ 06422000 */* TCB INCLUDING THE PREFIX. TCBLEN IS VALID IF */ 06423000 */* TCBSYSTM IS 'AOS1' OR '' (OS/VS2), BUT IT IS NOT */ 06424000 */* VALID IF TCBSYSTM='BOTH'. */ 06425000 */* */ 06426000 */* F.E.'S */ 06427000 */* MICROFICHE LISTING - IKJTCB */ 06428000 */* */ 06429000 */* DEVELOPERS */ 06430000 */* BAL LISTING - SPECIFY LIST=YES ON MACRO CALL. */ 06431000 */* PL/S LISTING - SPECIFY %IHALIST='YES' BEFORE INCLUDE. */ 06432000 */* */ 06433000 */* FOR INTEGRATION, A LISTING SHOULD NOT BE REQUESTED. */ 06434000 * 0273 06435000 * /* TCB PREFIX */ 06436000 * 0273 06437000 * DECLARE 0273 06438000 * 1 TCBFIX BASED(TCBPTR-32) BDY(DWORD), 0273 06439000 * 0273 06440000 * 2 TCBFRS CHAR(32) BDY(DWORD), /* FLOATING POINT REGISTER SAVE 06441000 * AREA */ 06442000 * 3 TCBFRS0 CHAR(8) BDY(DWORD), /* SAVE AREA FOR FLOATING 0273 06443000 * POINT REGISTER 0 */ 06444000 * 3 TCBFRS2 CHAR(8) BDY(DWORD), /* SAVE AREA FOR FLOATING 0273 06445000 * POINT REGISTER 2 */ 06446000 * 3 TCBFRS4 CHAR(8) BDY(DWORD), /* SAVE AREA FOR FLOATING 0273 06447000 * POINT REGISTER 4 */ 06448000 * 3 TCBFRS6 CHAR(8) BDY(DWORD); /* SAVE AREA FOR FLOATING 0273 06449000 * POINT REGISTER 6 */ 06450000 * 0273 06451000 * /* TCB PROPER */ 06452000 * 0274 06453000 * DECLARE 0274 06454000 * 1 TCB BASED(TCBPTR) BDY(DWORD), 0274 06455000 * 2 TCBRBP PTR(31), /* ADDRESS OF THE RB FOR 0274 06456000 * EXECUTING PROGRAM */ 06457000 * 2 TCBPIE PTR(31), /* ADDRESS OF SPIE CONTROL AREA. 06458000 * THE FIRST WORD OF THIS AREA 06459000 * CONTAINS THE PROGRAM INTERRUPT 06460000 * ELEMENT (PIE) ADDRESS. MDC024*/ 06461000 * 3 TCBPMASK CHAR(1), /* SPIE BITS */ 06462000 * 4 * BIT(4), /* RESERVED */ 06463000 * 4 TCBPM BIT(4), /* PROGRAM MASK AT TIME OF SPIE 06464000 * INITIATION. MASK RESTORED AT 06465000 * TIME OF SPIE NULLIFICATION. */ 06466000 * 3 TCBPIEA PTR(24), /* SAME AS TCBPIE ABOVE */ 06467000 * 2 TCBDEB PTR(31), /* ADDRESS OF THE DEB QUEUE */ 06468000 * 2 TCBTIO PTR(31), /* ADDRESS OF THE TASK I/O TABLE 06469000 * (TIOT) */ 06470000 * 2 TCBCMP CHAR(4) BDY(WORD), /* TASK COMPLETION CODE AND 0274 06471000 * INDICATORS */ 06472000 * 3 TCBCMPF CHAR(1), /* INDICATOR FLAGS */ 06473000 * 4 TCBCREQ BIT(1), /* A DUMP HAS BEEN REQUESTED */ 06474000 * 4 TCBCSTEP BIT(1), /* A STEP ABEND HAS BEEN 0274 06475000 * REQUESTED */ 06476000 * 4 TCBCPP BIT(1), /* SOME PROBLEM PROGRAM STORAGE 06477000 * WAS OVERLAID BY THE SECOND 0274 06478000 * LOAD OF ABEND. A FIRST LOAD 06479000 * OVERLAY IS INDICATED IN 0274 06480000 * TCBFLGS FIELD (OFFSET 29 0274 06481000 * DECIMAL) (OS/VS1) MDC054*/ 06482000 * 5 TCBDMPO BIT(1), /* DUMP OPTIONS WERE PROVIDED ON 06483000 * CALLRTM OR SETRP MACRO 0274 06484000 * (OS/VS2) MDC060*/ 06485000 * 4 TCBSTCC BIT(1), /* COMPLETION CODE IS NOT TO 0274 06486000 * BE STORED IN TCBCMPC (OFFSET 06487000 * 17 DECIMAL) IF AN ABEND IS 0274 06488000 * ENCOUNTERED. THIS IS TO 0274 06489000 * PREVENT AN OVERLAY OF THE 0274 06490000 * ORIGINAL COMPLETION CODE. 0274 06491000 * (OS/VS1) MDC055*/ 06492000 * 5 TCBNOCC BIT(1), /* A COMPLETION CODE WAS NOT 0274 06493000 * PROVIDED ON CALLRTM MACRO. 0274 06494000 * A DEFAULT CODE IS BEING USED. 06495000 * (OS/VS2) MDC061*/ 06496000 * 4 TCBCDBL BIT(1), /* A DOUBLE ABEND HAS OCCURRED 06497000 * (OS/VS1) MDC056*/ 06498000 * 5 TCBCASID BIT(1), /* ABEND WAS SCHEDULED VIA CROSS 06499000 * MEMORY ABTERM (OS/VS2) MDC062*/ 06500000 * 4 TCBCWTO BIT(1), /* A DUMP MESSAGE (WTO) IS TO BE 06501000 * ISSUED TO THE OPERATOR 0274 06502000 * (OS/VS1) MDC057*/ 06503000 * 5 TCBRV316 BIT(1), /* RESERVED FOR CALLRTM FLAG 0274 06504000 * (OS/VS2) MDC063*/ 06505000 * 4 TCBCIND BIT(1), /* ABEND TO OUTPUT AN INDICATIVE 06506000 * DUMP (OS/VS1) 0274 06507000 * (MDC303) @X04DA9A*/ 06508000 * 5 TCBRV317 BIT(1), /* RESERVED FOR CALLRTM FLAG 0274 06509000 * (OS/VS2) MDC063*/ 06510000 * 4 TCBCMSG BIT(1), /* AN ABEND MESSAGE IS PROVIDED 06511000 * TO BE PRINTED BY ABDUMP 0274 06512000 * (OS/VS1) MDC059*/ 06513000 * 5 TCBRV318 BIT(1), /* RESERVED FOR CALLRTM FLAG 0274 06514000 * (OS/VS2) MDC063*/ 06515000 * 3 TCBCMPC CHAR(3), /* SYSTEM COMPLETION CODE IN 0274 06516000 * FIRST 12 BITS, USER 0274 06517000 * COMPLETION CODE IN LAST 12 0274 06518000 * BITS */ 06519000 * 2 TCBTRN PTR(31), /* ADDRESS OF TESTRAN CONTROL 0274 06520000 * CORE TABLE */ 06521000 * 3 TCBABF CHAR(1), /* FLAG BYTE */ 06522000 * 4 TCBMOD91 BIT(1), /* BOTH TESTRAN AND DECIMAL 0274 06523000 * SIMULATOR ON A MOD 91 */ 06524000 * 4 TCBNOCHK BIT(1), /* SUPPRESS TAKING CHECKPOINTS 06525000 * FOR THIS STEP (JOB STEP TCB) */ 06526000 * 4 TCBGRPH BIT(1), /* THIS IS A GRAPHICS FOREGROUND 06527000 * JOB OR THE GRAPHIC JOB 0274 06528000 * PROCESSOR */ 06529000 * 4 TCBRSV01 BIT(1), /* RESERVED */ 06530000 * 4 TCBTCPP BIT(1), /* TCAM POST-PENDING (RORI) */ 06531000 * 4 TCBTCP BIT(1), /* TEST TASK - USED BY TEST SVC */ 06532000 * 4 TCBOLTEP BIT(1), /* OLTEP FUNCTIONS REQUIRE 0274 06533000 * CLEANUP BEFORE ABNORMAL 0274 06534000 * TERMINATION CAN BE INVOKED */ 06535000 * 4 TCBRSV02 BIT(1), /* RESERVED */ 06536000 * 3 TCBTRNB PTR(24), /* ADDRESS OF TESTRAN CONTROL 0274 06537000 * CORE TABLE */ 06538000 * 2 TCBMSS PTR(31), /* FOR JOB STEP TCB, ADDRESS OF 06539000 * THE BOUNDARY BOX. FOR 0274 06540000 * SUBTASK TCB, ADDRESS OF THE 06541000 * GOTTEN SUBTASK AREA QUEUE 0274 06542000 * ELEMENT (GQE). A GQE IS 0274 06543000 * PRESENT ONLY IF THE SYSTEM 0274 06544000 * HAS ISSUED A GETMAIN MACRO 0274 06545000 * INSTRUCTION FOR THE SPACE. 0274 06546000 * (OS/VS1) 0274 06547000 * ADDRESS OF LAST SPQE ON MSS 06548000 * QUEUE (OS/VS2) */ 06549000 * 3 TCBRSV03 PTR(8), /* ** TCBNROC FIELD UNUSED 0274 06550000 * IN OS/VS ** */ 06551000 * 3 TCBMSSB PTR(24), /* SAME AS TCBMSS ABOVE */ 06552000 * 2 TCBPKF CHAR(1), /* STORAGE PROTECTION KEY FOR 0274 06553000 * THIS TASK. IF THERE IS NO 0274 06554000 * STORAGE PROTECTION, ALL BITS 06555000 * ARE ZERO. */ 06556000 * 3 TCBFLAG BIT(4), /* STORAGE PROTECTION KEY */ 06557000 * 3 TCBZERO BIT(4), /* MUST BE ZERO */ 06558000 * 2 TCBFLGS CHAR(5), /* FLAG BYTE FIELDS */ 06559000 * 3 TCBFLGS1 CHAR(1), /* FIRST TCB FLAG BYTE */ 06560000 * 4 TCBFA BIT(1), /* ABNORMAL TERMINATION IN 0274 06561000 * PROGRESS */ 06562000 * 4 TCBFE BIT(1), /* NORMAL TERMINATION IN 0274 06563000 * PROGRESS */ 06564000 * 4 TCBFERA BIT(1), /* ENTER ABEND ERASE ROUTINE 0274 06565000 * WHEN IN CONTROL AGAIN 0274 06566000 * (OS/VS2) */ 06567000 * 4 TCBNONPR BIT(1), /* TASK IS NON-PREEMPTABLE 0274 06568000 * (OS/VS2) (MDC320) @Z40FP9A*/ 06569000 * 4 TCBPDUMP BIT(1), /* PREVENT DUMP INDICATOR 0274 06570000 * (OS/VS2) */ 06571000 * 4 TCBFT BIT(1), /* TOP TASK IN TREE BEING 0274 06572000 * ABTERMED (OS/VS2) */ 06573000 * 4 TCBFS BIT(1), /* ABTERM DUMP COMPLETED (OS/VS2) 06574000 * PROBLEM PROGRAM STORAGE HAS 06575000 * BEEN OVERLAID TO PROCESS 0274 06576000 * ABEND (OS/VS1) */ 06577000 * 4 TCBFX BIT(1), /* PROHIBIT QUEUEING OF 0274 06578000 * ASYNCHRONOUS EXITS FOR THIS 06579000 * TASK */ 06580000 * 3 TCBFLGS2 CHAR(1), /* SECOND FLAG BYTE */ 06581000 * 4 TCBFOINP BIT(1), /* THE TASK IS ABENDING AND IS 06582000 * IN THE PROCESS OF (1) OPEN 0274 06583000 * FOR DUMP DATA SET PROCESSING, 06584000 * (2) CLOSE FOR USER DATA SET 06585000 * OR (3) PURGE FOR ENQ'ED 0274 06586000 * RESOURCES. THIS BIT IS USED 06587000 * IN CONJUNCTION WITH TCBSTACK. 06588000 * (OS/VS2) ICB374*/ 06589000 * 4 TCBFSTI BIT(1), /* SECOND JOB STEP INTERVAL HAS 06590000 * EXPIRED (OS/VS2 INITIATOR 0274 06591000 * TCB) */ 06592000 * 4 TCBFABOP BIT(1), /* IF 1, THE SYSABEND DUMP DATA 06593000 * SET HAS BEEN OPENED FOR 0274 06594000 * ABEND. IF 0, THE SYSUDUMP 0274 06595000 * DUMP DATA SET WAS OPENED. 0274 06596000 * THIS BIT IS ONLY USED FOR THE 06597000 * JOB STEP TCB AND IS USED IN 06598000 * CONJUNCTION WITH TCBFDSOP 0274 06599000 * BIT. (OS/VS2) (ICB482) YM0651*/ 06600000 * 4 TCBFSMC BIT(1), /* TASK HAS ISSUED A SYSTEM- 0274 06601000 * MUST-COMPLETE AND SET ALL 0274 06602000 * OTHER TASKS IN THE SYSTEM 0274 06603000 * NON-DISPATCHABLE */ 06604000 * 4 TCBFJMC BIT(1), /* TASK HAS ISSUED A STEP-MUST- 06605000 * COMPLETE AND TURNED OFF ALL 06606000 * OTHER TASKS IN THE STEP */ 06607000 * 4 TCBFDSOP BIT(1), /* SYSABEND OPEN FOR JOB STEP 0274 06608000 * (OS/VS2) */ 06609000 * 4 TCBFETXR BIT(1), /* ETXR TO BE SCHEDULED */ 06610000 * 4 TCBFTS BIT(1), /* THIS TASK IS A MEMBER OF A 0274 06611000 * TIME-SLICED GROUP */ 06612000 * 3 TCBFLGS3 CHAR(1), /* THIRD FLAG BYTE */ 06613000 * 4 TCBFSM BIT(1), /* ALL PSW'S IN SUPERVISOR STATE 06614000 * (OS/VS2) */ 06615000 * 4 TCBADINP BIT(1), /* USED IN CONJUNCTION WITH 0274 06616000 * TCBONDSP. FLAG INDICATING 0274 06617000 * THAT ABDUMP IS CURRENTLY 0274 06618000 * PROCESSING FOR SOME TASK IN 06619000 * JOB STEP. A HIGHER LEVEL 0274 06620000 * TASK IS NOT ALLOWED TO ENTER 06621000 * MAINLINE ABEND PROCESSING IF 06622000 * THIS BIT IS SET IN JOB STEP 06623000 * TCB UNLESS JOB STEP TASK IS 06624000 * FAILING. BIT SET ONLY IN JOB 06625000 * STEP TCB AND TASK INVOKING 0274 06626000 * ABDUMP. (OS/VS2) */ 06627000 * 4 TCBABTRM BIT(1), /* ABTERM BIT TO PREVENT 0274 06628000 * MULTIPLE ABENDS (OS/VS2) */ 06629000 * 4 TCBABGM BIT(1), /* GETMAIN IS TO DEFAULT LSQA 0274 06630000 * REQUESTS TO SQA REQUESTS WHEN 06631000 * REQUEST CANNOT BE SATISFIED 06632000 * FROM LSQA (OS/VS2) */ 06633000 * 4 TCBRSV06 BIT(1), /* RESERVED (OS/VS2) */ 06634000 * 4 TCBRSV07 BIT(1), /* RESERVED (OS/VS2) */ 06635000 * 4 TCBRSV08 BIT(1), /* RESERVED (OS/VS2) */ 06636000 * 4 TCBDWSTA BIT(1), /* TASK WAS DETATCHED WITH 0274 06637000 * STAE=YES OPTION (OS/VS2) 0274 06638000 * ICB315*/ 06639000 * 3 TCBFLGS4 CHAR(1), /* NON-DISPATCHABILITY FLAGS 0274 06640000 * (OS/VS2) 0274 06641000 * RESERVED BYTE (OS/VS1) */ 06642000 * 4 TCBNDUMP BIT(1), /* ABDUMP NON-DISPATCHABILITY 0274 06643000 * INDICATOR */ 06644000 * 4 TCBSER BIT(1), /* SER1 NON-DISPATCHABILITY 0274 06645000 * INDICATOR */ 06646000 * 4 TCBRQENA BIT(1), /* I/O RQE'S EXHAUSTED */ 06647000 * 4 TCBHNDSP BIT(1), /* TASK OR JOB STEP IS 0274 06648000 * MOMENTARILY 'FROZEN' UNTIL 0274 06649000 * THE REQUIRED RESOURCES ARE 0274 06650000 * AVAILABLE. THE BIT IS SET 0274 06651000 * THROUGH THE USE OF THE 0274 06652000 * 'STATUS' SVC. ICB453*/ 06653000 * 4 TCBUXNDV BIT(1), /* TASK IS TEMPORARILY 0274 06654000 * NON-DISPATCHABLE BECAUSE SMF 06655000 * TIME LIMIT OR SYSOUT LIMIT 0274 06656000 * USER EXIT ROUTINE IS BEING 0274 06657000 * EXECUTED FOR THIS STEP */ 06658000 * 4 TCBMPCVQ BIT(1), /* VARY OR QUIESCE IN 0274 06659000 * MULTIPROCESSING SYSTEM */ 06660000 * 4 TCBMPCND BIT(1), /* M65 MULTIPROCESSING 0274 06661000 * NON-DISPATCHABILITY 0274 06662000 * INDICATOR FOR ALL CPU'S */ 06663000 * 4 TCBONDSP BIT(1), /* TASK TERMINATING AND 0274 06664000 * NON-DISPATCHABLE BECAUSE 0274 06665000 * EITHER OPEN FOR DUMP DATA 0274 06666000 * SET IS IN PROCESS OR CLOSE 0274 06667000 * BY ABEND IS IN PROCESS */ 06668000 * 3 TCBFLGS5 CHAR(1), /* MORE NON-DISPATCHABILITY 0274 06669000 * FLAGS. IF ANY BIT IN THIS 0274 06670000 * BYTE IS 1, THE TASK IS 0274 06671000 * NON-DISPATCHABLE. */ 06672000 * 4 TCBFC BIT(1), /* TASK TERMINATED (OS/VS2) */ 06673000 * 4 TCBABWF BIT(1), /* ABNORMAL WAIT (OS/VS2) */ 06674000 * 5 TCBUXNDF BIT(1), /* TASK IS TEMPORARILY 0274 06675000 * NON-DISPATCHABLE BECAUSE SMF 06676000 * TIME LIMIT OR SYSOUT LIMIT 0274 06677000 * USER EXIT ROUTINE IS BEING 0274 06678000 * EXECUTED FOR THIS STEP. THIS 06679000 * BIT IS SET TO 1 IN ALL TCB'S 06680000 * EXCEPT JOB STEP TCB. 0274 06681000 * (OS/VS1) ICB263*/ 06682000 * 4 TCBPAGE BIT(1), /* TASK IS NON-DISPATCHABLE DUE 06683000 * TO EXCESSIVE PAGING RATE */ 06684000 * 4 TCBANDSP BIT(1), /* TASK IS TEMPORARILY 0274 06685000 * NON-DISPATCHABLE BECAUSE IT 06686000 * WAS ATTACHED UNDER THE 0274 06687000 * DISP=NO OPERAND */ 06688000 * 4 TCBSYS BIT(1), /* ANOTHER TASK IS IN SYSTEM- 0274 06689000 * MUST-COMPLETE STATUS OR A 0274 06690000 * SUMMARY BIT FOR FIELD 0274 06691000 * TCBSYSCT */ 06692000 * 4 TCBSTP BIT(1), /* ANOTHER TASK IN THIS JOB STEP 06693000 * IS IN STEP-MUST-COMPLETE 0274 06694000 * STATUS */ 06695000 * 4 TCBFCD1 BIT(1), /* INITIATOR WAITING FOR REGION 06696000 * (OS/VS2) */ 06697000 * 4 TCBPNDSP BIT(1), /* PRIMARY NON-DISPATCHABILITY 06698000 * BIT. THIS BIT IS SET TO 1 0274 06699000 * IF ANY OF THE SECONDARY 0274 06700000 * NON-DISPATCHABILITY BITS 0274 06701000 * (OFFSETS 173, 174, 175, 200 06702000 * OR 201 DECIMAL) IS SET TO 1. 06703000 * THIS BIT IS SET TO 0 IF A 0274 06704000 * SECONDARY NON-DISPATCHABILITY 06705000 * BIT IS SET TO 0 AND ALL OTHER 06706000 * SECONDARY NON-DISPATCHABILITY 06707000 * BITS ARE 0. */ 06708000 * 2 TCBLMP PTR(8), /* TASK LIMIT PRIORITY (OS/VS2) 06709000 * NUMBER OF RESOURCES FOR WHICH 06710000 * THIS TASK IS ENQUEUED 0274 06711000 * (OS/VS1) */ 06712000 * 2 TCBDSP PTR(8), /* DISPATCHING PRIORITY FOR THIS 06713000 * TASK */ 06714000 * 2 TCBLLS PTR(31), /* ADDRESS OF LAST LOAD LIST 0274 06715000 * ELEMENT (LLE) IN LOAD LIST 0274 06716000 * (OS/VS2) 0274 06717000 * ADDRESS OF THE PREFIX OF THE 06718000 * MOST RECENTLY ADDED REQUEST 06719000 * BLOCK (RB-8) ON THE LIST OF 06720000 * PROGRAMS LOADED VIA THE LOAD 06721000 * MACRO INSTRUCTION (OS/VS1) 0274 06722000 * MDC070*/ 06723000 * 2 TCBJLB PTR(31), /* ADDRESS OF A JOBLIB DCB */ 06724000 * 2 TCBJPQ PTR(31), /* ADDRESS OF LAST CDE FOR JOB 06725000 * PACK AREA (JPA) CONTROL QUEUE 06726000 * (OS/VS2) */ 06727000 * 4 TCBPURGE CHAR(1), /* PURGE FLAGS (OS/VS2) */ 06728000 * 5 TCBJPQF BIT(1), /* JPQ PURGE FLAG */ 06729000 * 5 TCBRSV09 BIT(1), /* RESERVED */ 06730000 * 5 TCBRSV10 BIT(1), /* RESERVED */ 06731000 * 5 TCBRSV11 BIT(1), /* RESERVED */ 06732000 * 5 TCBRSV12 BIT(1), /* RESERVED */ 06733000 * 5 TCBRSV13 BIT(1), /* RESERVED */ 06734000 * 5 TCBRSV14 BIT(1), /* RESERVED */ 06735000 * 5 TCBRSV15 BIT(1), /* RESERVED */ 06736000 * 4 TCBJPQB PTR(24), /* SAME AS TCBJPQ ABOVE */ 06737000 * 2 TCBGRS CHAR(64) BDY(WORD), /* GENERAL REGISTER SAVE AREA */ 06738000 * 3 TCBGRS0 PTR(31), /* SAVE AREA FOR REGISTER 0 */ 06739000 * 3 TCBGRS1 PTR(31), /* SAVE AREA FOR REGISTER 1 */ 06740000 * 3 TCBGRS2 PTR(31), /* SAVE AREA FOR REGISTER 2 */ 06741000 * 3 TCBGRS3 PTR(31), /* SAVE AREA FOR REGISTER 3 */ 06742000 * 3 TCBGRS4 PTR(31), /* SAVE AREA FOR REGISTER 4 */ 06743000 * 3 TCBGRS5 PTR(31), /* SAVE AREA FOR REGISTER 5 */ 06744000 * 3 TCBGRS6 PTR(31), /* SAVE AREA FOR REGISTER 6 */ 06745000 * 3 TCBGRS7 PTR(31), /* SAVE AREA FOR REGISTER 7 */ 06746000 * 3 TCBGRS8 PTR(31), /* SAVE AREA FOR REGISTER 8 */ 06747000 * 3 TCBGRS9 PTR(31), /* SAVE AREA FOR REGISTER 9 */ 06748000 * 3 TCBGRS10 PTR(31), /* SAVE AREA FOR REGISTER 10 */ 06749000 * 3 TCBGRS11 PTR(31), /* SAVE AREA FOR REGISTER 11 */ 06750000 * 3 TCBGRS12 PTR(31), /* SAVE AREA FOR REGISTER 12 */ 06751000 * 3 TCBGRS13 PTR(31), /* SAVE AREA FOR REGISTER 13 */ 06752000 * 3 TCBGRS14 PTR(31), /* SAVE AREA FOR REGISTER 14 */ 06753000 * 3 TCBGRS15 PTR(31), /* SAVE AREA FOR REGISTER 15 */ 06754000 * 2 TCBFSA PTR(31), /* ADDRESS OF THE FIRST PROBLEM 06755000 * PROGRAM SAVE AREA */ 06756000 * 3 TCBQEL PTR(8), /* ENQUEUE COUNT (OS/VS2) */ 06757000 * 3 TCBFSAB PTR(24), /* ADDRESS OF THE FIRST PROBLEM 06758000 * PROGRAM SAVE AREA */ 06759000 * 2 TCBTCB PTR(31), /* ADDRESS OF NEXT TCB OF LOWER 06760000 * PRIORITY ON THE READY QUEUE */ 06761000 * 2 TCBTME PTR(31), /* ADDRESS OF THE TIMER QUEUE 0274 06762000 * ELEMENT (TQE) */ 06763000 * 3 TCBTQET BIT(1), /* IF ZERO, TASK TYPE TQE. 0274 06764000 * IF ONE, REAL/WAIT TYPE TQE. 06765000 * MDC028*/ 06766000 * 2 TCBJSTCB PTR(31), /* ADDRESS OF FIRST JOB STEP TCB 06767000 * OR OF THIS TCB IF KEY ZERO 0274 06768000 * (OS/VS2) */ 06769000 * 3 TCBRSV16 PTR(8), /* RESERVED */ 06770000 * 3 TCBJSTCA PTR(24), /* ADDRESS OF FIRST JOB STEP TCB 06771000 * OR OF THIS TCB IF KEY ZERO 0274 06772000 * (OS/VS2) */ 06773000 * 2 TCBNTC PTR(31), /* ADDRESS OF THE TCB FOR THE 0274 06774000 * TASK PREVIOUSLY ATTACHED BY 06775000 * THE TASK THAT ATTACHED THIS 06776000 * TASK */ 06777000 * 2 TCBOTC PTR(31), /* ADDRESS OF THE TCB FOR THE 0274 06778000 * TASK (THE ORIGINATING TASK) 06779000 * THAT ATTACHED THIS TASK. 0274 06780000 * THIS FIELD IS ZERO IN THE TCB 06781000 * FOR A SYSTEM TASK. */ 06782000 * 2 TCBLTC PTR(31), /* ADDRESS OF THE TCB FOR THE 0274 06783000 * TASK LAST ATTACHED BY THIS 0274 06784000 * TASK */ 06785000 * 2 TCBIQE PTR(31), /* ADDRESS OF AN INTERRUPTION 0274 06786000 * QUEUE ELEMENT (IQE) FOR 0274 06787000 * SCHEDULING THE ETXR ROUTINE 06788000 * OF THE TASK THAT ATTACHED 0274 06789000 * THIS TASK */ 06790000 * 2 TCBECB PTR(31), /* ADDRESS OF THE ECB THAT WILL 06791000 * BE POSTED BY THE SUPERVISOR'S 06792000 * TASK TERMINATION ROUTINES 0274 06793000 * WHEN NORMAL OR ABNORMAL 0274 06794000 * TERMINATION OCCURS. */ 06795000 * 2 TCBTSFLG BIT(8), /* TIME SHARING FLAGS */ 06796000 * 3 TCBTSTSK BIT(1), /* SWAPPED TIME SHARING TASK 0274 06797000 * (OS/VS1) MDC013*/ 06798000 * 4 TCBRV300 BIT(1), /* RESERVED (WAS TCBTSTSK) 0274 06799000 * (OS/VS2) MDC013*/ 06800000 * 3 TCBSTPPR BIT(1), /* TASK SHOULD BE MADE 0274 06801000 * NON-DISPATCHABLE VIA TCBSTPP 06802000 * WHEN IT IS NO LONGER RUNNING 06803000 * A PRIVILEGED PROGRAM */ 06804000 * 3 TCBATT BIT(1), /* TASK SHOULD NOT HAVE 0274 06805000 * ATTENTION EXITS SCHEDULED ON 06806000 * IT BY EXIT EFFECTOR */ 06807000 * 3 TCBTIOTG BIT(1), /* PURGE TGET/TPUT AFTER 0274 06808000 * ATTENTION */ 06809000 * 3 TCBRSV17 BIT(1), /* RESERVED */ 06810000 * 3 TCBRSV18 BIT(1), /* RESERVED */ 06811000 * 3 TCBDYDSP BIT(1), /* M195 TASK IS MEMBER OF 0274 06812000 * DYNAMIC DISPATCHING 0274 06813000 * GROUP ICB262*/ 06814000 * 3 TCBCPUBN BIT(1), /* FOR M195, ZERO MEANS I/O 0274 06815000 * BOUND AND ONE MEANS CPU 0274 06816000 * BOUND ICB262*/ 06817000 * 2 TCBSTPCT PTR(8), /* NUMBER OF SETTASK STARTS 0274 06818000 * WHICH MUST BE ISSUED BEFORE 06819000 * TASK IS MADE DISPATCHABLE - 06820000 * FIELD NOT RESTRICTED TO TSO */ 06821000 * 2 TCBTSLP PTR(8), /* LIMIT PRIORITY OF TIME 0274 06822000 * SHARING TASK */ 06823000 * 2 TCBTSDP CHAR(1), /* DISPATCHING PRIORITY OF TIME 06824000 * SHARING TASK */ 06825000 * 2 TCBPQE PTR(31), /* POINTER TO DPQE MINUS 8 FOR 06826000 * THE JOB STEP (OS/VS2) */ 06827000 * 2 TCBAQE PTR(31), /* LIST ORIGIN OF AQE(S) FOR 0274 06828000 * THIS TASK (OS/VS2) */ 06829000 * 2 TCBSTAB PTR(31), /* ADDRESS OF THE CURRENT STAE 06830000 * CONTROL BLOCK */ 06831000 * 3 TCBNSTAE CHAR(1), /* FLAGS INTERNAL TO STAE 0274 06832000 * ROUTINE */ 06833000 * 4 TCBSTABE BIT(1), /* ABEND ENTERED BECAUSE OF 0274 06834000 * ERROR IN STAE PROCESSING */ 06835000 * 4 TCBQUIES BIT(1), /* STAE INVOKED PURGE I/O 0274 06836000 * ROUTINE WITH QUIESCE I/O 0274 06837000 * OPTION */ 06838000 * 4 TCB33E BIT(1), /* A 33E ABEND HAS OCCURRED FOR 06839000 * TASK (OS/VS2) */ 06840000 * 4 TCBPPSUP BIT(1), /* 1=SUPERVISOR MODE, 0=PROBLEM 06841000 * PROGRAM MODE. INDICATOR TO 06842000 * SYNCH OF THE MODE OF THE 0274 06843000 * USER EXIT (OS/VS2) MDC032*/ 06844000 * 4 TCBHALT BIT(1), /* PURGE I/O ROUTINE DID NOT 0274 06845000 * SUCCESSFULLY QUIESCE I/O, BUT 06846000 * I/O WAS HALTED */ 06847000 * 4 TCBSYNCH BIT(1), /* SYNCH ISSUED BY ASIR TO 0274 06848000 * SCHEDULE EXIT ROUTINE 0274 06849000 * (OS/VS2) */ 06850000 * 4 TCBRV301 BIT(1), /* RESERVED (WAS TCBNPURG) 0274 06851000 * (OS/VS2) MDC007*/ 06852000 * 4 TCBSTCUR BIT(1), /* STAE RECURSION VALID (OS/VS2) 06853000 * ICB443*/ 06854000 * 3 TCBSTABB PTR(24), /* ADDRESS OF THE CURRENT STAE 06855000 * CONTROL BLOCK */ 06856000 * 2 TCBTCT PTR(31), /* ADDRESS OF THE TIMING CONTROL 06857000 * TABLE (TCT) IF SYSTEM 0274 06858000 * MANAGEMENT FACILITIES (SMF) 06859000 * DATA IS BEING COLLECTED FOR 06860000 * THE TASK. ZERO IF SMF DATA 06861000 * IS NOT BEING COLLECTED FOR 0274 06862000 * THE TASK OR FOR OS/VS1, IF 0274 06863000 * SMF IS NOT IN THE SYSTEM. 0274 06864000 * (MDC305) @Z30AQ9A*/ 06865000 * 3 TCBTCTGF BIT(8), /* FLAG BYTE FOR TIMING CONTROL 06866000 * TABLE ICB318*/ 06867000 * 4 TCBSMFGF BIT(1), /* IF ZERO, THE TCT CORE TABLE 06868000 * IS NOT BE TO UPDATED BY 0274 06869000 * GETMAIN/FREEMAIN. IF ONE, 0274 06870000 * THE TCT CORE TABLE IS TO BE 06871000 * UPDATED BY GETMAIN/FREEMAIN. 06872000 * ICB318*/ 06873000 * 4 TCBRSV20 BIT(1), /* RESERVED */ 06874000 * 4 TCBRSV97 BIT(1), /* RESERVED */ 06875000 * 4 TCBRSV98 BIT(1), /* RESERVED */ 06876000 * 4 TCBRSV99 BIT(1), /* RESERVED */ 06877000 * 4 TCBRSV9A BIT(1), /* RESERVED */ 06878000 * 4 TCBRSV9B BIT(1), /* RESERVED */ 06879000 * 4 TCBRSV9C BIT(1), /* RESERVED */ 06880000 * 3 TCBTCTB PTR(24), /* SAME AS TCBTCT ABOVE */ 06881000 * 2 TCBUSER PTR(31), /* A WORD AVAILABLE TO THE USER */ 06882000 * 2 TCBSCNDY CHAR(4) BDY(WORD), /* SECONDARY NON-DISPATCHABILITY 06883000 * BITS. IF ANY BIT IN THE 0274 06884000 * FOLLOWING FOUR BYTES IS 1, THE 06885000 * PRIMARY NON-DISPATCHABILITY 06886000 * BIT (OFFSET 33.7 DECIMAL) IS 06887000 * 1, AND THE TASK IS 0274 06888000 * NON-DISPATCHABLE. */ 06889000 * 3 TCBNDSP CHAR(4) BDY(WORD), /* SAME AS TCBSCNDY */ 06890000 * 4 TCBNDSP0 CHAR(1), /* BYTE 0 */ 06891000 * 4 TCBNDSP1 CHAR(1), /* BYTE 1 */ 06892000 * 5 TCBDARTN BIT(1), /* THE TASK IS TEMPORARILY 0274 06893000 * NON-DISPATCHABLE - DAMAGE 0274 06894000 * ASSESSMENT ROUTINE (DAR) */ 06895000 * 5 TCBDARPN BIT(1), /* THE TASK IS PERMANENTLY 0274 06896000 * NON-DISPATCHABLE - DAMAGE 0274 06897000 * ASSESSMENT ROUTINE (DAR) */ 06898000 * 5 TCBRSTND BIT(1), /* THE TASK IS TEMPORARILY 0274 06899000 * NON-DISPATCHABLE - RECOVERY 06900000 * MANAGEMENT SUPPORT AND SYSTEM 06901000 * ERROR RECOVERY (RMS/SER) */ 06902000 * 5 TCBRSPND BIT(1), /* THE TASK IS PERMANENTLY 0274 06903000 * NON-DISPATCHABLE - RECOVERY 06904000 * MANAGEMENT SUPPORT AND SYSTEM 06905000 * ERROR RECOVERY (RMS/SER) 0274 06906000 * (IF THIS FLAG IS ON THEN THE 06907000 * PREVIOUS BIT MUST BE ON TOO) */ 06908000 * 5 TCBDDRND BIT(1), /* THE TASK IS IN DEVICE 0274 06909000 * ALLOCATION AND DYNAMIC DEVICE 06910000 * RECONFIGURATION (DDR) HAS 0274 06911000 * MADE IT NON-DISPATCHABLE - 0274 06912000 * RECOVERY MANAGEMENT SUPPORT 06913000 * AND SYSTEM ERROR RECOVERY 0274 06914000 * (RMS/SER) (OS/VS1) MDC046*/ 06915000 * 5 TCBTPSP BIT(1), /* DISPATCHING OF TCAM TASK 0274 06916000 * MUST BE DELAYED UNTIL TCAM 0274 06917000 * I/O APPENDAGE OR SVC ROUTINE 06918000 * HAS COMPLETED EXECUTION 0274 06919000 * (TCAM IN MULTIPROCESSING 0274 06920000 * ENVIRONMENT) */ 06921000 * 5 TCBPIEND BIT(1), /* SRB IS TO BE SCHEDULED TO 0274 06922000 * PERFORM PIE/PICA PROCESSING 06923000 * (FIRST LEVEL INTERRUPT 0274 06924000 * HANDLER) MDC026*/ 06925000 * 5 TCBRSV22 BIT(1), /* RESERVED */ 06926000 * 4 TCBNDSP2 CHAR(1), /* BYTE 2 */ 06927000 * 5 TCBABD BIT(1), /* ABDUMP IS PROCESSING (OS/VS1)*/ 06928000 * 5 TCBSTPP BIT(1), /* TASK SET NON-DISPATCHABLE 0274 06929000 * BY SETTASK */ 06930000 * 5 TCBNDSVC BIT(1), /* TASK IS NON-DISPATCHABLE 0274 06931000 * BECAUSE SVC DUMP IS 0274 06932000 * EXECUTING FOR ANOTHER TASK */ 06933000 * 5 TCBNDTS BIT(1), /* TASK IS NON-DISPATCHABLE 0274 06934000 * BECAUSE IT IS BEING SWAPPED 06935000 * OUT */ 06936000 * 5 TCBIWAIT BIT(1), /* TASK IS NON-DISPATCHABLE DUE 06937000 * TO AN INPUT WAIT */ 06938000 * 5 TCBOWAIT BIT(1), /* TASK IS NON-DISPATCHABLE DUE 06939000 * TO AN OUTPUT WAIT */ 06940000 * 5 TCBDSS BIT(1), /* DYNAMIC SUPPORT SYSTEM (DSS) 06941000 * HAS SET THIS TASK 0274 06942000 * NON-DISPATCHABLE ICB313*/ 06943000 * 5 TCBABE BIT(1), /* ABEND ROUTINE WAS ENTERED BY 06944000 * THIS TASK WHILE THE DCB FOR 06945000 * SYSABEND (OR SYSUDUMP) DATA 06946000 * SET WAS BEING OPENED FOR 0274 06947000 * ANOTHER TASK (OS/VS1) */ 06948000 * 4 TCBNDSP3 CHAR(1), /* BYTE 3 */ 06949000 * 5 TCBLJSND BIT(1), /* TASK IS ABENDING AND 0274 06950000 * NON-DISPATCHABLE BECAUSE IT 06951000 * HAS A JOB STEP SUBTASK. 0274 06952000 * TCBONDSP MUST ALSO BE ON. 0274 06953000 * (OS/VS2) */ 06954000 * 5 TCBRV302 BIT(1), /* RESERVED (WAS TCBSTAND) 0274 06955000 * (OS/VS2) MDC006*/ 06956000 * 5 TCBSRBND BIT(1), /* TCB NON-DISPATCHABLE BECAUSE 06957000 * SRB'S ARE STOPPED (OS/VS2) 06958000 * MDC045*/ 06959000 * 5 TCBRSV24 BIT(1), /* RESERVED */ 06960000 * 5 TCBRSV25 BIT(1), /* RESERVED */ 06961000 * 5 TCBRSV26 BIT(1), /* RESERVED */ 06962000 * 5 TCBRSV27 BIT(1), /* RESERVED */ 06963000 * 5 TCBNDINT BIT(1), /* INITIATOR SETS THIS BIT TO 0274 06964000 * PREVENT JOB STEP EXECUTION 0274 06965000 * IN ORDER TO DO CANCEL 0274 06966000 * PROCESSING (CAN CANCEL LOOP) 06967000 * (OS/VS2) MDC075*/ 06968000 * 2 TCBMDIDS FIXED(31), /* RESERVED FOR MODEL-DEPENDENT 06969000 * SUPPORT AND FOR IBM 0274 06970000 * PROPRIETARY PROGRAMMING 0274 06971000 * SUPPORT ICBXXX*/ 06972000 * 2 TCBJSCB PTR(31), /* ADDRESS OF THE JOB STEP 0274 06973000 * CONTROL BLOCK */ 06974000 * 3 TCBRECDE CHAR(1), /* ABEND RECURSION BYTE ICB456*/ 06975000 * 4 TCBREC BIT(1), /* VALID REENTRY TO ABEND IF 0274 06976000 * NON-ZERO VALUE IN FOLLOWING 06977000 * 7 BITS ICB456*/ 06978000 * 4 * BIT(7), /* ABEND BITS ICB456*/ 06979000 * 3 TCBJSCBB PTR(24), /* ADDRESS OF THE JOB STEP 0274 06980000 * CONTROL BLOCK */ 06981000 * 2 TCBDDEXC FIXED(15), /* NUMBER OF TIMES A DYNAMIC 0274 06982000 * DISPATCHING TASK HAS HAD ITS 06983000 * TIME SLICE EXPIRE 0274 06984000 * (OS/VS1) ICB465*/ 06985000 * 2 TCBDDWTC FIXED(15), /* NUMBER OF TIMES A DYNAMIC 0274 06986000 * DISPATCHING TASK IS NOT 0274 06987000 * INTERRUPTED BY THE END OF A 06988000 * TIME SLICE BETWEEN WAITS 0274 06989000 * (OS/VS1) ICB465*/ 06990000 * 2 TCBIOBRC PTR(31), /* ADDRESS OF IOB RESTORE CHAIN 06991000 * FOR I/O QUIESCED BY EOT 0274 06992000 * YM2840*/ 06993000 * 2 TCBEXCPD PTR(31), /* ADDRESS OF EXCP DEBUG AREA 0274 06994000 * (OS/VS2) (MDC083) YM4297*/ 06995000 * 2 TCBEXT1 PTR(31), /* ADDRESS OF OS - OS/VS COMMON 06996000 * EXTENSION ICB311*/ 06997000 * 3 TCBRSV32 PTR(8), /* RESERVED ICB311*/ 06998000 * 3 TCBEXT1A PTR(24), /* ADDRESS OF OS - OS/VS COMMON 06999000 * EXTENSION ICB311*/ 07000000 * 0274 07001000 * /* OS/VS1 - OS/VS2 COMMON SECTION */ 07002000 * 0274 07003000 * 2 TCBBITS CHAR(4) BDY(WORD), /* FLAG BYTES. IF A BIT IN THE 07004000 * FOLLOWING TWO BYTES IS SET 0274 07005000 * TO 1, THE PRIMARY 0274 07006000 * NON-DISPATCHABILITY BIT 0274 07007000 * (OFFSET 33.7 DECIMAL) IS SET 07008000 * TO 1, AND THE TASK IS 0274 07009000 * NON-DISPATCHABLE. */ 07010000 * 3 TCBNDSP4 BIT(8), /* SECONDARY NON-DISPATCHABILITY 07011000 * FLAGS COMMON TO OS/VS1 AND 0274 07012000 * OS/VS2. COORDINATED WITH 0274 07013000 * PRIMARY NON-DISPATCHABILITY 07014000 * FLAG TCBPNDSP. THIS BYTE IS 07015000 * NOT CURRENTLY SUPPORTED BY 0274 07016000 * OS/VS2. MDC076*/ 07017000 * 4 TCBRSV86 BIT(1), /* RESERVED */ 07018000 * 4 TCBRSV87 BIT(1), /* RESERVED */ 07019000 * 4 TCBRSV88 BIT(1), /* RESERVED */ 07020000 * 4 TCBRSV89 BIT(1), /* RESERVED */ 07021000 * 4 TCBRSV90 BIT(1), /* RESERVED */ 07022000 * 4 TCBRSV91 BIT(1), /* RESERVED */ 07023000 * 4 TCBRSV92 BIT(1), /* RESERVED */ 07024000 * 4 TCBRSV93 BIT(1), /* RESERVED */ 07025000 * 3 TCBNDSP5 BIT(8), /* SECONDARY NON-DISPATCHABILITY 07026000 * FLAGS UNIQUE TO OS/VS1 OR 0274 07027000 * OS/VS2. COORDINATED WITH 0274 07028000 * PRIMARY NON-DISPATCHABILITY 07029000 * FLAG TCBPNDSP. THIS BYTE IS 07030000 * NOT CURRENTLY SUPPORTED BY 0274 07031000 * OS/VS2. MDC077*/ 07032000 * 4 TCBRSV94 BIT(1), /* RESERVED (OS/VS2) */ 07033000 * 4 TCBRSV95 BIT(1), /* RESERVED (OS/VS2) */ 07034000 * 4 TCBRSV74 BIT(1), /* RESERVED */ 07035000 * 4 TCBRSV75 BIT(1), /* RESERVED */ 07036000 * 4 TCBRSV76 BIT(1), /* RESERVED */ 07037000 * 4 TCBRSV77 BIT(1), /* RESERVED */ 07038000 * 4 TCBRSV78 BIT(1), /* RESERVED */ 07039000 * 4 TCBRSV79 BIT(1), /* RESERVED MDC075*/ 07040000 * 3 TCBFLGS6 CHAR(1), /* TASK-RELATED FLAGS */ 07041000 * 4 TCBRV BIT(1), /* THE PARTITION IS FIXED IN 0274 07042000 * REAL STORAGE. VIRTUAL 0274 07043000 * ADDRESSES ARE EQUAL TO REAL 07044000 * ADDRESSES. */ 07045000 * 4 TCBPIE17 BIT(1), /* PAGE FAULT INTERRUPT IS TO 0274 07046000 * BE PASSED TO THE TASK'S 0274 07047000 * INTERRUPT EXIT AND AN 8-BYTE 07048000 * PICA IS IN EFFECT FOR THIS 0274 07049000 * TASK (OS/VS2) ICB339*/ 07050000 * 4 TCBCPU BIT(1), /* TASK IS CPU-BOUND MEMBER OF 07051000 * AUTOMATIC PRIORITY GROUP 0274 07052000 * (APG) (OS/VS2) */ 07053000 * 4 TCBSPVLK BIT(1), /* TASK SCHEDULED FOR ABTERM 0274 07054000 * WHILE OWNING SUPERVISOR LOCK 07055000 * (OS/VS2) */ 07056000 * 4 TCBRV303 BIT(1), /* RESERVED (WAS TCBOLSQA) 0274 07057000 * (OS/VS2) MDC014*/ 07058000 * 4 TCBMIGR BIT(1), /* REGION SELECTED FOR MIGRATION 07059000 * FROM PRIMARY PAGING DEVICE 0274 07060000 * (OS/VS2) */ 07061000 * 4 TCBAPG BIT(1), /* TASK IS IN AUTOMATIC PRIORITY 07062000 * GROUP (APG) (OS/VS2) */ 07063000 * 4 TCBNTJS BIT(1), /* JOB STEP TASK BUT NOT HIGHEST 07064000 * IN FAILING TREE (OS/VS2) */ 07065000 * 3 TCBFLGS7 CHAR(1), /* TASK-RELATED FLAGS */ 07066000 * 4 TCBGPECB BIT(1), /* TASK IS IN AN ECB WAIT FOR A 07067000 * GETPART (OS/VS2) ICB339*/ 07068000 * 4 TCBRSV33 BIT(1), /* RESERVED (OS/VS2) */ 07069000 * 4 TCBRSV34 BIT(1), /* RESERVED (OS/VS2) */ 07070000 * 4 TCBSTACK BIT(1), /* SET IN JOB STEP TCB TO 0274 07071000 * INDICATE THAT A TASK IN THE 07072000 * JOB STEP IS IN SERIAL ABEND 07073000 * PROCESSING. USED IN 0274 07074000 * CONJUNCTION WITH TCBFOINP. 0274 07075000 * (OS/VS2) ICB374*/ 07076000 * 4 TCBSVCS BIT(1), /* RESERVED (MDC315) @Z40EP9A*/ 07077000 * 4 TCBRSTSK BIT(1), /* RESIDENT SYSTEM TASK (OS/VS2)*/ 07078000 * 4 TCBADMP BIT(1), /* ALL OTHER TASKS IN JOB STEP 07079000 * HAVE BEEN SET NON-DISPATCHABLE 07080000 * BY ABDUMP. THIS BIT IS SET 07081000 * TO CONTROL JOB STEP DURING 0274 07082000 * THE DUMPING PROCESS. (OS/VS2)*/ 07083000 * 4 TCBGTOFM BIT(1), /* GENERALIZED TRACE FACILITY 0274 07084000 * (GTF) TRACING HAS BEEN 0274 07085000 * TEMPORARILY DISABLED UNDER 0274 07086000 * THIS TASK ICB402*/ 07087000 * 2 TCBDAR CHAR(1), /* DAMAGE ASSESSMENT ROUTINE 0274 07088000 * (DAR) FLAGS */ 07089000 * 3 TCBDARP BIT(1), /* PRIMARY DAR RECURSION. DAR 07090000 * HAS BEEN ENTERED FOR THIS 0274 07091000 * TASK */ 07092000 * 3 TCBDARS BIT(1), /* SECONDARY DAR RECURSION. IF 07093000 * DAR IS REENTERED, THIS TASK 07094000 * WILL BE SET NON-DISPATCHABLE.*/ 07095000 * 3 TCBDARD BIT(1), /* A DUMP HAS BEEN REQUESTED 0274 07096000 * FOR A WRITER OR SCHEDULER 0274 07097000 * ABEND, AND THE USER HAS NOT 07098000 * PROVIDED A SYSABEND DD CARD 07099000 * (OS/VS1) */ 07100000 * 3 TCBDARC BIT(1), /* RECURSION PERMITTED IN 0274 07101000 * CLOSE - AFTER DAR PROCESSING 07102000 * COMPLETED (PCP) */ 07103000 * 4 TCBDARMC BIT(1), /* DAR HAS BEEN ENTERED TO 0274 07104000 * HANDLE A VALID RECURSION 0274 07105000 * IN MUST-COMPLETE STATUS 0274 07106000 * THROUGH ABEND ICB264*/ 07107000 * 3 TCBDARO BIT(1), /* SYSTEM ERROR TASK IS FAILING. 07108000 * DAR DUMP SHOULD NOT REQUEST 07109000 * ANY ERROR RECOVERY PROCEDURE 07110000 * (ERP) PROCESSING. */ 07111000 * 3 TCBDARWT BIT(1), /* A WTO OPERATION WITH A 0274 07112000 * 'REINSTATEMENT FAILURE' 0274 07113000 * MESSAGE IS IN PROCESS FOR DAR 07114000 * ICB264*/ 07115000 * 3 TCBDARMS BIT(1), /* WTO OPERATION WITH A 'DAR IN 07116000 * PROGRESS' MESSAGE IS IN 0274 07117000 * PROCESS FOR DAR (OS/VS1) 0274 07118000 * (MDC314) @XA08316*/ 07119000 * 3 TCBEXSVC BIT(1), /* THE DUMP SVC ROUTINE IS 0274 07120000 * EXECUTING FOR THIS TASK */ 07121000 * 2 TCBRSV37 PTR(8), /* RESERVED FOR USER MDC080*/ 07122000 * 2 TCBSYSCT PTR(8), /* NUMBER OF OUTSTANDING 0274 07123000 * SYSTEM-MUST-COMPLETE 0274 07124000 * REQUESTS (ICB497) YM3883*/ 07125000 * 2 TCBSTMCT PTR(8), /* NUMBER OF OUTSTANDING 0274 07126000 * STEP-MUST-COMPLETE 0274 07127000 * REQUESTS (ICB497) YM3883*/ 07128000 * 2 TCBEXT2 PTR(31) BDY(DWORD), /* SAME AS TCBEXT2A ICB311*/ 07129000 * 3 TCBRSV39 PTR(8), /* RESERVED ICB311*/ 07130000 * 3 TCBEXT2A PTR(24), /* ADDRESS OF OS/VS1 - OS/VS2 0274 07131000 * COMMON EXTENSION ICB311*/ 07132000 * 0274 07133000 * /* OS/VS2 TCB OVERLAY */ 07134000 * 0274 07135000 * 2 TCBAECB CHAR(4) BDY(DWORD,5),/* ABEND ECB. POSTED BY A 0274 07136000 * MOTHER TASK IN RTM2 PROCESSING 07137000 * WHEN A DAUGHTER IS WAITING TO 07138000 * TERMINATE IT. MDC033*/ 07139000 * 2 TCBTIRB PTR(31), /* ADDRESS OF TIRB FOR TASK */ 07140000 * 2 TCBBACK PTR(31), /* ADDRESS OF PREVIOUS TCB ON 0274 07141000 * READY QUEUE. ZERO IN TOP 0274 07142000 * TCB. */ 07143000 * 2 TCBRTWA PTR(31), /* POINTER TO CURRENT RTM2 WORK 07144000 * AREA MDC034*/ 07145000 * 2 TCBIOTIM FIXED(31), /* TIME IN 16-MICROSECOND UNITS 07146000 * BETWEEN TIME ORIGINAL TIME 0274 07147000 * SLICE INTERVAL WAS ASSIGNED 07148000 * AND TIME AUTOMATIC PRIORITY 07149000 * GROUP (APG) TASK WENT INTO 0274 07150000 * VOLUNTARY WAIT */ 07151000 * 2 TCBTMSAV FIXED(31), /* TIME IN 16-MICROSECOND UNITS 07152000 * REMAINING FROM ORIGINAL TIME 07153000 * SLICE INTERVAL WHEN AUTOMATIC 07154000 * PRIORITY GROUP (APG) TASK 0274 07155000 * WAS LAST DISPATCHED */ 07156000 * 2 TCBABCUR CHAR(1), /* ABEND RECURSION BYTE */ 07157000 * 2 TCBRSVAA PTR(8), /* RESERVED (ICB497) YM3883*/ 07158000 * 2 TCBTID CHAR(1), /* TASK ID NUMBER ICB374*/ 07159000 * 2 TCBRSV41 PTR(8), /* RESERVED ICB374*/ 07160000 * 2 TCBRV306 PTR(31), /* RESERVED (WAS TCBQECB) 0274 07161000 * MDC020-MDC022*/ 07162000 * 2 TCBFOE PTR(31), /* SAME AS TCBFOEA BELOW ICB339*/ 07163000 * 3 TCBRSV42 PTR(8), /* RESERVED ICB339*/ 07164000 * 3 TCBFOEA PTR(24), /* ADDRESS OF FIRST FIX 0274 07165000 * OWNERSHIP ELEMENT (FOE) IN 0274 07166000 * LIST FOR THIS TASK ICB339*/ 07167000 * 2 TCBSWA PTR(31), /* ADDRESS OF FIRST SCHEDULER 0274 07168000 * WORK AREA (SWA) SPQE ON SWA 07169000 * SPQE CHAIN (MDC326) @Z40AQ9A*/ 07170000 * 2 TCBRSV96 PTR(31), /* RESERVED */ 07171000 * 2 TCBTCBID CHAR(4) BDY(WORD), /* CONTAINS BLOCK ID - 'TCB ' 0274 07172000 * MDC012*/ 07173000 * 2 TCBRTM12 PTR(31), /* POINTER TO PARAMETER AREAS 0274 07174000 * PASSED FROM RTM1 TO RTM2 0274 07175000 * MDC008*/ 07176000 * 2 TCBESTAE CHAR(4) BDY(WORD), /* AREA TO CONTAIN RECOVERY DATA 07177000 * FOR RTM MDC029*/ 07178000 * 3 TCBSCBKY CHAR(1), /* KEY IN WHICH SYNCH IS TO PASS 07179000 * CONTROL TO THE USER EXIT 0274 07180000 * MDC030*/ 07181000 * 3 TCBESTRM BIT(8), /* ESTAE TERM OPTIONS MDC039*/ 07182000 * 4 TCBETERM BIT(1), /* ESTAE EXIT ENTERED WITH TERM 07183000 * OPTION MDC040*/ 07184000 * 4 TCBRV308 BIT(1), /* RESERVED */ 07185000 * 4 TCBRV309 BIT(1), /* RESERVED */ 07186000 * 4 TCBRV310 BIT(1), /* RESERVED */ 07187000 * 4 TCBRV311 BIT(1), /* RESERVED */ 07188000 * 4 TCBRV312 BIT(1), /* RESERVED */ 07189000 * 4 TCBRV313 BIT(1), /* RESERVED */ 07190000 * 4 TCBRV314 BIT(1), /* RESERVED */ 07191000 * 3 TCBERTYP PTR(8), /* TYPE OF ERROR CAUSING ENTRY 07192000 * TO THE RTM. SET BY RTM1. 0274 07193000 * MDC052*/ 07194000 * 3 TCBMODE PTR(8), /* MASK INDICATING MODE OF 0274 07195000 * SYSTEM AT TIME OF ERROR. 0274 07196000 * SEE IHART1W/MODE FOR 0274 07197000 * INDIVIDUAL BIT DEFINITIONS. 07198000 * MDC064*/ 07199000 * 2 TCBUKYSP PTR(31), /* ADDRESS OF SPQE'S FOR 0274 07200000 * SUBPOOLS 229 AND 230 (USER 0274 07201000 * KEY STORAGE IN THE PRIVATE 0274 07202000 * AREA) MDC067*/ 07203000 * 2 TCBCCPVI FIXED(15), /* ID OF THE CURRENT CPU RUNNING 07204000 * THIS TASK. USED FOR RECOVERY 07205000 * AND CPU AFFINITY. MDC004*/ 07206000 * 2 TCBAFFN BIT(16), /* CPU AFFINITY INDICATOR MDC047*/ 07207000 * 2 TCBFBYT1 BIT(8), /* FLAG BYTE MDC002*/ 07208000 * 3 TCBEOTFM BIT(1), /* END OF TASK FLAG FOR FREEMAIN. 07209000 * SET TO 1 BY TASK TERMINATION 07210000 * AT START OF TERMINATION 0274 07211000 * PROCESSING AND RESET TO 0 AT 07212000 * FINISH. INDICATES THAT A 0274 07213000 * FREEMAIN ON A BLOCK OF LOCAL 07214000 * STORAGE THAT IS STILL FIXED 07215000 * BY RSM SHOULD RESULT IN A 0274 07216000 * RETURN CODE OF 8 RATHER THAN 07217000 * ABNORMAL TERMINATION. MDC002*/ 07218000 * 3 TCBACTIV BIT(1), /* BIT ON MEANS THIS TCB IS 0274 07219000 * CURRENTLY ACTIVE ON A CPU. 0274 07220000 * USED TO SYNCHRONIZE SOME STATUS 07221000 * SAVING AND DISPATCHABILITY 0274 07222000 * INDICATORS WHEN ACTIVE OR NOT 07223000 * UNDER THE LOCAL LOCK. MDC003*/ 07224000 * 3 TCBNDIOS BIT(1), /* TASK HAS BEEN SET NON- 0274 07225000 * DISPATCHABLE VIA STATUSND 0274 07226000 * WHILE SVC 16 (PURGE) SCANS 0274 07227000 * THE RB CHAIN PURGING APPENDAGE- 07228000 * SCHEDULED ASYNCHRONOUS EXIT 07229000 * ROUTINES RUNNING UNDER AN 0274 07230000 * IRB/RQE OR NON-RESIDENT ERP'S 07231000 * RUNNING UNDER THE SIRB MDC005*/ 07232000 * 3 TCBPGNLY BIT(1), /* SET BY RTM2 TO INDICATE ONLY 07233000 * PURGE PHASE TO BE PERFORMED 07234000 * MDC009*/ 07235000 * 3 TCBRTM2 BIT(1), /* SET BY RTM2 TO INDICATE RTM2 07236000 * HAS BEEN ENTERED FOR THIS 0274 07237000 * TASK MDC010*/ 07238000 * 3 TCBEOT BIT(1), /* SET BY RTM2 TO INDICATE TO 0274 07239000 * EXIT THAT END OF TASK 0274 07240000 * PROCESSING IS COMPLETE MDC011*/ 07241000 * 3 TCBRV113 BIT(1), /* RESERVED */ 07242000 * 3 TCBLLH BIT(1), /* LOCALLY LOCKED TCB HAS PAGE 07243000 * FAULTED, AND I/O IS REQUIRED 07244000 * (FIRST LEVEL INTERRUPT 0274 07245000 * HANDLER) MDC027*/ 07246000 * 2 TCBFBYT2 BIT(8), /* FLAG BYTE MDC035*/ 07247000 * 3 TCBCNCB BIT(1), /* SET BY RTM2 IN THE JOB STEP 07248000 * TCB WHEN IT HAS BEEN ENTERED 07249000 * ON THE TCB FOR AN X22 0274 07250000 * ABEND MDC036*/ 07251000 * 3 TCBFMW BIT(1), /* MOTHER WAITING FLAG. TURNED 07252000 * ON IN A SUBTASK IN RTM2 0274 07253000 * PROCESSING WHEN AN ANCESTOR 07254000 * TASK IS WAITING TO ABEND 0274 07255000 * IT. MDC037*/ 07256000 * 3 TCBFDW BIT(1), /* DAUGHTER WAITING FLAG. 0274 07257000 * TURNED ON IN A MOTHER TASK 0274 07258000 * IN RTM2 PROCESSING WHEN A 0274 07259000 * DAUGHTER IS WAITING TO ABEND 07260000 * IT. MDC038*/ 07261000 * 3 TCBFPRAP BIT(1), /* SET BY RTM2 TO PREVENT 0274 07262000 * PERCOLATION TO THE TASK OF AN 07263000 * ASYNCHRONOUS ABEND MDC051*/ 07264000 * 3 TCBSSSYN BIT(1), /* SYNCHRONIZED STATUS STOP 0274 07265000 * PENDING FOR THIS TCB MDC053*/ 07266000 * 3 TCBECBNV BIT(1), /* IF 1, ECB POINTED TO BY 0274 07267000 * TCBECB IS NOT TO BE VALIDITY 07268000 * CHECKED. IF 0, ECB POINTED 07269000 * TO BY TCBECB IS TO BE 0274 07270000 * VALIDITY CHECKED. MDC071*/ 07271000 * 3 TCBRV122 BIT(1), /* RESERVED */ 07272000 * 3 TCBRV123 BIT(1), /* RESERVED */ 07273000 * 2 TCBRV124 BIT(8), /* RESERVED (MDC306) */ 07274000 * 3 TCBRV125 BIT(1), /* RESERVED (MDC307) */ 07275000 * 3 TCBRV126 BIT(1), /* RESERVED (MDC308) */ 07276000 * 3 TCBRV127 BIT(1), /* RESERVED */ 07277000 * 3 TCBRV128 BIT(1), /* RESERVED */ 07278000 * 3 TCBRV129 BIT(1), /* RESERVED */ 07279000 * 3 TCBRV130 BIT(1), /* RESERVED */ 07280000 * 3 TCBRV131 BIT(1), /* RESERVED */ 07281000 * 3 TCBRV132 BIT(1), /* RESERVED */ 07282000 * 2 TCBRV133 BIT(8), /* RESERVED */ 07283000 * 3 TCBRV134 BIT(1), /* RESERVED */ 07284000 * 3 TCBRV135 BIT(1), /* RESERVED */ 07285000 * 3 TCBRV136 BIT(1), /* RESERVED */ 07286000 * 3 TCBRV137 BIT(1), /* RESERVED */ 07287000 * 3 TCBRV138 BIT(1), /* RESERVED */ 07288000 * 3 TCBRV139 BIT(1), /* RESERVED */ 07289000 * 3 TCBRV140 BIT(1), /* RESERVED */ 07290000 * 3 TCBRV141 BIT(1), /* RESERVED */ 07291000 * 2 TCBRPT PTR(31), /* ADDRESS OF RADIX PARTITION 0274 07292000 * TREE FOR LOCAL STORAGE 0274 07293000 * MANAGEMENT MDC068*/ 07294000 * 2 TCBDBTB PTR(31), /* ADDRESS OF DEB TABLE. THERE 07295000 * IS ONE DEB TABLE PER JOB 0274 07296000 * STEP TCB. MDC073*/ 07297000 * 2 TCBSWASA PTR(31), /* ADDRESS OF SAVE AREA USED BY 07298000 * SWA MANAGER MDC079*/ 07299000 * 2 TCBSVCA2 PTR(31), /* RESERVED (MDC317) @Z40EP9A*/ 07300000 * 2 * CHAR(0) BDY(DWORD); 0274 07301000 * 0274 07302000 * /* OS/VS1 - OS/VS2 COMMON EXTENSION */ 07303000 * 0275 07304000 * DECLARE 0275 07305000 * 1 TCBXTNT2 BASED(TCBEXT2) BDY(DWORD), 0275 07306000 * 2 TCBGTF PTR(31), /* SAME AS TCBGTFA BELOW ICB312*/ 07307000 * 3 TCBTFLG BIT(8), /* GENERALIZED TRACE FACILITY 0275 07308000 * (GTF) FLAG BYTE ICB312*/ 07309000 * 4 TCBASYNC BIT(1), /* GTF ASYNCHRONOUS GATHER 0275 07310000 * ROUTINE IS IN CONTROL ICB312*/ 07311000 * 4 TCBERRTN BIT(1), /* GTF ASYNCHRONOUS GATHER ERROR 07312000 * ROUTINE IS IN CONTROL ICB312*/ 07313000 * 4 TCBDSPIT BIT(1), /* MACHINE CHECK INTERRUPTION 0275 07314000 * HANDLER SHOULD UNCONDITIONALLY 07315000 * BRANCH TO DISPATCHER ICB312*/ 07316000 * 4 TCBRSV43 BIT(1), /* RESERVED */ 07317000 * 4 TCBRSV44 BIT(1), /* RESERVED */ 07318000 * 4 TCBRSV45 BIT(1), /* RESERVED */ 07319000 * 4 TCBRSV46 BIT(1), /* RESERVED */ 07320000 * 4 TCBRSV47 BIT(1), /* RESERVED */ 07321000 * 3 TCBGTFA PTR(24), /* ADDRESS OF GTF TEMPORARY 0275 07322000 * TRACE BUFFER ICB312*/ 07323000 * 2 TCBRSVAB PTR(8), /* RESERVED (ICB497) YM3883*/ 07324000 * 2 TCBRCMP BIT(24), /* MOST RECENT ABEND COMPLETION 07325000 * CODE (INCLUDING VALID 0275 07326000 * RECURSIONS IN STAE) ICB411*/ 07327000 * 2 TCBEVENT PTR(31), /* ADDRESS OF EVENT TABLES QUEUE 07328000 * (MDC304) @X31ED9A*/ 07329000 * 2 TCBRSV49 PTR(31), /* RESERVED */ 07330000 * 2 TCBRV142 PTR(31), /* RESERVED */ 07331000 * 2 TCBRV143 PTR(31), /* RESERVED */ 07332000 * 2 TCBRV144 FIXED(15), /* RESERVED */ 07333000 * 2 TCBRV145 FIXED(15), /* RESERVED */ 07334000 * 2 TCBRV146 BIT(8), /* RESERVED */ 07335000 * 3 TCBRV147 BIT(1), /* RESERVED */ 07336000 * 3 TCBRV148 BIT(1), /* RESERVED */ 07337000 * 3 TCBRV149 BIT(1), /* RESERVED */ 07338000 * 3 TCBRV150 BIT(1), /* RESERVED */ 07339000 * 3 TCBRV151 BIT(1), /* RESERVED */ 07340000 * 3 TCBRV152 BIT(1), /* RESERVED */ 07341000 * 3 TCBRV153 BIT(1), /* RESERVED */ 07342000 * 3 TCBRV154 BIT(1), /* RESERVED */ 07343000 * 2 TCBRV155 BIT(8), /* RESERVED */ 07344000 * 3 TCBRV156 BIT(1), /* RESERVED */ 07345000 * 3 TCBRV157 BIT(1), /* RESERVED */ 07346000 * 3 TCBRV158 BIT(1), /* RESERVED */ 07347000 * 3 TCBRV159 BIT(1), /* RESERVED */ 07348000 * 3 TCBRV160 BIT(1), /* RESERVED */ 07349000 * 3 TCBRV161 BIT(1), /* RESERVED */ 07350000 * 3 TCBRV162 BIT(1), /* RESERVED */ 07351000 * 3 TCBRV163 BIT(1), /* RESERVED */ 07352000 * 2 TCBRV164 BIT(8), /* RESERVED */ 07353000 * 3 TCBRV165 BIT(1), /* RESERVED */ 07354000 * 3 TCBRV166 BIT(1), /* RESERVED */ 07355000 * 3 TCBRV167 BIT(1), /* RESERVED */ 07356000 * 3 TCBRV168 BIT(1), /* RESERVED */ 07357000 * 3 TCBRV169 BIT(1), /* RESERVED */ 07358000 * 3 TCBRV170 BIT(1), /* RESERVED */ 07359000 * 3 TCBRV171 BIT(1), /* RESERVED */ 07360000 * 3 TCBRV172 BIT(1), /* RESERVED */ 07361000 * 2 TCBRV173 BIT(8), /* RESERVED */ 07362000 * 3 TCBRV174 BIT(1), /* RESERVED */ 07363000 * 3 TCBRV175 BIT(1), /* RESERVED */ 07364000 * 3 TCBRV176 BIT(1), /* RESERVED */ 07365000 * 3 TCBRV177 BIT(1), /* RESERVED */ 07366000 * 3 TCBRV178 BIT(1), /* RESERVED */ 07367000 * 3 TCBRV179 BIT(1), /* RESERVED */ 07368000 * 3 TCBRV180 BIT(1), /* RESERVED */ 07369000 * 3 TCBRV181 BIT(1), /* RESERVED */ 07370000 * 2 * CHAR(0) BDY(DWORD); 0275 07371000 * 0275 07372000 * 0275 07373000 * /* END OF TCB */ 07374000 * DECLARE /***** P A R A M E T E R S ***************************/ 07375000 * 0276 07376000 * VOLIBPTR /* VOLUME INFORMATION BLOCK */ 07377000 * POINTER(31), 0276 07378000 * 0276 07379000 * VOLNAME /* VOLUME NAME */ 07380000 * CHAR(8), 0276 07381000 * 0276 07382000 * VOLNTYPE /* VOLUME NAME TYPE (1 = DDNAME) */ 07383000 * /* (0 = CUU) */ 07384000 * FIXED(31), 0276 07385000 * 0276 07386000 * DEVICETY /* DEVICE-TYPE */ 07387000 * CHAR(8), 0276 07388000 * 0276 07389000 * MIMICDEV /* DEVICE BEING MIMICKED */ 07390000 * CHAR(8), 0276 07391000 * 0276 07392000 * CONDCODE /* CONDITION CODE */ 07393000 * FIXED(31); 0276 07394000 * 0276 07395000 * DECLARE /***** I N T E R N A L S *****************************/ 07396000 * 0277 07397000 * MODID /* INTER-MODULE TRACE IDENTIFIER */ 07398000 * CHAR(4) INIT('DV01'), 0277 07399000 * 0277 07400000 * CBPOOLID /* CONTROL BLOCK POOL-ID FOR UGPOOL */ 07401000 * CHAR(4) BASED(ADDR(CBPOOLS)), 0277 07402000 * 0277 07403000 * 1 CBPOOLS, /* CONTROL BLOCK POOL-ID STRUCTURE */ 07404000 * 2 CBPOOLA /* INITIAL CHARACTER : 'D' */ 07405000 * CHAR(1), 0277 07406000 * 2 CBPOOLB /* INCREMENTING UNIQUE CHARACTER */ 07407000 * FIXED(8), 0277 07408000 * 2 CBPOOLC /* SUFFIX: 'PG', FOR PAGE BOUNDARY */ 07409000 * CHAR(2), 0277 07410000 * 0277 07411000 * /***** UPRINT ARGUMENT STRUCTURES *****************************/ 07412000 * 0277 07413000 * 1 PRTSTR BDY(WORD), /* UPRINT ARGUMENT STRUCTURE */ 07414000 * 2 PRTHDR /* DARGLIST SYMBOLIC HEADER */ 07415000 * CHAR(8), 0277 07416000 * 0277 07417000 * 2 PRTARGS /* DARGLIST ARGUMENT STRUCTURE */ 07418000 * CHAR(LENGTH(DARGLIST)), 0277 07419000 * 0277 07420000 * /***** MESSAGE IDENTIFIERS ************************************/ 07421000 * 0277 07422000 * MSGMODZ /* COMMAND CONTROLLER STATIC TEXT */ 07423000 * /* IDENTIFIER */ 07424000 * CHAR(3) CONSTANT('DV0'), 0277 07425000 * 0277 07426000 * MSGMODI0 /* DEVICE ADAPTER STATIC TEXT */ 07427000 * /* IDENTIFIER */ 07428000 * CHAR(3) CONSTANT('IO0'), 0277 07429000 * 0277 07430000 * MSGTERM /* MESSAGE IDENTIFIER */ 07431000 * /* OPERATOR PERMISSION NOT GRANTED */ 07432000 * FIXED (8) CONSTANT (2), 0277 07433000 * 0277 07434000 * MSGUCBA /* MESSAGE IDENTIFIER */ 07435000 * /* UCB ALREADY ALLOCATED */ 07436000 * FIXED (8) CONSTANT (3), 0277 07437000 * 0277 07438000 * MSGINVDV /* MESSAGE IDENTIFIER */ 07439000 * /* INVALID DEVICE TYPE */ 07440000 * FIXED (8) CONSTANT (4), 0277 07441000 * 0277 07442000 * MSGNOJCL /* MESSAGE IDENTIFIER */ 07443000 * /* DD STATEMENT MISSING */ 07444000 * FIXED (8) CONSTANT (5), 0277 07445000 * 0277 07446000 * MSGDEVTY /* MESSAGE IDENTIFIER (STAND-ALONE ONLY)*/ 07447000 * /* DEVICETYPE MISSING OR ERRONEOUS */ 07448000 * FIXED (8) CONSTANT (6), 0277 07449000 * 0277 07450000 * /***** LOCAL VARIABLES ****************************************/ 07451000 * 0277 07452000 * MSS /* MSS STAGING PACKS */ 07453000 * CHAR(8) INIT ('MSS'), 0277 07454000 * 0277 07455000 * LGENDCB /* GENERATED DATA CONTROL BLOCK */ 07456000 * CHAR(96) GENERATED STATIC LOCAL, 0277 07457000 * 0277 07458000 * LGENOPEN /* GENERATED OPEN MACRO LIST */ 07459000 * CHAR(4) GENERATED STATIC LOCAL, 0277 07460000 * 0277 07461000 * OPENLIST /* OPEN MACRO PARAMETER LIST AREA */ 07462000 * CHAR(4) BDY(WORD), 0277 07463000 * 0277 07464000 * LGENENQ /* GENERATED ENQ MACRO LIST */ 07465000 * CHAR(12) GENERATED STATIC LOCAL, 0277 07466000 * 0277 07467000 * GETMGEN /* GENERATED MACRO LIST */ 07468000 * CHAR (10) GENERATED STATIC LOCAL, 0277 07469000 * 0277 07470000 * 1 GETMLIST /* PARAMETER LIST FOR GETMAIN */ 07471000 * CHAR (10) BDY(WORD), 0277 07472000 * 0277 07473000 * 2 GETMSZ /* SIZE OF AREA TO BE OBTAINED */ 07474000 * FIXED (31), 0277 07475000 * 0277 07476000 * 2 GETMPT /* ADDRESS OF AREA OBTAINED */ 07477000 * POINTER (31), 0277 07478000 * 0277 07479000 * 2 GETMFLG /* GETMAIN FLAGS */ 07480000 * CHAR (2), 0277 07481000 * 0277 07482000 * GETMPTR /* TEMPORARY POINTER */ 07483000 * POINTER (31), 0277 07484000 * 0277 07485000 * GETMRC /* RETURN CODE FROM GETMAIN ROUTINE */ 07486000 * FIXED (31), 0277 07487000 * 0277 07488000 * ENQLIST /* ENQ MACRO PARAMETER LIST AREA */ 07489000 * CHAR (8) BDY (WORD), 0277 07490000 * 0277 07491000 * LGENSTAE /* GENERATED ENQ MACRO LIST */ 07492000 * CHAR(4) GENERATED STATIC LOCAL, 0277 07493000 * 0277 07494000 * DEVTYPE /* DEVICE TYPE VARIABLE */ 07495000 * FIXED(8), 0277 07496000 * 0277 07497000 * APPCVT /* POINTER TO APPENDAGE VECTOR TABLE */ 07498000 * /* THAT EXISTS IN THE CVT */ 07499000 * CHAR (20) BASED (CVTXAPG), 0277 07500000 * 0277 07501000 * ABAPPLEN /* WORK AREA FOR COMPUTATION OF */ 07502000 * /* NO OF 2K PAGES FOR ABNORMAL APPENDAGE*/ 07503000 * FIXED (8), 0277 07504000 * 0277 07505000 * 1 DSCB4KEY /* DEFINITION OF DSCB KEY VALUE */ 07506000 * STATIC LOCAL, 0277 07507000 * 2 * (44) CHAR(1) INIT ((44)'04'X), 0277 07508000 * 0277 07509000 * DATAPTR /* DATA POINTER */ 07510000 * POINTER(31), 0277 07511000 * 0277 07512000 * /********** PARAMETERS REQUIRED FOR UDEVOP CALL *************/ 07513000 * 0277 07514000 * TRKCCHH /* TRACK ADDRESS */ 07515000 * FIXED(32), 0277 07516000 * 0277 07517000 * VIBIMAGE /* VOLUME LABEL IMAGE */ 07518000 * CHAR (80) BASED (DATAPTR), 0277 07519000 * 0277 07520000 * RECNUM /* RECORD IDENTIFICATION */ 07521000 * FIXED(31), 0277 07522000 * 0277 07523000 * DATALEN /* DATA LENGTH */ 07524000 * FIXED(31), 0277 07525000 * 0277 07526000 * /*********** CONTROL BLOCK POINTERS ***************************/ 07527000 * 0277 07528000 * ECBPTR /* ECB POINTER (FOR BASED MAPPING) */ 07529000 * POINTER(31), 0277 07530000 * 0277 07531000 * IOBSTPTR /* IOB POINTER (FOR BASED MAPPING) */ 07532000 * POINTER(31), 0277 07533000 * 0277 07534000 * DCBPTR /* DCB POINTER (FOR BASED MAPPING) */ 07535000 * POINTER(31), 0277 07536000 * 0277 07537000 * UCBPTR /* UCB POINTER (FOR BASED MAPPING) */ 07538000 * POINTER(31), 0277 07539000 * 0277 07540000 * TCBPTR /* TCB POINTER (FOR BASED MAPPING) */ 07541000 * POINTER(31), 0277 07542000 * 0277 07543000 * DEBPTR /* DATA EXTENT BLOCK BASE */ 07544000 * POINTER(31), 0277 07545000 * 0277 07546000 * OFDEBPTR /* POINTER TO DEB FOR THE OFF-LINE VOL */ 07547000 * POINTER(31), 0277 07548000 * 0277 07549000 * PREVPTR /* POINTER TO PREVIOUS DEB IN CHAIN */ 07550000 * POINTER(31), 0277 07551000 * 0277 07552000 * DEBDAPTR /* DEB DIRECT ACCESS DEVICE SECTION BASE*/ 07553000 * POINTER(31), 0277 07554000 * 0277 07555000 * CVTPTR /* POINTER TO THE CVT */ 07556000 * POINTER(31) LOCATION (16), 0277 07557000 * 0277 07558000 * ADDRUCB /* POINTER TO ENTRY IN THE UCB LOOKUP */ 07559000 * /* TABLE */ 07560000 * POINTER (31), 0277 07561000 * 0277 07562000 * LOOKUCB /* POINTER TO A UCB AS IT EXISTS IN */ 07563000 * /* UCB LOOKUP TABLE */ 07564000 * FIXED (16) BASED (ADDRUCB), 0277 07565000 * 0277 07566000 * FLAGUCB /* FLAG TO INDICATE IF THE RIGHT UCB */ 07567000 * /* HAS BEEN FOUND. FOUND|NOTFOUND */ 07568000 * BIT (1), 0277 07569000 * 0277 07570000 * ALLOCUCB /* FLAG TO INDICATE IF THE UCB */ 07571000 * /* NO-ALLOCATE FLAG WAS SET HEREIN */ 07572000 * BIT (1), 0277 07573000 * 0277 07574000 * NEXTPTR /* TEMPORARY WORKING POINTER VARIABLE */ 07575000 * POINTER(31), 0277 07576000 * 0277 07577000 * /********** JFCB CONTROL BLOCK DECLARES ***********************/ 07578000 * 0277 07579000 * JOBFAREA /* STORAGE AREA FOR JFCB */ 07580000 * CHAR(176) BDY(WORD), 0277 07581000 * 0277 07582000 * 1 JOBFXLST, /* JFCB EXIT LIST */ 07583000 * 2 JOBFCODE /* JFCB CODE */ 07584000 * BIT(8), 0277 07585000 * 2 JOBFPTR /* JFCB POINTER */ 07586000 * POINTER(24), 0277 07587000 * 0277 07588000 * /***** VARIABLES FOR THE STAE CONTROL BLOCK *******************/ 07589000 * 0277 07590000 * 1 WORKSTA, /* WORK AREA TO BE SET UP WITH */ 07591000 * /* INFORMATION FOR THE RECOVERY ROUTINE */ 07592000 * 0277 07593000 * 2 WORKUCB /* POINTER TO THE UCB */ 07594000 * POINTER (31), 0277 07595000 * 0277 07596000 * 2 WORKDCB /* POINTER TO THE DCB */ 07597000 * POINTER (31), 0277 07598000 * 0277 07599000 * PTRSTAE /* POINTER TO THE CONTROL BLOCK */ 07600000 * POINTER (31), 0277 07601000 * 0277 07602000 * LENSTAE /* LENGTH OF THE STAE CONTROL BLOCK */ 07603000 * FIXED (31), 0277 07604000 * 0277 07605000 * 0277 07606000 * /********** RETURN CODES **************************************/ 07607000 * 0277 07608000 * RCSUCC /* RETURN CODE FOR SUCCESSFUL ACTION */ 07609000 * FIXED(31) CONSTANT (0), 0277 07610000 * 0277 07611000 * RCINVAL /* RETURN CODE FOR INVALID NAME */ 07612000 * FIXED(31) CONSTANT (1), 0277 07613000 * 0277 07614000 * RCNOPEN /* RETURN CODE FOR UNABLE TO OPEN */ 07615000 * FIXED(31) CONSTANT (2), 0277 07616000 * 0277 07617000 * RCCUUONL /* CUU SPECIFIED FOR AN ON-LINE */ 07618000 * /* VOLUME */ 07619000 * FIXED(31) CONSTANT (3), 0277 07620000 * 0277 07621000 * NORECFND /* NO RECORD FOUND FROM UDEVOP */ 07622000 * FIXED (31) CONSTANT (1), 0277 07623000 * 0277 07624000 * 0277 07625000 * CPFAILS /* CHANNEL PROGRAM FAILS (UDEVOP) */ 07626000 * FIXED (31) CONSTANT (4), 0277 07627000 * 0277 07628000 * /***** VARIABLES AND STRUCTURES FOR CALLS TO UDEVINFO *********/ 07629000 * 0277 07630000 * INFOSET /* NUMBER OF INFORMATION ELEMENTS TO BE */ 07631000 * /* OBTAINED FROM DIT */ 07632000 * FIXED (31) CONSTANT (3), 0277 07633000 * 0277 07634000 * I /* LOOP INDEX FOR MULTIPLE CALLS TO */ 07635000 * /* UDEVINFO */ 07636000 * FIXED (31), 0277 07637000 * 0277 07638000 * INFOVECT(INFOSET) /* INFORMATION KEY VECTOR */ 07639000 * FIXED (31) INIT (DEVPTRKS 0277 07640000 * ,DEVATRKS 0277 07641000 * ,DEVLAADD), 0277 07642000 * 0277 07643000 * 1 INFO (INFOSET), 0277 07644000 * 0277 07645000 * 2 INFOPTR /* POINTER TO INFORMATION FROM UDEVINFO */ 07646000 * POINTER (31), 0277 07647000 * 0277 07648000 * 2 INFOLEN /* LENGTH OF INFORMATION */ 07649000 * FIXED (31), 0277 07650000 * 0277 07651000 * 2 CODE /* CONDITION CODE RETURNED BY UDEVINFO */ 07652000 * FIXED (31), 0277 07653000 * 0277 07654000 * TOTALPRI /* TOTAL NUMBER OF PRIMARY TRACKS */ 07655000 * FIXED(31) BASED (INFOPTR (1)), 0277 07656000 * 0277 07657000 * TOTALALT /* TOTAL NUMBER OF ALTERNATE TRACKS */ 07658000 * FIXED(31) BASED (INFOPTR (2)), 0277 07659000 * 0277 07660000 * 1 FINALT /* ADDRESS OF THE LAST ALTERNATE TRACK */ 07661000 * FIXED (32) BASED (INFOPTR (3)), 0277 07662000 * 0277 07663000 * 2 FINALTC /* CYLINDER NUMBER OF LAST ALTERNATE */ 07664000 * FIXED (16), 0277 07665000 * 0277 07666000 * 2 FINALTT /* TRACK NUMBER OF THE LAST ALTERNATE */ 07667000 * FIXED (16), 0277 07668000 * 0277 07669000 * /********** CONSTANTS ***************************************/ 07670000 * 0277 07671000 * CBLEN /* LENGTH OF REQUIRED CONTROL BLOCK */ 07672000 * FIXED(31), 0277 07673000 * 0277 07674000 * RPSPRES /* SENSE DATA - RPS PRESENT */ 07675000 * BIT(1) CONSTANT ('1'B), 0277 07676000 * 0277 07677000 * ONLINE /* FLAG TO INDICATE VOLUME IS ON-LINE */ 07678000 * BIT(1) CONSTANT ('1'B), 0277 07679000 * 0277 07680000 * OFFLINE /* FLAG TO INDICATE VOLUME IS OFF-LINE */ 07681000 * BIT(1) CONSTANT ('0'B), 0277 07682000 * 0277 07683000 * DEV3344 /* SENSE DATA - DEVICE IS A 3344 */ 07684000 * BIT(1) CONSTANT ('1'B), 0277 07685000 * 0277 07686000 * MB35PK /* SENSE DATA - DEVICE HAS A 35MB PACK */ 07687000 * BIT(1) CONSTANT ('1'B), 0277 07688000 * 0277 07689000 * EMULATE /* SENSE DATA - DEVICE EMULATED ON 3350*/ 07690000 * BIT(1) CONSTANT ('1'B), 0277 07691000 * 0277 07692000 * PRIVATE /* VOLUME IS MOUNTED PRIVATE */ 07693000 * BIT(1) CONSTANT ('1'B), 0277 07694000 * 0277 07695000 * NODATCH /* NO DATA CHAINING */ 07696000 * BIT(1) CONSTANT ('0'B), 0277 07697000 * 0277 07698000 * CMDCH /* COMMAND CHAINING */ 07699000 * BIT(1) CONSTANT ('1'B), 0277 07700000 * 0277 07701000 * UNREL /* CCW PGM. UNRELATED TO ANY OTHER PGM.*/ 07702000 * BIT(1) CONSTANT ('1'B), 0277 07703000 * 0277 07704000 * OPENED /* VOLUME OPENED */ 07705000 * BIT(1) CONSTANT ('1'B), 0277 07706000 * 0277 07707000 * CLOSED /* VOLUME CLOSED */ 07708000 * BIT(1) CONSTANT ('0'B), 0277 07709000 * 0277 07710000 * DDNTYPE /* VOLUME NAME-TYPE (VOLNTYPE): DDNAME */ 07711000 * FIXED(31) CONSTANT(1), 0277 07712000 * 0277 07713000 * CUUTYPE /* VOLUME NAME-TYPE (VOLNTYPE): CUU * 07714000 * FIXED(31) CONSTANT(0), 0277 07715000 * 0277 07716000 * RETCODE /* RETURN CODE FROM CALLED PROGRAMS */ 07717000 * FIXED (31), 0277 07718000 * 0277 07719000 * CHANADDR /* CHANNEL ADDRESS */ 07720000 * FIXED (31), 0277 07721000 * 0277 07722000 * UNITADDR /* UNIT ADDRESS */ 07723000 * FIXED (31), 0277 07724000 * 0277 07725000 * DVCEADDR /* DEVICE ADDRESS */ 07726000 * FIXED (31), 0277 07727000 * 0277 07728000 * CONFIELD /* CONVERSION FIELD */ 07729000 * CHAR (8), 0277 07730000 * 0277 07731000 * IECILK1 /* FIRST POINTER INTO UCB LOOKUP TABLE */ 07732000 * FIXED (31), 0277 07733000 * 0277 07734000 * IECILK2 /* SECOND POINTER INTO UCB LOOKUP TABLE */ 07735000 * FIXED (31), 0277 07736000 * 0277 07737000 * ADDRDTCB /* POINTER TO THE TCB DOUBLE WORD */ 07738000 * POINTER (31), 0277 07739000 * 0277 07740000 * 1 DWRDTCB /* TCB DOUBLE WORD POINTED AT BY CVT */ 07741000 * CHAR (8) BDY (DWORD) BASED (ADDRDTCB), 07742000 * 0277 07743000 * 2 * /* NEW TCB */ 07744000 * POINTER (31), 0277 07745000 * 0277 07746000 * 2 CURRTCB /* CURRENT TCB */ 07747000 * POINTER (31), 0277 07748000 * 0277 07749000 * EXTENT /* NUMBER OF EXTENTS IN THE DEB */ 07750000 * FIXED (8) DEFINED (DEBNMEXT), 0277 07751000 * 0277 07752000 * IDENTDEB /* DEB IDENTIFIER */ 07753000 * BIT(8) DEFINED (DEBDEBID), 0277 07754000 * 0277 07755000 * IDENTTCB /* TCB PROTECTION KEY */ 07756000 * BIT (8) DEFINED (TCBPKF), 0277 07757000 * 0277 07758000 * SYSQ /* Q-NAME FOR ENQ, DEQ SYSTEM MACRO */ 07759000 * CHAR(8) CONSTANT ('SYSIEFSD'), 0277 07760000 * 0277 07761000 * Q4 /* R-NAME FOR ENQ, DEQ SYSTEM HEADERS */ 07762000 * CHAR(2) CONSTANT ('Q4'), 0277 07763000 * 0277 07764000 * EXITPTR /* ENTRY POINT ADDRESS OF EXIT ROUTINE */ 07765000 * /* FOR STAE MACRO */ 07766000 * POINTER(31), 0277 07767000 * 0277 07768000 * ENDUCB /* THE END OF THE UCB LOOKUP TABLE */ 07769000 * BIT (16) CONSTANT ('FFFF'X), 0277 07770000 * 0277 07771000 * NOUCB /* THE END OF THE UCB LOOKUP TABLE */ 07772000 * BIT (16) CONSTANT ('0000'X), 0277 07773000 * 0277 07774000 * FOUND /* FLAG TO INDICATE THE UCB WAS FOUND */ 07775000 * BIT (1) CONSTANT ('1'B), 0277 07776000 * 0277 07777000 * NOTFOUND /* FLAG TO INDICATE THE UCB WAS FOUND */ 07778000 * BIT (1) CONSTANT ('0'B), 0277 07779000 * 0277 07780000 * /***** PARAMETERS FOR THE WRITE TO OPERATOR WITH REPLY ********/ 07781000 * 0277 07782000 * PERMITM /* MESSAGE TO OBTAIN PERMISSION TO */ 07783000 * /* PROCESS AN OFF-LINE VOLUME */ 07784000 * /* AFTER VOLUME MADE READY */ 07785000 * CHAR (52) 0277 07786000 * CONSTANT('ICK004D READY OFFLINE DEVICE XXX AND REPLY U, ELSE T'), 07787000 * 0277 07788000 * PERMILEN /* LENGTH OF THE MESSAGE */ 07789000 * FIXED (15) INIT (LENGTH (PERMITM)), 0277 07790000 * 0277 07791000 * 1 PERMIT, /* DYNAMIC STORAGE COPY OF ABOVE MESSAGE*/ 07792000 * 2 PERMITA /* FIRST PART */ 07793000 * CHAR(29), 0277 07794000 * 2 PERMITB /* DEVICE ADDRESS FROM VOLIB */ 07795000 * CHAR(3), 0277 07796000 * 2 PERMITC /* LAST PART */ 07797000 * CHAR(20), 0277 07798000 * 0277 07799000 * REPLY /* REPLY FROM THE OPERATOR */ 07800000 * CHAR (1), 0277 07801000 * 0277 07802000 * REPLYLEN /* REPLY FROM THE OPERATOR (LENGTH) */ 07803000 * FIXED (8) INIT(LENGTH(REPLY)), 0277 07804000 * 0277 07805000 * NOROUT /* ROUTING CODE */ 07806000 * FIXED(16) STATIC LOCAL INIT(0), 0277 07807000 * 0277 07808000 * NODESC /* DESCRIPTION CODE */ 07809000 * FIXED(16) STATIC LOCAL INIT(0), 0277 07810000 * 0277 07811000 * /***** PATCH AREA DECLARATION *********************************/ 07812000 * 0277 07813000 * 1 PTCHDV01 STATIC, /* MODULE PATCH AREA */ 07814000 * 2 * (256) CHAR(1) INIT((256) '00'X); 0277 07815000 * 0277 07816000 EJECT 07817000 * 0278 07818000 */***** B E G I N E X E C U T I O N *****************************/ 07819000 * 0278 07820000 * IF GDTDBG = NULLPTR 0278 07821000 * THEN; 0278 07822000 L @15,@PC00001 0278 07823000 L @15,GDTDBG(,@15) 0278 07824000 LTR @15,@15 0278 07825000 BZ @RT00278 0278 07826000 * ELSE 0280 07827000 * CALL ICKDB010 (GDTTBL, 'DV01'); 0280 07828000 * 0280 07829000 * 0280 07830000 L @15,@PC00001 0280 07831000 ST @15,@AL00001 0280 07832000 LA @14,@CC03140 0280 07833000 ST @14,@AL00001+4 0280 07834000 MVI @AL00001+4,X'80' 0280 07835000 L @15,GDTDBG(,@15) 0280 07836000 LA @01,@AL00001 0280 07837000 BALR @14,@15 0280 07838000 */* ESTABLISH UPRINT ARGUMENT LIST */ 07839000 * PRTHDR = 'DARGLIST'; 0281 07840000 @RT00278 MVC PRTHDR(8),@CC03276 0281 07841000 * PRTARGS = ''B; 0282 07842000 XC PRTARGS(20),PRTARGS 0282 07843000 * DDSTRU = ADDR(PRTARGS); 0283 07844000 LA @15,PRTARGS 0283 07845000 ST @15,DDSTRU 0283 07846000 * DARGSMOD = MSGMODZ; 0284 07847000 MVC DARGSMOD(3,@15),@CC03150 0284 07848000 */* INITIALIZE RETURN CODE TO SUCCESSFUL */ 07849000 * CONDCODE = RCSUCC; 0285 07850000 SLR @15,@15 0285 07851000 L @14,@PC00001+24 0285 07852000 ST @15,CONDCODE(,@14) 0285 07853000 * ALLOCUCB = NO; 0286 07854000 NI ALLOCUCB,B'01111111' 0286 07855000 */* GET SPACE FOR CONTROL BLOCKS ON A PAGE BOUNDARY */ 07856000 * CBPOOLA = 'D'; 0287 07857000 MVI CBPOOLA,C'D' 0287 07858000 * CBPOOLC = 'PG'; 0288 07859000 MVC CBPOOLC(2),@CC03279 0288 07860000 * IF GDTDVH = NULLPTR 0289 07861000 * THEN DO; 0289 07862000 L @14,@PC00001 0289 07863000 C @15,GDTDVH(,@14) 0289 07864000 BNE @RF00289 0289 07865000 * CBPOOLB = 1; 0291 07866000 MVI CBPOOLB,X'01' 0291 07867000 * END; 0292 07868000 * ELSE DO; 0293 07869000 B @RC00289 0293 07870000 @RF00289 DS 0H 0294 07871000 * CBPOOLB = GDTDVH -> VLNUMBER + 1; 0294 07872000 L @15,@PC00001 0294 07873000 L @01,GDTDVH(,@15) 0294 07874000 IC @15,VLNUMBER(,@01) 0294 07875000 LA @15,1(,@15) 0294 07876000 STC @15,CBPOOLB 0294 07877000 * END; 0295 07878000 * CBLEN = LENGTH (CNTBLKS); 0296 07879000 @RC00289 MVC CBLEN(4),@CF03333 0296 07880000 * CALL ICKSAGP0 (GDTTBL 0297 07881000 * ,CBLEN 0297 07882000 * ,VOLIBPTR 0297 07883000 * ,CBPOOLID 0297 07884000 * ,SETZERO); 0297 07885000 L @04,@PC00001 0297 07886000 ST @04,@AL00001 0297 07887000 LA @15,CBLEN 0297 07888000 ST @15,@AL00001+4 0297 07889000 L @15,@PC00001+20 0297 07890000 ST @15,@AL00001+8 0297 07891000 LA @15,CBPOOLS 0297 07892000 ST @15,@AL00001+12 0297 07893000 LA @15,@CC00154 0297 07894000 ST @15,@AL00001+16 0297 07895000 MVI @AL00001+16,X'80' 0297 07896000 L @15,GDTGPL(,@04) 0297 07897000 LA @01,@AL00001 0297 07898000 BALR @14,@15 0297 07899000 */* IF UNABLE TO OBTAIN SPACE */ 07900000 * RESPECIFY RTNREG RSTD; 0298 07901000 * TESTRC = RTNREG; 0299 07902000 LR TESTRC,RTNREG 0299 07903000 * RESPECIFY RTNREG UNRSTD; 0300 07904000 * IF TESTRC = 4 0301 07905000 */* THEN ABORT */ 07906000 * THEN DO; 0301 07907000 CH TESTRC,@CH00053 0301 07908000 BNE @RF00301 0301 07909000 * DO; 0303 07910000 * RESPECIFY(REG13,REG14,REG15) RSTD; 0304 07911000 * REG15 = 28; 0305 07912000 LA REG15,28 0305 07913000 * REG14 = GDTABT; 0306 07914000 L @09,@PC00001 0306 07915000 L REG14,GDTABT(,@09) 0306 07916000 * REG13 = GDTABH; 0307 07917000 L REG13,GDTABH(,@09) 0307 07918000 * GEN(BR REG14); 0308 07919000 BR REG14 07920000 * RESPECIFY(REG13,REG14,REG15)UNRSTD; 0309 07921000 * END; END; 0310 07922000 * 0310 07923000 EJECT 07924000 */* ESTABLISH ADDRESSABILITY FOR DCB */ 07925000 * DCBPTR = ADDR (CBDCB); 0312 07926000 @RF00301 L @15,@PC00001+20 0312 07927000 L @15,VOLIBPTR(,@15) 0312 07928000 LA DCBPTR,CBDCB(,@15) 0312 07929000 */* MOVE DCB TO CONTROL BLOCK AREA */ 07930000 * CBDCB = LGENDCB; 0313 07931000 MVC CBDCB(96,@15),LGENDCB 0313 07932000 */* PRESERVE THE VOLIB ALLOCATION-SEQUENCE NUMBER FOR POOL-ID */ 07933000 * VLNUMBER = CBPOOLB; 0314 07934000 MVC VLNUMBER(1,@15),CBPOOLB 0314 07935000 */* PLACE THE VOLUME NAME (CUU OR DD-NAME) IN THE VOLIB */ 07936000 * VLDNMCUU = VOLNAME; 0315 07937000 L @06,@PC00001+4 0315 07938000 MVC VLDNMCUU(8,@15),VOLNAME(@06) 0315 07939000 */* IF CUU IS SPECIFIED */ 07940000 * IF VOLNTYPE = CUUTYPE 0316 07941000 */* THEN PERFORM OFFLINE-VOLUME INITIALIZATION */ 07942000 * THEN OFFLN1: DO; 0316 07943000 L @06,@PC00001+8 0316 07944000 L @06,VOLNTYPE(,@06) 0316 07945000 LTR @06,@06 0316 07946000 BNZ @RF00316 0316 07947000 OFFLN1 DS 0H 0318 07948000 */* INDICATE IN THE VOLIB THAT VOLUME IS IDENTIFIED BY CUU */ 07949000 * VLNTYP = OFFLINE; 0318 07950000 L @06,@PC00001+20 0318 07951000 L @06,VOLIBPTR(,@06) 0318 07952000 NI VLNTYP(@06),B'01111111' 0318 07953000 */* OBTAIN THE UCB POINTER OR INDICATE UNIT-ADDRESS IS INVALID */ 07954000 * FLAGUCB = NOTFOUND; 0319 07955000 NI FLAGUCB,B'01111111' 0319 07956000 * ADDRUCB = CVTPTR -> CVTILK2; 0320 07957000 L @06,CVTPTR 0320 07958000 L ADDRUCB,CVTILK2(,@06) 0320 07959000 * DO WHILE LOOKUCB ^= ENDUCB & FLAGUCB = NOTFOUND; 0321 07960000 B @DE00321 0321 07961000 @DL00321 DS 0H 0322 07962000 * IF LOOKUCB ^= NOUCB 0322 07963000 * THEN DO; 0322 07964000 MVC @ZT00002+2(2),LOOKUCB(ADDRUCB) 0322 07965000 L @06,@ZT00002 0322 07966000 LTR @06,@06 0322 07967000 BZ @RF00322 0322 07968000 * UCBPTR = LOOKUCB; 0324 07969000 ST @06,UCBPTR 0324 07970000 * IF UCBNAME = VOLNAME (1:3) 0325 07971000 * THEN DO; FLAGUCB = FOUND; END; 0325 07972000 L @04,@PC00001+4 0325 07973000 CLC UCBNAME(3,@06),VOLNAME(@04) 0325 07974000 BNE @RF00325 0325 07975000 OI FLAGUCB,B'10000000' 0327 07976000 * END; 0329 07977000 @RF00325 DS 0H 0330 07978000 * ADDRUCB = ADDRUCB + 2; 0330 07979000 @RF00322 AH ADDRUCB,@CH00125 0330 07980000 * END; 0331 07981000 @DE00321 CLC LOOKUCB(2,ADDRUCB),@CH03254 0331 07982000 BE @DC00321 0331 07983000 TM FLAGUCB,B'10000000' 0331 07984000 BZ @DL00321 0331 07985000 @DC00321 DS 0H 0332 07986000 * IF FLAGUCB = NOTFOUND 0332 07987000 * THEN DO; CONDCODE = RCINVAL; END; 0332 07988000 TM FLAGUCB,B'10000000' 0332 07989000 BNZ @RF00332 0332 07990000 L @06,@PC00001+24 0334 07991000 MVC CONDCODE(4,@06),@CF00174 0334 07992000 */* IF NO ERRORS FOUND SO FAR */ 07993000 * IF CONDCODE = RCSUCC 0336 07994000 */* THEN */ 07995000 * THEN OFFLN11: DO; 0336 07996000 @RF00332 L @06,@PC00001+24 0336 07997000 L @06,CONDCODE(,@06) 0336 07998000 LTR @06,@06 0336 07999000 BNZ @RF00336 0336 08000000 OFFLN11 DS 0H 0338 08001000 */* IF VOLUME IS MOUNTED ON-LINE */ 08002000 * IF UCBONLI = ON 0338 08003000 */* THEN INDICATE ERROR DUE TO ON-LINE MOUNTING */ 08004000 * THEN DO; CONDCODE = RCCUUONL; END; 0338 08005000 L @06,UCBPTR 0338 08006000 TM UCBONLI(@06),B'10000000' 0338 08007000 BNO @RF00338 0338 08008000 L @06,@PC00001+24 0340 08009000 MVC CONDCODE(4,@06),@CF00145 0340 08010000 */* ELSE VOLUME IS PROPERLY MOUNTED OFF-LINE */ 08011000 * ELSE OFFLN12: DO; 0342 08012000 B @RC00338 0342 08013000 @RF00338 DS 0H 0342 08014000 OFFLN12 DS 0H 0343 08015000 */* INDICATE OFF-LINE MOUNTING IN THE VOLIB */ 08016000 * VLSTATE = OFFLINE; 0343 08017000 L @06,@PC00001+20 0343 08018000 L @06,VOLIBPTR(,@06) 0343 08019000 NI VLSTATE(@06),B'01111111' 0343 08020000 */* IF THE DEVICE IS NOT READY */ 08021000 * IF UCBNOTRD = ON 0344 08022000 */* THEN REQUEST OPERATOR TO READY THE DEVICE */ 08023000 * THEN DO; 0344 08024000 L @06,UCBPTR 0344 08025000 TM UCBNOTRD(@06),B'01000000' 0344 08026000 BNO @RF00344 0344 08027000 * REPLY = ' '; 0346 08028000 MVI REPLY,C' ' 0346 08029000 */* DO-WHILE PROPER REPLY IS NOT OBTAINED */ 08030000 * OFFREQ: DO WHILE((REPLY ^= 'T') & (REPLY ^= 'U')| 0347 08031000 * (REPLY = 'U' & UCBNOTRD = ON) ); 0347 08032000 * 0347 08033000 OFFREQ B @DE00347 0347 08034000 @DL00347 DS 0H 0348 08035000 */* ISSUE MESSAGE TO READY DEVICE (UWTO) */ 08036000 * PERMIT = PERMITM; 0348 08037000 MVC PERMIT(52),@CC03260 0348 08038000 * PERMITB = VOLNAME; 0349 08039000 L @06,@PC00001+4 0349 08040000 MVC PERMITB(3),VOLNAME(@06) 0349 08041000 * CALL ICKSAWO0 (GDTTBL 0350 08042000 * ,PERMILEN 0350 08043000 * ,ADDR (PERMIT) 0350 08044000 * ,NOROUT 0350 08045000 * ,NODESC 0350 08046000 * ,REPLYLEN 0350 08047000 * ,ADDR (REPLY)); 0350 08048000 MVC @AL00001+4(20),@AL00350 0350 08049000 L @06,@PC00001 0350 08050000 ST @06,@AL00001 0350 08051000 LA @15,PERMIT 0350 08052000 ST @15,@AFTEMPS 0350 08053000 LA @15,@AFTEMPS 0350 08054000 ST @15,@AL00001+8 0350 08055000 LA @15,REPLY 0350 08056000 ST @15,@AFTEMPS+4 0350 08057000 LA @15,@AFTEMPS+4 0350 08058000 ST @15,@AL00001+24 0350 08059000 MVI @AL00001+24,X'80' 0350 08060000 L @15,GDTWTO(,@06) 0350 08061000 LA @01,@AL00001 0350 08062000 BALR @14,@15 0350 08063000 */* IF OPERATOR REQUESTS TERMINATION */ 08064000 * IF REPLY = 'T' 0351 08065000 */* THEN TERMINATE FORTHWITH */ 08066000 * THEN DO; 0351 08067000 CLI REPLY,C'T' 0351 08068000 BNE @RF00351 0351 08069000 */* ISSUE MESSAGE ABOUT TERMINATION */ 08070000 */* (MSGTERM) (UPRINT) */ 08071000 * DARGSENT = MSGTERM; 0353 08072000 L @06,DDSTRU 0353 08073000 MVI DARGSENT(@06),X'02' 0353 08074000 * CALL ICKTPPR0 (GDTTBL 0354 08075000 * ,PRTFILE 0354 08076000 * ,DDSTRU); 0354 08077000 L @06,@PC00001 0354 08078000 ST @06,@AL00001 0354 08079000 LA @15,@CF00103 0354 08080000 ST @15,@AL00001+4 0354 08081000 LA @15,DDSTRU 0354 08082000 ST @15,@AL00001+8 0354 08083000 MVI @AL00001+8,X'80' 0354 08084000 L @15,GDTPRT(,@06) 0354 08085000 LA @01,@AL00001 0354 08086000 BALR @14,@15 0354 08087000 */* INDICATE UNSUCCESSFUL COMPLETION */ 08088000 * CONDCODE = RCNOPEN; 0355 08089000 L @06,@PC00001+24 0355 08090000 MVC CONDCODE(4,@06),@CF00125 0355 08091000 */* END-THEN */ 08092000 * END; 0356 08093000 */* END-WHILE */ 08094000 * END OFFREQ; 0357 08095000 @RF00351 DS 0H 0357 08096000 @DE00347 CLI REPLY,C'T' 0357 08097000 BE @GL00002 0357 08098000 CLI REPLY,C'U' 0357 08099000 BNE @DL00347 0357 08100000 @GL00002 CLI REPLY,C'U' 0357 08101000 BNE @DC00347 0357 08102000 L @06,UCBPTR 0357 08103000 TM UCBNOTRD(@06),B'01000000' 0357 08104000 BO @DL00347 0357 08105000 @DC00347 DS 0H 0358 08106000 */* END-THEN (VOLUME IS NOT READY) */ 08107000 * END; 0358 08108000 */* IF NO ERRORS FOUND SO FAR */ 08109000 * IF CONDCODE = RCSUCC 0359 08110000 */* THEN */ 08111000 * THEN DO; 0359 08112000 @RF00344 L @06,@PC00001+24 0359 08113000 L @06,CONDCODE(,@06) 0359 08114000 LTR @06,@06 0359 08115000 BNZ @RF00359 0359 08116000 */* ENQUEUE THE UCB TO SET THE NO-ALLOCATE BIT */ 08117000 * ENQLIST = LGENENQ; 0361 08118000 MVC ENQLIST(8),LGENENQ 0361 08119000 * RESPECIFY (REG2,REG3) RSTD; 0362 08120000 * REG2 = ADDR (SYSQ); 0363 08121000 LA REG2,@CC03249 0363 08122000 * REG3 = ADDR (Q4); 0364 08123000 LA REG3,@CC03251 0364 08124000 * GEN CODE REFS(ENQLIST); 0365 08125000 LENQ ENQ ((REG2),(REG3),E,2,SYSTEM),RET=USE,MF=(E,ENQLIST) 08126000 */* IF THE NO-ALLOCATE IS NOT SET */ 08127000 * IF UCBNALOC = OFF 0366 08128000 */* THEN SET THE NO-ALLOCATE BIT IN THE UCB ON */ 08129000 * THEN DO; 0366 08130000 L @06,UCBPTR 0366 08131000 TM UCBNALOC(@06),B'00000100' 0366 08132000 BNZ @RF00366 0366 08133000 */* ENTER SUP. STATE TO MODIFY UCB FIELD */ 08134000 * GEN (MODESET KEY=ZERO,MODE=SUP); 0368 08135000 MODESET KEY=ZERO,MODE=SUP 08136000 * UCBNALOC = ON; 0369 08137000 L @06,UCBPTR 0369 08138000 OI UCBNALOC(@06),B'00000100' 0369 08139000 */* RETURN TO PROBLEM PROGRAM STATE */ 08140000 * GEN (MODESET KEY=NZERO,MODE=PROB); 0370 08141000 MODESET KEY=NZERO,MODE=PROB 08142000 * ALLOCUCB = YES; 0371 08143000 OI ALLOCUCB,B'10000000' 0371 08144000 * END; 0372 08145000 */* ELSE INDICATE THAT OPEN FAILS */ 08146000 * ELSE DO; 0373 08147000 B @RC00366 0373 08148000 @RF00366 DS 0H 0374 08149000 * DARGSENT = MSGUCBA; 0374 08150000 L @06,DDSTRU 0374 08151000 MVI DARGSENT(@06),X'03' 0374 08152000 * CALL ICKTPPR0 (GDTTBL 0375 08153000 * ,PRTFILE 0375 08154000 * ,DDSTRU); 0375 08155000 L @06,@PC00001 0375 08156000 ST @06,@AL00001 0375 08157000 LA @15,@CF00103 0375 08158000 ST @15,@AL00001+4 0375 08159000 LA @15,DDSTRU 0375 08160000 ST @15,@AL00001+8 0375 08161000 MVI @AL00001+8,X'80' 0375 08162000 L @15,GDTPRT(,@06) 0375 08163000 LA @01,@AL00001 0375 08164000 BALR @14,@15 0375 08165000 * CONDCODE = RCNOPEN; 0376 08166000 L @06,@PC00001+24 0376 08167000 MVC CONDCODE(4,@06),@CF00125 0376 08168000 * END; 0377 08169000 */* DEQUEUE THE UCB */ 08170000 * GEN CODE REFS(ENQLIST); 0378 08171000 @RC00366 DS 0H 0378 08172000 LDEQ DEQ ((REG2),(REG3),2,SYSTEM),RET=HAVE,MF=(E,ENQLIST) 08173000 */* END-THEN */ 08174000 * END; 0379 08175000 */* END-ELSE (VOLUME IS PROPERLY MOUNTED OFF-LINE) */ 08176000 * END OFFLN12; 0380 08177000 @RF00359 DS 0H 0381 08178000 */* IF NO ERRORS THUS FAR */ 08179000 * IF CONDCODE = RCSUCC 0381 08180000 */* THEN ESTABLISH A 'STAE' BLOCK TO ENSURE THAT THE */ 08181000 */* 'NO-ALLOCATE' FLAG IN THE UCB IS CLEARED UPON */ 08182000 */* ABNORMAL TERMINATION */ 08183000 * THEN DO; 0381 08184000 @RC00338 L @06,@PC00001+24 0381 08185000 L @06,CONDCODE(,@06) 0381 08186000 LTR @06,@06 0381 08187000 BNZ @RF00381 0381 08188000 * RESPECIFY (REG2,REG3) UNRSTD; 0383 08189000 */* COMPUTE THE LENGTH OF THE STAE CONTROL BLOCK */ 08190000 * LENSTAE = LENGTH (STAEPFX) + LENGTH (WORKSTA); 0384 08191000 MVC LENSTAE(4),@CF00518 0384 08192000 */* OBTAIN STORAGE FOR THE STAE CONTROL BLOCK */ 08193000 * CALL ICKSAGP0 (GDTTBL 0385 08194000 * ,LENSTAE 0385 08195000 * ,PTRSTAE 0385 08196000 * ,'DV01' 0385 08197000 * ,SETZERO); 0385 08198000 L @06,@PC00001 0385 08199000 ST @06,@AL00001 0385 08200000 LA @15,LENSTAE 0385 08201000 ST @15,@AL00001+4 0385 08202000 LA @15,PTRSTAE 0385 08203000 ST @15,@AL00001+8 0385 08204000 LA @15,@CC03140 0385 08205000 ST @15,@AL00001+12 0385 08206000 LA @15,@CC00154 0385 08207000 ST @15,@AL00001+16 0385 08208000 MVI @AL00001+16,X'80' 0385 08209000 L @15,GDTGPL(,@06) 0385 08210000 LA @01,@AL00001 0385 08211000 BALR @14,@15 0385 08212000 */* ESTABLISH ADDRESSABILITY TO MAPPING MACRO */ 08213000 * RFY STAEPARM BASED (PTRSTAE); 0386 08214000 */* PLACE THE LENGTH OF BLOCK IN THE BLOCK */ 08215000 * STALEN = LENSTAE; 0387 08216000 L @06,PTRSTAE 0387 08217000 MVC STALEN(4,@06),LENSTAE 0387 08218000 */* PLACE IDENTIFIER IN THE BLOCK */ 08219000 * STAID = VOLIBPTR; 0388 08220000 L @15,@PC00001+20 0388 08221000 MVC STAID(4,@06),VOLIBPTR(@15) 0388 08222000 */* PLACE ENTRY POINT ADDRESS IN THE BLOCK */ 08223000 * STAEPA = ADDR (RSTVOL); 0389 08224000 L @15,@CA03292 0389 08225000 ST @15,STAEPA(,@06) 0389 08226000 */* PLACE THE INFORMATION NECESSARY TO RESETVOL IN THE */ 08227000 */* WORK AREA */ 08228000 * WORKUCB = UCBPTR; 0390 08229000 MVC WORKUCB(4),UCBPTR 0390 08230000 * WORKDCB = DCBPTR; 0391 08231000 ST DCBPTR,WORKDCB 0391 08232000 * STAEWORK(1:LENGTH(WORKSTA)) = WORKSTA; 0392 08233000 MVC STAEWORK(8,@06),WORKSTA 0392 08234000 */* ISSUE THE STAE MACRO */ 08235000 * CALL ICKSAST0 (GDTTBL 0393 08236000 * ,'SET' 0393 08237000 * ,PTRSTAE); 0393 08238000 L @06,@PC00001 0393 08239000 ST @06,@AL00001 0393 08240000 LA @15,@CC03293 0393 08241000 ST @15,@AL00001+4 0393 08242000 LA @15,PTRSTAE 0393 08243000 ST @15,@AL00001+8 0393 08244000 L @15,GDTSTE(,@06) 0393 08245000 LA @01,@AL00001 0393 08246000 BALR @14,@15 0393 08247000 */* END-THEN */ 08248000 * END; 0394 08249000 */* END-THEN */ 08250000 * END OFFLN11; 0395 08251000 */* END-THEN (UNIT ADDRESS SPECIFIED) */ 08252000 * END OFFLN1; 0396 08253000 */* ELSE DD-NAME SPECIFIED: PERFORM ON-LINE VOLUME INITIALIZATION */ 08254000 * ELSE ONLN1: DO; 0397 08255000 B @RC00316 0397 08256000 @RF00316 DS 0H 0397 08257000 ONLN1 DS 0H 0398 08258000 */* PLACE DD-NAME IN THE DCB */ 08259000 * DCBDDNAM = VOLNAME; 0398 08260000 L @06,@PC00001+4 0398 08261000 MVC DCBDDNAM+40(8,DCBPTR),VOLNAME(@06) 0398 08262000 */* INDICATE IN THE VOLIB THAT VOLUME IDENTIFIED BY DD-NAME */ 08263000 * VLNTYP = ONLINE; 0399 08264000 L @06,@PC00001+20 0399 08265000 L @06,VOLIBPTR(,@06) 0399 08266000 OI VLNTYP(@06),B'10000000' 0399 08267000 */* INDICATE IN THE VOLIB THAT VOLUME IS ON-LINE */ 08268000 * VLSTATE = ONLINE; 0400 08269000 OI VLSTATE(@06),B'10000000' 0400 08270000 */* END-ELSE */ 08271000 * END ONLN1; 0401 08272000 * 0401 08273000 EJECT 08274000 */* IF NO ERRORS HAVE BEEN FOUND */ 08275000 * IF CONDCODE = RCSUCC 0402 08276000 */* THEN PERFORM OPENING OPERATIONS */ 08277000 * THEN CONT1: DO; 0402 08278000 @RC00316 L @06,@PC00001+24 0402 08279000 L @06,CONDCODE(,@06) 0402 08280000 LTR @06,@06 0402 08281000 BNZ @RF00402 0402 08282000 CONT1 DS 0H 0404 08283000 */* IF VOLUME IS ON-LINE */ 08284000 * IF VLSTATE = ONLINE 0404 08285000 */* THEN */ 08286000 * THEN ONLN2: DO; 0404 08287000 L @06,@PC00001+20 0404 08288000 L @06,VOLIBPTR(,@06) 0404 08289000 TM VLSTATE(@06),B'10000000' 0404 08290000 BNO @RF00404 0404 08291000 ONLN2 DS 0H 0406 08292000 */* SET UP FOR JFCB CONTROL BLOCK USAGE VIA DCB */ 08293000 * JFCBPTR = ADDR (JOBFAREA); 0406 08294000 LA JFCBPTR,JOBFAREA 0406 08295000 * JOBFCODE = '87'X; 0407 08296000 MVI JOBFCODE,X'87' 0407 08297000 * JOBFPTR = JFCBPTR; 0408 08298000 ST JFCBPTR,@TF00001 0408 08299000 MVC JOBFPTR(3),@TF00001+1 0408 08300000 * DCBEXLST = ADDR (JOBFXLST); 0409 08301000 LA @06,JOBFXLST 0409 08302000 ST @06,DCBEXLST+28(,DCBPTR) 0409 08303000 */* ISSUE READ JFCB MACRO */ 08304000 *LRDJFCB1: 0410 08305000 * OPENLIST = LGENOPEN; 0410 08306000 LRDJFCB1 MVC OPENLIST(4),LGENOPEN 0410 08307000 * RESPECIFY (REG2) RSTD; 0411 08308000 * REG2 = ADDR(CBDCB); 0412 08309000 L @06,@PC00001+20 0412 08310000 L REG2,VOLIBPTR(,@06) 0412 08311000 LA REG2,CBDCB(,REG2) 0412 08312000 * GEN CODE REFS(OPENLIST); 0413 08313000 RDJFCB ((2)),MF=(E,OPENLIST) 08314000 */* PUT DSCB4 KEY INTO JFCB IDENTIFYING VTOC */ 08315000 * JFCBDSNM = DSCB4KEY; 0414 08316000 MVC JFCBDSNM(44,JFCBPTR),DSCB4KEY 0414 08317000 * JFCNWRIT = ON; 0415 08318000 OI JFCNWRIT(JFCBPTR),B'00001000' 0415 08319000 */* OPEN THE VOLUME */ 08320000 *LOPEN1: 0416 08321000 * GEN CODE REFS(OPENLIST); 0416 08322000 LOPEN1 DS 0H 0416 08323000 OPEN ((2)),MF=(E,OPENLIST),TYPE=J 08324000 * RESPECIFY (REG2) UNRSTD; 0417 08325000 */* IF OPEN WAS UNSUCCESSFUL */ 08326000 * IF DCBOFOPN ^= YES 0418 08327000 */* THEN INDICATE UNSUCCESSFUL COMPLETION */ 08328000 * THEN DO; 0418 08329000 TM DCBOFOPN+40(DCBPTR),B'00010000' 0418 08330000 BO @RF00418 0418 08331000 * DARGSMOD = MSGMODI0; 0420 08332000 L @06,DDSTRU 0420 08333000 MVC DARGSMOD(3,@06),@CC03152 0420 08334000 * DARGSENT = MSGNOJCL; 0421 08335000 MVI DARGSENT(@06),X'05' 0421 08336000 * CALL ICKTPPR0 (GDTTBL 0422 08337000 * ,PRTFILE 0422 08338000 * ,DDSTRU); 0422 08339000 L @06,@PC00001 0422 08340000 ST @06,@AL00001 0422 08341000 LA @15,@CF00103 0422 08342000 ST @15,@AL00001+4 0422 08343000 LA @15,DDSTRU 0422 08344000 ST @15,@AL00001+8 0422 08345000 MVI @AL00001+8,X'80' 0422 08346000 L @15,GDTPRT(,@06) 0422 08347000 LA @01,@AL00001 0422 08348000 BALR @14,@15 0422 08349000 * CONDCODE = RCNOPEN; 0423 08350000 L @06,@PC00001+24 0423 08351000 MVC CONDCODE(4,@06),@CF00125 0423 08352000 * END; 0424 08353000 */* END-THEN */ 08354000 * END ONLN2; 0425 08355000 */* ELSE VOLUME IS OFF-LINE */ 08356000 * ELSE OFFLN2: DO; 0426 08357000 B @RC00404 0426 08358000 @RF00404 DS 0H 0426 08359000 OFFLN2 DS 0H 0427 08360000 */* GET INTO SUPERVISOR STATE VIA MODESET MACRO */ 08361000 * GEN (MODESET KEY=ZERO,MODE=SUP); 0427 08362000 MODESET KEY=ZERO,MODE=SUP 08363000 */* OBTAIN STORAGE FOR DEB */ 08364000 * GETMLIST = GETMGEN; 0428 08365000 MVC GETMLIST(10),GETMGEN 0428 08366000 * GETMSZ = LENGTH (DEBBASIC) + LENGTH(DEBDASD) + 0429 08367000 * LENGTH(DEB); 0429 08368000 MVC GETMSZ(4),@CF03336 0429 08369000 * GETMPT = ADDR(GETMPTR); 0430 08370000 LA @06,GETMPTR 0430 08371000 ST @06,GETMPT 0430 08372000 * GEN (LA REG1,GETMLIST); 0431 08373000 LA REG1,GETMLIST 08374000 * GEN (SVC 4); 0432 08375000 SVC 4 08376000 * RESPECIFY (REG2,REG15) RSTD; 0433 08377000 * REG2 = GETMPTR; 0434 08378000 L REG2,GETMPTR 0434 08379000 * GETMRC = REG15; 0435 08380000 LR GETMRC,REG15 0435 08381000 * RESPECIFY (REG15) UNRSTD; 0436 08382000 */* IF UNABLE TO OBTAIN STORAGE */ 08383000 * IF GETMRC ^= 0 0437 08384000 */* THEN ABORT (28) */ 08385000 * THEN DO; 0437 08386000 LTR GETMRC,GETMRC 0437 08387000 BZ @RF00437 0437 08388000 * GEN (MODESET KEY=NZERO); 0439 08389000 * 0439 08390000 MODESET KEY=NZERO 08391000 * DO; 0440 08392000 * RESPECIFY(REG13,REG14,REG15) RSTD; 0441 08393000 * REG15 = 28; 0442 08394000 LA REG15,28 0442 08395000 * REG14 = GDTABT; 0443 08396000 L @06,@PC00001 0443 08397000 L REG14,GDTABT(,@06) 0443 08398000 * REG13 = GDTABH; 0444 08399000 L REG13,GDTABH(,@06) 0444 08400000 * GEN(BR REG14); 0445 08401000 BR REG14 08402000 * RESPECIFY(REG13,REG14,REG15)UNRSTD; 0446 08403000 * END; 0447 08404000 * END; 0448 08405000 */* ESTABLISH ADDRESSABILITY TO THE DEB */ 08406000 * DEBPTR = REG2 + LENGTH (DEB); 0449 08407000 @RF00437 LA DEBPTR,36 0449 08408000 ALR DEBPTR,REG2 0449 08409000 * DEBAPPAD = REG2; 0450 08410000 ST REG2,DEBAPPAD(,DEBPTR) 0450 08411000 * DEBDAPTR = DEBPTR + LENGTH (DEBBASIC); 0451 08412000 LA DEBDAPTR,32 0451 08413000 ALR DEBDAPTR,DEBPTR 0451 08414000 */* ZERO OUT THE DEB AREA */ 08415000 * DEB = ''B; DEBBASIC = ''B; DEBDASD = ''B; 0452 08416000 L @04,DEBAPPAD(,DEBPTR) 0452 08417000 XC DEB(36,@04),DEB(@04) 0452 08418000 XC DEBBASIC(32,DEBPTR),DEBBASIC(DEBPTR) 0453 08419000 XC DEBDASD(16,DEBDAPTR),DEBDASD(DEBDAPTR) 0454 08420000 */* RESET THE ADDRESS TO THE APPENDAGES IN THE DEB */ 08421000 * DEBAPPAD = REG2; 0455 08422000 ST REG2,DEBAPPAD(,DEBPTR) 0455 08423000 */* SET THE DCB ADDRESS IN THE DEB */ 08424000 * DEBDCBAD = DCBPTR; 0456 08425000 ST DCBPTR,DEBDCBAD(,DEBPTR) 0456 08426000 */* SET THE UCB ADDRESS IN THE DEB */ 08427000 * DEBUCBAD = UCBPTR; 0457 08428000 MVC DEBUCBAD(4,DEBDAPTR),UCBPTR 0457 08429000 */* SAVE THE DEB ADDRESS IN THE DCB */ 08430000 * DCBDEBAD = DEBPTR; 0458 08431000 ST DEBPTR,DCBDEBAD+40(,DCBPTR) 0458 08432000 */* SET TCB POINTER IN THE DEB */ 08433000 * ADDRDTCB = CVTPTR -> CVTTCBP; 0459 08434000 L @04,CVTPTR 0459 08435000 L @04,CVTTCBP(,@04) 0459 08436000 ST @04,ADDRDTCB 0459 08437000 * TCBPTR = CURRTCB; 0460 08438000 L TCBPTR,CURRTCB(,@04) 0460 08439000 * DEBTCBAD = TCBPTR; 0461 08440000 ST TCBPTR,DEBTCBAD(,DEBPTR) 0461 08441000 */* SET THE CURRENT DEB QUEUE POINTER IN THE NEW DEB */ 08442000 * DEBDEBAD = TCBPTR -> TCBDEB; 0462 08443000 MVC DEBDEBAD(4,DEBPTR),TCBDEB(TCBPTR) 0462 08444000 */* STORE THE PTR TO THE NEWLY CREATED DEB IN TCB */ 08445000 * TCBDEB = DEBPTR; 0463 08446000 ST DEBPTR,TCBDEB(,TCBPTR) 0463 08447000 */* PLACE THE STORAGE PROTECTION ID IN DEB */ 08448000 * IDENTDEB = '0F'X; 0464 08449000 MVI IDENTDEB(DEBPTR),X'0F' 0464 08450000 */* PLACE THE PROTECTION KEY FROM THE TCB IN THE DEB */ 08451000 * IDENTDEB = IDENTTCB|IDENTDEB; 0465 08452000 OC IDENTDEB(1,DEBPTR),IDENTTCB(TCBPTR) 0465 08453000 */* ISSUE THE DEBCHK MACRO TO ADD TO DEB TABLE */ 08454000 * RESPECIFY (REG3) RSTD; 0466 08455000 * REG3 = DCBPTR; 0467 08456000 LR REG3,DCBPTR 0467 08457000 * GEN (DEBCHK (REG3),TYPE=ADD,AM=EXCP); 0468 08458000 DEBCHK (REG3),TYPE=ADD,AM=EXCP 08459000 * RESPECIFY (REG3) UNRSTD; 0469 08460000 */* INITIALIZE DEB PREFIX TO CONTAIN SAME INFO */ 08461000 */* AS THE APPENDAGE VECTOR TABLE IN THE CVT */ 08462000 * DEBAVT = CVTPTR -> CVTXAPG -> APPCVT; 0470 08463000 L @04,DEBAPPAD(,DEBPTR) 0470 08464000 L @03,CVTPTR 0470 08465000 L @01,CVTXAPG(,@03) 0470 08466000 MVC DEBAVT(20,@04),APPCVT(@01) 0470 08467000 */* OBTAIN POINTER TO THE DCB */ 08468000 * RESPECIFY (REG4) RSTD; 0471 08469000 * REG4 = CVTPTR -> CVTSVDCB; 0472 08470000 L REG4,CVTSVDCB(,@03) 0472 08471000 */* LOAD THE ABNORMAL-END APPENDAGE FROM THE SVCLIB */ 08472000 * GEN (LOAD EP=IGG019P2,DCB=(4)); 0473 08473000 LOAD EP=IGG019P2,DCB=(4) 08474000 * RESPECIFY (REG0,REG1) RSTD; 0474 08475000 */* SAVE THE ADDRESS TO THE ABNORMAL APP IN DEB */ 08476000 * DEBXCEAD = REG0; 0475 08477000 L @03,DEBAPPAD(,DEBPTR) 0475 08478000 ST REG0,@TF00001 0475 08479000 MVC DEBXCEAD(3,@03),@TF00001+1 0475 08480000 */* COMPUTE THE NUMBER OF 2K PAGES TO BE FIXED FOR */ 08481000 */* APPENDAGE */ 08482000 * GEN (LA REG1,0(REG1)); 0476 08483000 LA REG1,0(REG1) 08484000 * ABAPPLEN = (REG1*8)/2048 + 1; 0477 08485000 LR @09,REG1 0477 08486000 M @08,@CF00170 0477 08487000 D @08,@CF03308 0477 08488000 LA @09,1(,@09) 0477 08489000 LR ABAPPLEN,@09 0477 08490000 * DEBXCEAB = ABAPPLEN; 0478 08491000 L @03,DEBAPPAD(,DEBPTR) 0478 08492000 STC ABAPPLEN,DEBXCEAB(,@03) 0478 08493000 * RESPECIFY (REG0,REG1,REG2,REG4) UNRSTD; 0479 08494000 */* GET BACK INTO PROBLEM PROGRAM STATE */ 08495000 * GEN (MODESET KEY=NZERO,MODE=PROB); 0480 08496000 MODESET KEY=NZERO,MODE=PROB 08497000 */* END-ELSE (OFF-LINE VOLUME) */ 08498000 * END OFFLN2; 0481 08499000 */* END-THEN */ 08500000 * END CONT1; 0482 08501000 * 0482 08502000 @RC00404 DS 0H 0483 08503000 EJECT 08504000 */* IF NO ERRORS HAVE BEEN FOUND */ 08505000 * IF CONDCODE = RCSUCC 0483 08506000 */* THEN PERFORM COMMON OPENING STEPS FOR BOTH ON AND OFF LINE */ 08507000 * THEN COMMON: DO; 0483 08508000 @RF00402 L @06,@PC00001+24 0483 08509000 L @06,CONDCODE(,@06) 0483 08510000 LTR @06,@06 0483 08511000 BNZ @RF00483 0483 08512000 COMMON DS 0H 0485 08513000 */* OBTAIN THE ADDRESS OF THE DEB */ 08514000 * DEBPTR = DCBDEBAD; 0485 08515000 L DEBPTR,DCBDEBAD+40(,DCBPTR) 0485 08516000 */* ESTABLISH ADDRESSABILITY TO DASD PORTION */ 08517000 * DEBDAPTR = DEBPTR + LENGTH (DEBBASIC); 0486 08518000 LA DEBDAPTR,32 0486 08519000 ALR DEBDAPTR,DEBPTR 0486 08520000 */* GET INTO SUPERVISOR STATE */ 08521000 * GEN (MODESET KEY=ZERO); 0487 08522000 MODESET KEY=ZERO 08523000 */* SET NUMBER OF EXTENTS ON THE DEB */ 08524000 * EXTENT = 1; 0488 08525000 MVI EXTENT(DEBPTR),X'01' 0488 08526000 */* SET LOWER LIMIT IN THE DEB */ 08527000 * DEBSTRCC = '0000'X; 0489 08528000 MVC DEBSTRCC(2,DEBDAPTR),@CB03256 0489 08529000 * DEBSTRHH = '0000'X; 0490 08530000 MVC DEBSTRHH(2,DEBDAPTR),@CB03256 0490 08531000 */* SET UPPER EXTENT LIMIT IN THE DEB */ 08532000 * DEBENDCC= '7FFF'X; 0491 08533000 MVC DEBENDCC(2,DEBDAPTR),@CB03311 0491 08534000 * DEBENDHH= '0000'X; 0492 08535000 MVC DEBENDHH(2,DEBDAPTR),@CB03256 0492 08536000 */* SET THE NUMBER OF TRACKS IN THE DEB */ 08537000 * DEBNMTRK = '7FFF'X; 0493 08538000 MVC DEBNMTRK(2,DEBDAPTR),@CB03311 0493 08539000 */* SET THE FILE MASK TO PERMIT ALL WRITES AND SEEKS */ 08540000 */* ('C1' FOR ALL DEVICES, BUT 'C0' FOR 2305 & 2314) */ 08541000 * UCBPTR = DEBUCBAD; 0494 08542000 L @15,DEBUCBAD(,DEBDAPTR) 0494 08543000 ST @15,UCBPTR 0494 08544000 * IF UCBTYP(4:4) = DUCB230A | 0495 08545000 * UCBTYP(4:4) = DUCB230B | 0495 08546000 * UCBTYP(4:4) = DUCB2314 0495 08547000 * THEN DO; 0495 08548000 CLI UCBTYP+3(@15),X'06' 0495 08549000 BE @RT00495 0495 08550000 CLI UCBTYP+3(@15),X'07' 0495 08551000 BE @RT00495 0495 08552000 CLI UCBTYP+3(@15),X'08' 0495 08553000 BNE @RF00495 0495 08554000 @RT00495 DS 0H 0496 08555000 * DEBDVMOD = 'C0'X; 0497 08556000 MVI DEBDVMOD(DEBDAPTR),X'C0' 0497 08557000 * END; 0498 08558000 * ELSE DO; 0499 08559000 B @RC00495 0499 08560000 @RF00495 DS 0H 0500 08561000 * DEBDVMOD = 'C1'X; 0500 08562000 MVI DEBDVMOD(DEBDAPTR),X'C1' 0500 08563000 * END; 0501 08564000 */* GET BACK INTO PROBLEM PROGRAM STATE */ 08565000 * GEN (MODESET KEY=NZERO); 0502 08566000 @RC00495 DS 0H 0502 08567000 MODESET KEY=NZERO 08568000 */* ESTABLISH ADDRESSABILITY FOR ECB */ 08569000 * ECBPTR = ADDR (CBECB); 0503 08570000 L @15,@PC00001+20 0503 08571000 L @15,VOLIBPTR(,@15) 0503 08572000 LA ECBPTR,CBECB(,@15) 0503 08573000 */* ESTABLISH ADDRESSABILITY FOR IOB */ 08574000 * IOBSTPTR = ADDR (CBIOB); 0504 08575000 LA @04,CBIOB(,@15) 0504 08576000 ST @04,IOBSTPTR 0504 08577000 */* SET FLAG1 BITS IN IOB */ 08578000 * IOBDATCH = NODATCH; /* NO DATA CHAINING USED */ 08579000 * IOBCMDCH = CMDCH; /* COMMAND CHAINING USED */ 08580000 * IOBUNREL = UNREL; /* CCW PGMS. ARE UNRELATED */ 08581000 OI IOBCMDCH(@04),B'01000010' 0507 08582000 NI IOBDATCH(@04),B'01111111' 0507 08583000 */* SET ECB POINTER IN IOB */ 08584000 * IOBECBPT = ECBPTR; 0508 08585000 ST ECBPTR,IOBECBPT(,@04) 0508 08586000 */* SET DCB POINTER IN IOB */ 08587000 * IOBDCBPT = DCBPTR; 0509 08588000 ST DCBPTR,IOBDCBPT(,@04) 0509 08589000 */* ACCESS UCB FOR VOLIB INFORMATION */ 08590000 * DEBPTR = DCBDEBA; 0510 08591000 L DEBPTR,DCBDEBA+39(,DCBPTR) 0510 08592000 LA DEBPTR,0(,DEBPTR) 0510 08593000 * DEBDAPTR = DEBPTR + LENGTH(DEBBASIC); 0511 08594000 LA DEBDAPTR,32 0511 08595000 ALR DEBDAPTR,DEBPTR 0511 08596000 * UCBPTR = DEBUCBAD; 0512 08597000 L @07,DEBUCBAD(,DEBDAPTR) 0512 08598000 ST @07,UCBPTR 0512 08599000 */* IF VOLUME IS ON-LINE */ 08600000 * IF UCBONLI = ON 0513 08601000 */* THEN */ 08602000 * THEN DO; 0513 08603000 TM UCBONLI(@07),B'10000000' 0513 08604000 BNO @RF00513 0513 08605000 */* IF VOLUME IS MOUNTED PRIVATE */ 08606000 * IF UCBBPRV = ON 0515 08607000 */* THEN INDICATE IN THE VOLIB THAT VOLUME IS PRIVATE */ 08608000 * THEN DO; VLPRVOL = ON; END; 0515 08609000 TM UCBBPRV(@07),B'00010000' 0515 08610000 BNO @RF00515 0515 08611000 OI VLPRVOL(@15),B'10000000' 0517 08612000 */* ELSE INDICATE IN THE VOLIB THAT VOLUME IS NOT PRIVATE */ 08613000 * ELSE DO; VLPRVOL = OFF; END; 0519 08614000 B @RC00515 0519 08615000 @RF00515 DS 0H 0520 08616000 L @15,@PC00001+20 0520 08617000 L @01,VOLIBPTR(,@15) 0520 08618000 NI VLPRVOL(@01),B'01111111' 0520 08619000 */* END-THEN (VOLUME IS ON-LINE) */ 08620000 * END; 0522 08621000 @RC00515 DS 0H 0523 08622000 */* END-THEN (COMMON OPENING STEPS) */ 08623000 * END COMMON; 0523 08624000 @RF00513 DS 0H 0524 08625000 EJECT 08626000 */* IF NO ERRORS THUS FAR */ 08627000 * IF CONDCODE = RCSUCC 0524 08628000 */* THEN PLACE NEW VOLIB INTO VOLIB CHAIN */ 08629000 * THEN DO; 0524 08630000 @RF00483 SLR @15,@15 0524 08631000 L @14,@PC00001+24 0524 08632000 C @15,CONDCODE(,@14) 0524 08633000 BNE @RF00524 0524 08634000 */* IF VOLIB CHAIN IS NOT EMPTY */ 08635000 * IF GDTDVH ^= NULLPTR 0526 08636000 */* THEN PUT NEW VOLIB IN BACKWARDS CHAIN */ 08637000 * THEN DO; 0526 08638000 L @14,@PC00001 0526 08639000 L @14,GDTDVH(,@14) 0526 08640000 CR @14,@15 0526 08641000 BE @RF00526 0526 08642000 * GDTDVH -> VLBPTR = VOLIBPTR; 0528 08643000 L @15,@PC00001+20 0528 08644000 MVC VLBPTR(4,@14),VOLIBPTR(@15) 0528 08645000 */* END-THEN */ 08646000 * END; 0529 08647000 */* PLACE NEW VOLIB AT BEGINNING OF CHAIN */ 08648000 * VLFPTR = GDTDVH; 0530 08649000 @RF00526 L @15,@PC00001+20 0530 08650000 L @15,VOLIBPTR(,@15) 0530 08651000 L @14,@PC00001 0530 08652000 MVC VLFPTR(4,@15),GDTDVH(@14) 0530 08653000 * GDTDVH = VOLIBPTR; 0531 08654000 ST @15,GDTDVH(,@14) 0531 08655000 * VLBPTR = ADDR (GDTDVH); 0532 08656000 LA @14,GDTDVH(,@14) 0532 08657000 ST @14,VLBPTR(,@15) 0532 08658000 */* DETERMINE WHETHER VOLUME IS VALID DEVICE-TYPE */ 08659000 * CALL SETDEV; 0533 08660000 BAL @14,SETDEV 0533 08661000 */* IF INVALID VOLUME DEVICE-TYPE */ 08662000 * IF CONDCODE ^= RCSUCC 0534 08663000 */* THEN CLOSE THE VOLUME */ 08664000 * THEN DO; 0534 08665000 L @15,@PC00001+24 0534 08666000 L @15,CONDCODE(,@15) 0534 08667000 LTR @15,@15 0534 08668000 BZ @RF00534 0534 08669000 * CALL ICKDVCL0 (GDTTBL 0536 08670000 * ,VOLIBPTR 0536 08671000 * ,RETCODE); 0536 08672000 L @15,@PC00001 0536 08673000 ST @15,@AL00001 0536 08674000 L @14,@PC00001+20 0536 08675000 ST @14,@AL00001+4 0536 08676000 LA @14,RETCODE 0536 08677000 ST @14,@AL00001+8 0536 08678000 L @15,GDTDVC(,@15) 0536 08679000 LA @01,@AL00001 0536 08680000 BALR @14,@15 0536 08681000 * END; 0537 08682000 */* IF NO ERRORS THUS FAR */ 08683000 * IF CONDCODE = RCSUCC 0538 08684000 */* THEN CHECK FOR FIRST-TIME INITIALIZATION */ 08685000 * THEN DO; 0538 08686000 @RF00534 SLR @15,@15 0538 08687000 L @14,@PC00001+24 0538 08688000 C @15,CONDCODE(,@14) 0538 08689000 BNE @RF00538 0538 08690000 */* READ VOLUME LABEL (UDEVOP) TO DETERMINE IF IT EXISTS */ 08691000 * TRKCCHH = 0; 0540 08692000 ST @15,TRKCCHH 0540 08693000 * RECNUM = 3; 0541 08694000 MVC RECNUM(4),@CF00145 0541 08695000 * CALL ICKDVOP0 (GDTTBL 0542 08696000 * ,VOLIBPTR 0542 08697000 * ,ACTRDN 0542 08698000 * ,TRKCCHH 0542 08699000 * ,RECNUM 0542 08700000 * ,'DV01' 0542 08701000 * ,DATAPTR 0542 08702000 * ,DATALEN 0542 08703000 * ,RETCODE ); 0542 08704000 L @15,@PC00001 0542 08705000 ST @15,@AL00001 0542 08706000 L @14,@PC00001+20 0542 08707000 ST @14,@AL00001+4 0542 08708000 LA @14,@CF00274 0542 08709000 ST @14,@AL00001+8 0542 08710000 LA @14,TRKCCHH 0542 08711000 ST @14,@AL00001+12 0542 08712000 LA @14,RECNUM 0542 08713000 ST @14,@AL00001+16 0542 08714000 LA @14,@CC03140 0542 08715000 ST @14,@AL00001+20 0542 08716000 LA @14,DATAPTR 0542 08717000 ST @14,@AL00001+24 0542 08718000 LA @14,DATALEN 0542 08719000 ST @14,@AL00001+28 0542 08720000 LA @14,RETCODE 0542 08721000 ST @14,@AL00001+32 0542 08722000 L @15,GDTDOP(,@15) 0542 08723000 LA @01,@AL00001 0542 08724000 BALR @14,@15 0542 08725000 * RESPECIFY VIBIMAGE BASED (DATAPTR); 0543 08726000 */* IF A VOLUME LABEL DOES NOT EXIST */ 08727000 * IF RETCODE = NORECFND | RETCODE = CPFAILS 0544 08728000 */* THEN INDICATE FIRST TIME INITIALIZATION */ 08729000 * THEN DO; VLFINIT = ON; END; 0544 08730000 L @15,RETCODE 0544 08731000 CH @15,@CH00174 0544 08732000 BE @RT00544 0544 08733000 CH @15,@CH00053 0544 08734000 BNE @RF00544 0544 08735000 @RT00544 DS 0H 0545 08736000 L @15,@PC00001+20 0546 08737000 L @01,VOLIBPTR(,@15) 0546 08738000 OI VLFINIT(@01),B'10000000' 0546 08739000 */* END-THEN (CHECK FOR FIRST-TIME INITIALIZATION) */ 08740000 * END; 0548 08741000 @RF00544 DS 0H 0549 08742000 */* END-THEN (PLACE NEW VOLIB INTO VOLIB CHAIN) */ 08743000 * END; 0549 08744000 * 0549 08745000 @RF00538 DS 0H 0550 08746000 EJECT 08747000 */* IF ERRORS HAVE OCCURED */ 08748000 * IF CONDCODE ^= RCSUCC 0550 08749000 */* THEN CLEAN UP HOUSEKEEPING */ 08750000 * THEN DO; 0550 08751000 @RF00524 L @15,@PC00001+24 0550 08752000 L @15,CONDCODE(,@15) 0550 08753000 LTR @15,@15 0550 08754000 BZ @RF00550 0550 08755000 */* IF THE UCB 'NO-ALLOCATE' FLAG WAS SET */ 08756000 * IF ALLOCUCB = YES 0552 08757000 */* THEN ENSURE THAT IT IS RESET */ 08758000 * THEN DO; 0552 08759000 TM ALLOCUCB,B'10000000' 0552 08760000 BNO @RF00552 0552 08761000 */* ENTER SUP. STATE TO MODIFY UCB FIELD */ 08762000 * GEN (MODESET KEY=ZERO,MODE=SUP); 0554 08763000 MODESET KEY=ZERO,MODE=SUP 08764000 * UCBNALOC = OFF; 0555 08765000 L @01,UCBPTR 0555 08766000 NI UCBNALOC(@01),B'11111011' 0555 08767000 */* RETURN TO PROBLEM PROGRAM STATE */ 08768000 * GEN (MODESET KEY=NZERO,MODE=PROB); 0556 08769000 MODESET KEY=NZERO,MODE=PROB 08770000 * END; 0557 08771000 */* FREE CONTROL BLOCK SPACE */ 08772000 * CALL ICKSAFP0(GDTTBL 0558 08773000 * ,CBPOOLID); 0558 08774000 @RF00552 L @15,@PC00001 0558 08775000 ST @15,@AL00001 0558 08776000 LA @14,CBPOOLS 0558 08777000 ST @14,@AL00001+4 0558 08778000 MVI @AL00001+4,X'80' 0558 08779000 L @15,GDTFPL(,@15) 0558 08780000 LA @01,@AL00001 0558 08781000 BALR @14,@15 0558 08782000 */* NULL THE VOLIB POINTER */ 08783000 * VOLIBPTR = NULLPTR; 0559 08784000 L @15,@PC00001+20 0559 08785000 SLR @14,@14 0559 08786000 ST @14,VOLIBPTR(,@15) 0559 08787000 */* END-THEN (ERRORS HAVE OCCURED) */ 08788000 * END; 0560 08789000 * 0560 08790000 * 0560 08791000 */* END-PROCEDURE UDEVOPEN */ 08792000 * IF GDTDBG = NULLPTR 0561 08793000 * THEN; 0561 08794000 @RF00550 L @15,@PC00001 0561 08795000 L @15,GDTDBG(,@15) 0561 08796000 LTR @15,@15 0561 08797000 BZ @RT00561 0561 08798000 * ELSE 0563 08799000 * CALL ICKDB010 (GDTTBL, 'DV19'); 0563 08800000 L @15,@PC00001 0563 08801000 ST @15,@AL00001 0563 08802000 LA @14,@CC03316 0563 08803000 ST @14,@AL00001+4 0563 08804000 MVI @AL00001+4,X'80' 0563 08805000 L @15,GDTDBG(,@15) 0563 08806000 LA @01,@AL00001 0563 08807000 BALR @14,@15 0563 08808000 * CALL ICKSAFP0 (GDTTBL, 'DV01'); 0564 08809000 @RT00561 L @15,@PC00001 0564 08810000 ST @15,@AL00001 0564 08811000 LA @14,@CC03140 0564 08812000 ST @14,@AL00001+4 0564 08813000 MVI @AL00001+4,X'80' 0564 08814000 L @15,GDTFPL(,@15) 0564 08815000 LA @01,@AL00001 0564 08816000 BALR @14,@15 0564 08817000 * CALL ICKSAEP0(GDTTBL,MODID); 0565 08818000 * 0565 08819000 L @15,@PC00001 0565 08820000 ST @15,@AL00001 0565 08821000 LA @14,MODID 0565 08822000 ST @14,@AL00001+4 0565 08823000 MVI @AL00001+4,X'80' 0565 08824000 L @15,GDTEPL(,@15) 0565 08825000 LA @01,@AL00001 0565 08826000 BALR @14,@15 0565 08827000 EJECT 08828000 */***** START OF SPECIFICATIONS ************************************/ 08829000 */* */ 08830000 */* SUB-PROCEDURE NAME: SETDEV */ 08831000 */* */ 08832000 */* DESCRIPTIVE NAME: SET_DEVICE_TYPE */ 08833000 */* */ 08834000 */* FUNCTION: */ 08835000 */* */ 08836000 */* THE FUNCTION OF THIS PROCEDURE IS TO DETERMINE THE */ 08837000 */* DEVICE-TYPE OF THE VOLUME BEING OPENED. */ 08838000 */* ADDITIONALLY, IT DETERMINES WHETHER THE VOLUME IS OF */ 08839000 */* THE APPROPRIATE TYPE FOR THE FUNCTION AT HAND. */ 08840000 */* */ 08841000 */***** END OF SPECIFICATIONS **************************************/ 08842000 * 0566 08843000 */* SUB-PROCEDURE SET_DEVICE_TYPE */ 08844000 * SETDEV: PROCEDURE; 0566 08845000 * 0566 08846000 B @PB00002 0566 08847000 SETDEV STM @14,@12,@SA00002 0566 08848000 * OLDERID2 = NEWERID2; 0567 08849000 L @15,@PC00001 0567 08850000 L @14,GDTTR2(,@15) 0567 08851000 MVC @TS00001(95),NEWERID2(@14) 0567 08852000 MVC OLDERID2(95,@14),@TS00001 0567 08853000 * NEWID2 = 'DV1D'; 0568 08854000 * 0568 08855000 MVC NEWID2(4,@14),@CC03320 0568 08856000 */* IF NO ERRORS HAVE OCCURED THUS FAR */ 08857000 * IF CONDCODE = RCSUCC 0569 08858000 */* THEN PERFORM DEVICE-TYPE LEGALITY CHECKING */ 08859000 * THEN DO; 0569 08860000 L @14,@PC00001+24 0569 08861000 L @14,CONDCODE(,@14) 0569 08862000 LTR @14,@14 0569 08863000 BNZ @RF00569 0569 08864000 */* SET UCB FOUR BYTE DEVICE TYPE IN VOLIB */ 08865000 * VLUCBDT = UCBTYP; 0571 08866000 L @14,@PC00001+20 0571 08867000 L @09,VOLIBPTR(,@14) 0571 08868000 L @08,UCBPTR 0571 08869000 MVC VLUCBDT(4,@09),UCBTYP(@08) 0571 08870000 */* SET IOB POINTER IN VOLIB */ 08871000 * VLIOBPTR = IOBSTPTR; 0572 08872000 * 0572 08873000 MVC VLIOBPTR(4,@09),IOBSTPTR 0572 08874000 */* IF DEVICE TYPE IS A 334N CLASS DEVICE */ 08875000 * IF VLDEVTYP = DUCB334N 0573 08876000 */* THEN OBTAIN DEVICE OPTIONS FROM SENSE DATA (UDEVOP) */ 08877000 * THEN DO; 0573 08878000 CLI VLDEVTYP(@09),X'0A' 0573 08879000 BNE @RF00573 0573 08880000 * VLDEVIND = DV334A; 0575 08881000 MVI VLDEVIND(@09),X'08' 0575 08882000 * CALL ICKDVOP0 (GDTTBL 0576 08883000 * ,VOLIBPTR 0576 08884000 * ,ACTSENOP 0576 08885000 * ,TRKCCHH 0576 08886000 * ,RECNUM 0576 08887000 * ,'DV01' 0576 08888000 * ,DATAPTR 0576 08889000 * ,DATALEN 0576 08890000 * ,RETCODE); 0576 08891000 ST @15,@AL00001 0576 08892000 ST @14,@AL00001+4 0576 08893000 LA @14,@CF00176 0576 08894000 ST @14,@AL00001+8 0576 08895000 LA @14,TRKCCHH 0576 08896000 ST @14,@AL00001+12 0576 08897000 LA @14,RECNUM 0576 08898000 ST @14,@AL00001+16 0576 08899000 LA @14,@CC03140 0576 08900000 ST @14,@AL00001+20 0576 08901000 LA @14,DATAPTR 0576 08902000 ST @14,@AL00001+24 0576 08903000 LA @14,DATALEN 0576 08904000 ST @14,@AL00001+28 0576 08905000 LA @14,RETCODE 0576 08906000 ST @14,@AL00001+32 0576 08907000 L @15,GDTDOP(,@15) 0576 08908000 LA @01,@AL00001 0576 08909000 BALR @14,@15 0576 08910000 * VLDEVIND = 0; 0577 08911000 L @15,@PC00001+20 0577 08912000 L @15,VOLIBPTR(,@15) 0577 08913000 MVI VLDEVIND(@15),X'00' 0577 08914000 */* IF DEVICE IS A 3344 */ 08915000 * IF SEN3344 = DEV3344 0578 08916000 */* THEN SET DEVICE TYPE TO 3344 */ 08917000 * THEN DO; VLDEVIND = DV3344; END; 0578 08918000 L @01,DATAPTR 0578 08919000 TM SEN3344(@01),B'00001000' 0578 08920000 BNO @RF00578 0578 08921000 MVI VLDEVIND(@15),X'09' 0580 08922000 */* ELSE DEVICE IS A 3340 */ 08923000 * ELSE DO; 0582 08924000 B @RC00578 0582 08925000 @RF00578 DS 0H 0583 08926000 */* IF RPS IS PRESENT */ 08927000 * IF SENRPSPR = RPSPRES 0583 08928000 */* THEN-DO */ 08929000 * THEN DO; 0583 08930000 L @15,DATAPTR 0583 08931000 TM SENRPSPR(@15),B'10000000' 0583 08932000 BNO @RF00583 0583 08933000 */* IF DEVICE HAS A 35MB PACK */ 08934000 * IF SENMB35 = MB35PK 0585 08935000 */* THEN SET DEVICE TYPE TO 334A */ 08936000 * THEN DO; VLDEVIND = DV334A;END; 0585 08937000 TM SENMB35(@15),B'00000001' 0585 08938000 BNO @RF00585 0585 08939000 L @15,@PC00001+20 0587 08940000 L @01,VOLIBPTR(,@15) 0587 08941000 MVI VLDEVIND(@01),X'08' 0587 08942000 */* ELSE SET DEVICE TYPE TO 334B */ 08943000 * ELSE DO; VLDEVIND = DV334B;END; 0589 08944000 B @RC00585 0589 08945000 @RF00585 DS 0H 0590 08946000 L @15,@PC00001+20 0590 08947000 L @01,VOLIBPTR(,@15) 0590 08948000 MVI VLDEVIND(@01),X'09' 0590 08949000 */* END-THEN */ 08950000 * END; 0592 08951000 */* ELSE RPS NOT PRESENT */ 08952000 * ELSE DO; 0593 08953000 B @RC00583 0593 08954000 @RF00583 DS 0H 0594 08955000 */* IF DEVICE HAS A 35 MB PACK */ 08956000 * IF SENMB35 = MB35PK 0594 08957000 */* THEN SET DEVICE TYPE TO 334C */ 08958000 * THEN DO; VLDEVIND = DV334C;END; 0594 08959000 L @01,DATAPTR 0594 08960000 TM SENMB35(@01),B'00000001' 0594 08961000 BNO @RF00594 0594 08962000 L @15,@PC00001+20 0596 08963000 L @01,VOLIBPTR(,@15) 0596 08964000 MVI VLDEVIND(@01),X'0A' 0596 08965000 */* ELSE SET DEVICE TYPE TO 334D */ 08966000 * ELSE DO; VLDEVIND = DV334D;END; 0598 08967000 B @RC00594 0598 08968000 @RF00594 DS 0H 0599 08969000 L @15,@PC00001+20 0599 08970000 L @01,VOLIBPTR(,@15) 0599 08971000 MVI VLDEVIND(@01),X'0B' 0599 08972000 */* END-ELSE */ 08973000 * END; 0601 08974000 @RC00594 DS 0H 0602 08975000 */* END-ELSE */ 08976000 * END; 0602 08977000 @RC00583 DS 0H 0603 08978000 */* END-THEN (DEVICE IS 334N) */ 08979000 * END; 0603 08980000 * 0603 08981000 @RC00578 DS 0H 0604 08982000 */* IF DEVICE IS A 3330 */ 08983000 * IF VLDEVTYP = DUCB3330 0604 08984000 */* THEN HANDLE FOR MSS WHEN NECESSARY */ 08985000 * THEN DO; 0604 08986000 @RF00573 L @15,@PC00001+20 0604 08987000 L @15,VOLIBPTR(,@15) 0604 08988000 CLI VLDEVTYP(@15),X'09' 0604 08989000 BNE @RF00604 0604 08990000 */* IF MSS IS BEING MIMICKED */ 08991000 * IF MIMICDEV = MSS 0606 08992000 */* THEN SET DEVICE TYPE TO 333C */ 08993000 * THEN DO; VLDEVIND = DV333C; END; 0606 08994000 L @14,@PC00001+16 0606 08995000 CLC MIMICDEV(8,@14),MSS 0606 08996000 BNE @RF00606 0606 08997000 MVI VLDEVIND(@15),X'06' 0608 08998000 */* ELSE SET DEVICE TYPE TO 333A */ 08999000 * ELSE DO; VLDEVIND = DV333A; END; 0610 09000000 B @RC00606 0610 09001000 @RF00606 DS 0H 0611 09002000 L @15,@PC00001+20 0611 09003000 L @01,VOLIBPTR(,@15) 0611 09004000 MVI VLDEVIND(@01),X'04' 0611 09005000 */* END-THEN */ 09006000 * END; 0613 09007000 * 0613 09008000 @RC00606 DS 0H 0614 09009000 */* IF DEVICE IS A 3330-11 */ 09010000 * IF VLDEVTYP = DUCB3331 0614 09011000 */* THEN HANDLE FOR MSS WHEN NECESSARY */ 09012000 * THEN DO; 0614 09013000 @RF00604 L @15,@PC00001+20 0614 09014000 L @15,VOLIBPTR(,@15) 0614 09015000 CLI VLDEVTYP(@15),X'0D' 0614 09016000 BNE @RF00614 0614 09017000 */* IF MSS IS BEING MIMICKED */ 09018000 * IF MIMICDEV = MSS 0616 09019000 */* THEN SET DEVICE TYPE TO 333D */ 09020000 * THEN DO; VLDEVIND = DV333D; END; 0616 09021000 L @14,@PC00001+16 0616 09022000 CLC MIMICDEV(8,@14),MSS 0616 09023000 BNE @RF00616 0616 09024000 MVI VLDEVIND(@15),X'07' 0618 09025000 */* ELSE SET DEVICE TYPE TO 333B */ 09026000 * ELSE DO; VLDEVIND = DV333B; END; 0620 09027000 B @RC00616 0620 09028000 @RF00616 DS 0H 0621 09029000 L @15,@PC00001+20 0621 09030000 L @01,VOLIBPTR(,@15) 0621 09031000 MVI VLDEVIND(@01),X'05' 0621 09032000 */* END-THEN */ 09033000 * END; 0623 09034000 * 0623 09035000 @RC00616 DS 0H 0624 09036000 */* IF DEVICE IS A 2305-1 */ 09037000 * IF VLDEVTYP = DUCB230A 0624 09038000 */* THEN SET DEVICE TYPE TO 230A */ 09039000 * THEN DO; VLDEVIND = DV230A; END; 0624 09040000 * 0624 09041000 @RF00614 L @15,@PC00001+20 0624 09042000 L @15,VOLIBPTR(,@15) 0624 09043000 CLI VLDEVTYP(@15),X'06' 0624 09044000 BNE @RF00624 0624 09045000 MVI VLDEVIND(@15),X'01' 0626 09046000 */* IF DEVICE IS A 2305-2 */ 09047000 * IF VLDEVTYP = DUCB230B 0628 09048000 */* THEN SET DEVICE TYPE TO 230B */ 09049000 * THEN DO; VLDEVIND = DV230B; END; 0628 09050000 * 0628 09051000 @RF00624 L @15,@PC00001+20 0628 09052000 L @15,VOLIBPTR(,@15) 0628 09053000 CLI VLDEVTYP(@15),X'07' 0628 09054000 BNE @RF00628 0628 09055000 MVI VLDEVIND(@15),X'02' 0630 09056000 */* IF DEVICE IS A 2314/2319 */ 09057000 * IF VLDEVTYP = DUCB2314 0632 09058000 */* THEN SET DEVICE TYPE TO 2314 */ 09059000 * THEN DO; VLDEVIND = DV2314;END; 0632 09060000 * 0632 09061000 @RF00628 L @15,@PC00001+20 0632 09062000 L @15,VOLIBPTR(,@15) 0632 09063000 CLI VLDEVTYP(@15),X'08' 0632 09064000 BNE @RF00632 0632 09065000 MVI VLDEVIND(@15),X'03' 0634 09066000 */* IF DEVICE IS A 3350 */ 09067000 * IF VLDEVTYP = DUCB3350 0636 09068000 */* THEN SET DEVICE TYPE TO 3350 */ 09069000 * THEN DO; VLDEVIND = DV3350; END; 0636 09070000 * 0636 09071000 @RF00632 L @15,@PC00001+20 0636 09072000 L @15,VOLIBPTR(,@15) 0636 09073000 CLI VLDEVTYP(@15),X'0B' 0636 09074000 BNE @RF00636 0636 09075000 MVI VLDEVIND(@15),X'0C' 0638 09076000 */* IF DEVICE TYPE IS NOT VALID */ 09077000 * IF (MIMICDEV = MSS & (VLDEVIND ^= DV333C & 0640 09078000 * VLDEVIND ^= DV333D)) | 0640 09079000 * VLDEVIND = 0 0640 09080000 */* THEN SO INDICATE */ 09081000 * THEN DO; 0640 09082000 @RF00636 L @15,@PC00001+16 0640 09083000 CLC MIMICDEV(8,@15),MSS 0640 09084000 BNE @GL00008 0640 09085000 L @15,@PC00001+20 0640 09086000 L @15,VOLIBPTR(,@15) 0640 09087000 CLI VLDEVIND(@15),6 0640 09088000 BE @GL00008 0640 09089000 CLI VLDEVIND(@15),7 0640 09090000 BNE @RT00640 0640 09091000 @GL00008 L @15,@PC00001+20 0640 09092000 L @01,VOLIBPTR(,@15) 0640 09093000 CLI VLDEVIND(@01),0 0640 09094000 BNE @RF00640 0640 09095000 @RT00640 DS 0H 0641 09096000 * DARGSMOD = MSGMODZ; 0642 09097000 L @15,DDSTRU 0642 09098000 MVC DARGSMOD(3,@15),@CC03150 0642 09099000 * DARGSENT = MSGINVDV; 0643 09100000 MVI DARGSENT(@15),X'04' 0643 09101000 * CALL ICKTPPR0 (GDTTBL 0644 09102000 * ,PRTFILE 0644 09103000 * ,DDSTRU); 0644 09104000 L @15,@PC00001 0644 09105000 ST @15,@AL00001 0644 09106000 LA @14,@CF00103 0644 09107000 ST @14,@AL00001+4 0644 09108000 LA @14,DDSTRU 0644 09109000 ST @14,@AL00001+8 0644 09110000 MVI @AL00001+8,X'80' 0644 09111000 L @15,GDTPRT(,@15) 0644 09112000 LA @01,@AL00001 0644 09113000 BALR @14,@15 0644 09114000 * CONDCODE = RCINVAL; 0645 09115000 L @15,@PC00001+24 0645 09116000 MVC CONDCODE(4,@15),@CF00174 0645 09117000 * END; 0646 09118000 */* END-THEN (NO ERRORS HAVE OCCURED THUS FAR) */ 09119000 * END; 0647 09120000 * 0647 09121000 */* END-SUBPROCEDURE SET_DEVICE_TYPE */ 09122000 * END SETDEV; 0648 09123000 * 0648 09124000 @EL00002 DS 0H 0648 09125000 @EF00002 DS 0H 0648 09126000 @ER00002 LM @14,@12,@SA00002 0648 09127000 BR @14 0648 09128000 EJECT 09129000 */***** START OF SPECIFICATIONS ************************************/ 09130000 */* */ 09131000 */* SUB-PROCEDURE NAME: RESETVOL */ 09132000 */* */ 09133000 */* DESCRIPTIVE NAME: RESET_VOLUME_STATUS */ 09134000 */* */ 09135000 */* FUNCTION: */ 09136000 */* */ 09137000 */* THE FUNCTION OF THIS PROCEDURE IS TO CLEAN UP THE */ 09138000 */* UCB BEFORE AN ABEND OCCURS. THIS SORT OF CLEAN UP */ 09139000 */* IS REQUIRED ONLY WHEN PROCESSING AN OFF-LINE VOLUME. */ 09140000 */* */ 09141000 */* FOR PROCESSING AN OFF-LINE VOLUME THE NO ALLOCATION */ 09142000 */* BIT IN THE UCB IS SET TO PREVENT THE VOLUME FROM */ 09143000 */* BEING ACCESSED BY ANY OTHER TASK. THIS BIT IS RESET */ 09144000 */* BY THIS PROCEDURE. ALSO IF A DEB HAS BEEN CREATED */ 09145000 */* THIS PROCEDURE WILL DELETE IT AND EFFECT THE REMOVAL */ 09146000 */* OF THE DEB FROM THE DEB TABLE. */ 09147000 */* */ 09148000 */***** END OF SPECIFICATIONS **************************************/ 09149000 * 0649 09150000 */* SUB-PROCEDURE RESET_VOLUME_STATUS */ 09151000 *RSTVOL: ENTRY 0649 09152000 * (GDTTBL, 0649 09153000 * BLOCKPTR, 0649 09154000 * RETRYPTR, 0649 09155000 * RSTCODE); 0649 09156000 * 0649 09157000 B @EC00649 0649 09158000 @EP00649 MVC @PC00001(4),0(@01) 0649 09159000 MVC @PC00001+28(12),4(@01) 0649 09160000 @EC00649 DS 0H 0650 09161000 * DECLARE /***** LOCAL DECLARATIONS *******************************/ 09162000 * 0650 09163000 * BLOCKPTR /* POINTER TO THE CONTROL BLOCK */ 09164000 * POINTER (31), 0650 09165000 * 0650 09166000 * RETRYPTR /* POINTER TO A RETRY ROUTINE */ 09167000 * POINTER (31), 0650 09168000 * 0650 09169000 * RSTCODE /* RETURN CODE TO BE PASSED */ 09170000 * FIXED (31); 0650 09171000 * 0650 09172000 * OLDERID2 = NEWERID2; 0651 09173000 L @04,@PC00001 0651 09174000 L @04,GDTTR2(,@04) 0651 09175000 MVC @TS00001(95),NEWERID2(@04) 0651 09176000 MVC OLDERID2(95,@04),@TS00001 0651 09177000 * NEWID2 = 'DV1V'; 0652 09178000 * 0652 09179000 * 0652 09180000 MVC NEWID2(4,@04),@CC03331 0652 09181000 */* ESTABLISH ADDRESSABILITY TO THE CONTROL BLOCK */ 09182000 * RFY STAEPARM BASED (BLOCKPTR); 0653 09183000 */* PICK UP THE POINTER TO THE UCB */ 09184000 * UCBPTR = STAEWORK (1:4); 0654 09185000 L @04,@PC00001+28 0654 09186000 L @04,BLOCKPTR(,@04) 0654 09187000 MVC UCBPTR(4),STAEWORK(@04) 0654 09188000 */* PICK UP THE POINTER TO THE DCB */ 09189000 * DCBPTR = STAEWORK (5:8); 0655 09190000 MVC @TF00001(4),STAEWORK+4(@04) 0655 09191000 L DCBPTR,@TF00001 0655 09192000 */* OBTAIN THE ADDRESS OF THE DEB */ 09193000 * DEBPTR = DCBDEBA; 0656 09194000 L DEBPTR,DCBDEBA+39(,DCBPTR) 0656 09195000 LA DEBPTR,0(,DEBPTR) 0656 09196000 */* ESTABLISH ADDRESSABILITY TO DASD PORTION */ 09197000 * DEBDAPTR = DEBPTR + LENGTH (DEBBASIC); 0657 09198000 LA DEBDAPTR,32 0657 09199000 ALR DEBDAPTR,DEBPTR 0657 09200000 */* ENTER SUPERVISOR STATE */ 09201000 * GEN (MODESET KEY=ZERO); 0658 09202000 MODESET KEY=ZERO 09203000 */* RESET THE NO-ALLOCATE BIT IN THE UCB */ 09204000 * UCBNALOC = OFF; 0659 09205000 L @04,UCBPTR 0659 09206000 NI UCBNALOC(@04),B'11111011' 0659 09207000 */* FREE THE CORE OCCUPIED BY THE ABNORMAL END APPENDAGE */ 09208000 * GEN (DELETE EP=IGG019P2); 0660 09209000 DELETE EP=IGG019P2 09210000 */* ZERO OUT THE HIGH ORDER BYTE IN THE DEB IDENTIFIER */ 09211000 * DEBDEBID = ''B; 0661 09212000 MVI DEBDEBID(DEBPTR),X'00' 0661 09213000 */* ISSUE THE DEBCHK MACRO TO REMOVE DEB FROM DEB TABLE */ 09214000 * RESPECIFY (REG3) RSTD; 0662 09215000 * REG3 = DCBPTR; 0663 09216000 LR REG3,DCBPTR 0663 09217000 * GEN (DEBCHK (REG3),TYPE=DELETE,AM=EXCP); 0664 09218000 DEBCHK (REG3),TYPE=DELETE,AM=EXCP 09219000 * RESPECIFY (REG3) UNRSTD; 0665 09220000 */* OBTAIN THE POINTER TO THE TCB */ 09221000 * ADDRDTCB = CVTPTR -> CVTTCBP; 0666 09222000 L @04,CVTPTR 0666 09223000 L @04,CVTTCBP(,@04) 0666 09224000 ST @04,ADDRDTCB 0666 09225000 * TCBPTR = CURRTCB; 0667 09226000 L TCBPTR,CURRTCB(,@04) 0667 09227000 */* UNCHAIN THE DEB FROM THE DEB QUEUE */ 09228000 * OFDEBPTR = DEBPTR; 0668 09229000 LR OFDEBPTR,DEBPTR 0668 09230000 * DEBPTR = TCBDEB; 0669 09231000 L DEBPTR,TCBDEB(,TCBPTR) 0669 09232000 * DO WHILE DEBPTR ^= OFDEBPTR & DEBPTR ^= NULLPTR; 0670 09233000 * 0670 09234000 B @DE00670 0670 09235000 @DL00670 DS 0H 0671 09236000 * PREVPTR = DEBPTR; 0671 09237000 ST DEBPTR,PREVPTR 0671 09238000 * DEBPTR = DEBDEBAD; 0672 09239000 L DEBPTR,DEBDEBAD(,DEBPTR) 0672 09240000 * END; 0673 09241000 @DE00670 CR DEBPTR,OFDEBPTR 0673 09242000 BE @DC00670 0673 09243000 LTR DEBPTR,DEBPTR 0673 09244000 BNZ @DL00670 0673 09245000 @DC00670 DS 0H 0674 09246000 * IF DEBPTR = OFDEBPTR 0674 09247000 * THEN DO; 0674 09248000 CR DEBPTR,OFDEBPTR 0674 09249000 BNE @RF00674 0674 09250000 * IF DEBPTR = TCBDEB 0676 09251000 * THEN DO; TCBDEB = DEBDEBAD; END; 0676 09252000 C DEBPTR,TCBDEB(,TCBPTR) 0676 09253000 BNE @RF00676 0676 09254000 MVC TCBDEB(4,TCBPTR),DEBDEBAD(DEBPTR) 0678 09255000 * ELSE DO; 0680 09256000 B @RC00676 0680 09257000 @RF00676 DS 0H 0681 09258000 * NEXTPTR = DEBDEBAD; 0681 09259000 L NEXTPTR,DEBDEBAD(,DEBPTR) 0681 09260000 * DEBPTR = PREVPTR; 0682 09261000 L DEBPTR,PREVPTR 0682 09262000 * DEBDEBAD = NEXTPTR; 0683 09263000 ST NEXTPTR,DEBDEBAD(,DEBPTR) 0683 09264000 * END; 0684 09265000 * END; 0685 09266000 @RC00676 DS 0H 0686 09267000 */* GET BACK INTO PROBLEM PROGRAM STATE */ 09268000 * GEN (MODESET KEY=NZERO); 0686 09269000 @RF00674 DS 0H 0686 09270000 MODESET KEY=NZERO 09271000 */* SET THE RETURN CODE TO INDICATE NO RETRY */ 09272000 * RETRYPTR = NULLPTR; 0687 09273000 SLR @15,@15 0687 09274000 L @14,@PC00001+32 0687 09275000 ST @15,RETRYPTR(,@14) 0687 09276000 * RSTCODE = 0; 0688 09277000 L @14,@PC00001+36 0688 09278000 ST @15,RSTCODE(,@14) 0688 09279000 */* END-SUB-PROCEDURE SET_VOLUME_STATUS */ 09280000 * CALL ICKSAEP0(GDTTBL,MODID); 0689 09281000 * 0689 09282000 * 0689 09283000 L @15,@PC00001 0689 09284000 ST @15,@AL00001 0689 09285000 LA @14,MODID 0689 09286000 ST @14,@AL00001+4 0689 09287000 MVI @AL00001+4,X'80' 0689 09288000 L @15,GDTEPL(,@15) 0689 09289000 LA @01,@AL00001 0689 09290000 BALR @14,@15 0689 09291000 * END ICKDV01 0690 09292000 */* THE FOLLOWING INCLUDE STATEMENTS WERE FOUND IN THIS PROGRAM. * 09293000 */*%INCLUDE SYSLIB (DMSDF01 ) * 09294000 */*%INCLUDE SYSLIB (DMSDF00 ) * 09295000 */*@INCLUDE SYSLIB (DMSDF02 ) * 09296000 */*%INCLUDE SYSLIB (DMSDF10 ) * 09297000 */*%INCLUDE SYSLIB (IHADCBDF) * 09298000 */*%INCLUDE SYSLIB (IHADCB ) * 09299000 */*%INCLUDE SYSLIB (IEZDEB ) * 09300000 */*%INCLUDE SYSLIB (IHAECB ) * 09301000 */*%INCLUDE SYSLIB (IEZIOB ) * 09302000 */*%INCLUDE SYSLIB (IEFUCBOB) * 09303000 */*%INCLUDE SYSLIB (IEFJFCBN) * 09304000 */*%INCLUDE SYSLIB (CVT ) * 09305000 */*%INCLUDE SYSLIB (IKJTCB ) * 09306000 *; 0690 09307000 @DATA DS 0H 09308000 @CH00053 DC H'4' 09309000 @CH03254 DC XL2'FFFF' 09310000 DS 0F 09311000 @AL00350 DC A(PERMILEN) LIST WITH 5 ARGUMENT(S) 09312000 DS F 09313000 DC A(NOROUT) 09314000 DC A(NODESC) 09315000 DC A(REPLYLEN) 09316000 @DATD DSECT 09317000 DS 0F 09318000 @SA00001 DS 18F 09319000 @PC00001 DS 10F 09320000 @SA00002 DS 15F 09321000 @AL00001 DS 9A 09322000 @TF00001 DS F 09323000 @AFTEMPS DS 2F 09324000 @ZTEMPS DS 0F 09325000 @ZT00002 DC F'0' 09326000 @ZTEMPND EQU * 09327000 @ZLEN EQU @ZTEMPND-@ZTEMPS 09328000 ICKDV01 CSECT 09329000 DS 0F 09330000 @CF00103 DC F'0' 09331000 @CF00174 DC F'1' 09332000 @CH00174 EQU @CF00174+2 09333000 @CF00125 DC F'2' 09334000 @CH00125 EQU @CF00125+2 09335000 @CF00145 DC F'3' 09336000 @CF00170 DC F'8' 09337000 @CF00274 DC F'12' 09338000 @CF00176 DC F'15' 09339000 @CF00518 DC F'40' 09340000 @CF03336 DC F'84' 09341000 @CF03333 DC F'273' 09342000 @CF03308 DC F'2048' 09343000 @DATD DSECT 09344000 DS 0D 09345000 LISTSCAN DS A 09346000 IOCSPTR DS A 09347000 OPNPTR DS A 09348000 DDSTRU DS A 09349000 FSADDR DS A 09350000 DMPINDEX DS A 09351000 APIPTR DS A 09352000 DATAPTR DS A 09353000 DEBEXPTR DS A 09354000 DEBSBPTR DS A 09355000 IOBPRPTR DS A 09356000 IOBSTPTR DS A 09357000 UCBPTR DS A 09358000 GETMPTR DS A 09359000 TRKCCHH DS F 09360000 RECNUM DS F 09361000 DATALEN DS F 09362000 PREVPTR DS A 09363000 PTRSTAE DS A 09364000 LENSTAE DS F 09365000 CBLEN DS F 09366000 RETCODE DS F 09367000 ADDRDTCB DS A 09368000 CHANADDR DS F 09369000 DVCEADDR DS F 09370000 EXITPTR DS A 09371000 I DS F 09372000 IECILK1 DS F 09373000 IECILK2 DS F 09374000 LISTPTR DS A 09375000 UNITADDR DS F 09376000 SETRC DS H 09377000 DEVTYPE DS FL1 09378000 LISTLN DS FL1 09379000 @TS00001 DS CL95 09380000 CBPOOLS DS CL4 09381000 ORG CBPOOLS 09382000 CBPOOLA DS CL1 09383000 CBPOOLB DS FL1 09384000 CBPOOLC DS CL2 09385000 ORG CBPOOLS+4 09386000 DS CL1 09387000 PRTSTR DS CL28 09388000 ORG PRTSTR 09389000 PRTHDR DS CL8 09390000 PRTARGS DS CL20 09391000 ORG PRTSTR+28 09392000 OPENLIST DS CL4 09393000 GETMLIST DS CL10 09394000 ORG GETMLIST 09395000 GETMSZ DS FL4 09396000 GETMPT DS AL4 09397000 GETMFLG DS CL2 09398000 ORG GETMLIST+10 09399000 DS CL2 09400000 ENQLIST DS CL8 09401000 FLAGUCB DS BL1 09402000 ALLOCUCB DS BL1 09403000 DS CL2 09404000 JOBFAREA DS CL176 09405000 JOBFXLST DS CL4 09406000 ORG JOBFXLST 09407000 JOBFCODE DS BL1 09408000 JOBFPTR DS AL3 09409000 ORG JOBFXLST+4 09410000 WORKSTA DS CL8 09411000 ORG WORKSTA 09412000 WORKUCB DS AL4 09413000 WORKDCB DS AL4 09414000 ORG WORKSTA+8 09415000 PERMIT DS CL52 09416000 ORG PERMIT 09417000 PERMITA DS CL29 09418000 PERMITB DS CL3 09419000 PERMITC DS CL20 09420000 ORG PERMIT+52 09421000 REPLY DS CL1 09422000 CONFIELD DS CL8 09423000 DS CL3 09424000 INFO DS CL12 09425000 ORG INFO+0 09426000 INFOPTR DS AL4 09427000 INFOLEN DS FL4 09428000 CODE DS FL4 09429000 ORG INFO+36 09430000 ICKDV01 CSECT 09431000 DS 0F 09432000 @SIZDATD DC AL1(0) 09433000 DC AL3(@ENDDATD-@DATD) 09434000 @CA03292 DC A(RSTVOL) 09435000 DS 0D 09436000 PERMILEN DC AL2(52) 09437000 NOROUT DC AL2(0) 09438000 NODESC DC AL2(0) 09439000 REPLYLEN DC AL1(1) 09440000 @CC03260 DC C'ICK004D READY OFFLINE DEVICE XXX AND REPLY U, ELSE T' 09441000 @CC03249 DC C'SYSIEFSD' 09442000 @CC03276 DC C'DARGLIST' 09443000 @CC00154 DC C'ZERO' 09444000 @CC03140 DC C'DV01' 09445000 @CC03316 DC C'DV19' 09446000 @CC03320 DC C'DV1D' 09447000 @CC03331 DC C'DV1V' 09448000 @CC03150 EQU @CC03140 09449000 @CC03152 DC C'IO0' 09450000 @CC03293 DC C'SET' 09451000 @CC03251 DC C'Q4' 09452000 @CC03279 DC C'PG' 09453000 @CB03256 DC X'0000' 09454000 @CB03311 DC X'7FFF' 09455000 MODID DC CL4'DV01' 09456000 MSS DC CL8'MSS' 09457000 DSCB4KEY DS CL44 09458000 ORG DSCB4KEY 09459000 @NM00064 DC 44X'04' 09460000 ORG DSCB4KEY+44 09461000 PTCHDV01 DS CL256 09462000 ORG PTCHDV01 09463000 @NM00066 DC 256X'00' 09464000 ORG PTCHDV01+256 09465000 DS CL3 09466000 INFOVECT DC F'201' 09467000 DC F'202' 09468000 DC F'207' 09469000 @DATD DSECT 09470000 ICKDV01 CSECT 09471000 LGENDCB DCB DSORG=PS,DEVD=DA,MACRF=(E), CC09472000 XENDA=P2 09473000 LGENOPEN OPEN (,(UPDAT)),MF=L,TYPE=J 09474000 LGENENQ ENQ (,,E,2,SYSTEM),RET=USE,MF=L 09475000 @DATD DSECT 09476000 ICKDV01 CSECT 09477000 GETMGEN DC A(0) 09478000 DC AL1(0) 09479000 DC AL3(GETMGEN) 09480000 DC X'20' 09481000 DC AL1(230) 09482000 @DATD DSECT 09483000 ORG *+1-(*-@DATD)/(*-@DATD) INSURE DSECT DATA 09484000 @ENDDATD EQU * 09485000 ICKDV01 CSECT 09486000 @00 EQU 00 EQUATES FOR REGISTERS 0-15 09487000 @01 EQU 01 09488000 @02 EQU 02 09489000 @03 EQU 03 09490000 @04 EQU 04 09491000 @05 EQU 05 09492000 @06 EQU 06 09493000 @07 EQU 07 09494000 @08 EQU 08 09495000 @09 EQU 09 09496000 @10 EQU 10 09497000 @11 EQU 11 09498000 @12 EQU 12 09499000 @13 EQU 13 09500000 @14 EQU 14 09501000 @15 EQU 15 09502000 NEXTPTR EQU @06 09503000 ADDRUCB EQU @05 09504000 OFDEBPTR EQU @07 09505000 ABAPPLEN EQU @06 09506000 GETMRC EQU @05 09507000 TCBPTR EQU @06 09508000 JFCBPTR EQU @05 09509000 ECBPTR EQU @05 09510000 DEBDAPTR EQU @06 09511000 DEBPTR EQU @05 09512000 DCBPTR EQU @07 09513000 TESTRC EQU @05 09514000 REG11 EQU @11 09515000 REG12 EQU @12 09516000 RTNREG EQU @15 09517000 REG0 EQU @00 09518000 REG1 EQU @01 09519000 REG2 EQU @02 09520000 REG3 EQU @03 09521000 REG4 EQU @04 09522000 REG13 EQU @13 09523000 REG14 EQU @14 09524000 REG15 EQU @15 09525000 REG10 EQU @10 09526000 REG5 EQU @05 09527000 REG6 EQU @06 09528000 REG7 EQU @07 09529000 REG8 EQU @08 09530000 REG9 EQU @09 09531000 CVTPTR EQU 16 09532000 ICKSAEP0 EQU 0 09533000 ICKSAGP0 EQU 0 09534000 ICKSAFP0 EQU 0 09535000 ICKSAWO0 EQU 0 09536000 ICKSAST0 EQU 0 09537000 TRACE1 EQU 0 09538000 OLDERID1 EQU TRACE1 09539000 TRACE2 EQU 0 09540000 OLDERID2 EQU TRACE2 09541000 NEWID2 EQU TRACE2+95 09542000 NEWERID2 EQU 5 09543000 STAEPARM EQU 0 09544000 STAEPFX EQU STAEPARM 09545000 STAEPA EQU STAEPFX+12 09546000 STAID EQU STAEPFX+16 09547000 STALEN EQU STAEPFX+20 09548000 STAEWORK EQU STAEPARM+32 09549000 IOCSTR EQU 0 09550000 IOCDSO EQU IOCSTR+13 09551000 IOCRFM EQU IOCSTR+14 09552000 IOCMAC EQU IOCSTR+15 09553000 IOCMSG EQU IOCSTR+16 09554000 OPNAGL EQU 0 09555000 OPNOPT EQU OPNAGL 09556000 OPNRFM EQU OPNAGL+1 09557000 OPNTYP EQU OPNAGL+2 09558000 OPNMOD EQU OPNAGL+3 09559000 UVOLLIST EQU 0 09560000 UVOLENT EQU UVOLLIST+2 09561000 ICKDVOP0 EQU 0 09562000 ICKDVCL0 EQU 0 09563000 ICKTPPR0 EQU 0 09564000 DARGLIST EQU 0 09565000 DARGSTID EQU DARGLIST+8 09566000 DARGSMOD EQU DARGSTID 09567000 DARGSENT EQU DARGSTID+3 09568000 DARGARY EQU DARGLIST+20 09569000 DARGINS EQU DARGARY 09570000 DARGINL EQU DARGARY+2 09571000 FMTLIST EQU 0 09572000 FMTFLGS EQU FMTLIST 09573000 FMTSPF EQU FMTLIST+2 09574000 FMTRFNO EQU FMTSPF 09575000 FMTILEN EQU FMTRFNO 09576000 FMTIOFF EQU FMTLIST+4 09577000 FMTTRBC EQU FMTIOFF 09578000 FMTSTO EQU FMTTRBC 09579000 FMTOCOL EQU FMTLIST+6 09580000 FMTCNVF EQU FMTLIST+10 09581000 ICKDB010 EQU 0 09582000 DMPITM EQU 0 09583000 DMPARY EQU 0 09584000 VOLIB EQU 0 09585000 VLFPTR EQU VOLIB 09586000 VLBPTR EQU VOLIB+4 09587000 VLIOBPTR EQU VOLIB+16 09588000 VLDNMCUU EQU VOLIB+20 09589000 VLUCBDT EQU VOLIB+28 09590000 VLDEVTYP EQU VLUCBDT+3 09591000 VLDEVIND EQU VOLIB+32 09592000 VLPRVOL EQU VOLIB+33 09593000 VLFINIT EQU VOLIB+34 09594000 VLSTATE EQU VOLIB+35 09595000 VLNTYP EQU VOLIB+36 09596000 VLNUMBER EQU VOLIB+37 09597000 APINFO EQU 0 09598000 CNTBLKS EQU 0 09599000 CBECB EQU CNTBLKS+40 09600000 CBIOB EQU CNTBLKS+44 09601000 CBDCB EQU CNTBLKS+84 09602000 DEVSENSE EQU 0 09603000 BYTE0 EQU DEVSENSE 09604000 BYTE1 EQU DEVSENSE+1 09605000 BYTE2 EQU DEVSENSE+2 09606000 SENRPSPR EQU BYTE2 09607000 SEN3344 EQU BYTE2 09608000 SENMB35 EQU BYTE2 09609000 IHADCB EQU 0 09610000 IHADCS00 EQU 0 09611000 DCBFDAD EQU IHADCS00+5 09612000 IHADCS01 EQU 0 09613000 DCBDVTBL EQU IHADCS01 09614000 IHADCS11 EQU 0 09615000 DCBRELB EQU IHADCS11 09616000 DCBREL EQU DCBRELB+1 09617000 DCBBUFCB EQU IHADCS11+4 09618000 DCBDSORG EQU IHADCS11+10 09619000 DCBDSRG1 EQU DCBDSORG 09620000 DCBDSRG2 EQU DCBDSORG+1 09621000 DCBIOBAD EQU IHADCS11+12 09622000 DCBODEB EQU DCBIOBAD 09623000 DCBLNP EQU DCBODEB 09624000 DCBQSLM EQU DCBLNP 09625000 DCBIOBAA EQU DCBODEB+1 09626000 IHADCS50 EQU 0 09627000 DCBSVCXL EQU IHADCS50 09628000 DCBEODAD EQU IHADCS50+4 09629000 DCBBFALN EQU DCBEODAD 09630000 DCBHIARC EQU DCBBFALN 09631000 DCBBFTEK EQU DCBHIARC 09632000 DCBBFT EQU DCBBFTEK 09633000 DCBEXLST EQU IHADCS50+8 09634000 DCBRECFM EQU DCBEXLST 09635000 DCBRECLA EQU DCBRECFM 09636000 IHADCS24 EQU 0 09637000 DCBDDNAM EQU IHADCS24 09638000 DCBOFLGS EQU IHADCS24+8 09639000 DCBOFLWR EQU DCBOFLGS 09640000 DCBOFOPN EQU DCBOFLGS 09641000 DCBIFLG EQU IHADCS24+9 09642000 DCBIBPCT EQU DCBIFLG 09643000 DCBMACR EQU IHADCS24+10 09644000 DCBMACR1 EQU DCBMACR 09645000 DCBMRFE EQU DCBMACR1 09646000 DCBMRGET EQU DCBMRFE 09647000 DCBMRAPG EQU DCBMACR1 09648000 DCBMRRD EQU DCBMRAPG 09649000 DCBMRCI EQU DCBMACR1 09650000 DCBMRMVG EQU DCBMRCI 09651000 DCBMRLCG EQU DCBMACR1 09652000 DCBMRABC EQU DCBMACR1 09653000 DCBMRPT1 EQU DCBMRABC 09654000 DCBMRSBG EQU DCBMRPT1 09655000 DCBMRCRL EQU DCBMACR1 09656000 DCBMRCHK EQU DCBMRCRL 09657000 DCBMRRDX EQU DCBMRCHK 09658000 DCBMRDMG EQU DCBMACR1 09659000 DCBMACR2 EQU DCBMACR+1 09660000 DCBMRPUT EQU DCBMACR2 09661000 DCBMRWRT EQU DCBMACR2 09662000 DCBMRMVP EQU DCBMACR2 09663000 DCBMR5WD EQU DCBMACR2 09664000 DCBMRLDM EQU DCBMR5WD 09665000 DCBMRLCP EQU DCBMRLDM 09666000 DCBMR4WD EQU DCBMACR2 09667000 DCBMRPT2 EQU DCBMR4WD 09668000 DCBMRTMD EQU DCBMRPT2 09669000 DCBMR3WD EQU DCBMACR2 09670000 DCBMRCTL EQU DCBMR3WD 09671000 DCBMRSTK EQU DCBMRCTL 09672000 DCBMR1WD EQU DCBMACR2 09673000 DCBMRSWA EQU DCBMR1WD 09674000 DCBMRDMD EQU DCBMRSWA 09675000 IHADCS25 EQU 0 09676000 DCBMACRF EQU IHADCS25+2 09677000 DCBMACF1 EQU DCBMACRF 09678000 DCBMFFE EQU DCBMACF1 09679000 DCBMFGET EQU DCBMFFE 09680000 DCBMFAPG EQU DCBMACF1 09681000 DCBMFRD EQU DCBMFAPG 09682000 DCBMFCI EQU DCBMACF1 09683000 DCBMFMVG EQU DCBMFCI 09684000 DCBMFLCG EQU DCBMACF1 09685000 DCBMFABC EQU DCBMACF1 09686000 DCBMFPT1 EQU DCBMFABC 09687000 DCBMFSBG EQU DCBMFPT1 09688000 DCBMFCRL EQU DCBMACF1 09689000 DCBMFCHK EQU DCBMFCRL 09690000 DCBMFDMG EQU DCBMACF1 09691000 DCBMACF2 EQU DCBMACRF+1 09692000 DCBMFPUT EQU DCBMACF2 09693000 DCBMFWRT EQU DCBMACF2 09694000 DCBMFMVP EQU DCBMACF2 09695000 DCBMF5WD EQU DCBMACF2 09696000 DCBMFLDM EQU DCBMF5WD 09697000 DCBMFLCP EQU DCBMFLDM 09698000 DCBMF4WD EQU DCBMACF2 09699000 DCBMFPT2 EQU DCBMF4WD 09700000 DCBMFTMD EQU DCBMFPT2 09701000 DCBMF3WD EQU DCBMACF2 09702000 DCBMFCTL EQU DCBMF3WD 09703000 DCBMFSTK EQU DCBMFCTL 09704000 DCBMF1WD EQU DCBMACF2 09705000 DCBMFSWA EQU DCBMF1WD 09706000 DCBMFDMD EQU DCBMFSWA 09707000 DCBDEBAD EQU IHADCS25+4 09708000 DCBIFLGS EQU DCBDEBAD 09709000 DCBIFPCT EQU DCBIFLGS 09710000 DCBDEBA EQU DCBDEBAD+1 09711000 IHADCS28 EQU 0 09712000 DCBOPTCD EQU IHADCS28 09713000 DCBOPTZ EQU DCBOPTCD 09714000 IHADCS44 EQU 0 09715000 DEBBASIC EQU 0 09716000 DEBTCBAD EQU DEBBASIC 09717000 DEBDEBAD EQU DEBBASIC+4 09718000 DEBIRBAD EQU DEBBASIC+8 09719000 DEBOFLGS EQU DEBIRBAD 09720000 DEBOPATB EQU DEBBASIC+12 09721000 DEBFLGS1 EQU DEBBASIC+14 09722000 DEBUSRPG EQU DEBBASIC+16 09723000 DEBNMEXT EQU DEBUSRPG 09724000 DEBRRQ EQU DEBBASIC+20 09725000 DEBECBAD EQU DEBRRQ 09726000 DEBDCBAD EQU DEBBASIC+24 09727000 DEBPROTG EQU DEBDCBAD 09728000 DEBDEBID EQU DEBPROTG 09729000 DEBAPPAD EQU DEBBASIC+28 09730000 DEBBASND EQU DEBBASIC+32 09731000 DEBDASD EQU 0 09732000 DEBUCBAD EQU DEBDASD 09733000 DEBDVMOD EQU DEBUCBAD 09734000 DEBSTRCC EQU DEBDASD+6 09735000 DEBSTRHH EQU DEBDASD+8 09736000 DEBENDCC EQU DEBDASD+10 09737000 DEBENDHH EQU DEBDASD+12 09738000 DEBNMTRK EQU DEBDASD+14 09739000 DEBACSMD EQU 0 09740000 DEBVOLSQ EQU DEBACSMD 09741000 DEBVOLBT EQU DEBVOLSQ 09742000 DEBDSNM EQU DEBACSMD+4 09743000 DEBUTSAA EQU DEBDSNM 09744000 DEBACS01 EQU 0 09745000 DEBDSNAM EQU DEBACS01 09746000 DEBACS02 EQU 0 09747000 DEBDBLK EQU DEBACS02 09748000 DEBACS03 EQU 0 09749000 DEBACS04 EQU 0 09750000 DEBTBFRA EQU DEBACS04 09751000 DEBTCCWA EQU DEBACS04+4 09752000 DEBACS05 EQU 0 09753000 DEBFUCBA EQU DEBACS05 09754000 DEBLUCBA EQU DEBACS05+4 09755000 DEBACS06 EQU 0 09756000 DEBACS07 EQU 0 09757000 DEBACS08 EQU 0 09758000 DEBSUBNM EQU 0 09759000 DEB EQU 0 09760000 DEBAVT EQU DEB 09761000 DEBEOEA EQU DEBAVT 09762000 DEBEOEAB EQU DEBEOEA 09763000 DEBSIOA EQU DEBAVT+4 09764000 DEBSIOAB EQU DEBSIOA 09765000 DEBPCIA EQU DEBAVT+8 09766000 DEBPCIAB EQU DEBPCIA 09767000 DEBCEA EQU DEBAVT+12 09768000 DEBCEAB EQU DEBCEA 09769000 DEBXCEA EQU DEBAVT+16 09770000 DEBXCEAB EQU DEBXCEA 09771000 DEBXCEAD EQU DEBXCEA+1 09772000 DEBPREFX EQU DEB+20 09773000 DEBXTNP EQU DEBPREFX+8 09774000 DEBXTN EQU 0 09775000 DEBXFLG1 EQU DEBXTN+2 09776000 ECB EQU 0 09777000 ECBRB EQU ECB 09778000 ECBEVTB EQU ECBRB 09779000 ECBEXTB EQU ECBEVTB 09780000 ECBCC EQU ECBEXTB 09781000 ECBCCCNT EQU ECBEXTB+1 09782000 ECBRBA EQU ECBCCCNT 09783000 ECBEVTBA EQU ECBRBA 09784000 ECBEXTBA EQU ECBEVTBA 09785000 ECBBYTE3 EQU ECBEXTBA+2 09786000 ECBEXTND EQU ECBBYTE3 09787000 IOBPREFX EQU 0 09788000 IOBCFLG1 EQU IOBPREFX 09789000 IOBSTDRD EQU 0 09790000 IOBFLAG1 EQU IOBSTDRD 09791000 IOBDATCH EQU IOBFLAG1 09792000 IOBCMDCH EQU IOBFLAG1 09793000 IOBCYCCK EQU IOBFLAG1 09794000 IOBUNREL EQU IOBFLAG1 09795000 IOBRSTRT EQU IOBFLAG1 09796000 IOBFLAG2 EQU IOBSTDRD+1 09797000 IOBPURGE EQU IOBFLAG2 09798000 IOBRDHA0 EQU IOBFLAG2 09799000 IOBSENS0 EQU IOBSTDRD+2 09800000 IOBS0B7 EQU IOBSENS0 09801000 IOBSENS1 EQU IOBSTDRD+3 09802000 IOBECBPT EQU IOBSTDRD+4 09803000 IOBFLAG3 EQU IOBSTDRD+8 09804000 IOBFL3 EQU IOBFLAG3 09805000 IOBCNC EQU IOBFL3 09806000 IOBICL EQU IOBFL3 09807000 IOBCSW EQU IOBSTDRD+9 09808000 IOBIOCSW EQU IOBCSW 09809000 IOBSTBYT EQU IOBIOCSW+3 09810000 IOBUSTAT EQU IOBSTBYT 09811000 IOBCSTAT EQU IOBSTBYT+1 09812000 IOBSTART EQU IOBSTDRD+16 09813000 IOBDCBPT EQU IOBSTDRD+20 09814000 IOBFLAG4 EQU IOBDCBPT 09815000 IOBRESTR EQU IOBSTDRD+24 09816000 IOBINCAM EQU IOBSTDRD+28 09817000 IOBBTAMF EQU IOBINCAM 09818000 UCB EQU 0 09819000 UCBOB EQU 0 09820000 UCBJBNR EQU UCBOB 09821000 UCBFL5 EQU UCBOB+1 09822000 UCBAF EQU UCBFL5 09823000 UCBNALOC EQU UCBFL5 09824000 UCBSTAT EQU UCBOB+3 09825000 UCBONLI EQU UCBSTAT 09826000 UCBCHAN EQU UCBOB+4 09827000 UCBSFLS EQU UCBOB+6 09828000 UCBFLA EQU UCBSFLS 09829000 UCBFL1 EQU UCBFLA 09830000 UCBBSY EQU UCBFL1 09831000 UCBNRY EQU UCBFL1 09832000 UCBNOTRD EQU UCBNRY 09833000 UCBPST EQU UCBFL1 09834000 UCBCUB EQU UCBFL1 09835000 UCBFLB EQU UCBSFLS+1 09836000 UCBCHM EQU UCBOB+8 09837000 UCBCHM1 EQU UCBCHM 09838000 UCBPTH0 EQU UCBCHM1 09839000 UCBPTH1 EQU UCBCHM1 09840000 UCBWGT EQU UCBOB+12 09841000 UCBNAME EQU UCBOB+13 09842000 UCBTYP EQU UCBOB+16 09843000 UCBTBYT1 EQU UCBTYP 09844000 UCB1FEA5 EQU UCBTBYT1 09845000 UCB1FEA6 EQU UCBTBYT1 09846000 UCBTBYT2 EQU UCBTYP+1 09847000 UCB2OPT2 EQU UCBTBYT2 09848000 UCBDUDN1 EQU UCB2OPT2 09849000 UCB2OPT3 EQU UCBTBYT2 09850000 UCBDUDN2 EQU UCB2OPT3 09851000 UCB2OPT4 EQU UCBTBYT2 09852000 UCBRWTAU EQU UCB2OPT4 09853000 UCB2OPT6 EQU UCBTBYT2 09854000 UCB2OPT7 EQU UCBTBYT2 09855000 UCBTBYT3 EQU UCBTYP+2 09856000 UCBDVCLS EQU UCBTBYT3 09857000 UCBTBYT4 EQU UCBTYP+3 09858000 UCBEXTPT EQU UCBOB+20 09859000 UCBFLC EQU UCBEXTPT 09860000 UCBDEV EQU UCBOB+24 09861000 UCBCMEXT EQU 0 09862000 UCBATI EQU UCBCMEXT+3 09863000 @NM00053 EQU UCBATI 09864000 UCBFLP1 EQU UCBCMEXT+5 09865000 UCBMT EQU 0 09866000 UCBOCR EQU 0 09867000 UCB3540X EQU 0 09868000 UCBDKBYT EQU UCB3540X+6 09869000 UCB3800X EQU 0 09870000 UCBOPTNS EQU UCB3800X 09871000 UCBACTIV EQU UCB3800X+3 09872000 UCBMDRBF EQU UCB3800X+36 09873000 UCBUCS EQU 0 09874000 UCBUCSOP EQU UCBUCS+4 09875000 UCBFCBOP EQU UCBUCS+5 09876000 INFMJFCB EQU 0 09877000 JFCBDSNM EQU INFMJFCB 09878000 JFCBELNM EQU INFMJFCB+44 09879000 JFCBTSDM EQU INFMJFCB+52 09880000 JFCNWRIT EQU JFCBTSDM 09881000 JFCFCBID EQU INFMJFCB+56 09882000 JFCBFRID EQU JFCFCBID 09883000 JFCBLTYP EQU INFMJFCB+66 09884000 JFCBOTTR EQU INFMJFCB+67 09885000 JFCBUFOF EQU JFCBOTTR 09886000 JFCBFLSQ EQU JFCBOTTR+1 09887000 JFCFUNC EQU JFCBFLSQ 09888000 JFCBMASK EQU INFMJFCB+72 09889000 JFCBFLG1 EQU JFCBMASK+5 09890000 JFCOPEN EQU JFCBFLG1 09891000 JFCBFLG2 EQU JFCBMASK+6 09892000 JFCDEFER EQU JFCBFLG2 09893000 JFCBIND1 EQU INFMJFCB+86 09894000 JFCBIND2 EQU INFMJFCB+87 09895000 JFCAMPTR EQU INFMJFCB+88 09896000 JFCBUFRQ EQU JFCAMPTR 09897000 JFCBUFNO EQU JFCBUFRQ 09898000 JFCBGNCP EQU JFCAMPTR+1 09899000 JFCBHIAR EQU JFCBGNCP 09900000 JFCBFALN EQU JFCBHIAR 09901000 JFCBFTEK EQU JFCBFALN 09902000 JFCBBFTA EQU JFCBFTEK 09903000 JFCEROPT EQU INFMJFCB+92 09904000 JFCTRTCH EQU INFMJFCB+93 09905000 CVTMAP EQU 0 09906000 CVTTCBP EQU CVTMAP 09907000 CVTXAPG EQU CVTMAP+20 09908000 CVTILK2 EQU CVTMAP+40 09909000 CVTDAR EQU CVTMAP+72 09910000 CVTFLGS1 EQU CVTDAR 09911000 CVTSVDCB EQU CVTMAP+84 09912000 CVTDCB EQU CVTMAP+116 09913000 CVTIOQET EQU CVTMAP+120 09914000 CVTIERLC EQU CVTMAP+144 09915000 CVTHEAD EQU CVTMAP+160 09916000 CVTSV76C EQU CVTHEAD 09917000 CVTOPTA EQU CVTMAP+182 09918000 CVTOPTB EQU CVTMAP+183 09919000 CVTGTF EQU CVTMAP+236 09920000 CVTGTFST EQU CVTGTF 09921000 CVTGTFS EQU CVTGTFST 09922000 CVTSTATE EQU CVTGTFST 09923000 CVTTMODE EQU CVTGTFST 09924000 CVTFORM EQU CVTGTFST 09925000 CVTAQAVT EQU CVTMAP+240 09926000 CVTTCMFG EQU CVTAQAVT 09927000 CVTVOLM2 EQU CVTMAP+244 09928000 CVTTATA EQU CVTVOLM2 09929000 CVTTSKS EQU CVTTATA 09930000 CVTVOLF2 EQU CVTTSKS 09931000 CVTTAT EQU CVTTATA+1 09932000 CVTATER EQU CVTMAP+248 09933000 CVTEXT1 EQU CVTMAP+252 09934000 CVTPURG EQU CVTMAP+260 09935000 CVTQMSG EQU CVTMAP+268 09936000 CVTDMSR EQU CVTMAP+272 09937000 CVTRSV37 EQU CVTDMSR 09938000 CVTDMSRF EQU CVTRSV37 09939000 CVTERPV EQU CVTMAP+316 09940000 CVTINTLA EQU CVTMAP+320 09941000 CVTAPF EQU CVTMAP+324 09942000 CVTEXT2 EQU CVTMAP+328 09943000 CVTHJES EQU CVTMAP+332 09944000 CVTPGSIA EQU CVTMAP+348 09945000 CVTA1F1 EQU CVTMAP+356 09946000 CVTSYSK EQU CVTMAP+357 09947000 CVTVOLM1 EQU CVTMAP+380 09948000 CVTVOLF1 EQU CVTVOLM1 09949000 CVTATMCT EQU CVTMAP+388 09950000 CVTXTNT1 EQU 0 09951000 CVTXTNT2 EQU 0 09952000 CVTDSSV EQU CVTXTNT2 09953000 CVTFLGBT EQU CVTXTNT2+5 09954000 CVTQID EQU CVTXTNT2+24 09955000 CVTRV400 EQU CVTXTNT2+52 09956000 CVTRV409 EQU CVTXTNT2+53 09957000 CVTATCVT EQU CVTXTNT2+64 09958000 CVTRV429 EQU CVTXTNT2+84 09959000 CVTRV438 EQU CVTXTNT2+85 09960000 CVTRV457 EQU CVTXTNT2+112 09961000 CVTRV466 EQU CVTXTNT2+113 09962000 CVTFIX EQU 0 09963000 CVTRELNO EQU CVTFIX+252 09964000 TCBFIX EQU 0 09965000 TCBFRS EQU TCBFIX 09966000 TCB EQU 0 09967000 TCBPIE EQU TCB+4 09968000 TCBPMASK EQU TCBPIE 09969000 TCBDEB EQU TCB+8 09970000 TCBCMP EQU TCB+16 09971000 TCBCMPF EQU TCBCMP 09972000 TCBCPP EQU TCBCMPF 09973000 TCBSTCC EQU TCBCMPF 09974000 TCBCDBL EQU TCBCMPF 09975000 TCBCWTO EQU TCBCMPF 09976000 TCBCIND EQU TCBCMPF 09977000 TCBCMSG EQU TCBCMPF 09978000 TCBTRN EQU TCB+20 09979000 TCBABF EQU TCBTRN 09980000 TCBMSS EQU TCB+24 09981000 TCBPKF EQU TCB+28 09982000 TCBFLGS EQU TCB+29 09983000 TCBFLGS1 EQU TCBFLGS 09984000 TCBFLGS2 EQU TCBFLGS+1 09985000 TCBFLGS3 EQU TCBFLGS+2 09986000 TCBFLGS4 EQU TCBFLGS+3 09987000 TCBFLGS5 EQU TCBFLGS+4 09988000 TCBABWF EQU TCBFLGS5 09989000 TCBJPQ EQU TCB+44 09990000 TCBPURGE EQU TCBJPQ 09991000 TCBGRS EQU TCB+48 09992000 TCBFSA EQU TCB+112 09993000 TCBTME EQU TCB+120 09994000 TCBJSTCB EQU TCB+124 09995000 TCBTSFLG EQU TCB+148 09996000 TCBTSTSK EQU TCBTSFLG 09997000 TCBSTAB EQU TCB+160 09998000 TCBNSTAE EQU TCBSTAB 09999000 TCBTCT EQU TCB+164 10000000 TCBTCTGF EQU TCBTCT 10001000 TCBSCNDY EQU TCB+172 10002000 TCBNDSP EQU TCBSCNDY 10003000 TCBNDSP1 EQU TCBNDSP+1 10004000 TCBNDSP2 EQU TCBNDSP+2 10005000 TCBNDSP3 EQU TCBNDSP+3 10006000 TCBJSCB EQU TCB+180 10007000 TCBRECDE EQU TCBJSCB 10008000 TCBEXT1 EQU TCB+196 10009000 TCBBITS EQU TCB+200 10010000 TCBNDSP4 EQU TCBBITS 10011000 TCBNDSP5 EQU TCBBITS+1 10012000 TCBFLGS6 EQU TCBBITS+2 10013000 TCBFLGS7 EQU TCBBITS+3 10014000 TCBDAR EQU TCB+204 10015000 TCBDARC EQU TCBDAR 10016000 TCBEXT2 EQU TCB+208 10017000 TCBFOE EQU TCB+244 10018000 TCBESTAE EQU TCB+264 10019000 TCBESTRM EQU TCBESTAE+1 10020000 TCBFBYT1 EQU TCB+276 10021000 TCBFBYT2 EQU TCB+277 10022000 TCBRV124 EQU TCB+278 10023000 TCBRV133 EQU TCB+279 10024000 TCBXTNT2 EQU 0 10025000 TCBGTF EQU TCBXTNT2 10026000 TCBTFLG EQU TCBGTF 10027000 TCBRV146 EQU TCBXTNT2+28 10028000 TCBRV155 EQU TCBXTNT2+29 10029000 TCBRV164 EQU TCBXTNT2+30 10030000 TCBRV173 EQU TCBXTNT2+31 10031000 CBPOOLID EQU 0 10032000 APPCVT EQU 0 10033000 VIBIMAGE EQU 0 10034000 LOOKUCB EQU 0 10035000 FINALT EQU 0 10036000 DWRDTCB EQU 0 10037000 CURRTCB EQU DWRDTCB+4 10038000 DMPTRM EQU 0 10039000 ICKDVIN0 EQU 0 10040000 ICKDVON0 EQU 0 10041000 ICKIOCL0 EQU 0 10042000 ICKIOGT0 EQU 0 10043000 ICKIOIT0 EQU 0 10044000 ICKIOOP0 EQU 0 10045000 ICKIOPT0 EQU 0 10046000 ICKIOTM0 EQU 0 10047000 ICKSACL0 EQU 0 10048000 ICKSADE0 EQU 0 10049000 ICKSAFS0 EQU 0 10050000 ICKSAGS0 EQU 0 10051000 ICKSALD0 EQU 0 10052000 ICKSAPR0 EQU 0 10053000 ICKSASC0 EQU 0 10054000 ICKSASN0 EQU 0 10055000 ICKSATI0 EQU 0 10056000 ICKSAVC0 EQU 0 10057000 ICKTPEA0 EQU 0 10058000 ICKTPES0 EQU 0 10059000 ICKTPRE0 EQU 0 10060000 ICKTPRS0 EQU 0 10061000 LISTTEST EQU 0 10062000 NEWERID1 EQU 5 10063000 TOTALALT EQU 0 10064000 TOTALPRI EQU 0 10065000 UCBBGN EQU 0 10066000 GDTTBL EQU 0 10067000 GDTTR1 EQU GDTTBL+8 10068000 GDTTR2 EQU GDTTBL+12 10069000 GDTDVH EQU GDTTBL+40 10070000 GDTDIN EQU GDTTBL+44 10071000 GDTDOP EQU GDTTBL+48 10072000 GDTDBG EQU GDTTBL+52 10073000 GDTDVO EQU GDTTBL+56 10074000 GDTPRT EQU GDTTBL+60 10075000 GDTESS EQU GDTTBL+64 10076000 GDTESA EQU GDTTBL+68 10077000 GDTRST EQU GDTTBL+72 10078000 GDTRES EQU GDTTBL+76 10079000 GDTCAL EQU GDTTBL+80 10080000 GDTGSP EQU GDTTBL+84 10081000 GDTFSP EQU GDTTBL+88 10082000 GDTGPL EQU GDTTBL+92 10083000 GDTFPL EQU GDTTBL+96 10084000 GDTLOD EQU GDTTBL+100 10085000 GDTDEL EQU GDTTBL+104 10086000 GDTPRL EQU GDTTBL+108 10087000 GDTEPL EQU GDTTBL+112 10088000 GDTTIM EQU GDTTBL+116 10089000 GDTIIO EQU GDTTBL+120 10090000 GDTTIO EQU GDTTBL+124 10091000 GDTOPN EQU GDTTBL+136 10092000 GDTCLS EQU GDTTBL+140 10093000 GDTGET EQU GDTTBL+144 10094000 GDTPUT EQU GDTTBL+148 10095000 GDTABT EQU GDTTBL+152 10096000 GDTABH EQU GDTTBL+156 10097000 GDTSNP EQU GDTTBL+160 10098000 GDTWTO EQU GDTTBL+168 10099000 GDTSCR EQU GDTTBL+172 10100000 GDTVCK EQU GDTTBL+176 10101000 GDTDVC EQU GDTTBL+180 10102000 GDTSTE EQU GDTTBL+188 10103000 VOLNAME EQU 0 10104000 VOLNTYPE EQU 0 10105000 DEVICETY EQU 0 10106000 MIMICDEV EQU 0 10107000 VOLIBPTR EQU 0 10108000 CONDCODE EQU 0 10109000 BLOCKPTR EQU 0 10110000 RETRYPTR EQU 0 10111000 RSTCODE EQU 0 10112000 DEBBAS02 EQU DEBBASND 10113000 DEBDDS1 EQU DEBBAS02 10114000 DEBSUCBA EQU DEBDDS1 10115000 DEBDEVED EQU DEBDDS1+4 10116000 DEBRDCB EQU DEBDDS1+4 10117000 DEBPDCB EQU DEBDDS1+8 10118000 DEBWDCB EQU DEBDDS1+12 10119000 DEBACS09 EQU DEBDEVED 10120000 DEBASC09 EQU DEBACS09 10121000 DEBEAMFG EQU DEBASC09+3 10122000 DEBDSID EQU DEBASC09+4 10123000 DEBEOD EQU DEBASC09+12 10124000 DEBBOE EQU DEBEOD 10125000 DEBEODRV EQU DEBBOE 10126000 DEBEODTT EQU DEBBOE+1 10127000 DEBEOD0 EQU DEBBOE+2 10128000 DEBEODSS EQU DEBBOE+3 10129000 DEBBAS01 EQU DEBBASND 10130000 DEBISAM EQU DEBBAS01 10131000 DEBFIEAD EQU DEBISAM 10132000 DEBFPEAD EQU DEBISAM+4 10133000 DEBFOEAD EQU DEBISAM+8 10134000 DEBEXPT EQU DEBISAM+12 10135000 DEBRPSID EQU DEBEXPT 10136000 IOBORG01 EQU IOBPREFX+8 10137000 IOBNIOBA EQU IOBORG01 10138000 IOBNFLG1 EQU IOBNIOBA 10139000 IOBPRTOV EQU IOBNFLG1 10140000 IOBORG02 EQU IOBPREFX+8 10141000 IOBDQADA EQU IOBORG02 10142000 IOBDEQIN EQU IOBDQADA 10143000 IOBORG03 EQU IOBPREFX+12 10144000 IOBORG04 EQU IOBINCAM 10145000 IOBORG12 EQU IOBINCAM 10146000 IOBFL4 EQU IOBORG12 10147000 IOBEXTEN EQU IOBSTDRD+32 10148000 IOBSEEK EQU IOBEXTEN 10149000 IOBBB EQU IOBSEEK+1 10150000 IOBCC EQU IOBSEEK+3 10151000 IOBHH EQU IOBSEEK+5 10152000 IOBORG05 EQU IOBEXTEN 10153000 IOBORG06 EQU IOBEXTEN 10154000 IOBNXTPT EQU IOBORG06+4 10155000 IOBSTATA EQU IOBNXTPT 10156000 IOBORG07 EQU IOBEXTEN+8 10157000 W1IEXTEN EQU IOBORG07 10158000 IOBORG08 EQU IOBEXTEN+8 10159000 IOBINDCT EQU IOBORG08+4 10160000 IOBUNSQR EQU IOBORG08+5 10161000 IOBFCHAD EQU IOBORG08+8 10162000 IOBORG09 EQU IOBEXTEN+8 10163000 IOBDPLAD EQU IOBORG09+4 10164000 IOBDTYPE EQU IOBORG09+8 10165000 IOBDTYP2 EQU IOBORG09+9 10166000 IOBDSTAT EQU IOBORG09+10 10167000 IOBSTAT1 EQU IOBDSTAT 10168000 IOBORG10 EQU IOBEXTEN+8 10169000 IOBSEEK2 EQU IOBORG10 10170000 IOBORG11 EQU IOBEXTEN 10171000 IOBERCT EQU IOBORG11 10172000 IOBUCBXV EQU IOBERCT 10173000 IOBNAME EQU IOBORG11+4 10174000 IOBORG13 EQU IOBEXTEN 10175000 IOBSKADR EQU IOBORG13 10176000 UCBOBS01 EQU UCBDEV 10177000 UCBSTAB EQU UCBOBS01+10 10178000 UCBBSVL EQU UCBSTAB 10179000 UCBPRSRS EQU UCBSTAB 10180000 UCBBPRV EQU UCBSTAB 10181000 UCBDMCT EQU UCBOBS01+11 10182000 UCBFL4 EQU UCBOBS01+13 10183000 UCBOBS02 EQU UCBDEV 10184000 UCBTFL1 EQU UCBOBS02+19 10185000 UCBXTN EQU UCBOBS02+20 10186000 UCBVOPT EQU UCBXTN 10187000 UCBOBS03 EQU UCBDEV 10188000 UCBXTADR EQU UCBOBS03 10189000 UCBOBS04 EQU UCBDEV 10190000 UCBBTA EQU UCBOBS04+12 10191000 UCBOBS06 EQU UCBDEV 10192000 UCBAOF EQU UCBOBS06 10193000 UCBAOF1 EQU UCBAOF 10194000 UCBAOF2 EQU UCBAOF+1 10195000 @NM00052 EQU UCBOBS06+3 10196000 UCBIRB EQU UCBOBS06+4 10197000 UCBGRAF EQU UCBIRB 10198000 UCBLDNCA EQU UCBOBS06+8 10199000 UCBRDYQ EQU UCBLDNCA 10200000 UCBIRLN EQU UCBRDYQ 10201000 UCBLDNCB EQU UCBRDYQ+1 10202000 UCBCTLNK EQU UCBOBS06+12 10203000 UCBOBS07 EQU UCBDEV 10204000 UCBOBS08 EQU UCBDEV 10205000 UCBCTCAD EQU UCBOBS08 10206000 UCBCTCF1 EQU UCBOBS08+4 10207000 UCBOBS09 EQU UCBDEV 10208000 JFCKEYLE EQU JFCTRTCH 10209000 JFCCODE EQU JFCKEYLE 10210000 JFCSTACK EQU JFCTRTCH 10211000 JFCMODE EQU JFCSTACK 10212000 JFCSPPRT EQU JFCTRTCH 10213000 JFCBABFS EQU JFCSPPRT+2 10214000 JFCLIMCT EQU JFCBABFS 10215000 JFCDSORG EQU JFCSPPRT+5 10216000 JFCDSRG1 EQU JFCDSORG 10217000 JFCDSRG2 EQU JFCDSORG+1 10218000 JFCRECFM EQU JFCSPPRT+7 10219000 JFCRCFM EQU JFCRECFM 10220000 JFCOPTCD EQU JFCSPPRT+8 10221000 JFCWVCSP EQU JFCOPTCD 10222000 JFCWVCIS EQU JFCWVCSP 10223000 JFCWVCBD EQU JFCWVCIS 10224000 JFCALLOW EQU JFCOPTCD 10225000 JFCRSV17 EQU JFCALLOW 10226000 JFCOVER EQU JFCRSV17 10227000 JFCPCIBT EQU JFCOPTCD 10228000 JFCMAST EQU JFCPCIBT 10229000 JFCEXT EQU JFCMAST 10230000 JFCBCKPT EQU JFCOPTCD 10231000 JFCIND EQU JFCBCKPT 10232000 JFCRSV18 EQU JFCOPTCD 10233000 JFCCYL EQU JFCRSV18 10234000 JFCACT EQU JFCCYL 10235000 JFCREDUC EQU JFCOPTCD 10236000 JFCRSV19 EQU JFCREDUC 10237000 JFCRSV20 EQU JFCRSV19 10238000 JFCRSV21 EQU JFCOPTCD 10239000 JFCDEL EQU JFCRSV21 10240000 JFCOPTJ EQU JFCOPTCD 10241000 JFCREORG EQU JFCOPTJ 10242000 JFCBLKSI EQU JFCSPPRT+9 10243000 JFCBUFSI EQU JFCBLKSI 10244000 JFCAMSYN EQU JFCSPPRT+11 10245000 JFCNCP EQU JFCAMSYN+2 10246000 JFCNTM EQU JFCAMSYN+3 10247000 JFCBFSEQ EQU JFCNTM 10248000 JFCPCI EQU JFCBFSEQ 10249000 JFCRESRV EQU JFCAMSYN+4 10250000 JFCUCSEG EQU JFCRESRV 10251000 JFCUCSOP EQU JFCUCSEG+4 10252000 JFCOUTLI EQU JFCUCSEG+5 10253000 JFCTHRSH EQU JFCOUTLI 10254000 JFCCPRI EQU JFCTHRSH 10255000 JFCBVOLS EQU JFCUCSEG+10 10256000 JFCBS001 EQU JFCBVOLS 10257000 JFCBPQTY EQU JFCBS001+34 10258000 JFCBCTRI EQU JFCBS001+37 10259000 JFCBSQTY EQU JFCBS001+38 10260000 JFCFLGS1 EQU JFCBS001+41 10261000 JFCBSPNM EQU JFCBS001+45 10262000 JFCBFLG3 EQU JFCBSPNM 10263000 CVTS01 EQU CVTPGSIA 10264000 CVTLPDIA EQU CVTS01+12 10265000 CVTDIRST EQU CVTLPDIA 10266000 CVTSLIDA EQU CVTS01+24 10267000 CVTCTLFG EQU CVTS01+50 10268000 CVTRV210 EQU CVTS01+424 10269000 CVTRV219 EQU CVTS01+425 10270000 CVTRV228 EQU CVTS01+426 10271000 CVTRV237 EQU CVTS01+427 10272000 CVTMFRTR EQU CVTS01+452 10273000 CVTRV262 EQU CVTS01+468 10274000 CVTRV271 EQU CVTS01+469 10275000 CVTRV280 EQU CVTS01+470 10276000 CVTRV289 EQU CVTS01+471 10277000 CVTGSDA EQU CVTS01+600 10278000 EXTENT EQU DEBNMEXT 10279000 IDENTDEB EQU DEBDEBID 10280000 IDENTTCB EQU TCBPKF 10281000 AGO .@UNREFD START UNREFERENCED COMPONENTS 10282000 CVTRV628 EQU CVTS01+728 10283000 CVTRV627 EQU CVTS01+724 10284000 CVTRV626 EQU CVTS01+720 10285000 CVTRV625 EQU CVTS01+716 10286000 CVTRV624 EQU CVTS01+712 10287000 CVTRV623 EQU CVTS01+708 10288000 CVTRV622 EQU CVTS01+704 10289000 CVTRV621 EQU CVTS01+700 10290000 CVTIHASU EQU CVTS01+696 10291000 CVTRV619 EQU CVTS01+692 10292000 CVTRV618 EQU CVTS01+688 10293000 CVTRV617 EQU CVTS01+684 10294000 CVTRV616 EQU CVTS01+680 10295000 CVTRV615 EQU CVTS01+676 10296000 CVTRV614 EQU CVTS01+672 10297000 CVTRV613 EQU CVTS01+668 10298000 CVTTCASP EQU CVTS01+664 10299000 CVT0PT03 EQU CVTS01+660 10300000 CVT0PT0E EQU CVTS01+656 10301000 CVTRV609 EQU CVTS01+652 10302000 CVTCGK EQU CVTS01+648 10303000 CVTRAC EQU CVTS01+644 10304000 CVTRV606 EQU CVTS01+640 10305000 CVTRV605 EQU CVTS01+636 10306000 CVTRV604 EQU CVTS01+632 10307000 CVTEFF02 EQU CVTS01+628 10308000 CVTCBBR EQU CVTS01+624 10309000 CVTSSCR EQU CVTS01+620 10310000 CVTEVENT EQU CVTS01+616 10311000 CVTCRCA EQU CVTS01+612 10312000 CVTTPIO EQU CVTS01+608 10313000 CVTADV EQU CVTS01+604 10314000 CVTGSDAB EQU CVTGSDA 10315000 CVTQV3 EQU CVTS01+596 10316000 CVTQV2 EQU CVTS01+592 10317000 CVTQV1 EQU CVTS01+588 10318000 CVTRPT EQU CVTS01+584 10319000 CVTSSRB EQU CVTS01+580 10320000 CVTCSDRL EQU CVTS01+576 10321000 CVTEXP1 EQU CVTS01+572 10322000 CVTRMPMT EQU CVTS01+568 10323000 CVTRMPTT EQU CVTS01+564 10324000 CVTVPSA EQU CVTS01+560 10325000 CVTVSTOP EQU CVTS01+556 10326000 CVTGTFR8 EQU CVTS01+552 10327000 CVTQUIT EQU CVTS01+548 10328000 CVTVACR EQU CVTS01+544 10329000 CVTWTCB EQU CVTS01+540 10330000 CVTSTPRS EQU CVTS01+536 10331000 CVT0PT02 EQU CVTS01+532 10332000 CVTDARCM EQU CVTS01+528 10333000 CVTIRECM EQU CVTS01+524 10334000 CVTJRECM EQU CVTS01+520 10335000 CVTVEMS0 EQU CVTS01+516 10336000 CVTSPFRR EQU CVTS01+512 10337000 CVTRLSTG EQU CVTS01+508 10338000 CVT0TC0A EQU CVTS01+504 10339000 CVTGMBR EQU CVTS01+500 10340000 CVTLFRM EQU CVTS01+496 10341000 CVTRMBR EQU CVTS01+492 10342000 CVTVIOP EQU CVTS01+488 10343000 CVTRV307 EQU CVTS01+486 10344000 CVTRV306 EQU CVTS01+484 10345000 CVTRV305 EQU CVTS01+482 10346000 CVTRV304 EQU CVTS01+480 10347000 CVTRV303 EQU CVTS01+478 10348000 CVTRV302 EQU CVTS01+476 10349000 CVTTRCA EQU CVTS01+472 10350000 CVTRV297 EQU CVTRV289 10351000 CVTRV296 EQU CVTRV289 10352000 CVTRV295 EQU CVTRV289 10353000 CVTRV294 EQU CVTRV289 10354000 CVTRV293 EQU CVTRV289 10355000 CVTRV292 EQU CVTRV289 10356000 CVTRV291 EQU CVTRV289 10357000 CVTRV290 EQU CVTRV289 10358000 CVTRV288 EQU CVTRV280 10359000 CVTRV287 EQU CVTRV280 10360000 CVTRV286 EQU CVTRV280 10361000 CVTRV285 EQU CVTRV280 10362000 CVTRV284 EQU CVTRV280 10363000 CVTRV283 EQU CVTRV280 10364000 CVTRV282 EQU CVTRV280 10365000 CVTRV281 EQU CVTRV280 10366000 CVTRV279 EQU CVTRV271 10367000 CVTRV278 EQU CVTRV271 10368000 CVTRV277 EQU CVTRV271 10369000 CVTRV276 EQU CVTRV271 10370000 CVTRV275 EQU CVTRV271 10371000 CVTRV274 EQU CVTRV271 10372000 CVTRV273 EQU CVTRV271 10373000 CVTRV272 EQU CVTRV271 10374000 CVTRV270 EQU CVTRV262 10375000 CVTRV269 EQU CVTRV262 10376000 CVTRV268 EQU CVTRV262 10377000 CVTRV267 EQU CVTRV262 10378000 CVTRV266 EQU CVTRV262 10379000 CVTRV265 EQU CVTRV262 10380000 CVTRV264 EQU CVTRV262 10381000 CVTRV263 EQU CVTRV262 10382000 CVTVFP EQU CVTS01+464 10383000 CVTVSI EQU CVTS01+460 10384000 CVTVPSIB EQU CVTS01+456 10385000 CVTMFACT EQU CVTMFRTR 10386000 CVTMFCTL EQU CVTS01+448 10387000 CVTPVBP EQU CVTS01+444 10388000 CVTPWI EQU CVTS01+440 10389000 CVTRV254 EQU CVTS01+438 10390000 CVTRV253 EQU CVTS01+436 10391000 CVTRV252 EQU CVTS01+434 10392000 CVTRV251 EQU CVTS01+433 10393000 CVTRV250 EQU CVTS01+432 10394000 CVTRV249 EQU CVTS01+431 10395000 CVTRV248 EQU CVTS01+430 10396000 CVTRV247 EQU CVTS01+429 10397000 CVTRV246 EQU CVTS01+428 10398000 CVTRV245 EQU CVTRV237 10399000 CVTRV244 EQU CVTRV237 10400000 CVTRV243 EQU CVTRV237 10401000 CVTRV242 EQU CVTRV237 10402000 CVTRV241 EQU CVTRV237 10403000 CVTRV240 EQU CVTRV237 10404000 CVTRV239 EQU CVTRV237 10405000 CVTRV238 EQU CVTRV237 10406000 CVTRV236 EQU CVTRV228 10407000 CVTRV235 EQU CVTRV228 10408000 CVTRV234 EQU CVTRV228 10409000 CVTRV233 EQU CVTRV228 10410000 CVTRV232 EQU CVTRV228 10411000 CVTRV231 EQU CVTRV228 10412000 CVTRV230 EQU CVTRV228 10413000 CVTRV229 EQU CVTRV228 10414000 CVTRV227 EQU CVTRV219 10415000 CVTRV226 EQU CVTRV219 10416000 CVTRV225 EQU CVTRV219 10417000 CVTRV224 EQU CVTRV219 10418000 CVTRV223 EQU CVTRV219 10419000 CVTRV222 EQU CVTRV219 10420000 CVTRV221 EQU CVTRV219 10421000 CVTRV220 EQU CVTRV219 10422000 CVTRV218 EQU CVTRV210 10423000 CVTRV217 EQU CVTRV210 10424000 CVTRV216 EQU CVTRV210 10425000 CVTRV215 EQU CVTRV210 10426000 CVTRV214 EQU CVTRV210 10427000 CVTRV213 EQU CVTRV210 10428000 CVTRV212 EQU CVTRV210 10429000 CVTRV211 EQU CVTRV210 10430000 CVTLCCAT EQU CVTS01+420 10431000 CVTPCCAT EQU CVTS01+416 10432000 CVTIPCRP EQU CVTS01+412 10433000 CVTIPCRI EQU CVTS01+408 10434000 CVTIPCDS EQU CVTS01+404 10435000 CVTAIDVT EQU CVTS01+400 10436000 CVTSSAP EQU CVTS01+396 10437000 CVTEHCIR EQU CVTS01+392 10438000 CVTEHDEF EQU CVTS01+388 10439000 CVTDAIR EQU CVTS01+384 10440000 CVTPERFM EQU CVTS01+380 10441000 CVT044R2 EQU CVTS01+376 10442000 CVTFETCH EQU CVTS01+372 10443000 CVTRSTWD EQU CVTS01+368 10444000 CVTSPOST EQU CVTS01+364 10445000 CVTIOBP EQU CVTS01+360 10446000 CVTASMVT EQU CVTS01+356 10447000 CVTRECRQ EQU CVTS01+352 10448000 CVTWSAC EQU CVTS01+348 10449000 CVTRV149 EQU CVTS01+344 10450000 CVTWSAL EQU CVTS01+340 10451000 CVTSPSA EQU CVTS01+336 10452000 CVTGLMN EQU CVTS01+332 10453000 CVTVEAC0 EQU CVTS01+328 10454000 CVT062R1 EQU CVTS01+324 10455000 CVTRPOST EQU CVTS01+320 10456000 CVTDQIQE EQU CVTS01+316 10457000 CVTCSD EQU CVTS01+312 10458000 CVTLKRMA EQU CVTS01+308 10459000 CVTRSPIE EQU CVTS01+304 10460000 CVTRENQ EQU CVTS01+300 10461000 CVTLQCB EQU CVTS01+296 10462000 CVTFQCB EQU CVTS01+292 10463000 CVTQCS01 EQU CVTS01+288 10464000 CVTAPFT EQU CVTS01+284 10465000 CVTPARRL EQU CVTS01+280 10466000 CVTVWAIT EQU CVTS01+276 10467000 CVTGSPL EQU CVTS01+272 10468000 CVTLSMQ EQU CVTS01+268 10469000 CVTGSMQ EQU CVTS01+264 10470000 CVTEXPRO EQU CVTS01+260 10471000 CVTOPCTP EQU CVTS01+256 10472000 CVTSIC EQU CVTS01+252 10473000 CVTTPIOS EQU CVTS01+248 10474000 CVTRTMS EQU CVTS01+244 10475000 CVTSDBF EQU CVTS01+240 10476000 CVTSCBP EQU CVTS01+236 10477000 CVTSDMP EQU CVTS01+232 10478000 CVTSV60 EQU CVTS01+228 10479000 CVTRTMCT EQU CVTS01+224 10480000 CVTASCBL EQU CVTS01+220 10481000 CVTASCBH EQU CVTS01+216 10482000 CVTGDA EQU CVTS01+212 10483000 CVTASVT EQU CVTS01+208 10484000 CVTVVMDI EQU CVTS01+204 10485000 CVTAQTOP EQU CVTS01+200 10486000 CVTIOSCS EQU CVTS01+196 10487000 CVTSDRM EQU CVTS01+192 10488000 CVTOPTE EQU CVTS01+188 10489000 CVTSTXU EQU CVTS01+184 10490000 CVTQUIS EQU CVTS01+180 10491000 CVTPARS EQU CVTS01+176 10492000 CVTS1EE EQU CVTS01+172 10493000 CVTFRAS EQU CVTS01+168 10494000 CVTQSAS EQU CVTS01+164 10495000 CVTCRAS EQU CVTS01+160 10496000 CVTCRMN EQU CVTS01+156 10497000 CVTDELCP EQU CVTS01+152 10498000 CVTFRECL EQU CVTS01+148 10499000 CVTGETCL EQU CVTS01+144 10500000 CVTBLDCP EQU CVTS01+140 10501000 CVTAUTHL EQU CVTS01+136 10502000 CVTSCAN EQU CVTS01+132 10503000 CVTRV144 EQU CVTS01+130 10504000 CVTMAXMP EQU CVTS01+128 10505000 CVTSTCK EQU CVTS01+124 10506000 CVTRV139 EQU CVTS01+123 10507000 CVTDSSAC EQU CVTS01+122 10508000 CVTRV513 EQU CVTS01+121 10509000 CVTIOSPL EQU CVTS01+120 10510000 CVTPTGT EQU CVTS01+116 10511000 CVTCSPIE EQU CVTS01+112 10512000 CVTSMFEX EQU CVTS01+108 10513000 CVTOLT0A EQU CVTS01+104 10514000 CVTSRBRT EQU CVTS01+100 10515000 CVTPUTL EQU CVTS01+96 10516000 CVTASCRL EQU CVTS01+92 10517000 CVTASCRF EQU CVTS01+88 10518000 CVTRV326 EQU CVTS01+84 10519000 CVTRV325 EQU CVTS01+80 10520000 CVTRV324 EQU CVTS01+76 10521000 CVT0VL01 EQU CVTS01+72 10522000 CVTSHRVM EQU CVTS01+68 10523000 CVTRV332 EQU CVTS01+64 10524000 CVTTAS EQU CVTS01+60 10525000 CVTRSCN EQU CVTS01+56 10526000 CVTTRAC2 EQU CVTS01+54 10527000 CVTTRACE EQU CVTS01+52 10528000 CVTAPG EQU CVTS01+51 10529000 CVTSDTRC EQU CVTCTLFG 10530000 CVTGTRCE EQU CVTCTLFG 10531000 CVTNOMP EQU CVTCTLFG 10532000 CVTRSV79 EQU CVTCTLFG 10533000 CVTDSTAT EQU CVTCTLFG 10534000 CVTRSV78 EQU CVTCTLFG 10535000 CVTRV333 EQU CVTCTLFG 10536000 CVTRV323 EQU CVTCTLFG 10537000 CVTSPVLK EQU CVTS01+49 10538000 CVTRSV77 EQU CVTS01+48 10539000 CVTRV331 EQU CVTS01+44 10540000 CVTRV330 EQU CVTS01+40 10541000 CVTRV329 EQU CVTS01+36 10542000 CVTRV328 EQU CVTS01+32 10543000 CVTRV322 EQU CVTS01+28 10544000 CVTSLID EQU CVTSLIDA+1 10545000 CVTSYLK EQU CVTSLIDA 10546000 CVTRV321 EQU CVTS01+20 10547000 CVTRV320 EQU CVTS01+16 10548000 CVTLPDIR EQU CVTLPDIA+1 10549000 CVTRSV69 EQU CVTDIRST 10550000 CVTRSV68 EQU CVTDIRST 10551000 CVTRSV67 EQU CVTDIRST 10552000 CVTRSV66 EQU CVTDIRST 10553000 CVTRSV65 EQU CVTDIRST 10554000 CVTRSV64 EQU CVTDIRST 10555000 CVTRSV63 EQU CVTDIRST 10556000 CVTDICOM EQU CVTDIRST 10557000 CVTPVTP EQU CVTS01+8 10558000 CVTLPDSR EQU CVTS01+4 10559000 CVTGETL EQU CVTS01 10560000 JFCBEND EQU JFCBS001+58 10561000 JFCBSPTN EQU JFCBS001+57 10562000 JFCBVLCT EQU JFCBS001+56 10563000 JFCBDRLH EQU JFCBS001+53 10564000 JFCBSBNM EQU JFCBS001+50 10565000 JFCBABST EQU JFCBS001+48 10566000 JFCBRV08 EQU JFCBSPNM+1 10567000 JFCBRV07 EQU JFCBFLG3 10568000 JFCBRV06 EQU JFCBFLG3 10569000 JFCBRV05 EQU JFCBFLG3 10570000 JFCBRV04 EQU JFCBFLG3 10571000 JFCBRV03 EQU JFCBFLG3 10572000 JFCBRV02 EQU JFCBFLG3 10573000 JFCBRV01 EQU JFCBFLG3 10574000 JFCDQDSP EQU JFCBFLG3 10575000 JFCBDQTY EQU JFCBS001+42 10576000 JFCBUAFF EQU JFCFLGS1 10577000 JFCRSV45 EQU JFCFLGS1 10578000 JFCVRDS EQU JFCFLGS1 10579000 JFCBCEOV EQU JFCFLGS1 10580000 JFCRSV42 EQU JFCFLGS1 10581000 JFCBADSP EQU JFCFLGS1 10582000 JFCTOPEN EQU JFCFLGS1 10583000 JFCBDLET EQU JFCFLGS1 10584000 JFCRQID EQU JFCBSQTY 10585000 JFCROUND EQU JFCBCTRI 10586000 JFCALX EQU JFCBCTRI 10587000 JFCMIXG EQU JFCBCTRI 10588000 JFCONTIG EQU JFCBCTRI 10589000 JFCRSV29 EQU JFCBCTRI 10590000 JFCBMSGP EQU JFCBCTRI 10591000 JFCBSPAC EQU JFCBCTRI 10592000 JFCRUNIT EQU JFCBPQTY 10593000 JFCBEXAD EQU JFCBS001+31 10594000 JFCBEXTL EQU JFCBS001+30 10595000 JFCMSVGP EQU JFCBS001+22 10596000 @NM00057 EQU JFCBS001 10597000 JFCAVOLS EQU JFCBVOLS 10598000 JFCBNVOL EQU JFCUCSEG+9 10599000 JFCBNTCS EQU JFCUCSEG+8 10600000 JFCSOWA EQU JFCOUTLI+1 10601000 JFCSEND EQU JFCCPRI 10602000 JFCEQUAL EQU JFCCPRI 10603000 JFCRECV EQU JFCCPRI 10604000 JFCRSV34 EQU JFCCPRI 10605000 JFCRSV33 EQU JFCCPRI 10606000 JFCRSV55 EQU JFCCPRI 10607000 JFCRSV54 EQU JFCCPRI 10608000 JFCRSV53 EQU JFCCPRI 10609000 JFCRSV27 EQU JFCUCSOP 10610000 JFCRSV26 EQU JFCUCSOP 10611000 JFCFCBVR EQU JFCUCSOP 10612000 JFCFCBAL EQU JFCUCSOP 10613000 JFCVER EQU JFCUCSOP 10614000 JFCRSV25 EQU JFCUCSOP 10615000 JFCFOLD EQU JFCUCSOP 10616000 JFCBEXTP EQU JFCUCSOP 10617000 JFCUCSID EQU JFCUCSEG 10618000 JFCINTVL EQU JFCSPPRT+19 10619000 JFCDBUFN EQU JFCRESRV+3 10620000 JFCCYLOF EQU JFCRESRV+2 10621000 JFCRKP EQU JFCRESRV 10622000 JFCPCIR2 EQU JFCPCI 10623000 JFCPCIR1 EQU JFCPCI 10624000 JFCPCIN2 EQU JFCPCI 10625000 JFCPCIN1 EQU JFCPCI 10626000 JFCPCIA2 EQU JFCPCI 10627000 JFCPCIA1 EQU JFCPCI 10628000 JFCPCIX2 EQU JFCPCI 10629000 JFCPCIX1 EQU JFCPCI 10630000 JFCBUFMX EQU JFCNCP 10631000 JFCLRECL EQU JFCAMSYN 10632000 JFCBAXBF EQU JFCBUFSI 10633000 JFCREL EQU JFCREORG 10634000 JFCRSV22 EQU JFCDEL 10635000 JFCSRCHD EQU JFCRSV20 10636000 JFCOPTQ EQU JFCACT 10637000 JFCFEED EQU JFCIND 10638000 JFCCBWU EQU JFCEXT 10639000 JFCWUMSG EQU JFCOVER 10640000 JFCSDNAM EQU JFCWVCBD 10641000 @NM00056 EQU JFCRECFM 10642000 JFCCHAR EQU JFCRECFM 10643000 JFCRFS EQU JFCRECFM 10644000 JFCRFB EQU JFCRECFM 10645000 JFCRFO EQU JFCRCFM 10646000 JFCFMREC EQU JFCRCFM 10647000 JFCRSV16 EQU JFCDSRG2 10648000 JFCRSV15 EQU JFCDSRG2 10649000 JFCORGTR EQU JFCDSRG2 10650000 JFCORGAM EQU JFCDSRG2 10651000 JFCRSV13 EQU JFCDSRG2 10652000 JFCORGTQ EQU JFCDSRG2 10653000 JFCORGTX EQU JFCDSRG2 10654000 JFCORGGS EQU JFCDSRG2 10655000 JFCORGU EQU JFCDSRG1 10656000 JFCORGPO EQU JFCDSRG1 10657000 JFCORGMQ EQU JFCDSRG1 10658000 JFCORGCQ EQU JFCDSRG1 10659000 JFCORGCX EQU JFCDSRG1 10660000 JFCORGDA EQU JFCDSRG1 10661000 JFCORGPS EQU JFCDSRG1 10662000 JFCORGIS EQU JFCDSRG1 10663000 JFCTRKBL EQU JFCLIMCT+1 10664000 @NM00055 EQU JFCLIMCT 10665000 JFCDEN EQU JFCSPPRT+1 10666000 JFCPRTSP EQU JFCSPPRT 10667000 JFCONE EQU JFCMODE 10668000 JFCTWO EQU JFCMODE 10669000 JFCRSV07 EQU JFCMODE 10670000 JFCRSV06 EQU JFCMODE 10671000 JFCMODER EQU JFCMODE 10672000 JFCMODEO EQU JFCMODE 10673000 JFCEBCD EQU JFCMODE 10674000 JFCBIN EQU JFCMODE 10675000 JFCRSV32 EQU JFCCODE 10676000 JFCTTY EQU JFCCODE 10677000 JFCASCII EQU JFCCODE 10678000 JFCNCR EQU JFCCODE 10679000 JFCBUR EQU JFCCODE 10680000 JFCFRI EQU JFCCODE 10681000 JFCBCD EQU JFCCODE 10682000 JFCNOCON EQU JFCCODE 10683000 UCBRV066 EQU UCBOBS09+4 10684000 UCBIOSBA EQU UCBOBS09 10685000 UCBRV042 EQU UCBOBS08+5 10686000 UCBRV082 EQU UCBCTCF1 10687000 UCBRV081 EQU UCBCTCF1 10688000 UCBRV080 EQU UCBCTCF1 10689000 UCBRV079 EQU UCBCTCF1 10690000 UCBRV078 EQU UCBCTCF1 10691000 UCBRV077 EQU UCBCTCF1 10692000 UCBRV076 EQU UCBCTCF1 10693000 UCBCTC80 EQU UCBCTCF1 10694000 UCBCTCAL EQU UCBCTCAD 10695000 UCBICNCB EQU UCBOBS07+4 10696000 UCBRV040 EQU UCBOBS07 10697000 UCBCTLNA EQU UCBCTLNK+1 10698000 UCBRLN EQU UCBCTLNK 10699000 UCBRDYQA EQU UCBLDNCB 10700000 UCBINRLN EQU UCBIRLN 10701000 UCBIRBA EQU UCBIRB+1 10702000 UCBRV039 EQU UCBGRAF 10703000 UCBDWNR EQU UCBGRAF 10704000 UCBRPND EQU UCBGRAF 10705000 UCBUPM EQU UCBGRAF 10706000 UCBBTAM EQU UCBGRAF 10707000 UCBDRNO EQU UCBGRAF 10708000 UCBDRO EQU UCBGRAF 10709000 UCBOIP EQU UCBGRAF 10710000 UCBATRCD EQU @NM00052 10711000 UCBSKPFG EQU @NM00052 10712000 UCBRIPND EQU @NM00052 10713000 UCBRTIAC EQU @NM00052 10714000 UCBRSV79 EQU @NM00052 10715000 UCBRSV78 EQU @NM00052 10716000 UCBRSV77 EQU @NM00052 10717000 UCBOLTEP EQU @NM00052 10718000 UCBATNCT EQU UCBOBS06+2 10719000 UCBRSV76 EQU UCBAOF2 10720000 UCBRSV75 EQU UCBAOF2 10721000 UCBRSV74 EQU UCBAOF2 10722000 UCBRSV73 EQU UCBAOF2 10723000 UCBRSV72 EQU UCBAOF2 10724000 UCBRSV71 EQU UCBAOF2 10725000 UCBRSV70 EQU UCBAOF2 10726000 UCBRSV69 EQU UCBAOF2 10727000 UCBRSV68 EQU UCBAOF1 10728000 UCBRSV67 EQU UCBAOF1 10729000 UCBRSV66 EQU UCBAOF1 10730000 UCBRSV65 EQU UCBAOF1 10731000 UCBRSV64 EQU UCBAOF1 10732000 UCBOFNL EQU UCBAOF1 10733000 UCBOFSP EQU UCBAOF1 10734000 UCBOFMCR EQU UCBAOF1 10735000 UCBBTB EQU UCBBTA+1 10736000 UCBDI EQU UCBBTA 10737000 UCBSNS EQU UCBOBS04+8 10738000 UCBTEB EQU UCBOBS04+4 10739000 UCBGCB EQU UCBOBS04+3 10740000 UCBOPEN EQU UCBOBS04+2 10741000 UCBSTART EQU UCBOBS04 10742000 UCBXTNB EQU UCBXTN+1 10743000 UCBRSV22 EQU UCBVOPT 10744000 UCBRSV21 EQU UCBVOPT 10745000 UCBRSV20 EQU UCBVOPT 10746000 UCBESVE EQU UCBVOPT 10747000 UCBERPC EQU UCBVOPT 10748000 UCBESVC EQU UCBVOPT 10749000 UCBEVA EQU UCBVOPT 10750000 UCBESV EQU UCBVOPT 10751000 UCBRV009 EQU UCBTFL1 10752000 UCBRV008 EQU UCBTFL1 10753000 UCBRV007 EQU UCBTFL1 10754000 UCBRV006 EQU UCBTFL1 10755000 UCBRV005 EQU UCBTFL1 10756000 UCBDQDSP EQU UCBTFL1 10757000 UCBNSLTP EQU UCBTFL1 10758000 UCBNLTP EQU UCBTFL1 10759000 UCBRES1B EQU UCBOBS02+18 10760000 UCBFSER EQU UCBOBS02+12 10761000 @NM00051 EQU UCBOBS02+4 10762000 UCBFSEQ EQU UCBOBS02+2 10763000 UCBFSCT EQU UCBOBS02 10764000 UCBNEXP EQU UCBOBS01+20 10765000 UCBBASE EQU UCBOBS01+16 10766000 UCBRES1A EQU UCBOBS01+15 10767000 UCBUSER EQU UCBOBS01+14 10768000 UCBFL47 EQU UCBFL4 10769000 UCBFL46 EQU UCBFL4 10770000 UCBFL45 EQU UCBFL4 10771000 UCBRV065 EQU UCBFL4 10772000 UCBDSS EQU UCBFL4 10773000 UCBRESVP EQU UCBFL4 10774000 UCBWDAV EQU UCBFL4 10775000 UCBDAVV EQU UCBFL4 10776000 UCBSQC EQU UCBOBS01+12 10777000 UCBDATP EQU UCBOBS01+12 10778000 UCBDMC EQU UCBDMCT 10779000 UCBMOUNT EQU UCBDMCT 10780000 UCBBNUL EQU UCBSTAB 10781000 UCBSHAR EQU UCBSTAB 10782000 UCBBSTR EQU UCBSTAB 10783000 UCBBPUB EQU UCBSTAB 10784000 UCBBALB EQU UCBPRSRS 10785000 UCBPGFL EQU UCBSTAB 10786000 UCBDVSHR EQU UCBBSVL 10787000 UCBVOLI EQU UCBOBS01+4 10788000 UCBVTOC EQU UCBOBS01 10789000 IOBSKSS EQU IOBSKADR+3 10790000 IOBSK0 EQU IOBSKADR+2 10791000 IOBSKTT EQU IOBSKADR+1 10792000 IOBSKRV EQU IOBSKADR 10793000 IOBCSWSV EQU IOBORG11+17 10794000 IOBSENSV EQU IOBORG11+16 10795000 IOBRCD EQU IOBORG11+12 10796000 IOBMDREC EQU IOBORG11+8 10797000 IOBNAMEA EQU IOBNAME+1 10798000 IOBNAMSZ EQU IOBNAME 10799000 IOBERCTA EQU IOBERCT+1 10800000 IOBRTYPE EQU IOBUCBXV 10801000 IOBRDCHP EQU IOBORG10+20 10802000 IOBNEXTA EQU IOBORG10+16 10803000 IOBREADA EQU IOBORG10+12 10804000 IOBBUFC EQU IOBORG10+8 10805000 IOBSK2R EQU IOBSEEK2+7 10806000 IOBSK2HH EQU IOBSEEK2+5 10807000 IOBSK2CC EQU IOBSEEK2+3 10808000 IOBSK2BB EQU IOBSEEK2+1 10809000 IOBSK2M EQU IOBSEEK2 10810000 IOBCHNPR EQU IOBORG09+40 10811000 IOBDNCRF EQU IOBORG09+32 10812000 IOBRSV35 EQU IOBORG09+24 10813000 IOBDQPTR EQU IOBORG09+20 10814000 IOBRSV34 EQU IOBORG09+18 10815000 IOBDBYTN EQU IOBORG09+16 10816000 IOBDCPND EQU IOBORG09+12 10817000 IOBSTAT2 EQU IOBDSTAT+1 10818000 IOBSIORT EQU IOBSTAT1 10819000 IOBADDVU EQU IOBSTAT1 10820000 IOBBUFF EQU IOBSTAT1 10821000 IOBENQUE EQU IOBSTAT1 10822000 IOBPASS2 EQU IOBSTAT1 10823000 IOBSYNCH EQU IOBSTAT1 10824000 IOBNEWVL EQU IOBSTAT1 10825000 IOBABNRM EQU IOBSTAT1 10826000 IOBRELEX EQU IOBDTYP2 10827000 IOBADDTY EQU IOBDTYP2 10828000 IOBTYPE EQU IOBDTYP2 10829000 IOBRQUST EQU IOBDTYP2 10830000 IOBSUFFX EQU IOBDTYP2 10831000 IOBSBLKL EQU IOBDTYP2 10832000 IOBSKEY EQU IOBDTYP2 10833000 IOBRELBL EQU IOBDTYPE 10834000 IOBRDEXC EQU IOBDTYPE 10835000 IOBDYNBF EQU IOBDTYPE 10836000 IOBACTAD EQU IOBDTYPE 10837000 IOBFDBCK EQU IOBDTYPE 10838000 IOBEXTSC EQU IOBDTYPE 10839000 IOBOVFLO EQU IOBDTYPE 10840000 IOBVERFY EQU IOBDTYPE 10841000 IOBDPLB EQU IOBDPLAD+1 10842000 IOBDAYLI EQU IOBDPLAD 10843000 IOBDIOBS EQU IOBORG09+2 10844000 IOBDBYTR EQU IOBORG09 10845000 IOBBCHAD EQU IOBORG08+12 10846000 IOBFCHNB EQU IOBFCHAD+1 10847000 IOBCOUNT EQU IOBFCHAD 10848000 IOBASYN EQU IOBORG08+7 10849000 IOBAPP EQU IOBORG08+6 10850000 IOBRSV32 EQU IOBUNSQR 10851000 IOBRSV31 EQU IOBUNSQR 10852000 IOBRSV30 EQU IOBUNSQR 10853000 IOBKNRWR EQU IOBUNSQR 10854000 IOBKNWR EQU IOBUNSQR 10855000 IOBNTAV2 EQU IOBUNSQR 10856000 IOBNTAV1 EQU IOBUNSQR 10857000 IOBCPBSY EQU IOBUNSQR 10858000 IOBCHNNL EQU IOBINDCT 10859000 IOBRSV29 EQU IOBINDCT 10860000 IOBRSV28 EQU IOBINDCT 10861000 IOBRSV27 EQU IOBINDCT 10862000 IOBKEYAD EQU IOBINDCT 10863000 IOBOVPTR EQU IOBINDCT 10864000 IOBUNSCH EQU IOBINDCT 10865000 IOBDEQCP EQU IOBINDCT 10866000 IOBCCWAD EQU IOBORG08 10867000 W1OEXTEN EQU W1IEXTEN 10868000 IOBCCW EQU IOBORG06+8 10869000 IOBNXTPB EQU IOBNXTPT+1 10870000 IOBRSV26 EQU IOBSTATA 10871000 IOBRSV25 EQU IOBSTATA 10872000 IOBRSV24 EQU IOBSTATA 10873000 IOBRSV23 EQU IOBSTATA 10874000 IOBRSV22 EQU IOBSTATA 10875000 IOBRSV21 EQU IOBSTATA 10876000 IOBRSV20 EQU IOBSTATA 10877000 IOBAVLFL EQU IOBSTATA 10878000 IOBRSV37 EQU IOBORG06+1 10879000 IOBUCBXG EQU IOBORG06 10880000 IOBCPA EQU IOBORG05+32 10881000 IOBERINF EQU IOBORG05+16 10882000 IOBERCCW EQU IOBORG05+8 10883000 IOBSNDPT EQU IOBORG05+7 10884000 IOBRCVPT EQU IOBORG05+6 10885000 IOBWORK EQU IOBORG05+1 10886000 IOBUCBX EQU IOBORG05 10887000 IOBR EQU IOBSEEK+7 10888000 IOBHH2 EQU IOBHH+1 10889000 IOBHH1 EQU IOBHH 10890000 IOBCC2 EQU IOBCC+1 10891000 IOBCC1 EQU IOBCC 10892000 IOBBB2 EQU IOBBB+1 10893000 IOBBB1 EQU IOBBB 10894000 IOBM EQU IOBSEEK 10895000 IOBRSV46 EQU IOBFL4 10896000 IOBRSV47 EQU IOBFL4 10897000 IOBENT EQU IOBFL4 10898000 IOBEQP EQU IOBFL4 10899000 IOBBUS EQU IOBFL4 10900000 IOBDCK EQU IOBFL4 10901000 IOBREJ EQU IOBFL4 10902000 IOBOVR EQU IOBFL4 10903000 IOBCRILC EQU IOBORG04+1 10904000 IOBCRDCC EQU IOBORG04 10905000 IOBGQECB EQU IOBORG03 10906000 IOBSWAP EQU IOBORG02+4 10907000 IOBDQADB EQU IOBDQADA+1 10908000 IOBRSV13 EQU IOBDEQIN 10909000 IOBRSV12 EQU IOBDEQIN 10910000 IOBRSV11 EQU IOBDEQIN 10911000 IOBRSV10 EQU IOBDEQIN 10912000 IOBRSV09 EQU IOBDEQIN 10913000 IOBRSV08 EQU IOBDEQIN 10914000 IOBRSV07 EQU IOBDEQIN 10915000 IOBDEQ EQU IOBDEQIN 10916000 IOBNECB EQU IOBORG01+4 10917000 IOBNIOBB EQU IOBNIOBA+1 10918000 IOBFIRST EQU IOBNFLG1 10919000 IOBUPERR EQU IOBNFLG1 10920000 IOBSPAN EQU IOBNFLG1 10921000 IOBBKSPC EQU IOBNFLG1 10922000 IOBUPDAT EQU IOBNFLG1 10923000 IOBREAD EQU IOBNFLG1 10924000 IOBWRITE EQU IOBNFLG1 10925000 IOBSEGMT EQU IOBPRTOV 10926000 DEBEXPTA EQU DEBEXPT+1 10927000 DEBRSV12 EQU DEBRPSID 10928000 DEBRSV11 EQU DEBRPSID 10929000 DEBRSV10 EQU DEBRPSID 10930000 DEBRSV09 EQU DEBRPSID 10931000 DEBRPSAP EQU DEBRPSID 10932000 DEBRPSO EQU DEBRPSID 10933000 DEBRPSI EQU DEBRPSID 10934000 DEBRPSP EQU DEBRPSID 10935000 DEBFOEB EQU DEBFOEAD+1 10936000 DEBNOEE EQU DEBFOEAD 10937000 DEBFPEB EQU DEBFPEAD+1 10938000 DEBNPEE EQU DEBFPEAD 10939000 DEBFIEB EQU DEBFIEAD+1 10940000 DEBNIEE EQU DEBFIEAD 10941000 DEBBOESS EQU DEBEODSS 10942000 DEBBOE0 EQU DEBEOD0 10943000 DEBBOETT EQU DEBEODTT 10944000 DEBBOERV EQU DEBEODRV 10945000 DEBRV008 EQU DEBDSID+7 10946000 DEBWTPTI EQU DEBDSID+6 10947000 DEBEXDTE EQU DEBDSID 10948000 DEBRV007 EQU DEBEAMFG 10949000 DEBRV006 EQU DEBEAMFG 10950000 DEBRV005 EQU DEBEAMFG 10951000 DEBRV004 EQU DEBEAMFG 10952000 DEBSECVL EQU DEBEAMFG 10953000 DEBVAMSG EQU DEBEAMFG 10954000 DEBDSOPN EQU DEBEAMFG 10955000 DEBMULTI EQU DEBEAMFG 10956000 DEBVSEQU EQU DEBASC09+2 10957000 DEBDSSQL EQU DEBASC09+1 10958000 DEBVOLAC EQU DEBASC09 10959000 DEBWDCBA EQU DEBWDCB+1 10960000 DEBRSV08 EQU DEBWDCB 10961000 DEBPDCBA EQU DEBPDCB+1 10962000 DEBRSV07 EQU DEBPDCB 10963000 DEBRDCBA EQU DEBRDCB+1 10964000 DEBRSV06 EQU DEBRDCB 10965000 DEBSUCBB EQU DEBSUCBA+1 10966000 DEBSDVM EQU DEBSUCBA 10967000 GDTCVR EQU GDTTBL+184 10968000 GDTSPR EQU GDTTBL+164 10969000 GDTTOH EQU GDTTBL+132 10970000 GDTRIP EQU GDTTBL+128 10971000 GDTIOH EQU GDTTBL+36 10972000 GDTSAH EQU GDTTBL+32 10973000 GDTTPH EQU GDTTBL+28 10974000 GDTRIH EQU GDTTBL+24 10975000 GDTSTH EQU GDTTBL+20 10976000 GDTDBH EQU GDTTBL+16 10977000 GDTPRM EQU GDTTBL+4 10978000 GDTHDR EQU GDTTBL 10979000 @NM00065 EQU DWRDTCB 10980000 FINALTT EQU FINALT+2 10981000 FINALTC EQU FINALT 10982000 @NM00063 EQU TCBXTNT2+32 10983000 TCBRV181 EQU TCBRV173 10984000 TCBRV180 EQU TCBRV173 10985000 TCBRV179 EQU TCBRV173 10986000 TCBRV178 EQU TCBRV173 10987000 TCBRV177 EQU TCBRV173 10988000 TCBRV176 EQU TCBRV173 10989000 TCBRV175 EQU TCBRV173 10990000 TCBRV174 EQU TCBRV173 10991000 TCBRV172 EQU TCBRV164 10992000 TCBRV171 EQU TCBRV164 10993000 TCBRV170 EQU TCBRV164 10994000 TCBRV169 EQU TCBRV164 10995000 TCBRV168 EQU TCBRV164 10996000 TCBRV167 EQU TCBRV164 10997000 TCBRV166 EQU TCBRV164 10998000 TCBRV165 EQU TCBRV164 10999000 TCBRV163 EQU TCBRV155 11000000 TCBRV162 EQU TCBRV155 11001000 TCBRV161 EQU TCBRV155 11002000 TCBRV160 EQU TCBRV155 11003000 TCBRV159 EQU TCBRV155 11004000 TCBRV158 EQU TCBRV155 11005000 TCBRV157 EQU TCBRV155 11006000 TCBRV156 EQU TCBRV155 11007000 TCBRV154 EQU TCBRV146 11008000 TCBRV153 EQU TCBRV146 11009000 TCBRV152 EQU TCBRV146 11010000 TCBRV151 EQU TCBRV146 11011000 TCBRV150 EQU TCBRV146 11012000 TCBRV149 EQU TCBRV146 11013000 TCBRV148 EQU TCBRV146 11014000 TCBRV147 EQU TCBRV146 11015000 TCBRV145 EQU TCBXTNT2+26 11016000 TCBRV144 EQU TCBXTNT2+24 11017000 TCBRV143 EQU TCBXTNT2+20 11018000 TCBRV142 EQU TCBXTNT2+16 11019000 TCBRSV49 EQU TCBXTNT2+12 11020000 TCBEVENT EQU TCBXTNT2+8 11021000 TCBRCMP EQU TCBXTNT2+5 11022000 TCBRSVAB EQU TCBXTNT2+4 11023000 TCBGTFA EQU TCBGTF+1 11024000 TCBRSV47 EQU TCBTFLG 11025000 TCBRSV46 EQU TCBTFLG 11026000 TCBRSV45 EQU TCBTFLG 11027000 TCBRSV44 EQU TCBTFLG 11028000 TCBRSV43 EQU TCBTFLG 11029000 TCBDSPIT EQU TCBTFLG 11030000 TCBERRTN EQU TCBTFLG 11031000 TCBASYNC EQU TCBTFLG 11032000 @NM00062 EQU TCB+296 11033000 TCBSVCA2 EQU TCB+292 11034000 TCBSWASA EQU TCB+288 11035000 TCBDBTB EQU TCB+284 11036000 TCBRPT EQU TCB+280 11037000 TCBRV141 EQU TCBRV133 11038000 TCBRV140 EQU TCBRV133 11039000 TCBRV139 EQU TCBRV133 11040000 TCBRV138 EQU TCBRV133 11041000 TCBRV137 EQU TCBRV133 11042000 TCBRV136 EQU TCBRV133 11043000 TCBRV135 EQU TCBRV133 11044000 TCBRV134 EQU TCBRV133 11045000 TCBRV132 EQU TCBRV124 11046000 TCBRV131 EQU TCBRV124 11047000 TCBRV130 EQU TCBRV124 11048000 TCBRV129 EQU TCBRV124 11049000 TCBRV128 EQU TCBRV124 11050000 TCBRV127 EQU TCBRV124 11051000 TCBRV126 EQU TCBRV124 11052000 TCBRV125 EQU TCBRV124 11053000 TCBRV123 EQU TCBFBYT2 11054000 TCBRV122 EQU TCBFBYT2 11055000 TCBECBNV EQU TCBFBYT2 11056000 TCBSSSYN EQU TCBFBYT2 11057000 TCBFPRAP EQU TCBFBYT2 11058000 TCBFDW EQU TCBFBYT2 11059000 TCBFMW EQU TCBFBYT2 11060000 TCBCNCB EQU TCBFBYT2 11061000 TCBLLH EQU TCBFBYT1 11062000 TCBRV113 EQU TCBFBYT1 11063000 TCBEOT EQU TCBFBYT1 11064000 TCBRTM2 EQU TCBFBYT1 11065000 TCBPGNLY EQU TCBFBYT1 11066000 TCBNDIOS EQU TCBFBYT1 11067000 TCBACTIV EQU TCBFBYT1 11068000 TCBEOTFM EQU TCBFBYT1 11069000 TCBAFFN EQU TCB+274 11070000 TCBCCPVI EQU TCB+272 11071000 TCBUKYSP EQU TCB+268 11072000 TCBMODE EQU TCBESTAE+3 11073000 TCBERTYP EQU TCBESTAE+2 11074000 TCBRV314 EQU TCBESTRM 11075000 TCBRV313 EQU TCBESTRM 11076000 TCBRV312 EQU TCBESTRM 11077000 TCBRV311 EQU TCBESTRM 11078000 TCBRV310 EQU TCBESTRM 11079000 TCBRV309 EQU TCBESTRM 11080000 TCBRV308 EQU TCBESTRM 11081000 TCBETERM EQU TCBESTRM 11082000 TCBSCBKY EQU TCBESTAE 11083000 TCBRTM12 EQU TCB+260 11084000 TCBTCBID EQU TCB+256 11085000 TCBRSV96 EQU TCB+252 11086000 TCBSWA EQU TCB+248 11087000 TCBFOEA EQU TCBFOE+1 11088000 TCBRSV42 EQU TCBFOE 11089000 TCBRV306 EQU TCB+240 11090000 TCBRSV41 EQU TCB+239 11091000 TCBTID EQU TCB+238 11092000 TCBRSVAA EQU TCB+237 11093000 TCBABCUR EQU TCB+236 11094000 TCBTMSAV EQU TCB+232 11095000 TCBIOTIM EQU TCB+228 11096000 TCBRTWA EQU TCB+224 11097000 TCBBACK EQU TCB+220 11098000 TCBTIRB EQU TCB+216 11099000 TCBAECB EQU TCB+212 11100000 TCBEXT2A EQU TCBEXT2+1 11101000 TCBRSV39 EQU TCBEXT2 11102000 TCBSTMCT EQU TCB+207 11103000 TCBSYSCT EQU TCB+206 11104000 TCBRSV37 EQU TCB+205 11105000 TCBEXSVC EQU TCBDAR 11106000 TCBDARMS EQU TCBDAR 11107000 TCBDARWT EQU TCBDAR 11108000 TCBDARO EQU TCBDAR 11109000 TCBDARMC EQU TCBDARC 11110000 TCBDARD EQU TCBDAR 11111000 TCBDARS EQU TCBDAR 11112000 TCBDARP EQU TCBDAR 11113000 TCBGTOFM EQU TCBFLGS7 11114000 TCBADMP EQU TCBFLGS7 11115000 TCBRSTSK EQU TCBFLGS7 11116000 TCBSVCS EQU TCBFLGS7 11117000 TCBSTACK EQU TCBFLGS7 11118000 TCBRSV34 EQU TCBFLGS7 11119000 TCBRSV33 EQU TCBFLGS7 11120000 TCBGPECB EQU TCBFLGS7 11121000 TCBNTJS EQU TCBFLGS6 11122000 TCBAPG EQU TCBFLGS6 11123000 TCBMIGR EQU TCBFLGS6 11124000 TCBRV303 EQU TCBFLGS6 11125000 TCBSPVLK EQU TCBFLGS6 11126000 TCBCPU EQU TCBFLGS6 11127000 TCBPIE17 EQU TCBFLGS6 11128000 TCBRV EQU TCBFLGS6 11129000 TCBRSV79 EQU TCBNDSP5 11130000 TCBRSV78 EQU TCBNDSP5 11131000 TCBRSV77 EQU TCBNDSP5 11132000 TCBRSV76 EQU TCBNDSP5 11133000 TCBRSV75 EQU TCBNDSP5 11134000 TCBRSV74 EQU TCBNDSP5 11135000 TCBRSV95 EQU TCBNDSP5 11136000 TCBRSV94 EQU TCBNDSP5 11137000 TCBRSV93 EQU TCBNDSP4 11138000 TCBRSV92 EQU TCBNDSP4 11139000 TCBRSV91 EQU TCBNDSP4 11140000 TCBRSV90 EQU TCBNDSP4 11141000 TCBRSV89 EQU TCBNDSP4 11142000 TCBRSV88 EQU TCBNDSP4 11143000 TCBRSV87 EQU TCBNDSP4 11144000 TCBRSV86 EQU TCBNDSP4 11145000 TCBEXT1A EQU TCBEXT1+1 11146000 TCBRSV32 EQU TCBEXT1 11147000 TCBEXCPD EQU TCB+192 11148000 TCBIOBRC EQU TCB+188 11149000 TCBDDWTC EQU TCB+186 11150000 TCBDDEXC EQU TCB+184 11151000 TCBJSCBB EQU TCBJSCB+1 11152000 @NM00061 EQU TCBRECDE 11153000 TCBREC EQU TCBRECDE 11154000 TCBMDIDS EQU TCB+176 11155000 TCBNDINT EQU TCBNDSP3 11156000 TCBRSV27 EQU TCBNDSP3 11157000 TCBRSV26 EQU TCBNDSP3 11158000 TCBRSV25 EQU TCBNDSP3 11159000 TCBRSV24 EQU TCBNDSP3 11160000 TCBSRBND EQU TCBNDSP3 11161000 TCBRV302 EQU TCBNDSP3 11162000 TCBLJSND EQU TCBNDSP3 11163000 TCBABE EQU TCBNDSP2 11164000 TCBDSS EQU TCBNDSP2 11165000 TCBOWAIT EQU TCBNDSP2 11166000 TCBIWAIT EQU TCBNDSP2 11167000 TCBNDTS EQU TCBNDSP2 11168000 TCBNDSVC EQU TCBNDSP2 11169000 TCBSTPP EQU TCBNDSP2 11170000 TCBABD EQU TCBNDSP2 11171000 TCBRSV22 EQU TCBNDSP1 11172000 TCBPIEND EQU TCBNDSP1 11173000 TCBTPSP EQU TCBNDSP1 11174000 TCBDDRND EQU TCBNDSP1 11175000 TCBRSPND EQU TCBNDSP1 11176000 TCBRSTND EQU TCBNDSP1 11177000 TCBDARPN EQU TCBNDSP1 11178000 TCBDARTN EQU TCBNDSP1 11179000 TCBNDSP0 EQU TCBNDSP 11180000 TCBUSER EQU TCB+168 11181000 TCBTCTB EQU TCBTCT+1 11182000 TCBRSV9C EQU TCBTCTGF 11183000 TCBRSV9B EQU TCBTCTGF 11184000 TCBRSV9A EQU TCBTCTGF 11185000 TCBRSV99 EQU TCBTCTGF 11186000 TCBRSV98 EQU TCBTCTGF 11187000 TCBRSV97 EQU TCBTCTGF 11188000 TCBRSV20 EQU TCBTCTGF 11189000 TCBSMFGF EQU TCBTCTGF 11190000 TCBSTABB EQU TCBSTAB+1 11191000 TCBSTCUR EQU TCBNSTAE 11192000 TCBRV301 EQU TCBNSTAE 11193000 TCBSYNCH EQU TCBNSTAE 11194000 TCBHALT EQU TCBNSTAE 11195000 TCBPPSUP EQU TCBNSTAE 11196000 TCB33E EQU TCBNSTAE 11197000 TCBQUIES EQU TCBNSTAE 11198000 TCBSTABE EQU TCBNSTAE 11199000 TCBAQE EQU TCB+156 11200000 TCBPQE EQU TCB+152 11201000 TCBTSDP EQU TCB+151 11202000 TCBTSLP EQU TCB+150 11203000 TCBSTPCT EQU TCB+149 11204000 TCBCPUBN EQU TCBTSFLG 11205000 TCBDYDSP EQU TCBTSFLG 11206000 TCBRSV18 EQU TCBTSFLG 11207000 TCBRSV17 EQU TCBTSFLG 11208000 TCBTIOTG EQU TCBTSFLG 11209000 TCBATT EQU TCBTSFLG 11210000 TCBSTPPR EQU TCBTSFLG 11211000 TCBRV300 EQU TCBTSTSK 11212000 TCBECB EQU TCB+144 11213000 TCBIQE EQU TCB+140 11214000 TCBLTC EQU TCB+136 11215000 TCBOTC EQU TCB+132 11216000 TCBNTC EQU TCB+128 11217000 TCBJSTCA EQU TCBJSTCB+1 11218000 TCBRSV16 EQU TCBJSTCB 11219000 TCBTQET EQU TCBTME 11220000 TCBTCB EQU TCB+116 11221000 TCBFSAB EQU TCBFSA+1 11222000 TCBQEL EQU TCBFSA 11223000 TCBGRS15 EQU TCBGRS+60 11224000 TCBGRS14 EQU TCBGRS+56 11225000 TCBGRS13 EQU TCBGRS+52 11226000 TCBGRS12 EQU TCBGRS+48 11227000 TCBGRS11 EQU TCBGRS+44 11228000 TCBGRS10 EQU TCBGRS+40 11229000 TCBGRS9 EQU TCBGRS+36 11230000 TCBGRS8 EQU TCBGRS+32 11231000 TCBGRS7 EQU TCBGRS+28 11232000 TCBGRS6 EQU TCBGRS+24 11233000 TCBGRS5 EQU TCBGRS+20 11234000 TCBGRS4 EQU TCBGRS+16 11235000 TCBGRS3 EQU TCBGRS+12 11236000 TCBGRS2 EQU TCBGRS+8 11237000 TCBGRS1 EQU TCBGRS+4 11238000 TCBGRS0 EQU TCBGRS 11239000 TCBJPQB EQU TCBJPQ+1 11240000 TCBRSV15 EQU TCBPURGE 11241000 TCBRSV14 EQU TCBPURGE 11242000 TCBRSV13 EQU TCBPURGE 11243000 TCBRSV12 EQU TCBPURGE 11244000 TCBRSV11 EQU TCBPURGE 11245000 TCBRSV10 EQU TCBPURGE 11246000 TCBRSV09 EQU TCBPURGE 11247000 TCBJPQF EQU TCBPURGE 11248000 TCBJLB EQU TCB+40 11249000 TCBLLS EQU TCB+36 11250000 TCBDSP EQU TCB+35 11251000 TCBLMP EQU TCB+34 11252000 TCBPNDSP EQU TCBFLGS5 11253000 TCBFCD1 EQU TCBFLGS5 11254000 TCBSTP EQU TCBFLGS5 11255000 TCBSYS EQU TCBFLGS5 11256000 TCBANDSP EQU TCBFLGS5 11257000 TCBPAGE EQU TCBFLGS5 11258000 TCBUXNDF EQU TCBABWF 11259000 TCBFC EQU TCBFLGS5 11260000 TCBONDSP EQU TCBFLGS4 11261000 TCBMPCND EQU TCBFLGS4 11262000 TCBMPCVQ EQU TCBFLGS4 11263000 TCBUXNDV EQU TCBFLGS4 11264000 TCBHNDSP EQU TCBFLGS4 11265000 TCBRQENA EQU TCBFLGS4 11266000 TCBSER EQU TCBFLGS4 11267000 TCBNDUMP EQU TCBFLGS4 11268000 TCBDWSTA EQU TCBFLGS3 11269000 TCBRSV08 EQU TCBFLGS3 11270000 TCBRSV07 EQU TCBFLGS3 11271000 TCBRSV06 EQU TCBFLGS3 11272000 TCBABGM EQU TCBFLGS3 11273000 TCBABTRM EQU TCBFLGS3 11274000 TCBADINP EQU TCBFLGS3 11275000 TCBFSM EQU TCBFLGS3 11276000 TCBFTS EQU TCBFLGS2 11277000 TCBFETXR EQU TCBFLGS2 11278000 TCBFDSOP EQU TCBFLGS2 11279000 TCBFJMC EQU TCBFLGS2 11280000 TCBFSMC EQU TCBFLGS2 11281000 TCBFABOP EQU TCBFLGS2 11282000 TCBFSTI EQU TCBFLGS2 11283000 TCBFOINP EQU TCBFLGS2 11284000 TCBFX EQU TCBFLGS1 11285000 TCBFS EQU TCBFLGS1 11286000 TCBFT EQU TCBFLGS1 11287000 TCBPDUMP EQU TCBFLGS1 11288000 TCBNONPR EQU TCBFLGS1 11289000 TCBFERA EQU TCBFLGS1 11290000 TCBFE EQU TCBFLGS1 11291000 TCBFA EQU TCBFLGS1 11292000 TCBZERO EQU TCBPKF 11293000 TCBFLAG EQU TCBPKF 11294000 TCBMSSB EQU TCBMSS+1 11295000 TCBRSV03 EQU TCBMSS 11296000 TCBTRNB EQU TCBTRN+1 11297000 TCBRSV02 EQU TCBABF 11298000 TCBOLTEP EQU TCBABF 11299000 TCBTCP EQU TCBABF 11300000 TCBTCPP EQU TCBABF 11301000 TCBRSV01 EQU TCBABF 11302000 TCBGRPH EQU TCBABF 11303000 TCBNOCHK EQU TCBABF 11304000 TCBMOD91 EQU TCBABF 11305000 TCBCMPC EQU TCBCMP+1 11306000 TCBRV318 EQU TCBCMSG 11307000 TCBRV317 EQU TCBCIND 11308000 TCBRV316 EQU TCBCWTO 11309000 TCBCASID EQU TCBCDBL 11310000 TCBNOCC EQU TCBSTCC 11311000 TCBDMPO EQU TCBCPP 11312000 TCBCSTEP EQU TCBCMPF 11313000 TCBCREQ EQU TCBCMPF 11314000 TCBTIO EQU TCB+12 11315000 TCBPIEA EQU TCBPIE+1 11316000 TCBPM EQU TCBPMASK 11317000 @NM00060 EQU TCBPMASK 11318000 TCBRBP EQU TCB 11319000 TCBFRS6 EQU TCBFRS+24 11320000 TCBFRS4 EQU TCBFRS+16 11321000 TCBFRS2 EQU TCBFRS+8 11322000 TCBFRS0 EQU TCBFRS 11323000 CVTLEVL EQU CVTRELNO+2 11324000 CVTNUMB EQU CVTRELNO 11325000 CVTMDL EQU CVTFIX+250 11326000 @NM00059 EQU CVTFIX+248 11327000 @NM00058 EQU CVTFIX 11328000 CVTRV482 EQU CVTXTNT2+128 11329000 CVTRV481 EQU CVTXTNT2+124 11330000 CVTRV480 EQU CVTXTNT2+120 11331000 CVTRV479 EQU CVTXTNT2+118 11332000 CVTRV478 EQU CVTXTNT2+117 11333000 CVTRV477 EQU CVTXTNT2+116 11334000 CVTRV476 EQU CVTXTNT2+115 11335000 CVTRV475 EQU CVTXTNT2+114 11336000 CVTRV474 EQU CVTRV466 11337000 CVTRV473 EQU CVTRV466 11338000 CVTRV472 EQU CVTRV466 11339000 CVTRV471 EQU CVTRV466 11340000 CVTRV470 EQU CVTRV466 11341000 CVTRV469 EQU CVTRV466 11342000 CVTRV468 EQU CVTRV466 11343000 CVTRV467 EQU CVTRV466 11344000 CVTRV465 EQU CVTRV457 11345000 CVTRV464 EQU CVTRV457 11346000 CVTRV463 EQU CVTRV457 11347000 CVTRV462 EQU CVTRV457 11348000 CVTRV461 EQU CVTRV457 11349000 CVTRV460 EQU CVTRV457 11350000 CVTRV459 EQU CVTRV457 11351000 CVTRV458 EQU CVTRV457 11352000 CVTRV456 EQU CVTXTNT2+108 11353000 CVTRV455 EQU CVTXTNT2+104 11354000 CVTRV454 EQU CVTXTNT2+100 11355000 CVTRV453 EQU CVTXTNT2+96 11356000 CVTRV452 EQU CVTXTNT2+94 11357000 CVTRV451 EQU CVTXTNT2+92 11358000 CVTRV450 EQU CVTXTNT2+90 11359000 CVTRV449 EQU CVTXTNT2+88 11360000 CVTRV448 EQU CVTXTNT2+87 11361000 CVTRV447 EQU CVTXTNT2+86 11362000 CVTRV446 EQU CVTRV438 11363000 CVTRV445 EQU CVTRV438 11364000 CVTRV444 EQU CVTRV438 11365000 CVTRV443 EQU CVTRV438 11366000 CVTRV442 EQU CVTRV438 11367000 CVTRV441 EQU CVTRV438 11368000 CVTRV440 EQU CVTRV438 11369000 CVTRV439 EQU CVTRV438 11370000 CVTRV437 EQU CVTRV429 11371000 CVTRV436 EQU CVTRV429 11372000 CVTRV435 EQU CVTRV429 11373000 CVTRV434 EQU CVTRV429 11374000 CVTRV433 EQU CVTRV429 11375000 CVTRV432 EQU CVTRV429 11376000 CVTRV431 EQU CVTRV429 11377000 CVTRV430 EQU CVTRV429 11378000 CVTRV428 EQU CVTXTNT2+80 11379000 CVTRV427 EQU CVTXTNT2+76 11380000 CVTRV426 EQU CVTXTNT2+72 11381000 CVTRV425 EQU CVTXTNT2+68 11382000 CVTATACT EQU CVTATCVT 11383000 CVTRV423 EQU CVTXTNT2+62 11384000 CVTRV422 EQU CVTXTNT2+60 11385000 CVTRV421 EQU CVTXTNT2+58 11386000 CVTRV420 EQU CVTXTNT2+56 11387000 CVTRV419 EQU CVTXTNT2+55 11388000 CVTRV418 EQU CVTXTNT2+54 11389000 CVTRV417 EQU CVTRV409 11390000 CVTRV416 EQU CVTRV409 11391000 CVTRV415 EQU CVTRV409 11392000 CVTRV414 EQU CVTRV409 11393000 CVTRV413 EQU CVTRV409 11394000 CVTRV412 EQU CVTRV409 11395000 CVTRV411 EQU CVTRV409 11396000 CVTRV410 EQU CVTRV409 11397000 CVTRV408 EQU CVTRV400 11398000 CVTRV407 EQU CVTRV400 11399000 CVTRV406 EQU CVTRV400 11400000 CVTRV405 EQU CVTRV400 11401000 CVTRV404 EQU CVTRV400 11402000 CVTRV403 EQU CVTRV400 11403000 CVTRV402 EQU CVTRV400 11404000 CVTRV401 EQU CVTRV400 11405000 CVTICB EQU CVTXTNT2+48 11406000 CVTSKTA EQU CVTXTNT2+44 11407000 CVTRSV99 EQU CVTXTNT2+40 11408000 CVTRSV98 EQU CVTXTNT2+36 11409000 CVTRSV97 EQU CVTXTNT2+34 11410000 CVTRSV96 EQU CVTXTNT2+32 11411000 CVTOLTEP EQU CVTXTNT2+28 11412000 CVTQIDA EQU CVTQID+1 11413000 CVTRSV95 EQU CVTQID 11414000 CVTRSV94 EQU CVTXTNT2+20 11415000 CVTRSV93 EQU CVTXTNT2+16 11416000 CVTRSV92 EQU CVTXTNT2+12 11417000 CVTDEBVR EQU CVTXTNT2+8 11418000 CVTRSV91 EQU CVTXTNT2+6 11419000 CVTRSV9H EQU CVTFLGBT 11420000 CVTRSV9G EQU CVTFLGBT 11421000 CVTRSV9F EQU CVTFLGBT 11422000 CVTRSV9E EQU CVTFLGBT 11423000 CVTRSV9D EQU CVTFLGBT 11424000 CVTRSV9C EQU CVTFLGBT 11425000 CVTVME EQU CVTFLGBT 11426000 CVTNPE EQU CVTFLGBT 11427000 CVTNUCLS EQU CVTXTNT2+4 11428000 CVTDSSVA EQU CVTDSSV+1 11429000 CVTRSV89 EQU CVTDSSV 11430000 CVTRSV88 EQU CVTXTNT1+8 11431000 CVTRSV87 EQU CVTXTNT1+4 11432000 CVTFACHN EQU CVTXTNT1 11433000 CVTRV488 EQU CVTMAP+412 11434000 CVTRV487 EQU CVTMAP+408 11435000 CVTRV486 EQU CVTMAP+404 11436000 CVTRV485 EQU CVTMAP+400 11437000 CVTACTAP EQU CVTMAP+396 11438000 CVTAUTH EQU CVTMAP+392 11439000 CVTATMCA EQU CVTATMCT+1 11440000 CVTATMST EQU CVTATMCT 11441000 CVTRSV61 EQU CVTMAP+384 11442000 CVTVOLT1 EQU CVTVOLM1+1 11443000 CVTVOLI1 EQU CVTVOLF1 11444000 CVTSTOA EQU CVTMAP+376 11445000 CVTRSV58 EQU CVTMAP+374 11446000 CVTRSV57 EQU CVTMAP+372 11447000 CVTDDCE EQU CVTMAP+368 11448000 CVTPNWFR EQU CVTMAP+364 11449000 CVTSMF EQU CVTMAP+360 11450000 CVTSULK EQU CVTMAP+358 11451000 CVTSLKO EQU CVTSYSK 11452000 CVTSLKP EQU CVTSYSK 11453000 CVTSLKQ EQU CVTSYSK 11454000 CVTSLKR EQU CVTSYSK 11455000 CVTRSV56 EQU CVTSYSK 11456000 CVTRSV55 EQU CVTSYSK 11457000 CVTRSV54 EQU CVTSYSK 11458000 CVTRSV53 EQU CVTSYSK 11459000 CVTRSV52 EQU CVTA1F1 11460000 CVTRSV51 EQU CVTA1F1 11461000 CVTRSV50 EQU CVTA1F1 11462000 CVTRSV49 EQU CVTA1F1 11463000 CVTRSV48 EQU CVTA1F1 11464000 CVTRSV47 EQU CVTA1F1 11465000 CVTSRSW EQU CVTA1F1 11466000 CVTPFSW EQU CVTA1F1 11467000 CVTPCVT EQU CVTMAP+352 11468000 CVTRSV46 EQU CVTMAP+344 11469000 CVTRSV45 EQU CVTMAP+340 11470000 CVTRSV44 EQU CVTMAP+338 11471000 CVTRSV43 EQU CVTMAP+336 11472000 CVTHJESA EQU CVTHJES+1 11473000 CVTRSV42 EQU CVTHJES 11474000 CVTEXT2A EQU CVTEXT2+1 11475000 CVTRSV41 EQU CVTEXT2 11476000 CVTAPFA EQU CVTAPF+1 11477000 CVTRSV40 EQU CVTAPF 11478000 CVTRV518 EQU CVTINTLA 11479000 CVTRV517 EQU CVTERPV 11480000 CVTEORM EQU CVTMAP+312 11481000 CVTMCHPR EQU CVTMAP+308 11482000 CVTTZ EQU CVTMAP+304 11483000 CVTJEPS EQU CVTMAP+300 11484000 CVTJESCT EQU CVTMAP+296 11485000 CVTMODE EQU CVTMAP+292 11486000 CVTPTRV EQU CVTMAP+288 11487000 CVTREAL EQU CVTMAP+284 11488000 CVTRSV39 EQU CVTMAP+280 11489000 CVTRSV38 EQU CVTMAP+276 11490000 CVTDMSRA EQU CVTDMSR+1 11491000 CVTRV634 EQU CVTDMSRF 11492000 CVTRV633 EQU CVTDMSRF 11493000 CVTRV632 EQU CVTDMSRF 11494000 CVTRV631 EQU CVTDMSRF 11495000 CVTRV630 EQU CVTDMSRF 11496000 CVTRV629 EQU CVTDMSRF 11497000 CVTUDUMP EQU CVTDMSRF 11498000 CVTSDUMP EQU CVTDMSRF 11499000 CVTQMSGA EQU CVTQMSG+1 11500000 CVTRSV36 EQU CVTQMSG 11501000 CVTAMFF EQU CVTMAP+264 11502000 CVTPURGA EQU CVTPURG+1 11503000 CVTRSV35 EQU CVTPURG 11504000 CVTCBSP EQU CVTMAP+256 11505000 CVTATERA EQU CVTATER+1 11506000 CVTSYST EQU CVTATER 11507000 CVTVOLT2 EQU CVTTAT 11508000 CVTVOLI2 EQU CVTVOLF2 11509000 CVTAQAVB EQU CVTAQAVT+1 11510000 CVTRSV34 EQU CVTTCMFG 11511000 CVTRSV33 EQU CVTTCMFG 11512000 CVTRSV32 EQU CVTTCMFG 11513000 CVTRSV31 EQU CVTTCMFG 11514000 CVTRSV30 EQU CVTTCMFG 11515000 CVTRSV29 EQU CVTTCMFG 11516000 CVTRSV28 EQU CVTTCMFG 11517000 CVTTCRDY EQU CVTTCMFG 11518000 CVTGTFA EQU CVTGTF+1 11519000 CVTRSV27 EQU CVTGTFST 11520000 CVTRNIO EQU CVTGTFST 11521000 CVTUSR EQU CVTGTFST 11522000 CVTRV318 EQU CVTFORM 11523000 CVTRV317 EQU CVTTMODE 11524000 CVTRV316 EQU CVTSTATE 11525000 CVTRV315 EQU CVTGTFS 11526000 CVTGTFAV EQU CVTGTFS 11527000 CVT0SCR1 EQU CVTMAP+232 11528000 CVTRV515 EQU CVTMAP+228 11529000 CVTRMS EQU CVTMAP+224 11530000 CVTPATCH EQU CVTMAP+220 11531000 CVTTSCE EQU CVTMAP+216 11532000 CVTLNKSC EQU CVTMAP+214 11533000 CVTQABST EQU CVTMAP+212 11534000 CVTMDLDS EQU CVTMAP+208 11535000 CVTUSER EQU CVTMAP+204 11536000 CVTABEND EQU CVTMAP+200 11537000 CVTSMCA EQU CVTMAP+196 11538000 CVTRSV18 EQU CVTMAP+192 11539000 CVTQLPAQ EQU CVTMAP+188 11540000 CVTQCDSR EQU CVTMAP+184 11541000 CVTRSV17 EQU CVTOPTB 11542000 CVTRSV16 EQU CVTOPTB 11543000 CVTFP EQU CVTOPTB 11544000 CVTAPTHR EQU CVTOPTB 11545000 CVTNLOG EQU CVTOPTB 11546000 CVTTOD EQU CVTOPTB 11547000 CVTCTIMS EQU CVTOPTB 11548000 CVTPROT EQU CVTOPTB 11549000 CVTXPFP EQU CVTOPTA 11550000 CVTASCII EQU CVTOPTA 11551000 CVTRSV13 EQU CVTOPTA 11552000 CVTRSV12 EQU CVTOPTA 11553000 CVTNIP EQU CVTOPTA 11554000 CVTDDR EQU CVTOPTA 11555000 CVTAPR EQU CVTOPTA 11556000 CVTCCH EQU CVTOPTA 11557000 CVTSNCTR EQU CVTMAP+180 11558000 CVTQMWR EQU CVTMAP+176 11559000 CVTQOCR EQU CVTMAP+172 11560000 CVT1EF00 EQU CVTMAP+168 11561000 CVTMZ00 EQU CVTMAP+164 11562000 CVTSV76Q EQU CVTSV76C 11563000 CVTRSV11 EQU CVTMAP+156 11564000 CVT0PT01 EQU CVTMAP+152 11565000 CVTMSER EQU CVTMAP+148 11566000 CVTRV516 EQU CVTIERLC 11567000 CVTILCH EQU CVTMAP+140 11568000 CVT0DS EQU CVTMAP+136 11569000 CVTFBOSV EQU CVTMAP+132 11570000 CVTNUCB EQU CVTMAP+128 11571000 CVTIXAVL EQU CVTMAP+124 11572000 CVTSV76M EQU CVTIOQET 11573000 CVTDCBA EQU CVTMAP+117 11574000 CVTMVS2 EQU CVTDCB 11575000 CVT6DAT EQU CVTDCB 11576000 CVT4MPS EQU CVTDCB 11577000 CVTRSV09 EQU CVTDCB 11578000 CVT4MS1 EQU CVTDCB 11579000 CVT2SPS EQU CVTDCB 11580000 CVT1SSS EQU CVTDCB 11581000 CVTRSV08 EQU CVTDCB 11582000 CVTSTB EQU CVTMAP+112 11583000 CVTQTD00 EQU CVTMAP+108 11584000 CVTQTE00 EQU CVTMAP+104 11585000 CVTCUCB EQU CVTMAP+100 11586000 CVTSJQ EQU CVTMAP+96 11587000 CVTPBLDL EQU CVTMAP+92 11588000 CVTTPC EQU CVTMAP+88 11589000 CVTBRET EQU CVTMAP+82 11590000 CVTEXIT EQU CVTMAP+80 11591000 CVT0FN00 EQU CVTMAP+76 11592000 CVTDARA EQU CVTDAR+1 11593000 CVTRSV07 EQU CVTFLGS1 11594000 CVTRSV06 EQU CVTFLGS1 11595000 CVTRSV05 EQU CVTFLGS1 11596000 CVTRSV04 EQU CVTFLGS1 11597000 CVTRSV03 EQU CVTFLGS1 11598000 CVTRSV02 EQU CVTFLGS1 11599000 CVTRSV01 EQU CVTFLGS1 11600000 CVTDMPLK EQU CVTFLGS1 11601000 CVTXITP EQU CVTMAP+68 11602000 CVTZDTAB EQU CVTMAP+64 11603000 CVTMSLT EQU CVTMAP+60 11604000 CVTDATE EQU CVTMAP+56 11605000 CVTBTERM EQU CVTMAP+52 11606000 CVTSYSAD EQU CVTMAP+48 11607000 CVTXTLER EQU CVTMAP+44 11608000 CVTILK1 EQU CVTMAP+36 11609000 CVTPRLTV EQU CVTMAP+32 11610000 CVTPCNVT EQU CVTMAP+28 11611000 CVT0VL00 EQU CVTMAP+24 11612000 CVTBUF EQU CVTMAP+16 11613000 CVTJOB EQU CVTMAP+12 11614000 CVTLINK EQU CVTMAP+8 11615000 CVT0EF00 EQU CVTMAP+4 11616000 CVT EQU CVTMAP 11617000 JFCRSV05 EQU JFCEROPT 11618000 JFCRSV04 EQU JFCEROPT 11619000 JFCRSV03 EQU JFCEROPT 11620000 JFCRSV02 EQU JFCEROPT 11621000 JFCTOPT EQU JFCEROPT 11622000 JFCABN EQU JFCEROPT 11623000 JFCSKP EQU JFCEROPT 11624000 JFCACC EQU JFCEROPT 11625000 JFCBUFL EQU JFCAMPTR+2 11626000 JFCFWORD EQU JFCBFTEK 11627000 JFCDWORD EQU JFCBFTEK 11628000 JFCHIER1 EQU JFCBFTEK 11629000 JFCDYN EQU JFCBFTEK 11630000 JFCEXC EQU JFCBFTEK 11631000 JFCBBFTR EQU JFCBBFTA 11632000 JFCSIM EQU JFCBBFTA 11633000 JFCHIER EQU JFCBFTEK 11634000 JFCBFOUT EQU JFCBUFNO 11635000 JFCBUFIN EQU JFCBUFNO 11636000 JFCTEMP EQU JFCBIND2 11637000 JFCREQ EQU JFCBIND2 11638000 JFCENT EQU JFCBIND2 11639000 JFCSHARE EQU JFCBIND2 11640000 JFCSECUR EQU JFCBIND2 11641000 JFCDISP EQU JFCBIND2 11642000 JFCPDS EQU JFCBIND1 11643000 JFCGDG EQU JFCBIND1 11644000 JFCADDED EQU JFCBIND1 11645000 JFCLOC EQU JFCBIND1 11646000 JFCRLSE EQU JFCBIND1 11647000 JFCBXPDT EQU INFMJFCB+83 11648000 JFCBCRDT EQU INFMJFCB+80 11649000 JFCBOPS2 EQU JFCBMASK+7 11650000 JFCRCTLG EQU JFCBFLG2 11651000 JFCBBUFF EQU JFCBFLG2 11652000 JFCTRACE EQU JFCBFLG2 11653000 JFCSDRPS EQU JFCBFLG2 11654000 JFCMODNW EQU JFCBFLG2 11655000 JFCNRPS EQU JFCDEFER 11656000 JFCOUTOP EQU JFCBFLG2 11657000 JFCINOP EQU JFCBFLG2 11658000 JFCBPWBP EQU JFCOPEN 11659000 @NM00054 EQU JFCOPEN 11660000 JFCDUAL EQU JFCBFLG1 11661000 JFCSLDES EQU JFCBFLG1 11662000 JFCSLCRE EQU JFCBFLG1 11663000 JFCSTAND EQU JFCBFLG1 11664000 JFCBOPS1 EQU JFCBMASK 11665000 JFCBVLSQ EQU INFMJFCB+70 11666000 JFCRSV31 EQU JFCFUNC 11667000 JFCFNCBT EQU JFCFUNC 11668000 JFCFNCBX EQU JFCFUNC 11669000 JFCFNCBD EQU JFCFUNC 11670000 JFCFNCBW EQU JFCFUNC 11671000 JFCFNCBP EQU JFCFUNC 11672000 JFCFNCBR EQU JFCFUNC 11673000 JFCFNCBI EQU JFCFUNC 11674000 JFCBFOFL EQU JFCBUFOF 11675000 JFCNL EQU JFCBLTYP 11676000 JFCSL EQU JFCBLTYP 11677000 JFCNSL EQU JFCBLTYP 11678000 JFCSUL EQU JFCBLTYP 11679000 JFCBLP EQU JFCBLTYP 11680000 JFCBLTM EQU JFCBLTYP 11681000 JFCBAL EQU JFCBLTYP 11682000 JFCRSV38 EQU JFCBLTYP 11683000 JFCVINDX EQU INFMJFCB+64 11684000 JFCNLREC EQU INFMJFCB+62 11685000 JFCBADBF EQU INFMJFCB+60 11686000 JFCAMSTR EQU JFCBFRID+2 11687000 JFCAMCRO EQU JFCBFRID 11688000 JFCBDSCB EQU INFMJFCB+53 11689000 JFCPAT EQU JFCBTSDM 11690000 JFCNDCB EQU JFCBTSDM 11691000 JFCNDSCB EQU JFCBTSDM 11692000 JFCTTR EQU JFCBTSDM 11693000 JFCSDS EQU JFCBTSDM 11694000 JFCVSL EQU JFCBTSDM 11695000 JFCCAT EQU JFCBTSDM 11696000 JFCIPLTX EQU JFCBELNM 11697000 JFCBQNAM EQU JFCBDSNM 11698000 UCBERADR EQU UCBUCS+12 11699000 UCBFCBID EQU UCBUCS+8 11700000 UCBERCNT EQU UCBUCS+7 11701000 UCBRSV51 EQU UCBUCS+6 11702000 UCBFCBPE EQU UCBFCBOP 11703000 UCBRSV49 EQU UCBFCBOP 11704000 UCBRSV48 EQU UCBFCBOP 11705000 UCBRSV47 EQU UCBFCBOP 11706000 UCBRSV46 EQU UCBFCBOP 11707000 UCBRSV45 EQU UCBFCBOP 11708000 UCBRSV44 EQU UCBFCBOP 11709000 UCBFCBO1 EQU UCBFCBOP 11710000 UCBUCSPE EQU UCBUCSOP 11711000 UCBRSV43 EQU UCBUCSOP 11712000 UCBRSV42 EQU UCBUCSOP 11713000 UCBRSV41 EQU UCBUCSOP 11714000 UCBRSV40 EQU UCBUCSOP 11715000 UCBRSV39 EQU UCBUCSOP 11716000 UCBUCSO2 EQU UCBUCSOP 11717000 UCBUCSO1 EQU UCBUCSOP 11718000 UCBUCSID EQU UCBUCS 11719000 UCBMDRBA EQU UCBMDRBF+1 11720000 UCBRV075 EQU UCBMDRBF 11721000 UCBRV074 EQU UCB3800X+32 11722000 UCBIMAGE EQU UCB3800X+28 11723000 UCBFCBNM EQU UCB3800X+24 11724000 UCBCHAR4 EQU UCB3800X+20 11725000 UCBCHAR3 EQU UCB3800X+16 11726000 UCBCHAR2 EQU UCB3800X+12 11727000 UCBCHAR1 EQU UCB3800X+8 11728000 UCBCGMID EQU UCB3800X+4 11729000 UCBBRSTA EQU UCBACTIV 11730000 UCBRV063 EQU UCBACTIV 11731000 UCBRV062 EQU UCBACTIV 11732000 UCBRV061 EQU UCBACTIV 11733000 UCBRV060 EQU UCBACTIV 11734000 UCBRV059 EQU UCBACTIV 11735000 UCBRV058 EQU UCBACTIV 11736000 UCBRV057 EQU UCBACTIV 11737000 UCBRV050 EQU UCB3800X+2 11738000 UCBCGMNO EQU UCB3800X+1 11739000 UCBRV083 EQU UCBOPTNS 11740000 UCBBRSTR EQU UCBOPTNS 11741000 UCBRV056 EQU UCBOPTNS 11742000 UCBRV055 EQU UCBOPTNS 11743000 UCBRV054 EQU UCBOPTNS 11744000 UCBRV053 EQU UCBOPTNS 11745000 UCBRV052 EQU UCBOPTNS 11746000 UCBRV051 EQU UCBOPTNS 11747000 UCBRV073 EQU UCB3540X+7 11748000 UCBRV072 EQU UCBDKBYT 11749000 UCBRV071 EQU UCBDKBYT 11750000 UCBRV070 EQU UCBDKBYT 11751000 UCBRV069 EQU UCBDKBYT 11752000 UCBRV068 EQU UCBDKBYT 11753000 UCBRV067 EQU UCBDKBYT 11754000 UCBVLVER EQU UCBDKBYT 11755000 UCBDKAMX EQU UCBDKBYT 11756000 UCBVLSER EQU UCB3540X 11757000 UCBRDATA EQU UCBOCR+4 11758000 UCBFRID EQU UCBOCR 11759000 UCBCLN EQU UCBMT+14 11760000 UCBERG EQU UCBMT+12 11761000 UCBMS EQU UCBMT+11 11762000 UCBNB EQU UCBMT+10 11763000 UCBPW EQU UCBMT+9 11764000 UCBPR EQU UCBMT+8 11765000 UCBSIO EQU UCBMT+6 11766000 UCBTW EQU UCBMT+5 11767000 UCBTR EQU UCBMT+4 11768000 UCBTWT EQU UCBMT+3 11769000 UCBTRT EQU UCBMT+2 11770000 UCBCTD EQU UCBMT 11771000 UCBWTOID EQU UCBCMEXT+17 11772000 UCBRV043 EQU UCBCMEXT+16 11773000 UCBASID EQU UCBCMEXT+14 11774000 UCBMFCNT EQU UCBCMEXT+12 11775000 UCBPMSK EQU UCBCMEXT+10 11776000 UCBCCWOF EQU UCBCMEXT+8 11777000 UCBRV041 EQU UCBCMEXT+6 11778000 UCBRV036 EQU UCBFLP1 11779000 UCBRV035 EQU UCBFLP1 11780000 UCBERLOG EQU UCBFLP1 11781000 UCBRV033 EQU UCBFLP1 11782000 UCBINHIO EQU UCBFLP1 11783000 UCBNSWAP EQU UCBFLP1 11784000 UCBSHRUP EQU UCBFLP1 11785000 UCBNSRCH EQU UCBFLP1 11786000 UCBSNSCT EQU UCBCMEXT+4 11787000 UCBHPDV EQU @NM00053 11788000 UCBHALI EQU @NM00053 11789000 UCBRSV09 EQU @NM00053 11790000 UCBRSV08 EQU @NM00053 11791000 UCBRSV07 EQU @NM00053 11792000 UCBRSV06 EQU @NM00053 11793000 UCBRSV05 EQU @NM00053 11794000 UCBRSV04 EQU @NM00053 11795000 UCBDTI EQU UCBCMEXT+2 11796000 UCBSTI EQU UCBCMEXT+1 11797000 UCBETI EQU UCBCMEXT 11798000 UCBEXTP EQU UCBEXTPT+1 11799000 UCBDDRSW EQU UCBFLC 11800000 UCBTICBT EQU UCBFLC 11801000 UCBIVRR EQU UCBFLC 11802000 UCBIVRS EQU UCBFLC 11803000 UCBITF EQU UCBFLC 11804000 UCBUDE EQU UCBFLC 11805000 UCBWAA EQU UCBFLC 11806000 UCBATTP EQU UCBFLC 11807000 UCBUNTYP EQU UCBTBYT4 11808000 UCBRSV11 EQU UCBDVCLS 11809000 UCBRSV10 EQU UCBDVCLS 11810000 UCB3CHAR EQU UCBDVCLS 11811000 UCB3UREC EQU UCBDVCLS 11812000 UCB3DISP EQU UCBDVCLS 11813000 UCB3DACC EQU UCBDVCLS 11814000 UCB3COMM EQU UCBDVCLS 11815000 UCB3TAPE EQU UCBDVCLS 11816000 UCBDVPWR EQU UCB2OPT7 11817000 UCBVLPWR EQU UCB2OPT6 11818000 UCB2OPT5 EQU UCBTBYT2 11819000 UCBRVDEV EQU UCBRWTAU 11820000 UCBRPS EQU UCBDUDN2 11821000 UCBRR EQU UCBDUDN1 11822000 UCB2OPT1 EQU UCBTBYT2 11823000 UCB2OPT0 EQU UCBTBYT2 11824000 UCB1FEA7 EQU UCBTBYT1 11825000 UCBD6250 EQU UCB1FEA6 11826000 UCBD1600 EQU UCB1FEA5 11827000 UCB1FEA4 EQU UCBTBYT1 11828000 UCB1FEA3 EQU UCBTBYT1 11829000 UCB1FEA2 EQU UCBTBYT1 11830000 UCB1FEA1 EQU UCBTBYT1 11831000 UCB1FEA0 EQU UCBTBYT1 11832000 UCBRV029 EQU UCBWGT 11833000 UCBVHRSN EQU UCBWGT 11834000 UCBVORSN EQU UCBWGT 11835000 UCBMTPXP EQU UCBWGT 11836000 UCBREW EQU UCBWGT 11837000 UCBPUB EQU UCBWGT 11838000 UCBOUT EQU UCBWGT 11839000 UCBIN EQU UCBWGT 11840000 UCBCPU EQU UCBOB+11 11841000 UCBLCI EQU UCBOB+10 11842000 UCBCNT EQU UCBOB+9 11843000 UCBRV017 EQU UCBCHM1 11844000 UCBRV016 EQU UCBCHM1 11845000 UCBRV015 EQU UCBCHM1 11846000 UCBRV014 EQU UCBCHM1 11847000 UCBSPB EQU UCBPTH1 11848000 UCBPPB EQU UCBPTH1 11849000 UCBSPA EQU UCBPTH0 11850000 UCBPPA EQU UCBPTH0 11851000 UCBSIGP EQU UCBFLB 11852000 UCBVALPH EQU UCBFLB 11853000 UCBCRHSN EQU UCBFLB 11854000 UCBCRHRV EQU UCBFLB 11855000 UCBRESVH EQU UCBFLB 11856000 UCBSPST EQU UCBFLB 11857000 UCBASNS EQU UCBFLB 11858000 UCBIORST EQU UCBFLB 11859000 UCBQISCE EQU UCBFL1 11860000 UCBACTV EQU UCBFL1 11861000 UCBSAP EQU UCBFL1 11862000 UCBNOTRC EQU UCBCUB 11863000 UCBPSNS EQU UCBFL1 11864000 UCBUSING EQU UCBPST 11865000 UCBBUSYD EQU UCBBSY 11866000 UCBUA EQU UCBCHAN+1 11867000 UCBCHA EQU UCBCHAN 11868000 UCBDADI EQU UCBSTAT 11869000 UCBSYSR EQU UCBSTAT 11870000 UCBPRES EQU UCBSTAT 11871000 UCBALOC EQU UCBSTAT 11872000 UCBUNLD EQU UCBSTAT 11873000 UCBRESV EQU UCBSTAT 11874000 UCBCHGS EQU UCBSTAT 11875000 UCBID EQU UCBOB+2 11876000 UCBALTPH EQU UCBFL5 11877000 UCBALTCU EQU UCBFL5 11878000 UCBENVRD EQU UCBFL5 11879000 UCBVSDR EQU UCBFL5 11880000 UCBSASK EQU UCBFL5 11881000 UCBAMV EQU UCBAF 11882000 UCBDCC EQU UCBFL5 11883000 UCBMONT EQU UCBJBNR 11884000 UCBRV011 EQU UCBJBNR 11885000 UCBMMSGP EQU UCBJBNR 11886000 UCBOLDSM EQU UCBJBNR 11887000 UCBRV003 EQU UCBJBNR 11888000 UCBDUC EQU UCBJBNR 11889000 UCBJES3 EQU UCBJBNR 11890000 UCBVRDEV EQU UCBJBNR 11891000 UCBCMSEG EQU UCBOB 11892000 UCBPFXND EQU UCB+512 11893000 UCBIOQ EQU UCB+508 11894000 UCBLOCK EQU UCB+504 11895000 UCBPXST EQU UCB+504 11896000 @NM00050 EQU UCB 11897000 IOBERRCT EQU IOBSTDRD+30 11898000 IOBRSV19 EQU IOBINCAM+1 11899000 IOBOLTST EQU IOBBTAMF 11900000 IOBRFTMG EQU IOBBTAMF 11901000 IOBRSV17 EQU IOBBTAMF 11902000 IOBRSV16 EQU IOBBTAMF 11903000 IOBRSV15 EQU IOBBTAMF 11904000 IOBRSV14 EQU IOBBTAMF 11905000 IOBINUSE EQU IOBBTAMF 11906000 IOBPRMER EQU IOBBTAMF 11907000 IOBRSTRB EQU IOBRESTR+1 11908000 IOBREPOS EQU IOBRESTR 11909000 IOBDCBPB EQU IOBDCBPT+1 11910000 IOBRSV44 EQU IOBFLAG4 11911000 IOBJES3I EQU IOBFLAG4 11912000 IOBRSV42 EQU IOBFLAG4 11913000 IOBRSV41 EQU IOBFLAG4 11914000 IOBRSV40 EQU IOBFLAG4 11915000 IOBPMERR EQU IOBFLAG4 11916000 IOBCC3WE EQU IOBFLAG4 11917000 IOBGDPOL EQU IOBFLAG4 11918000 IOBSTRTB EQU IOBSTART+1 11919000 IOBSIOCC EQU IOBSTART 11920000 IOBCSB7 EQU IOBCSTAT 11921000 IOBCSB6 EQU IOBCSTAT 11922000 IOBCSB5 EQU IOBCSTAT 11923000 IOBCSB4 EQU IOBCSTAT 11924000 IOBCSB3 EQU IOBCSTAT 11925000 IOBCSB2 EQU IOBCSTAT 11926000 IOBCSB1 EQU IOBCSTAT 11927000 IOBCSB0 EQU IOBCSTAT 11928000 IOBUSB7 EQU IOBUSTAT 11929000 IOBUSB6 EQU IOBUSTAT 11930000 IOBUSB5 EQU IOBUSTAT 11931000 IOBUSB4 EQU IOBUSTAT 11932000 IOBUSB3 EQU IOBUSTAT 11933000 IOBUSB2 EQU IOBUSTAT 11934000 IOBUSB1 EQU IOBUSTAT 11935000 IOBUSB0 EQU IOBUSTAT 11936000 IOBCMDA EQU IOBIOCSW 11937000 IOBLOG EQU IOBFL3 11938000 IOBJAM EQU IOBICL 11939000 IOBMSG EQU IOBFL3 11940000 IOBSDR EQU IOBCNC 11941000 IOBACU EQU IOBFL3 11942000 IOBCDC EQU IOBFL3 11943000 IOBICC EQU IOBFL3 11944000 IOBCCC EQU IOBFL3 11945000 IOBECBPB EQU IOBECBPT+1 11946000 IOBECBCC EQU IOBECBPT 11947000 IOBS1B7 EQU IOBSENS1 11948000 IOBS1B6 EQU IOBSENS1 11949000 IOBS1B5 EQU IOBSENS1 11950000 IOBS1B4 EQU IOBSENS1 11951000 IOBS1B3 EQU IOBSENS1 11952000 IOBS1B2 EQU IOBSENS1 11953000 IOBS1B1 EQU IOBSENS1 11954000 IOBS1B0 EQU IOBSENS1 11955000 IOBSNSC9 EQU IOBS0B7 11956000 IOBS0B6 EQU IOBSENS0 11957000 IOBS0B5 EQU IOBSENS0 11958000 IOBS0B4 EQU IOBSENS0 11959000 IOBS0B3 EQU IOBSENS0 11960000 IOBS0B2 EQU IOBSENS0 11961000 IOBS0B1 EQU IOBSENS0 11962000 IOBS0B0 EQU IOBSENS0 11963000 IOBPNCH EQU IOBFLAG2 11964000 IOBSTATO EQU IOBFLAG2 11965000 IOBSKUPD EQU IOBFLAG2 11966000 IOBALTTR EQU IOBFLAG2 11967000 IOBRRT2 EQU IOBRDHA0 11968000 IOBRRT3 EQU IOBPURGE 11969000 IOBSENSE EQU IOBFLAG2 11970000 IOBHALT EQU IOBFLAG2 11971000 IOBSPSVC EQU IOBRSTRT 11972000 IOBIOERR EQU IOBFLAG1 11973000 IOBFCREX EQU IOBCYCCK 11974000 IOBRPSTN EQU IOBFLAG1 11975000 IOBERRTN EQU IOBFLAG1 11976000 IOBCNOPA EQU IOBPREFX+12 11977000 IOBCICB EQU IOBPREFX+8 11978000 IOBCECB EQU IOBPREFX+4 11979000 IOBCONOP EQU IOBPREFX+3 11980000 IOBCINOP EQU IOBPREFX+2 11981000 IOBRSV05 EQU IOBPREFX+1 11982000 IOBPCI EQU IOBCFLG1 11983000 IOBRSTCH EQU IOBCFLG1 11984000 IOBABAPP EQU IOBCFLG1 11985000 IOBPTST EQU IOBCFLG1 11986000 IOBRSV04 EQU IOBCFLG1 11987000 IOBRSV03 EQU IOBCFLG1 11988000 IOBRSV02 EQU IOBCFLG1 11989000 IOBRSV01 EQU IOBCFLG1 11990000 ECBEVNT EQU ECBEXTND 11991000 @NM00049 EQU ECBEXTND 11992000 @NM00048 EQU ECBBYTE3 11993000 @NM00047 EQU ECBEXTBA 11994000 @NM00046 EQU ECBCC 11995000 ECBPOSTB EQU ECBCC 11996000 ECBWAITB EQU ECBCC 11997000 DEBXRV40 EQU DEBXTN+28 11998000 DEBXOPNJ EQU DEBXTN+24 11999000 DEBXXARG EQU DEBXTN+20 12000000 DEBXMCF2 EQU DEBXTN+19 12001000 DEBXMCF1 EQU DEBXTN+18 12002000 DEBXDSO2 EQU DEBXTN+17 12003000 DEBXDSO1 EQU DEBXTN+16 12004000 DEBXDBPR EQU DEBXTN+12 12005000 DEBXDCBM EQU DEBXTN+8 12006000 DEBXDSAB EQU DEBXTN+4 12007000 DEBXRV48 EQU DEBXTN+3 12008000 DEBXRV47 EQU DEBXFLG1 12009000 DEBXRV46 EQU DEBXFLG1 12010000 DEBXRV45 EQU DEBXFLG1 12011000 DEBXRV44 EQU DEBXFLG1 12012000 DEBXRV43 EQU DEBXFLG1 12013000 DEBXDSSI EQU DEBXFLG1 12014000 DEBXTSKC EQU DEBXFLG1 12015000 DEBXCDCB EQU DEBXFLG1 12016000 DEBXLNGH EQU DEBXTN 12017000 DEBTBLOF EQU DEBPREFX+14 12018000 DEBAMTYP EQU DEBPREFX+13 12019000 DEBLNGTH EQU DEBPREFX+12 12020000 DEBDCBMK EQU DEBXTNP 12021000 DEBDSCBA EQU DEBPREFX+1 12022000 DEBWKARA EQU DEBPREFX 12023000 DEBXCENP EQU DEBXCEAB 12024000 DEBRSV35 EQU DEBXCEAB 12025000 DEBRSV34 EQU DEBXCEAB 12026000 DEBRSV33 EQU DEBXCEAB 12027000 DEBRSV32 EQU DEBXCEAB 12028000 DEBCEAD EQU DEBCEA+1 12029000 DEBCENP EQU DEBCEAB 12030000 DEBRSV31 EQU DEBCEAB 12031000 DEBRSV30 EQU DEBCEAB 12032000 DEBRSV29 EQU DEBCEAB 12033000 DEBRSV28 EQU DEBCEAB 12034000 DEBPCIAD EQU DEBPCIA+1 12035000 DEBPCINP EQU DEBPCIAB 12036000 DEBRSV27 EQU DEBPCIAB 12037000 DEBRSV26 EQU DEBPCIAB 12038000 DEBRSV25 EQU DEBPCIAB 12039000 DEBRSV24 EQU DEBPCIAB 12040000 DEBSIOAD EQU DEBSIOA+1 12041000 DEBSIONP EQU DEBSIOAB 12042000 DEBFIX EQU DEBSIOAB 12043000 DEBIOVR EQU DEBSIOAB 12044000 DEBSIOX EQU DEBSIOAB 12045000 DEBPGFX EQU DEBSIOAB 12046000 DEBEOEAD EQU DEBEOEA+1 12047000 DEBEOENP EQU DEBEOEAB 12048000 DEBRSV22 EQU DEBEOEAB 12049000 DEBRSV21 EQU DEBEOEAB 12050000 DEBRSV20 EQU DEBEOEAB 12051000 DEBRSV19 EQU DEBEOEAB 12052000 DEBSUBID EQU DEBSUBNM 12053000 DEBSIOA2 EQU DEBACS08+24 12054000 DEBRPSIO EQU DEBACS08+20 12055000 DEBFREED EQU DEBACS08+16 12056000 @NM00045 EQU DEBACS08+12 12057000 @NM00044 EQU DEBACS08+8 12058000 DEBDISAD EQU DEBACS08+4 12059000 @NM00043 EQU DEBACS08 12060000 DEBRPSST EQU DEBACS07+64 12061000 DEBARECK EQU DEBACS07+60 12062000 DEBAREWT EQU DEBACS07+56 12063000 DEBACHK EQU DEBACS07+52 12064000 DEBAWRIT EQU DEBACS07+48 12065000 DEBASETL EQU DEBACS07+44 12066000 DEBAREAD EQU DEBACS07+40 12067000 DEBCRECK EQU DEBACS07+36 12068000 DEBCREWT EQU DEBACS07+32 12069000 DEBCCHK EQU DEBACS07+28 12070000 DEBCWRIT EQU DEBACS07+24 12071000 DEBCSETL EQU DEBACS07+20 12072000 DEBCREAD EQU DEBACS07+16 12073000 DEBWKPT5 EQU DEBACS07+12 12074000 DEBWKPT4 EQU DEBACS07+8 12075000 DEBGET EQU DEBACS07+4 12076000 @NM00042 EQU DEBACS07 12077000 DEBPUT EQU DEBACS06+4 12078000 DEBDCBFA EQU DEBACS06 12079000 DEBLUCBB EQU DEBLUCBA+1 12080000 DEBRSV18 EQU DEBLUCBA 12081000 DEBFUCBB EQU DEBFUCBA+1 12082000 DEBRSV17 EQU DEBFUCBA 12083000 DEBTCCWB EQU DEBTCCWA+1 12084000 DEBRSV16 EQU DEBTCCWA 12085000 DEBTBFRB EQU DEBTBFRA+1 12086000 DEBRSV15 EQU DEBTBFRA 12087000 DEBDBPEF EQU DEBACS03+8 12088000 DEBDBPP EQU DEBACS03+4 12089000 DEBDTPP EQU DEBACS03 12090000 DEBDBPE EQU DEBDBLK+1 12091000 DEBDBPT EQU DEBDBLK 12092000 DEBEXTNM EQU DEBDSNAM 12093000 DEBLRECL EQU DEBACSMD+14 12094000 DEBBLKSI EQU DEBACSMD+12 12095000 DEBRSV14 EQU DEBDSNM+4 12096000 DEBUTSAB EQU DEBUTSAA+1 12097000 DEBRSV13 EQU DEBUTSAA 12098000 DEBVOLNM EQU DEBACSMD+2 12099000 DEBVLSEQ EQU DEBVOLSQ+1 12100000 DEBRSV42 EQU DEBVOLBT 12101000 DEBRSV41 EQU DEBVOLBT 12102000 DEBRSV40 EQU DEBVOLBT 12103000 DEBRSV39 EQU DEBVOLBT 12104000 DEBRSV38 EQU DEBVOLBT 12105000 DEBRSV37 EQU DEBVOLBT 12106000 DEBRSV36 EQU DEBVOLBT 12107000 DEBEXFUL EQU DEBVOLBT 12108000 DEBBINUM EQU DEBDASD+4 12109000 DEBUCBA EQU DEBUCBAD+1 12110000 DEBAPPB EQU DEBAPPAD+1 12111000 DEBEXSCL EQU DEBAPPAD 12112000 DEBDCBB EQU DEBDCBAD+1 12113000 DEBECBB EQU DEBECBAD+1 12114000 DEBPRIOR EQU DEBECBAD 12115000 DEBUSRPB EQU DEBUSRPG+1 12116000 DEBRSV05 EQU DEBBASIC+15 12117000 DEBXTNIN EQU DEBFLGS1 12118000 DEBAPFIN EQU DEBFLGS1 12119000 DEBF1CEV EQU DEBFLGS1 12120000 DEBCINDI EQU DEBFLGS1 12121000 DEBRSV02 EQU DEBFLGS1 12122000 DEBRSIOA EQU DEBFLGS1 12123000 DEBEOFDF EQU DEBFLGS1 12124000 DEBPWCKD EQU DEBFLGS1 12125000 DEBQSCNT EQU DEBBASIC+13 12126000 DEBACCS EQU DEBOPATB 12127000 DEBPOSIT EQU DEBOPATB 12128000 DEBZERO EQU DEBOPATB 12129000 DEBABEND EQU DEBOPATB 12130000 DEBIRBB EQU DEBIRBAD+1 12131000 DEBRERR EQU DEBOFLGS 12132000 DEBLABEL EQU DEBOFLGS 12133000 DEBSPLIT EQU DEBOFLGS 12134000 DEBDCB EQU DEBOFLGS 12135000 DEBRLSE EQU DEBOFLGS 12136000 DEBEOF EQU DEBOFLGS 12137000 DEBDISP EQU DEBOFLGS 12138000 DEBDEBB EQU DEBDEBAD+1 12139000 DEBAMLNG EQU DEBDEBAD 12140000 DEBTCBB EQU DEBTCBAD+1 12141000 DEBNMSUB EQU DEBTCBAD 12142000 @NM00041 EQU IHADCS44+10 12143000 DCBXENDA EQU IHADCS44+8 12144000 DCBCENDA EQU IHADCS44+6 12145000 DCBSIOA EQU IHADCS44+4 12146000 DCBPCIA EQU IHADCS44+2 12147000 DCBEOEA EQU IHADCS44 12148000 @NM00040 EQU IHADCS28+1 12149000 @NM00039 EQU DCBOPTCD 12150000 DCBSRCHD EQU DCBOPTZ 12151000 @NM00038 EQU DCBOPTCD 12152000 @NM00037 EQU DCBIFLGS 12153000 DCBIFIOE EQU DCBIFLGS 12154000 DCBCH12 EQU DCBIFPCT 12155000 DCBCH9 EQU DCBIFPCT 12156000 DCBIFEC EQU DCBIFLGS 12157000 DCBMFSTI EQU DCBMFDMD 12158000 DCBMFAWR EQU DCBMFSTK 12159000 DCBMFUIP EQU DCBMFTMD 12160000 DCBMFIDW EQU DCBMFLCP 12161000 DCBMFWRK EQU DCBMFMVP 12162000 DCBMFRDQ EQU DCBMFWRT 12163000 DCBMFGTQ EQU DCBMFPUT 12164000 DCBMFSTL EQU DCBMACF2 12165000 DCBMFCK EQU DCBMFDMG 12166000 DCBMFRDX EQU DCBMFCHK 12167000 DCBMFDBF EQU DCBMFSBG 12168000 DCBMFRDI EQU DCBMFLCG 12169000 DCBMFRDK EQU DCBMFMVG 12170000 DCBMFWRQ EQU DCBMFRD 12171000 DCBMFPTQ EQU DCBMFGET 12172000 DCBMFECP EQU DCBMACF1 12173000 DCBTIOT EQU IHADCS25 12174000 DCBMRSTI EQU DCBMRDMD 12175000 DCBMRAWR EQU DCBMRSTK 12176000 DCBMRUIP EQU DCBMRTMD 12177000 DCBMRIDW EQU DCBMRLCP 12178000 DCBMRWRK EQU DCBMRMVP 12179000 DCBMRRDQ EQU DCBMRWRT 12180000 DCBMRGTQ EQU DCBMRPUT 12181000 DCBMRSTL EQU DCBMACR2 12182000 DCBMRCK EQU DCBMRDMG 12183000 DCBPGFXA EQU DCBMRRDX 12184000 DCBMRDBF EQU DCBMRSBG 12185000 DCBMRRDI EQU DCBMRLCG 12186000 DCBMRRDK EQU DCBMRMVG 12187000 DCBMRWRQ EQU DCBMRRD 12188000 DCBMRPTQ EQU DCBMRGET 12189000 DCBMRECP EQU DCBMACR1 12190000 @NM00036 EQU DCBIFLG 12191000 DCBIBIOE EQU DCBIFLG 12192000 DCBICH12 EQU DCBIBPCT 12193000 DCBICH9 EQU DCBIBPCT 12194000 DCBIBEC EQU DCBIFLG 12195000 DCBOFIOF EQU DCBOFLGS 12196000 DCBOFUEX EQU DCBOFLGS 12197000 DCBOFTM EQU DCBOFLGS 12198000 DCBOFPPC EQU DCBOFLGS 12199000 DCBOFEOV EQU DCBOFLGS 12200000 DCBOFLRB EQU DCBOFLGS 12201000 DCBOFIOD EQU DCBOFLWR 12202000 DCBEXLSA EQU DCBEXLST+1 12203000 DCBRECKL EQU DCBRECFM 12204000 DCBRECCC EQU DCBRECFM 12205000 DCBRECSB EQU DCBRECFM 12206000 DCBRECBR EQU DCBRECFM 12207000 DCBRECTO EQU DCBRECLA 12208000 DCBRECL EQU DCBRECLA 12209000 DCBEODA EQU DCBEODAD+1 12210000 DCBBFA EQU DCBBFTEK 12211000 DCBH0 EQU DCBBFTEK 12212000 DCBBFTKD EQU DCBBFTEK 12213000 DCBBFTE EQU DCBBFT 12214000 DCBBFTKR EQU DCBBFT 12215000 DCBBFTS EQU DCBBFT 12216000 DCBH1 EQU DCBBFTEK 12217000 DCBSVCXA EQU DCBSVCXL+1 12218000 @NM00035 EQU DCBSVCXL 12219000 DCBODEBA EQU DCBIOBAA 12220000 @NM00034 EQU DCBQSLM 12221000 DCBUPDBT EQU DCBQSLM 12222000 DCBUPDCM EQU DCBQSLM 12223000 DCB1DVDS EQU DCBQSLM 12224000 @NM00033 EQU DCBDSRG2 12225000 DCBDSGTR EQU DCBDSRG2 12226000 DCBACBM EQU DCBDSRG2 12227000 @NM00032 EQU DCBDSRG2 12228000 DCBDSGTQ EQU DCBDSRG2 12229000 DCBDSGTX EQU DCBDSRG2 12230000 DCBDSGGS EQU DCBDSRG2 12231000 DCBDSGU EQU DCBDSRG1 12232000 DCBDSGPO EQU DCBDSRG1 12233000 @NM00031 EQU DCBDSRG1 12234000 @NM00030 EQU DCBDSRG1 12235000 DCBDSGCX EQU DCBDSRG1 12236000 DCBDSGDA EQU DCBDSRG1 12237000 DCBDSGPS EQU DCBDSRG1 12238000 DCBDSGIS EQU DCBDSRG1 12239000 DCBBUFL EQU IHADCS11+8 12240000 DCBBUFCA EQU DCBBUFCB+1 12241000 DCBBUFNO EQU DCBBUFCB 12242000 DCBDEVT EQU DCBREL 12243000 DCBKEYLE EQU DCBRELB 12244000 DCBTRBAL EQU IHADCS01+6 12245000 @NM00029 EQU IHADCS01+5 12246000 @NM00028 EQU IHADCS01+4 12247000 DCBDVTBA EQU DCBDVTBL+1 12248000 @NM00027 EQU DCBDVTBL 12249000 DCBKEYCN EQU IHADCS00+4 12250000 DCBRELAD EQU IHADCS00 12251000 @NM00026 EQU IHADCB 12252000 SENMB70 EQU BYTE2 12253000 @NM00025 EQU BYTE2 12254000 SENEMUL EQU SEN3344 12255000 @NM00024 EQU BYTE2 12256000 SENCERR EQU BYTE2 12257000 @NM00023 EQU BYTE1 12258000 SENRFND EQU BYTE1 12259000 @NM00022 EQU BYTE1 12260000 SENPERR EQU BYTE1 12261000 SENSEEKC EQU BYTE0 12262000 SENTRKCK EQU BYTE0 12263000 @NM00021 EQU BYTE0 12264000 SENDATCK EQU BYTE0 12265000 SENEQCK EQU BYTE0 12266000 @NM00020 EQU BYTE0 12267000 CBAPINFO EQU CNTBLKS+180 12268000 CBVOLIB EQU CNTBLKS 12269000 APOVFLO EQU APINFO+92 12270000 APSAVE EQU APINFO+28 12271000 APTRKCT EQU APINFO+24 12272000 APLASTA EQU APINFO+20 12273000 APASSOC EQU APINFO+16 12274000 APTRACK EQU APINFO+12 12275000 APANXT EQU APINFO+8 12276000 APAKEY EQU APINFO+4 12277000 APABNC EQU APINFO 12278000 @NM00019 EQU VOLIB+38 12279000 @NM00018 EQU VLUCBDT 12280000 VLMAPL EQU VOLIB+12 12281000 VLMAPF EQU VOLIB+8 12282000 @NM00017 EQU DMPARY+15 12283000 DMPARYTP EQU DMPARY+14 12284000 DMPARYEX EQU DMPARY+12 12285000 DMPARYIC EQU DMPARY+10 12286000 DMPARYSZ EQU DMPARY+8 12287000 DMPARYNM EQU DMPARY 12288000 @NM00016 EQU DMPITM+15 12289000 DMPITMTP EQU DMPITM+14 12290000 DMPITMLN EQU DMPITM+12 12291000 DMPITMPT EQU DMPITM+8 12292000 DMPITMNM EQU DMPITM 12293000 @NM00015 EQU FMTCNVF+1 12294000 FMTBS EQU FMTCNVF+1 12295000 FMTSS EQU FMTCNVF+1 12296000 FMTAL EQU FMTCNVF+1 12297000 FMTZS EQU FMTCNVF+1 12298000 @NM00014 EQU FMTCNVF 12299000 FMTPU EQU FMTCNVF 12300000 FMTBD EQU FMTCNVF 12301000 FMTBHD EQU FMTCNVF 12302000 FMTBHA EQU FMTCNVF 12303000 FMTBH EQU FMTCNVF 12304000 FMTOLEN EQU FMTLIST+8 12305000 FMTRIO EQU FMTOCOL 12306000 FMTSPT EQU FMTSTO 12307000 FMTSTL EQU FMTILEN 12308000 @NM00013 EQU FMTFLGS+1 12309000 FMTHDF EQU FMTFLGS 12310000 FMTDFF EQU FMTFLGS 12311000 FMTSTF EQU FMTFLGS 12312000 FMTREPF EQU FMTFLGS 12313000 FMTBDF EQU FMTFLGS 12314000 FMTIDF EQU FMTFLGS 12315000 FMTSCF EQU FMTFLGS 12316000 FMTEOLF EQU FMTFLGS 12317000 DARGDTM EQU DARGARY+4 12318000 DARGPCT EQU DARGINL 12319000 DARGREP EQU DARGINS 12320000 @NM00012 EQU DARGLIST+19 12321000 DARGIND EQU DARGLIST+18 12322000 DARGRETL EQU DARGLIST+16 12323000 DARGCNT EQU DARGLIST+14 12324000 DARGILP EQU DARGLIST+12 12325000 DARGRETP EQU DARGLIST+4 12326000 DARGDBP EQU DARGLIST 12327000 UVOLVOL EQU UVOLENT+4 12328000 UVOLDEV EQU UVOLENT 12329000 UVOLCNT EQU UVOLLIST 12330000 OPNRSVD EQU OPNAGL+28 12331000 OPNVOL EQU OPNAGL+24 12332000 OPNBLK EQU OPNAGL+20 12333000 OPNREC EQU OPNAGL+16 12334000 OPNDSN EQU OPNAGL+12 12335000 OPNDDN EQU OPNAGL+8 12336000 OPNIOC EQU OPNAGL+4 12337000 @NM00011 EQU OPNMOD 12338000 OPNMODRC EQU OPNMOD 12339000 OPNMODAC EQU OPNMOD 12340000 @NM00010 EQU OPNTYP 12341000 OPNTYPSO EQU OPNTYP 12342000 OPNTYPSI EQU OPNTYP 12343000 @NM00009 EQU OPNRFM 12344000 OPNRFMBK EQU OPNRFM 12345000 OPNRFMSF EQU OPNRFM 12346000 OPNRFMUN EQU OPNRFM 12347000 OPNRFMVR EQU OPNRFM 12348000 OPNRFMFX EQU OPNRFM 12349000 @NM00008 EQU OPNOPT 12350000 OPNOPTJM EQU OPNOPT 12351000 OPNOPTKS EQU OPNOPT 12352000 OPNOPTBK EQU OPNOPT 12353000 OPNOPTUP EQU OPNOPT 12354000 OPNOPTOT EQU OPNOPT 12355000 OPNOPTIN EQU OPNOPT 12356000 IOCEXT EQU IOCSTR+36 12357000 IOCRRN EQU IOCSTR+32 12358000 @NM00007 EQU IOCSTR+30 12359000 IOCPNM EQU IOCSTR+28 12360000 IOCCBP EQU IOCSTR+24 12361000 IOCDSN EQU IOCSTR+20 12362000 @NM00006 EQU IOCSTR+17 12363000 @NM00005 EQU IOCMSG 12364000 IOCMSGOP EQU IOCMSG 12365000 IOCMACPA EQU IOCMAC 12366000 @NM00004 EQU IOCMAC 12367000 IOCMACBK EQU IOCMAC 12368000 IOCMACUP EQU IOCMAC 12369000 IOCMACOT EQU IOCMAC 12370000 IOCMACIN EQU IOCMAC 12371000 @NM00003 EQU IOCRFM 12372000 IOCRFMBK EQU IOCRFM 12373000 IOCRFMSF EQU IOCRFM 12374000 IOCRFMUN EQU IOCRFM 12375000 IOCRFMVR EQU IOCRFM 12376000 IOCRFMFX EQU IOCRFM 12377000 @NM00002 EQU IOCDSO 12378000 IOCDSOPS EQU IOCDSO 12379000 IOCKYL EQU IOCSTR+12 12380000 IOCTRN EQU IOCSTR+8 12381000 IOCDLN EQU IOCSTR+4 12382000 IOCDAD EQU IOCSTR 12383000 STARPTR EQU STAEPFX+28 12384000 STASPTR EQU STAEPFX+24 12385000 STAGDT EQU STAEPFX+8 12386000 STABPTR EQU STAEPFX+4 12387000 STAFPTR EQU STAEPFX 12388000 NEWID1 EQU TRACE1+95 12389000 CALLID EQU OLDERID1+90 12390000 @NM00001 EQU OLDERID1 12391000 .@UNREFD ANOP END UNREFERENCED COMPONENTS 12392000 @RF00336 EQU @RC00316 12393000 @RF00381 EQU @RC00316 12394000 @RF00418 EQU @RC00404 12395000 @RC00585 EQU @RC00583 12396000 @RF00569 EQU @EL00002 12397000 @RF00640 EQU @EL00002 12398000 @PB00002 EQU @EC00649 12399000 @ENDDATA EQU * 12400000 END ICKDV01,(C'PLS1703',0701,78192) 12401000