/********************************************************** @Y30LB12*/ 00050003 /* THE FOLLOWING STRUCTURES, COMTAB AND COMTAB2, ARE THE @Y30LB12*/ 00100003 /* MAPPING OF THE GETMAIN AREA OBTAINED BY ICGDSINT. @Y30LB12*/ 00150003 /* COMTAB IS BASED OFF REGISTER 4 (RESERVED THROUGHOUT @Y30LB12*/ 00200003 /* TABLE CREATE) AND COMTAB2 IS BASED OFF THE POINTER @Y30LB12*/ 00250003 /* COMPTR2 WITHIN COMTAB. @Y30LB12*/ 00300003 /********************************************************** @Y30LB12*/ 00350003 DCL 1 COMTAB BOUNDARY(DWORD) BASED(R4),/* @Y30LB12*/ 00400003 2 PATCH CHAR(256), /* PATCH, INIT 0 @Y30LB12*/ 00450003 00460003 /**************************************************** @Y30LB12*/ 00500003 /* THE FOLLOWING AREA WILL CONTAIN THE DCB FOR SYSIN @Y30LB12*/ 00550003 /* DURING SCAN AND THE DCB FOR SYSPUNCH DURING BUILD. @Y30LB12*/ 00600003 /* IN EACH CASE, A MODEL DCB IS COPIED INTO THIS AREA @Y30LB12*/ 00650003 /* AND THE OPEN IS PERFORMED ON THIS COPY. @Y30LB12*/ 00700003 /* IN THIS AREA IS ALSO THE WORK AREA USED DURING @Y30LB12*/ 00750003 /* READING FROM SYSIN @Y30LB12*/ 00800003 /**************************************************** @Y30LB12*/ 00850003 2 READER BOUNDARY(DWORD), /* @Y30LB12*/ 00900003 3 READDCB CHAR(96), /* SYSIN/SYSPCH DCB @Y30LB12*/ 00950003 3 READFLAG BIT(8), /* SYSIN FLAG BITS @Y30LB12*/ 01000003 4 READTERM BIT(1), /* END OF DATA, S99 @Y30LB12*/ 01050003 4 KEYBIT BIT(1), /* SCANNED KEYWORD @Y30LB12*/ 01100003 4 PARMBIT BIT(1), /* SCANNED PARAMETER @Y30LB12*/ 01150003 4 ENDSCAN BIT(1), /* ABNORMAL END, S99 @Y30LB12*/ 01200003 4 LASTPARM BIT(1), /* NORMAL END @Y30LB12*/ 01250003 4 * BIT(3), /* UNUSED @Y30LB12*/ 01300003 3 * CHAR(2), /* UNUSED @Y30LB12*/ 01350003 3 PCHBF CHAR(1), /* SYSPUNCH WORKAREA @Y30LB12*/ 01400003 4 SSELECT CHAR(1), /* STACKER SELECT @Y30LB12*/ 01450003 3 INBUF CHAR(80), /* SYSIN WORK AREA @Y30LB12*/ 01500003 3 STARTCOL PTR(31), /* CURRENT START COL @Y30LB12*/ 01550003 3 NEXTCOL PTR(31), /* START NEXT FIELD @Y30LB12*/ 01600003 3 SAVESCOL PTR(31), /* SAVED CURR START @Y30LB12*/ 01650003 3 SAVENCOL PTR(31), /* SAVED START NEXT @Y30LB12*/ 01700003 3 SVSYNAD2 PTR(31), /* SAVE, SYSIN SYNAD @Y30LB12*/ 01750003 3 SVEODAD PTR(31), /* SAVE, SYSIN EODAD @Y30LB12*/ 01800003 3 SCANLEN FIXED(15), /* LEN OF SCAN DATA @Y30LB12*/ 01850003 3 * FIXED(15), /* UNUSED @Y30LB12*/ 01900003 01910003 /**************************************************** @Y30LB12*/ 01950003 /* THIS IS THE DCB FOR SYSPRINT. IT WILL BE USED @Y30LB12*/ 02000003 /* FOR THE ENTIRE DURATION OF THE RUN. @Y30LB12*/ 02050003 /* INCLUDED ALSO IN THIS AREA IS THE WORK AREA @Y30LB12*/ 02100003 /* USED FOR COMMUNICATIONS WITH THE MESSAGE @Y30LB12*/ 02150003 /* WRITER @Y30LB12*/ 02200003 /**************************************************** @Y30LB12*/ 02250003 2 PRINTER BOUNDARY(DWORD), /* @Y30LB12*/ 02300003 3 DCBPRINT CHAR(96), /* SYSPRINT DCB @Y30LB12*/ 02350003 3 PAGENO CHAR(4), /* STARTING PAGE NO. @Y30LB12*/ 02400003 3 LINECTR FIXED(15), /* LINES LEFT TO PRT @Y30LB12*/ 02450003 3 LINECT FIXED(15), /* LINES PER PAGE @Y30LB12*/ 02500003 3 OUTBUF CHAR(121), /* 1ST PRINT BUFFER @Y30LB12*/ 02550003 3 OUTBUF2 CHAR(121), /* 1ST PRINT BUFFER @Y30LB12*/ 02600003 02610003 /**************************************************** @Y30LB12*/ 02650003 /* THIS AREA IS USED FOR COMMUNICATIONS WITH THE @Y30LB12*/ 02700003 /* MESSAGE WRITER (ICGDSMSG). @Y30LB12*/ 02750003 /**************************************************** @Y30LB12*/ 02800003 2 MESSAGES, /* @Y30LB12*/ 02850003 3 RETCODE FIXED(15), /* HIGHEST RETURN CD @Y30LB12*/ 02900003 3 MSGNO FIXED(15), /* MSG PTR, ICGDSMSG @Y30LB12*/ 02950003 3 WARNING FIXED(15), /* COUNT WARNING MSG @Y30LB12*/ 03000003 3 TERMINAT FIXED(15), /* COUNT TERM MSGS @Y30LB12*/ 03050003 3 WARN CHAR(4), /* PRINTABLE WARN CT @Y30LB12*/ 03100003 3 TERM CHAR(4), /* PRINTABLE TERM CT @Y30LB12*/ 03150003 3 PRINTRC CHAR(2), /* PRINTABLE RET CD @Y30LB12*/ 03200003 3 SPECLMSG BIT(8), /* ICGDSMSG FLAGS @Y30LB12*/ 03250003 4 NEED101 BIT(1), /* NEED ICGDS101 MSG @Y30LB12*/ 03300003 4 NEED102 BIT(1), /* NEED ICGDS102 MSG @Y30LB12*/ 03350003 4 * BIT(1), /* UNUSED @Y30LB12*/ 03400003 4 PRNTCARD BIT(1), /* PRINT CARD IMAGE @Y30LB12*/ 03450003 4 * BIT(1), /* UNUSED @Y30LB12*/ 03500003 4 ENDPHASE BIT(1), /* ICGDS103,4,5,OR 6 @Y30LB12*/ 03550003 4 NEEDEOJ BIT(1), /* NEED ICGDS107 @Y30LB12*/ 03600003 4 PRNTBUF2 BIT(1), /* PRINT FROM BUF2 @Y30LB12*/ 03650003 3 * CHAR(3), /* UNUSED @Y30LB12*/ 03700003 03710003 /**************************************************** @Y30LB12*/ 03750003 /* THE FOLLOWING AREA IS A GENERAL WORK AREA USED @Y30LB12*/ 03800003 /* TO HANDLE I/O OPERATIONS. IT ALSO CONTAINS THE @Y30LB12*/ 03850003 /* POINTER TO THE COMMON WORK AREA FOR BUILD ROUTINES.@Y30LB12*/ 03900003 /**************************************************** @Y30LB12*/ 03950003 2 GENIO, /* @Y30LB12*/ 04000003 3 OPENLIST CHAR(4) BOUNDARY(WORD),/* TO EXEC OPEN @Y30LB12*/ 04050003 3 DCBPTR PTR(31), /* FOR DCB OVERLAY @Y30LB12*/ 04100003 4 DCBFLAG CHAR(1), /* OPTIONS FLAG @Y30LB12*/ 04150003 4 * CHAR(3), /* @Y30LB12*/ 04200003 3 EXLST CHAR(4), /* EXIT LIST @Y30LB12*/ 04250003 3 SAVE14 CHAR(4), /* R14 DURING EXITS @Y30LB12*/ 04300003 3 COMPTR2 PTR(31) BOUNDARY(WORD), /* PTR TO COMTAB2 @Y30LB12*/ 04350003 3 BUILDPTR PTR(31) BOUNDARY(WORD), /* PTR BUILDTAB @Y30LB12*/ 04400003 04410003 /**************************************************** @Y30LB12*/ 04450003 /* THIS AREA CONTAINS THE INVOKER'S REGISTER 1 AND @Y30LB12*/ 04500003 /* THE NAMES OF USER SUPPLIED ALTERNATE DDNAMES. @Y30LB12*/ 04550003 /**************************************************** @Y30LB12*/ 04600003 2 INVOKED, /* @Y30LB12*/ 04650003 3 PARMPTR PTR(31), /* INVOKER'S PARM R1 @Y30LB12*/ 04700003 3 SAVEDDS, /* ALTERNATE DDNAMES @Y30LB12*/ 04750003 4 SVSYSIN CHAR(8), /* ALT. SYSIN @Y30LB12*/ 04800003 4 SVSYSPCH CHAR(8), /* ALT. SYSPUNCH @Y30LB12*/ 04850003 4 SVSYSUT1 CHAR(8), /* ALT. SYSUT1 @Y30LB12*/ 04900003 4 SVSYSUT2 CHAR(8), /* ALT. SYSUT2 @Y30LB12*/ 04950003 4 SVSYSUT3 CHAR(8), /* ALT. SYSUT3 @Y30LB12*/ 05000003 @ EJECT; 05050003 /**************************************************** @Y30LB12*/ 05100003 /* THE FOLLOWING STRUCTURE CONTAINS PART OF THE @Y30LB12*/ 05150003 /* INFORMATION REQUIRED TO BUILD THE STAGING DRIVE @YD00113*/ 05200003 /* GROUP TABLE AND TO VERIFY CONSISTENCY OF RSG @Y30LB12*/ 05250003 /* ASSIGNMENT. THE LRU THRESHOLD AND LRU TIMESTAMP @Y30LB12*/ 05300003 /* INFORMATION IS OBTAINED FROM THE SDGXX CONTROL @YD00113*/ 05350003 /* STATEMENT. THE REMAINDER OF THE INFORMATION IS @Y30LB12*/ 05400003 /* BUILT FROM INFORMATION CONTAINED IN THE DASD @YD00113*/ 05450003 /* CONTROL STATEMENT. THE INFORMATION IS USED TO @Y30LB12*/ 05500003 /* COMPLETE FIELDS IN THE PAGE AVAILABILITY BLOCK @Y30LB12*/ 05550003 /* OF THE SDG TABLE @YD00113*/ 05600003 /* @Y30LB12*/ 05610003 /* TODS1 AND TODS2 ARE INITIALIZED IN ICGDSSCN TO @Y30LB12*/ 05620003 /* 'FF'X. ARE OTHER FIELDS ARE INITIALIZED TO BINARY @Y30LB12*/ 05630003 /* ZEROS. @Y30LB12*/ 05640003 /**************************************************** @Y30LB12*/ 05650003 2 BUILDRSG, /* @Y30LB12*/ 05700003 3 RSGS (30) CHAR(9), /* TABLE HOLDS 30 @Y30LB12*/ 05750003 4 RSG CHAR(9), /* ONE GROUP @Y30LB12*/ 05800003 5 RSGSPEC BIT(1), /* GROUP SPECIFIED @Y30LB12*/ 05850003 5 RSGABOX BIT(2), /* A-BOX ATTACHMENT @Y30LB12*/ 05900003 6 RSGABOX0 BIT(1), /* ON LOGICAL ABOX 0 @Y30LB12*/ 05950003 6 RSGABOX1 BIT(1), /* ON LOGICAL ABOX 1 @Y30LB12*/ 06000003 5 * BIT(5), /* UNUSED @Y30LB12*/ 06050003 5 RSGLDEL FIXED(8), /* LOWER LRU DELTA @Y30LB12*/ 06100003 5 RSGUDEL FIXED(8), /* UPPER LRU DELTA @Y30LB12*/ 06150003 5 RSGSLICE CHAR(4), /* 4 TIME-STAMPS @Y30LB12*/ 06200003 5 RSGTODS CHAR(2), /* DS CONNECTIONS @Y30LB12*/ 06250003 6 TODS1 CHAR(1), /* FIRST (LOWER) DS @Y30LB12*/ 06300003 6 TODS2 CHAR(1), /* OPTIONAL 2ND DS @Y30LB12*/ 06350003 @ EJECT; 06400003 /**************************************************** @Y30LB12*/ 06450003 /* THE FOLLOWING AREA IS USED TO DESCRIBE THE @Y30LB12*/ 06500003 /* MASS STORAGE FACILITIES ATTACHED TO THE SUBSYSTEM. @YD00113*/ 06550003 /* ONLY TWO MSFS ARE SUPPORTED, AND THE FIRST LOGICAL @YD00113*/ 06600003 /* MSF IDENTIFICATION MUST BE 0. IF A SECOND MSF IS @YD00113*/ 06650003 /* PRESENT, IT MUST BE MSF 1. @YD00113*/ 06700003 /**************************************************** @Y30LB12*/ 06800003 2 LIBRARY, /* @Y30LB12*/ 06850003 3 LIBS (4) CHAR(12), /* POSITIONAL, LIBID @Y30LB12*/ 06900003 4 LIB CHAR(12), /* @Y30LB12*/ 06950003 5 LIBBITS, /* @Y30LB12*/ 07000003 6 LIBSPEC BIT(1), /* LIBRARY PRESENT @Y30LB12*/ 07050003 6 * BIT(7), /* UNUSED @Y30LB12*/ 07100003 5 LIBSIZE CHAR(1), /* NUMBER OF FRAMES @Y30LB12*/ 07150003 5 LIBDSMID CHAR(1), /* ADDRESS FROM DSM @Y30LB12*/ 07200003 5 LIBMAP CHAR(1), /* LOADMAP CHOSEN @Y30LB12*/ 07250003 5 MAPEXIT CHAR(8), /* USER EXIT NAME @Y30LB12*/ 07300003 @ EJECT; 07350003 /**************************************************** @Y30LB12*/ 07400003 /* THIS STRUCTURE CONTAINS THE INFORMATION NEEDED TO @Y30LB12*/ 07450003 /* COMPLETE THE DEVICE PORTION OF THE PAB (PAGE @Y30LB12*/ 07500003 /* AVAILABILITY BLOCK) OF THE RSG TABLE. THE @Y30LB12*/ 07550003 /* STRUCTURE IS ORGANIZED BY LOGICAL DEVICE WITHIN @Y30LB12*/ 07600003 /* REAL SPINDLE GROUP. THE FLAGS PABEXIST, PABIBERG, @Y30LB12*/ 07650003 /* AND PABBERG2, AND THE BYTE PABAADDD ARE COMPLETED @Y30LB12*/ 07700003 /* FROM INFORMATION SCANNED FROM THE SPINDLES @Y30LB12*/ 07750003 /* STATEMENT. THE BYTE PABREAL IS COMPLETED FROM @Y30LB12*/ 07800003 /* MOVING THE REAL INTERFACE INFORMATION SCANNED @Y30LB12*/ 07850003 /* FROM THE UPPERCON STATEMENT INTO THIS TABLE @Y30LB12*/ 07900003 /* DURING ANALYZE. THE FLAG PABDSMTL (PACK CONTAINS @Y30LB12*/ 07950003 /* DSM TABLES) IS SET DURING ANALYZE. THE FLAG @Y30LB12*/ 08000003 /* PABVOVIR (VOLUME AVAILABLE FOR STAGING) IS SET @Y30LB12*/ 08050003 /* DURING ACTUAL OUTPUT OF THE DATA TO DASD. @Y30LB12*/ 08100003 /**************************************************** @Y30LB12*/ 08150003 2 PABTABLE (30,8) CHAR(3), /* @Y30LB12*/ 08200003 3 PABDEV CHAR(3), /* EACH DEVICE @Y30LB12*/ 08250003 4 PABFLAGS BIT(8), /* @Y30LB12*/ 08300003 5 PABEXIST BIT(1), /* LOGICAL DEVICE @Y30LB12*/ 08350003 5 PABVOVIR BIT(1), /* VARIED ON VIRTUAL @Y30LB12*/ 08400003 5 * BIT(1), /* NOT INITIALIZED @Y30LB12*/ 08450003 5 PABIBERG BIT(1), /* PHYSICAL 3330-11 @Y30LB12*/ 08500003 5 PABDSMTL BIT(1), /* CONTAINS TABLES @Y30LB12*/ 08550003 5 * BIT(2), /* NOT INITIALIZED @Y30LB12*/ 08600003 5 PABBERG2 BIT(1), /* 2ND HALF, 3330-11 @Y30LB12*/ 08650003 4 PABREAL BIT(8), /* REAL INTERFACES @Y30LB12*/ 08700003 5 PABIMPLR BIT(1), /* REAL AT IMPL @Y30LB12*/ 08750003 5 PAB1B BIT(1), /* 1ST DS INT B @Y30LB12*/ 08800003 5 PAB1C BIT(1), /* 1ST DS INT C @Y30LB12*/ 08850003 5 PAB1D BIT(1), /* 1ST DS INT D @Y30LB12*/ 08900003 5 * BIT(1), /* NOT INITIALIZED @Y30LB12*/ 08950003 5 PAB2B BIT(1), /* 2ND DS INT B @Y30LB12*/ 09000003 5 PAB2C BIT(1), /* 2ND DS INT C @Y30LB12*/ 09050003 5 PAB2D BIT(1), /* 2ND DS INT D @Y30LB12*/ 09100003 4 PABAADDD BIT(8), /* PHYSICAL ADDRESS @Y30LB12*/ 09150003 5 PABZEROS BIT(3), /* ALWAYS ZEROS @Y30LB12*/ 09200003 5 PABAA BIT(2), /* DASD CONTROLLER @Y30LB12*/ 09250003 5 PABDDD BIT(3), /* PHYSICAL DEVICE @Y30LB12*/ 09300003 @ EJECT; 09350003 /**************************************************** @Y30LB12*/ 09400003 /* THE FOLLOWING TWO STRUCTURES CONTAIN THE DATA @Y30LB12*/ 09450003 /* EXTRACTED FROM THE SPINDLES CONTROL STATEMENT. @Y30LB12*/ 09500003 /* @Y30LB12*/ 09550003 /* THE STRUCTURE DSPAIRS IS ORGANIZED BY DASD @Y30LB12*/ 09600003 /* CONTROLLER WITHIN DATA STAGER AND INDICATES THE @Y30LB12*/ 09650003 /* SECOND DATA STAGER (IF ANY) TO WHICH THE DASD @Y30LB12*/ 09700003 /* CONTROLLER ATTACHES. IF 'A' POINTS TO 'B' @Y30LB12*/ 09750003 /* 'B' ALSO POINTS AT 'A'. THIS STRUCTURE IS @Y30LB12*/ 09800003 /* INITIALIZED TO 'FF'X IN ICGDSSCN. @Y30LB12*/ 09810003 /* @Y30LB12*/ 09850003 /* THE STRUCTURE PHYSTYPE IS ORGANIZED BY PHYSICAL @Y30LB12*/ 09900003 /* DEVICE ADDRESS WITHIN DASD CONTROLLER WITHIN DATA @Y30LB12*/ 09950003 /* DATA STAGER. THIS STRUCTURE IS USED TO INDICATE @Y30LB12*/ 10000003 /* THETHER THE SPECIFIC PHYSICAL SPINDLE EXISTS @Y30LB12*/ 10050003 /* WITHIN THE CONFIGURATION (NON-EXISTENT IS '00'B @Y30LB12*/ 10100003 /* IN THE BITS 'MERLICEB'), WHERTHER THE SPINDLE IS @Y30LB12*/ 10150003 /* A 3330 MODEL 1 ('01' IN 'MERLICEB) OR A 3330 @Y30LB12*/ 10200003 /* MODEL 11 ('10' IN 'MERLICEB), WHETHER THE SPINDLE @Y30LB12*/ 10250003 /* HAS AN SSID OR WHETHER IT IS REAL, AND, FOR @Y30LB12*/ 10300003 /* SPINDLES WITH SSID, THE REAL SPINDLE GROUP, THE @Y30LB12*/ 10350003 /* LOGICAL A-BOX, AND THE LOGICAL DEVICE. @Y30LB12*/ 10400003 /**************************************************** @Y30LB12*/ 10450003 2 DSPAIRS (16,4) CHAR(1), /* @Y30LB12*/ 10500003 3 PHYSDS2 CHAR(1), /* SECOND DS (OPT) @Y30LB12*/ 10550003 2 PHYSTYPE (16,4,8) CHAR(2), /* 16 DS 4 ABOX 8 DV @Y30LB12*/ 10600003 3 PHYSFLGS BIT(8), /* @Y30LB12*/ 10650003 4 MERLICEB BIT(2), /* IF 00, NO DEVICE @Y30LB12*/ 10700003 4 PHYSREAL BIT(1), /* NON-SUBSYSTEM @Y30LB12*/ 10850003 4 PHYSSSID BIT(1), /* SUBSYSTEM DASD @Y30LB12*/ 10900003 4 LOGABOX1 BIT(1), /* LOGICAL A-BOX 1 @Y30LB12*/ 10950003 4 LGDEVICE BIT(3), /* LOGICAL DEVICE @Y30LB12*/ 11000003 3 SPNRSGNO BIT(8), /* RSG NUMBER @Y30LB12*/ 11050003 @ EJECT; 11100003 /**************************************************** @Y30LB12*/ 11150003 /* THE FOLLOWING STRUCTURE DESCRIBES THE CPU @Y30LB12*/ 11200003 /* STRUCTURE OF THE CONFIGURATION TABLE (BYTES @Y30LB12*/ 11250003 /* 128-255 OF THE FIRST BLOCK). THIS PORTION OF THE @Y30LB12*/ 11300003 /* CONFIGURATION TABLES DESCRIBES THE MANUFACTURER'S @Y30LB12*/ 11350003 /* IDENTIFICATION OF THE CPUS THAT INTERFACE WITH THE @Y30LB12*/ 11400003 /* SUBSYSTEM, AND THOSE CPUS' CONNECTIONS WITH ONE @Y30LB12*/ 11450003 /* ANOTHER. @Y30LB12*/ 11500003 /* THE COUNTER 'CPUNUM' IS NOT PART OF THE OUTPUT IT @Y30LB12*/ 11550003 /* TABLE. IT IS USED INTERNALLY IN ICGDSS02 TO @Y30LB12*/ 11600003 /* DEVELOP THE LOGICAL CPUID (0-F) TO BE USED TO @Y30LB12*/ 11650003 /* PLACE ENTRIES IN THE TABLE. IT IS ALSO THE @Y30LB12*/ 11700003 /* NUMBER OF ENTRIES CURRENTLY IN THE TABLE. @Y30LB12*/ 11750003 /* ALL OTHER FIELDS IN THE STRUCTURE ARE BUILT IN @Y30LB12*/ 11800003 /* THE SAME FORMAT THAT THEY WILL HAVE IN THE @Y30LB12*/ 11850003 /* OUTPUT TABLE. @Y30LB12*/ 11900003 /* THE THREE BITS IN THIS STRUCTURE CALLED 'OPSYSTYP' @ZD02028*/ 11910003 /* ARE NOT PART OF THE CPU ASSOCIATION TABLE AND ARE @ZD02028*/ 11920003 /* RESET IN THE STRUCTURE PRODUCED BY ICGDSB08. @ZD02028*/ 11930003 /**************************************************** @Y30LB12*/ 11950003 2 CPUASSOC, /* @Y30LB12*/ 12000003 3 CPUNUM FIXED(15), /* CURRENT ENTRIES @Y30LB12*/ 12050003 3 CPUS (16) CHAR(8), /* ENTIRE, 128 BYTES @Y30LB12*/ 12100003 4 CPU CHAR(8), /* ONE OF 16 ENTRIES @Y30LB12*/ 12150003 5 CPUID CHAR(5), /* MANUFACTURER'S ID @Y30LB12*/ 12200003 5 TOMPCPU BIT(8), /* MPCPU, AS BIT SW @Y30LB12*/ 12250003 5 CPUFLAG1 BIT(8), /* FLAG BYTE @Y30LB12*/ 12300003 6 * BIT(1), /* NOT INITIALIZED @Y30LB12*/ 12350003 6 CPUTIGHT BIT(1), /* TIGHTLY-COUPLED @Y30LB12*/ 12400003 6 CPUALTFL BIT(1), /* CPU HAS ALT. INT. @YD00142*/ 12410003 6 OPSYSTYP BIT(3), /* PRIMARY OP SYSTEM @ZD02028*/ 12450003 7 OPVS1 BIT(1), /* USE OS/VS1 @ZD02028*/ 12460003 7 OPVS2 BIT(1), /* USE OS/VS2 @ZD02028*/ 12470003 7 OPJES3 BIT(1), /* IN JES3 NETWORK @Z40LB73*/ 12480003 6 CPUMSCIN BIT(2), /* MSC INTERFACE @Y30LB12*/ 12500003 5 CPUFLAG2 BIT(8), /* FLAG BYTE @Y30LB12*/ 12550003 6 CPUSPEC BIT(1), /* SPEC. AS CPUID @Y30LB12*/ 12600003 6 * BIT(1), /* NOT INITIALIZED @YD00142*/ 12610003 6 ALTMSGBF BIT(1), /* MSG BUFFER FLAG @YD00142*/ 12620003 6 * BIT(3), /* NOT INITIALIZED @YD00142*/ 12650003 6 ALTMSCIN BIT(2), /* ALT MSC INTERFACE @Y30LB12*/ 12660003 @ EJECT; 12700003 /**************************************************** @Y30LB12*/ 12750003 /* THE FOLLOWING TWO AREAS (LOWERCON AND LIBCTL) ARE @Y30LB12*/ 12800003 /* USED TO HOLD THE VALUES SCANNED FROM THE @Y30LB12*/ 12850003 /* 'LOWERCON' CONTROL STATEMENT @Y30LB12*/ 12900003 /* LOWERCON IS ORGANIZED BY DATA STAGER BY LIBRARY @Y30LB12*/ 12950003 /* READ/WRITE CONTROL UNIT IDENTIFICATION. @Y30LB12*/ 13000003 /* LIBCTL IS ORGANIZED BY LIBRARY BY LIBRARY @Y30LB12*/ 13050003 /* READ/WRITE CONTROL UNIT POSITION AND IS USED TO @Y30LB12*/ 13100003 /* INDICATE WHETHER THE POSITION IS AVAILABLE OR @Y30LB12*/ 13150003 /* ALREADY IN USE. @Y30LB12*/ 13200003 /**************************************************** @Y30LB12*/ 13250003 2 LOWERCON, /* @Y30LB12*/ 13300003 3 LOWDSS (16,4) CHAR(2), /* CU WITHIN DS @Y30LB12*/ 13350003 4 LOWFLGS BIT(8), /* EACH CTL. UNIT @Y30LB12*/ 13400003 5 LOWSPEC BIT(1), /* CU ADDR SPECIFIED @Y30LB12*/ 13450003 5 LOWRW01 BIT(1), /* TO READ/WRITES 01 @Y30LB12*/ 13500003 5 LOWRW23 BIT(1), /* TO READ/WRITES 23 @Y30LB12*/ 13550003 5 LOWRW45 BIT(1), /* TO READ/WRITES 45 @Y30LB12*/ 13600003 5 LOWRW67 BIT(1), /* TO READ/WRITES 67 @Y30LB12*/ 13650003 5 LOWLEFT BIT(1), /* TO LEFT INTERFACE @Y30LB12*/ 13700003 5 LOWRGHT BIT(1), /* RIGHT INTERFACE @Y30LB12*/ 13750003 5 * BIT(1), /* UNUSED @Y30LB12*/ 13800003 4 LOWLIB CHAR(1), /* IN LIBRARY @Y30LB12*/ 13850003 2 LIBCTL, /* @Y30LB12*/ 13900003 3 LIBCTLS (4) CHAR(1), /* FOR LOGICAL LIB @Y30LB12*/ 13950003 4 RW01LEFT BIT(1), /* LEFT RW01 USED @Y30LB12*/ 14000003 4 RW01RGHT BIT(1), /* RIGHT RW01 USED @Y30LB12*/ 14050003 4 RW23LEFT BIT(1), /* LEFT RW23 USED @Y30LB12*/ 14100003 4 RW23RGHT BIT(1), /* RIGHT RW23 USED @Y30LB12*/ 14150003 4 RW45LEFT BIT(1), /* LEFT RW45 USED @Y30LB12*/ 14200003 4 RW45RGHT BIT(1), /* RIGHT RW45 USED @Y30LB12*/ 14250003 4 RW67LEFT BIT(1), /* LEFT RW67 USED @Y30LB12*/ 14300003 4 RW67RGHT BIT(1), /* RIGHT RW67 USED @Y30LB12*/ 14350003 @ EJECT; 14400003 /**************************************************** @Y30LB12*/ 14450003 /* THE FOLLOWING AREA IS USED TO HOLD THE VALUES @Y30LB12*/ 14500003 /* SCANNED FROM THE 'CREATE' CONTROL STATEMENT. @Y30LB12*/ 14550003 /**************************************************** @Y30LB12*/ 14600003 2 CREATE, /* @Y30LB12*/ 14650003 3 * BIT(8), /* @Y30LB12*/ 14700003 4 CMDCREAT BIT(1), /* STATEMENT PRESENT @Y30LB12*/ 14750003 4 NEWCREAT BIT(1), /* NEW SPECIFIED @Y30LB12*/ 14800003 4 UPDCREAT BIT(1), /* UPDATE SPECIFIED @Y30LB12*/ 14850003 4 PRNTONLY BIT(1), /* ONLY PRINTED DATA @Y30LB12*/ 14900003 4 CYLFAULT BIT(1), /* CYL FAULT OPTED @G24LB42*/ 14910042 4 BINTIND BIT(1), /* CI 'B' INDICATOR. @ZA20268*/ 14960000 4 CINTIND BIT(1), /* CI 'C' INDICATOR @ZA20268*/ 14970000 4 DINTIND BIT(1), /* CI 'D' INDICATOR @ZA20268*/ 14980000 3 VPAGES(4) FIXED(8), /* LOG TO REAL MAP @Y30LB12*/ 15000003 3 VOLSER CHAR(6), /* VOLUME SERIAL NO. @Y30LB12*/ 15050003 3 LRUCLOCK CHAR(1), /* MASTER LRU CLOCK @Y30LB12*/ 15100003 2 COM2BASE CHAR(8) BOUNDARY(DWORD); /* START COMTAB2 @Y30LB12*/ 15150003 DCL PHYSFNUL BIT(2) CONSTANT('00'B); /* NO DEVICE @X50RSPC*/ 15150442 DCL PHYSFICE BIT(2) CONSTANT('01'B); /* 3330 MODEL 11 @X50RSPC*/ 15152042 DCL PHYSFMER BIT(2) CONSTANT('10'B); /* 3330 MODEL 1 @X50RSPC*/ 15160042 DCL PHYSFMAD BIT(2) CONSTANT('11'B); /* 3350 @X50RSPC*/ 15170042 @ EJECT; 15200003 /********************************************************** @Y30LB12*/ 15210003 /* THE FOLLOWING STRUCTURE (COMTAB2) IS A PHYSICAL AND @Y30LB12*/ 15220003 /* LOGICAL CONTINUATION OF THE STRUCTURE COMTAB. @Y30LB12*/ 15230003 /* PHYSICALLY THE STRUCTURE IS BASED ON THE POINTER COMPTR2 @Y30LB12*/ 15240003 /* WHICH CONTAINS THE ADDRESS OF COM2BASE. THIS @Y30LB12*/ 15242003 /* STURCTURE IS USED TO CONTAIN THE DATA SCANNED FROM THE @Y30LB12*/ 15244003 /* UPPERCON CONTROL STATEMENT. @Y30LB12*/ 15246003 /********************************************************** @Y30LB12*/ 15248003 DCL 1 COMTAB2 BASED(COMPTR2), /* @Y30LB12*/ 15250003 15260003 /**************************************************** @Y30LB12*/ 15300003 /* THE FOLLOWING STRUCTURE IS BUILT DURING THE SCAN @Y30LB12*/ 15350003 /* OF THE UPPERCON STATEMENT AND IS USED TO VERIFY @Y30LB12*/ 15400003 /* THAT ALL THREE INTERFACES INTO A DATA STAGER @Y30LB12*/ 15450003 /* INTERFACE TO NO MORE THAN TWO RSGS IN TOTAL @Y30LB12*/ 15500003 /* THE STRUCTURE IS ORGANIZED BY DATA STAGER. @Y30LB12*/ 15550003 /* THE STRUCTURE IS INITIALIZED TO 'FF'X IN ICGDSSCN @Y30LB12*/ 15560003 /**************************************************** @Y30LB12*/ 15600003 2 DSTORSG (16) CHAR(2), /* @Y30LB12*/ 15650003 3 DSENTRY CHAR(2), /* @Y30LB12*/ 15700003 4 TORSG1 CHAR(1), /* @Y30LB12*/ 15750003 4 TORSG2 CHAR(1), /* @Y30LB12*/ 15800003 15810003 /**************************************************** @Y30LB12*/ 15850003 /* THE FOLLOWING STRUCTURE IS ORGANIZED BY DATA @Y30LB12*/ 15900003 /* STAGER/CHANNEL INTERFACE AND CONTAINS THE DATA @Y30LB12*/ 15950003 /* THAT IS COMMON TO ALL DEVICE ADDRESSES THROUGH @Y30LB12*/ 16000003 /* THAT INTERFACE (CPU/CHANNEL/CONTROL UNIT). THE @Y30LB12*/ 16050003 /* FIELD CPUREFNO IS DEVELOPED IN THE ANALYSIS @Y30LB12*/ 16100003 /* ROUTINES BY FINDING THE LOGICAL (POSITIONAL) @Y30LB12*/ 16150003 /* IDENTIFICATION OF THE CPU FROM CPUASSOC. THE @Y30LB12*/ 16200003 /* INFORMATION IN THIS STRUCTURE IS USED TO BUILD @Y30LB12*/ 16250003 /* THE CONFIGURATION INDEX PORTION OF THE @Y30LB12*/ 16300003 /* CONFIGURATION TABLE. @Y30LB12*/ 16350003 /**************************************************** @Y30LB12*/ 16400003 2 CONFGCON (48) CHAR(9), /* COMMON ON INTERFACE @Y30LB12*/ 16450003 3 RSGUCB CHAR(9), /* @Y30LB12*/ 16500003 4 RSGFLAGS, /* @Y30LB12*/ 16550003 5 CISPEC BIT(1), /* UPPERCON STATEMENT @Y30LB12*/ 16600003 5 * BIT(7), /* @Y30LB12*/ 16650003 4 RSGCPUID CHAR(5), /* UPPERCON CPUID @Y30LB12*/ 16700003 4 CPUREFNO CHAR(1), /* LOGICAL CPUID @Y30LB12*/ 16750003 4 RSGCHAN CHAR(1), /* HOST CHANNEL @Y30LB12*/ 16800003 4 RSGCUA CHAR(1), /* DS CONTROL UNIT ADR @Y30LB12*/ 16850003 16860003 /**************************************************** @Y30LB12*/ 16900003 /* THE FOLLOWING STRUCTURE DESCRIBES EACH POSSIBLE @Y30LB12*/ 16950003 /* DEVICE ADDRESS (64) THAT CAN BE GENERATED FOR A @Y30LB12*/ 17000003 /* DATA STAGER/CHANNEL INTERFACE. THIS STRUCTURE IS @Y30LB12*/ 17050003 /* USED TO BUILD THE DEVICE DATA PORTION OF THE @Y30LB12*/ 17100003 /* CONFIGURATION MAP AND ALSO TO HOLD THE DATA NEEDED @Y30LB12*/ 17150003 /* TO PRODUCE THE IODEVICE AND UNITNAME SYSGEN @YD00113*/ 17200003 /* STATEMENTS. THE STRUCTURE IS ORGANIZED BY DEVICE @Y30LB12*/ 17250003 /* WITHIN STAGING ADAPTER/CHANNEL INTERFACE. @YD00113*/ 17300003 /**************************************************** @Y30LB12*/ 17350003 2 CONFGUCB (48,64) CHAR(11), /* @Y30LB12*/ 17400003 3 CONFGDEV CHAR(11), /* @Y30LB12*/ 17450003 4 USEFLAGS BIT(8), /* DEVICE USE FLAGS @Y30LB12*/ 17500003 5 USESPEC BIT(1), /* DEVICE IS USED @Y30LB12*/ 17550003 5 USEV BIT(1), /* USED VIRTUAL @Y30LB12*/ 17600003 5 USEVS BIT(1), /* USED SHARED VIRT @Y30LB12*/ 17650003 5 USEREAL BIT(1), /* USED REAL @Y30LB12*/ 17700003 5 SUPPUNCH BIT(1), /* NO SYSGEN CARD @Y30LB12*/ 17750003 5 USECONVR BIT(1), /* USE CONVERTIBLE @Y30LB12*/ 17800003 5 ITISALTP BIT(1), /* IS ALTERNATE PATH @Y30LB12*/ 17850003 5 ICEBERG BIT(1), /* DEVICE IS 3330-11 @Y30LB12*/ 17900003 4 INDEXRSG BIT(8), /* RSG NUMBER @Y30LB12*/ 17950003 4 ALTPATH1 BIT(24), /* 1ST ALT PATH @Y30LB12*/ 18000003 5 ALTDS1 BIT(8), /* 1ST ALT PATH DS @Y30LB12*/ 18050003 5 ALTCI1 BIT(8), /* 1ST ALT PATH CI @Y30LB12*/ 18100003 5 ALTCH1 BIT(8), /* 1ST ALT PATH CHAN @Y30LB12*/ 18150003 4 ALTPATH2 BIT(24), /* 2ND ALT PATH @Y30LB12*/ 18200003 5 ALTDS2 BIT(8), /* 2ND ALT PATH DS @Y30LB12*/ 18250003 5 ALTCI2 BIT(8), /* 2ND ALT PATH CI @Y30LB12*/ 18300003 5 ALTCH2 BIT(8), /* 2ND ALT PATH CHAN @Y30LB12*/ 18350003 4 ALTPATH3 BIT(24), /* 3RD ALT PATH @Y30LB12*/ 18400003 5 ALTDS3 BIT(8), /* 3RD ALT PATH DS @Y30LB12*/ 18450003 5 ALTCI3 BIT(8), /* 3RD ALT PATH CI @Y30LB12*/ 18500003 5 ALTCH3 BIT(8); /* 3RD ALT PATH CHAN @Y30LB12*/ 18550003 18560003 DCL SCANDATA CHAR(72) BASED(STARTCOL); /* OVERLAY OF INBUF @Y30LB12*/ 18600003 DCL SCANBUF CHAR(72) BASED(NEXTCOL); /* OVERLAY OF INBUF @Y30LB12*/ 18650003