TITLE '********* ICKDV02: OBTAIN DEVICE INFORMATION ********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 ICKDV02 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'ICKDV02 78.192' 0002 00020000 ICKDVIN DS 0H 0002 00021000 USING *,@15 0002 00022000 B @PROLOG 0002 00023000 DC AL2(@EP00003-ICKDVIN) 00024000 ENTRY ICKDVIN 00025000 DROP @15 00026000 @PROLOG STM @14,@12,12(@13) 0002 00027000 BALR @11,0 0002 00028000 @PSTART LA @12,4095(,@11) 0002 00029000 USING @PSTART,@11 0002 00030000 USING @PSTART+4095,@12 0002 00031000 L @00,@SIZDATD 0002 00032000 GETMAIN R,LV=(0) 00033000 LR @10,@01 0002 00034000 USING @DATD,@10 0002 00035000 ST @13,@SA00001+4 0002 00036000 LM @15,@01,16(@13) 0002 00037000 ST @10,8(,@13) 0002 00038000 LR @13,@10 0002 00039000 XC @ZTEMPS(@ZLEN),@ZTEMPS 00040000 AH @15,4(,@15) 0002 00041000 BR @15 0002 00042000 @EP00002 DS 0H 0003 00043000 * ICKDVIN: ENTRY 0003 00044000 * ( 0003 00045000 * GDTTBL, /* GLOBAL DATA TABLE */ 00046000 * VOLIBPTR, /* VOLUME INFORMATION BLOCK POINTER */ 00047000 * INFOKEY, /* INFORMATION-KEY IDENTIFIER */ 00048000 * POOLID, /* SUB-POOL IDENTIFIER */ 00049000 * INFOPTR, /* DATA RETURN POINTER */ 00050000 * INFOLEN, /* LENGTH OF DATA RETURNED */ 00051000 * CONDCODE /* CONDITION CODE */ 00052000 * ); 0003 00053000 * 0003 00054000 B @EC00003 0003 00055000 @EP00003 MVC @PC00001(28),0(@01) 0003 00056000 @EC00003 DS 0H 0004 00057000 */***** S T A N D A R D I N C L U D E S **************************/ 00058000 * 0004 00059000 * /************************************************************/ 00060000 * /* */ 00061000 * /* DMS GLOBAL DATA AREA : 5/10/78 */ 00062000 * /* (1) PLS/2 MACRO DEFINITIONS */ 00063000 * /* (2) GLOBAL DATA TABLE */ 00064000 * /* (3) SYSTEM ADAPTER DECLARATIONS */ 00065000 * /* A) ENTRY POINTS */ 00066000 * /* B) DATA STRUCTURES */ 00067000 * /* C) SYMBOLIC RETURN CODES */ 00068000 * /* (4) INPUT/OUTPUT ADAPTER DECLARATIONS */ 00069000 * /* A) ENTRY POINTS */ 00070000 * /* B) DATA STRUCTURES */ 00071000 * /* C) SYMBOLIC RETURN CODES */ 00072000 * /* (5) DEVICE ADAPTER DECLARATIONS */ 00073000 * /* A) ACTION KEYS */ 00074000 * /* B) INFORMATION KEYS */ 00075000 * /* C) ENTRY POINTS */ 00076000 * /* (6) TEXT OUTPUT PROCESSOR DECLARATIONS */ 00077000 * /* A) ENTRY POINTS */ 00078000 * /* B) DATA STRUCTURES */ 00079000 * /* (7) DEBUGGING AIDS DECLARATIONS */ 00080000 * /* A) ENTRY POINTS */ 00081000 * /* (8) CONVENTIONALIZED NAMED VALUES DECLARATIONS */ 00082000 * /* */ 00083000 * /************************************************************/ 00084000 * 0004 00085000 * /************************************************************/ 00086000 * /* THE MACRO VARIABLE 'OPERSYS' IS SET HERE (IN DMSDF00) */ 00087000 * /* TO CONTROL MACRO PHASE LOGIC TO GENERATE THE CORRECT */ 00088000 * /* SYSTEM DEPENDENT CODE FOR THE OPERATING SYSTEM UNDER */ 00089000 * /* WHICH DMS EXECUTION IS TO TAKE PLACE. */ 00090000 * /* THE VARIABLE MUST BE SET TO ONE OF THE FOLLOWING: */ 00091000 * /* %OPERSYS = 'VS1' - OS/VS1 OPERATING SYSTEM */ 00092000 * /* %OPERSYS = 'MVS' - OS/VS2 RELEASE 3 AND FOLLOWING */ 00093000 * /* %OPERSYS = 'NONE' - 'STAND ALONE' EXECUTION ENVIRONMENT */ 00094000 * /************************************************************/ 00095000 * /* THE CURRENT SETTING IS %OPERSYS = 'MVS' */ 00096000 * /************************************************************/ 00097000 * 0004 00098000 * 0004 00099000 * /************************************************************/ 00100000 * /* */ 00101000 * /* GLOBAL DATA TABLE (GDT) */ 00102000 * /* */ 00103000 * /************************************************************/ 00104000 * DCL 1 GDTTBL BOUNDARY(DWORD), 0004 00105000 * 2 GDTHDR CHAR(4), /*GDT HEADER (CONTAINS 'GDT ')*/ 00106000 * 2 GDTPRM PTR(31), /*INVOKER'S PARAMETER LIST PTR*/ 00107000 * 2 GDTTR1 PTR(31), /*INTER-MODULE TRACE TABLE PTR*/ 00108000 * 2 GDTTR2 PTR(31), /*INTRA-MODULE TRACE TABLE PTR*/ 00109000 * 2 GDTDBH PTR(31), /*DEBUGGING AIDS DATA PTR*/ 00110000 * 2 GDTSTH PTR(31), /*DMS STATISTICS DATA PTR*/ 00111000 * 2 GDTRIH PTR(31), /*READER/INTERPRETER DATA PTR*/ 00112000 * 2 GDTTPH PTR(31), /*TEXT PROCESSOR DATA PTR*/ 00113000 * 2 GDTSAH PTR(31), /*SYSTEM ADAPTER DATA PTR*/ 00114000 * 2 GDTIOH PTR(31), /*I/O ADAPTER DATA PTR*/ 00115000 * 2 GDTDVH PTR(31), /*DEVICE ADAPTER DATA PTR*/ 00116000 * 2 GDTDIN PTR(31), /*UDEVINFO ENTRY POINT ADDRESS*/ 00117000 * 2 GDTDOP PTR(31), /*UDEVOP ENTRY POINT ADDRESS*/ 00118000 * 2 GDTDBG PTR(31), /*UDUMP ENTRY POINT ADDRESS*/ 00119000 * 2 GDTDVO PTR(31), /*UDEVOPEN ENTRY POINT ADDRESS*/ 00120000 * 2 GDTPRT PTR(31), /*UPRINT ENTRY POINT ADDRESS*/ 00121000 * 2 GDTESS PTR(31), /*UESTS ENTRY POINT ADDRESS*/ 00122000 * 2 GDTESA PTR(31), /*UESTA ENTRY POINT ADDRESS*/ 00123000 * 2 GDTRST PTR(31), /*UREST ENTRY POINT ADDRESS*/ 00124000 * 2 GDTRES PTR(31), /*URESET ENTRY POINT ADDRESS*/ 00125000 * 2 GDTCAL PTR(31), /*UCALL ENTRY POINT ADDRESS*/ 00126000 * 2 GDTGSP PTR(31), /*UGSPACE ENTRY POINT ADDRESS*/ 00127000 * 2 GDTFSP PTR(31), /*UFSPACE ENTRY POINT ADDRESS*/ 00128000 * 2 GDTGPL PTR(31), /*UGPOOL ENTRY POINT ADDRESS*/ 00129000 * 2 GDTFPL PTR(31), /*UFPOOL ENTRY POINT ADDRESS*/ 00130000 * 2 GDTLOD PTR(31), /*ULOAD ENTRY POINT ADDRESS*/ 00131000 * 2 GDTDEL PTR(31), /*UDELETE ENTRY POINT ADDRESS*/ 00132000 * 2 GDTPRL PTR(31), /*PROL ENTRY POINT ADDRESS */ 00133000 * 2 GDTEPL PTR(31), /*UEPIL ENTRY POINT ADDRESS */ 00134000 * 2 GDTTIM PTR(31), /*UTIME ENTRY POINT ADDRESS*/ 00135000 * 2 GDTIIO PTR(31), /*UIOINIT ENTRY POINT ADDRESS*/ 00136000 * 2 GDTTIO PTR(31), /*UIOTERM ENTRY POINT ADDRESS*/ 00137000 * 2 GDTRIP PTR(31), /*READER/INTERPRETER */ 00138000 * /* NAME ADDRESS */ 00139000 * 2 GDTTOH PTR(31), /*I/O ADAPTER MVM */ 00140000 * /* DATA ADDRESS */ 00141000 * 2 GDTOPN PTR(31), /*UOPEN ENTRY POINT ADDRESS*/ 00142000 * 2 GDTCLS PTR(31), /*UCLOSE ENTRY POINT ADDRESS*/ 00143000 * 2 GDTGET PTR(31), /*UGET ENTRY POINT ADDRESS*/ 00144000 * 2 GDTPUT PTR(31), /*UPUT ENTRY POINT ADDRESS*/ 00145000 * 2 GDTABT PTR(31), /*UABORT ROUTINE ADDRESS*/ 00146000 * 2 GDTABH PTR(31), /*UABORT ROUTINE REGISTER*/ 00147000 * /* RESTORE AREA ADDRESS*/ 00148000 * 2 GDTSNP PTR(31), /*USNAP ENTRY POINT ADDRESS */ 00149000 * 2 GDTSPR PTR(31), /*ICKSA03 AUTOMATIC STORAGE */ 00150000 * 2 GDTWTO PTR(31), /*UWTO ENTRY POINT ADDRESS */ 00151000 * 2 GDTSCR PTR(31), /*USCRATCH ENTRY POINT ADDRESS*/ 00152000 * 2 GDTVCK PTR(31), /*UVOLCHK ENTRY POINT ADDRESS */ 00153000 * 2 GDTDVC PTR(31), /*UDEVCLSE ENTRY POINT ADDRESS*/ 00154000 * 2 GDTCVR PTR(31), /*ADDRESS OF COVER TABLE */ 00155000 * 2 GDTSTE PTR(31); /*USTAE ENTRY POINT ADDRESS */ 00156000 * 0004 00157000 * 0004 00158000 * /************************************************************/ 00159000 * /* */ 00160000 * /* ENTRY POINT DECLARATIONS FOR SYSTEM ADAPTER */ 00161000 * /* */ 00162000 * /************************************************************/ 00163000 * 0005 00164000 * 0005 00165000 * DCL ICKSACL0 ENTRY BASED(GDTCAL) VALUERANGE(*) 0005 00166000 * OPTIONS(VLIST); /*UCALL ADAPTER ENTRY POINT*/ 00167000 * DCL ICKSALD0 ENTRY BASED(GDTLOD) VALUERANGE(*); 0006 00168000 * /*ULOAD ADAPTER ENTRY POINT*/ 00169000 * DCL ICKSADE0 ENTRY BASED(GDTDEL) VALUERANGE(*); 0007 00170000 * /*UDELETE ADAPTER ENTRY POINT*/ 00171000 * DCL ICKSAPR0 ENTRY BASED(GDTPRL) VALUERANGE(*); 0008 00172000 * /*PROL ADAPTER ENTRY POINT */ 00173000 * DCL ICKSAEP0 ENTRY BASED(GDTEPL) VALUERANGE(*) 0009 00174000 * OPTIONS(VLIST); /*UEPIL ADAPTER ENTRY POINT*/ 00175000 * DCL ICKSAGS0 ENTRY BASED(GDTGSP) VALUERANGE(*) 0010 00176000 * OPTIONS(VLIST); /*UGSPACE ADAPTER ENTRY POINT*/ 00177000 * DCL ICKSAFS0 ENTRY BASED(GDTFSP) VALUERANGE(*); 0011 00178000 * /*UFSPACE ADAPTER ENTRY POINT*/ 00179000 * DCL ICKSAGP0 ENTRY BASED(GDTGPL) VALUERANGE(*) 0012 00180000 * OPTIONS(VLIST); /*UGPOOL ADAPTER ENTRY POINT*/ 00181000 * DCL ICKSAFP0 ENTRY BASED(GDTFPL) VALUERANGE(*) 0013 00182000 * OPTIONS(VLIST); /*UFPOOL ADAPTER ENTRY POINT*/ 00183000 * DCL ICKSATI0 ENTRY BASED(GDTTIM) VALUERANGE(*) 0014 00184000 * OPTIONS(VLIST); /*UTIME ADAPTER ENTRY POINT*/ 00185000 * DCL ICKSASN0 ENTRY BASED(GDTSNP) VALUERANGE(*); 0015 00186000 * /*USNAP ADAPTER ENTRY POINT*/ 00187000 * DCL ICKSAWO0 ENTRY BASED(GDTWTO) VALUERANGE(*) 0016 00188000 * OPTIONS(VLIST); /*UWTO ADAPTER EP */ 00189000 * DCL ICKSASC0 ENTRY BASED(GDTSCR) VALUERANGE(*) 0017 00190000 * OPTIONS(VLIST); /*USCRATCH ADAPTER EP */ 00191000 * DCL ICKSAVC0 ENTRY BASED(GDTVCK) VALUERANGE(*) 0018 00192000 * OPTIONS(VLIST); /*UVOLCHK ADAPTER EP */ 00193000 * DCL ICKSAST0 ENTRY BASED(GDTSTE) VALUERANGE(*); 0019 00194000 * /*USTAE ADAPTER EP */ 00195000 * 0020 00196000 * 0020 00197000 * /************************************************************/ 00198000 * /* */ 00199000 * /* DATA STRUCTURE DECLARATIONS FOR SYSTEM ADAPTER */ 00200000 * /* */ 00201000 * /************************************************************/ 00202000 * 0020 00203000 * /* INTER-MODULE TRACE TABLE */ 00204000 * /* (UPDATED BY THE PROL AND UEPIL ROUTINES) */ 00205000 * DCL 1 TRACE1 CHAR(100) BASED(GDTTR1), 0020 00206000 * 2 OLDERID1 CHAR(95), /*ALL BUT THE LATEST TRACE IDS*/ 00207000 * 3 * CHAR(90), /* OLDER TRACE IDENTIFIERS */ 00208000 * 3 CALLID CHAR(2), /* TRACE ID OF CALLING MODULE*/ 00209000 * 2 NEWID1 CHAR(4); /*THE MOST RECENT TRACE ID */ 00210000 * 0020 00211000 * DCL NEWERID1 CHAR(95) BASED(GDTTR1) POSITION(6); 0021 00212000 * /*ALL BUT THE OLDEST TRACE IDS*/ 00213000 * 0022 00214000 * /* INTRA-MODULE TRACE TABLE (UPDATED BY TRACE MACRO) */ 00215000 * DCL 1 TRACE2 CHAR(100) BASED(GDTTR2), 0022 00216000 * 2 OLDERID2 CHAR(95), /*ALL BUT THE LATEST TRACE IDS*/ 00217000 * 2 NEWID2 CHAR(4); /*THE MOST RECENT TRACE ID */ 00218000 * 0022 00219000 * DCL NEWERID2 CHAR(95) BASED(GDTTR2) POSITION(6); 0023 00220000 * /*ALL BUT THE OLDEST TRACE IDS*/ 00221000 * 0024 00222000 * /* CONTROL BLOCK STRUCTURE FOR USTAE MACRO INVOCATION */ 00223000 * 0024 00224000 * DECLARE 0024 00225000 * 1 STAEPARM BDY(WORD) BASED, 0024 00226000 * 0024 00227000 * 2 STAEPFX, /* STAE PREFIX */ 00228000 * 0024 00229000 * 3 STAFPTR /* FORWARD CHAIN POINTER */ 00230000 * POINTER (31), 0024 00231000 * 3 STABPTR /* BACKWARD CHAIN POINTER */ 00232000 * POINTER (31), 0024 00233000 * 3 STAGDT /* POINTER TO THE GDT */ 00234000 * POINTER(31), 0024 00235000 * 3 STAEPA /* ENTRY POINT ADDRESS OF RECOVERY */ 00236000 * /* ROUTINE */ 00237000 * POINTER (31), 0024 00238000 * 3 STAID /* CONTROL BLOCK IDENTIFIER UNIQUE */ 00239000 * /* TO INVOKER */ 00240000 * CHAR (4), 0024 00241000 * 3 STALEN /* LENGTH OF THE INVOKERS CONTROL */ 00242000 * /* BLOCK */ 00243000 * FIXED (31), 0024 00244000 * 3 STASPTR /* POINTER TO SYSTEM DIAGNOSTIC WORK*/ 00245000 * /* AREA */ 00246000 * POINTER (31) BDY (WORD), 0024 00247000 * 3 STARPTR /* POINTER TO SAVED REGISTERS */ 00248000 * POINTER (31) BDY (WORD), 0024 00249000 * 2 STAEWORK /* CONTROL BLOCK WORK AREA TO BE */ 00250000 * /* USED AT INVOKERS DISCRETION */ 00251000 * CHAR(*); 0024 00252000 * 0024 00253000 * /************************************************************/ 00254000 * /* */ 00255000 * /* KEYWORD-ARGUMENT DECLARATIONS FOR SYSTEM ADAPTOR */ 00256000 * /* */ 00257000 * /************************************************************/ 00258000 * DCL ALL CHAR(3) CONSTANT('ALL'); 0025 00259000 * /*'ALL' ARGUMENT FOR UFPOOL*/ 00260000 * DCL FORMAT CHAR(4) CONSTANT('FORM'); 0026 00261000 * /*'FORMAT' ARGUMENT FOR UTIME */ 00262000 * DCL HSECOND CHAR(4) CONSTANT('HSEC'); 0027 00263000 * /*'HSECOND' ARGUMENT FOR UTIME*/ 00264000 * DCL CLOCK CHAR(4) CONSTANT('KLOK'); 0028 00265000 * /*'CLOCK' ARGUMENT FOR UTIME */ 00266000 * DCL SETZERO CHAR(4) CONSTANT('ZERO'); 0029 00267000 * /*UGSPACE & UGPOOL 'ZERO' ARG*/ 00268000 * DCL SETBLANK CHAR(4) CONSTANT('BLNK'); 0030 00269000 * /*UGSPACE & UGPOOL 'BLANK' ARG*/ 00270000 * DCL NOSET CHAR(4) CONSTANT('NSET'); 0031 00271000 * /*UGSPACE 'NOSET' ARGUMENT */ 00272000 * 0032 00273000 * DCL OVERRIDE CHAR(4) CONSTANT('OVRD'); 0032 00274000 * /*'PURGE' ARGUMNT FOR USCRATCH*/ 00275000 * 0033 00276000 * DCL READ CHAR(4) CONSTANT('READ'); 0033 00277000 * /*'READ' ATTRIBUTE FOR UVOLCHK*/ 00278000 * DCL ALTER CHAR(4) CONSTANT('ALTR'); 0034 00279000 * /*UVOLCHK 'ALTER' ATTRIBUTE */ 00280000 * DCL UPDATE CHAR(4) CONSTANT('UPDT'); 0035 00281000 * /*UVOLCHK 'UPDATE' ATTRIBUTE */ 00282000 * DCL CONTROL CHAR(4) CONSTANT('CNTL'); 0036 00283000 * /*UVOLCHK 'CONTROL' ATTRIBUTE */ 00284000 * 0037 00285000 * DCL LISTLN FIXED(8); /*NUMBER OF ARGUMENTS IN LIST */ 00286000 * DCL LISTPTR PTR(31); /*PARM LIST ADDRESS (ULISTLN) */ 00287000 * DCL LISTSCAN PTR(31); /*ULISTLN SCAN POINTER */ 00288000 * DCL LISTTEST BIT(1) BASED(LISTSCAN); 0040 00289000 * /*ULISTLN LIST END BIT TEST */ 00290000 * 0041 00291000 * /************************************************************/ 00292000 * /* */ 00293000 * /* SYMBOLIC RETURN CODE DECLARATIONS FOR SYSTEM ADAPTER */ 00294000 * /* */ 00295000 * /************************************************************/ 00296000 * 0041 00297000 * /* RETURN CODE */ 00298000 * 0041 00299000 * DCL SETRC FIXED(15); /*RETURN CODE FOR SETTING */ 00300000 * DCL TESTRC FIXED(15); /*RETURN CODE FOR TESTING */ 00301000 * 0042 00302000 * DCL RTNREG REG(15); /*DMS RETURN CODE REGISTER */ 00303000 * 0043 00304000 * 0043 00305000 * /************************************************************/ 00306000 * /* */ 00307000 * /* ENTRY POINT DECLARATIONS FOR INPUT/OUTPUT ADAPTER */ 00308000 * /* */ 00309000 * /************************************************************/ 00310000 * 0044 00311000 * 0044 00312000 * DCL ICKIOIT0 ENTRY BASED(GDTIIO) VALUERANGE(*) 0044 00313000 * OPTIONS(VLIST); /*UIOINIT ADAPTER ENTRY POINT*/ 00314000 * DCL ICKIOOP0 ENTRY BASED(GDTOPN) VALUERANGE(*) 0045 00315000 * OPTIONS(VLIST); /*UOPEN ADAPTER ENTRY POINT*/ 00316000 * DCL ICKIOTM0 ENTRY BASED(GDTTIO) VALUERANGE(*) 0046 00317000 * OPTIONS(VLIST); /*UIOTERM ADAPTER ENTRY POINT*/ 00318000 * DCL ICKIOCL0 ENTRY BASED(GDTCLS) VALUERANGE(*) 0047 00319000 * OPTIONS(VLIST); /*UCLOSE ADAPTER ENTRY POINT*/ 00320000 * DCL ICKIOGT0 ENTRY BASED(GDTGET) VALUERANGE(*) 0048 00321000 * OPTIONS(VLIST); /*UGET ADAPTER ENTRY POINT*/ 00322000 * DCL ICKIOPT0 ENTRY BASED(GDTPUT) VALUERANGE(*) 0049 00323000 * OPTIONS(VLIST); /*UPUT ADAPTER ENTRY POINT*/ 00324000 * 0049 00325000 * 0049 00326000 * /************************************************************/ 00327000 * /* */ 00328000 * /* DATA STRUCTURE DECLARATIONS FOR INPUT/OUTPUT ADAPTER */ 00329000 * /* */ 00330000 * /************************************************************/ 00331000 * DCL IOCSPTR PTR(31); /*ADDRESS OF THE IOCS */ 00332000 * 0050 00333000 * /*INPUT/OUTPUT CONTROL STRUCTURE (IOCS) */ 00334000 * DCL 1 IOCSTR BOUNDARY(WORD) BASED(IOCSPTR), 0051 00335000 * 2 IOCDAD PTR(31), /*ADDRESS OF DATA */ 00336000 * 2 IOCDLN FIXED(31), /*LENGTH OF DATA */ 00337000 * 2 IOCTRN FIXED(31), /*LENGTH OF TRANSMISSION */ 00338000 * 2 IOCKYL FIXED(8), /*KEY LENGTH */ 00339000 * 2 IOCDSO BIT(8), /*DATA SET ORGANIZATION */ 00340000 * 3 IOCDSOPS BIT(1), /* SEQUENTIAL */ 00341000 * 3 * BIT(7), /* RESERVED */ 00342000 * 2 IOCRFM BIT(8), /*RECORD FORMAT FLAG */ 00343000 * 3 IOCRFMFX BIT(1), /* FIXED LENGTH RECORDS */ 00344000 * 3 IOCRFMVR BIT(1), /* VARIABLE (NOT SPANNED) */ 00345000 * 3 IOCRFMUN BIT(1), /* UNDEFINED LENGTH RECORDS */ 00346000 * 3 IOCRFMSF BIT(1), /* SPANNED RECORD FORMAT */ 00347000 * 3 IOCRFMBK BIT(1), /* BLOCKED RECORDS */ 00348000 * 3 * BIT(3), /* RESERVED */ 00349000 * 2 IOCMAC BIT(8), /*MACRO FORM FLAG */ 00350000 * 3 IOCMACIN BIT(1), /* INPUT DATA SET */ 00351000 * 3 IOCMACOT BIT(1), /* OUTPUT DATA SET */ 00352000 * 3 IOCMACUP BIT(1), /* OPEN FOR UPDATE */ 00353000 * 3 IOCMACBK BIT(1), /* BLOCK PROCESSING */ 00354000 * 3 * BIT(3), /* RESERVED */ 00355000 * 3 IOCMACPA BIT(1), /* REPROCESSING FLAG */ 00356000 * 2 IOCMSG BIT(8), /*MESSAGE FLAGS */ 00357000 * 3 IOCMSGOP BIT(1), /* DATA SET IS OPEN */ 00358000 * 3 * BIT(7), /* RESERVED */ 00359000 * 2 * CHAR(3), /*RESERVED */ 00360000 * 2 IOCDSN PTR(31), /*ADDRESS OF DATA SET NAME */ 00361000 * 2 IOCCBP PTR(31), /*RETURN BLOCK ADDRESS AREA */ 00362000 * 2 IOCPNM FIXED(15), /*NUMBER OF RECORDS TO */ 00363000 * /* PUT (NOT REQUIRED */ 00364000 * /* FOR ONE RECORD) */ 00365000 * 2 * FIXED(15), /*RESERVED */ 00366000 * 2 IOCRRN FIXED(31), /*RECORD SEQ NUMBER */ 00367000 * 2 IOCEXT PTR(31); /*IOCS EXTENSION ADDRESS */ 00368000 * 0051 00369000 * DCL OPNPTR PTR(31); /*OPEN ARGUMENT LIST ADDRESS */ 00370000 * 0052 00371000 * /*OPEN ARGUMENT LIST */ 00372000 * DCL 1 OPNAGL BOUNDARY(WORD) BASED(OPNPTR) CHAR(32), 0053 00373000 * 2 OPNOPT BIT(8), /*OPEN OPTIONS */ 00374000 * 3 OPNOPTIN BIT(1), /* INPUT DATA SET */ 00375000 * 3 OPNOPTOT BIT(1), /* OUTPUT DATA SET */ 00376000 * 3 OPNOPTUP BIT(1), /* UPDATE MODE PROCESSING */ 00377000 * 3 OPNOPTBK BIT(1), /* BLOCK PROCESSING */ 00378000 * 3 OPNOPTKS BIT(1), /* KEYED PROCESSING */ 00379000 * 3 OPNOPTJM BIT(1), /* MODIFY JFCB */ 00380000 * 3 * BIT(2), /* RESERVED */ 00381000 * 2 OPNRFM BIT(8), /*RECORD FORMAT */ 00382000 * 3 OPNRFMFX BIT(1), /* FIXED RECORDS */ 00383000 * 3 OPNRFMVR BIT(1), /* VARIABLE (NOT SPANNED) */ 00384000 * 3 OPNRFMUN BIT(1), /* UNDEFINED RECORDS */ 00385000 * 3 OPNRFMSF BIT(1), /* SPANNED RECORDS */ 00386000 * 3 OPNRFMBK BIT(1), /* BLOCKED RECORDS */ 00387000 * 3 * BIT(3), /* RESERVED */ 00388000 * 2 OPNTYP BIT(8), /*DATA SET TYPE */ 00389000 * 3 OPNTYPSI BIT(1), /* SYSTEM INPUT */ 00390000 * 3 OPNTYPSO BIT(1), /* SYSTEM OUTPUT */ 00391000 * 3 * BIT(6), /* RESERVED */ 00392000 * 2 OPNMOD BIT(8), /*OPEN MODIFIERS */ 00393000 * 3 OPNMODAC BIT(1), /* ASA CARRIAGE CONTROL CHAR */ 00394000 * 3 OPNMODRC BIT(1), /* RETURN CONTROL BLOCK ADDR */ 00395000 * 3 * BIT(6), /* RESERVED */ 00396000 * 2 OPNIOC PTR(31), /*PTR TO LOCATION IN WHICH 0053 00397000 * TO RETURN IOCS ADDRESS */ 00398000 * 2 OPNDDN PTR(31), /*ADDRESS OF 8-BYTE DDNAME */ 00399000 * 2 OPNDSN PTR(31), /*ADDRESS OF 44-BYTE DSNAME */ 00400000 * 2 OPNREC FIXED(31), /*LOGICAL RECORD LENGTH */ 00401000 * 2 OPNBLK FIXED(31), /*BLOCKSIZE */ 00402000 * 2 OPNVOL PTR(31), /*PTR TO VOL SERIAL */ 00403000 * 2 OPNRSVD FIXED(31); /* RESERVED */ 00404000 * 0053 00405000 * 0053 00406000 * /************************************************************/ 00407000 * /* */ 00408000 * /* USCRATCH VOLUME LIST MAPPING STRUCTURE */ 00409000 * /* */ 00410000 * /************************************************************/ 00411000 * DCL 1 UVOLLIST BASED, 0054 00412000 * 2 UVOLCNT FIXED(15), /*NUMBER OF ENTRIES */ 00413000 * 2 UVOLENT (*) CHAR(10), /*ONE PER VOLUME */ 00414000 * 3 UVOLDEV CHAR(4) , /*DEVICE TYPE */ 00415000 * 3 UVOLVOL CHAR(6) ; /*VOLUME SERIAL */ 00416000 * 0054 00417000 * 0054 00418000 * 0054 00419000 * 0054 00420000 * /************************************************************/ 00421000 * /* */ 00422000 * /* KEYWORD-ARGUMENT DECLARATIONS FOR DEVICE ADAPTER */ 00423000 * /* ACTION KEYS */ 00424000 * /* */ 00425000 * /************************************************************/ 00426000 * DCL ACTLOW /* MINIMUM OF ACTION-KEY VALUES */ 00427000 * FIXED (31) CONSTANT (1); 0055 00428000 * 0055 00429000 * DCL ACTRDHA /* READ HOME ADDRESS */ 00430000 * FIXED (31) CONSTANT (1); 0056 00431000 * DCL ACTRDRZ /* READ RECORD ZERO */ 00432000 * FIXED (31) CONSTANT (2); 0057 00433000 * DCL ACTWPHAD /* WRITE PRI. HA WITH DEFECT-FLAG ON */ 00434000 * FIXED (31) CONSTANT (3); 0058 00435000 * DCL ACTWPHA /* WRITE PRI. HA WITH DEFECT-FLAG OFF */ 00436000 * FIXED (31) CONSTANT (4); 0059 00437000 * DCL ACTWAHAD /* WRITE ALT. HA WITH DEFECT-FLAG ON */ 00438000 * FIXED (31) CONSTANT (5); 0060 00439000 * DCL ACTWAHA /* WRITE ALT. HA WITH DEFECT-FLAG OFF */ 00440000 * FIXED (31) CONSTANT (6); 0061 00441000 * DCL ACTWRRZM /* WRITE/READ R0 MAXIMUM LENGTH */ 00442000 * FIXED (31) CONSTANT (7); 0062 00443000 * DCL ACTWRZS /* WRITE STD. LENGTH RO */ 00444000 * FIXED (31) CONSTANT (8); 0063 00445000 * DCL ACTWCKDN /* WRITE RECORD 'N' (COUNT,KEY AND DATA) */ 00446000 * FIXED (31) CONSTANT (9); 0064 00447000 * DCL ACTRCKDN /* READ RECORD 'N' (COUNT,KEY AND DATA) */ 00448000 * FIXED (31) CONSTANT (10); 0065 00449000 * DCL ACTRKDN /* READ RECORD 'N' (KEY AND DATA) */ 00450000 * FIXED (31) CONSTANT (11); 0066 00451000 * DCL ACTRDN /* READ RECORD 'N' (DATA ONLY) */ 00452000 * FIXED (31) CONSTANT (12); 0067 00453000 * DCL ACTVPHA /* VALIDATE PRIMARY HOME ADDRESS */ 00454000 * FIXED (31) CONSTANT (13); 0068 00455000 * DCL ACTVALRZ /* VALIDATE RECORD ZERO */ 00456000 * FIXED (31) CONSTANT (14); 0069 00457000 * DCL ACTSENOP /* READ DEVICE OPTIONS (3340 ONLY) */ 00458000 * FIXED (31) CONSTANT (15); 0070 00459000 * DCL ACTRRZM /* READ MAXIMUM LENGTH RECORD ZERO */ 00460000 * FIXED (31) CONSTANT (16); 0071 00461000 * DCL ACTVAHA /* VALIDATE ALTERNATE HOME ADDRESS */ 00462000 * FIXED (31) CONSTANT (17); 0072 00463000 * DCL ACTWRZSL /* WRITE R0 TO LINK PRI. AND ALT. TRACKS */ 00464000 * FIXED (31) CONSTANT (18); 0073 00465000 * DCL ACTSCKDN /* WRITE SPECIAL COUNT/KEY/DATA */ 00466000 * FIXED (31) CONSTANT (19); 0074 00467000 * DCL ACTXXXA /* (RESERVED) */ 00468000 * FIXED (31) CONSTANT (20); 0075 00469000 * DCL ACTRWHA /* RECOVER WRITE HA */ 00470000 * FIXED (31) CONSTANT (21); 0076 00471000 * DCL ACTXXXB /* (RESERVED) */ 00472000 * FIXED (31) CONSTANT (22); 0077 00473000 * DCL ACTXXXC /* (RESERVED) */ 00474000 * FIXED (31) CONSTANT (23); 0078 00475000 * DCL ACTXXXD /* (RESERVED) */ 00476000 * FIXED (31) CONSTANT (24); 0079 00477000 * DCL ACTXXXE /* (RESERVED) */ 00478000 * FIXED (31) CONSTANT (25); 0080 00479000 * DCL ACTXXXF /* (RESERVED) */ 00480000 * FIXED (31) CONSTANT (26); 0081 00481000 * DCL ACTXXXG /* (RESERVED) */ 00482000 * FIXED (31) CONSTANT (27); 0082 00483000 * DCL ACTWKDN /* WRITE RECORD 'N' (KEY AND DATA) */ 00484000 * FIXED (31) CONSTANT (28); 0083 00485000 * DCL ACTWDN /* WRITE RECORD 'N' (DATA ONLY) */ 00486000 * FIXED (31) CONSTANT (29); 0084 00487000 * DCL ACTXXXH /* (RESERVED) */ 00488000 * FIXED (31) CONSTANT (30); 0085 00489000 * DCL ACTRRHA /* RECOVER READ-HOME-ADDRESS */ 00490000 * FIXED (31) CONSTANT (31); 0086 00491000 * DCL ACTRRRZ /* RECOVER READ-RECORD-ZERO */ 00492000 * FIXED (31) CONSTANT (32); 0087 00493000 * DCL ACTXXXJ /* (RESERVED) */ 00494000 * FIXED (31) CONSTANT (33); 0088 00495000 * DCL ACTRERZ /* RECOVER STANDARD R-ZERO */ 00496000 * FIXED (31) CONSTANT (34); 0089 00497000 * 0089 00498000 * DCL ACTHIGH /* MAXIMUM NUMBER OF ACTION-KEYS */ 00499000 * FIXED (31) CONSTANT (34); 0090 00500000 * 0090 00501000 * /************************************************************/ 00502000 * /* */ 00503000 * /* DEVICE ADAPTER VOLIB INFORMATION REQUEST KEYS */ 00504000 * /* */ 00505000 * /************************************************************/ 00506000 * DCL VOLLOW /* MINIMUM VALUE FOR VOLIB INFO-KEYS */ 00507000 * FIXED (31) CONSTANT (1); 0091 00508000 * DCL VOLDNAME /* DD-NAME */ 00509000 * FIXED (31) CONSTANT (1); 0092 00510000 * DCL VOLCUU /* CUU OF VOLUME */ 00511000 * FIXED (31) CONSTANT (2); 0093 00512000 * DCL VOLNTYP /* VOLUME TYPE - DD-NAME OR CUU */ 00513000 * FIXED (31) CONSTANT (3); 0094 00514000 * DCL VOLSTATE /* ON/OFF LINE STATE */ 00515000 * FIXED (31) CONSTANT (4); 0095 00516000 * DCL VOLAMAPF /* ACCESS PTR TO FIRST MAP DATA ENTRY */ 00517000 * FIXED (31) CONSTANT (5); 0096 00518000 * DCL VOLAMAPL /* ACCESS PTR TO LAST MAP DATA ENTRY */ 00519000 * FIXED (31) CONSTANT (6); 0097 00520000 * DCL VOLIOB /* ADDRESS OF ASSOCIATED IOB */ 00521000 * FIXED (31) CONSTANT (7); 0098 00522000 * DCL VOLPRVOL /* VOLUME IS MAOUNTED PRIVATELY */ 00523000 * FIXED (31) CONSTANT (8); 0099 00524000 * DCL VOLFINIT /* FIRST TIME INIT. FLAG */ 00525000 * FIXED (31) CONSTANT (9); 0100 00526000 * DCL VOLDTYP4 /* 4 BYTE UCB DEVICE TYPE */ 00527000 * FIXED (31) CONSTANT (10); 0101 00528000 * DCL VOLDTYP /* 1 BYTE UCB DEVICE TYPE */ 00529000 * FIXED (31) CONSTANT (11); 0102 00530000 * DCL VOLHIGH /* MAXIMUM VALUE FOR VOLIB INFO-KEYS */ 00531000 * FIXED (31) CONSTANT (11); 0103 00532000 * /************************************************************/ 00533000 * /* */ 00534000 * /* DEVICE ADAPTER VOLIB UPDATE REQUEST KEYS */ 00535000 * /* */ 00536000 * /************************************************************/ 00537000 * DCL VOLSLOW /* MINIMUM VALUE FOR VOLIB STORE KEYS */ 00538000 * FIXED (31) CONSTANT (105); 0104 00539000 * DCL VOLSMAPF /* STORE PTR TO FIRST MAP DATA ENTRY */ 00540000 * FIXED (31) CONSTANT (105); 0105 00541000 * DCL VOLSMAPL /* STORE PTR TO LAST MAP DATA ENTRY */ 00542000 * FIXED (31) CONSTANT (106); 0106 00543000 * DCL VOLSHIGH /* MAXIMUM VALUE FOR VOLIB STORE KEYS */ 00544000 * FIXED (31) CONSTANT (106); 0107 00545000 * /************************************************************/ 00546000 * /* */ 00547000 * /* DEVICE INFORMATION TABLE DATA REQUEST KEYS */ 00548000 * /* */ 00549000 * /************************************************************/ 00550000 * DCL DEVLOW /* MINIMUM VALUE FOR DEV KEYS */ 00551000 * FIXED (31) CONSTANT (201); 0108 00552000 * DCL DEVPTRKS /* NUMBER OF PRIMARY TRACKS ON PACK */ 00553000 * FIXED (31) CONSTANT (201); 0109 00554000 * DCL DEVATRKS /* NUMBER OF ALTERNATE TRACKS ON PACK */ 00555000 * FIXED (31) CONSTANT (202); 0110 00556000 * DCL DEVNUMSD /* NUMBER OF SD BYTES IN HA */ 00557000 * FIXED (31) CONSTANT (203); 0111 00558000 * DCL DEVTKCYL /* TRACKS PER CYLINDER */ 00559000 * FIXED (31) CONSTANT (204); 0112 00560000 * DCL DEVLPADD /* ADDRESS OF LAST PRIMARY TRACK */ 00561000 * FIXED (31) CONSTANT (205); 0113 00562000 * DCL DEVFAADD /* ADDRESS OF FIRST ALTERNATE TRACK */ 00563000 * FIXED (31) CONSTANT (206); 0114 00564000 * DCL DEVLAADD /* ADDRESS OF LAST ALTERNATE TRACK */ 00565000 * FIXED (31) CONSTANT (207); 0115 00566000 * DCL DEVTHOLD /* THRESHOLD OF UNRECOVERABLE TRACKS */ 00567000 * FIXED (31) CONSTANT (208); 0116 00568000 * DCL DEVBSRS1 /* IPL BOOTSTRAP PROGRAM RECORD 1 */ 00569000 * FIXED (31) CONSTANT (209); 0117 00570000 * DCL DEVBSRS2 /* IPL BOOTSTRAP PROGRAM RECORD 2 */ 00571000 * FIXED (31) CONSTANT (210); 0118 00572000 * DCL DEVIPLPL /* MAX. IPL PGM. LENGTH */ 00573000 * FIXED (31) CONSTANT (211); 0119 00574000 * DCL DEVMSSID /* MSS VOLUME IN EFFECT */ 00575000 * FIXED (31) CONSTANT (212); 0120 00576000 * DCL DEVVTOCL /* DEFAULT VTOC LOCATION */ 00577000 * FIXED (31) CONSTANT (213); 0121 00578000 * DCL DEVVTOCE /* DEFAULT VTOC EXTENTS */ 00579000 * FIXED (31) CONSTANT (214); 0122 00580000 * DCL DEVDSCBF /* FORMAT 4 DACB DEVICE CONSTANTS */ 00581000 * FIXED (31) CONSTANT (215); 0123 00582000 * DCL DEVTRKCP /* TRACK CAPACITY - (HA AND R0) */ 00583000 * FIXED (31) CONSTANT (216); 0124 00584000 * DCL DEVRECOH /* RECORD OVERHEAD */ 00585000 * FIXED (31) CONSTANT (217); 0125 00586000 * DCL DEVMRTRK /* MAXIMUM NUMBER OF RECORDS PER TRACK */ 00587000 * FIXED (31) CONSTANT (218); 0126 00588000 * DCL DEVBSRW1 /* SPECIAL BOOTSTRAP: FORCES WAIT STATE */ 00589000 * FIXED (31) CONSTANT (219); 0127 00590000 * DCL DEVHIGH /* MAXIMUM VALUE FOR DEV KEY */ 00591000 * FIXED (31) CONSTANT (219); 0128 00592000 * /************************************************************/ 00593000 * /* */ 00594000 * /* ENTRY POINT DECLARATIONS FOR THE DEVICE ADAPTER */ 00595000 * /* */ 00596000 * /************************************************************/ 00597000 * 0129 00598000 * DCL ICKDVON0 ENTRY BASED(GDTDVO) VALUERANGE(*); 0129 00599000 * /* UDEVOPEN ENTRY POINT */ 00600000 * DCL ICKDVIN0 ENTRY BASED(GDTDIN) VALUERANGE(*); 0130 00601000 * /* UDEVINFO ENTRY POINT */ 00602000 * DCL ICKDVOP0 ENTRY BASED(GDTDOP) VALUERANGE(*); 0131 00603000 * /* UDEVOP ENTRY POINT */ 00604000 * DCL ICKDVCL0 ENTRY BASED(GDTDVC) VALUERANGE(*); 0132 00605000 * /* UDEVCLSE ENTRY POINT */ 00606000 * 0133 00607000 * 0133 00608000 * 0133 00609000 * /************************************************************/ 00610000 * /* */ 00611000 * /* ENTRY POINT DECLARATIONS FOR TEXT OUTPUT PROCESSOR */ 00612000 * /* */ 00613000 * /************************************************************/ 00614000 * 0133 00615000 * 0133 00616000 * DCL ICKTPPR0 ENTRY BASED(GDTPRT) VALUERANGE(*) 0133 00617000 * OPTIONS(VLIST); /*UPRINT MACRO ENTRY POINT */ 00618000 * DCL ICKTPES0 ENTRY BASED(GDTESS) VALUERANGE(*); 0134 00619000 * /*UESTS MACRO ENTRY POINT */ 00620000 * DCL ICKTPEA0 ENTRY BASED(GDTESA) VALUERANGE(*); 0135 00621000 * /*UESTA MACRO ENTRY POINT */ 00622000 * DCL ICKTPRS0 ENTRY BASED(GDTRST) VALUERANGE(*) 0136 00623000 * OPTIONS(VLIST); /*UREST MACRO ENTRY POINT */ 00624000 * DCL ICKTPRE0 ENTRY BASED(GDTRES) VALUERANGE(*) 0137 00625000 * OPTIONS(VLIST); /*URESET MACRO ENTRY POINT */ 00626000 * 0137 00627000 * 0137 00628000 * /************************************************************/ 00629000 * /* */ 00630000 * /* DATA STRUCTURE DECLARATIONS FOR TEXT OUTPUT PROCESSOR */ 00631000 * /* */ 00632000 * /************************************************************/ 00633000 * DCL DDSTRU PTR(31); /*DYNAMIC DATA STRUCTURE PTR */ 00634000 * 0138 00635000 * /*DYNAMIC DATA STRUCTURE ARGUMENT LIST */ 00636000 * DCL 1 DARGLIST BOUNDARY(WORD) BASED(DDSTRU), 0139 00637000 * 2 DARGDBP PTR(31), /*DATA BLOCK POINTER */ 00638000 * 2 DARGRETP PTR(31), /*RETURN AREA POINTER */ 00639000 * 2 DARGSTID FIXED(31),/*STATIC TEXT IDENTIFIER */ 00640000 * 3 DARGSMOD CHAR(3), /* STATIC TEXT MODULE */ 00641000 * 3 DARGSENT PTR(8), /* STATIC TEXT ENTRY */ 00642000 * 2 DARGILP FIXED(15),/*INPUT BLOCK LENGTH */ 00643000 * 2 DARGCNT FIXED(15),/*COUNT OF REF GROUPS */ 00644000 * 2 DARGRETL FIXED(15),/*RETURN AREA LENGTH */ 00645000 * 2 DARGIND FIXED(8), /*PRINT LINE INDENT FACTOR */ 00646000 * 2 * FIXED(8), /*RESERVED */ 00647000 * 2 DARGARY(*) BOUNDARY(WORD), 0139 00648000 * 3 DARGINS FIXED(15),/*INSERT REFERENCE NUMBER */ 00649000 * 4 DARGREP FIXED(15),/*REPLICATION REFERENCE NUMBER*/ 00650000 * 3 DARGINL FIXED(15),/*INPUT DATA LENGTH */ 00651000 * 4 DARGPCT FIXED(15),/*REDO REPLICATION COUNT */ 00652000 * 3 DARGDTM FIXED(31);/*DYNAMIC DATA POINTER */ 00653000 * 0139 00654000 * DCL FSADDR PTR(31); /*FORMAT STRUCTURE POINTER */ 00655000 * 0140 00656000 * /*FORMAT STRUCTURE ARGUMENT LIST */ 00657000 * DCL 1 FMTLIST BOUNDARY(WORD) BASED(FSADDR), 0141 00658000 * 2 FMTFLGS BIT(16), /*FLAG BYTES */ 00659000 * 3 FMTEOLF BIT(1), /* END OF STRUCTURE FLAG */ 00660000 * 3 FMTSCF BIT(1), /* SPACE CONTROL FLAG */ 00661000 * 3 FMTIDF BIT(1), /* INSERT DATA FLAG */ 00662000 * 3 FMTBDF BIT(1), /* BLOCK DATA FLAG */ 00663000 * 3 FMTREPF BIT(1), /* REDO FLAG */ 00664000 * 3 FMTSTF BIT(1), /* STATIC TEXT FLAG */ 00665000 * 3 FMTDFF BIT(1), /* DEFAULT DATA FLAG */ 00666000 * 3 FMTHDF BIT(1), /* HEADER FLAG */ 00667000 * 3 * BIT(8), /* RESERVED */ 00668000 * 2 FMTSPF FIXED(15),/*SPACING FACTOR */ 00669000 * 3 FMTRFNO FIXED(15),/*INSERT REFERENCE NUMBER */ 00670000 * 4 FMTILEN FIXED(15),/*BLOCK INPUT LENGTH */ 00671000 * 5 FMTSTL FIXED(15),/*STATIC TEXT LENGTH */ 00672000 * 2 FMTIOFF FIXED(15),/*BLOCK INPUT OFFSET */ 00673000 * 3 FMTTRBC FIXED(15),/*REPLICATION STRUCTURE COUNT */ 00674000 * 4 FMTSTO FIXED(15),/*STATIC TEXT OFFSET */ 00675000 * 5 FMTSPT CHAR(1), /*SPACING TYPE */ 00676000 * 2 FMTOCOL FIXED(15),/*PRINT COLUMN */ 00677000 * 3 FMTRIO FIXED(15),/*REPLICATION INPUT OFFSET */ 00678000 * 2 FMTOLEN FIXED(15),/*PRINT FIELD LENGTH */ 00679000 * 2 FMTCNVF BIT(16), /*CONVERSION FLAGS */ 00680000 * 3 FMTBH BIT(1), /* BINARY TO HEX */ 00681000 * 3 FMTBHA BIT(1), /* BINARY TO HEX APOSTROPHE */ 00682000 * 3 FMTBHD BIT(1), /* BINARY TO HEX DUMP */ 00683000 * 3 FMTBD BIT(1), /* BINARY TO DECIMAL */ 00684000 * 3 FMTPU BIT(1), /* PACKED TO UNPACKED */ 00685000 * 3 * BIT(3), /* RESERVED */ 00686000 * 3 FMTZS BIT(1), /* ZERO SUPPRESSION */ 00687000 * 3 FMTAL BIT(1), /* ALIGN LEFT */ 00688000 * 3 FMTSS BIT(1), /* SIGN SUPPRESSION */ 00689000 * 3 FMTBS BIT(1), /* BLANK SUPPRESSION */ 00690000 * 3 * BIT(4); /* RESERVED */ 00691000 * 0141 00692000 * 0141 00693000 * /************************************************************/ 00694000 * /* */ 00695000 * /* ENTRY POINT DECLARATIONS FOR DEBUGGING AIDS */ 00696000 * /* */ 00697000 * /************************************************************/ 00698000 * 0142 00699000 * 0142 00700000 * 0142 00701000 * DCL ICKDB010 ENTRY BASED(GDTDBG) VALUERANGE(*) 0142 00702000 * OPTIONS(VLIST); /*DMS DUMP ROUTINE ENTRY PT */ 00703000 * 0142 00704000 * 0142 00705000 * /************************************************************/ 00706000 * /* */ 00707000 * /* DATA STRUCTURE DECLARATIONS FOR DEBUGGING AIDS */ 00708000 * /* */ 00709000 * /************************************************************/ 00710000 * 0143 00711000 * /* DATA ITEM DECLARATIONS FOR SYMBOLIC DUMP MACROS */ 00712000 * 0143 00713000 * DCL DMPINDEX PTR(31); /*DUMP LIST PROCESSING POINTER*/ 00714000 * 0143 00715000 * /*DUMP LIST INDIVIDUAL ELEMENT FORMAT */ 00716000 * DCL 1 DMPITM CHAR(16) BOUNDARY(WORD) BASED(DMPINDEX), 00717000 * 2 DMPITMNM CHAR(8), /*DUMP ELEMENT SYMBOLIC NAME */ 00718000 * 2 DMPITMPT PTR(31), /*DUMP ELEMENT ADDRESS */ 00719000 * 2 DMPITMLN FIXED(15), /*DUMP ELEMENT LENGTH */ 00720000 * 2 DMPITMTP CHAR(1), /*DUMP ELEMENT TYPE */ 00721000 * 2 * CHAR(1); /*RESERVED */ 00722000 * 0144 00723000 * /*DUMP LIST ARRAY HEADER FORMAT */ 00724000 * DCL 1 DMPARY CHAR(16) BOUNDARY(WORD) BASED(DMPINDEX), 00725000 * 2 DMPARYNM CHAR(8), /*DUMP ARRAY SYMBOLIC NAME */ 00726000 * 2 DMPARYSZ FIXED(15), /*DUMP ARRAY SIZE */ 00727000 * 2 DMPARYIC FIXED(15), /*DUMP ARRAY ITEM COUNT */ 00728000 * 2 DMPARYEX FIXED(15), /*DUMP ARRAY EXTENT */ 00729000 * 2 DMPARYTP CHAR(1), /*DUMP ARRAY TYPE */ 00730000 * 2 * CHAR(1); /*RESERVED */ 00731000 * 0145 00732000 * /*DUMP LIST TERMINATOR FORMAT */ 00733000 * DCL DMPTRM CHAR(1) BOUNDARY(WORD) BASED(DMPINDEX); 00734000 * 0146 00735000 * DCL DMPTRMVL BIT(8) CONSTANT('FF'X); 0147 00736000 * /*DUMP LIST TERMINATION FLAG */ 00737000 * 0148 00738000 * DCL DMPELEMT FIXED(15) CONSTANT(16); 0148 00739000 * /*DUMP LIST ITEM SIZE */ 00740000 * 0149 00741000 * 0149 00742000 * /************************************************************/ 00743000 * /* */ 00744000 * /* DECLARATIONS FOR CONVENTIONALIZED NAMED VALUES */ 00745000 * /* */ 00746000 * /************************************************************/ 00747000 * 0149 00748000 * DCL REG0 REGISTER(0); /*REGISTER 0 SPECIFICATION */ 00749000 * DCL REG1 REGISTER(1); /*REGISTER 1 SPECIFICATION */ 00750000 * DCL REG2 REGISTER(2); /*REGISTER 2 SPECIFICATION */ 00751000 * DCL REG3 REGISTER(3); /*REGISTER 3 SPECIFICATION */ 00752000 * DCL REG4 REGISTER(4); /*REGISTER 4 SPECIFICATION */ 00753000 * DCL REG5 REGISTER(5); /*REGISTER 5 SPECIFICATION */ 00754000 * DCL REG6 REGISTER(6); /*REGISTER 6 SPECIFICATION */ 00755000 * DCL REG7 REGISTER(7); /*REGISTER 7 SPECIFICATION */ 00756000 * DCL REG8 REGISTER(8); /*REGISTER 8 SPECIFICATION */ 00757000 * DCL REG9 REGISTER(9); /*REGISTER 9 SPECIFICATION */ 00758000 * DCL REG10 REGISTER(10); /*REGISTER 10 SPECIFICATION */ 00759000 * DCL REG11 REGISTER(11); /*REGISTER 11 SPECIFICATION */ 00760000 * DCL REG12 REGISTER(12); /*REGISTER 12 SPECIFICATION */ 00761000 * DCL REG13 REGISTER(13); /*REGISTER 13 SPECIFICATION */ 00762000 * DCL REG14 REGISTER(14); /*REGISTER 14 SPECIFICATION */ 00763000 * DCL REG15 REGISTER(15); /*REGISTER 15 SPECIFICATION */ 00764000 * 0164 00765000 * DCL LASTCC00 FIXED(15) CONSTANT(0); 0165 00766000 * /*FSR LAST CONDITION CODE = 0*/ 00767000 * DCL LASTCC04 FIXED(15) CONSTANT(4); 0166 00768000 * /*FSR LAST CONDITION CODE = 4*/ 00769000 * DCL LASTCC08 FIXED(15) CONSTANT(8); 0167 00770000 * /*FSR LAST CONDITION CODE = 8*/ 00771000 * DCL LASTCC12 FIXED(15) CONSTANT(12); 0168 00772000 * /*FSR LAST CONDITION CODE = 12*/ 00773000 * DCL LASTCC16 FIXED(15) CONSTANT(16); 0169 00774000 * /*FSR LAST CONDITION CODE = 16*/ 00775000 * 0170 00776000 * DCL NULLPTR PTR(31) CONSTANT(0); 0170 00777000 * /*NULL POINTER VALUE */ 00778000 * DCL ON BIT(1) CONSTANT('1'B); 0171 00779000 * /*BIT SWITCH/FLAG 'ON' VALUE */ 00780000 * DCL OFF BIT(1) CONSTANT('0'B); 0172 00781000 * /*BIT SWITCH/FLAG 'OFF' VALUE */ 00782000 * DCL YES BIT(1) CONSTANT('1'B); 0173 00783000 * /*BIT SWITCH/FLAG 'YES' VALUE */ 00784000 * DCL NO BIT(1) CONSTANT('0'B); 0174 00785000 * /*BIT SWITCH/FLAG 'NO' VALUE */ 00786000 * DCL PRTFILE FIXED(31) CONSTANT(0); 0175 00787000 * /*SYSPRINT OUTPUT FILE NAME */ 00788000 * 0176 00789000 */********************************************************************/ 00790000 */* */ 00791000 */* END OF DMS GLOBAL DECLARATIONS */ 00792000 */* */ 00793000 */********************************************************************/ 00794000 * 0176 00795000 * 0176 00796000 * 0176 00797000 * 0176 00798000 * /************************************************************/ 00799000 * /* 03/08/78 */ 00800000 * /* DEVICE ADAPTER INTERNAL DATA STRUCTURES AND */ 00801000 * /* DEVICE TYPE DECLARATIONS */ 00802000 * /* */ 00803000 * /************************************************************/ 00804000 * /* */ 00805000 * /* (1) DEVICE ADAPTER VOLUME INFORMATION BLOCK (VOLIB) */ 00806000 * /* (2) DEVICE ADAPTER APPENDAGE INFORMATION AREA */ 00807000 * /* (3) DEVICE ADAPTER CONTROL BLOCK STORAGE AREA */ 00808000 * /* (4) DEVICE ADAPTER 3 BYTE SENSE DATA STRUCTURE */ 00809000 * /* (5) DEVICE ADAPTER DEVICE TYPE DECLARATIONS */ 00810000 * /* */ 00811000 * /************************************************************/ 00812000 * /************************************************************/ 00813000 * /* */ 00814000 * /* VOLUME INFORMATION CONTROL BLOCK DECLARATION */ 00815000 * /* */ 00816000 * /************************************************************/ 00817000 * 0176 00818000 * DCL 1 VOLIB BASED (VOLIBPTR), 0176 00819000 * 2 VLFPTR /* VOLIB FORWARD CHAIN POINTER */ 00820000 * POINTER(31), 0176 00821000 * 2 VLBPTR /* VOLIB BACKWARD CHAIN POINTER */ 00822000 * POINTER(31), 0176 00823000 * 2 VLMAPF /* FIRST MAP ENTRY POINTER */ 00824000 * CHAR(4), 0176 00825000 * 2 VLMAPL /* LAST MAP ENTRY POINTER */ 00826000 * CHAR(4), 0176 00827000 * 2 VLIOBPTR /* POINTER TO THE ASSOCIATED IOB */ 00828000 * POINTER(31), 0176 00829000 * 2 VLDNMCUU /* DDNAME OR CUU OF VOLUME */ 00830000 * CHAR(8), 0176 00831000 * 2 VLUCBDT /* 4 BYTE UCB DEVICE TYPE */ 00832000 * CHAR(4), 0176 00833000 * 3 * /* NOT USED HERE */ 00834000 * CHAR(3), 0176 00835000 * 3 VLDEVTYP /* DEVICE TYPE UCB CODE ONE BYTE */ 00836000 * CHAR(1), 0176 00837000 * 2 VLDEVIND /* DEV. TYPE (UDEVOP INDEX VALUE) */ 00838000 * FIXED(8), 0176 00839000 * 2 VLPRVOL /* PRIVATE VOLUME FLAG (1 = PRIVATE)*/ 00840000 * BIT(1) BDY(BYTE), 0176 00841000 * 2 VLFINIT /* FIRST TIME INIT. FLAG (1 = FIRST)*/ 00842000 * BIT(1) BDY(BYTE), 0176 00843000 * 2 VLSTATE /* ON/OFF LINE FLAG (1 = ON) */ 00844000 * BIT(1) BDY(BYTE), 0176 00845000 * 2 VLNTYP /* VOLUME NAME TYPE (1 = DDNAME) */ 00846000 * BIT(1) BDY(BYTE), 0176 00847000 * 2 VLNUMBER /* VOLIB ALLOCATION SEQUENCE NUMBER */ 00848000 * FIXED(8) BDY(BYTE), 0176 00849000 * 2 * /* RESERVED */ 00850000 * CHAR (2) BDY (BYTE); 0176 00851000 * 0176 00852000 * /************************************************************/ 00853000 * /* */ 00854000 * /* END OF VOLIB DECLARATION */ 00855000 * /* */ 00856000 * /************************************************************/ 00857000 * /************************************************************/ 00858000 * /* */ 00859000 * /* I/O APPENDAGE INFORMATION AREA DECLARATION */ 00860000 * /* */ 00861000 * /************************************************************/ 00862000 * 0177 00863000 * DCL 1 APINFO BASED (APIPTR), 0177 00864000 * 2 APABNC /* NUMBER OF CALLS TO ABNORMAL END */ 00865000 * FIXED(31), 0177 00866000 * 2 APAKEY /* ACTION KEY CAUSING APPENDAGE */ 00867000 * FIXED(31), 0177 00868000 * 2 APANXT /* ACTION KEY TO EXECUTE NEXT */ 00869000 * FIXED(31), 0177 00870000 * 2 APTRACK /* CCHH OF TRACK IN USE */ 00871000 * FIXED(32), 0177 00872000 * 2 APASSOC /* CCHH OF ASSOCIATED TRACK */ 00873000 * FIXED(32), 0177 00874000 * 2 APLASTA /* CCHH OF LAST ALTERNATE TRACK */ 00875000 * FIXED(32), 0177 00876000 * 2 APTRKCT /* NUMBER OF TRACKS ON VOLUME */ 00877000 * FIXED(31), 0177 00878000 * 2 APSAVE /* APPENDAGE REGISTER SAVE AREA */ 00879000 * CHAR(64), 0177 00880000 * 2 APOVFLO /* TRACK OVERFLOW FLAG */ 00881000 * BIT(1); 0177 00882000 * 0177 00883000 * /************************************************************/ 00884000 * /* */ 00885000 * /* END OF APPENDAGE INFORMATION AREA DECLARATION */ 00886000 * /* */ 00887000 * /************************************************************/ 00888000 * /************************************************************/ 00889000 * /* */ 00890000 * /* CONTROL BLOCK STORAGE AREA DECLARATION */ 00891000 * /* */ 00892000 * /************************************************************/ 00893000 * 0178 00894000 * DCL 1 CNTBLKS BASED (VOLIBPTR), 0178 00895000 * 2 CBVOLIB CHAR( LENGTH(VOLIB) ), 0178 00896000 * 2 CBECB CHAR(4) BDY (WORD), 0178 00897000 * 2 CBIOB CHAR(40), 0178 00898000 * 2 CBDCB CHAR(96), 0178 00899000 * 2 CBAPINFO CHAR( LENGTH(APINFO) ); 0178 00900000 * 0178 00901000 * /************************************************************/ 00902000 * /* */ 00903000 * /* END OF CONTROL BLOCK STORAGE AREA */ 00904000 * /* */ 00905000 * /************************************************************/ 00906000 * /************************************************************/ 00907000 * /* */ 00908000 * /* DEVICE SENSE INFORMATION DATA STRUCTURE */ 00909000 * /* */ 00910000 * /************************************************************/ 00911000 * 0179 00912000 * DCL 1 DEVSENSE /* DEVICE SENSE STRUCTURE */ 00913000 * BASED (DATAPTR), 0179 00914000 * 2 BYTE0 /* SENSE BYTE ZERO */ 00915000 * CHAR(1), 0179 00916000 * 3 * /* NOT USED */ 00917000 * BIT(3), 0179 00918000 * 3 SENEQCK /* EQUIPMENT CHECK BIT */ 00919000 * BIT(1), 0179 00920000 * 3 SENDATCK /* DATA CHECK BIT */ 00921000 * BIT(1), 0179 00922000 * 3 * /* NOT USED */ 00923000 * BIT(1), 0179 00924000 * 3 SENTRKCK /* TRACK CHECK BIT */ 00925000 * BIT(1), 0179 00926000 * 3 SENSEEKC /* SEEK CHECK BIT */ 00927000 * BIT(1), 0179 00928000 * 2 BYTE1 /* SENSE BYTE ONE */ 00929000 * CHAR(1), 0179 00930000 * 3 SENPERR /* PERMANENT ERROR (NOT 2314,2319) */ 00931000 * BIT(1), 0179 00932000 * 3 * /* NOT USED */ 00933000 * BIT(3), 0179 00934000 * 3 SENRFND /* NO RECORD FOUND BIT */ 00935000 * BIT(1), 0179 00936000 * 3 * /* NOT USED */ 00937000 * BIT(3), 0179 00938000 * 2 BYTE2 /* SENSE BYTE TWO */ 00939000 * CHAR(1), 0179 00940000 * 3 SENRPSPR /* RPS OPTION BIT */ 00941000 * BIT(1), 0179 00942000 * 3 SENCERR /* CORRECTABLE ERROR BIT */ 00943000 * BIT(1), 0179 00944000 * 3 * /* NOT USED */ 00945000 * BIT(2), 0179 00946000 * 3 SEN3344 /* 3344 DEVICE BIT */ 00947000 * BIT(1), 0179 00948000 * 4 SENEMUL /* COMPAT. FLAG (3330 EMULATION) */ 00949000 * BIT(1), 0179 00950000 * 3 * /* NOT USED */ 00951000 * BIT(1), 0179 00952000 * 3 SENMB70 /* 3340 OPTION BIT FOR 70MB */ 00953000 * BIT(1), 0179 00954000 * 3 SENMB35 /* 3340 OPTION BIT FOR 35MB */ 00955000 * BIT(1); 0179 00956000 * 0179 00957000 * /************************************************************/ 00958000 * /* */ 00959000 * /* END OF SENSE DATA STRUCTURE */ 00960000 * /* */ 00961000 * /************************************************************/ 00962000 * /************************************************************/ 00963000 * /* */ 00964000 * /* DEVICE TYPE DECLARATIONS (VLDEVIND DEVICE INDEX VALUE) */ 00965000 * /* */ 00966000 * /************************************************************/ 00967000 * 0180 00968000 * DCL DV230A /* DEVICE INDEX VALUE FOR 2305-1 */ 00969000 * FIXED(8) CONSTANT (1); 0180 00970000 * 0180 00971000 * DCL DV230B /* DEVICE INDEX VALUE FOR 2305-2 */ 00972000 * FIXED(8) CONSTANT (2); 0181 00973000 * 0181 00974000 * DCL DV2314 /* DEVICE INDEX VALUE FOR 2314/2319 */ 00975000 * FIXED(8) CONSTANT (3); 0182 00976000 * 0182 00977000 * DCL DV333A /* DEVICE INDEX VALUE FOR 3330 */ 00978000 * FIXED(8) CONSTANT (4); 0183 00979000 * 0183 00980000 * DCL DV333B /* DEVICE INDEX VALUE FOR 3330-1 */ 00981000 * FIXED(8) CONSTANT (5); 0184 00982000 * 0184 00983000 * DCL DV333C /* DEV. IND. VALUE FOR 3330 STG. PK */ 00984000 * FIXED(8) CONSTANT (6); 0185 00985000 * 0185 00986000 * DCL DV333D /* DEVICE IND. VAL. 3330-1 STG. PK. */ 00987000 * FIXED(8) CONSTANT (7); 0186 00988000 * 0186 00989000 * DCL DV334A /* DEVICE INDEX VALUE FOR 334A */ 00990000 * FIXED(8) CONSTANT (8); 0187 00991000 * 0187 00992000 * DCL DV334B /* DEVICE INDEX VALUE FOR 334B */ 00993000 * FIXED(8) CONSTANT (9); 0188 00994000 * 0188 00995000 * DCL DV334C /* DEVICE INDEX VALUE FOR 334C */ 00996000 * FIXED(8) CONSTANT (10); 0189 00997000 * 0189 00998000 * DCL DV334D /* DEVICE INDEX VALUE FOR 334D */ 00999000 * FIXED(8) CONSTANT (11); 0190 01000000 * 0190 01001000 * DCL DV3344 /* DEVICE INDEX VALUE FOR 3344 */ 01002000 * FIXED(8) CONSTANT (9); 0191 01003000 * 0191 01004000 * DCL DV3350 /* DEVICE INDEX VALUE FOR 3350 */ 01005000 * FIXED(8) CONSTANT (12); 0192 01006000 * 0192 01007000 * /************************************************************/ 01008000 * /* */ 01009000 * /* DEVICE TYPE DECLARATIONS (UCB CODE VALUES) */ 01010000 * /* */ 01011000 * /************************************************************/ 01012000 * 0193 01013000 * DCL DUCB230A /* DEVICE UCB CODE FOR 2305-1 */ 01014000 * BIT(8) CONSTANT ('06'X); 0193 01015000 * 0193 01016000 * DCL DUCB230B /* DEVICE UCB CODE FOR 2305-2 */ 01017000 * BIT(8) CONSTANT ('07'X); 0194 01018000 * 0194 01019000 * DCL DUCB2314 /* DEVICE UCB CODE FOR 2314/2319 */ 01020000 * BIT(8) CONSTANT ('08'X); 0195 01021000 * 0195 01022000 * DCL DUCB3330 /* DEVICE UCB CODE FOR 3330 */ 01023000 * BIT(8) CONSTANT ('09'X); 0196 01024000 * 0196 01025000 * DCL DUCB3331 /* DEVICE UCB CODE FOR 3330-1 */ 01026000 * BIT(8) CONSTANT ('0D'X); 0197 01027000 * 0197 01028000 * DCL DUCB334N /* DEVICE UCB CODE FOR 334N */ 01029000 * BIT(8) CONSTANT ('0A'X); 0198 01030000 * 0198 01031000 * DCL DUCB3350 /* DEVICE UCB CODE FOR 3350 */ 01032000 * BIT(8) CONSTANT ('0B'X); 0199 01033000 * 0199 01034000 * /************************************************************/ 01035000 * /* */ 01036000 * /* END OF DEVICE TYPE DECLARATIONS */ 01037000 * /* */ 01038000 * /************************************************************/ 01039000 * /************************************************************/ 01040000 * /* */ 01041000 * /* END DEVICE ADAPTER DECLARATIONS */ 01042000 * /* */ 01043000 * /************************************************************/ 01044000 * 0200 01045000 * 0200 01046000 * 0200 01047000 * DECLARE /***** P A R A M E T E R S ***************************/ 01048000 * 0200 01049000 * VOLIBPTR /* VOLUME INFORMATION BLOCK POINTER */ 01050000 * POINTER(31), 0200 01051000 * INFOKEY /* INFORMATION REQUEST IDENTIFIER */ 01052000 * FIXED(31), 0200 01053000 * POOLID /* SUB-POOL IDENTIFIER */ 01054000 * CHAR(4), 0200 01055000 * INFOPTR /* DATA RETURN AREA POINTER */ 01056000 * POINTER(31), 0200 01057000 * INFOLEN /* LENGTH OF DATA RETURNED */ 01058000 * FIXED(31), 0200 01059000 * CONDCODE /* CONDITION CODE */ 01060000 * FIXED(31); 0200 01061000 * 0200 01062000 * 0200 01063000 * DECLARE /***** I N T E R N A L S *****************************/ 01064000 * 0201 01065000 * MODID /* INTER-MODULE TRACE IDENTIFIER */ 01066000 * CHAR(4) INIT('DV02'), 0201 01067000 * 0201 01068000 * /***** LIST PROCESSING MECHANISM-DATA FOR DIT ACCESS ********/ 01069000 * 0201 01070000 * INFOVPTR /* PTR EXTRACTED FROM DEVICES VECTOR */ 01071000 * POINTER(31), 0201 01072000 * INFOVECT(*) /* INFO VECTOR ADDRESSED BY DEVICES */ 01073000 * POINTER(31) BASED(INFOVPTR), 0201 01074000 * INFOEPTR /* POINTER EXTRACTED FROM INFO VECTOR */ 01075000 * POINTER(31), 0201 01076000 * 1 INFOCELL /* INFORMATION ELEMENT MAPPING */ 01077000 * BASED(INFOEPTR) BDY(WORD), 0201 01078000 * 2 INFOSIZE /* LENGTH OF INFORMATION VALUE */ 01079000 * FIXED(15), 0201 01080000 * 2 INFOTYP /* TYPE OF VALUE: DATA OR ADDRESS */ 01081000 * CHAR(2), 0201 01082000 * 2 INFOADDR /* INFO VALUE: ADDRESS */ 01083000 * POINTER(31), 0201 01084000 * 3 INFOVAL /* INFO VALUE: DATA */ 01085000 * CHAR(*), 0201 01086000 * INFOTYPD /* INFORMATION TYPE IS DATA */ 01087000 * CHAR(2) INIT('D '), 0201 01088000 * INFOTYPA /* INFORMATION TYPE IS ADDRESS */ 01089000 * CHAR(2) INIT('A '), 0201 01090000 * INFOTRG /* MAPPING OF ACQUIRED POOL-SPACE */ 01091000 * BASED(INFOPTR) CHAR(*), 0201 01092000 * INFOSRC /* MAPPING OF ADDRESSED INFO ELEMENT */ 01093000 * BASED(INFOADDR) CHAR(*), 0201 01094000 * 0201 01095000 * /****** RETURN CODES ****************************************/ 01096000 * 0201 01097000 * RCSUCC /* RETURN CODE: SUCCESS */ 01098000 * FIXED(31) CONSTANT(0), 0201 01099000 * 0201 01100000 * /***** STANDARD IPL BOOTSTRAP RECORDS ***********************/ 01101000 * 0201 01102000 * 1 IPLBOOTW /* SPECIAL BOOTSTRAP RECORD: WAIT STATE*/ 01103000 * STATIC LOCAL, 0201 01104000 * 2 *, /* COUNT/KEY AREAS */ 01105000 * 3 * /* COUNT-AREA */ 01106000 * CHAR(8) INIT('0000000001040018'X), 0201 01107000 * 3 * /* KEY-AREA */ 01108000 * CHAR(4) INIT('IPL1'), 0201 01109000 * 2 * /* IPL PROGRAM PSW */ 01110000 * CHAR(8) INIT ('000600000000000F'X), 0201 01111000 * 2 * /* IPL PROGRAM 1 CCW 1 */ 01112000 * CHAR(8) INIT ('0300000000000001'X), 0201 01113000 * 2 * /* IPL PROGRAM 1 CCW 2 */ 01114000 * CHAR(8) INIT ('0000000000000000'X), 0201 01115000 * 0201 01116000 * 1 IPLBOOT1 /* IPL BOOTSTRAP PROGRAM 1 */ 01117000 * STATIC LOCAL, 0201 01118000 * 2 *, /* COUNT/KEY AREAS */ 01119000 * 3 * /* COUNT-AREA */ 01120000 * CHAR(8) INIT('0000000001040018'X), 0201 01121000 * 3 * /* KEY-AREA */ 01122000 * CHAR(4) INIT('IPL1'), 0201 01123000 * 2 * /* IPL PROGRAM PSW */ 01124000 * CHAR(8) INIT ('0000000000000000'X), 0201 01125000 * 2 * /* IPL PROGRAM 1 CCW 1 */ 01126000 * CHAR(8) INIT ('06003A9860000060'X), 0201 01127000 * 2 * /* IPL PROGRAM 1 CCW 2 */ 01128000 * CHAR(8) INIT ('08003A9800000000'X), 0201 01129000 * 0201 01130000 * 1 IPLBOOT2 /* IPL BOOTSTRAP PROGRAM 2 */ 01131000 * STATIC LOCAL, 0201 01132000 * 2 *, /* COUNT/KEY AREAS */ 01133000 * 3 * /* COUNT-AREA */ 01134000 * CHAR(8) INIT('0000000002040090'X), 0201 01135000 * 3 * /* KEY-AREA */ 01136000 * CHAR(4) INIT('IPL2'), 0201 01137000 * 2 * /* IPL PROGRAM 2 CCW 1 */ 01138000 * CHAR(8) INIT ('07003AB840000006'X), 0201 01139000 * 2 * /* IPL PROGRAM 2 CCW 2 */ 01140000 * CHAR(8) INIT ('31003ABE40000005'X), 0201 01141000 * 2 * /* IPL PROGRAM 2 CCW 3 */ 01142000 * CHAR(8) INIT ('08003AA000000000'X), 0201 01143000 * 2 * /* IPL PROGRAM 2 CCW 4 */ 01144000 * CHAR(8) INIT ('0600000020000000'X), 0201 01145000 * 2 * /* IPL PROGRAM SEEK ADDRESS */ 01146000 * CHAR(6) INIT ('000000000000'X), 0201 01147000 * 2 * /* IPL PROGRAM SEARCH ADDRESS */ 01148000 * CHAR(5) INIT ('0000000004'X), 0201 01149000 * 2 * (101) /* ZERO PADDING */ 01150000 * CHAR(1) INIT ((101)'00'X), 0201 01151000 * 0201 01152000 * IPLBOTL1 /* IPL PROGRAM 1 LENGTH */ 01153000 * FIXED(15) CONSTANT (24), 0201 01154000 * 0201 01155000 * IPLBOTL2 /* IPL PROGRAM 2 LENGTH */ 01156000 * FIXED(15) CONSTANT (144), 0201 01157000 * 0201 01158000 * IPLBOTL3 /* IPL SPECIAL BOOTSTRAP (WAIT) LENGTH */ 01159000 * FIXED(15) CONSTANT (24); 0201 01160000 * 0201 01161000 * /****** DEFINE FORMAT-4 DSCB DEVICE CONSTANTS ***************/ 01162000 * 0202 01163000 * DECLARE 0202 01164000 * 1 DSCB4DC1 CHAR(14) BDY(HWORD) STATIC LOCAL, /* 2314,2319 */ 01165000 * 2 * FIXED(16) INIT(203), /* NUMBER OF CYLINDERS */ 01166000 * 2 * FIXED(16) INIT(20), /* NUMBER OF TRKS PER CYL */ 01167000 * 2 * FIXED(16) INIT(7294), /* TRACK CAPACITY */ 01168000 * 2 * FIXED(8) INIT(146), /* NON-LAST KEYED REC OH */ 01169000 * 2 * FIXED(8) INIT(45), /* LAST KEYED REC OVERHEAD */ 01170000 * 2 * FIXED(8) INIT(45), /* NON-KEYED OH DIFF */ 01171000 * 2 * BIT(8) INIT('01'X), /* FLAG BYTE */ 01172000 * 2 * FIXED(16) INIT(534), /* DEVICE TOLERANCE */ 01173000 * 2 * FIXED(8) INIT(25), /* NO. OF DSCBS PER TRACK */ 01174000 * 2 * FIXED(8) INIT(17); /* NO. DIRECTORY BLKS/TRK */ 01175000 * 0202 01176000 * DECLARE 0203 01177000 * 1 DSCB4DC2 CHAR(14) BDY(HWORD) STATIC LOCAL, /* 2305-1 */ 01178000 * 2 * FIXED(16) INIT(48), /* NUMBER OF CYLINDERS */ 01179000 * 2 * FIXED(16) INIT(8), /* NUMBER OF TRKS PER CYL */ 01180000 * 2 * FIXED(16) INIT(14568), /* TRACK CAPACITY */ 01181000 * 2 * FIXED(8) INIT(2), /* NON-LAST KEYED REC OH */ 01182000 * 2 * FIXED(8) INIT(122), /* LAST KEYED REC. OH */ 01183000 * 2 * FIXED(8) INIT(202), /* NON-KEYED OH DIFFERENTIAL*/ 01184000 * 2 * BIT(8) INIT('09'X), /* FLAG BYTE */ 01185000 * 2 * FIXED(16) INIT(512), /* DEVICE TOLERANCE */ 01186000 * 2 * FIXED(8) INIT(18), /* NUMBER OF DSCBS PER TRACK*/ 01187000 * 2 * FIXED(8) INIT(16); /* NO. DIRECTORY BLKS/TRK */ 01188000 * 0203 01189000 * DECLARE 0204 01190000 * 1 DSCB4DC3 CHAR(14) BDY(HWORD) STATIC LOCAL, /* 2305-2 */ 01191000 * 2 * FIXED(16) INIT(96), /* NUMBER OF CYLINDERS */ 01192000 * 2 * FIXED(16) INIT(8), /* NUMBER OF TRKS PER CYL */ 01193000 * 2 * FIXED(16) INIT(14858), /* TRACK CAPACITY */ 01194000 * 2 * FIXED(8) INIT(1), /* NON-LAST KEYED REC. OH */ 01195000 * 2 * FIXED(8) INIT(33), /* LAST KEYED REC. OH */ 01196000 * 2 * FIXED(8) INIT(91), /* NON-KEYED OH DIFFERENTIAL*/ 01197000 * 2 * BIT(8) INIT('09'X), /* FLAG BYTE */ 01198000 * 2 * FIXED(16) INIT(512), /* DEVICE TOLERANCE */ 01199000 * 2 * FIXED(8) INIT(34), /* NUMBER OF DSCBS PER TRK */ 01200000 * 2 * FIXED(8) INIT(26); /* NO. DIRECTORY BLKS/TRK */ 01201000 * 0204 01202000 * DECLARE 0205 01203000 * 1 DSCB4DC4 CHAR(14) BDY(HWORD) STATIC LOCAL, /* 3330 */ 01204000 * 2 * FIXED(16) INIT(411), /* NUMBER OF CYLINDERS */ 01205000 * 2 * FIXED(16) INIT(19), /* NUMBER OF TRKS PER CYL */ 01206000 * 2 * FIXED(16) INIT(13165), /* TRACK CAPACITY */ 01207000 * 2 * FIXED(8) INIT(191), /* NON-LAST KEYED REC. OH */ 01208000 * 2 * FIXED(8) INIT(191), /* LAST KEYED REC. OH */ 01209000 * 2 * FIXED(8) INIT(56), /* NON-KEYED OH DIFFERENTIAL*/ 01210000 * 2 * BIT(8) INIT('01'X), /* FLAG BYTE */ 01211000 * 2 * FIXED(16) INIT(512), /* DEVICE TOLERANCE */ 01212000 * 2 * FIXED(8) INIT(39), /* NUMBER OF DSCBS PER TRK */ 01213000 * 2 * FIXED(8) INIT(28); /* NO. DIRECTORY BLKS/TRK */ 01214000 * 0205 01215000 * DECLARE 0206 01216000 * 1 DSCB4DC5 CHAR(14) BDY(HWORD) STATIC LOCAL, /* 3330-1 */ 01217000 * 2 * FIXED(16) INIT(815), /* NUMBER OF CYLINDERS */ 01218000 * 2 * FIXED(16) INIT(19), /* NUMBER OF TRKS PER CYL */ 01219000 * 2 * FIXED(16) INIT(13165), /* TRACK CAPACITY */ 01220000 * 2 * FIXED(8) INIT(191), /* NON-LAST KEYED REC. OH */ 01221000 * 2 * FIXED(8) INIT(191), /* LAST KEYED REC. OH */ 01222000 * 2 * FIXED(8) INIT(56), /* NON-KEYED OH DIFFERENTIAL*/ 01223000 * 2 * BIT(8) INIT('01'X), /* FLAG BYTE */ 01224000 * 2 * FIXED(16) INIT(512), /* DEVICE TOLERANCE */ 01225000 * 2 * FIXED(8) INIT(39), /* NUMBER OF DSCBS PER TRK */ 01226000 * 2 * FIXED(8) INIT(28); /* NO. DIRECTORY BLKS/TRK */ 01227000 * 0206 01228000 * DECLARE 0207 01229000 * 1 DSCB4DC6 CHAR(14) BDY(HWORD) STATIC LOCAL, /* 3340 35 MB */ 01230000 * 2 * FIXED(16) INIT(349), /* NUMBER OF CYLINDERS */ 01231000 * 2 * FIXED(16) INIT(12), /* NUMBER OF TRKS PER CYL */ 01232000 * 2 * FIXED(16) INIT(8535), /* TRACK CAPACITY */ 01233000 * 2 * FIXED(8) INIT(242), /* NON-LAST KEYED REC OH */ 01234000 * 2 * FIXED(8) INIT(242), /* LAST KEYED REC. OH */ 01235000 * 2 * FIXED(8) INIT(75), /* NON-KEYED OH DIFFERENTIAL*/ 01236000 * 2 * BIT(8) INIT('01'X), /* FLAG BYTE */ 01237000 * 2 * FIXED(16) INIT(512), /* DEVICE TOLERANCE */ 01238000 * 2 * FIXED(8) INIT(22), /* NUMBER OF DSCBS PER TRK */ 01239000 * 2 * FIXED(8) INIT(16); /* NO. DIRECTORY BLKS/TRK */ 01240000 * 0207 01241000 * DECLARE 0208 01242000 * 1 DSCB4DC7 CHAR(14) BDY(HWORD) STATIC LOCAL, /* 3340 70 MB */ 01243000 * 2 * FIXED(16) INIT(698), /* NUMBER OF CYLINDERS */ 01244000 * 2 * FIXED(16) INIT(12), /* NUMBER OF TRKS PER CYL */ 01245000 * 2 * FIXED(16) INIT(8535), /* TRACK CAPACITY */ 01246000 * 2 * FIXED(8) INIT(242), /* NON-LAST KEYED REC. OH */ 01247000 * 2 * FIXED(8) INIT(242), /* LAST KEYED REC. OH */ 01248000 * 2 * FIXED(8) INIT(75), /* NON-KEYED OH DIFFERENTIAL*/ 01249000 * 2 * BIT(8) INIT('01'X), /* FLAG BYTE */ 01250000 * 2 * FIXED(16) INIT(512), /* DEVICE TOLERANCE */ 01251000 * 2 * FIXED(8) INIT(22), /* NUMBER OF DSCBS PER TRK */ 01252000 * 2 * FIXED(8) INIT(16); /* NO. DIRECTORY BLKS/TRK */ 01253000 * 0208 01254000 * DECLARE 0209 01255000 * 1 DSCB4DC8 CHAR(14) BDY(HWORD) STATIC LOCAL, /* 3350 */ 01256000 * 2 * FIXED(16) INIT(560), /* NUMBER OF CYLINDERS */ 01257000 * 2 * FIXED(16) INIT(30), /* NUMBER OF TRKS PER CYL */ 01258000 * 2 * FIXED(16) INIT(19254), /* TRACK CAPACITY */ 01259000 * 2 * FIXED(8) INIT(1), /* NON-LAST KEYED REC. OH */ 01260000 * 2 * FIXED(8) INIT(11), /* LAST KEYED REC. OH */ 01261000 * 2 * FIXED(8) INIT(82), /* NON-KEYED OH DIFFERENTIAL*/ 01262000 * 2 * BIT(8) INIT('09'X), /* FLAG BYTE */ 01263000 * 2 * FIXED(16) INIT(512), /* DEVICE TOLERANCE */ 01264000 * 2 * FIXED(8) INIT(47), /* NUMBER OF DSCBS PER TRK */ 01265000 * 2 * FIXED(8) INIT(36); /* NO. DIRECTORY BLKS/TRK */ 01266000 * 0209 01267000 * DECLARE /******PATCH AREA ***********************************/ 01268000 * 0210 01269000 * 1 PTCHDV02 STATIC, /* MODULE PATCH AREA */ 01270000 * 2 * (256) CHAR(1) INIT((256) '00'X); 0210 01271000 * 0210 01272000 */********************************************************************/ 01273000 */* */ 01274000 */* THE DEVICE INFORMATION TABLES */ 01275000 */* */ 01276000 */* (DIT) */ 01277000 */* */ 01278000 */* A C O O K B O O K */ 01279000 */* */ 01280000 */* */ 01281000 */* THE DEVICE ADAPTER 'UDEVINFO' FACILITY IS DESIGNED TO BE HIGHLY */ 01282000 */* EXTENSIBLE. NEW DEVICES MAY BE INTRODUCED, AS MAY NEW */ 01283000 */* 'INFORMATION KEYS', BY EXTENDING THE UTILIZATION OF THE */ 01284000 */* MACROS HEREIN DESCRIBED. */ 01285000 */* */ 01286000 */* TO INTRODUCE A NEW INFORMATION KEY, TO THE EXISTENT SET OF */ 01287000 */* DEVICES, THE '?INFO' INVOCATION FOR THE AFFECTED DEVICES MUST BE*/ 01288000 */* EXTENDED TO INCLUDE THE NEW ITEM OF INFORMATION. ADDITIONALLY, */ 01289000 */* THE '?INFO' MACRO MUST ITSELF BE EXTENDED (AT THE THREE POINTS */ 01290000 */* INDICATED IN THE MACRO DEFINITION) TO HANDLE THE NEW ELEMENT */ 01291000 */* OF INFORMATION. FINALLY, THE MODULE 'DMSDF00' MUST BE UPDATED */ 01292000 */* TO INCORPORATE THE NEW INFORMATION KEY'S SYMBOLIC NAME AND */ 01293000 */* VALUE. */ 01294000 */* */ 01295000 */* TO INTRODUCE A NEW DEVICE, THE '?DEVICES' MACRO MUST BE EXTENDED*/ 01296000 */* TO INCLUDE THE DEVICE-NAME SURROGATE, AND A '?INFO' MACRO */ 01297000 */* CODED TO SPECIFY, FOR THAT DEVICE, EACH APPLICABLE ELEMENT OF */ 01298000 */* INFORMATION. (UNLESS NEW INFORMATION ELEMENTS ARE TO BE */ 01299000 */* INTRODUCED, THIS IS ALL THERE IS TO INTRODUCING A NEW DEVICE.) */ 01300000 */* */ 01301000 */* (NOTE THAT THE DEVICE-NAME SURROGATES MUST BE ORDERED IN THE */ 01302000 */* '?DEVICES' MACRO IN THEIR 'DEVICE-INDEX' ORDER.) */ 01303000 */* */ 01304000 */********************************************************************/ 01305000 EJECT 01306000 */********************************************************************/ 01307000 */* */ 01308000 */* THE 'DIT' STRUCTURE */ 01309000 */* */ 01310000 */* */ 01311000 */* THE FOLLOWING ILLUSTRATES THE LIST-STRUCTURE OF THE 'DIT'. */ 01312000 */* GIVEN THE 'DEVICE-INDEX' (VIA THE VLDEVIND FIELD OF THE VOLIB) */ 01313000 */* THE DEVICES VECTOR IS ACCESSED VIA THAT INDEX. THE POINTER */ 01314000 */* EXTRACTED FROM THE DEVICES VECTOR IS PRESERVED IN THE POINTER */ 01315000 */* VARIABLE INFOVPTR, AND IS USED TO ADDRESS THE INFORMATION-VECTOR*/ 01316000 */* (CF INFOVECT MAPPING) ASSOCIATED WITH THAT DEVICE. THE */ 01317000 */* INFORMATION-VECTOR IS IN TURN INDEXED VIA THE INFOKEY VALUE, */ 01318000 */* AND YIELDS A POINTER WHICH IS PRESERVED IN THE POINTER */ 01319000 */* VARIABLE INFOEPTR. THIS POINTER IS USED TO ADDRESS THE */ 01320000 */* INFORMATION-ELEMENT ORIGINALLY REQUESTED FOR THE GIVEN DEVICE. */ 01321000 */* */ 01322000 */* THE INFORMATION-ELEMENT (CF INFOCELL MAPPING) IS ITSELF A */ 01323000 */* 'DOPE VECTOR': */ 01324000 */* */ 01325000 */* L: LENGTH: SPECIFIES THE NUMBER OF BYTES OF DATA */ 01326000 */* USED TO HOLD THE DESIRED INFORMATION. */ 01327000 */* T: TYPE: SPECIFIES THE TYPE OF THE VALUE FIELD: */ 01328000 */* 'D' -- THE VALUE FIELD CONTAINS THE DATUM */ 01329000 */* 'A' -- THE VALUE FIELD CONTAINS THE */ 01330000 */* ADDRESS OF THE DATUM */ 01331000 */* V: VALUE: EITHER THE DATUM ITSELF (TYPE = D), OR */ 01332000 */* THE ADDRESS OF THE DATUM (TYPE = A). */ 01333000 */* */ 01334000 */* */ 01335000 */* DEVICES (INFO-VECTOR) (INFO-ELEMENT) */ 01336000 */* */ 01337000 */* ________ ________ _________ */ 01338000 */* | PTR --------------> | PTR ------------> | L | T | */ 01339000 */* |------| (INFOVPTR) |------| (INFOEPTR) |-------| */ 01340000 */* | | | | | | */ 01341000 */* |------- |------| / / */ 01342000 */* | | | | / VALUE / */ 01343000 */* |------| |------| |OR PTR | */ 01344000 */* / / | | |____|__| */ 01345000 */* / / / / | */ 01346000 */* |______| / / | (WHEN TYPE */ 01347000 */* | | | IS */ 01348000 */* |------| V 'A') */ 01349000 */* | | ______________ */ 01350000 */* |------| | | */ 01351000 */* |______| | ADDRESSED | */ 01352000 */* | DATA | */ 01353000 */* / / */ 01354000 */* / / */ 01355000 */* |____________| */ 01356000 */* */ 01357000 */* */ 01358000 */********************************************************************/ 01359000 * 0211 01360000 * 0211 01361000 * 0211 01362000 * 0211 01363000 * 0211 01364000 */********************************************************************/ 01365000 */* */ 01366000 */* D E V I C E S T A B L E */ 01367000 */* */ 01368000 */* CORRELATIONS BETWEEN DEVICE-TYPE AND DEVICE-TYPE-INDEX VALUES */ 01369000 */* */ 01370000 */* DEVICE-NAME DEVICE-NAME DEVICE-TYPE DEVICE-TYPE */ 01371000 */* (JCL) (SURROGATE) CODE INDEX */ 01372000 */* */ 01373000 */* 2305-1 230A '06'X 1 */ 01374000 */* 2305-2 230B '07'X 2 */ 01375000 */* 2314 2314 '08'X 3 */ 01376000 */* 2319 2319 '08'X 3 */ 01377000 */* 3330 333A '09'X 4 */ 01378000 */* 3330-1 333B '0D'X 5 */ 01379000 */* 3330 STG PACK 333C '09'X 6 */ 01380000 */* 3330-1 STG PACK 333D 'OD'X 7 */ 01381000 */* 3340 W/RPS, 35 MB 334A '0A'X 8 */ 01382000 */* 3340 W/RPS, 70 MB 334B '0A'X 9 */ 01383000 */* 3340 WO/RPS, 35 MB 334C '0A'X 10 */ 01384000 */* 3340 WO/RPS, 70 MB 334D '0A'X 11 */ 01385000 */* 3344 3344 '0A'X 9 */ 01386000 */* 3350 3350 '0B'X 12 */ 01387000 */* */ 01388000 */* COLUMN 1 - LISTS ALL OF THE DEVICE TYPES THAT ARE SUPPORTED */ 01389000 */* BY THE DEVICE ADAPTER. */ 01390000 */* */ 01391000 */* COLUMN 2 - LISTS THE EQUIVALENT FOUR CHARACTER NAME USED IN */ 01392000 */* THE CLUSTER GENERATION MACRO. */ 01393000 */* */ 01394000 */* COLUMN 3 - LISTS THE CORRESPONDING DEVICE-TYPE CODE THAT IS */ 01395000 */* FOUND IN THE UCB. */ 01396000 */* */ 01397000 */* COLUMN 4 - LISTS THE CORRESPONDING DEVICE-INDEX VALUES THAT */ 01398000 */* ARE USED IN THE CLUSTER LOCATE ROUTINES, THE DEVICE*/ 01399000 */* INDEX BEING FOUND IN THE VOLIB PASSED TO UDEVOP -- */ 01400000 */* IN THE FIELD 'VLDEVIND'. */ 01401000 */* */ 01402000 */********************************************************************/ 01403000 * 0211 01404000 EJECT 01405000 */********************************************************************/ 01406000 */********************************************************************/ 01407000 */*** ***/ 01408000 */** DEVICE INFORMATION TABLE (DIT) AS GENERATED BY MACROS **/ 01409000 */*** ***/ 01410000 */********************************************************************/ 01411000 */********************************************************************/ 01412000 * 0211 01413000 * 0211 01414000 */******************************************************* 0211 01415000 * 0211 01416000 * DEVICES 0211 01417000 * (230A,230B,2314,333A,333B,333C,333D,334A,334B,334C,334D,3350) 01418000 * 0211 01419000 ********************************************************/ 0211 01420000 * 0211 01421000 * 0211 01422000 *DECLARE /* DEVICES TABLE */ 01423000 * DEVICES (12) 0211 01424000 * STATIC LOCAL 0211 01425000 * POINTER(31) INIT 0211 01426000 * ( 0211 01427000 * ADDR(D230A), 0211 01428000 * ADDR(D230B), 0211 01429000 * ADDR(D2314), 0211 01430000 * ADDR(D333A), 0211 01431000 * ADDR(D333B), 0211 01432000 * ADDR(D333C), 0211 01433000 * ADDR(D333D), 0211 01434000 * ADDR(D334A), 0211 01435000 * ADDR(D334B), 0211 01436000 * ADDR(D334C), 0211 01437000 * ADDR(D334D), 0211 01438000 * ADDR(D3350) 0211 01439000 * ); 0211 01440000 * 0211 01441000 */****************************************************** 0212 01442000 * 0212 01443000 * INFO 0212 01444000 * DEVICE (230A) 0212 01445000 * DEVPTRKS (48*8) 0212 01446000 * DEVATRKS (1) 0212 01447000 * DEVMRTRK (33) 0212 01448000 * DEVTKCYL (8) 0212 01449000 * DEVLPADD ('002F0007'X) 0212 01450000 * DEVFAADD ('00300000'X) 0212 01451000 * DEVLAADD ('00300000'X) 0212 01452000 * DEVTHOLD (10) 0212 01453000 * DEVBSRS1 (IPLBOOT1) 0212 01454000 * DEVBSRS2 (IPLBOOT2) 0212 01455000 * DEVIPLPL (12180) 0212 01456000 * DEVMSSID (0) 0212 01457000 * DEVVTOCL ('00000001'X) 0212 01458000 * DEVVTOCE (1) 0212 01459000 * DEVDSCBF (DSCB4DC2) 0212 01460000 * DEVNUMSD (0) 0212 01461000 * DEVTRKCP (14568) 0212 01462000 * DEVRECOH (432) 0212 01463000 * DEVBSRW1 (IPLBOOTW) 0212 01464000 * 0212 01465000 *******************************************************/ 0212 01466000 * 0212 01467000 *DCL 1 PTRKS002 STATIC LOCAL, 0212 01468000 * 2 * /* LENGTH */ FIXED(15) INIT(4), 0212 01469000 * 2 * /* TYPE */ CHAR(2) INIT('D'), 0212 01470000 * 2 * /* VALUE */ FIXED(31) INIT(48*8); 0212 01471000 * 0212 01472000 *DCL 1 ATRKS002 STATIC LOCAL, 0213 01473000 * 2 * /* LENGTH */ FIXED(15) INIT(4), 0213 01474000 * 2 * /* TYPE */ CHAR(2) INIT('D'), 0213 01475000 * 2 * /* VALUE */ FIXED(31) INIT(1); 0213 01476000 * 0213 01477000 *DCL 1 MRTRK002 STATIC LOCAL, 0214 01478000 * 2 * /* LENGTH */ FIXED(15) INIT(4), 0214 01479000 * 2 * /* TYPE */ CHAR(2) INIT('D'), 0214 01480000 * 2 * /* VALUE */ FIXED(31) INIT(33); 0214 01481000 * 0214 01482000 *DCL 1 TKCYL002 STATIC LOCAL, 0215 01483000 * 2 * /* LENGTH */ FIXED(15) INIT(4), 0215 01484000 * 2 * /* TYPE */ CHAR(2) INIT('D'), 0215 01485000 * 2 * /* VALUE */ FIXED(31) INIT(8); 0215 01486000 * 0215 01487000 *DCL 1 LPADD002 STATIC LOCAL, 0216 01488000 * 2 * /* LENGTH */ FIXED(15) INIT(4), 0216 01489000 * 2 * /* TYPE */ CHAR(2) INIT('D'), 0216 01490000 * 2 * /* VALUE */ CHAR(4) INIT('002F0007'X); 0216 01491000 * 0216 01492000 *DCL 1 FAADD002 STATIC LOCAL, 0217 01493000 * 2 * /* LENGTH */ FIXED(15) INIT(4), 0217 01494000 * 2 * /* TYPE */ CHAR(2) INIT('D'), 0217 01495000 * 2 * /* VALUE */ CHAR(4) INIT('00300000'X); 0217 01496000 * 0217 01497000 *DCL 1 LAADD002 STATIC LOCAL, 0218 01498000 * 2 * /* LENGTH */ FIXED(15) INIT(4), 0218 01499000 * 2 * /* TYPE */ CHAR(2) INIT('D'), 0218 01500000 * 2 * /* VALUE */ CHAR(4) INIT('00300000'X); 0218 01501000 * 0218 01502000 *DCL 1 THOLD002 STATIC LOCAL, 0219 01503000 * 2 * /* LENGTH */ FIXED(15) INIT(4), 0219 01504000 * 2 * /* TYPE */ CHAR(2) INIT('D'), 0219 01505000 * 2 * /* VALUE */ FIXED(31) INIT(10); 0219 01506000 * 0219 01507000 *DCL 1 BSRS1002 STATIC LOCAL, 0220 01508000 * 2 * /* LENGTH */ FIXED(15) INIT(LENGTH(IPLBOOT1)) 01509000 * 0220 01510000 * 2 * /* TYPE */ CHAR(2) INIT('A'), 0220 01511000 * 2 * /* VALUE */ POINTER(31) INIT(ADDR(IPLBOOT1)) 01512000 * 0220 01513000 * 0220 01514000 *DCL 1 BSRS2002 STATIC LOCAL, 0221 01515000 * 2 * /* LENGTH */ FIXED(15) INIT(LENGTH(IPLBOOT2)) 01516000 * 0221 01517000 * 2 * /* TYPE */ CHAR(2) INIT('A'), 0221 01518000 * 2 * /* VALUE */ POINTER(31) INIT(ADDR(IPLBOOT2)) 01519000 * 0221 01520000 * 0221 01521000 *DCL 1 IPLPL002 STATIC LOCAL, 0222 01522000 * 2 * /* LENGTH */ FIXED(15) INIT(4), 0222 01523000 * 2 * /* TYPE */ CHAR(2) INIT('D'), 0222 01524000 * 2 * /* VALUE */ FIXED(31) INIT(12180); 0222 01525000 * 0222 01526000 *DCL 1 MSSID002 STATIC LOCAL, 0223 01527000 * 2 * /* LENGTH */ FIXED(15) INIT(4), 0223 01528000 * 2 * /* TYPE */ CHAR(2) INIT('D'), 0223 01529000 * 2 * /* VALUE */ FIXED(31) INIT(0); 0223 01530000 * 0223 01531000 *DCL 1 VTOCL002 STATIC LOCAL, 0224 01532000 * 2 * /* LENGTH */ FIXED(15) INIT(4), 0224 01533000 * 2 * /* TYPE */ CHAR(2) INIT('D'), 0224 01534000 * 2 * /* VALUE */ FIXED(31) INIT('00000001'X); 01535000 * 0224 01536000 *DCL 1 VTOCE002 STATIC LOCAL, 0225 01537000 * 2 * /* LENGTH */ FIXED(15) INIT(4), 0225 01538000 * 2 * /* TYPE */ CHAR(2) INIT('D'), 0225 01539000 * 2 * /* VALUE */ FIXED(31) INIT(1); 0225 01540000 * 0225 01541000 *DCL 1 DSCBF002 STATIC LOCAL, 0226 01542000 * 2 * /* LENGTH */ FIXED(15) INIT(LENGTH(DSCB4DC2)) 01543000 * 0226 01544000 * 2 * /* TYPE */ CHAR(2) INIT('A'), 0226 01545000 * 2 * /* VALUE */ POINTER(31) INIT(ADDR(DSCB4DC2)) 01546000 * 0226 01547000 * 0226 01548000 *DCL 1 NUMSD002 STATIC LOCAL, 0227 01549000 * 2 * /* LENGTH */ FIXED(15) INIT(4), 0227 01550000 * 2 * /* TYPE */ CHAR(2) INIT('D'), 0227 01551000 * 2 * /* VALUE */ FIXED(31) INIT(0); 0227 01552000 * 0227 01553000 *DCL 1 TRKCP002 STATIC LOCAL, 0228 01554000 * 2 * /* LENGTH */ FIXED(15) INIT(4), 0228 01555000 * 2 * /* TYPE */ CHAR(2) INIT('D'), 0228 01556000 * 2 * /* VALUE */ FIXED(31) INIT(14568); 0228 01557000 * 0228 01558000 *DCL 1 RECOH002 STATIC LOCAL, 0229 01559000 * 2 * /* LENGTH */ FIXED(15) INIT(4), 0229 01560000 * 2 * /* TYPE */ CHAR(2) INIT('D'), 0229 01561000 * 2 * /* VALUE */ FIXED(31) INIT(432); 0229 01562000 * 0229 01563000 *DCL 1 BSRW1002 STATIC LOCAL, 0230 01564000 * 2 * /* LENGTH */ FIXED(15) INIT(LENGTH(IPLBOOTW)) 01565000 * 0230 01566000 * 2 * /* TYPE */ CHAR(2) INIT('A'), 0230 01567000 * 2 * /* VALUE */ POINTER(31) INIT(ADDR(IPLBOOTW)) 01568000 * 0230 01569000 * 0230 01570000 */****************************************************** 0231 01571000 * 0231 01572000 * INFO 0231 01573000 * DEVICE (230B) 0231 01574000 * DEVPTRKS (96*8) 0231 01575000 * DEVATRKS (1) 0231 01576000 * DEVMRTRK (72) 0231 01577000 * DEVTKCYL (8) 0231 01578000 * DEVLPADD ('005F0007'X) 0231 01579000 * DEVFAADD ('00600000'X) 0231 01580000 * DEVLAADD ('00600000'X) 0231 01581000 * DEVTHOLD (10) 0231 01582000 * DEVBSRS1 (IPLBOOT1) 0231 01583000 * DEVBSRS2 (IPLBOOT2) 0231 01584000 * DEVIPLPL (13616) 0231 01585000 * DEVMSSID (0) 0231 01586000 * DEVVTOCL ('00000001'X) 0231 01587000 * DEVVTOCE (1) 0231 01588000 * DEVDSCBF (DSCB4DC3) 0231 01589000 * DEVNUMSD (0) 0231 01590000 * DEVTRKCP (14858) 0231 01591000 * DEVRECOH (198) 0231 01592000 * DEVBSRW1 (IPLBOOTW) 0231 01593000 * 0231 01594000 *******************************************************/ 0231 01595000 * 0231 01596000 *DCL 1 PTRKS022 STATIC LOCAL, 0231 01597000 * 2 * /* LENGTH */ FIXED(15) INIT(4), 0231 01598000 * 2 * /* TYPE */ CHAR(2) INIT('D'), 0231 01599000 * 2 * /* VALUE */ FIXED(31) INIT(96*8); 0231 01600000 * 0231 01601000 *DCL 1 ATRKS022 STATIC LOCAL, 0232 01602000 * 2 * /* LENGTH */ FIXED(15) INIT(4), 0232 01603000 * 2 * /* TYPE */ CHAR(2) INIT('D'), 0232 01604000 * 2 * /* VALUE */ FIXED(31) INIT(1); 0232 01605000 * 0232 01606000 *DCL 1 MRTRK022 STATIC LOCAL, 0233 01607000 * 2 * /* LENGTH */ FIXED(15) INIT(4), 0233 01608000 * 2 * /* TYPE */ CHAR(2) INIT('D'), 0233 01609000 * 2 * /* VALUE */ FIXED(31) INIT(72); 0233 01610000 * 0233 01611000 *DCL 1 TKCYL022 STATIC LOCAL, 0234 01612000 * 2 * /* LENGTH */ FIXED(15) INIT(4), 0234 01613000 * 2 * /* TYPE */ CHAR(2) INIT('D'), 0234 01614000 * 2 * /* VALUE */ FIXED(31) INIT(8); 0234 01615000 * 0234 01616000 *DCL 1 LPADD022 STATIC LOCAL, 0235 01617000 * 2 * /* LENGTH */ FIXED(15) INIT(4), 0235 01618000 * 2 * /* TYPE */ CHAR(2) INIT('D'), 0235 01619000 * 2 * /* VALUE */ CHAR(4) INIT('005F0007'X); 0235 01620000 * 0235 01621000 *DCL 1 FAADD022 STATIC LOCAL, 0236 01622000 * 2 * /* LENGTH */ FIXED(15) INIT(4), 0236 01623000 * 2 * /* TYPE */ CHAR(2) INIT('D'), 0236 01624000 * 2 * /* VALUE */ CHAR(4) INIT('00600000'X); 0236 01625000 * 0236 01626000 *DCL 1 LAADD022 STATIC LOCAL, 0237 01627000 * 2 * /* LENGTH */ FIXED(15) INIT(4), 0237 01628000 * 2 * /* TYPE */ CHAR(2) INIT('D'), 0237 01629000 * 2 * /* VALUE */ CHAR(4) INIT('00600000'X); 0237 01630000 * 0237 01631000 *DCL 1 THOLD022 STATIC LOCAL, 0238 01632000 * 2 * /* LENGTH */ FIXED(15) INIT(4), 0238 01633000 * 2 * /* TYPE */ CHAR(2) INIT('D'), 0238 01634000 * 2 * /* VALUE */ FIXED(31) INIT(10); 0238 01635000 * 0238 01636000 *DCL 1 BSRS1022 STATIC LOCAL, 0239 01637000 * 2 * /* LENGTH */ FIXED(15) INIT(LENGTH(IPLBOOT1)) 01638000 * 0239 01639000 * 2 * /* TYPE */ CHAR(2) INIT('A'), 0239 01640000 * 2 * /* VALUE */ POINTER(31) INIT(ADDR(IPLBOOT1)) 01641000 * 0239 01642000 * 0239 01643000 *DCL 1 BSRS2022 STATIC LOCAL, 0240 01644000 * 2 * /* LENGTH */ FIXED(15) INIT(LENGTH(IPLBOOT2)) 01645000 * 0240 01646000 * 2 * /* TYPE */ CHAR(2) INIT('A'), 0240 01647000 * 2 * /* VALUE */ POINTER(31) INIT(ADDR(IPLBOOT2)) 01648000 * 0240 01649000 * 0240 01650000 *DCL 1 IPLPL022 STATIC LOCAL, 0241 01651000 * 2 * /* LENGTH */ FIXED(15) INIT(4), 0241 01652000 * 2 * /* TYPE */ CHAR(2) INIT('D'), 0241 01653000 * 2 * /* VALUE */ FIXED(31) INIT(13616); 0241 01654000 * 0241 01655000 *DCL 1 MSSID022 STATIC LOCAL, 0242 01656000 * 2 * /* LENGTH */ FIXED(15) INIT(4), 0242 01657000 * 2 * /* TYPE */ CHAR(2) INIT('D'), 0242 01658000 * 2 * /* VALUE */ FIXED(31) INIT(0); 0242 01659000 * 0242 01660000 *DCL 1 VTOCL022 STATIC LOCAL, 0243 01661000 * 2 * /* LENGTH */ FIXED(15) INIT(4), 0243 01662000 * 2 * /* TYPE */ CHAR(2) INIT('D'), 0243 01663000 * 2 * /* VALUE */ FIXED(31) INIT('00000001'X); 01664000 * 0243 01665000 *DCL 1 VTOCE022 STATIC LOCAL, 0244 01666000 * 2 * /* LENGTH */ FIXED(15) INIT(4), 0244 01667000 * 2 * /* TYPE */ CHAR(2) INIT('D'), 0244 01668000 * 2 * /* VALUE */ FIXED(31) INIT(1); 0244 01669000 * 0244 01670000 *DCL 1 DSCBF022 STATIC LOCAL, 0245 01671000 * 2 * /* LENGTH */ FIXED(15) INIT(LENGTH(DSCB4DC3)) 01672000 * 0245 01673000 * 2 * /* TYPE */ CHAR(2) INIT('A'), 0245 01674000 * 2 * /* VALUE */ POINTER(31) INIT(ADDR(DSCB4DC3)) 01675000 * 0245 01676000 * 0245 01677000 *DCL 1 NUMSD022 STATIC LOCAL, 0246 01678000 * 2 * /* LENGTH */ FIXED(15) INIT(4), 0246 01679000 * 2 * /* TYPE */ CHAR(2) INIT('D'), 0246 01680000 * 2 * /* VALUE */ FIXED(31) INIT(0); 0246 01681000 * 0246 01682000 *DCL 1 TRKCP022 STATIC LOCAL, 0247 01683000 * 2 * /* LENGTH */ FIXED(15) INIT(4), 0247 01684000 * 2 * /* TYPE */ CHAR(2) INIT('D'), 0247 01685000 * 2 * /* VALUE */ FIXED(31) INIT(14858); 0247 01686000 * 0247 01687000 *DCL 1 RECOH022 STATIC LOCAL, 0248 01688000 * 2 * /* LENGTH */ FIXED(15) INIT(4), 0248 01689000 * 2 * /* TYPE */ CHAR(2) INIT('D'), 0248 01690000 * 2 * /* VALUE */ FIXED(31) INIT(198); 0248 01691000 * 0248 01692000 *DCL 1 BSRW1022 STATIC LOCAL, 0249 01693000 * 2 * /* LENGTH */ FIXED(15) INIT(LENGTH(IPLBOOTW)) 01694000 * 0249 01695000 * 2 * /* TYPE */ CHAR(2) INIT('A'), 0249 01696000 * 2 * /* VALUE */ POINTER(31) INIT(ADDR(IPLBOOTW)) 01697000 * 0249 01698000 * 0249 01699000 */****************************************************** 0250 01700000 * 0250 01701000 * INFO 0250 01702000 * DEVICE (2314) 0250 01703000 * DEVPTRKS (200*20) 0250 01704000 * DEVATRKS (60) 0250 01705000 * DEVMRTRK (73) 0250 01706000 * DEVTKCYL (20) 0250 01707000 * DEVLPADD ('00C70013'X) 0250 01708000 * DEVFAADD ('00C80000'X) 0250 01709000 * DEVLAADD ('00CA0013'X) 0250 01710000 * DEVTHOLD (10) 0250 01711000 * DEVBSRS1 (IPLBOOT1) 0250 01712000 * DEVBSRS2 (IPLBOOT2) 0250 01713000 * DEVIPLPL (6514) 0250 01714000 * DEVMSSID (0) 0250 01715000 * DEVVTOCL ('00000001'X) 0250 01716000 * DEVVTOCE (1) 0250 01717000 * DEVDSCBF (DSCB4DC1) 0250 01718000 * DEVNUMSD (0) 0250 01719000 * DEVTRKCP (7294) 0250 01720000 * DEVRECOH (146+0) 0250 01721000 * DEVBSRW1 (IPLBOOTW) 0250 01722000 * 0250 01723000 *******************************************************/ 0250 01724000 * 0250 01725000 *DCL 1 PTRKS042 STATIC LOCAL, 0250 01726000 * 2 * /* LENGTH */ FIXED(15) INIT(4), 0250 01727000 * 2 * /* TYPE */ CHAR(2) INIT('D'), 0250 01728000 * 2 * /* VALUE */ FIXED(31) INIT(200*20); 0250 01729000 * 0250 01730000 *DCL 1 ATRKS042 STATIC LOCAL, 0251 01731000 * 2 * /* LENGTH */ FIXED(15) INIT(4), 0251 01732000 * 2 * /* TYPE */ CHAR(2) INIT('D'), 0251 01733000 * 2 * /* VALUE */ FIXED(31) INIT(60); 0251 01734000 * 0251 01735000 *DCL 1 MRTRK042 STATIC LOCAL, 0252 01736000 * 2 * /* LENGTH */ FIXED(15) INIT(4), 0252 01737000 * 2 * /* TYPE */ CHAR(2) INIT('D'), 0252 01738000 * 2 * /* VALUE */ FIXED(31) INIT(73); 0252 01739000 * 0252 01740000 *DCL 1 TKCYL042 STATIC LOCAL, 0253 01741000 * 2 * /* LENGTH */ FIXED(15) INIT(4), 0253 01742000 * 2 * /* TYPE */ CHAR(2) INIT('D'), 0253 01743000 * 2 * /* VALUE */ FIXED(31) INIT(20); 0253 01744000 * 0253 01745000 *DCL 1 LPADD042 STATIC LOCAL, 0254 01746000 * 2 * /* LENGTH */ FIXED(15) INIT(4), 0254 01747000 * 2 * /* TYPE */ CHAR(2) INIT('D'), 0254 01748000 * 2 * /* VALUE */ CHAR(4) INIT('00C70013'X); 0254 01749000 * 0254 01750000 *DCL 1 FAADD042 STATIC LOCAL, 0255 01751000 * 2 * /* LENGTH */ FIXED(15) INIT(4), 0255 01752000 * 2 * /* TYPE */ CHAR(2) INIT('D'), 0255 01753000 * 2 * /* VALUE */ CHAR(4) INIT('00C80000'X); 0255 01754000 * 0255 01755000 *DCL 1 LAADD042 STATIC LOCAL, 0256 01756000 * 2 * /* LENGTH */ FIXED(15) INIT(4), 0256 01757000 * 2 * /* TYPE */ CHAR(2) INIT('D'), 0256 01758000 * 2 * /* VALUE */ CHAR(4) INIT('00CA0013'X); 0256 01759000 * 0256 01760000 *DCL 1 THOLD042 STATIC LOCAL, 0257 01761000 * 2 * /* LENGTH */ FIXED(15) INIT(4), 0257 01762000 * 2 * /* TYPE */ CHAR(2) INIT('D'), 0257 01763000 * 2 * /* VALUE */ FIXED(31) INIT(10); 0257 01764000 * 0257 01765000 *DCL 1 BSRS1042 STATIC LOCAL, 0258 01766000 * 2 * /* LENGTH */ FIXED(15) INIT(LENGTH(IPLBOOT1)) 01767000 * 0258 01768000 * 2 * /* TYPE */ CHAR(2) INIT('A'), 0258 01769000 * 2 * /* VALUE */ POINTER(31) INIT(ADDR(IPLBOOT1)) 01770000 * 0258 01771000 * 0258 01772000 *DCL 1 BSRS2042 STATIC LOCAL, 0259 01773000 * 2 * /* LENGTH */ FIXED(15) INIT(LENGTH(IPLBOOT2)) 01774000 * 0259 01775000 * 2 * /* TYPE */ CHAR(2) INIT('A'), 0259 01776000 * 2 * /* VALUE */ POINTER(31) INIT(ADDR(IPLBOOT2)) 01777000 * 0259 01778000 * 0259 01779000 *DCL 1 IPLPL042 STATIC LOCAL, 0260 01780000 * 2 * /* LENGTH */ FIXED(15) INIT(4), 0260 01781000 * 2 * /* TYPE */ CHAR(2) INIT('D'), 0260 01782000 * 2 * /* VALUE */ FIXED(31) INIT(6514); 0260 01783000 * 0260 01784000 *DCL 1 MSSID042 STATIC LOCAL, 0261 01785000 * 2 * /* LENGTH */ FIXED(15) INIT(4), 0261 01786000 * 2 * /* TYPE */ CHAR(2) INIT('D'), 0261 01787000 * 2 * /* VALUE */ FIXED(31) INIT(0); 0261 01788000 * 0261 01789000 *DCL 1 VTOCL042 STATIC LOCAL, 0262 01790000 * 2 * /* LENGTH */ FIXED(15) INIT(4), 0262 01791000 * 2 * /* TYPE */ CHAR(2) INIT('D'), 0262 01792000 * 2 * /* VALUE */ FIXED(31) INIT('00000001'X); 01793000 * 0262 01794000 *DCL 1 VTOCE042 STATIC LOCAL, 0263 01795000 * 2 * /* LENGTH */ FIXED(15) INIT(4), 0263 01796000 * 2 * /* TYPE */ CHAR(2) INIT('D'), 0263 01797000 * 2 * /* VALUE */ FIXED(31) INIT(1); 0263 01798000 * 0263 01799000 *DCL 1 DSCBF042 STATIC LOCAL, 0264 01800000 * 2 * /* LENGTH */ FIXED(15) INIT(LENGTH(DSCB4DC1)) 01801000 * 0264 01802000 * 2 * /* TYPE */ CHAR(2) INIT('A'), 0264 01803000 * 2 * /* VALUE */ POINTER(31) INIT(ADDR(DSCB4DC1)) 01804000 * 0264 01805000 * 0264 01806000 *DCL 1 NUMSD042 STATIC LOCAL, 0265 01807000 * 2 * /* LENGTH */ FIXED(15) INIT(4), 0265 01808000 * 2 * /* TYPE */ CHAR(2) INIT('D'), 0265 01809000 * 2 * /* VALUE */ FIXED(31) INIT(0); 0265 01810000 * 0265 01811000 *DCL 1 TRKCP042 STATIC LOCAL, 0266 01812000 * 2 * /* LENGTH */ FIXED(15) INIT(4), 0266 01813000 * 2 * /* TYPE */ CHAR(2) INIT('D'), 0266 01814000 * 2 * /* VALUE */ FIXED(31) INIT(7294); 0266 01815000 * 0266 01816000 *DCL 1 RECOH042 STATIC LOCAL, 0267 01817000 * 2 * /* LENGTH */ FIXED(15) INIT(4), 0267 01818000 * 2 * /* TYPE */ CHAR(2) INIT('D'), 0267 01819000 * 2 * /* VALUE */ FIXED(31) INIT(146+0); 0267 01820000 * 0267 01821000 *DCL 1 BSRW1042 STATIC LOCAL, 0268 01822000 * 2 * /* LENGTH */ FIXED(15) INIT(LENGTH(IPLBOOTW)) 01823000 * 0268 01824000 * 2 * /* TYPE */ CHAR(2) INIT('A'), 0268 01825000 * 2 * /* VALUE */ POINTER(31) INIT(ADDR(IPLBOOTW)) 01826000 * 0268 01827000 * 0268 01828000 */****************************************************** 0269 01829000 * 0269 01830000 * INFO 0269 01831000 * DEVICE (333A) 0269 01832000 * DEVPTRKS (404*19) 0269 01833000 * DEVATRKS (133) 0269 01834000 * DEVMRTRK (96) 0269 01835000 * DEVTKCYL (19) 0269 01836000 * DEVLPADD ('01930012'X) 0269 01837000 * DEVFAADD ('01940000'X) 0269 01838000 * DEVLAADD ('019A0012'X) 0269 01839000 * DEVTHOLD (10) 0269 01840000 * DEVBSRS1 (IPLBOOT1) 0269 01841000 * DEVBSRS2 (IPLBOOT2) 0269 01842000 * DEVIPLPL (12117) 0269 01843000 * DEVMSSID (0) 0269 01844000 * DEVVTOCL ('00000001'X) 0269 01845000 * DEVVTOCE (1) 0269 01846000 * DEVDSCBF (DSCB4DC4) 0269 01847000 * DEVNUMSD (0) 0269 01848000 * DEVTRKCP (13165) 0269 01849000 * DEVRECOH (135) 0269 01850000 * DEVBSRW1 (IPLBOOTW) 0269 01851000 * 0269 01852000 *******************************************************/ 0269 01853000 * 0269 01854000 *DCL 1 PTRKS062 STATIC LOCAL, 0269 01855000 * 2 * /* LENGTH */ FIXED(15) INIT(4), 0269 01856000 * 2 * /* TYPE */ CHAR(2) INIT('D'), 0269 01857000 * 2 * /* VALUE */ FIXED(31) INIT(404*19); 0269 01858000 * 0269 01859000 *DCL 1 ATRKS062 STATIC LOCAL, 0270 01860000 * 2 * /* LENGTH */ FIXED(15) INIT(4), 0270 01861000 * 2 * /* TYPE */ CHAR(2) INIT('D'), 0270 01862000 * 2 * /* VALUE */ FIXED(31) INIT(133); 0270 01863000 * 0270 01864000 *DCL 1 MRTRK062 STATIC LOCAL, 0271 01865000 * 2 * /* LENGTH */ FIXED(15) INIT(4), 0271 01866000 * 2 * /* TYPE */ CHAR(2) INIT('D'), 0271 01867000 * 2 * /* VALUE */ FIXED(31) INIT(96); 0271 01868000 * 0271 01869000 *DCL 1 TKCYL062 STATIC LOCAL, 0272 01870000 * 2 * /* LENGTH */ FIXED(15) INIT(4), 0272 01871000 * 2 * /* TYPE */ CHAR(2) INIT('D'), 0272 01872000 * 2 * /* VALUE */ FIXED(31) INIT(19); 0272 01873000 * 0272 01874000 *DCL 1 LPADD062 STATIC LOCAL, 0273 01875000 * 2 * /* LENGTH */ FIXED(15) INIT(4), 0273 01876000 * 2 * /* TYPE */ CHAR(2) INIT('D'), 0273 01877000 * 2 * /* VALUE */ CHAR(4) INIT('01930012'X); 0273 01878000 * 0273 01879000 *DCL 1 FAADD062 STATIC LOCAL, 0274 01880000 * 2 * /* LENGTH */ FIXED(15) INIT(4), 0274 01881000 * 2 * /* TYPE */ CHAR(2) INIT('D'), 0274 01882000 * 2 * /* VALUE */ CHAR(4) INIT('01940000'X); 0274 01883000 * 0274 01884000 *DCL 1 LAADD062 STATIC LOCAL, 0275 01885000 * 2 * /* LENGTH */ FIXED(15) INIT(4), 0275 01886000 * 2 * /* TYPE */ CHAR(2) INIT('D'), 0275 01887000 * 2 * /* VALUE */ CHAR(4) INIT('019A0012'X); 0275 01888000 * 0275 01889000 *DCL 1 THOLD062 STATIC LOCAL, 0276 01890000 * 2 * /* LENGTH */ FIXED(15) INIT(4), 0276 01891000 * 2 * /* TYPE */ CHAR(2) INIT('D'), 0276 01892000 * 2 * /* VALUE */ FIXED(31) INIT(10); 0276 01893000 * 0276 01894000 *DCL 1 BSRS1062 STATIC LOCAL, 0277 01895000 * 2 * /* LENGTH */ FIXED(15) INIT(LENGTH(IPLBOOT1)) 01896000 * 0277 01897000 * 2 * /* TYPE */ CHAR(2) INIT('A'), 0277 01898000 * 2 * /* VALUE */ POINTER(31) INIT(ADDR(IPLBOOT1)) 01899000 * 0277 01900000 * 0277 01901000 *DCL 1 BSRS2062 STATIC LOCAL, 0278 01902000 * 2 * /* LENGTH */ FIXED(15) INIT(LENGTH(IPLBOOT2)) 01903000 * 0278 01904000 * 2 * /* TYPE */ CHAR(2) INIT('A'), 0278 01905000 * 2 * /* VALUE */ POINTER(31) INIT(ADDR(IPLBOOT2)) 01906000 * 0278 01907000 * 0278 01908000 *DCL 1 IPLPL062 STATIC LOCAL, 0279 01909000 * 2 * /* LENGTH */ FIXED(15) INIT(4), 0279 01910000 * 2 * /* TYPE */ CHAR(2) INIT('D'), 0279 01911000 * 2 * /* VALUE */ FIXED(31) INIT(12117); 0279 01912000 * 0279 01913000 *DCL 1 MSSID062 STATIC LOCAL, 0280 01914000 * 2 * /* LENGTH */ FIXED(15) INIT(4), 0280 01915000 * 2 * /* TYPE */ CHAR(2) INIT('D'), 0280 01916000 * 2 * /* VALUE */ FIXED(31) INIT(0); 0280 01917000 * 0280 01918000 *DCL 1 VTOCL062 STATIC LOCAL, 0281 01919000 * 2 * /* LENGTH */ FIXED(15) INIT(4), 0281 01920000 * 2 * /* TYPE */ CHAR(2) INIT('D'), 0281 01921000 * 2 * /* VALUE */ FIXED(31) INIT('00000001'X); 01922000 * 0281 01923000 *DCL 1 VTOCE062 STATIC LOCAL, 0282 01924000 * 2 * /* LENGTH */ FIXED(15) INIT(4), 0282 01925000 * 2 * /* TYPE */ CHAR(2) INIT('D'), 0282 01926000 * 2 * /* VALUE */ FIXED(31) INIT(1); 0282 01927000 * 0282 01928000 *DCL 1 DSCBF062 STATIC LOCAL, 0283 01929000 * 2 * /* LENGTH */ FIXED(15) INIT(LENGTH(DSCB4DC4)) 01930000 * 0283 01931000 * 2 * /* TYPE */ CHAR(2) INIT('A'), 0283 01932000 * 2 * /* VALUE */ POINTER(31) INIT(ADDR(DSCB4DC4)) 01933000 * 0283 01934000 * 0283 01935000 *DCL 1 NUMSD062 STATIC LOCAL, 0284 01936000 * 2 * /* LENGTH */ FIXED(15) INIT(4), 0284 01937000 * 2 * /* TYPE */ CHAR(2) INIT('D'), 0284 01938000 * 2 * /* VALUE */ FIXED(31) INIT(0); 0284 01939000 * 0284 01940000 *DCL 1 TRKCP062 STATIC LOCAL, 0285 01941000 * 2 * /* LENGTH */ FIXED(15) INIT(4), 0285 01942000 * 2 * /* TYPE */ CHAR(2) INIT('D'), 0285 01943000 * 2 * /* VALUE */ FIXED(31) INIT(13165); 0285 01944000 * 0285 01945000 *DCL 1 RECOH062 STATIC LOCAL, 0286 01946000 * 2 * /* LENGTH */ FIXED(15) INIT(4), 0286 01947000 * 2 * /* TYPE */ CHAR(2) INIT('D'), 0286 01948000 * 2 * /* VALUE */ FIXED(31) INIT(135); 0286 01949000 * 0286 01950000 *DCL 1 BSRW1062 STATIC LOCAL, 0287 01951000 * 2 * /* LENGTH */ FIXED(15) INIT(LENGTH(IPLBOOTW)) 01952000 * 0287 01953000 * 2 * /* TYPE */ CHAR(2) INIT('A'), 0287 01954000 * 2 * /* VALUE */ POINTER(31) INIT(ADDR(IPLBOOTW)) 01955000 * 0287 01956000 * 0287 01957000 */****************************************************** 0288 01958000 * 0288 01959000 * INFO 0288 01960000 * DEVICE (333B) 0288 01961000 * DEVPTRKS (808*19) 0288 01962000 * DEVATRKS (133) 0288 01963000 * DEVMRTRK (96) 0288 01964000 * DEVTKCYL (19) 0288 01965000 * DEVLPADD ('03270012'X) 0288 01966000 * DEVFAADD ('03280000'X) 0288 01967000 * DEVLAADD ('032E0012'X) 0288 01968000 * DEVTHOLD (10) 0288 01969000 * DEVBSRS1 (IPLBOOT1) 0288 01970000 * DEVBSRS2 (IPLBOOT2) 0288 01971000 * DEVIPLPL (12117) 0288 01972000 * DEVMSSID (0) 0288 01973000 * DEVVTOCL ('00000001'X) 0288 01974000 * DEVVTOCE (1) 0288 01975000 * DEVDSCBF (DSCB4DC5) 0288 01976000 * DEVNUMSD (0) 0288 01977000 * DEVTRKCP (13165) 0288 01978000 * DEVRECOH (135) 0288 01979000 * DEVBSRW1 (IPLBOOTW) 0288 01980000 * 0288 01981000 *******************************************************/ 0288 01982000 * 0288 01983000 *DCL 1 PTRKS082 STATIC LOCAL, 0288 01984000 * 2 * /* LENGTH */ FIXED(15) INIT(4), 0288 01985000 * 2 * /* TYPE */ CHAR(2) INIT('D'), 0288 01986000 * 2 * /* VALUE */ FIXED(31) INIT(808*19); 0288 01987000 * 0288 01988000 *DCL 1 ATRKS082 STATIC LOCAL, 0289 01989000 * 2 * /* LENGTH */ FIXED(15) INIT(4), 0289 01990000 * 2 * /* TYPE */ CHAR(2) INIT('D'), 0289 01991000 * 2 * /* VALUE */ FIXED(31) INIT(133); 0289 01992000 * 0289 01993000 *DCL 1 MRTRK082 STATIC LOCAL, 0290 01994000 * 2 * /* LENGTH */ FIXED(15) INIT(4), 0290 01995000 * 2 * /* TYPE */ CHAR(2) INIT('D'), 0290 01996000 * 2 * /* VALUE */ FIXED(31) INIT(96); 0290 01997000 * 0290 01998000 *DCL 1 TKCYL082 STATIC LOCAL, 0291 01999000 * 2 * /* LENGTH */ FIXED(15) INIT(4), 0291 02000000 * 2 * /* TYPE */ CHAR(2) INIT('D'), 0291 02001000 * 2 * /* VALUE */ FIXED(31) INIT(19); 0291 02002000 * 0291 02003000 *DCL 1 LPADD082 STATIC LOCAL, 0292 02004000 * 2 * /* LENGTH */ FIXED(15) INIT(4), 0292 02005000 * 2 * /* TYPE */ CHAR(2) INIT('D'), 0292 02006000 * 2 * /* VALUE */ CHAR(4) INIT('03270012'X); 0292 02007000 * 0292 02008000 *DCL 1 FAADD082 STATIC LOCAL, 0293 02009000 * 2 * /* LENGTH */ FIXED(15) INIT(4), 0293 02010000 * 2 * /* TYPE */ CHAR(2) INIT('D'), 0293 02011000 * 2 * /* VALUE */ CHAR(4) INIT('03280000'X); 0293 02012000 * 0293 02013000 *DCL 1 LAADD082 STATIC LOCAL, 0294 02014000 * 2 * /* LENGTH */ FIXED(15) INIT(4), 0294 02015000 * 2 * /* TYPE */ CHAR(2) INIT('D'), 0294 02016000 * 2 * /* VALUE */ CHAR(4) INIT('032E0012'X); 0294 02017000 * 0294 02018000 *DCL 1 THOLD082 STATIC LOCAL, 0295 02019000 * 2 * /* LENGTH */ FIXED(15) INIT(4), 0295 02020000 * 2 * /* TYPE */ CHAR(2) INIT('D'), 0295 02021000 * 2 * /* VALUE */ FIXED(31) INIT(10); 0295 02022000 * 0295 02023000 *DCL 1 BSRS1082 STATIC LOCAL, 0296 02024000 * 2 * /* LENGTH */ FIXED(15) INIT(LENGTH(IPLBOOT1)) 02025000 * 0296 02026000 * 2 * /* TYPE */ CHAR(2) INIT('A'), 0296 02027000 * 2 * /* VALUE */ POINTER(31) INIT(ADDR(IPLBOOT1)) 02028000 * 0296 02029000 * 0296 02030000 *DCL 1 BSRS2082 STATIC LOCAL, 0297 02031000 * 2 * /* LENGTH */ FIXED(15) INIT(LENGTH(IPLBOOT2)) 02032000 * 0297 02033000 * 2 * /* TYPE */ CHAR(2) INIT('A'), 0297 02034000 * 2 * /* VALUE */ POINTER(31) INIT(ADDR(IPLBOOT2)) 02035000 * 0297 02036000 * 0297 02037000 *DCL 1 IPLPL082 STATIC LOCAL, 0298 02038000 * 2 * /* LENGTH */ FIXED(15) INIT(4), 0298 02039000 * 2 * /* TYPE */ CHAR(2) INIT('D'), 0298 02040000 * 2 * /* VALUE */ FIXED(31) INIT(12117); 0298 02041000 * 0298 02042000 *DCL 1 MSSID082 STATIC LOCAL, 0299 02043000 * 2 * /* LENGTH */ FIXED(15) INIT(4), 0299 02044000 * 2 * /* TYPE */ CHAR(2) INIT('D'), 0299 02045000 * 2 * /* VALUE */ FIXED(31) INIT(0); 0299 02046000 * 0299 02047000 *DCL 1 VTOCL082 STATIC LOCAL, 0300 02048000 * 2 * /* LENGTH */ FIXED(15) INIT(4), 0300 02049000 * 2 * /* TYPE */ CHAR(2) INIT('D'), 0300 02050000 * 2 * /* VALUE */ FIXED(31) INIT('00000001'X); 02051000 * 0300 02052000 *DCL 1 VTOCE082 STATIC LOCAL, 0301 02053000 * 2 * /* LENGTH */ FIXED(15) INIT(4), 0301 02054000 * 2 * /* TYPE */ CHAR(2) INIT('D'), 0301 02055000 * 2 * /* VALUE */ FIXED(31) INIT(1); 0301 02056000 * 0301 02057000 *DCL 1 DSCBF082 STATIC LOCAL, 0302 02058000 * 2 * /* LENGTH */ FIXED(15) INIT(LENGTH(DSCB4DC5)) 02059000 * 0302 02060000 * 2 * /* TYPE */ CHAR(2) INIT('A'), 0302 02061000 * 2 * /* VALUE */ POINTER(31) INIT(ADDR(DSCB4DC5)) 02062000 * 0302 02063000 * 0302 02064000 *DCL 1 NUMSD082 STATIC LOCAL, 0303 02065000 * 2 * /* LENGTH */ FIXED(15) INIT(4), 0303 02066000 * 2 * /* TYPE */ CHAR(2) INIT('D'), 0303 02067000 * 2 * /* VALUE */ FIXED(31) INIT(0); 0303 02068000 * 0303 02069000 *DCL 1 TRKCP082 STATIC LOCAL, 0304 02070000 * 2 * /* LENGTH */ FIXED(15) INIT(4), 0304 02071000 * 2 * /* TYPE */ CHAR(2) INIT('D'), 0304 02072000 * 2 * /* VALUE */ FIXED(31) INIT(13165); 0304 02073000 * 0304 02074000 *DCL 1 RECOH082 STATIC LOCAL, 0305 02075000 * 2 * /* LENGTH */ FIXED(15) INIT(4), 0305 02076000 * 2 * /* TYPE */ CHAR(2) INIT('D'), 0305 02077000 * 2 * /* VALUE */ FIXED(31) INIT(135); 0305 02078000 * 0305 02079000 *DCL 1 BSRW1082 STATIC LOCAL, 0306 02080000 * 2 * /* LENGTH */ FIXED(15) INIT(LENGTH(IPLBOOTW)) 02081000 * 0306 02082000 * 2 * /* TYPE */ CHAR(2) INIT('A'), 0306 02083000 * 2 * /* VALUE */ POINTER(31) INIT(ADDR(IPLBOOTW)) 02084000 * 0306 02085000 * 0306 02086000 */****************************************************** 0307 02087000 * 0307 02088000 * INFO 0307 02089000 * DEVICE (333C) 0307 02090000 * DEVPTRKS (409*19) 0307 02091000 * DEVATRKS (38) 0307 02092000 * DEVMRTRK (96) 0307 02093000 * DEVTKCYL (19) 0307 02094000 * DEVLPADD ('01980012'X) 0307 02095000 * DEVFAADD ('01990000'X) 0307 02096000 * DEVLAADD ('019A0012'X) 0307 02097000 * DEVTHOLD (10) 0307 02098000 * DEVBSRS1 (IPLBOOT1) 0307 02099000 * DEVBSRS2 (IPLBOOT2) 0307 02100000 * DEVIPLPL (12117) 0307 02101000 * DEVMSSID ('FFFFFFFF'X) 0307 02102000 * DEVVTOCL ('00000002'X) 0307 02103000 * DEVVTOCE (1) 0307 02104000 * DEVDSCBF (DSCB4DC4) 0307 02105000 * DEVNUMSD (0) 0307 02106000 * DEVTRKCP (13165) 0307 02107000 * DEVRECOH (135) 0307 02108000 * DEVBSRW1 (IPLBOOTW) 0307 02109000 * 0307 02110000 *******************************************************/ 0307 02111000 * 0307 02112000 *DCL 1 PTRKS102 STATIC LOCAL, 0307 02113000 * 2 * /* LENGTH */ FIXED(15) INIT(4), 0307 02114000 * 2 * /* TYPE */ CHAR(2) INIT('D'), 0307 02115000 * 2 * /* VALUE */ FIXED(31) INIT(409*19); 0307 02116000 * 0307 02117000 *DCL 1 ATRKS102 STATIC LOCAL, 0308 02118000 * 2 * /* LENGTH */ FIXED(15) INIT(4), 0308 02119000 * 2 * /* TYPE */ CHAR(2) INIT('D'), 0308 02120000 * 2 * /* VALUE */ FIXED(31) INIT(38); 0308 02121000 * 0308 02122000 *DCL 1 MRTRK102 STATIC LOCAL, 0309 02123000 * 2 * /* LENGTH */ FIXED(15) INIT(4), 0309 02124000 * 2 * /* TYPE */ CHAR(2) INIT('D'), 0309 02125000 * 2 * /* VALUE */ FIXED(31) INIT(96); 0309 02126000 * 0309 02127000 *DCL 1 TKCYL102 STATIC LOCAL, 0310 02128000 * 2 * /* LENGTH */ FIXED(15) INIT(4), 0310 02129000 * 2 * /* TYPE */ CHAR(2) INIT('D'), 0310 02130000 * 2 * /* VALUE */ FIXED(31) INIT(19); 0310 02131000 * 0310 02132000 *DCL 1 LPADD102 STATIC LOCAL, 0311 02133000 * 2 * /* LENGTH */ FIXED(15) INIT(4), 0311 02134000 * 2 * /* TYPE */ CHAR(2) INIT('D'), 0311 02135000 * 2 * /* VALUE */ CHAR(4) INIT('01980012'X); 0311 02136000 * 0311 02137000 *DCL 1 FAADD102 STATIC LOCAL, 0312 02138000 * 2 * /* LENGTH */ FIXED(15) INIT(4), 0312 02139000 * 2 * /* TYPE */ CHAR(2) INIT('D'), 0312 02140000 * 2 * /* VALUE */ CHAR(4) INIT('01990000'X); 0312 02141000 * 0312 02142000 *DCL 1 LAADD102 STATIC LOCAL, 0313 02143000 * 2 * /* LENGTH */ FIXED(15) INIT(4), 0313 02144000 * 2 * /* TYPE */ CHAR(2) INIT('D'), 0313 02145000 * 2 * /* VALUE */ CHAR(4) INIT('019A0012'X); 0313 02146000 * 0313 02147000 *DCL 1 THOLD102 STATIC LOCAL, 0314 02148000 * 2 * /* LENGTH */ FIXED(15) INIT(4), 0314 02149000 * 2 * /* TYPE */ CHAR(2) INIT('D'), 0314 02150000 * 2 * /* VALUE */ FIXED(31) INIT(10); 0314 02151000 * 0314 02152000 *DCL 1 BSRS1102 STATIC LOCAL, 0315 02153000 * 2 * /* LENGTH */ FIXED(15) INIT(LENGTH(IPLBOOT1)) 02154000 * 0315 02155000 * 2 * /* TYPE */ CHAR(2) INIT('A'), 0315 02156000 * 2 * /* VALUE */ POINTER(31) INIT(ADDR(IPLBOOT1)) 02157000 * 0315 02158000 * 0315 02159000 *DCL 1 BSRS2102 STATIC LOCAL, 0316 02160000 * 2 * /* LENGTH */ FIXED(15) INIT(LENGTH(IPLBOOT2)) 02161000 * 0316 02162000 * 2 * /* TYPE */ CHAR(2) INIT('A'), 0316 02163000 * 2 * /* VALUE */ POINTER(31) INIT(ADDR(IPLBOOT2)) 02164000 * 0316 02165000 * 0316 02166000 *DCL 1 IPLPL102 STATIC LOCAL, 0317 02167000 * 2 * /* LENGTH */ FIXED(15) INIT(4), 0317 02168000 * 2 * /* TYPE */ CHAR(2) INIT('D'), 0317 02169000 * 2 * /* VALUE */ FIXED(31) INIT(12117); 0317 02170000 * 0317 02171000 *DCL 1 MSSID102 STATIC LOCAL, 0318 02172000 * 2 * /* LENGTH */ FIXED(15) INIT(4), 0318 02173000 * 2 * /* TYPE */ CHAR(2) INIT('D'), 0318 02174000 * 2 * /* VALUE */ FIXED(31) INIT('FFFFFFFF'X); 02175000 * 0318 02176000 *DCL 1 VTOCL102 STATIC LOCAL, 0319 02177000 * 2 * /* LENGTH */ FIXED(15) INIT(4), 0319 02178000 * 2 * /* TYPE */ CHAR(2) INIT('D'), 0319 02179000 * 2 * /* VALUE */ FIXED(31) INIT('00000002'X); 02180000 * 0319 02181000 *DCL 1 VTOCE102 STATIC LOCAL, 0320 02182000 * 2 * /* LENGTH */ FIXED(15) INIT(4), 0320 02183000 * 2 * /* TYPE */ CHAR(2) INIT('D'), 0320 02184000 * 2 * /* VALUE */ FIXED(31) INIT(1); 0320 02185000 * 0320 02186000 *DCL 1 DSCBF102 STATIC LOCAL, 0321 02187000 * 2 * /* LENGTH */ FIXED(15) INIT(LENGTH(DSCB4DC4)) 02188000 * 0321 02189000 * 2 * /* TYPE */ CHAR(2) INIT('A'), 0321 02190000 * 2 * /* VALUE */ POINTER(31) INIT(ADDR(DSCB4DC4)) 02191000 * 0321 02192000 * 0321 02193000 *DCL 1 NUMSD102 STATIC LOCAL, 0322 02194000 * 2 * /* LENGTH */ FIXED(15) INIT(4), 0322 02195000 * 2 * /* TYPE */ CHAR(2) INIT('D'), 0322 02196000 * 2 * /* VALUE */ FIXED(31) INIT(0); 0322 02197000 * 0322 02198000 *DCL 1 TRKCP102 STATIC LOCAL, 0323 02199000 * 2 * /* LENGTH */ FIXED(15) INIT(4), 0323 02200000 * 2 * /* TYPE */ CHAR(2) INIT('D'), 0323 02201000 * 2 * /* VALUE */ FIXED(31) INIT(13165); 0323 02202000 * 0323 02203000 *DCL 1 RECOH102 STATIC LOCAL, 0324 02204000 * 2 * /* LENGTH */ FIXED(15) INIT(4), 0324 02205000 * 2 * /* TYPE */ CHAR(2) INIT('D'), 0324 02206000 * 2 * /* VALUE */ FIXED(31) INIT(135); 0324 02207000 * 0324 02208000 *DCL 1 BSRW1102 STATIC LOCAL, 0325 02209000 * 2 * /* LENGTH */ FIXED(15) INIT(LENGTH(IPLBOOTW)) 02210000 * 0325 02211000 * 2 * /* TYPE */ CHAR(2) INIT('A'), 0325 02212000 * 2 * /* VALUE */ POINTER(31) INIT(ADDR(IPLBOOTW)) 02213000 * 0325 02214000 * 0325 02215000 */****************************************************** 0326 02216000 * 0326 02217000 * INFO 0326 02218000 * DEVICE (333D) 0326 02219000 * DEVPTRKS (809*19) 0326 02220000 * DEVATRKS (114) 0326 02221000 * DEVMRTRK (96) 0326 02222000 * DEVTKCYL (19) 0326 02223000 * DEVLPADD ('03280012'X) 0326 02224000 * DEVFAADD ('03290000'X) 0326 02225000 * DEVLAADD ('032E0012'X) 0326 02226000 * DEVTHOLD (10) 0326 02227000 * DEVBSRS1 (IPLBOOT1) 0326 02228000 * DEVBSRS2 (IPLBOOT2) 0326 02229000 * DEVIPLPL (12117) 0326 02230000 * DEVMSSID ('FFFFFFFF'X) 0326 02231000 * DEVVTOCL ('00000002'X) 0326 02232000 * DEVVTOCE (1) 0326 02233000 * DEVDSCBF (DSCB4DC5) 0326 02234000 * DEVNUMSD (0) 0326 02235000 * DEVTRKCP (13165) 0326 02236000 * DEVRECOH (135) 0326 02237000 * DEVBSRW1 (IPLBOOTW) 0326 02238000 * 0326 02239000 *******************************************************/ 0326 02240000 * 0326 02241000 *DCL 1 PTRKS122 STATIC LOCAL, 0326 02242000 * 2 * /* LENGTH */ FIXED(15) INIT(4), 0326 02243000 * 2 * /* TYPE */ CHAR(2) INIT('D'), 0326 02244000 * 2 * /* VALUE */ FIXED(31) INIT(809*19); 0326 02245000 * 0326 02246000 *DCL 1 ATRKS122 STATIC LOCAL, 0327 02247000 * 2 * /* LENGTH */ FIXED(15) INIT(4), 0327 02248000 * 2 * /* TYPE */ CHAR(2) INIT('D'), 0327 02249000 * 2 * /* VALUE */ FIXED(31) INIT(114); 0327 02250000 * 0327 02251000 *DCL 1 MRTRK122 STATIC LOCAL, 0328 02252000 * 2 * /* LENGTH */ FIXED(15) INIT(4), 0328 02253000 * 2 * /* TYPE */ CHAR(2) INIT('D'), 0328 02254000 * 2 * /* VALUE */ FIXED(31) INIT(96); 0328 02255000 * 0328 02256000 *DCL 1 TKCYL122 STATIC LOCAL, 0329 02257000 * 2 * /* LENGTH */ FIXED(15) INIT(4), 0329 02258000 * 2 * /* TYPE */ CHAR(2) INIT('D'), 0329 02259000 * 2 * /* VALUE */ FIXED(31) INIT(19); 0329 02260000 * 0329 02261000 *DCL 1 LPADD122 STATIC LOCAL, 0330 02262000 * 2 * /* LENGTH */ FIXED(15) INIT(4), 0330 02263000 * 2 * /* TYPE */ CHAR(2) INIT('D'), 0330 02264000 * 2 * /* VALUE */ CHAR(4) INIT('03280012'X); 0330 02265000 * 0330 02266000 *DCL 1 FAADD122 STATIC LOCAL, 0331 02267000 * 2 * /* LENGTH */ FIXED(15) INIT(4), 0331 02268000 * 2 * /* TYPE */ CHAR(2) INIT('D'), 0331 02269000 * 2 * /* VALUE */ CHAR(4) INIT('03290000'X); 0331 02270000 * 0331 02271000 *DCL 1 LAADD122 STATIC LOCAL, 0332 02272000 * 2 * /* LENGTH */ FIXED(15) INIT(4), 0332 02273000 * 2 * /* TYPE */ CHAR(2) INIT('D'), 0332 02274000 * 2 * /* VALUE */ CHAR(4) INIT('032E0012'X); 0332 02275000 * 0332 02276000 *DCL 1 THOLD122 STATIC LOCAL, 0333 02277000 * 2 * /* LENGTH */ FIXED(15) INIT(4), 0333 02278000 * 2 * /* TYPE */ CHAR(2) INIT('D'), 0333 02279000 * 2 * /* VALUE */ FIXED(31) INIT(10); 0333 02280000 * 0333 02281000 *DCL 1 BSRS1122 STATIC LOCAL, 0334 02282000 * 2 * /* LENGTH */ FIXED(15) INIT(LENGTH(IPLBOOT1)) 02283000 * 0334 02284000 * 2 * /* TYPE */ CHAR(2) INIT('A'), 0334 02285000 * 2 * /* VALUE */ POINTER(31) INIT(ADDR(IPLBOOT1)) 02286000 * 0334 02287000 * 0334 02288000 *DCL 1 BSRS2122 STATIC LOCAL, 0335 02289000 * 2 * /* LENGTH */ FIXED(15) INIT(LENGTH(IPLBOOT2)) 02290000 * 0335 02291000 * 2 * /* TYPE */ CHAR(2) INIT('A'), 0335 02292000 * 2 * /* VALUE */ POINTER(31) INIT(ADDR(IPLBOOT2)) 02293000 * 0335 02294000 * 0335 02295000 *DCL 1 IPLPL122 STATIC LOCAL, 0336 02296000 * 2 * /* LENGTH */ FIXED(15) INIT(4), 0336 02297000 * 2 * /* TYPE */ CHAR(2) INIT('D'), 0336 02298000 * 2 * /* VALUE */ FIXED(31) INIT(12117); 0336 02299000 * 0336 02300000 *DCL 1 MSSID122 STATIC LOCAL, 0337 02301000 * 2 * /* LENGTH */ FIXED(15) INIT(4), 0337 02302000 * 2 * /* TYPE */ CHAR(2) INIT('D'), 0337 02303000 * 2 * /* VALUE */ FIXED(31) INIT('FFFFFFFF'X); 02304000 * 0337 02305000 *DCL 1 VTOCL122 STATIC LOCAL, 0338 02306000 * 2 * /* LENGTH */ FIXED(15) INIT(4), 0338 02307000 * 2 * /* TYPE */ CHAR(2) INIT('D'), 0338 02308000 * 2 * /* VALUE */ FIXED(31) INIT('00000002'X); 02309000 * 0338 02310000 *DCL 1 VTOCE122 STATIC LOCAL, 0339 02311000 * 2 * /* LENGTH */ FIXED(15) INIT(4), 0339 02312000 * 2 * /* TYPE */ CHAR(2) INIT('D'), 0339 02313000 * 2 * /* VALUE */ FIXED(31) INIT(1); 0339 02314000 * 0339 02315000 *DCL 1 DSCBF122 STATIC LOCAL, 0340 02316000 * 2 * /* LENGTH */ FIXED(15) INIT(LENGTH(DSCB4DC5)) 02317000 * 0340 02318000 * 2 * /* TYPE */ CHAR(2) INIT('A'), 0340 02319000 * 2 * /* VALUE */ POINTER(31) INIT(ADDR(DSCB4DC5)) 02320000 * 0340 02321000 * 0340 02322000 *DCL 1 NUMSD122 STATIC LOCAL, 0341 02323000 * 2 * /* LENGTH */ FIXED(15) INIT(4), 0341 02324000 * 2 * /* TYPE */ CHAR(2) INIT('D'), 0341 02325000 * 2 * /* VALUE */ FIXED(31) INIT(0); 0341 02326000 * 0341 02327000 *DCL 1 TRKCP122 STATIC LOCAL, 0342 02328000 * 2 * /* LENGTH */ FIXED(15) INIT(4), 0342 02329000 * 2 * /* TYPE */ CHAR(2) INIT('D'), 0342 02330000 * 2 * /* VALUE */ FIXED(31) INIT(13165); 0342 02331000 * 0342 02332000 *DCL 1 RECOH122 STATIC LOCAL, 0343 02333000 * 2 * /* LENGTH */ FIXED(15) INIT(4), 0343 02334000 * 2 * /* TYPE */ CHAR(2) INIT('D'), 0343 02335000 * 2 * /* VALUE */ FIXED(31) INIT(135); 0343 02336000 * 0343 02337000 *DCL 1 BSRW1122 STATIC LOCAL, 0344 02338000 * 2 * /* LENGTH */ FIXED(15) INIT(LENGTH(IPLBOOTW)) 02339000 * 0344 02340000 * 2 * /* TYPE */ CHAR(2) INIT('A'), 0344 02341000 * 2 * /* VALUE */ POINTER(31) INIT(ADDR(IPLBOOTW)) 02342000 * 0344 02343000 * 0344 02344000 */****************************************************** 0345 02345000 * 0345 02346000 * INFO 0345 02347000 * DEVICE (334A) 0345 02348000 * DEVPTRKS (348*12) 0345 02349000 * DEVATRKS (12) 0345 02350000 * DEVMRTRK (50) 0345 02351000 * DEVTKCYL (12) 0345 02352000 * DEVLPADD ('015B000B'X) 0345 02353000 * DEVFAADD ('015C0000'X) 0345 02354000 * DEVLAADD ('015C000B'X) 0345 02355000 * DEVTHOLD (10) 0345 02356000 * DEVBSRS1 (IPLBOOT1) 0345 02357000 * DEVBSRS2 (IPLBOOT2) 0345 02358000 * DEVIPLPL (7286) 0345 02359000 * DEVMSSID (0) 0345 02360000 * DEVVTOCL ('00000001'X) 0345 02361000 * DEVVTOCE (1) 0345 02362000 * DEVDSCBF (DSCB4DC6) 0345 02363000 * DEVNUMSD (1) 0345 02364000 * DEVTRKCP (8535) 0345 02365000 * DEVRECOH (167) 0345 02366000 * DEVBSRW1 (IPLBOOTW) 0345 02367000 * 0345 02368000 *******************************************************/ 0345 02369000 * 0345 02370000 *DCL 1 PTRKS142 STATIC LOCAL, 0345 02371000 * 2 * /* LENGTH */ FIXED(15) INIT(4), 0345 02372000 * 2 * /* TYPE */ CHAR(2) INIT('D'), 0345 02373000 * 2 * /* VALUE */ FIXED(31) INIT(348*12); 0345 02374000 * 0345 02375000 *DCL 1 ATRKS142 STATIC LOCAL, 0346 02376000 * 2 * /* LENGTH */ FIXED(15) INIT(4), 0346 02377000 * 2 * /* TYPE */ CHAR(2) INIT('D'), 0346 02378000 * 2 * /* VALUE */ FIXED(31) INIT(12); 0346 02379000 * 0346 02380000 *DCL 1 MRTRK142 STATIC LOCAL, 0347 02381000 * 2 * /* LENGTH */ FIXED(15) INIT(4), 0347 02382000 * 2 * /* TYPE */ CHAR(2) INIT('D'), 0347 02383000 * 2 * /* VALUE */ FIXED(31) INIT(50); 0347 02384000 * 0347 02385000 *DCL 1 TKCYL142 STATIC LOCAL, 0348 02386000 * 2 * /* LENGTH */ FIXED(15) INIT(4), 0348 02387000 * 2 * /* TYPE */ CHAR(2) INIT('D'), 0348 02388000 * 2 * /* VALUE */ FIXED(31) INIT(12); 0348 02389000 * 0348 02390000 *DCL 1 LPADD142 STATIC LOCAL, 0349 02391000 * 2 * /* LENGTH */ FIXED(15) INIT(4), 0349 02392000 * 2 * /* TYPE */ CHAR(2) INIT('D'), 0349 02393000 * 2 * /* VALUE */ CHAR(4) INIT('015B000B'X); 0349 02394000 * 0349 02395000 *DCL 1 FAADD142 STATIC LOCAL, 0350 02396000 * 2 * /* LENGTH */ FIXED(15) INIT(4), 0350 02397000 * 2 * /* TYPE */ CHAR(2) INIT('D'), 0350 02398000 * 2 * /* VALUE */ CHAR(4) INIT('015C0000'X); 0350 02399000 * 0350 02400000 *DCL 1 LAADD142 STATIC LOCAL, 0351 02401000 * 2 * /* LENGTH */ FIXED(15) INIT(4), 0351 02402000 * 2 * /* TYPE */ CHAR(2) INIT('D'), 0351 02403000 * 2 * /* VALUE */ CHAR(4) INIT('015C000B'X); 0351 02404000 * 0351 02405000 *DCL 1 THOLD142 STATIC LOCAL, 0352 02406000 * 2 * /* LENGTH */ FIXED(15) INIT(4), 0352 02407000 * 2 * /* TYPE */ CHAR(2) INIT('D'), 0352 02408000 * 2 * /* VALUE */ FIXED(31) INIT(10); 0352 02409000 * 0352 02410000 *DCL 1 BSRS1142 STATIC LOCAL, 0353 02411000 * 2 * /* LENGTH */ FIXED(15) INIT(LENGTH(IPLBOOT1)) 02412000 * 0353 02413000 * 2 * /* TYPE */ CHAR(2) INIT('A'), 0353 02414000 * 2 * /* VALUE */ POINTER(31) INIT(ADDR(IPLBOOT1)) 02415000 * 0353 02416000 * 0353 02417000 *DCL 1 BSRS2142 STATIC LOCAL, 0354 02418000 * 2 * /* LENGTH */ FIXED(15) INIT(LENGTH(IPLBOOT2)) 02419000 * 0354 02420000 * 2 * /* TYPE */ CHAR(2) INIT('A'), 0354 02421000 * 2 * /* VALUE */ POINTER(31) INIT(ADDR(IPLBOOT2)) 02422000 * 0354 02423000 * 0354 02424000 *DCL 1 IPLPL142 STATIC LOCAL, 0355 02425000 * 2 * /* LENGTH */ FIXED(15) INIT(4), 0355 02426000 * 2 * /* TYPE */ CHAR(2) INIT('D'), 0355 02427000 * 2 * /* VALUE */ FIXED(31) INIT(7286); 0355 02428000 * 0355 02429000 *DCL 1 MSSID142 STATIC LOCAL, 0356 02430000 * 2 * /* LENGTH */ FIXED(15) INIT(4), 0356 02431000 * 2 * /* TYPE */ CHAR(2) INIT('D'), 0356 02432000 * 2 * /* VALUE */ FIXED(31) INIT(0); 0356 02433000 * 0356 02434000 *DCL 1 VTOCL142 STATIC LOCAL, 0357 02435000 * 2 * /* LENGTH */ FIXED(15) INIT(4), 0357 02436000 * 2 * /* TYPE */ CHAR(2) INIT('D'), 0357 02437000 * 2 * /* VALUE */ FIXED(31) INIT('00000001'X); 02438000 * 0357 02439000 *DCL 1 VTOCE142 STATIC LOCAL, 0358 02440000 * 2 * /* LENGTH */ FIXED(15) INIT(4), 0358 02441000 * 2 * /* TYPE */ CHAR(2) INIT('D'), 0358 02442000 * 2 * /* VALUE */ FIXED(31) INIT(1); 0358 02443000 * 0358 02444000 *DCL 1 DSCBF142 STATIC LOCAL, 0359 02445000 * 2 * /* LENGTH */ FIXED(15) INIT(LENGTH(DSCB4DC6)) 02446000 * 0359 02447000 * 2 * /* TYPE */ CHAR(2) INIT('A'), 0359 02448000 * 2 * /* VALUE */ POINTER(31) INIT(ADDR(DSCB4DC6)) 02449000 * 0359 02450000 * 0359 02451000 *DCL 1 NUMSD142 STATIC LOCAL, 0360 02452000 * 2 * /* LENGTH */ FIXED(15) INIT(4), 0360 02453000 * 2 * /* TYPE */ CHAR(2) INIT('D'), 0360 02454000 * 2 * /* VALUE */ FIXED(31) INIT(1); 0360 02455000 * 0360 02456000 *DCL 1 TRKCP142 STATIC LOCAL, 0361 02457000 * 2 * /* LENGTH */ FIXED(15) INIT(4), 0361 02458000 * 2 * /* TYPE */ CHAR(2) INIT('D'), 0361 02459000 * 2 * /* VALUE */ FIXED(31) INIT(8535); 0361 02460000 * 0361 02461000 *DCL 1 RECOH142 STATIC LOCAL, 0362 02462000 * 2 * /* LENGTH */ FIXED(15) INIT(4), 0362 02463000 * 2 * /* TYPE */ CHAR(2) INIT('D'), 0362 02464000 * 2 * /* VALUE */ FIXED(31) INIT(167); 0362 02465000 * 0362 02466000 *DCL 1 BSRW1142 STATIC LOCAL, 0363 02467000 * 2 * /* LENGTH */ FIXED(15) INIT(LENGTH(IPLBOOTW)) 02468000 * 0363 02469000 * 2 * /* TYPE */ CHAR(2) INIT('A'), 0363 02470000 * 2 * /* VALUE */ POINTER(31) INIT(ADDR(IPLBOOTW)) 02471000 * 0363 02472000 * 0363 02473000 */****************************************************** 0364 02474000 * 0364 02475000 * INFO 0364 02476000 * DEVICE (334B) 0364 02477000 * DEVPTRKS (696*12) 0364 02478000 * DEVATRKS (24) 0364 02479000 * DEVMRTRK (50) 0364 02480000 * DEVTKCYL (12) 0364 02481000 * DEVLPADD ('02B7000B'X) 0364 02482000 * DEVFAADD ('02B80000'X) 0364 02483000 * DEVLAADD ('02B9000B'X) 0364 02484000 * DEVTHOLD (10) 0364 02485000 * DEVBSRS1 (IPLBOOT1) 0364 02486000 * DEVBSRS2 (IPLBOOT2) 0364 02487000 * DEVIPLPL (7286) 0364 02488000 * DEVMSSID (0) 0364 02489000 * DEVVTOCL ('00000001'X) 0364 02490000 * DEVVTOCE (1) 0364 02491000 * DEVDSCBF (DSCB4DC7) 0364 02492000 * DEVNUMSD (1) 0364 02493000 * DEVTRKCP (8535) 0364 02494000 * DEVRECOH (167) 0364 02495000 * DEVBSRW1 (IPLBOOTW) 0364 02496000 * 0364 02497000 *******************************************************/ 0364 02498000 * 0364 02499000 *DCL 1 PTRKS162 STATIC LOCAL, 0364 02500000 * 2 * /* LENGTH */ FIXED(15) INIT(4), 0364 02501000 * 2 * /* TYPE */ CHAR(2) INIT('D'), 0364 02502000 * 2 * /* VALUE */ FIXED(31) INIT(696*12); 0364 02503000 * 0364 02504000 *DCL 1 ATRKS162 STATIC LOCAL, 0365 02505000 * 2 * /* LENGTH */ FIXED(15) INIT(4), 0365 02506000 * 2 * /* TYPE */ CHAR(2) INIT('D'), 0365 02507000 * 2 * /* VALUE */ FIXED(31) INIT(24); 0365 02508000 * 0365 02509000 *DCL 1 MRTRK162 STATIC LOCAL, 0366 02510000 * 2 * /* LENGTH */ FIXED(15) INIT(4), 0366 02511000 * 2 * /* TYPE */ CHAR(2) INIT('D'), 0366 02512000 * 2 * /* VALUE */ FIXED(31) INIT(50); 0366 02513000 * 0366 02514000 *DCL 1 TKCYL162 STATIC LOCAL, 0367 02515000 * 2 * /* LENGTH */ FIXED(15) INIT(4), 0367 02516000 * 2 * /* TYPE */ CHAR(2) INIT('D'), 0367 02517000 * 2 * /* VALUE */ FIXED(31) INIT(12); 0367 02518000 * 0367 02519000 *DCL 1 LPADD162 STATIC LOCAL, 0368 02520000 * 2 * /* LENGTH */ FIXED(15) INIT(4), 0368 02521000 * 2 * /* TYPE */ CHAR(2) INIT('D'), 0368 02522000 * 2 * /* VALUE */ CHAR(4) INIT('02B7000B'X); 0368 02523000 * 0368 02524000 *DCL 1 FAADD162 STATIC LOCAL, 0369 02525000 * 2 * /* LENGTH */ FIXED(15) INIT(4), 0369 02526000 * 2 * /* TYPE */ CHAR(2) INIT('D'), 0369 02527000 * 2 * /* VALUE */ CHAR(4) INIT('02B80000'X); 0369 02528000 * 0369 02529000 *DCL 1 LAADD162 STATIC LOCAL, 0370 02530000 * 2 * /* LENGTH */ FIXED(15) INIT(4), 0370 02531000 * 2 * /* TYPE */ CHAR(2) INIT('D'), 0370 02532000 * 2 * /* VALUE */ CHAR(4) INIT('02B9000B'X); 0370 02533000 * 0370 02534000 *DCL 1 THOLD162 STATIC LOCAL, 0371 02535000 * 2 * /* LENGTH */ FIXED(15) INIT(4), 0371 02536000 * 2 * /* TYPE */ CHAR(2) INIT('D'), 0371 02537000 * 2 * /* VALUE */ FIXED(31) INIT(10); 0371 02538000 * 0371 02539000 *DCL 1 BSRS1162 STATIC LOCAL, 0372 02540000 * 2 * /* LENGTH */ FIXED(15) INIT(LENGTH(IPLBOOT1)) 02541000 * 0372 02542000 * 2 * /* TYPE */ CHAR(2) INIT('A'), 0372 02543000 * 2 * /* VALUE */ POINTER(31) INIT(ADDR(IPLBOOT1)) 02544000 * 0372 02545000 * 0372 02546000 *DCL 1 BSRS2162 STATIC LOCAL, 0373 02547000 * 2 * /* LENGTH */ FIXED(15) INIT(LENGTH(IPLBOOT2)) 02548000 * 0373 02549000 * 2 * /* TYPE */ CHAR(2) INIT('A'), 0373 02550000 * 2 * /* VALUE */ POINTER(31) INIT(ADDR(IPLBOOT2)) 02551000 * 0373 02552000 * 0373 02553000 *DCL 1 IPLPL162 STATIC LOCAL, 0374 02554000 * 2 * /* LENGTH */ FIXED(15) INIT(4), 0374 02555000 * 2 * /* TYPE */ CHAR(2) INIT('D'), 0374 02556000 * 2 * /* VALUE */ FIXED(31) INIT(7286); 0374 02557000 * 0374 02558000 *DCL 1 MSSID162 STATIC LOCAL, 0375 02559000 * 2 * /* LENGTH */ FIXED(15) INIT(4), 0375 02560000 * 2 * /* TYPE */ CHAR(2) INIT('D'), 0375 02561000 * 2 * /* VALUE */ FIXED(31) INIT(0); 0375 02562000 * 0375 02563000 *DCL 1 VTOCL162 STATIC LOCAL, 0376 02564000 * 2 * /* LENGTH */ FIXED(15) INIT(4), 0376 02565000 * 2 * /* TYPE */ CHAR(2) INIT('D'), 0376 02566000 * 2 * /* VALUE */ FIXED(31) INIT('00000001'X); 02567000 * 0376 02568000 *DCL 1 VTOCE162 STATIC LOCAL, 0377 02569000 * 2 * /* LENGTH */ FIXED(15) INIT(4), 0377 02570000 * 2 * /* TYPE */ CHAR(2) INIT('D'), 0377 02571000 * 2 * /* VALUE */ FIXED(31) INIT(1); 0377 02572000 * 0377 02573000 *DCL 1 DSCBF162 STATIC LOCAL, 0378 02574000 * 2 * /* LENGTH */ FIXED(15) INIT(LENGTH(DSCB4DC7)) 02575000 * 0378 02576000 * 2 * /* TYPE */ CHAR(2) INIT('A'), 0378 02577000 * 2 * /* VALUE */ POINTER(31) INIT(ADDR(DSCB4DC7)) 02578000 * 0378 02579000 * 0378 02580000 *DCL 1 NUMSD162 STATIC LOCAL, 0379 02581000 * 2 * /* LENGTH */ FIXED(15) INIT(4), 0379 02582000 * 2 * /* TYPE */ CHAR(2) INIT('D'), 0379 02583000 * 2 * /* VALUE */ FIXED(31) INIT(1); 0379 02584000 * 0379 02585000 *DCL 1 TRKCP162 STATIC LOCAL, 0380 02586000 * 2 * /* LENGTH */ FIXED(15) INIT(4), 0380 02587000 * 2 * /* TYPE */ CHAR(2) INIT('D'), 0380 02588000 * 2 * /* VALUE */ FIXED(31) INIT(8535); 0380 02589000 * 0380 02590000 *DCL 1 RECOH162 STATIC LOCAL, 0381 02591000 * 2 * /* LENGTH */ FIXED(15) INIT(4), 0381 02592000 * 2 * /* TYPE */ CHAR(2) INIT('D'), 0381 02593000 * 2 * /* VALUE */ FIXED(31) INIT(167); 0381 02594000 * 0381 02595000 *DCL 1 BSRW1162 STATIC LOCAL, 0382 02596000 * 2 * /* LENGTH */ FIXED(15) INIT(LENGTH(IPLBOOTW)) 02597000 * 0382 02598000 * 2 * /* TYPE */ CHAR(2) INIT('A'), 0382 02599000 * 2 * /* VALUE */ POINTER(31) INIT(ADDR(IPLBOOTW)) 02600000 * 0382 02601000 * 0382 02602000 */****************************************************** 0383 02603000 * 0383 02604000 * INFO 0383 02605000 * DEVICE (334C) 0383 02606000 * DEVPTRKS (348*12) 0383 02607000 * DEVATRKS (12) 0383 02608000 * DEVMRTRK (50) 0383 02609000 * DEVTKCYL (12) 0383 02610000 * DEVLPADD ('015B000B'X) 0383 02611000 * DEVFAADD ('015C0000'X) 0383 02612000 * DEVLAADD ('015C000B'X) 0383 02613000 * DEVTHOLD (10) 0383 02614000 * DEVBSRS1 (IPLBOOT1) 0383 02615000 * DEVBSRS2 (IPLBOOT2) 0383 02616000 * DEVIPLPL (7286) 0383 02617000 * DEVMSSID (0) 0383 02618000 * DEVVTOCL ('00000001'X) 0383 02619000 * DEVVTOCE (1) 0383 02620000 * DEVDSCBF (DSCB4DC6) 0383 02621000 * DEVNUMSD (1) 0383 02622000 * DEVTRKCP (8535) 0383 02623000 * DEVRECOH (167) 0383 02624000 * DEVBSRW1 (IPLBOOTW) 0383 02625000 * 0383 02626000 *******************************************************/ 0383 02627000 * 0383 02628000 *DCL 1 PTRKS182 STATIC LOCAL, 0383 02629000 * 2 * /* LENGTH */ FIXED(15) INIT(4), 0383 02630000 * 2 * /* TYPE */ CHAR(2) INIT('D'), 0383 02631000 * 2 * /* VALUE */ FIXED(31) INIT(348*12); 0383 02632000 * 0383 02633000 *DCL 1 ATRKS182 STATIC LOCAL, 0384 02634000 * 2 * /* LENGTH */ FIXED(15) INIT(4), 0384 02635000 * 2 * /* TYPE */ CHAR(2) INIT('D'), 0384 02636000 * 2 * /* VALUE */ FIXED(31) INIT(12); 0384 02637000 * 0384 02638000 *DCL 1 MRTRK182 STATIC LOCAL, 0385 02639000 * 2 * /* LENGTH */ FIXED(15) INIT(4), 0385 02640000 * 2 * /* TYPE */ CHAR(2) INIT('D'), 0385 02641000 * 2 * /* VALUE */ FIXED(31) INIT(50); 0385 02642000 * 0385 02643000 *DCL 1 TKCYL182 STATIC LOCAL, 0386 02644000 * 2 * /* LENGTH */ FIXED(15) INIT(4), 0386 02645000 * 2 * /* TYPE */ CHAR(2) INIT('D'), 0386 02646000 * 2 * /* VALUE */ FIXED(31) INIT(12); 0386 02647000 * 0386 02648000 *DCL 1 LPADD182 STATIC LOCAL, 0387 02649000 * 2 * /* LENGTH */ FIXED(15) INIT(4), 0387 02650000 * 2 * /* TYPE */ CHAR(2) INIT('D'), 0387 02651000 * 2 * /* VALUE */ CHAR(4) INIT('015B000B'X); 0387 02652000 * 0387 02653000 *DCL 1 FAADD182 STATIC LOCAL, 0388 02654000 * 2 * /* LENGTH */ FIXED(15) INIT(4), 0388 02655000 * 2 * /* TYPE */ CHAR(2) INIT('D'), 0388 02656000 * 2 * /* VALUE */ CHAR(4) INIT('015C0000'X); 0388 02657000 * 0388 02658000 *DCL 1 LAADD182 STATIC LOCAL, 0389 02659000 * 2 * /* LENGTH */ FIXED(15) INIT(4), 0389 02660000 * 2 * /* TYPE */ CHAR(2) INIT('D'), 0389 02661000 * 2 * /* VALUE */ CHAR(4) INIT('015C000B'X); 0389 02662000 * 0389 02663000 *DCL 1 THOLD182 STATIC LOCAL, 0390 02664000 * 2 * /* LENGTH */ FIXED(15) INIT(4), 0390 02665000 * 2 * /* TYPE */ CHAR(2) INIT('D'), 0390 02666000 * 2 * /* VALUE */ FIXED(31) INIT(10); 0390 02667000 * 0390 02668000 *DCL 1 BSRS1182 STATIC LOCAL, 0391 02669000 * 2 * /* LENGTH */ FIXED(15) INIT(LENGTH(IPLBOOT1)) 02670000 * 0391 02671000 * 2 * /* TYPE */ CHAR(2) INIT('A'), 0391 02672000 * 2 * /* VALUE */ POINTER(31) INIT(ADDR(IPLBOOT1)) 02673000 * 0391 02674000 * 0391 02675000 *DCL 1 BSRS2182 STATIC LOCAL, 0392 02676000 * 2 * /* LENGTH */ FIXED(15) INIT(LENGTH(IPLBOOT2)) 02677000 * 0392 02678000 * 2 * /* TYPE */ CHAR(2) INIT('A'), 0392 02679000 * 2 * /* VALUE */ POINTER(31) INIT(ADDR(IPLBOOT2)) 02680000 * 0392 02681000 * 0392 02682000 *DCL 1 IPLPL182 STATIC LOCAL, 0393 02683000 * 2 * /* LENGTH */ FIXED(15) INIT(4), 0393 02684000 * 2 * /* TYPE */ CHAR(2) INIT('D'), 0393 02685000 * 2 * /* VALUE */ FIXED(31) INIT(7286); 0393 02686000 * 0393 02687000 *DCL 1 MSSID182 STATIC LOCAL, 0394 02688000 * 2 * /* LENGTH */ FIXED(15) INIT(4), 0394 02689000 * 2 * /* TYPE */ CHAR(2) INIT('D'), 0394 02690000 * 2 * /* VALUE */ FIXED(31) INIT(0); 0394 02691000 * 0394 02692000 *DCL 1 VTOCL182 STATIC LOCAL, 0395 02693000 * 2 * /* LENGTH */ FIXED(15) INIT(4), 0395 02694000 * 2 * /* TYPE */ CHAR(2) INIT('D'), 0395 02695000 * 2 * /* VALUE */ FIXED(31) INIT('00000001'X); 02696000 * 0395 02697000 *DCL 1 VTOCE182 STATIC LOCAL, 0396 02698000 * 2 * /* LENGTH */ FIXED(15) INIT(4), 0396 02699000 * 2 * /* TYPE */ CHAR(2) INIT('D'), 0396 02700000 * 2 * /* VALUE */ FIXED(31) INIT(1); 0396 02701000 * 0396 02702000 *DCL 1 DSCBF182 STATIC LOCAL, 0397 02703000 * 2 * /* LENGTH */ FIXED(15) INIT(LENGTH(DSCB4DC6)) 02704000 * 0397 02705000 * 2 * /* TYPE */ CHAR(2) INIT('A'), 0397 02706000 * 2 * /* VALUE */ POINTER(31) INIT(ADDR(DSCB4DC6)) 02707000 * 0397 02708000 * 0397 02709000 *DCL 1 NUMSD182 STATIC LOCAL, 0398 02710000 * 2 * /* LENGTH */ FIXED(15) INIT(4), 0398 02711000 * 2 * /* TYPE */ CHAR(2) INIT('D'), 0398 02712000 * 2 * /* VALUE */ FIXED(31) INIT(1); 0398 02713000 * 0398 02714000 *DCL 1 TRKCP182 STATIC LOCAL, 0399 02715000 * 2 * /* LENGTH */ FIXED(15) INIT(4), 0399 02716000 * 2 * /* TYPE */ CHAR(2) INIT('D'), 0399 02717000 * 2 * /* VALUE */ FIXED(31) INIT(8535); 0399 02718000 * 0399 02719000 *DCL 1 RECOH182 STATIC LOCAL, 0400 02720000 * 2 * /* LENGTH */ FIXED(15) INIT(4), 0400 02721000 * 2 * /* TYPE */ CHAR(2) INIT('D'), 0400 02722000 * 2 * /* VALUE */ FIXED(31) INIT(167); 0400 02723000 * 0400 02724000 *DCL 1 BSRW1182 STATIC LOCAL, 0401 02725000 * 2 * /* LENGTH */ FIXED(15) INIT(LENGTH(IPLBOOTW)) 02726000 * 0401 02727000 * 2 * /* TYPE */ CHAR(2) INIT('A'), 0401 02728000 * 2 * /* VALUE */ POINTER(31) INIT(ADDR(IPLBOOTW)) 02729000 * 0401 02730000 * 0401 02731000 */****************************************************** 0402 02732000 * 0402 02733000 * INFO 0402 02734000 * DEVICE (334D) 0402 02735000 * DEVPTRKS (696*12) 0402 02736000 * DEVATRKS (24) 0402 02737000 * DEVMRTRK (50) 0402 02738000 * DEVTKCYL (12) 0402 02739000 * DEVLPADD ('02B7000B'X) 0402 02740000 * DEVFAADD ('02B80000'X) 0402 02741000 * DEVLAADD ('02B9000B'X) 0402 02742000 * DEVTHOLD (10) 0402 02743000 * DEVBSRS1 (IPLBOOT1) 0402 02744000 * DEVBSRS2 (IPLBOOT2) 0402 02745000 * DEVIPLPL (7286) 0402 02746000 * DEVMSSID (0) 0402 02747000 * DEVVTOCL ('00000001'X) 0402 02748000 * DEVVTOCE (1) 0402 02749000 * DEVDSCBF (DSCB4DC7) 0402 02750000 * DEVNUMSD (1) 0402 02751000 * DEVTRKCP (8535) 0402 02752000 * DEVRECOH (167) 0402 02753000 * DEVBSRW1 (IPLBOOTW) 0402 02754000 * 0402 02755000 *******************************************************/ 0402 02756000 * 0402 02757000 *DCL 1 PTRKS202 STATIC LOCAL, 0402 02758000 * 2 * /* LENGTH */ FIXED(15) INIT(4), 0402 02759000 * 2 * /* TYPE */ CHAR(2) INIT('D'), 0402 02760000 * 2 * /* VALUE */ FIXED(31) INIT(696*12); 0402 02761000 * 0402 02762000 *DCL 1 ATRKS202 STATIC LOCAL, 0403 02763000 * 2 * /* LENGTH */ FIXED(15) INIT(4), 0403 02764000 * 2 * /* TYPE */ CHAR(2) INIT('D'), 0403 02765000 * 2 * /* VALUE */ FIXED(31) INIT(24); 0403 02766000 * 0403 02767000 *DCL 1 MRTRK202 STATIC LOCAL, 0404 02768000 * 2 * /* LENGTH */ FIXED(15) INIT(4), 0404 02769000 * 2 * /* TYPE */ CHAR(2) INIT('D'), 0404 02770000 * 2 * /* VALUE */ FIXED(31) INIT(50); 0404 02771000 * 0404 02772000 *DCL 1 TKCYL202 STATIC LOCAL, 0405 02773000 * 2 * /* LENGTH */ FIXED(15) INIT(4), 0405 02774000 * 2 * /* TYPE */ CHAR(2) INIT('D'), 0405 02775000 * 2 * /* VALUE */ FIXED(31) INIT(12); 0405 02776000 * 0405 02777000 *DCL 1 LPADD202 STATIC LOCAL, 0406 02778000 * 2 * /* LENGTH */ FIXED(15) INIT(4), 0406 02779000 * 2 * /* TYPE */ CHAR(2) INIT('D'), 0406 02780000 * 2 * /* VALUE */ CHAR(4) INIT('02B7000B'X); 0406 02781000 * 0406 02782000 *DCL 1 FAADD202 STATIC LOCAL, 0407 02783000 * 2 * /* LENGTH */ FIXED(15) INIT(4), 0407 02784000 * 2 * /* TYPE */ CHAR(2) INIT('D'), 0407 02785000 * 2 * /* VALUE */ CHAR(4) INIT('02B80000'X); 0407 02786000 * 0407 02787000 *DCL 1 LAADD202 STATIC LOCAL, 0408 02788000 * 2 * /* LENGTH */ FIXED(15) INIT(4), 0408 02789000 * 2 * /* TYPE */ CHAR(2) INIT('D'), 0408 02790000 * 2 * /* VALUE */ CHAR(4) INIT('02B9000B'X); 0408 02791000 * 0408 02792000 *DCL 1 THOLD202 STATIC LOCAL, 0409 02793000 * 2 * /* LENGTH */ FIXED(15) INIT(4), 0409 02794000 * 2 * /* TYPE */ CHAR(2) INIT('D'), 0409 02795000 * 2 * /* VALUE */ FIXED(31) INIT(10); 0409 02796000 * 0409 02797000 *DCL 1 BSRS1202 STATIC LOCAL, 0410 02798000 * 2 * /* LENGTH */ FIXED(15) INIT(LENGTH(IPLBOOT1)) 02799000 * 0410 02800000 * 2 * /* TYPE */ CHAR(2) INIT('A'), 0410 02801000 * 2 * /* VALUE */ POINTER(31) INIT(ADDR(IPLBOOT1)) 02802000 * 0410 02803000 * 0410 02804000 *DCL 1 BSRS2202 STATIC LOCAL, 0411 02805000 * 2 * /* LENGTH */ FIXED(15) INIT(LENGTH(IPLBOOT2)) 02806000 * 0411 02807000 * 2 * /* TYPE */ CHAR(2) INIT('A'), 0411 02808000 * 2 * /* VALUE */ POINTER(31) INIT(ADDR(IPLBOOT2)) 02809000 * 0411 02810000 * 0411 02811000 *DCL 1 IPLPL202 STATIC LOCAL, 0412 02812000 * 2 * /* LENGTH */ FIXED(15) INIT(4), 0412 02813000 * 2 * /* TYPE */ CHAR(2) INIT('D'), 0412 02814000 * 2 * /* VALUE */ FIXED(31) INIT(7286); 0412 02815000 * 0412 02816000 *DCL 1 MSSID202 STATIC LOCAL, 0413 02817000 * 2 * /* LENGTH */ FIXED(15) INIT(4), 0413 02818000 * 2 * /* TYPE */ CHAR(2) INIT('D'), 0413 02819000 * 2 * /* VALUE */ FIXED(31) INIT(0); 0413 02820000 * 0413 02821000 *DCL 1 VTOCL202 STATIC LOCAL, 0414 02822000 * 2 * /* LENGTH */ FIXED(15) INIT(4), 0414 02823000 * 2 * /* TYPE */ CHAR(2) INIT('D'), 0414 02824000 * 2 * /* VALUE */ FIXED(31) INIT('00000001'X); 02825000 * 0414 02826000 *DCL 1 VTOCE202 STATIC LOCAL, 0415 02827000 * 2 * /* LENGTH */ FIXED(15) INIT(4), 0415 02828000 * 2 * /* TYPE */ CHAR(2) INIT('D'), 0415 02829000 * 2 * /* VALUE */ FIXED(31) INIT(1); 0415 02830000 * 0415 02831000 *DCL 1 DSCBF202 STATIC LOCAL, 0416 02832000 * 2 * /* LENGTH */ FIXED(15) INIT(LENGTH(DSCB4DC7)) 02833000 * 0416 02834000 * 2 * /* TYPE */ CHAR(2) INIT('A'), 0416 02835000 * 2 * /* VALUE */ POINTER(31) INIT(ADDR(DSCB4DC7)) 02836000 * 0416 02837000 * 0416 02838000 *DCL 1 NUMSD202 STATIC LOCAL, 0417 02839000 * 2 * /* LENGTH */ FIXED(15) INIT(4), 0417 02840000 * 2 * /* TYPE */ CHAR(2) INIT('D'), 0417 02841000 * 2 * /* VALUE */ FIXED(31) INIT(1); 0417 02842000 * 0417 02843000 *DCL 1 TRKCP202 STATIC LOCAL, 0418 02844000 * 2 * /* LENGTH */ FIXED(15) INIT(4), 0418 02845000 * 2 * /* TYPE */ CHAR(2) INIT('D'), 0418 02846000 * 2 * /* VALUE */ FIXED(31) INIT(8535); 0418 02847000 * 0418 02848000 *DCL 1 RECOH202 STATIC LOCAL, 0419 02849000 * 2 * /* LENGTH */ FIXED(15) INIT(4), 0419 02850000 * 2 * /* TYPE */ CHAR(2) INIT('D'), 0419 02851000 * 2 * /* VALUE */ FIXED(31) INIT(167); 0419 02852000 * 0419 02853000 *DCL 1 BSRW1202 STATIC LOCAL, 0420 02854000 * 2 * /* LENGTH */ FIXED(15) INIT(LENGTH(IPLBOOTW)) 02855000 * 0420 02856000 * 2 * /* TYPE */ CHAR(2) INIT('A'), 0420 02857000 * 2 * /* VALUE */ POINTER(31) INIT(ADDR(IPLBOOTW)) 02858000 * 0420 02859000 * 0420 02860000 */****************************************************** 0421 02861000 * 0421 02862000 * INFO 0421 02863000 * DEVICE (3350) 0421 02864000 * DEVPTRKS (555*30) 0421 02865000 * DEVATRKS (150) 0421 02866000 * DEVMRTRK (103) 0421 02867000 * DEVTKCYL (30) 0421 02868000 * DEVLPADD ('022A001D'X) 0421 02869000 * DEVFAADD ('022B0000'X) 0421 02870000 * DEVLAADD ('022F001D'X) 0421 02871000 * DEVTHOLD (10) 0421 02872000 * DEVBSRS1 (IPLBOOT1) 0421 02873000 * DEVBSRS2 (IPLBOOT2) 0421 02874000 * DEVIPLPL (17902) 0421 02875000 * DEVMSSID (0) 0421 02876000 * DEVVTOCL ('00000001'X) 0421 02877000 * DEVVTOCE (1) 0421 02878000 * DEVDSCBF (DSCB4DC8) 0421 02879000 * DEVNUMSD (3) 0421 02880000 * DEVTRKCP (19254) 0421 02881000 * DEVRECOH (135) 0421 02882000 * DEVBSRW1 (IPLBOOTW) 0421 02883000 * 0421 02884000 *******************************************************/ 0421 02885000 * 0421 02886000 *DCL 1 PTRKS222 STATIC LOCAL, 0421 02887000 * 2 * /* LENGTH */ FIXED(15) INIT(4), 0421 02888000 * 2 * /* TYPE */ CHAR(2) INIT('D'), 0421 02889000 * 2 * /* VALUE */ FIXED(31) INIT(555*30); 0421 02890000 * 0421 02891000 *DCL 1 ATRKS222 STATIC LOCAL, 0422 02892000 * 2 * /* LENGTH */ FIXED(15) INIT(4), 0422 02893000 * 2 * /* TYPE */ CHAR(2) INIT('D'), 0422 02894000 * 2 * /* VALUE */ FIXED(31) INIT(150); 0422 02895000 * 0422 02896000 *DCL 1 MRTRK222 STATIC LOCAL, 0423 02897000 * 2 * /* LENGTH */ FIXED(15) INIT(4), 0423 02898000 * 2 * /* TYPE */ CHAR(2) INIT('D'), 0423 02899000 * 2 * /* VALUE */ FIXED(31) INIT(103); 0423 02900000 * 0423 02901000 *DCL 1 TKCYL222 STATIC LOCAL, 0424 02902000 * 2 * /* LENGTH */ FIXED(15) INIT(4), 0424 02903000 * 2 * /* TYPE */ CHAR(2) INIT('D'), 0424 02904000 * 2 * /* VALUE */ FIXED(31) INIT(30); 0424 02905000 * 0424 02906000 *DCL 1 LPADD222 STATIC LOCAL, 0425 02907000 * 2 * /* LENGTH */ FIXED(15) INIT(4), 0425 02908000 * 2 * /* TYPE */ CHAR(2) INIT('D'), 0425 02909000 * 2 * /* VALUE */ CHAR(4) INIT('022A001D'X); 0425 02910000 * 0425 02911000 *DCL 1 FAADD222 STATIC LOCAL, 0426 02912000 * 2 * /* LENGTH */ FIXED(15) INIT(4), 0426 02913000 * 2 * /* TYPE */ CHAR(2) INIT('D'), 0426 02914000 * 2 * /* VALUE */ CHAR(4) INIT('022B0000'X); 0426 02915000 * 0426 02916000 *DCL 1 LAADD222 STATIC LOCAL, 0427 02917000 * 2 * /* LENGTH */ FIXED(15) INIT(4), 0427 02918000 * 2 * /* TYPE */ CHAR(2) INIT('D'), 0427 02919000 * 2 * /* VALUE */ CHAR(4) INIT('022F001D'X); 0427 02920000 * 0427 02921000 *DCL 1 THOLD222 STATIC LOCAL, 0428 02922000 * 2 * /* LENGTH */ FIXED(15) INIT(4), 0428 02923000 * 2 * /* TYPE */ CHAR(2) INIT('D'), 0428 02924000 * 2 * /* VALUE */ FIXED(31) INIT(10); 0428 02925000 * 0428 02926000 *DCL 1 BSRS1222 STATIC LOCAL, 0429 02927000 * 2 * /* LENGTH */ FIXED(15) INIT(LENGTH(IPLBOOT1)) 02928000 * 0429 02929000 * 2 * /* TYPE */ CHAR(2) INIT('A'), 0429 02930000 * 2 * /* VALUE */ POINTER(31) INIT(ADDR(IPLBOOT1)) 02931000 * 0429 02932000 * 0429 02933000 *DCL 1 BSRS2222 STATIC LOCAL, 0430 02934000 * 2 * /* LENGTH */ FIXED(15) INIT(LENGTH(IPLBOOT2)) 02935000 * 0430 02936000 * 2 * /* TYPE */ CHAR(2) INIT('A'), 0430 02937000 * 2 * /* VALUE */ POINTER(31) INIT(ADDR(IPLBOOT2)) 02938000 * 0430 02939000 * 0430 02940000 *DCL 1 IPLPL222 STATIC LOCAL, 0431 02941000 * 2 * /* LENGTH */ FIXED(15) INIT(4), 0431 02942000 * 2 * /* TYPE */ CHAR(2) INIT('D'), 0431 02943000 * 2 * /* VALUE */ FIXED(31) INIT(17902); 0431 02944000 * 0431 02945000 *DCL 1 MSSID222 STATIC LOCAL, 0432 02946000 * 2 * /* LENGTH */ FIXED(15) INIT(4), 0432 02947000 * 2 * /* TYPE */ CHAR(2) INIT('D'), 0432 02948000 * 2 * /* VALUE */ FIXED(31) INIT(0); 0432 02949000 * 0432 02950000 *DCL 1 VTOCL222 STATIC LOCAL, 0433 02951000 * 2 * /* LENGTH */ FIXED(15) INIT(4), 0433 02952000 * 2 * /* TYPE */ CHAR(2) INIT('D'), 0433 02953000 * 2 * /* VALUE */ FIXED(31) INIT('00000001'X); 02954000 * 0433 02955000 *DCL 1 VTOCE222 STATIC LOCAL, 0434 02956000 * 2 * /* LENGTH */ FIXED(15) INIT(4), 0434 02957000 * 2 * /* TYPE */ CHAR(2) INIT('D'), 0434 02958000 * 2 * /* VALUE */ FIXED(31) INIT(1); 0434 02959000 * 0434 02960000 *DCL 1 DSCBF222 STATIC LOCAL, 0435 02961000 * 2 * /* LENGTH */ FIXED(15) INIT(LENGTH(DSCB4DC8)) 02962000 * 0435 02963000 * 2 * /* TYPE */ CHAR(2) INIT('A'), 0435 02964000 * 2 * /* VALUE */ POINTER(31) INIT(ADDR(DSCB4DC8)) 02965000 * 0435 02966000 * 0435 02967000 *DCL 1 NUMSD222 STATIC LOCAL, 0436 02968000 * 2 * /* LENGTH */ FIXED(15) INIT(4), 0436 02969000 * 2 * /* TYPE */ CHAR(2) INIT('D'), 0436 02970000 * 2 * /* VALUE */ FIXED(31) INIT(3); 0436 02971000 * 0436 02972000 *DCL 1 TRKCP222 STATIC LOCAL, 0437 02973000 * 2 * /* LENGTH */ FIXED(15) INIT(4), 0437 02974000 * 2 * /* TYPE */ CHAR(2) INIT('D'), 0437 02975000 * 2 * /* VALUE */ FIXED(31) INIT(19254); 0437 02976000 * 0437 02977000 *DCL 1 RECOH222 STATIC LOCAL, 0438 02978000 * 2 * /* LENGTH */ FIXED(15) INIT(4), 0438 02979000 * 2 * /* TYPE */ CHAR(2) INIT('D'), 0438 02980000 * 2 * /* VALUE */ FIXED(31) INIT(135); 0438 02981000 * 0438 02982000 *DCL 1 BSRW1222 STATIC LOCAL, 0439 02983000 * 2 * /* LENGTH */ FIXED(15) INIT(LENGTH(IPLBOOTW)) 02984000 * 0439 02985000 * 2 * /* TYPE */ CHAR(2) INIT('A'), 0439 02986000 * 2 * /* VALUE */ POINTER(31) INIT(ADDR(IPLBOOTW)) 02987000 * 0439 02988000 * 0439 02989000 * /***********************************************/ 0440 02990000 * /* */ 0440 02991000 * /* I N F O R M A T I O N V E C T O R S */ 0440 02992000 * /* */ 0440 02993000 * /***********************************************/ 0440 02994000 * 0440 02995000 * 0440 02996000 *DECLARE 0440 02997000 * D230A(19) /* INFORMATION VECTOR */ 0440 02998000 * STATIC LOCAL 0440 02999000 * POINTER(31) INIT 0440 03000000 * ( 0440 03001000 * ADDR(PTRKS002), /* INFORMATION 01 */ 03002000 * ADDR(ATRKS002), /* INFORMATION 02 */ 03003000 * ADDR(NUMSD002), /* INFORMATION 03 */ 03004000 * ADDR(TKCYL002), /* INFORMATION 04 */ 03005000 * ADDR(LPADD002), /* INFORMATION 05 */ 03006000 * ADDR(FAADD002), /* INFORMATION 06 */ 03007000 * ADDR(LAADD002), /* INFORMATION 07 */ 03008000 * ADDR(THOLD002), /* INFORMATION 08 */ 03009000 * ADDR(BSRS1002), /* INFORMATION 09 */ 03010000 * ADDR(BSRS2002), /* INFORMATION 10 */ 03011000 * ADDR(IPLPL002), /* INFORMATION 11 */ 03012000 * ADDR(MSSID002), /* INFORMATION 12 */ 03013000 * ADDR(VTOCL002), /* INFORMATION 13 */ 03014000 * ADDR(VTOCE002), /* INFORMATION 14 */ 03015000 * ADDR(DSCBF002), /* INFORMATION 15 */ 03016000 * ADDR(TRKCP002), /* INFORMATION 16 */ 03017000 * ADDR(RECOH002), /* INFORMATION 17 */ 03018000 * ADDR(MRTRK002), /* INFORMATION 18 */ 03019000 * ADDR(BSRW1002) /* INFORMATION 19 */ 03020000 * ); 0440 03021000 * 0440 03022000 * 0440 03023000 *DECLARE 0441 03024000 * D230B(19) /* INFORMATION VECTOR */ 0441 03025000 * STATIC LOCAL 0441 03026000 * POINTER(31) INIT 0441 03027000 * ( 0441 03028000 * ADDR(PTRKS022), /* INFORMATION 01 */ 03029000 * ADDR(ATRKS022), /* INFORMATION 02 */ 03030000 * ADDR(NUMSD022), /* INFORMATION 03 */ 03031000 * ADDR(TKCYL022), /* INFORMATION 04 */ 03032000 * ADDR(LPADD022), /* INFORMATION 05 */ 03033000 * ADDR(FAADD022), /* INFORMATION 06 */ 03034000 * ADDR(LAADD022), /* INFORMATION 07 */ 03035000 * ADDR(THOLD022), /* INFORMATION 08 */ 03036000 * ADDR(BSRS1022), /* INFORMATION 09 */ 03037000 * ADDR(BSRS2022), /* INFORMATION 10 */ 03038000 * ADDR(IPLPL022), /* INFORMATION 11 */ 03039000 * ADDR(MSSID022), /* INFORMATION 12 */ 03040000 * ADDR(VTOCL022), /* INFORMATION 13 */ 03041000 * ADDR(VTOCE022), /* INFORMATION 14 */ 03042000 * ADDR(DSCBF022), /* INFORMATION 15 */ 03043000 * ADDR(TRKCP022), /* INFORMATION 16 */ 03044000 * ADDR(RECOH022), /* INFORMATION 17 */ 03045000 * ADDR(MRTRK022), /* INFORMATION 18 */ 03046000 * ADDR(BSRW1022) /* INFORMATION 19 */ 03047000 * ); 0441 03048000 * 0441 03049000 * 0441 03050000 *DECLARE 0442 03051000 * D2314(19) /* INFORMATION VECTOR */ 0442 03052000 * STATIC LOCAL 0442 03053000 * POINTER(31) INIT 0442 03054000 * ( 0442 03055000 * ADDR(PTRKS042), /* INFORMATION 01 */ 03056000 * ADDR(ATRKS042), /* INFORMATION 02 */ 03057000 * ADDR(NUMSD042), /* INFORMATION 03 */ 03058000 * ADDR(TKCYL042), /* INFORMATION 04 */ 03059000 * ADDR(LPADD042), /* INFORMATION 05 */ 03060000 * ADDR(FAADD042), /* INFORMATION 06 */ 03061000 * ADDR(LAADD042), /* INFORMATION 07 */ 03062000 * ADDR(THOLD042), /* INFORMATION 08 */ 03063000 * ADDR(BSRS1042), /* INFORMATION 09 */ 03064000 * ADDR(BSRS2042), /* INFORMATION 10 */ 03065000 * ADDR(IPLPL042), /* INFORMATION 11 */ 03066000 * ADDR(MSSID042), /* INFORMATION 12 */ 03067000 * ADDR(VTOCL042), /* INFORMATION 13 */ 03068000 * ADDR(VTOCE042), /* INFORMATION 14 */ 03069000 * ADDR(DSCBF042), /* INFORMATION 15 */ 03070000 * ADDR(TRKCP042), /* INFORMATION 16 */ 03071000 * ADDR(RECOH042), /* INFORMATION 17 */ 03072000 * ADDR(MRTRK042), /* INFORMATION 18 */ 03073000 * ADDR(BSRW1042) /* INFORMATION 19 */ 03074000 * ); 0442 03075000 * 0442 03076000 * 0442 03077000 *DECLARE 0443 03078000 * D333A(19) /* INFORMATION VECTOR */ 0443 03079000 * STATIC LOCAL 0443 03080000 * POINTER(31) INIT 0443 03081000 * ( 0443 03082000 * ADDR(PTRKS062), /* INFORMATION 01 */ 03083000 * ADDR(ATRKS062), /* INFORMATION 02 */ 03084000 * ADDR(NUMSD062), /* INFORMATION 03 */ 03085000 * ADDR(TKCYL062), /* INFORMATION 04 */ 03086000 * ADDR(LPADD062), /* INFORMATION 05 */ 03087000 * ADDR(FAADD062), /* INFORMATION 06 */ 03088000 * ADDR(LAADD062), /* INFORMATION 07 */ 03089000 * ADDR(THOLD062), /* INFORMATION 08 */ 03090000 * ADDR(BSRS1062), /* INFORMATION 09 */ 03091000 * ADDR(BSRS2062), /* INFORMATION 10 */ 03092000 * ADDR(IPLPL062), /* INFORMATION 11 */ 03093000 * ADDR(MSSID062), /* INFORMATION 12 */ 03094000 * ADDR(VTOCL062), /* INFORMATION 13 */ 03095000 * ADDR(VTOCE062), /* INFORMATION 14 */ 03096000 * ADDR(DSCBF062), /* INFORMATION 15 */ 03097000 * ADDR(TRKCP062), /* INFORMATION 16 */ 03098000 * ADDR(RECOH062), /* INFORMATION 17 */ 03099000 * ADDR(MRTRK062), /* INFORMATION 18 */ 03100000 * ADDR(BSRW1062) /* INFORMATION 19 */ 03101000 * ); 0443 03102000 * 0443 03103000 * 0443 03104000 *DECLARE 0444 03105000 * D333B(19) /* INFORMATION VECTOR */ 0444 03106000 * STATIC LOCAL 0444 03107000 * POINTER(31) INIT 0444 03108000 * ( 0444 03109000 * ADDR(PTRKS082), /* INFORMATION 01 */ 03110000 * ADDR(ATRKS082), /* INFORMATION 02 */ 03111000 * ADDR(NUMSD082), /* INFORMATION 03 */ 03112000 * ADDR(TKCYL082), /* INFORMATION 04 */ 03113000 * ADDR(LPADD082), /* INFORMATION 05 */ 03114000 * ADDR(FAADD082), /* INFORMATION 06 */ 03115000 * ADDR(LAADD082), /* INFORMATION 07 */ 03116000 * ADDR(THOLD082), /* INFORMATION 08 */ 03117000 * ADDR(BSRS1082), /* INFORMATION 09 */ 03118000 * ADDR(BSRS2082), /* INFORMATION 10 */ 03119000 * ADDR(IPLPL082), /* INFORMATION 11 */ 03120000 * ADDR(MSSID082), /* INFORMATION 12 */ 03121000 * ADDR(VTOCL082), /* INFORMATION 13 */ 03122000 * ADDR(VTOCE082), /* INFORMATION 14 */ 03123000 * ADDR(DSCBF082), /* INFORMATION 15 */ 03124000 * ADDR(TRKCP082), /* INFORMATION 16 */ 03125000 * ADDR(RECOH082), /* INFORMATION 17 */ 03126000 * ADDR(MRTRK082), /* INFORMATION 18 */ 03127000 * ADDR(BSRW1082) /* INFORMATION 19 */ 03128000 * ); 0444 03129000 * 0444 03130000 * 0444 03131000 *DECLARE 0445 03132000 * D333C(19) /* INFORMATION VECTOR */ 0445 03133000 * STATIC LOCAL 0445 03134000 * POINTER(31) INIT 0445 03135000 * ( 0445 03136000 * ADDR(PTRKS102), /* INFORMATION 01 */ 03137000 * ADDR(ATRKS102), /* INFORMATION 02 */ 03138000 * ADDR(NUMSD102), /* INFORMATION 03 */ 03139000 * ADDR(TKCYL102), /* INFORMATION 04 */ 03140000 * ADDR(LPADD102), /* INFORMATION 05 */ 03141000 * ADDR(FAADD102), /* INFORMATION 06 */ 03142000 * ADDR(LAADD102), /* INFORMATION 07 */ 03143000 * ADDR(THOLD102), /* INFORMATION 08 */ 03144000 * ADDR(BSRS1102), /* INFORMATION 09 */ 03145000 * ADDR(BSRS2102), /* INFORMATION 10 */ 03146000 * ADDR(IPLPL102), /* INFORMATION 11 */ 03147000 * ADDR(MSSID102), /* INFORMATION 12 */ 03148000 * ADDR(VTOCL102), /* INFORMATION 13 */ 03149000 * ADDR(VTOCE102), /* INFORMATION 14 */ 03150000 * ADDR(DSCBF102), /* INFORMATION 15 */ 03151000 * ADDR(TRKCP102), /* INFORMATION 16 */ 03152000 * ADDR(RECOH102), /* INFORMATION 17 */ 03153000 * ADDR(MRTRK102), /* INFORMATION 18 */ 03154000 * ADDR(BSRW1102) /* INFORMATION 19 */ 03155000 * ); 0445 03156000 * 0445 03157000 * 0445 03158000 *DECLARE 0446 03159000 * D333D(19) /* INFORMATION VECTOR */ 0446 03160000 * STATIC LOCAL 0446 03161000 * POINTER(31) INIT 0446 03162000 * ( 0446 03163000 * ADDR(PTRKS122), /* INFORMATION 01 */ 03164000 * ADDR(ATRKS122), /* INFORMATION 02 */ 03165000 * ADDR(NUMSD122), /* INFORMATION 03 */ 03166000 * ADDR(TKCYL122), /* INFORMATION 04 */ 03167000 * ADDR(LPADD122), /* INFORMATION 05 */ 03168000 * ADDR(FAADD122), /* INFORMATION 06 */ 03169000 * ADDR(LAADD122), /* INFORMATION 07 */ 03170000 * ADDR(THOLD122), /* INFORMATION 08 */ 03171000 * ADDR(BSRS1122), /* INFORMATION 09 */ 03172000 * ADDR(BSRS2122), /* INFORMATION 10 */ 03173000 * ADDR(IPLPL122), /* INFORMATION 11 */ 03174000 * ADDR(MSSID122), /* INFORMATION 12 */ 03175000 * ADDR(VTOCL122), /* INFORMATION 13 */ 03176000 * ADDR(VTOCE122), /* INFORMATION 14 */ 03177000 * ADDR(DSCBF122), /* INFORMATION 15 */ 03178000 * ADDR(TRKCP122), /* INFORMATION 16 */ 03179000 * ADDR(RECOH122), /* INFORMATION 17 */ 03180000 * ADDR(MRTRK122), /* INFORMATION 18 */ 03181000 * ADDR(BSRW1122) /* INFORMATION 19 */ 03182000 * ); 0446 03183000 * 0446 03184000 * 0446 03185000 *DECLARE 0447 03186000 * D334A(19) /* INFORMATION VECTOR */ 0447 03187000 * STATIC LOCAL 0447 03188000 * POINTER(31) INIT 0447 03189000 * ( 0447 03190000 * ADDR(PTRKS142), /* INFORMATION 01 */ 03191000 * ADDR(ATRKS142), /* INFORMATION 02 */ 03192000 * ADDR(NUMSD142), /* INFORMATION 03 */ 03193000 * ADDR(TKCYL142), /* INFORMATION 04 */ 03194000 * ADDR(LPADD142), /* INFORMATION 05 */ 03195000 * ADDR(FAADD142), /* INFORMATION 06 */ 03196000 * ADDR(LAADD142), /* INFORMATION 07 */ 03197000 * ADDR(THOLD142), /* INFORMATION 08 */ 03198000 * ADDR(BSRS1142), /* INFORMATION 09 */ 03199000 * ADDR(BSRS2142), /* INFORMATION 10 */ 03200000 * ADDR(IPLPL142), /* INFORMATION 11 */ 03201000 * ADDR(MSSID142), /* INFORMATION 12 */ 03202000 * ADDR(VTOCL142), /* INFORMATION 13 */ 03203000 * ADDR(VTOCE142), /* INFORMATION 14 */ 03204000 * ADDR(DSCBF142), /* INFORMATION 15 */ 03205000 * ADDR(TRKCP142), /* INFORMATION 16 */ 03206000 * ADDR(RECOH142), /* INFORMATION 17 */ 03207000 * ADDR(MRTRK142), /* INFORMATION 18 */ 03208000 * ADDR(BSRW1142) /* INFORMATION 19 */ 03209000 * ); 0447 03210000 * 0447 03211000 * 0447 03212000 *DECLARE 0448 03213000 * D334B(19) /* INFORMATION VECTOR */ 0448 03214000 * STATIC LOCAL 0448 03215000 * POINTER(31) INIT 0448 03216000 * ( 0448 03217000 * ADDR(PTRKS162), /* INFORMATION 01 */ 03218000 * ADDR(ATRKS162), /* INFORMATION 02 */ 03219000 * ADDR(NUMSD162), /* INFORMATION 03 */ 03220000 * ADDR(TKCYL162), /* INFORMATION 04 */ 03221000 * ADDR(LPADD162), /* INFORMATION 05 */ 03222000 * ADDR(FAADD162), /* INFORMATION 06 */ 03223000 * ADDR(LAADD162), /* INFORMATION 07 */ 03224000 * ADDR(THOLD162), /* INFORMATION 08 */ 03225000 * ADDR(BSRS1162), /* INFORMATION 09 */ 03226000 * ADDR(BSRS2162), /* INFORMATION 10 */ 03227000 * ADDR(IPLPL162), /* INFORMATION 11 */ 03228000 * ADDR(MSSID162), /* INFORMATION 12 */ 03229000 * ADDR(VTOCL162), /* INFORMATION 13 */ 03230000 * ADDR(VTOCE162), /* INFORMATION 14 */ 03231000 * ADDR(DSCBF162), /* INFORMATION 15 */ 03232000 * ADDR(TRKCP162), /* INFORMATION 16 */ 03233000 * ADDR(RECOH162), /* INFORMATION 17 */ 03234000 * ADDR(MRTRK162), /* INFORMATION 18 */ 03235000 * ADDR(BSRW1162) /* INFORMATION 19 */ 03236000 * ); 0448 03237000 * 0448 03238000 * 0448 03239000 *DECLARE 0449 03240000 * D334C(19) /* INFORMATION VECTOR */ 0449 03241000 * STATIC LOCAL 0449 03242000 * POINTER(31) INIT 0449 03243000 * ( 0449 03244000 * ADDR(PTRKS182), /* INFORMATION 01 */ 03245000 * ADDR(ATRKS182), /* INFORMATION 02 */ 03246000 * ADDR(NUMSD182), /* INFORMATION 03 */ 03247000 * ADDR(TKCYL182), /* INFORMATION 04 */ 03248000 * ADDR(LPADD182), /* INFORMATION 05 */ 03249000 * ADDR(FAADD182), /* INFORMATION 06 */ 03250000 * ADDR(LAADD182), /* INFORMATION 07 */ 03251000 * ADDR(THOLD182), /* INFORMATION 08 */ 03252000 * ADDR(BSRS1182), /* INFORMATION 09 */ 03253000 * ADDR(BSRS2182), /* INFORMATION 10 */ 03254000 * ADDR(IPLPL182), /* INFORMATION 11 */ 03255000 * ADDR(MSSID182), /* INFORMATION 12 */ 03256000 * ADDR(VTOCL182), /* INFORMATION 13 */ 03257000 * ADDR(VTOCE182), /* INFORMATION 14 */ 03258000 * ADDR(DSCBF182), /* INFORMATION 15 */ 03259000 * ADDR(TRKCP182), /* INFORMATION 16 */ 03260000 * ADDR(RECOH182), /* INFORMATION 17 */ 03261000 * ADDR(MRTRK182), /* INFORMATION 18 */ 03262000 * ADDR(BSRW1182) /* INFORMATION 19 */ 03263000 * ); 0449 03264000 * 0449 03265000 * 0449 03266000 *DECLARE 0450 03267000 * D334D(19) /* INFORMATION VECTOR */ 0450 03268000 * STATIC LOCAL 0450 03269000 * POINTER(31) INIT 0450 03270000 * ( 0450 03271000 * ADDR(PTRKS202), /* INFORMATION 01 */ 03272000 * ADDR(ATRKS202), /* INFORMATION 02 */ 03273000 * ADDR(NUMSD202), /* INFORMATION 03 */ 03274000 * ADDR(TKCYL202), /* INFORMATION 04 */ 03275000 * ADDR(LPADD202), /* INFORMATION 05 */ 03276000 * ADDR(FAADD202), /* INFORMATION 06 */ 03277000 * ADDR(LAADD202), /* INFORMATION 07 */ 03278000 * ADDR(THOLD202), /* INFORMATION 08 */ 03279000 * ADDR(BSRS1202), /* INFORMATION 09 */ 03280000 * ADDR(BSRS2202), /* INFORMATION 10 */ 03281000 * ADDR(IPLPL202), /* INFORMATION 11 */ 03282000 * ADDR(MSSID202), /* INFORMATION 12 */ 03283000 * ADDR(VTOCL202), /* INFORMATION 13 */ 03284000 * ADDR(VTOCE202), /* INFORMATION 14 */ 03285000 * ADDR(DSCBF202), /* INFORMATION 15 */ 03286000 * ADDR(TRKCP202), /* INFORMATION 16 */ 03287000 * ADDR(RECOH202), /* INFORMATION 17 */ 03288000 * ADDR(MRTRK202), /* INFORMATION 18 */ 03289000 * ADDR(BSRW1202) /* INFORMATION 19 */ 03290000 * ); 0450 03291000 * 0450 03292000 * 0450 03293000 *DECLARE 0451 03294000 * D3350(19) /* INFORMATION VECTOR */ 0451 03295000 * STATIC LOCAL 0451 03296000 * POINTER(31) INIT 0451 03297000 * ( 0451 03298000 * ADDR(PTRKS222), /* INFORMATION 01 */ 03299000 * ADDR(ATRKS222), /* INFORMATION 02 */ 03300000 * ADDR(NUMSD222), /* INFORMATION 03 */ 03301000 * ADDR(TKCYL222), /* INFORMATION 04 */ 03302000 * ADDR(LPADD222), /* INFORMATION 05 */ 03303000 * ADDR(FAADD222), /* INFORMATION 06 */ 03304000 * ADDR(LAADD222), /* INFORMATION 07 */ 03305000 * ADDR(THOLD222), /* INFORMATION 08 */ 03306000 * ADDR(BSRS1222), /* INFORMATION 09 */ 03307000 * ADDR(BSRS2222), /* INFORMATION 10 */ 03308000 * ADDR(IPLPL222), /* INFORMATION 11 */ 03309000 * ADDR(MSSID222), /* INFORMATION 12 */ 03310000 * ADDR(VTOCL222), /* INFORMATION 13 */ 03311000 * ADDR(VTOCE222), /* INFORMATION 14 */ 03312000 * ADDR(DSCBF222), /* INFORMATION 15 */ 03313000 * ADDR(TRKCP222), /* INFORMATION 16 */ 03314000 * ADDR(RECOH222), /* INFORMATION 17 */ 03315000 * ADDR(MRTRK222), /* INFORMATION 18 */ 03316000 * ADDR(BSRW1222) /* INFORMATION 19 */ 03317000 * ); 0451 03318000 * 0451 03319000 EJECT 03320000 * 0452 03321000 */***** B E G I N E X E C U T I O N *****************************/ 03322000 * 0452 03323000 * IF GDTDBG = NULLPTR 0452 03324000 * THEN; 0452 03325000 L @15,@PC00001 0452 03326000 L @15,GDTDBG(,@15) 0452 03327000 LTR @15,@15 0452 03328000 BZ @RT00452 0452 03329000 * ELSE 0454 03330000 * CALL ICKDB010 (GDTTBL, 'DV20'); 0454 03331000 * 0454 03332000 * 0454 03333000 L @15,@PC00001 0454 03334000 ST @15,@AL00001 0454 03335000 LA @14,@CC01750 0454 03336000 ST @14,@AL00001+4 0454 03337000 MVI @AL00001+4,X'80' 0454 03338000 L @15,GDTDBG(,@15) 0454 03339000 LA @01,@AL00001 0454 03340000 BALR @14,@15 0454 03341000 * CONDCODE = RCSUCC; 0455 03342000 * 0455 03343000 * 0455 03344000 @RT00452 L @15,@PC00001+24 0455 03345000 SLR @14,@14 0455 03346000 ST @14,CONDCODE(,@15) 0455 03347000 */* IF INFOKEY IS VALID */ 03348000 * IF (INFOKEY >= VOLLOW & INFOKEY <= VOLHIGH) | 0456 03349000 * (INFOKEY >= VOLSLOW & INFOKEY <= VOLSHIGH) | 0456 03350000 * (INFOKEY >= DEVLOW & INFOKEY <= DEVHIGH) 0456 03351000 * 0456 03352000 */* THEN-DO */ 03353000 * THEN 0456 03354000 L @15,@PC00001+8 0456 03355000 L @15,INFOKEY(,@15) 0456 03356000 CH @15,@CH00174 0456 03357000 BL @GL00002 0456 03358000 CH @15,@CH00272 0456 03359000 BNH @RT00456 0456 03360000 @GL00002 L @15,@PC00001+8 0456 03361000 L @15,INFOKEY(,@15) 0456 03362000 CH @15,@CH00331 0456 03363000 BL @GL00001 0456 03364000 CH @15,@CH00334 0456 03365000 BNH @RT00456 0456 03366000 @GL00001 L @15,@PC00001+8 0456 03367000 L @15,INFOKEY(,@15) 0456 03368000 CH @15,@CH00337 0456 03369000 BL @RF00456 0456 03370000 CH @15,@CH00374 0456 03371000 BH @RF00456 0456 03372000 @RT00456 DS 0H 0457 03373000 *VALIDINF: DO; 0457 03374000 * 0457 03375000 VALIDINF DS 0H 0458 03376000 */* IF REQUEST IS FOR ACCESS OF VOLIB CONTENTS */ 03377000 * IF INFOKEY >= VOLLOW & INFOKEY <= VOLHIGH 0458 03378000 * 0458 03379000 */* THEN */ 03380000 * THEN 0458 03381000 * 0458 03382000 L @15,@PC00001+8 0458 03383000 L @15,INFOKEY(,@15) 0458 03384000 CH @15,@CH00174 0458 03385000 BL @RF00458 0458 03386000 CH @15,@CH00272 0458 03387000 BH @RF00458 0458 03388000 *VOLINFO:DO; 0459 03389000 * 0459 03390000 VOLINFO DS 0H 0460 03391000 */* SELECT PER INFORMATION REQUEST TYPE (INFOKEY) */ 03392000 * VOLSEL: DO; 0460 03393000 VOLSEL DS 0H 0461 03394000 * DECLARE VOLSELS (10) 0461 03395000 * POINTER(31) STATIC LOCAL 0461 03396000 * INIT (ADDR (VOL01) /* VOLDNAME */ 03397000 * ,ADDR (VOL02) /* VOLCUU */ 03398000 * ,ADDR (VOL03) /* VOLNTYP */ 03399000 * ,ADDR (VOL04) /* VOLSTATE */ 03400000 * ,ADDR (VOL05) /* VOLAMAPF */ 03401000 * ,ADDR (VOL06) /* VOLAMAPL */ 03402000 * ,ADDR (VOL07) /* VOLIOB */ 03403000 * ,ADDR (VOL08) /* VOLPRVOL */ 03404000 * ,ADDR (VOL09) /* VOLFINIT */ 03405000 * ,ADDR (VOL10) /* VOLDTYP4 */ 03406000 * ); 0461 03407000 * GOTO VOLSELS (INFOKEY); 0462 03408000 * 0462 03409000 L @15,@PC00001+8 0462 03410000 L @15,INFOKEY(,@15) 0462 03411000 SLA @15,2 0462 03412000 L @15,VOLSELS-4(@15) 0462 03413000 BR @15 0462 03414000 */* WHEN REQUEST IS FOR DD-NAME (VOLDNAME) */ 03415000 * VOL01: DO; 0463 03416000 VOL01 DS 0H 0464 03417000 */* YIELD INFORMATION */ 03418000 * INFOLEN = LENGTH(VLDNMCUU); 0464 03419000 L @15,@PC00001+20 0464 03420000 MVC INFOLEN(4,@15),@CF00170 0464 03421000 * CALL SETINFO(VLDNMCUU); 0465 03422000 L @15,@PC00001+4 0465 03423000 L @01,VOLIBPTR(,@15) 0465 03424000 LA @15,VLDNMCUU(,@01) 0465 03425000 ST @15,@AL00001 0465 03426000 LA @01,@AL00001 0465 03427000 BAL @14,SETINFO 0465 03428000 * GOTO ENDVOL; 0466 03429000 B ENDVOL 0466 03430000 * END; 0467 03431000 * 0467 03432000 */* WHEN REQUEST ID FOR CUU (VOLCUU) */ 03433000 * VOL02: DO; 0468 03434000 VOL02 DS 0H 0469 03435000 */* YIELD INFORMATION */ 03436000 * INFOLEN = LENGTH(VLDNMCUU); 0469 03437000 L @15,@PC00001+20 0469 03438000 MVC INFOLEN(4,@15),@CF00170 0469 03439000 * CALL SETINFO(VLDNMCUU); 0470 03440000 L @15,@PC00001+4 0470 03441000 L @01,VOLIBPTR(,@15) 0470 03442000 LA @15,VLDNMCUU(,@01) 0470 03443000 ST @15,@AL00001 0470 03444000 LA @01,@AL00001 0470 03445000 BAL @14,SETINFO 0470 03446000 * GOTO ENDVOL; 0471 03447000 B ENDVOL 0471 03448000 * END; 0472 03449000 * 0472 03450000 */* WHEN REQUEST IS FOR VOLUME DEVICE-TYPE (VOLNTYP) */ 03451000 * VOL03: DO; 0473 03452000 VOL03 DS 0H 0474 03453000 */* YIELD INFORMATION */ 03454000 * INFOLEN = LENGTH(VLNTYP); 0474 03455000 L @15,@PC00001+20 0474 03456000 MVC INFOLEN(4,@15),@CF00174 0474 03457000 * CALL SETINFO(VLNTYP); 0475 03458000 L @15,@PC00001+4 0475 03459000 L @01,VOLIBPTR(,@15) 0475 03460000 LA @15,VLNTYP(,@01) 0475 03461000 ST @15,@AL00001 0475 03462000 LA @01,@AL00001 0475 03463000 BAL @14,SETINFO 0475 03464000 * GOTO ENDVOL; 0476 03465000 B ENDVOL 0476 03466000 * END; 0477 03467000 * 0477 03468000 */* WHEN REQUEST IS FOR VOLUME STATUS (VOLSTATE) */ 03469000 * VOL04: DO; 0478 03470000 VOL04 DS 0H 0479 03471000 */* YIELD INFORMATION */ 03472000 * INFOLEN = LENGTH(VLSTATE); 0479 03473000 L @15,@PC00001+20 0479 03474000 MVC INFOLEN(4,@15),@CF00174 0479 03475000 * CALL SETINFO(VLSTATE); 0480 03476000 L @15,@PC00001+4 0480 03477000 L @01,VOLIBPTR(,@15) 0480 03478000 LA @15,VLSTATE(,@01) 0480 03479000 ST @15,@AL00001 0480 03480000 LA @01,@AL00001 0480 03481000 BAL @14,SETINFO 0480 03482000 * GOTO ENDVOL; 0481 03483000 B ENDVOL 0481 03484000 * END; 0482 03485000 * 0482 03486000 */* WHEN REQUEST IS FOR FIRST MAP POINTER (VOLAMAPF) */ 03487000 * VOL05: DO; 0483 03488000 VOL05 DS 0H 0484 03489000 */* YIELD INFORMATION */ 03490000 * INFOLEN = LENGTH(VLMAPF); 0484 03491000 L @15,@PC00001+20 0484 03492000 MVC INFOLEN(4,@15),@CF00053 0484 03493000 * CALL SETINFO(VLMAPF); 0485 03494000 L @15,@PC00001+4 0485 03495000 L @01,VOLIBPTR(,@15) 0485 03496000 LA @15,VLMAPF(,@01) 0485 03497000 ST @15,@AL00001 0485 03498000 LA @01,@AL00001 0485 03499000 BAL @14,SETINFO 0485 03500000 * GOTO ENDVOL; 0486 03501000 B ENDVOL 0486 03502000 * END; 0487 03503000 * 0487 03504000 */* WHEN REQUEST IS FOR LAST MAP POINTER (VOLAMAPL) */ 03505000 * VOL06: DO; 0488 03506000 VOL06 DS 0H 0489 03507000 */* YIELD INFORMATION */ 03508000 * INFOLEN = LENGTH(VLMAPL); 0489 03509000 L @15,@PC00001+20 0489 03510000 MVC INFOLEN(4,@15),@CF00053 0489 03511000 * CALL SETINFO(VLMAPL); 0490 03512000 L @15,@PC00001+4 0490 03513000 L @01,VOLIBPTR(,@15) 0490 03514000 LA @15,VLMAPL(,@01) 0490 03515000 ST @15,@AL00001 0490 03516000 LA @01,@AL00001 0490 03517000 BAL @14,SETINFO 0490 03518000 * GOTO ENDVOL; 0491 03519000 B ENDVOL 0491 03520000 * END; 0492 03521000 * 0492 03522000 */* WHEN REQUEST IS FOR POINTER TO IOB (VOLIOB) */ 03523000 * VOL07: DO; 0493 03524000 VOL07 DS 0H 0494 03525000 */* YIELD INFORMATION */ 03526000 * INFOLEN = LENGTH(VLIOBPTR); 0494 03527000 L @15,@PC00001+20 0494 03528000 MVC INFOLEN(4,@15),@CF00053 0494 03529000 * CALL SETINFO(VLIOBPTR); 0495 03530000 L @15,@PC00001+4 0495 03531000 L @01,VOLIBPTR(,@15) 0495 03532000 LA @15,VLIOBPTR(,@01) 0495 03533000 ST @15,@AL00001 0495 03534000 LA @01,@AL00001 0495 03535000 BAL @14,SETINFO 0495 03536000 * GOTO ENDVOL; 0496 03537000 B ENDVOL 0496 03538000 * END; 0497 03539000 * 0497 03540000 */* WHEN REQUEST IS FOR PRIVATE VOLUME FLAG (VOLPRVOL) */ 03541000 * VOL08: DO; 0498 03542000 VOL08 DS 0H 0499 03543000 */* YIELD INFORMATION */ 03544000 * INFOLEN = LENGTH(VLPRVOL); 0499 03545000 L @15,@PC00001+20 0499 03546000 MVC INFOLEN(4,@15),@CF00174 0499 03547000 * CALL SETINFO(VLPRVOL); 0500 03548000 L @15,@PC00001+4 0500 03549000 L @01,VOLIBPTR(,@15) 0500 03550000 LA @15,VLPRVOL(,@01) 0500 03551000 ST @15,@AL00001 0500 03552000 LA @01,@AL00001 0500 03553000 BAL @14,SETINFO 0500 03554000 * GOTO ENDVOL; 0501 03555000 B ENDVOL 0501 03556000 * END; 0502 03557000 * 0502 03558000 */* WHEN REQUEST IS FOR FIRST-TIME INIT FLAG (VOLFINIT) */ 03559000 * VOL09: DO; 0503 03560000 VOL09 DS 0H 0504 03561000 */* YIELD INFORMATION */ 03562000 * INFOLEN = LENGTH(VLFINIT); 0504 03563000 L @15,@PC00001+20 0504 03564000 MVC INFOLEN(4,@15),@CF00174 0504 03565000 * CALL SETINFO(VLFINIT); 0505 03566000 L @15,@PC00001+4 0505 03567000 L @01,VOLIBPTR(,@15) 0505 03568000 LA @15,VLFINIT(,@01) 0505 03569000 ST @15,@AL00001 0505 03570000 LA @01,@AL00001 0505 03571000 BAL @14,SETINFO 0505 03572000 * GOTO ENDVOL; 0506 03573000 B ENDVOL 0506 03574000 * END; 0507 03575000 * 0507 03576000 */* WHEN REQUEST IS FOR DEVICE TYPE (VOLDTYP4) */ 03577000 * VOL10: DO; 0508 03578000 VOL10 DS 0H 0509 03579000 */* YIELD INFORMATION */ 03580000 * INFOLEN = LENGTH(VLUCBDT); 0509 03581000 L @15,@PC00001+20 0509 03582000 MVC INFOLEN(4,@15),@CF00053 0509 03583000 * CALL SETINFO(VLUCBDT); 0510 03584000 L @15,@PC00001+4 0510 03585000 L @01,VOLIBPTR(,@15) 0510 03586000 LA @15,VLUCBDT(,@01) 0510 03587000 ST @15,@AL00001 0510 03588000 LA @01,@AL00001 0510 03589000 BAL @14,SETINFO 0510 03590000 * GOTO ENDVOL; 0511 03591000 B ENDVOL 0511 03592000 * END; 0512 03593000 * 0512 03594000 */* END-SELECT */ 03595000 * ENDVOL: END VOLSEL; 0513 03596000 * 0513 03597000 ENDVOL DS 0H 0514 03598000 */* END-THEN */ 03599000 * END VOLINFO; 0514 03600000 * 0514 03601000 * 0514 03602000 */* IF REQUEST IS FOR STORE INTO VOLIB DATA */ 03603000 * IF INFOKEY >= VOLSLOW & INFOKEY <= VOLSHIGH 0515 03604000 * 0515 03605000 */* THEN */ 03606000 * THEN 0515 03607000 * 0515 03608000 @RF00458 L @15,@PC00001+8 0515 03609000 L @15,INFOKEY(,@15) 0515 03610000 CH @15,@CH00331 0515 03611000 BL @RF00515 0515 03612000 CH @15,@CH00334 0515 03613000 BH @RF00515 0515 03614000 *VOLSINFO: DO; 0516 03615000 * 0516 03616000 VOLSINFO DS 0H 0517 03617000 */* SELECT PER INFORMATION STORAGE REQUEST TYPE */ 03618000 * SVOLSEL: DO; 0517 03619000 SVOLSEL DS 0H 0518 03620000 * DECLARE SVOLSELS (2) 0518 03621000 * POINTER(31) STATIC LOCAL 0518 03622000 * INIT (ADDR (SVOL01) /* VOLSMAPF */ 03623000 * ,ADDR (SVOL02) /* VOLSMAPL */ 03624000 * ); 0518 03625000 * GOTO SVOLSELS (INFOKEY - (VOLSLOW - 1)); 0519 03626000 * 0519 03627000 L @15,@PC00001+8 0519 03628000 L @15,INFOKEY(,@15) 0519 03629000 SLA @15,2 0519 03630000 L @15,SVOLSELS-420(@15) 0519 03631000 BR @15 0519 03632000 */* WHEN REQUEST IS FIRST MAP ENTRY POINTER (VOLSMAPF) */ 03633000 * SVOL01: DO; 0520 03634000 SVOL01 DS 0H 0521 03635000 */* SET INFORMATION INTO VOLIB */ 03636000 * VLMAPF(1:LENGTH(VLMAPF)) = INFOTRG(1:LENGTH(VLMAPF)) 03637000 L @15,@PC00001+4 0521 03638000 L @01,VOLIBPTR(,@15) 0521 03639000 L @15,@PC00001+16 0521 03640000 L @15,INFOPTR(,@15) 0521 03641000 MVC VLMAPF(4,@01),INFOTRG(@15) 0521 03642000 * GOTO ENDVOLS; 0522 03643000 B ENDVOLS 0522 03644000 * END; 0523 03645000 * 0523 03646000 */* WHEN REQUEST IS LAST MAP ENTRY POINTER (VOLSMAPL) */ 03647000 * SVOL02: DO; 0524 03648000 SVOL02 DS 0H 0525 03649000 */* SET INFORMATION INTO VOLIB */ 03650000 * VLMAPL(1:LENGTH(VLMAPL)) = INFOTRG(1:LENGTH(VLMAPL)) 03651000 L @15,@PC00001+4 0525 03652000 L @01,VOLIBPTR(,@15) 0525 03653000 L @15,@PC00001+16 0525 03654000 L @15,INFOPTR(,@15) 0525 03655000 MVC VLMAPL(4,@01),INFOTRG(@15) 0525 03656000 * GOTO ENDVOLS; 0526 03657000 B ENDVOLS 0526 03658000 * END; 0527 03659000 * 0527 03660000 */* END-SELECT */ 03661000 * ENDVOLS: END SVOLSEL; 0528 03662000 * 0528 03663000 ENDVOLS DS 0H 0529 03664000 */* END-THEN */ 03665000 * END VOLSINFO; 0529 03666000 * 0529 03667000 */* IF REQUEST IS FOR ACCESS TO DIT CONTENTS */ 03668000 * IF INFOKEY >= DEVLOW & INFOKEY <= DEVHIGH 0530 03669000 * 0530 03670000 */* THEN */ 03671000 * THEN 0530 03672000 @RF00515 L @15,@PC00001+8 0530 03673000 L @15,INFOKEY(,@15) 0530 03674000 CH @15,@CH00337 0530 03675000 BL @RF00530 0530 03676000 CH @15,@CH00374 0530 03677000 BH @RF00530 0530 03678000 *DEVINFO: DO; 0531 03679000 * 0531 03680000 DEVINFO DS 0H 0532 03681000 */* OBTAIN INFO POINTER FROM TABLE OF DEVICES SUPPORTED */ 03682000 * INFOVPTR = DEVICES (VLDEVIND); 0532 03683000 * 0532 03684000 L @15,@PC00001+4 0532 03685000 L @01,VOLIBPTR(,@15) 0532 03686000 SLR @15,@15 0532 03687000 IC @15,VLDEVIND(,@01) 0532 03688000 SLA @15,2 0532 03689000 L INFOVPTR,DEVICES-4(@15) 0532 03690000 */* IF DEVICE IS SUPPORTED */ 03691000 * IF INFOVPTR ^= NULLPTR 0533 03692000 * 0533 03693000 */* THEN OBTAIN INFO-ELEMENT POINTER FROM INFO. VECTOR */ 03694000 * THEN DO; 0533 03695000 SLR @02,@02 0533 03696000 CR INFOVPTR,@02 0533 03697000 BE @RF00533 0533 03698000 * INFOEPTR = INFOVECT (INFOKEY-(DEVLOW-1)); 0535 03699000 * 0535 03700000 L @15,@PC00001+8 0535 03701000 L @15,INFOKEY(,@15) 0535 03702000 SLA @15,2 0535 03703000 AL @15,@CF01806 0535 03704000 L INFOEPTR,INFOVECT(@15,INFOVPTR) 0535 03705000 */* IF INFORMATION ELEMENT EXISTS */ 03706000 * IF INFOEPTR ^= NULLPTR 0536 03707000 * 0536 03708000 */* THEN PROCESS REQUESTED DATA */ 03709000 * THEN DO; 0536 03710000 SLR @03,@03 0536 03711000 CR INFOEPTR,@03 0536 03712000 BE @RF00536 0536 03713000 * INFOLEN = INFOSIZE; 0538 03714000 L @15,@PC00001+20 0538 03715000 LH @14,INFOSIZE(,INFOEPTR) 0538 03716000 ST @14,INFOLEN(,@15) 0538 03717000 * CALL ICKSAGP0 (GDTTBL, INFOLEN, INFOPTR, POOLID); 03718000 L @14,@PC00001 0539 03719000 ST @14,@AL00001 0539 03720000 ST @15,@AL00001+4 0539 03721000 L @15,@PC00001+16 0539 03722000 ST @15,@AL00001+8 0539 03723000 L @15,@PC00001+12 0539 03724000 ST @15,@AL00001+12 0539 03725000 MVI @AL00001+12,X'80' 0539 03726000 L @15,GDTGPL(,@14) 0539 03727000 LA @01,@AL00001 0539 03728000 BALR @14,@15 0539 03729000 * RESPECIFY RTNREG RSTD; 0540 03730000 * TESTRC = RTNREG; 0541 03731000 LR TESTRC,RTNREG 0541 03732000 * RESPECIFY RTNREG UNRSTD; 0542 03733000 * IF TESTRC = 4 0543 03734000 * THEN 0543 03735000 CH TESTRC,@CH00053 0543 03736000 BNE @RF00543 0543 03737000 * DO; 0544 03738000 * RESPECIFY(REG13,REG14,REG15) RSTD; 0545 03739000 * REG15 = 28; 0546 03740000 LA REG15,28 0546 03741000 * REG14 = GDTABT; 0547 03742000 L @03,@PC00001 0547 03743000 L REG14,GDTABT(,@03) 0547 03744000 * REG13 = GDTABH; 0548 03745000 L REG13,GDTABH(,@03) 0548 03746000 * GEN(BR REG14); 0549 03747000 BR REG14 03748000 * RESPECIFY(REG13,REG14,REG15)UNRSTD; 0550 03749000 * END; 0551 03750000 * 0551 03751000 */* IF INFO. IS OF TYPE DATA */ 03752000 * IF INFOTYP = INFOTYPD 0552 03753000 * 0552 03754000 */* THEN OBTAIN DATA REQUESTED DIRECTLY */ 03755000 * THEN INFOTRG(1:INFOSIZE) = INFOVAL(1:INFOSIZE); 03756000 * 0552 03757000 @RF00543 CLC INFOTYP(2,INFOEPTR),INFOTYPD 0552 03758000 BNE @RF00552 0552 03759000 L @03,@PC00001+16 0553 03760000 L @03,INFOPTR(,@03) 0553 03761000 LH @15,INFOSIZE(,INFOEPTR) 0553 03762000 BCTR @15,0 0553 03763000 EX @15,@SM01807 0553 03764000 */* ELSE IF INFO. IS OF TYPE ADDRESS */ 03765000 * ELSE IF INFOTYP = INFOTYPA 0554 03766000 * 0554 03767000 */* THEN OBTAIN DATA REQUESTED VIA ADDRESS */ 03768000 * THEN INFOTRG(1:INFOSIZE) = INFOSRC(1:INFOSIZE) 03769000 * 0554 03770000 B @RC00552 0554 03771000 @RF00552 CLC INFOTYP(2,INFOEPTR),INFOTYPA 0554 03772000 BNE @RF00554 0554 03773000 L @03,@PC00001+16 0555 03774000 L @03,INFOPTR(,@03) 0555 03775000 LH @15,INFOSIZE(,INFOEPTR) 0555 03776000 BCTR @15,0 0555 03777000 L @01,INFOADDR(,INFOEPTR) 0555 03778000 EX @15,@SM01809 0555 03779000 */* ELSE ABORT - INFO-TYPE IS ILLEGAL */ 03780000 * ELSE 0556 03781000 * DO; 0556 03782000 B @RC00554 0556 03783000 @RF00554 DS 0H 0557 03784000 * RESPECIFY(REG13,REG14,REG15) RSTD; 03785000 * REG15 = 64; 0558 03786000 LA REG15,64 0558 03787000 * REG14 = GDTABT; 0559 03788000 L @09,@PC00001 0559 03789000 L REG14,GDTABT(,@09) 0559 03790000 * REG13 = GDTABH; 0560 03791000 L REG13,GDTABH(,@09) 0560 03792000 * GEN(BR REG14); 0561 03793000 BR REG14 03794000 * RESPECIFY(REG13,REG14,REG15)UNRSTD; 03795000 * END; 0563 03796000 * 0563 03797000 */* END-THEN */ 03798000 * END; 0564 03799000 * 0564 03800000 */* ELSE ABORT (INFO ELEMENT DOES NOT EXIST) */ 03801000 * ELSE 0565 03802000 * DO; 0565 03803000 B @RC00536 0565 03804000 @RF00536 DS 0H 0566 03805000 * RESPECIFY(REG13,REG14,REG15) RSTD; 0566 03806000 * REG15 = 68; 0567 03807000 LA REG15,68 0567 03808000 * REG14 = GDTABT; 0568 03809000 L @09,@PC00001 0568 03810000 L REG14,GDTABT(,@09) 0568 03811000 * REG13 = GDTABH; 0569 03812000 L REG13,GDTABH(,@09) 0569 03813000 * GEN(BR REG14); 0570 03814000 BR REG14 03815000 * RESPECIFY(REG13,REG14,REG15)UNRSTD; 0571 03816000 * END; 0572 03817000 * 0572 03818000 */* END-THEN */ 03819000 * END; 0573 03820000 * 0573 03821000 */* ELSE ABORT (DEVICE UNSUPPORTED) */ 03822000 * ELSE 0574 03823000 * DO; 0574 03824000 B @RC00533 0574 03825000 @RF00533 DS 0H 0575 03826000 * RESPECIFY(REG13,REG14,REG15) RSTD; 0575 03827000 * REG15 = 72; 0576 03828000 LA REG15,72 0576 03829000 * REG14 = GDTABT; 0577 03830000 L @09,@PC00001 0577 03831000 L REG14,GDTABT(,@09) 0577 03832000 * REG13 = GDTABH; 0578 03833000 L REG13,GDTABH(,@09) 0578 03834000 * GEN(BR REG14); 0579 03835000 BR REG14 03836000 * RESPECIFY(REG13,REG14,REG15)UNRSTD; 0580 03837000 * END; 0581 03838000 * 0581 03839000 */* END-THEN (ACCESS OF DIT) */ 03840000 * END DEVINFO; 0582 03841000 * 0582 03842000 */* END-THEN INFO-KEY IS VALID */ 03843000 * END VALIDINF; 0583 03844000 * 0583 03845000 */* ELSE INFO-KEY IS INVALID */ 03846000 * ELSE 0584 03847000 * DO; 0584 03848000 B @RC00456 0584 03849000 @RF00456 DS 0H 0585 03850000 * RESPECIFY(REG13,REG14,REG15) RSTD; 0585 03851000 * REG15 = 76; 0586 03852000 LA REG15,76 0586 03853000 * REG14 = GDTABT; 0587 03854000 L @09,@PC00001 0587 03855000 L REG14,GDTABT(,@09) 0587 03856000 * REG13 = GDTABH; 0588 03857000 L REG13,GDTABH(,@09) 0588 03858000 * GEN(BR REG14); 0589 03859000 BR REG14 03860000 * RESPECIFY(REG13,REG14,REG15)UNRSTD; 0590 03861000 * END; 0591 03862000 * 0591 03863000 * 0591 03864000 * IF GDTDBG = NULLPTR 0592 03865000 * THEN; 0592 03866000 @RC00456 L @15,@PC00001 0592 03867000 L @15,GDTDBG(,@15) 0592 03868000 LTR @15,@15 0592 03869000 BZ @RT00592 0592 03870000 * ELSE 0594 03871000 * CALL ICKDB010 (GDTTBL, 'DV29'); 0594 03872000 L @15,@PC00001 0594 03873000 ST @15,@AL00001 0594 03874000 LA @14,@CC01796 0594 03875000 ST @14,@AL00001+4 0594 03876000 MVI @AL00001+4,X'80' 0594 03877000 L @15,GDTDBG(,@15) 0594 03878000 LA @01,@AL00001 0594 03879000 BALR @14,@15 0594 03880000 * CALL ICKSAEP0(GDTTBL,MODID); 0595 03881000 * 0595 03882000 * 0595 03883000 * 0595 03884000 * 0595 03885000 @RT00592 L @15,@PC00001 0595 03886000 ST @15,@AL00001 0595 03887000 LA @14,MODID 0595 03888000 ST @14,@AL00001+4 0595 03889000 MVI @AL00001+4,X'80' 0595 03890000 L @15,GDTEPL(,@15) 0595 03891000 LA @01,@AL00001 0595 03892000 BALR @14,@15 0595 03893000 EJECT 03894000 */***** START OF SPECIFICATIONS *******************MINIPP***********/ 03895000 */* */ 03896000 */* SUB-PROCEDURE NAME: SETINFO */ 03897000 */* */ 03898000 */* DESCRIPTIVE NAME: SET INFORMATION FOR INVOKER */ 03899000 */* */ 03900000 */* FUNCTION: */ 03901000 */* */ 03902000 */* THIS SUB-PROCEDURE PROCESSES THE INFORMATION REQUESTED */ 03903000 */* AND THUS SETS THE 'RETURNED-DATA' POINTER (INFOPTR). */ 03904000 */* */ 03905000 */* */ 03906000 */***** END OF SPECIFICATIONS **************************************/ 03907000 * 0596 03908000 * 0596 03909000 */* SUB-PROCEDURE SET_INFORMATION_FOR_INVOKER */ 03910000 */* */ 03911000 * SETINFO: 0596 03912000 * PROCEDURE 0596 03913000 * ( 0596 03914000 * INFOITEM /* INFORMATION VALUE BEING RETURNED */ 03915000 * ); 0596 03916000 * 0596 03917000 B @PB00002 0596 03918000 SETINFO STM @14,@12,@SA00002 0596 03919000 MVC @PC00002(4),0(@01) 0596 03920000 * DECLARE 0597 03921000 * INFOITEM CHAR(*); 0597 03922000 * 0597 03923000 * OLDERID2 = NEWERID2; 0598 03924000 L @02,@PC00001 0598 03925000 L @15,GDTTR2(,@02) 0598 03926000 MVC @TS00001(95),NEWERID2(@15) 0598 03927000 MVC OLDERID2(95,@15),@TS00001 0598 03928000 * NEWID2 = 'DVSI'; 0599 03929000 * 0599 03930000 * 0599 03931000 MVC NEWID2(4,@15),@CC01802 0599 03932000 */* ACQUIRE POOL SPACE FOR THE ITEM BEING RETURNED TO INVOKER */ 03933000 * CALL ICKSAGP0 (GDTTBL, INFOLEN, INFOPTR, POOLID); 0600 03934000 ST @02,@AL00001 0600 03935000 L @15,@PC00001+20 0600 03936000 ST @15,@AL00001+4 0600 03937000 L @15,@PC00001+16 0600 03938000 ST @15,@AL00001+8 0600 03939000 L @15,@PC00001+12 0600 03940000 ST @15,@AL00001+12 0600 03941000 MVI @AL00001+12,X'80' 0600 03942000 L @15,GDTGPL(,@02) 0600 03943000 LA @01,@AL00001 0600 03944000 BALR @14,@15 0600 03945000 * RESPECIFY RTNREG RSTD; 0601 03946000 * TESTRC = RTNREG; 0602 03947000 LR TESTRC,RTNREG 0602 03948000 * RESPECIFY RTNREG UNRSTD; 0603 03949000 * IF TESTRC = 4 0604 03950000 * THEN 0604 03951000 CH TESTRC,@CH00053 0604 03952000 BNE @RF00604 0604 03953000 * DO; 0605 03954000 * RESPECIFY(REG13,REG14,REG15) RSTD; 0606 03955000 * REG15 = 28; 0607 03956000 LA REG15,28 0607 03957000 * REG14 = GDTABT; 0608 03958000 L @09,@PC00001 0608 03959000 L REG14,GDTABT(,@09) 0608 03960000 * REG13 = GDTABH; 0609 03961000 L REG13,GDTABH(,@09) 0609 03962000 * GEN(BR REG14); 0610 03963000 BR REG14 03964000 * RESPECIFY(REG13,REG14,REG15)UNRSTD; 0611 03965000 * END; 0612 03966000 * 0612 03967000 */* PLACE THE REQUESTED INFO THEREIN */ 03968000 * INFOTRG(1:INFOLEN) = INFOITEM(1:INFOLEN); 0613 03969000 * 0613 03970000 @RF00604 L @15,@PC00001+16 0613 03971000 L @01,INFOPTR(,@15) 0613 03972000 L @15,@PC00001+20 0613 03973000 L @15,INFOLEN(,@15) 0613 03974000 BCTR @15,0 0613 03975000 L @14,@PC00002 0613 03976000 EX @15,@SM01811 0613 03977000 */* END-SUB-PROCEDURE SET_INFORMATION_FOR_INVOKER */ 03978000 * END SETINFO; 0614 03979000 * 0614 03980000 * 0614 03981000 * 0614 03982000 @EL00002 DS 0H 0614 03983000 @EF00002 DS 0H 0614 03984000 @ER00002 LM @14,@12,@SA00002 0614 03985000 BR @14 0614 03986000 @PB00002 DS 0H 0614 03987000 */* THE FOLLOWING DATUM IS FOR USE BY THE SYSTEM ADAPTER: */ 03988000 */* IT SPECIFIES THE SIZE OF THIS MODULE'S AUTOMATIC STORAGE, */ 03989000 */* SUCH THAT THE SYSTEM ADAPTER CAN ALLOCATE IT ONCE AND ONCE */ 03990000 */* ONLY, DURING DMS INITIALIZATION. */ 03991000 * 0615 03992000 * GENERATE DATA; 0615 03993000 * 0615 03994000 */* END-PROCEDURE OBTAIN_DEVICE_INFORMATION */ 03995000 * 0616 03996000 * 0616 03997000 * END ICKDV02 0616 03998000 */* THE FOLLOWING INCLUDE STATEMENTS WERE FOUND IN THIS PROGRAM. * 03999000 */*%INCLUDE SYSLIB (DMSDF01 ) * 04000000 */*%INCLUDE SYSLIB (DMSDF00 ) * 04001000 */*@INCLUDE SYSLIB (DMSDF02 ) * 04002000 */*%INCLUDE SYSLIB (DMSDF10 ) * 04003000 *; 0616 04004000 @DATA DS 0H 04005000 @CH00272 DC H'11' 04006000 @CH00331 DC H'105' 04007000 @CH00334 DC H'106' 04008000 @CH00337 DC H'201' 04009000 @CH00374 DC H'219' 04010000 @SM01807 MVC INFOTRG(0,@03),INFOVAL(INFOEPTR) 04011000 @SM01809 MVC INFOTRG(0,@03),INFOSRC(@01) 04012000 @SM01811 MVC INFOTRG(0,@01),INFOITEM(@14) 04013000 @DATD DSECT 04014000 DS 0F 04015000 @SA00001 DS 18F 04016000 @PC00001 DS 7F 04017000 @SA00002 DS 15F 04018000 @PC00002 DS 1F 04019000 @AL00001 DS 4A 04020000 @ZTEMPS DS C 04021000 @ZTEMPND EQU * 04022000 @ZLEN EQU @ZTEMPND-@ZTEMPS 04023000 ICKDV02 CSECT 04024000 DS 0F 04025000 @CF00174 DC F'1' 04026000 @CH00174 EQU @CF00174+2 04027000 @CF00053 DC F'4' 04028000 @CH00053 EQU @CF00053+2 04029000 @CF00170 DC F'8' 04030000 @CF01806 DC F'-804' 04031000 @DATD DSECT 04032000 DS 0D 04033000 LISTSCAN DS A 04034000 IOCSPTR DS A 04035000 OPNPTR DS A 04036000 DDSTRU DS A 04037000 FSADDR DS A 04038000 DMPINDEX DS A 04039000 APIPTR DS A 04040000 DATAPTR DS A 04041000 LISTPTR DS A 04042000 SETRC DS H 04043000 LISTLN DS FL1 04044000 @TS00001 DS CL95 04045000 ICKDV02 CSECT 04046000 DS 0F 04047000 @SIZDATD DC AL1(0) 04048000 DC AL3(@ENDDATD-@DATD) 04049000 DS 0D 04050000 @CC01750 DC C'DV20' 04051000 @CC01796 DC C'DV29' 04052000 @CC01802 DC C'DVSI' 04053000 MODID DC CL4'DV02' 04054000 INFOTYPD DC CL2'D ' 04055000 INFOTYPA DC CL2'A ' 04056000 IPLBOOTW DS CL36 04057000 ORG IPLBOOTW 04058000 @NM00026 DS CL12 04059000 ORG @NM00026 04060000 @NM00027 DC X'0000000001040018' 04061000 @NM00028 DC CL4'IPL1' 04062000 ORG IPLBOOTW+12 04063000 @NM00029 DC X'000600000000000F' 04064000 @NM00030 DC X'0300000000000001' 04065000 @NM00031 DC X'0000000000000000' 04066000 ORG IPLBOOTW+36 04067000 IPLBOOT1 DS CL36 04068000 ORG IPLBOOT1 04069000 @NM00032 DS CL12 04070000 ORG @NM00032 04071000 @NM00033 DC X'0000000001040018' 04072000 @NM00034 DC CL4'IPL1' 04073000 ORG IPLBOOT1+12 04074000 @NM00035 DC X'0000000000000000' 04075000 @NM00036 DC X'06003A9860000060' 04076000 @NM00037 DC X'08003A9800000000' 04077000 ORG IPLBOOT1+36 04078000 IPLBOOT2 DS CL156 04079000 ORG IPLBOOT2 04080000 @NM00038 DS CL12 04081000 ORG @NM00038 04082000 @NM00039 DC X'0000000002040090' 04083000 @NM00040 DC CL4'IPL2' 04084000 ORG IPLBOOT2+12 04085000 @NM00041 DC X'07003AB840000006' 04086000 @NM00042 DC X'31003ABE40000005' 04087000 @NM00043 DC X'08003AA000000000' 04088000 @NM00044 DC X'0600000020000000' 04089000 @NM00045 DC X'000000000000' 04090000 @NM00046 DC X'0000000004' 04091000 @NM00047 DC 101X'00' 04092000 ORG IPLBOOT2+156 04093000 DSCB4DC1 DS CL14 04094000 ORG DSCB4DC1 04095000 @NM00048 DC AL2(203) 04096000 @NM00049 DC AL2(20) 04097000 @NM00050 DC AL2(7294) 04098000 @NM00051 DC AL1(146) 04099000 @NM00052 DC AL1(45) 04100000 @NM00053 DC AL1(45) 04101000 @NM00054 DC X'01' 04102000 @NM00055 DC AL2(534) 04103000 @NM00056 DC AL1(25) 04104000 @NM00057 DC AL1(17) 04105000 ORG DSCB4DC1+14 04106000 DSCB4DC2 DS CL14 04107000 ORG DSCB4DC2 04108000 @NM00058 DC AL2(48) 04109000 @NM00059 DC AL2(8) 04110000 @NM00060 DC AL2(14568) 04111000 @NM00061 DC AL1(2) 04112000 @NM00062 DC AL1(122) 04113000 @NM00063 DC AL1(202) 04114000 @NM00064 DC X'09' 04115000 @NM00065 DC AL2(512) 04116000 @NM00066 DC AL1(18) 04117000 @NM00067 DC AL1(16) 04118000 ORG DSCB4DC2+14 04119000 DSCB4DC3 DS CL14 04120000 ORG DSCB4DC3 04121000 @NM00068 DC AL2(96) 04122000 @NM00069 DC AL2(8) 04123000 @NM00070 DC AL2(14858) 04124000 @NM00071 DC AL1(1) 04125000 @NM00072 DC AL1(33) 04126000 @NM00073 DC AL1(91) 04127000 @NM00074 DC X'09' 04128000 @NM00075 DC AL2(512) 04129000 @NM00076 DC AL1(34) 04130000 @NM00077 DC AL1(26) 04131000 ORG DSCB4DC3+14 04132000 DSCB4DC4 DS CL14 04133000 ORG DSCB4DC4 04134000 @NM00078 DC AL2(411) 04135000 @NM00079 DC AL2(19) 04136000 @NM00080 DC AL2(13165) 04137000 @NM00081 DC AL1(191) 04138000 @NM00082 DC AL1(191) 04139000 @NM00083 DC AL1(56) 04140000 @NM00084 DC X'01' 04141000 @NM00085 DC AL2(512) 04142000 @NM00086 DC AL1(39) 04143000 @NM00087 DC AL1(28) 04144000 ORG DSCB4DC4+14 04145000 DSCB4DC5 DS CL14 04146000 ORG DSCB4DC5 04147000 @NM00088 DC AL2(815) 04148000 @NM00089 DC AL2(19) 04149000 @NM00090 DC AL2(13165) 04150000 @NM00091 DC AL1(191) 04151000 @NM00092 DC AL1(191) 04152000 @NM00093 DC AL1(56) 04153000 @NM00094 DC X'01' 04154000 @NM00095 DC AL2(512) 04155000 @NM00096 DC AL1(39) 04156000 @NM00097 DC AL1(28) 04157000 ORG DSCB4DC5+14 04158000 DSCB4DC6 DS CL14 04159000 ORG DSCB4DC6 04160000 @NM00098 DC AL2(349) 04161000 @NM00099 DC AL2(12) 04162000 @NM00100 DC AL2(8535) 04163000 @NM00101 DC AL1(242) 04164000 @NM00102 DC AL1(242) 04165000 @NM00103 DC AL1(75) 04166000 @NM00104 DC X'01' 04167000 @NM00105 DC AL2(512) 04168000 @NM00106 DC AL1(22) 04169000 @NM00107 DC AL1(16) 04170000 ORG DSCB4DC6+14 04171000 DSCB4DC7 DS CL14 04172000 ORG DSCB4DC7 04173000 @NM00108 DC AL2(698) 04174000 @NM00109 DC AL2(12) 04175000 @NM00110 DC AL2(8535) 04176000 @NM00111 DC AL1(242) 04177000 @NM00112 DC AL1(242) 04178000 @NM00113 DC AL1(75) 04179000 @NM00114 DC X'01' 04180000 @NM00115 DC AL2(512) 04181000 @NM00116 DC AL1(22) 04182000 @NM00117 DC AL1(16) 04183000 ORG DSCB4DC7+14 04184000 DSCB4DC8 DS CL14 04185000 ORG DSCB4DC8 04186000 @NM00118 DC AL2(560) 04187000 @NM00119 DC AL2(30) 04188000 @NM00120 DC AL2(19254) 04189000 @NM00121 DC AL1(1) 04190000 @NM00122 DC AL1(11) 04191000 @NM00123 DC AL1(82) 04192000 @NM00124 DC X'09' 04193000 @NM00125 DC AL2(512) 04194000 @NM00126 DC AL1(47) 04195000 @NM00127 DC AL1(36) 04196000 ORG DSCB4DC8+14 04197000 PTCHDV02 DS CL256 04198000 ORG PTCHDV02 04199000 @NM00128 DC 256X'00' 04200000 ORG PTCHDV02+256 04201000 PTRKS002 DS CL8 04202000 ORG PTRKS002 04203000 @NM00129 DC H'4' 04204000 @NM00130 DC CL2'D' 04205000 @NM00131 DC AL4(48*8) 04206000 ORG PTRKS002+8 04207000 ATRKS002 DS CL8 04208000 ORG ATRKS002 04209000 @NM00132 DC H'4' 04210000 @NM00133 DC CL2'D' 04211000 @NM00134 DC F'1' 04212000 ORG ATRKS002+8 04213000 MRTRK002 DS CL8 04214000 ORG MRTRK002 04215000 @NM00135 DC H'4' 04216000 @NM00136 DC CL2'D' 04217000 @NM00137 DC F'33' 04218000 ORG MRTRK002+8 04219000 TKCYL002 DS CL8 04220000 ORG TKCYL002 04221000 @NM00138 DC H'4' 04222000 @NM00139 DC CL2'D' 04223000 @NM00140 DC F'8' 04224000 ORG TKCYL002+8 04225000 LPADD002 DS CL8 04226000 ORG LPADD002 04227000 @NM00141 DC H'4' 04228000 @NM00142 DC CL2'D' 04229000 @NM00143 DC X'002F0007' 04230000 ORG LPADD002+8 04231000 FAADD002 DS CL8 04232000 ORG FAADD002 04233000 @NM00144 DC H'4' 04234000 @NM00145 DC CL2'D' 04235000 @NM00146 DC X'00300000' 04236000 ORG FAADD002+8 04237000 LAADD002 DS CL8 04238000 ORG LAADD002 04239000 @NM00147 DC H'4' 04240000 @NM00148 DC CL2'D' 04241000 @NM00149 DC X'00300000' 04242000 ORG LAADD002+8 04243000 THOLD002 DS CL8 04244000 ORG THOLD002 04245000 @NM00150 DC H'4' 04246000 @NM00151 DC CL2'D' 04247000 @NM00152 DC F'10' 04248000 ORG THOLD002+8 04249000 BSRS1002 DS CL8 04250000 ORG BSRS1002 04251000 @NM00153 DC AL2(36) 04252000 @NM00154 DC CL2'A' 04253000 @NM00155 DC AL4(IPLBOOT1) 04254000 ORG BSRS1002+8 04255000 BSRS2002 DS CL8 04256000 ORG BSRS2002 04257000 @NM00156 DC AL2(156) 04258000 @NM00157 DC CL2'A' 04259000 @NM00158 DC AL4(IPLBOOT2) 04260000 ORG BSRS2002+8 04261000 IPLPL002 DS CL8 04262000 ORG IPLPL002 04263000 @NM00159 DC H'4' 04264000 @NM00160 DC CL2'D' 04265000 @NM00161 DC F'12180' 04266000 ORG IPLPL002+8 04267000 MSSID002 DS CL8 04268000 ORG MSSID002 04269000 @NM00162 DC H'4' 04270000 @NM00163 DC CL2'D' 04271000 @NM00164 DC F'0' 04272000 ORG MSSID002+8 04273000 VTOCL002 DS CL8 04274000 ORG VTOCL002 04275000 @NM00165 DC H'4' 04276000 @NM00166 DC CL2'D' 04277000 @NM00167 DC XL4'00000001' 04278000 ORG VTOCL002+8 04279000 VTOCE002 DS CL8 04280000 ORG VTOCE002 04281000 @NM00168 DC H'4' 04282000 @NM00169 DC CL2'D' 04283000 @NM00170 DC F'1' 04284000 ORG VTOCE002+8 04285000 DSCBF002 DS CL8 04286000 ORG DSCBF002 04287000 @NM00171 DC AL2(14) 04288000 @NM00172 DC CL2'A' 04289000 @NM00173 DC AL4(DSCB4DC2) 04290000 ORG DSCBF002+8 04291000 NUMSD002 DS CL8 04292000 ORG NUMSD002 04293000 @NM00174 DC H'4' 04294000 @NM00175 DC CL2'D' 04295000 @NM00176 DC F'0' 04296000 ORG NUMSD002+8 04297000 TRKCP002 DS CL8 04298000 ORG TRKCP002 04299000 @NM00177 DC H'4' 04300000 @NM00178 DC CL2'D' 04301000 @NM00179 DC F'14568' 04302000 ORG TRKCP002+8 04303000 RECOH002 DS CL8 04304000 ORG RECOH002 04305000 @NM00180 DC H'4' 04306000 @NM00181 DC CL2'D' 04307000 @NM00182 DC F'432' 04308000 ORG RECOH002+8 04309000 BSRW1002 DS CL8 04310000 ORG BSRW1002 04311000 @NM00183 DC AL2(36) 04312000 @NM00184 DC CL2'A' 04313000 @NM00185 DC AL4(IPLBOOTW) 04314000 ORG BSRW1002+8 04315000 PTRKS022 DS CL8 04316000 ORG PTRKS022 04317000 @NM00186 DC H'4' 04318000 @NM00187 DC CL2'D' 04319000 @NM00188 DC AL4(96*8) 04320000 ORG PTRKS022+8 04321000 ATRKS022 DS CL8 04322000 ORG ATRKS022 04323000 @NM00189 DC H'4' 04324000 @NM00190 DC CL2'D' 04325000 @NM00191 DC F'1' 04326000 ORG ATRKS022+8 04327000 MRTRK022 DS CL8 04328000 ORG MRTRK022 04329000 @NM00192 DC H'4' 04330000 @NM00193 DC CL2'D' 04331000 @NM00194 DC F'72' 04332000 ORG MRTRK022+8 04333000 TKCYL022 DS CL8 04334000 ORG TKCYL022 04335000 @NM00195 DC H'4' 04336000 @NM00196 DC CL2'D' 04337000 @NM00197 DC F'8' 04338000 ORG TKCYL022+8 04339000 LPADD022 DS CL8 04340000 ORG LPADD022 04341000 @NM00198 DC H'4' 04342000 @NM00199 DC CL2'D' 04343000 @NM00200 DC X'005F0007' 04344000 ORG LPADD022+8 04345000 FAADD022 DS CL8 04346000 ORG FAADD022 04347000 @NM00201 DC H'4' 04348000 @NM00202 DC CL2'D' 04349000 @NM00203 DC X'00600000' 04350000 ORG FAADD022+8 04351000 LAADD022 DS CL8 04352000 ORG LAADD022 04353000 @NM00204 DC H'4' 04354000 @NM00205 DC CL2'D' 04355000 @NM00206 DC X'00600000' 04356000 ORG LAADD022+8 04357000 THOLD022 DS CL8 04358000 ORG THOLD022 04359000 @NM00207 DC H'4' 04360000 @NM00208 DC CL2'D' 04361000 @NM00209 DC F'10' 04362000 ORG THOLD022+8 04363000 BSRS1022 DS CL8 04364000 ORG BSRS1022 04365000 @NM00210 DC AL2(36) 04366000 @NM00211 DC CL2'A' 04367000 @NM00212 DC AL4(IPLBOOT1) 04368000 ORG BSRS1022+8 04369000 BSRS2022 DS CL8 04370000 ORG BSRS2022 04371000 @NM00213 DC AL2(156) 04372000 @NM00214 DC CL2'A' 04373000 @NM00215 DC AL4(IPLBOOT2) 04374000 ORG BSRS2022+8 04375000 IPLPL022 DS CL8 04376000 ORG IPLPL022 04377000 @NM00216 DC H'4' 04378000 @NM00217 DC CL2'D' 04379000 @NM00218 DC F'13616' 04380000 ORG IPLPL022+8 04381000 MSSID022 DS CL8 04382000 ORG MSSID022 04383000 @NM00219 DC H'4' 04384000 @NM00220 DC CL2'D' 04385000 @NM00221 DC F'0' 04386000 ORG MSSID022+8 04387000 VTOCL022 DS CL8 04388000 ORG VTOCL022 04389000 @NM00222 DC H'4' 04390000 @NM00223 DC CL2'D' 04391000 @NM00224 DC XL4'00000001' 04392000 ORG VTOCL022+8 04393000 VTOCE022 DS CL8 04394000 ORG VTOCE022 04395000 @NM00225 DC H'4' 04396000 @NM00226 DC CL2'D' 04397000 @NM00227 DC F'1' 04398000 ORG VTOCE022+8 04399000 DSCBF022 DS CL8 04400000 ORG DSCBF022 04401000 @NM00228 DC AL2(14) 04402000 @NM00229 DC CL2'A' 04403000 @NM00230 DC AL4(DSCB4DC3) 04404000 ORG DSCBF022+8 04405000 NUMSD022 DS CL8 04406000 ORG NUMSD022 04407000 @NM00231 DC H'4' 04408000 @NM00232 DC CL2'D' 04409000 @NM00233 DC F'0' 04410000 ORG NUMSD022+8 04411000 TRKCP022 DS CL8 04412000 ORG TRKCP022 04413000 @NM00234 DC H'4' 04414000 @NM00235 DC CL2'D' 04415000 @NM00236 DC F'14858' 04416000 ORG TRKCP022+8 04417000 RECOH022 DS CL8 04418000 ORG RECOH022 04419000 @NM00237 DC H'4' 04420000 @NM00238 DC CL2'D' 04421000 @NM00239 DC F'198' 04422000 ORG RECOH022+8 04423000 BSRW1022 DS CL8 04424000 ORG BSRW1022 04425000 @NM00240 DC AL2(36) 04426000 @NM00241 DC CL2'A' 04427000 @NM00242 DC AL4(IPLBOOTW) 04428000 ORG BSRW1022+8 04429000 PTRKS042 DS CL8 04430000 ORG PTRKS042 04431000 @NM00243 DC H'4' 04432000 @NM00244 DC CL2'D' 04433000 @NM00245 DC AL4(200*20) 04434000 ORG PTRKS042+8 04435000 ATRKS042 DS CL8 04436000 ORG ATRKS042 04437000 @NM00246 DC H'4' 04438000 @NM00247 DC CL2'D' 04439000 @NM00248 DC F'60' 04440000 ORG ATRKS042+8 04441000 MRTRK042 DS CL8 04442000 ORG MRTRK042 04443000 @NM00249 DC H'4' 04444000 @NM00250 DC CL2'D' 04445000 @NM00251 DC F'73' 04446000 ORG MRTRK042+8 04447000 TKCYL042 DS CL8 04448000 ORG TKCYL042 04449000 @NM00252 DC H'4' 04450000 @NM00253 DC CL2'D' 04451000 @NM00254 DC F'20' 04452000 ORG TKCYL042+8 04453000 LPADD042 DS CL8 04454000 ORG LPADD042 04455000 @NM00255 DC H'4' 04456000 @NM00256 DC CL2'D' 04457000 @NM00257 DC X'00C70013' 04458000 ORG LPADD042+8 04459000 FAADD042 DS CL8 04460000 ORG FAADD042 04461000 @NM00258 DC H'4' 04462000 @NM00259 DC CL2'D' 04463000 @NM00260 DC X'00C80000' 04464000 ORG FAADD042+8 04465000 LAADD042 DS CL8 04466000 ORG LAADD042 04467000 @NM00261 DC H'4' 04468000 @NM00262 DC CL2'D' 04469000 @NM00263 DC X'00CA0013' 04470000 ORG LAADD042+8 04471000 THOLD042 DS CL8 04472000 ORG THOLD042 04473000 @NM00264 DC H'4' 04474000 @NM00265 DC CL2'D' 04475000 @NM00266 DC F'10' 04476000 ORG THOLD042+8 04477000 BSRS1042 DS CL8 04478000 ORG BSRS1042 04479000 @NM00267 DC AL2(36) 04480000 @NM00268 DC CL2'A' 04481000 @NM00269 DC AL4(IPLBOOT1) 04482000 ORG BSRS1042+8 04483000 BSRS2042 DS CL8 04484000 ORG BSRS2042 04485000 @NM00270 DC AL2(156) 04486000 @NM00271 DC CL2'A' 04487000 @NM00272 DC AL4(IPLBOOT2) 04488000 ORG BSRS2042+8 04489000 IPLPL042 DS CL8 04490000 ORG IPLPL042 04491000 @NM00273 DC H'4' 04492000 @NM00274 DC CL2'D' 04493000 @NM00275 DC F'6514' 04494000 ORG IPLPL042+8 04495000 MSSID042 DS CL8 04496000 ORG MSSID042 04497000 @NM00276 DC H'4' 04498000 @NM00277 DC CL2'D' 04499000 @NM00278 DC F'0' 04500000 ORG MSSID042+8 04501000 VTOCL042 DS CL8 04502000 ORG VTOCL042 04503000 @NM00279 DC H'4' 04504000 @NM00280 DC CL2'D' 04505000 @NM00281 DC XL4'00000001' 04506000 ORG VTOCL042+8 04507000 VTOCE042 DS CL8 04508000 ORG VTOCE042 04509000 @NM00282 DC H'4' 04510000 @NM00283 DC CL2'D' 04511000 @NM00284 DC F'1' 04512000 ORG VTOCE042+8 04513000 DSCBF042 DS CL8 04514000 ORG DSCBF042 04515000 @NM00285 DC AL2(14) 04516000 @NM00286 DC CL2'A' 04517000 @NM00287 DC AL4(DSCB4DC1) 04518000 ORG DSCBF042+8 04519000 NUMSD042 DS CL8 04520000 ORG NUMSD042 04521000 @NM00288 DC H'4' 04522000 @NM00289 DC CL2'D' 04523000 @NM00290 DC F'0' 04524000 ORG NUMSD042+8 04525000 TRKCP042 DS CL8 04526000 ORG TRKCP042 04527000 @NM00291 DC H'4' 04528000 @NM00292 DC CL2'D' 04529000 @NM00293 DC F'7294' 04530000 ORG TRKCP042+8 04531000 RECOH042 DS CL8 04532000 ORG RECOH042 04533000 @NM00294 DC H'4' 04534000 @NM00295 DC CL2'D' 04535000 @NM00296 DC AL4(146+0) 04536000 ORG RECOH042+8 04537000 BSRW1042 DS CL8 04538000 ORG BSRW1042 04539000 @NM00297 DC AL2(36) 04540000 @NM00298 DC CL2'A' 04541000 @NM00299 DC AL4(IPLBOOTW) 04542000 ORG BSRW1042+8 04543000 PTRKS062 DS CL8 04544000 ORG PTRKS062 04545000 @NM00300 DC H'4' 04546000 @NM00301 DC CL2'D' 04547000 @NM00302 DC AL4(404*19) 04548000 ORG PTRKS062+8 04549000 ATRKS062 DS CL8 04550000 ORG ATRKS062 04551000 @NM00303 DC H'4' 04552000 @NM00304 DC CL2'D' 04553000 @NM00305 DC F'133' 04554000 ORG ATRKS062+8 04555000 MRTRK062 DS CL8 04556000 ORG MRTRK062 04557000 @NM00306 DC H'4' 04558000 @NM00307 DC CL2'D' 04559000 @NM00308 DC F'96' 04560000 ORG MRTRK062+8 04561000 TKCYL062 DS CL8 04562000 ORG TKCYL062 04563000 @NM00309 DC H'4' 04564000 @NM00310 DC CL2'D' 04565000 @NM00311 DC F'19' 04566000 ORG TKCYL062+8 04567000 LPADD062 DS CL8 04568000 ORG LPADD062 04569000 @NM00312 DC H'4' 04570000 @NM00313 DC CL2'D' 04571000 @NM00314 DC X'01930012' 04572000 ORG LPADD062+8 04573000 FAADD062 DS CL8 04574000 ORG FAADD062 04575000 @NM00315 DC H'4' 04576000 @NM00316 DC CL2'D' 04577000 @NM00317 DC X'01940000' 04578000 ORG FAADD062+8 04579000 LAADD062 DS CL8 04580000 ORG LAADD062 04581000 @NM00318 DC H'4' 04582000 @NM00319 DC CL2'D' 04583000 @NM00320 DC X'019A0012' 04584000 ORG LAADD062+8 04585000 THOLD062 DS CL8 04586000 ORG THOLD062 04587000 @NM00321 DC H'4' 04588000 @NM00322 DC CL2'D' 04589000 @NM00323 DC F'10' 04590000 ORG THOLD062+8 04591000 BSRS1062 DS CL8 04592000 ORG BSRS1062 04593000 @NM00324 DC AL2(36) 04594000 @NM00325 DC CL2'A' 04595000 @NM00326 DC AL4(IPLBOOT1) 04596000 ORG BSRS1062+8 04597000 BSRS2062 DS CL8 04598000 ORG BSRS2062 04599000 @NM00327 DC AL2(156) 04600000 @NM00328 DC CL2'A' 04601000 @NM00329 DC AL4(IPLBOOT2) 04602000 ORG BSRS2062+8 04603000 IPLPL062 DS CL8 04604000 ORG IPLPL062 04605000 @NM00330 DC H'4' 04606000 @NM00331 DC CL2'D' 04607000 @NM00332 DC F'12117' 04608000 ORG IPLPL062+8 04609000 MSSID062 DS CL8 04610000 ORG MSSID062 04611000 @NM00333 DC H'4' 04612000 @NM00334 DC CL2'D' 04613000 @NM00335 DC F'0' 04614000 ORG MSSID062+8 04615000 VTOCL062 DS CL8 04616000 ORG VTOCL062 04617000 @NM00336 DC H'4' 04618000 @NM00337 DC CL2'D' 04619000 @NM00338 DC XL4'00000001' 04620000 ORG VTOCL062+8 04621000 VTOCE062 DS CL8 04622000 ORG VTOCE062 04623000 @NM00339 DC H'4' 04624000 @NM00340 DC CL2'D' 04625000 @NM00341 DC F'1' 04626000 ORG VTOCE062+8 04627000 DSCBF062 DS CL8 04628000 ORG DSCBF062 04629000 @NM00342 DC AL2(14) 04630000 @NM00343 DC CL2'A' 04631000 @NM00344 DC AL4(DSCB4DC4) 04632000 ORG DSCBF062+8 04633000 NUMSD062 DS CL8 04634000 ORG NUMSD062 04635000 @NM00345 DC H'4' 04636000 @NM00346 DC CL2'D' 04637000 @NM00347 DC F'0' 04638000 ORG NUMSD062+8 04639000 TRKCP062 DS CL8 04640000 ORG TRKCP062 04641000 @NM00348 DC H'4' 04642000 @NM00349 DC CL2'D' 04643000 @NM00350 DC F'13165' 04644000 ORG TRKCP062+8 04645000 RECOH062 DS CL8 04646000 ORG RECOH062 04647000 @NM00351 DC H'4' 04648000 @NM00352 DC CL2'D' 04649000 @NM00353 DC F'135' 04650000 ORG RECOH062+8 04651000 BSRW1062 DS CL8 04652000 ORG BSRW1062 04653000 @NM00354 DC AL2(36) 04654000 @NM00355 DC CL2'A' 04655000 @NM00356 DC AL4(IPLBOOTW) 04656000 ORG BSRW1062+8 04657000 PTRKS082 DS CL8 04658000 ORG PTRKS082 04659000 @NM00357 DC H'4' 04660000 @NM00358 DC CL2'D' 04661000 @NM00359 DC AL4(808*19) 04662000 ORG PTRKS082+8 04663000 ATRKS082 DS CL8 04664000 ORG ATRKS082 04665000 @NM00360 DC H'4' 04666000 @NM00361 DC CL2'D' 04667000 @NM00362 DC F'133' 04668000 ORG ATRKS082+8 04669000 MRTRK082 DS CL8 04670000 ORG MRTRK082 04671000 @NM00363 DC H'4' 04672000 @NM00364 DC CL2'D' 04673000 @NM00365 DC F'96' 04674000 ORG MRTRK082+8 04675000 TKCYL082 DS CL8 04676000 ORG TKCYL082 04677000 @NM00366 DC H'4' 04678000 @NM00367 DC CL2'D' 04679000 @NM00368 DC F'19' 04680000 ORG TKCYL082+8 04681000 LPADD082 DS CL8 04682000 ORG LPADD082 04683000 @NM00369 DC H'4' 04684000 @NM00370 DC CL2'D' 04685000 @NM00371 DC X'03270012' 04686000 ORG LPADD082+8 04687000 FAADD082 DS CL8 04688000 ORG FAADD082 04689000 @NM00372 DC H'4' 04690000 @NM00373 DC CL2'D' 04691000 @NM00374 DC X'03280000' 04692000 ORG FAADD082+8 04693000 LAADD082 DS CL8 04694000 ORG LAADD082 04695000 @NM00375 DC H'4' 04696000 @NM00376 DC CL2'D' 04697000 @NM00377 DC X'032E0012' 04698000 ORG LAADD082+8 04699000 THOLD082 DS CL8 04700000 ORG THOLD082 04701000 @NM00378 DC H'4' 04702000 @NM00379 DC CL2'D' 04703000 @NM00380 DC F'10' 04704000 ORG THOLD082+8 04705000 BSRS1082 DS CL8 04706000 ORG BSRS1082 04707000 @NM00381 DC AL2(36) 04708000 @NM00382 DC CL2'A' 04709000 @NM00383 DC AL4(IPLBOOT1) 04710000 ORG BSRS1082+8 04711000 BSRS2082 DS CL8 04712000 ORG BSRS2082 04713000 @NM00384 DC AL2(156) 04714000 @NM00385 DC CL2'A' 04715000 @NM00386 DC AL4(IPLBOOT2) 04716000 ORG BSRS2082+8 04717000 IPLPL082 DS CL8 04718000 ORG IPLPL082 04719000 @NM00387 DC H'4' 04720000 @NM00388 DC CL2'D' 04721000 @NM00389 DC F'12117' 04722000 ORG IPLPL082+8 04723000 MSSID082 DS CL8 04724000 ORG MSSID082 04725000 @NM00390 DC H'4' 04726000 @NM00391 DC CL2'D' 04727000 @NM00392 DC F'0' 04728000 ORG MSSID082+8 04729000 VTOCL082 DS CL8 04730000 ORG VTOCL082 04731000 @NM00393 DC H'4' 04732000 @NM00394 DC CL2'D' 04733000 @NM00395 DC XL4'00000001' 04734000 ORG VTOCL082+8 04735000 VTOCE082 DS CL8 04736000 ORG VTOCE082 04737000 @NM00396 DC H'4' 04738000 @NM00397 DC CL2'D' 04739000 @NM00398 DC F'1' 04740000 ORG VTOCE082+8 04741000 DSCBF082 DS CL8 04742000 ORG DSCBF082 04743000 @NM00399 DC AL2(14) 04744000 @NM00400 DC CL2'A' 04745000 @NM00401 DC AL4(DSCB4DC5) 04746000 ORG DSCBF082+8 04747000 NUMSD082 DS CL8 04748000 ORG NUMSD082 04749000 @NM00402 DC H'4' 04750000 @NM00403 DC CL2'D' 04751000 @NM00404 DC F'0' 04752000 ORG NUMSD082+8 04753000 TRKCP082 DS CL8 04754000 ORG TRKCP082 04755000 @NM00405 DC H'4' 04756000 @NM00406 DC CL2'D' 04757000 @NM00407 DC F'13165' 04758000 ORG TRKCP082+8 04759000 RECOH082 DS CL8 04760000 ORG RECOH082 04761000 @NM00408 DC H'4' 04762000 @NM00409 DC CL2'D' 04763000 @NM00410 DC F'135' 04764000 ORG RECOH082+8 04765000 BSRW1082 DS CL8 04766000 ORG BSRW1082 04767000 @NM00411 DC AL2(36) 04768000 @NM00412 DC CL2'A' 04769000 @NM00413 DC AL4(IPLBOOTW) 04770000 ORG BSRW1082+8 04771000 PTRKS102 DS CL8 04772000 ORG PTRKS102 04773000 @NM00414 DC H'4' 04774000 @NM00415 DC CL2'D' 04775000 @NM00416 DC AL4(409*19) 04776000 ORG PTRKS102+8 04777000 ATRKS102 DS CL8 04778000 ORG ATRKS102 04779000 @NM00417 DC H'4' 04780000 @NM00418 DC CL2'D' 04781000 @NM00419 DC F'38' 04782000 ORG ATRKS102+8 04783000 MRTRK102 DS CL8 04784000 ORG MRTRK102 04785000 @NM00420 DC H'4' 04786000 @NM00421 DC CL2'D' 04787000 @NM00422 DC F'96' 04788000 ORG MRTRK102+8 04789000 TKCYL102 DS CL8 04790000 ORG TKCYL102 04791000 @NM00423 DC H'4' 04792000 @NM00424 DC CL2'D' 04793000 @NM00425 DC F'19' 04794000 ORG TKCYL102+8 04795000 LPADD102 DS CL8 04796000 ORG LPADD102 04797000 @NM00426 DC H'4' 04798000 @NM00427 DC CL2'D' 04799000 @NM00428 DC X'01980012' 04800000 ORG LPADD102+8 04801000 FAADD102 DS CL8 04802000 ORG FAADD102 04803000 @NM00429 DC H'4' 04804000 @NM00430 DC CL2'D' 04805000 @NM00431 DC X'01990000' 04806000 ORG FAADD102+8 04807000 LAADD102 DS CL8 04808000 ORG LAADD102 04809000 @NM00432 DC H'4' 04810000 @NM00433 DC CL2'D' 04811000 @NM00434 DC X'019A0012' 04812000 ORG LAADD102+8 04813000 THOLD102 DS CL8 04814000 ORG THOLD102 04815000 @NM00435 DC H'4' 04816000 @NM00436 DC CL2'D' 04817000 @NM00437 DC F'10' 04818000 ORG THOLD102+8 04819000 BSRS1102 DS CL8 04820000 ORG BSRS1102 04821000 @NM00438 DC AL2(36) 04822000 @NM00439 DC CL2'A' 04823000 @NM00440 DC AL4(IPLBOOT1) 04824000 ORG BSRS1102+8 04825000 BSRS2102 DS CL8 04826000 ORG BSRS2102 04827000 @NM00441 DC AL2(156) 04828000 @NM00442 DC CL2'A' 04829000 @NM00443 DC AL4(IPLBOOT2) 04830000 ORG BSRS2102+8 04831000 IPLPL102 DS CL8 04832000 ORG IPLPL102 04833000 @NM00444 DC H'4' 04834000 @NM00445 DC CL2'D' 04835000 @NM00446 DC F'12117' 04836000 ORG IPLPL102+8 04837000 MSSID102 DS CL8 04838000 ORG MSSID102 04839000 @NM00447 DC H'4' 04840000 @NM00448 DC CL2'D' 04841000 @NM00449 DC XL4'FFFFFFFF' 04842000 ORG MSSID102+8 04843000 VTOCL102 DS CL8 04844000 ORG VTOCL102 04845000 @NM00450 DC H'4' 04846000 @NM00451 DC CL2'D' 04847000 @NM00452 DC XL4'00000002' 04848000 ORG VTOCL102+8 04849000 VTOCE102 DS CL8 04850000 ORG VTOCE102 04851000 @NM00453 DC H'4' 04852000 @NM00454 DC CL2'D' 04853000 @NM00455 DC F'1' 04854000 ORG VTOCE102+8 04855000 DSCBF102 DS CL8 04856000 ORG DSCBF102 04857000 @NM00456 DC AL2(14) 04858000 @NM00457 DC CL2'A' 04859000 @NM00458 DC AL4(DSCB4DC4) 04860000 ORG DSCBF102+8 04861000 NUMSD102 DS CL8 04862000 ORG NUMSD102 04863000 @NM00459 DC H'4' 04864000 @NM00460 DC CL2'D' 04865000 @NM00461 DC F'0' 04866000 ORG NUMSD102+8 04867000 TRKCP102 DS CL8 04868000 ORG TRKCP102 04869000 @NM00462 DC H'4' 04870000 @NM00463 DC CL2'D' 04871000 @NM00464 DC F'13165' 04872000 ORG TRKCP102+8 04873000 RECOH102 DS CL8 04874000 ORG RECOH102 04875000 @NM00465 DC H'4' 04876000 @NM00466 DC CL2'D' 04877000 @NM00467 DC F'135' 04878000 ORG RECOH102+8 04879000 BSRW1102 DS CL8 04880000 ORG BSRW1102 04881000 @NM00468 DC AL2(36) 04882000 @NM00469 DC CL2'A' 04883000 @NM00470 DC AL4(IPLBOOTW) 04884000 ORG BSRW1102+8 04885000 PTRKS122 DS CL8 04886000 ORG PTRKS122 04887000 @NM00471 DC H'4' 04888000 @NM00472 DC CL2'D' 04889000 @NM00473 DC AL4(809*19) 04890000 ORG PTRKS122+8 04891000 ATRKS122 DS CL8 04892000 ORG ATRKS122 04893000 @NM00474 DC H'4' 04894000 @NM00475 DC CL2'D' 04895000 @NM00476 DC F'114' 04896000 ORG ATRKS122+8 04897000 MRTRK122 DS CL8 04898000 ORG MRTRK122 04899000 @NM00477 DC H'4' 04900000 @NM00478 DC CL2'D' 04901000 @NM00479 DC F'96' 04902000 ORG MRTRK122+8 04903000 TKCYL122 DS CL8 04904000 ORG TKCYL122 04905000 @NM00480 DC H'4' 04906000 @NM00481 DC CL2'D' 04907000 @NM00482 DC F'19' 04908000 ORG TKCYL122+8 04909000 LPADD122 DS CL8 04910000 ORG LPADD122 04911000 @NM00483 DC H'4' 04912000 @NM00484 DC CL2'D' 04913000 @NM00485 DC X'03280012' 04914000 ORG LPADD122+8 04915000 FAADD122 DS CL8 04916000 ORG FAADD122 04917000 @NM00486 DC H'4' 04918000 @NM00487 DC CL2'D' 04919000 @NM00488 DC X'03290000' 04920000 ORG FAADD122+8 04921000 LAADD122 DS CL8 04922000 ORG LAADD122 04923000 @NM00489 DC H'4' 04924000 @NM00490 DC CL2'D' 04925000 @NM00491 DC X'032E0012' 04926000 ORG LAADD122+8 04927000 THOLD122 DS CL8 04928000 ORG THOLD122 04929000 @NM00492 DC H'4' 04930000 @NM00493 DC CL2'D' 04931000 @NM00494 DC F'10' 04932000 ORG THOLD122+8 04933000 BSRS1122 DS CL8 04934000 ORG BSRS1122 04935000 @NM00495 DC AL2(36) 04936000 @NM00496 DC CL2'A' 04937000 @NM00497 DC AL4(IPLBOOT1) 04938000 ORG BSRS1122+8 04939000 BSRS2122 DS CL8 04940000 ORG BSRS2122 04941000 @NM00498 DC AL2(156) 04942000 @NM00499 DC CL2'A' 04943000 @NM00500 DC AL4(IPLBOOT2) 04944000 ORG BSRS2122+8 04945000 IPLPL122 DS CL8 04946000 ORG IPLPL122 04947000 @NM00501 DC H'4' 04948000 @NM00502 DC CL2'D' 04949000 @NM00503 DC F'12117' 04950000 ORG IPLPL122+8 04951000 MSSID122 DS CL8 04952000 ORG MSSID122 04953000 @NM00504 DC H'4' 04954000 @NM00505 DC CL2'D' 04955000 @NM00506 DC XL4'FFFFFFFF' 04956000 ORG MSSID122+8 04957000 VTOCL122 DS CL8 04958000 ORG VTOCL122 04959000 @NM00507 DC H'4' 04960000 @NM00508 DC CL2'D' 04961000 @NM00509 DC XL4'00000002' 04962000 ORG VTOCL122+8 04963000 VTOCE122 DS CL8 04964000 ORG VTOCE122 04965000 @NM00510 DC H'4' 04966000 @NM00511 DC CL2'D' 04967000 @NM00512 DC F'1' 04968000 ORG VTOCE122+8 04969000 DSCBF122 DS CL8 04970000 ORG DSCBF122 04971000 @NM00513 DC AL2(14) 04972000 @NM00514 DC CL2'A' 04973000 @NM00515 DC AL4(DSCB4DC5) 04974000 ORG DSCBF122+8 04975000 NUMSD122 DS CL8 04976000 ORG NUMSD122 04977000 @NM00516 DC H'4' 04978000 @NM00517 DC CL2'D' 04979000 @NM00518 DC F'0' 04980000 ORG NUMSD122+8 04981000 TRKCP122 DS CL8 04982000 ORG TRKCP122 04983000 @NM00519 DC H'4' 04984000 @NM00520 DC CL2'D' 04985000 @NM00521 DC F'13165' 04986000 ORG TRKCP122+8 04987000 RECOH122 DS CL8 04988000 ORG RECOH122 04989000 @NM00522 DC H'4' 04990000 @NM00523 DC CL2'D' 04991000 @NM00524 DC F'135' 04992000 ORG RECOH122+8 04993000 BSRW1122 DS CL8 04994000 ORG BSRW1122 04995000 @NM00525 DC AL2(36) 04996000 @NM00526 DC CL2'A' 04997000 @NM00527 DC AL4(IPLBOOTW) 04998000 ORG BSRW1122+8 04999000 PTRKS142 DS CL8 05000000 ORG PTRKS142 05001000 @NM00528 DC H'4' 05002000 @NM00529 DC CL2'D' 05003000 @NM00530 DC AL4(348*12) 05004000 ORG PTRKS142+8 05005000 ATRKS142 DS CL8 05006000 ORG ATRKS142 05007000 @NM00531 DC H'4' 05008000 @NM00532 DC CL2'D' 05009000 @NM00533 DC F'12' 05010000 ORG ATRKS142+8 05011000 MRTRK142 DS CL8 05012000 ORG MRTRK142 05013000 @NM00534 DC H'4' 05014000 @NM00535 DC CL2'D' 05015000 @NM00536 DC F'50' 05016000 ORG MRTRK142+8 05017000 TKCYL142 DS CL8 05018000 ORG TKCYL142 05019000 @NM00537 DC H'4' 05020000 @NM00538 DC CL2'D' 05021000 @NM00539 DC F'12' 05022000 ORG TKCYL142+8 05023000 LPADD142 DS CL8 05024000 ORG LPADD142 05025000 @NM00540 DC H'4' 05026000 @NM00541 DC CL2'D' 05027000 @NM00542 DC X'015B000B' 05028000 ORG LPADD142+8 05029000 FAADD142 DS CL8 05030000 ORG FAADD142 05031000 @NM00543 DC H'4' 05032000 @NM00544 DC CL2'D' 05033000 @NM00545 DC X'015C0000' 05034000 ORG FAADD142+8 05035000 LAADD142 DS CL8 05036000 ORG LAADD142 05037000 @NM00546 DC H'4' 05038000 @NM00547 DC CL2'D' 05039000 @NM00548 DC X'015C000B' 05040000 ORG LAADD142+8 05041000 THOLD142 DS CL8 05042000 ORG THOLD142 05043000 @NM00549 DC H'4' 05044000 @NM00550 DC CL2'D' 05045000 @NM00551 DC F'10' 05046000 ORG THOLD142+8 05047000 BSRS1142 DS CL8 05048000 ORG BSRS1142 05049000 @NM00552 DC AL2(36) 05050000 @NM00553 DC CL2'A' 05051000 @NM00554 DC AL4(IPLBOOT1) 05052000 ORG BSRS1142+8 05053000 BSRS2142 DS CL8 05054000 ORG BSRS2142 05055000 @NM00555 DC AL2(156) 05056000 @NM00556 DC CL2'A' 05057000 @NM00557 DC AL4(IPLBOOT2) 05058000 ORG BSRS2142+8 05059000 IPLPL142 DS CL8 05060000 ORG IPLPL142 05061000 @NM00558 DC H'4' 05062000 @NM00559 DC CL2'D' 05063000 @NM00560 DC F'7286' 05064000 ORG IPLPL142+8 05065000 MSSID142 DS CL8 05066000 ORG MSSID142 05067000 @NM00561 DC H'4' 05068000 @NM00562 DC CL2'D' 05069000 @NM00563 DC F'0' 05070000 ORG MSSID142+8 05071000 VTOCL142 DS CL8 05072000 ORG VTOCL142 05073000 @NM00564 DC H'4' 05074000 @NM00565 DC CL2'D' 05075000 @NM00566 DC XL4'00000001' 05076000 ORG VTOCL142+8 05077000 VTOCE142 DS CL8 05078000 ORG VTOCE142 05079000 @NM00567 DC H'4' 05080000 @NM00568 DC CL2'D' 05081000 @NM00569 DC F'1' 05082000 ORG VTOCE142+8 05083000 DSCBF142 DS CL8 05084000 ORG DSCBF142 05085000 @NM00570 DC AL2(14) 05086000 @NM00571 DC CL2'A' 05087000 @NM00572 DC AL4(DSCB4DC6) 05088000 ORG DSCBF142+8 05089000 NUMSD142 DS CL8 05090000 ORG NUMSD142 05091000 @NM00573 DC H'4' 05092000 @NM00574 DC CL2'D' 05093000 @NM00575 DC F'1' 05094000 ORG NUMSD142+8 05095000 TRKCP142 DS CL8 05096000 ORG TRKCP142 05097000 @NM00576 DC H'4' 05098000 @NM00577 DC CL2'D' 05099000 @NM00578 DC F'8535' 05100000 ORG TRKCP142+8 05101000 RECOH142 DS CL8 05102000 ORG RECOH142 05103000 @NM00579 DC H'4' 05104000 @NM00580 DC CL2'D' 05105000 @NM00581 DC F'167' 05106000 ORG RECOH142+8 05107000 BSRW1142 DS CL8 05108000 ORG BSRW1142 05109000 @NM00582 DC AL2(36) 05110000 @NM00583 DC CL2'A' 05111000 @NM00584 DC AL4(IPLBOOTW) 05112000 ORG BSRW1142+8 05113000 PTRKS162 DS CL8 05114000 ORG PTRKS162 05115000 @NM00585 DC H'4' 05116000 @NM00586 DC CL2'D' 05117000 @NM00587 DC AL4(696*12) 05118000 ORG PTRKS162+8 05119000 ATRKS162 DS CL8 05120000 ORG ATRKS162 05121000 @NM00588 DC H'4' 05122000 @NM00589 DC CL2'D' 05123000 @NM00590 DC F'24' 05124000 ORG ATRKS162+8 05125000 MRTRK162 DS CL8 05126000 ORG MRTRK162 05127000 @NM00591 DC H'4' 05128000 @NM00592 DC CL2'D' 05129000 @NM00593 DC F'50' 05130000 ORG MRTRK162+8 05131000 TKCYL162 DS CL8 05132000 ORG TKCYL162 05133000 @NM00594 DC H'4' 05134000 @NM00595 DC CL2'D' 05135000 @NM00596 DC F'12' 05136000 ORG TKCYL162+8 05137000 LPADD162 DS CL8 05138000 ORG LPADD162 05139000 @NM00597 DC H'4' 05140000 @NM00598 DC CL2'D' 05141000 @NM00599 DC X'02B7000B' 05142000 ORG LPADD162+8 05143000 FAADD162 DS CL8 05144000 ORG FAADD162 05145000 @NM00600 DC H'4' 05146000 @NM00601 DC CL2'D' 05147000 @NM00602 DC X'02B80000' 05148000 ORG FAADD162+8 05149000 LAADD162 DS CL8 05150000 ORG LAADD162 05151000 @NM00603 DC H'4' 05152000 @NM00604 DC CL2'D' 05153000 @NM00605 DC X'02B9000B' 05154000 ORG LAADD162+8 05155000 THOLD162 DS CL8 05156000 ORG THOLD162 05157000 @NM00606 DC H'4' 05158000 @NM00607 DC CL2'D' 05159000 @NM00608 DC F'10' 05160000 ORG THOLD162+8 05161000 BSRS1162 DS CL8 05162000 ORG BSRS1162 05163000 @NM00609 DC AL2(36) 05164000 @NM00610 DC CL2'A' 05165000 @NM00611 DC AL4(IPLBOOT1) 05166000 ORG BSRS1162+8 05167000 BSRS2162 DS CL8 05168000 ORG BSRS2162 05169000 @NM00612 DC AL2(156) 05170000 @NM00613 DC CL2'A' 05171000 @NM00614 DC AL4(IPLBOOT2) 05172000 ORG BSRS2162+8 05173000 IPLPL162 DS CL8 05174000 ORG IPLPL162 05175000 @NM00615 DC H'4' 05176000 @NM00616 DC CL2'D' 05177000 @NM00617 DC F'7286' 05178000 ORG IPLPL162+8 05179000 MSSID162 DS CL8 05180000 ORG MSSID162 05181000 @NM00618 DC H'4' 05182000 @NM00619 DC CL2'D' 05183000 @NM00620 DC F'0' 05184000 ORG MSSID162+8 05185000 VTOCL162 DS CL8 05186000 ORG VTOCL162 05187000 @NM00621 DC H'4' 05188000 @NM00622 DC CL2'D' 05189000 @NM00623 DC XL4'00000001' 05190000 ORG VTOCL162+8 05191000 VTOCE162 DS CL8 05192000 ORG VTOCE162 05193000 @NM00624 DC H'4' 05194000 @NM00625 DC CL2'D' 05195000 @NM00626 DC F'1' 05196000 ORG VTOCE162+8 05197000 DSCBF162 DS CL8 05198000 ORG DSCBF162 05199000 @NM00627 DC AL2(14) 05200000 @NM00628 DC CL2'A' 05201000 @NM00629 DC AL4(DSCB4DC7) 05202000 ORG DSCBF162+8 05203000 NUMSD162 DS CL8 05204000 ORG NUMSD162 05205000 @NM00630 DC H'4' 05206000 @NM00631 DC CL2'D' 05207000 @NM00632 DC F'1' 05208000 ORG NUMSD162+8 05209000 TRKCP162 DS CL8 05210000 ORG TRKCP162 05211000 @NM00633 DC H'4' 05212000 @NM00634 DC CL2'D' 05213000 @NM00635 DC F'8535' 05214000 ORG TRKCP162+8 05215000 RECOH162 DS CL8 05216000 ORG RECOH162 05217000 @NM00636 DC H'4' 05218000 @NM00637 DC CL2'D' 05219000 @NM00638 DC F'167' 05220000 ORG RECOH162+8 05221000 BSRW1162 DS CL8 05222000 ORG BSRW1162 05223000 @NM00639 DC AL2(36) 05224000 @NM00640 DC CL2'A' 05225000 @NM00641 DC AL4(IPLBOOTW) 05226000 ORG BSRW1162+8 05227000 PTRKS182 DS CL8 05228000 ORG PTRKS182 05229000 @NM00642 DC H'4' 05230000 @NM00643 DC CL2'D' 05231000 @NM00644 DC AL4(348*12) 05232000 ORG PTRKS182+8 05233000 ATRKS182 DS CL8 05234000 ORG ATRKS182 05235000 @NM00645 DC H'4' 05236000 @NM00646 DC CL2'D' 05237000 @NM00647 DC F'12' 05238000 ORG ATRKS182+8 05239000 MRTRK182 DS CL8 05240000 ORG MRTRK182 05241000 @NM00648 DC H'4' 05242000 @NM00649 DC CL2'D' 05243000 @NM00650 DC F'50' 05244000 ORG MRTRK182+8 05245000 TKCYL182 DS CL8 05246000 ORG TKCYL182 05247000 @NM00651 DC H'4' 05248000 @NM00652 DC CL2'D' 05249000 @NM00653 DC F'12' 05250000 ORG TKCYL182+8 05251000 LPADD182 DS CL8 05252000 ORG LPADD182 05253000 @NM00654 DC H'4' 05254000 @NM00655 DC CL2'D' 05255000 @NM00656 DC X'015B000B' 05256000 ORG LPADD182+8 05257000 FAADD182 DS CL8 05258000 ORG FAADD182 05259000 @NM00657 DC H'4' 05260000 @NM00658 DC CL2'D' 05261000 @NM00659 DC X'015C0000' 05262000 ORG FAADD182+8 05263000 LAADD182 DS CL8 05264000 ORG LAADD182 05265000 @NM00660 DC H'4' 05266000 @NM00661 DC CL2'D' 05267000 @NM00662 DC X'015C000B' 05268000 ORG LAADD182+8 05269000 THOLD182 DS CL8 05270000 ORG THOLD182 05271000 @NM00663 DC H'4' 05272000 @NM00664 DC CL2'D' 05273000 @NM00665 DC F'10' 05274000 ORG THOLD182+8 05275000 BSRS1182 DS CL8 05276000 ORG BSRS1182 05277000 @NM00666 DC AL2(36) 05278000 @NM00667 DC CL2'A' 05279000 @NM00668 DC AL4(IPLBOOT1) 05280000 ORG BSRS1182+8 05281000 BSRS2182 DS CL8 05282000 ORG BSRS2182 05283000 @NM00669 DC AL2(156) 05284000 @NM00670 DC CL2'A' 05285000 @NM00671 DC AL4(IPLBOOT2) 05286000 ORG BSRS2182+8 05287000 IPLPL182 DS CL8 05288000 ORG IPLPL182 05289000 @NM00672 DC H'4' 05290000 @NM00673 DC CL2'D' 05291000 @NM00674 DC F'7286' 05292000 ORG IPLPL182+8 05293000 MSSID182 DS CL8 05294000 ORG MSSID182 05295000 @NM00675 DC H'4' 05296000 @NM00676 DC CL2'D' 05297000 @NM00677 DC F'0' 05298000 ORG MSSID182+8 05299000 VTOCL182 DS CL8 05300000 ORG VTOCL182 05301000 @NM00678 DC H'4' 05302000 @NM00679 DC CL2'D' 05303000 @NM00680 DC XL4'00000001' 05304000 ORG VTOCL182+8 05305000 VTOCE182 DS CL8 05306000 ORG VTOCE182 05307000 @NM00681 DC H'4' 05308000 @NM00682 DC CL2'D' 05309000 @NM00683 DC F'1' 05310000 ORG VTOCE182+8 05311000 DSCBF182 DS CL8 05312000 ORG DSCBF182 05313000 @NM00684 DC AL2(14) 05314000 @NM00685 DC CL2'A' 05315000 @NM00686 DC AL4(DSCB4DC6) 05316000 ORG DSCBF182+8 05317000 NUMSD182 DS CL8 05318000 ORG NUMSD182 05319000 @NM00687 DC H'4' 05320000 @NM00688 DC CL2'D' 05321000 @NM00689 DC F'1' 05322000 ORG NUMSD182+8 05323000 TRKCP182 DS CL8 05324000 ORG TRKCP182 05325000 @NM00690 DC H'4' 05326000 @NM00691 DC CL2'D' 05327000 @NM00692 DC F'8535' 05328000 ORG TRKCP182+8 05329000 RECOH182 DS CL8 05330000 ORG RECOH182 05331000 @NM00693 DC H'4' 05332000 @NM00694 DC CL2'D' 05333000 @NM00695 DC F'167' 05334000 ORG RECOH182+8 05335000 BSRW1182 DS CL8 05336000 ORG BSRW1182 05337000 @NM00696 DC AL2(36) 05338000 @NM00697 DC CL2'A' 05339000 @NM00698 DC AL4(IPLBOOTW) 05340000 ORG BSRW1182+8 05341000 PTRKS202 DS CL8 05342000 ORG PTRKS202 05343000 @NM00699 DC H'4' 05344000 @NM00700 DC CL2'D' 05345000 @NM00701 DC AL4(696*12) 05346000 ORG PTRKS202+8 05347000 ATRKS202 DS CL8 05348000 ORG ATRKS202 05349000 @NM00702 DC H'4' 05350000 @NM00703 DC CL2'D' 05351000 @NM00704 DC F'24' 05352000 ORG ATRKS202+8 05353000 MRTRK202 DS CL8 05354000 ORG MRTRK202 05355000 @NM00705 DC H'4' 05356000 @NM00706 DC CL2'D' 05357000 @NM00707 DC F'50' 05358000 ORG MRTRK202+8 05359000 TKCYL202 DS CL8 05360000 ORG TKCYL202 05361000 @NM00708 DC H'4' 05362000 @NM00709 DC CL2'D' 05363000 @NM00710 DC F'12' 05364000 ORG TKCYL202+8 05365000 LPADD202 DS CL8 05366000 ORG LPADD202 05367000 @NM00711 DC H'4' 05368000 @NM00712 DC CL2'D' 05369000 @NM00713 DC X'02B7000B' 05370000 ORG LPADD202+8 05371000 FAADD202 DS CL8 05372000 ORG FAADD202 05373000 @NM00714 DC H'4' 05374000 @NM00715 DC CL2'D' 05375000 @NM00716 DC X'02B80000' 05376000 ORG FAADD202+8 05377000 LAADD202 DS CL8 05378000 ORG LAADD202 05379000 @NM00717 DC H'4' 05380000 @NM00718 DC CL2'D' 05381000 @NM00719 DC X'02B9000B' 05382000 ORG LAADD202+8 05383000 THOLD202 DS CL8 05384000 ORG THOLD202 05385000 @NM00720 DC H'4' 05386000 @NM00721 DC CL2'D' 05387000 @NM00722 DC F'10' 05388000 ORG THOLD202+8 05389000 BSRS1202 DS CL8 05390000 ORG BSRS1202 05391000 @NM00723 DC AL2(36) 05392000 @NM00724 DC CL2'A' 05393000 @NM00725 DC AL4(IPLBOOT1) 05394000 ORG BSRS1202+8 05395000 BSRS2202 DS CL8 05396000 ORG BSRS2202 05397000 @NM00726 DC AL2(156) 05398000 @NM00727 DC CL2'A' 05399000 @NM00728 DC AL4(IPLBOOT2) 05400000 ORG BSRS2202+8 05401000 IPLPL202 DS CL8 05402000 ORG IPLPL202 05403000 @NM00729 DC H'4' 05404000 @NM00730 DC CL2'D' 05405000 @NM00731 DC F'7286' 05406000 ORG IPLPL202+8 05407000 MSSID202 DS CL8 05408000 ORG MSSID202 05409000 @NM00732 DC H'4' 05410000 @NM00733 DC CL2'D' 05411000 @NM00734 DC F'0' 05412000 ORG MSSID202+8 05413000 VTOCL202 DS CL8 05414000 ORG VTOCL202 05415000 @NM00735 DC H'4' 05416000 @NM00736 DC CL2'D' 05417000 @NM00737 DC XL4'00000001' 05418000 ORG VTOCL202+8 05419000 VTOCE202 DS CL8 05420000 ORG VTOCE202 05421000 @NM00738 DC H'4' 05422000 @NM00739 DC CL2'D' 05423000 @NM00740 DC F'1' 05424000 ORG VTOCE202+8 05425000 DSCBF202 DS CL8 05426000 ORG DSCBF202 05427000 @NM00741 DC AL2(14) 05428000 @NM00742 DC CL2'A' 05429000 @NM00743 DC AL4(DSCB4DC7) 05430000 ORG DSCBF202+8 05431000 NUMSD202 DS CL8 05432000 ORG NUMSD202 05433000 @NM00744 DC H'4' 05434000 @NM00745 DC CL2'D' 05435000 @NM00746 DC F'1' 05436000 ORG NUMSD202+8 05437000 TRKCP202 DS CL8 05438000 ORG TRKCP202 05439000 @NM00747 DC H'4' 05440000 @NM00748 DC CL2'D' 05441000 @NM00749 DC F'8535' 05442000 ORG TRKCP202+8 05443000 RECOH202 DS CL8 05444000 ORG RECOH202 05445000 @NM00750 DC H'4' 05446000 @NM00751 DC CL2'D' 05447000 @NM00752 DC F'167' 05448000 ORG RECOH202+8 05449000 BSRW1202 DS CL8 05450000 ORG BSRW1202 05451000 @NM00753 DC AL2(36) 05452000 @NM00754 DC CL2'A' 05453000 @NM00755 DC AL4(IPLBOOTW) 05454000 ORG BSRW1202+8 05455000 PTRKS222 DS CL8 05456000 ORG PTRKS222 05457000 @NM00756 DC H'4' 05458000 @NM00757 DC CL2'D' 05459000 @NM00758 DC AL4(555*30) 05460000 ORG PTRKS222+8 05461000 ATRKS222 DS CL8 05462000 ORG ATRKS222 05463000 @NM00759 DC H'4' 05464000 @NM00760 DC CL2'D' 05465000 @NM00761 DC F'150' 05466000 ORG ATRKS222+8 05467000 MRTRK222 DS CL8 05468000 ORG MRTRK222 05469000 @NM00762 DC H'4' 05470000 @NM00763 DC CL2'D' 05471000 @NM00764 DC F'103' 05472000 ORG MRTRK222+8 05473000 TKCYL222 DS CL8 05474000 ORG TKCYL222 05475000 @NM00765 DC H'4' 05476000 @NM00766 DC CL2'D' 05477000 @NM00767 DC F'30' 05478000 ORG TKCYL222+8 05479000 LPADD222 DS CL8 05480000 ORG LPADD222 05481000 @NM00768 DC H'4' 05482000 @NM00769 DC CL2'D' 05483000 @NM00770 DC X'022A001D' 05484000 ORG LPADD222+8 05485000 FAADD222 DS CL8 05486000 ORG FAADD222 05487000 @NM00771 DC H'4' 05488000 @NM00772 DC CL2'D' 05489000 @NM00773 DC X'022B0000' 05490000 ORG FAADD222+8 05491000 LAADD222 DS CL8 05492000 ORG LAADD222 05493000 @NM00774 DC H'4' 05494000 @NM00775 DC CL2'D' 05495000 @NM00776 DC X'022F001D' 05496000 ORG LAADD222+8 05497000 THOLD222 DS CL8 05498000 ORG THOLD222 05499000 @NM00777 DC H'4' 05500000 @NM00778 DC CL2'D' 05501000 @NM00779 DC F'10' 05502000 ORG THOLD222+8 05503000 BSRS1222 DS CL8 05504000 ORG BSRS1222 05505000 @NM00780 DC AL2(36) 05506000 @NM00781 DC CL2'A' 05507000 @NM00782 DC AL4(IPLBOOT1) 05508000 ORG BSRS1222+8 05509000 BSRS2222 DS CL8 05510000 ORG BSRS2222 05511000 @NM00783 DC AL2(156) 05512000 @NM00784 DC CL2'A' 05513000 @NM00785 DC AL4(IPLBOOT2) 05514000 ORG BSRS2222+8 05515000 IPLPL222 DS CL8 05516000 ORG IPLPL222 05517000 @NM00786 DC H'4' 05518000 @NM00787 DC CL2'D' 05519000 @NM00788 DC F'17902' 05520000 ORG IPLPL222+8 05521000 MSSID222 DS CL8 05522000 ORG MSSID222 05523000 @NM00789 DC H'4' 05524000 @NM00790 DC CL2'D' 05525000 @NM00791 DC F'0' 05526000 ORG MSSID222+8 05527000 VTOCL222 DS CL8 05528000 ORG VTOCL222 05529000 @NM00792 DC H'4' 05530000 @NM00793 DC CL2'D' 05531000 @NM00794 DC XL4'00000001' 05532000 ORG VTOCL222+8 05533000 VTOCE222 DS CL8 05534000 ORG VTOCE222 05535000 @NM00795 DC H'4' 05536000 @NM00796 DC CL2'D' 05537000 @NM00797 DC F'1' 05538000 ORG VTOCE222+8 05539000 DSCBF222 DS CL8 05540000 ORG DSCBF222 05541000 @NM00798 DC AL2(14) 05542000 @NM00799 DC CL2'A' 05543000 @NM00800 DC AL4(DSCB4DC8) 05544000 ORG DSCBF222+8 05545000 NUMSD222 DS CL8 05546000 ORG NUMSD222 05547000 @NM00801 DC H'4' 05548000 @NM00802 DC CL2'D' 05549000 @NM00803 DC F'3' 05550000 ORG NUMSD222+8 05551000 TRKCP222 DS CL8 05552000 ORG TRKCP222 05553000 @NM00804 DC H'4' 05554000 @NM00805 DC CL2'D' 05555000 @NM00806 DC F'19254' 05556000 ORG TRKCP222+8 05557000 RECOH222 DS CL8 05558000 ORG RECOH222 05559000 @NM00807 DC H'4' 05560000 @NM00808 DC CL2'D' 05561000 @NM00809 DC F'135' 05562000 ORG RECOH222+8 05563000 BSRW1222 DS CL8 05564000 ORG BSRW1222 05565000 @NM00810 DC AL2(36) 05566000 @NM00811 DC CL2'A' 05567000 @NM00812 DC AL4(IPLBOOTW) 05568000 ORG BSRW1222+8 05569000 DEVICES DC AL4(D230A) 05570000 DC AL4(D230B) 05571000 DC AL4(D2314) 05572000 DC AL4(D333A) 05573000 DC AL4(D333B) 05574000 DC AL4(D333C) 05575000 DC AL4(D333D) 05576000 DC AL4(D334A) 05577000 DC AL4(D334B) 05578000 DC AL4(D334C) 05579000 DC AL4(D334D) 05580000 DC AL4(D3350) 05581000 D230A DC AL4(PTRKS002) 05582000 DC AL4(ATRKS002) 05583000 DC AL4(NUMSD002) 05584000 DC AL4(TKCYL002) 05585000 DC AL4(LPADD002) 05586000 DC AL4(FAADD002) 05587000 DC AL4(LAADD002) 05588000 DC AL4(THOLD002) 05589000 DC AL4(BSRS1002) 05590000 DC AL4(BSRS2002) 05591000 DC AL4(IPLPL002) 05592000 DC AL4(MSSID002) 05593000 DC AL4(VTOCL002) 05594000 DC AL4(VTOCE002) 05595000 DC AL4(DSCBF002) 05596000 DC AL4(TRKCP002) 05597000 DC AL4(RECOH002) 05598000 DC AL4(MRTRK002) 05599000 DC AL4(BSRW1002) 05600000 D230B DC AL4(PTRKS022) 05601000 DC AL4(ATRKS022) 05602000 DC AL4(NUMSD022) 05603000 DC AL4(TKCYL022) 05604000 DC AL4(LPADD022) 05605000 DC AL4(FAADD022) 05606000 DC AL4(LAADD022) 05607000 DC AL4(THOLD022) 05608000 DC AL4(BSRS1022) 05609000 DC AL4(BSRS2022) 05610000 DC AL4(IPLPL022) 05611000 DC AL4(MSSID022) 05612000 DC AL4(VTOCL022) 05613000 DC AL4(VTOCE022) 05614000 DC AL4(DSCBF022) 05615000 DC AL4(TRKCP022) 05616000 DC AL4(RECOH022) 05617000 DC AL4(MRTRK022) 05618000 DC AL4(BSRW1022) 05619000 D2314 DC AL4(PTRKS042) 05620000 DC AL4(ATRKS042) 05621000 DC AL4(NUMSD042) 05622000 DC AL4(TKCYL042) 05623000 DC AL4(LPADD042) 05624000 DC AL4(FAADD042) 05625000 DC AL4(LAADD042) 05626000 DC AL4(THOLD042) 05627000 DC AL4(BSRS1042) 05628000 DC AL4(BSRS2042) 05629000 DC AL4(IPLPL042) 05630000 DC AL4(MSSID042) 05631000 DC AL4(VTOCL042) 05632000 DC AL4(VTOCE042) 05633000 DC AL4(DSCBF042) 05634000 DC AL4(TRKCP042) 05635000 DC AL4(RECOH042) 05636000 DC AL4(MRTRK042) 05637000 DC AL4(BSRW1042) 05638000 D333A DC AL4(PTRKS062) 05639000 DC AL4(ATRKS062) 05640000 DC AL4(NUMSD062) 05641000 DC AL4(TKCYL062) 05642000 DC AL4(LPADD062) 05643000 DC AL4(FAADD062) 05644000 DC AL4(LAADD062) 05645000 DC AL4(THOLD062) 05646000 DC AL4(BSRS1062) 05647000 DC AL4(BSRS2062) 05648000 DC AL4(IPLPL062) 05649000 DC AL4(MSSID062) 05650000 DC AL4(VTOCL062) 05651000 DC AL4(VTOCE062) 05652000 DC AL4(DSCBF062) 05653000 DC AL4(TRKCP062) 05654000 DC AL4(RECOH062) 05655000 DC AL4(MRTRK062) 05656000 DC AL4(BSRW1062) 05657000 D333B DC AL4(PTRKS082) 05658000 DC AL4(ATRKS082) 05659000 DC AL4(NUMSD082) 05660000 DC AL4(TKCYL082) 05661000 DC AL4(LPADD082) 05662000 DC AL4(FAADD082) 05663000 DC AL4(LAADD082) 05664000 DC AL4(THOLD082) 05665000 DC AL4(BSRS1082) 05666000 DC AL4(BSRS2082) 05667000 DC AL4(IPLPL082) 05668000 DC AL4(MSSID082) 05669000 DC AL4(VTOCL082) 05670000 DC AL4(VTOCE082) 05671000 DC AL4(DSCBF082) 05672000 DC AL4(TRKCP082) 05673000 DC AL4(RECOH082) 05674000 DC AL4(MRTRK082) 05675000 DC AL4(BSRW1082) 05676000 D333C DC AL4(PTRKS102) 05677000 DC AL4(ATRKS102) 05678000 DC AL4(NUMSD102) 05679000 DC AL4(TKCYL102) 05680000 DC AL4(LPADD102) 05681000 DC AL4(FAADD102) 05682000 DC AL4(LAADD102) 05683000 DC AL4(THOLD102) 05684000 DC AL4(BSRS1102) 05685000 DC AL4(BSRS2102) 05686000 DC AL4(IPLPL102) 05687000 DC AL4(MSSID102) 05688000 DC AL4(VTOCL102) 05689000 DC AL4(VTOCE102) 05690000 DC AL4(DSCBF102) 05691000 DC AL4(TRKCP102) 05692000 DC AL4(RECOH102) 05693000 DC AL4(MRTRK102) 05694000 DC AL4(BSRW1102) 05695000 D333D DC AL4(PTRKS122) 05696000 DC AL4(ATRKS122) 05697000 DC AL4(NUMSD122) 05698000 DC AL4(TKCYL122) 05699000 DC AL4(LPADD122) 05700000 DC AL4(FAADD122) 05701000 DC AL4(LAADD122) 05702000 DC AL4(THOLD122) 05703000 DC AL4(BSRS1122) 05704000 DC AL4(BSRS2122) 05705000 DC AL4(IPLPL122) 05706000 DC AL4(MSSID122) 05707000 DC AL4(VTOCL122) 05708000 DC AL4(VTOCE122) 05709000 DC AL4(DSCBF122) 05710000 DC AL4(TRKCP122) 05711000 DC AL4(RECOH122) 05712000 DC AL4(MRTRK122) 05713000 DC AL4(BSRW1122) 05714000 D334A DC AL4(PTRKS142) 05715000 DC AL4(ATRKS142) 05716000 DC AL4(NUMSD142) 05717000 DC AL4(TKCYL142) 05718000 DC AL4(LPADD142) 05719000 DC AL4(FAADD142) 05720000 DC AL4(LAADD142) 05721000 DC AL4(THOLD142) 05722000 DC AL4(BSRS1142) 05723000 DC AL4(BSRS2142) 05724000 DC AL4(IPLPL142) 05725000 DC AL4(MSSID142) 05726000 DC AL4(VTOCL142) 05727000 DC AL4(VTOCE142) 05728000 DC AL4(DSCBF142) 05729000 DC AL4(TRKCP142) 05730000 DC AL4(RECOH142) 05731000 DC AL4(MRTRK142) 05732000 DC AL4(BSRW1142) 05733000 D334B DC AL4(PTRKS162) 05734000 DC AL4(ATRKS162) 05735000 DC AL4(NUMSD162) 05736000 DC AL4(TKCYL162) 05737000 DC AL4(LPADD162) 05738000 DC AL4(FAADD162) 05739000 DC AL4(LAADD162) 05740000 DC AL4(THOLD162) 05741000 DC AL4(BSRS1162) 05742000 DC AL4(BSRS2162) 05743000 DC AL4(IPLPL162) 05744000 DC AL4(MSSID162) 05745000 DC AL4(VTOCL162) 05746000 DC AL4(VTOCE162) 05747000 DC AL4(DSCBF162) 05748000 DC AL4(TRKCP162) 05749000 DC AL4(RECOH162) 05750000 DC AL4(MRTRK162) 05751000 DC AL4(BSRW1162) 05752000 D334C DC AL4(PTRKS182) 05753000 DC AL4(ATRKS182) 05754000 DC AL4(NUMSD182) 05755000 DC AL4(TKCYL182) 05756000 DC AL4(LPADD182) 05757000 DC AL4(FAADD182) 05758000 DC AL4(LAADD182) 05759000 DC AL4(THOLD182) 05760000 DC AL4(BSRS1182) 05761000 DC AL4(BSRS2182) 05762000 DC AL4(IPLPL182) 05763000 DC AL4(MSSID182) 05764000 DC AL4(VTOCL182) 05765000 DC AL4(VTOCE182) 05766000 DC AL4(DSCBF182) 05767000 DC AL4(TRKCP182) 05768000 DC AL4(RECOH182) 05769000 DC AL4(MRTRK182) 05770000 DC AL4(BSRW1182) 05771000 D334D DC AL4(PTRKS202) 05772000 DC AL4(ATRKS202) 05773000 DC AL4(NUMSD202) 05774000 DC AL4(TKCYL202) 05775000 DC AL4(LPADD202) 05776000 DC AL4(FAADD202) 05777000 DC AL4(LAADD202) 05778000 DC AL4(THOLD202) 05779000 DC AL4(BSRS1202) 05780000 DC AL4(BSRS2202) 05781000 DC AL4(IPLPL202) 05782000 DC AL4(MSSID202) 05783000 DC AL4(VTOCL202) 05784000 DC AL4(VTOCE202) 05785000 DC AL4(DSCBF202) 05786000 DC AL4(TRKCP202) 05787000 DC AL4(RECOH202) 05788000 DC AL4(MRTRK202) 05789000 DC AL4(BSRW1202) 05790000 D3350 DC AL4(PTRKS222) 05791000 DC AL4(ATRKS222) 05792000 DC AL4(NUMSD222) 05793000 DC AL4(TKCYL222) 05794000 DC AL4(LPADD222) 05795000 DC AL4(FAADD222) 05796000 DC AL4(LAADD222) 05797000 DC AL4(THOLD222) 05798000 DC AL4(BSRS1222) 05799000 DC AL4(BSRS2222) 05800000 DC AL4(IPLPL222) 05801000 DC AL4(MSSID222) 05802000 DC AL4(VTOCL222) 05803000 DC AL4(VTOCE222) 05804000 DC AL4(DSCBF222) 05805000 DC AL4(TRKCP222) 05806000 DC AL4(RECOH222) 05807000 DC AL4(MRTRK222) 05808000 DC AL4(BSRW1222) 05809000 VOLSELS DC AL4(VOL01) 05810000 DC AL4(VOL02) 05811000 DC AL4(VOL03) 05812000 DC AL4(VOL04) 05813000 DC AL4(VOL05) 05814000 DC AL4(VOL06) 05815000 DC AL4(VOL07) 05816000 DC AL4(VOL08) 05817000 DC AL4(VOL09) 05818000 DC AL4(VOL10) 05819000 SVOLSELS DC AL4(SVOL01) 05820000 DC AL4(SVOL02) 05821000 @DATD DSECT 05822000 ICKDV02 CSECT 05823000 ENTRY ICKDVS2 05824000 ICKDVS2 DC A(@SIZDATD) 05825000 @DATD DSECT 05826000 ORG *+1-(*-@DATD)/(*-@DATD) INSURE DSECT DATA 05827000 @ENDDATD EQU * 05828000 ICKDV02 CSECT 05829000 @00 EQU 00 EQUATES FOR REGISTERS 0-15 05830000 @01 EQU 01 05831000 @02 EQU 02 05832000 @03 EQU 03 05833000 @04 EQU 04 05834000 @05 EQU 05 05835000 @06 EQU 06 05836000 @07 EQU 07 05837000 @08 EQU 08 05838000 @09 EQU 09 05839000 @10 EQU 10 05840000 @11 EQU 11 05841000 @12 EQU 12 05842000 @13 EQU 13 05843000 @14 EQU 14 05844000 @15 EQU 15 05845000 INFOEPTR EQU @02 05846000 INFOVPTR EQU @03 05847000 TESTRC EQU @03 05848000 REG11 EQU @11 05849000 REG12 EQU @12 05850000 RTNREG EQU @15 05851000 REG13 EQU @13 05852000 REG14 EQU @14 05853000 REG15 EQU @15 05854000 REG0 EQU @00 05855000 REG1 EQU @01 05856000 REG10 EQU @10 05857000 REG2 EQU @02 05858000 REG3 EQU @03 05859000 REG4 EQU @04 05860000 REG5 EQU @05 05861000 REG6 EQU @06 05862000 REG7 EQU @07 05863000 REG8 EQU @08 05864000 REG9 EQU @09 05865000 ICKSAEP0 EQU 0 05866000 ICKSAGP0 EQU 0 05867000 TRACE1 EQU 0 05868000 OLDERID1 EQU TRACE1 05869000 TRACE2 EQU 0 05870000 OLDERID2 EQU TRACE2 05871000 NEWID2 EQU TRACE2+95 05872000 NEWERID2 EQU 5 05873000 STAEPARM EQU 0 05874000 STAEPFX EQU STAEPARM 05875000 IOCSTR EQU 0 05876000 IOCDSO EQU IOCSTR+13 05877000 IOCRFM EQU IOCSTR+14 05878000 IOCMAC EQU IOCSTR+15 05879000 IOCMSG EQU IOCSTR+16 05880000 OPNAGL EQU 0 05881000 OPNOPT EQU OPNAGL 05882000 OPNRFM EQU OPNAGL+1 05883000 OPNTYP EQU OPNAGL+2 05884000 OPNMOD EQU OPNAGL+3 05885000 UVOLLIST EQU 0 05886000 UVOLENT EQU UVOLLIST+2 05887000 DARGLIST EQU 0 05888000 DARGSTID EQU DARGLIST+8 05889000 DARGARY EQU DARGLIST+20 05890000 DARGINS EQU DARGARY 05891000 DARGINL EQU DARGARY+2 05892000 FMTLIST EQU 0 05893000 FMTFLGS EQU FMTLIST 05894000 FMTSPF EQU FMTLIST+2 05895000 FMTRFNO EQU FMTSPF 05896000 FMTILEN EQU FMTRFNO 05897000 FMTIOFF EQU FMTLIST+4 05898000 FMTTRBC EQU FMTIOFF 05899000 FMTSTO EQU FMTTRBC 05900000 FMTOCOL EQU FMTLIST+6 05901000 FMTCNVF EQU FMTLIST+10 05902000 ICKDB010 EQU 0 05903000 DMPITM EQU 0 05904000 DMPARY EQU 0 05905000 VOLIB EQU 0 05906000 VLMAPF EQU VOLIB+8 05907000 VLMAPL EQU VOLIB+12 05908000 VLIOBPTR EQU VOLIB+16 05909000 VLDNMCUU EQU VOLIB+20 05910000 VLUCBDT EQU VOLIB+28 05911000 VLDEVIND EQU VOLIB+32 05912000 VLPRVOL EQU VOLIB+33 05913000 VLFINIT EQU VOLIB+34 05914000 VLSTATE EQU VOLIB+35 05915000 VLNTYP EQU VOLIB+36 05916000 APINFO EQU 0 05917000 CNTBLKS EQU 0 05918000 DEVSENSE EQU 0 05919000 BYTE0 EQU DEVSENSE 05920000 BYTE1 EQU DEVSENSE+1 05921000 BYTE2 EQU DEVSENSE+2 05922000 SEN3344 EQU BYTE2 05923000 INFOVECT EQU 0 05924000 INFOCELL EQU 0 05925000 INFOSIZE EQU INFOCELL 05926000 INFOTYP EQU INFOCELL+2 05927000 INFOADDR EQU INFOCELL+4 05928000 INFOVAL EQU INFOADDR 05929000 INFOTRG EQU 0 05930000 INFOSRC EQU 0 05931000 DMPTRM EQU 0 05932000 ICKDVCL0 EQU 0 05933000 ICKDVIN0 EQU 0 05934000 ICKDVON0 EQU 0 05935000 ICKDVOP0 EQU 0 05936000 ICKIOCL0 EQU 0 05937000 ICKIOGT0 EQU 0 05938000 ICKIOIT0 EQU 0 05939000 ICKIOOP0 EQU 0 05940000 ICKIOPT0 EQU 0 05941000 ICKIOTM0 EQU 0 05942000 ICKSACL0 EQU 0 05943000 ICKSADE0 EQU 0 05944000 ICKSAFP0 EQU 0 05945000 ICKSAFS0 EQU 0 05946000 ICKSAGS0 EQU 0 05947000 ICKSALD0 EQU 0 05948000 ICKSAPR0 EQU 0 05949000 ICKSASC0 EQU 0 05950000 ICKSASN0 EQU 0 05951000 ICKSAST0 EQU 0 05952000 ICKSATI0 EQU 0 05953000 ICKSAVC0 EQU 0 05954000 ICKSAWO0 EQU 0 05955000 ICKTPEA0 EQU 0 05956000 ICKTPES0 EQU 0 05957000 ICKTPPR0 EQU 0 05958000 ICKTPRE0 EQU 0 05959000 ICKTPRS0 EQU 0 05960000 LISTTEST EQU 0 05961000 NEWERID1 EQU 5 05962000 GDTTBL EQU 0 05963000 GDTTR1 EQU GDTTBL+8 05964000 GDTTR2 EQU GDTTBL+12 05965000 GDTDIN EQU GDTTBL+44 05966000 GDTDOP EQU GDTTBL+48 05967000 GDTDBG EQU GDTTBL+52 05968000 GDTDVO EQU GDTTBL+56 05969000 GDTPRT EQU GDTTBL+60 05970000 GDTESS EQU GDTTBL+64 05971000 GDTESA EQU GDTTBL+68 05972000 GDTRST EQU GDTTBL+72 05973000 GDTRES EQU GDTTBL+76 05974000 GDTCAL EQU GDTTBL+80 05975000 GDTGSP EQU GDTTBL+84 05976000 GDTFSP EQU GDTTBL+88 05977000 GDTGPL EQU GDTTBL+92 05978000 GDTFPL EQU GDTTBL+96 05979000 GDTLOD EQU GDTTBL+100 05980000 GDTDEL EQU GDTTBL+104 05981000 GDTPRL EQU GDTTBL+108 05982000 GDTEPL EQU GDTTBL+112 05983000 GDTTIM EQU GDTTBL+116 05984000 GDTIIO EQU GDTTBL+120 05985000 GDTTIO EQU GDTTBL+124 05986000 GDTOPN EQU GDTTBL+136 05987000 GDTCLS EQU GDTTBL+140 05988000 GDTGET EQU GDTTBL+144 05989000 GDTPUT EQU GDTTBL+148 05990000 GDTABT EQU GDTTBL+152 05991000 GDTABH EQU GDTTBL+156 05992000 GDTSNP EQU GDTTBL+160 05993000 GDTWTO EQU GDTTBL+168 05994000 GDTSCR EQU GDTTBL+172 05995000 GDTVCK EQU GDTTBL+176 05996000 GDTDVC EQU GDTTBL+180 05997000 GDTSTE EQU GDTTBL+188 05998000 VOLIBPTR EQU 0 05999000 INFOKEY EQU 0 06000000 POOLID EQU 0 06001000 INFOPTR EQU 0 06002000 INFOLEN EQU 0 06003000 CONDCODE EQU 0 06004000 INFOITEM EQU 0 06005000 AGO .@UNREFD START UNREFERENCED COMPONENTS 06006000 GDTCVR EQU GDTTBL+184 06007000 GDTSPR EQU GDTTBL+164 06008000 GDTTOH EQU GDTTBL+132 06009000 GDTRIP EQU GDTTBL+128 06010000 GDTDVH EQU GDTTBL+40 06011000 GDTIOH EQU GDTTBL+36 06012000 GDTSAH EQU GDTTBL+32 06013000 GDTTPH EQU GDTTBL+28 06014000 GDTRIH EQU GDTTBL+24 06015000 GDTSTH EQU GDTTBL+20 06016000 GDTDBH EQU GDTTBL+16 06017000 GDTPRM EQU GDTTBL+4 06018000 GDTHDR EQU GDTTBL 06019000 SENMB35 EQU BYTE2 06020000 SENMB70 EQU BYTE2 06021000 @NM00025 EQU BYTE2 06022000 SENEMUL EQU SEN3344 06023000 @NM00024 EQU BYTE2 06024000 SENCERR EQU BYTE2 06025000 SENRPSPR EQU BYTE2 06026000 @NM00023 EQU BYTE1 06027000 SENRFND EQU BYTE1 06028000 @NM00022 EQU BYTE1 06029000 SENPERR EQU BYTE1 06030000 SENSEEKC EQU BYTE0 06031000 SENTRKCK EQU BYTE0 06032000 @NM00021 EQU BYTE0 06033000 SENDATCK EQU BYTE0 06034000 SENEQCK EQU BYTE0 06035000 @NM00020 EQU BYTE0 06036000 CBAPINFO EQU CNTBLKS+180 06037000 CBDCB EQU CNTBLKS+84 06038000 CBIOB EQU CNTBLKS+44 06039000 CBECB EQU CNTBLKS+40 06040000 CBVOLIB EQU CNTBLKS 06041000 APOVFLO EQU APINFO+92 06042000 APSAVE EQU APINFO+28 06043000 APTRKCT EQU APINFO+24 06044000 APLASTA EQU APINFO+20 06045000 APASSOC EQU APINFO+16 06046000 APTRACK EQU APINFO+12 06047000 APANXT EQU APINFO+8 06048000 APAKEY EQU APINFO+4 06049000 APABNC EQU APINFO 06050000 @NM00019 EQU VOLIB+38 06051000 VLNUMBER EQU VOLIB+37 06052000 VLDEVTYP EQU VLUCBDT+3 06053000 @NM00018 EQU VLUCBDT 06054000 VLBPTR EQU VOLIB+4 06055000 VLFPTR EQU VOLIB 06056000 @NM00017 EQU DMPARY+15 06057000 DMPARYTP EQU DMPARY+14 06058000 DMPARYEX EQU DMPARY+12 06059000 DMPARYIC EQU DMPARY+10 06060000 DMPARYSZ EQU DMPARY+8 06061000 DMPARYNM EQU DMPARY 06062000 @NM00016 EQU DMPITM+15 06063000 DMPITMTP EQU DMPITM+14 06064000 DMPITMLN EQU DMPITM+12 06065000 DMPITMPT EQU DMPITM+8 06066000 DMPITMNM EQU DMPITM 06067000 @NM00015 EQU FMTCNVF+1 06068000 FMTBS EQU FMTCNVF+1 06069000 FMTSS EQU FMTCNVF+1 06070000 FMTAL EQU FMTCNVF+1 06071000 FMTZS EQU FMTCNVF+1 06072000 @NM00014 EQU FMTCNVF 06073000 FMTPU EQU FMTCNVF 06074000 FMTBD EQU FMTCNVF 06075000 FMTBHD EQU FMTCNVF 06076000 FMTBHA EQU FMTCNVF 06077000 FMTBH EQU FMTCNVF 06078000 FMTOLEN EQU FMTLIST+8 06079000 FMTRIO EQU FMTOCOL 06080000 FMTSPT EQU FMTSTO 06081000 FMTSTL EQU FMTILEN 06082000 @NM00013 EQU FMTFLGS+1 06083000 FMTHDF EQU FMTFLGS 06084000 FMTDFF EQU FMTFLGS 06085000 FMTSTF EQU FMTFLGS 06086000 FMTREPF EQU FMTFLGS 06087000 FMTBDF EQU FMTFLGS 06088000 FMTIDF EQU FMTFLGS 06089000 FMTSCF EQU FMTFLGS 06090000 FMTEOLF EQU FMTFLGS 06091000 DARGDTM EQU DARGARY+4 06092000 DARGPCT EQU DARGINL 06093000 DARGREP EQU DARGINS 06094000 @NM00012 EQU DARGLIST+19 06095000 DARGIND EQU DARGLIST+18 06096000 DARGRETL EQU DARGLIST+16 06097000 DARGCNT EQU DARGLIST+14 06098000 DARGILP EQU DARGLIST+12 06099000 DARGSENT EQU DARGSTID+3 06100000 DARGSMOD EQU DARGSTID 06101000 DARGRETP EQU DARGLIST+4 06102000 DARGDBP EQU DARGLIST 06103000 UVOLVOL EQU UVOLENT+4 06104000 UVOLDEV EQU UVOLENT 06105000 UVOLCNT EQU UVOLLIST 06106000 OPNRSVD EQU OPNAGL+28 06107000 OPNVOL EQU OPNAGL+24 06108000 OPNBLK EQU OPNAGL+20 06109000 OPNREC EQU OPNAGL+16 06110000 OPNDSN EQU OPNAGL+12 06111000 OPNDDN EQU OPNAGL+8 06112000 OPNIOC EQU OPNAGL+4 06113000 @NM00011 EQU OPNMOD 06114000 OPNMODRC EQU OPNMOD 06115000 OPNMODAC EQU OPNMOD 06116000 @NM00010 EQU OPNTYP 06117000 OPNTYPSO EQU OPNTYP 06118000 OPNTYPSI EQU OPNTYP 06119000 @NM00009 EQU OPNRFM 06120000 OPNRFMBK EQU OPNRFM 06121000 OPNRFMSF EQU OPNRFM 06122000 OPNRFMUN EQU OPNRFM 06123000 OPNRFMVR EQU OPNRFM 06124000 OPNRFMFX EQU OPNRFM 06125000 @NM00008 EQU OPNOPT 06126000 OPNOPTJM EQU OPNOPT 06127000 OPNOPTKS EQU OPNOPT 06128000 OPNOPTBK EQU OPNOPT 06129000 OPNOPTUP EQU OPNOPT 06130000 OPNOPTOT EQU OPNOPT 06131000 OPNOPTIN EQU OPNOPT 06132000 IOCEXT EQU IOCSTR+36 06133000 IOCRRN EQU IOCSTR+32 06134000 @NM00007 EQU IOCSTR+30 06135000 IOCPNM EQU IOCSTR+28 06136000 IOCCBP EQU IOCSTR+24 06137000 IOCDSN EQU IOCSTR+20 06138000 @NM00006 EQU IOCSTR+17 06139000 @NM00005 EQU IOCMSG 06140000 IOCMSGOP EQU IOCMSG 06141000 IOCMACPA EQU IOCMAC 06142000 @NM00004 EQU IOCMAC 06143000 IOCMACBK EQU IOCMAC 06144000 IOCMACUP EQU IOCMAC 06145000 IOCMACOT EQU IOCMAC 06146000 IOCMACIN EQU IOCMAC 06147000 @NM00003 EQU IOCRFM 06148000 IOCRFMBK EQU IOCRFM 06149000 IOCRFMSF EQU IOCRFM 06150000 IOCRFMUN EQU IOCRFM 06151000 IOCRFMVR EQU IOCRFM 06152000 IOCRFMFX EQU IOCRFM 06153000 @NM00002 EQU IOCDSO 06154000 IOCDSOPS EQU IOCDSO 06155000 IOCKYL EQU IOCSTR+12 06156000 IOCTRN EQU IOCSTR+8 06157000 IOCDLN EQU IOCSTR+4 06158000 IOCDAD EQU IOCSTR 06159000 STAEWORK EQU STAEPARM+32 06160000 STARPTR EQU STAEPFX+28 06161000 STASPTR EQU STAEPFX+24 06162000 STALEN EQU STAEPFX+20 06163000 STAID EQU STAEPFX+16 06164000 STAEPA EQU STAEPFX+12 06165000 STAGDT EQU STAEPFX+8 06166000 STABPTR EQU STAEPFX+4 06167000 STAFPTR EQU STAEPFX 06168000 NEWID1 EQU TRACE1+95 06169000 CALLID EQU OLDERID1+90 06170000 @NM00001 EQU OLDERID1 06171000 .@UNREFD ANOP END UNREFERENCED COMPONENTS 06172000 @RF00530 EQU @RC00456 06173000 @RC00533 EQU @RC00456 06174000 @RC00536 EQU @RC00533 06175000 @RC00554 EQU @RC00536 06176000 @RC00552 EQU @RC00536 06177000 @ENDDATA EQU * 06178000 END ICKDV02,(C'PLS1703',0701,78192) 06179000