Common COMUEST

2 Modifications

Source

Seq #  *Modification Id* Act 
----------------------------+
00001  M01S00001.comuest +++|                                                                      #
00002  M01S00002.comuest +++|          CTEXT  COMUEST - EQUIPMENT STATUS TABLE DEFINITION.
00003  M01S00003.comuest +++|                                                                      #
00004  M01S00004.comuest +++|                                               CONTROL NOLIST;
00005  M01S00005.comuest +++|                                               CONTROL IFEQ LISTCON,1;
00006  M01S00006.comuest +++|                                               CONTROL LIST;
00007  M01S00007.comuest +++|                                               CONTROL FI;
00008  M01S00008.comuest +++|
00009  M01S00009.comuest +++|                             BEGIN  # COMUEST #
00010  M01S00010.comuest +++|
00011  M01S00011.comuest +++|                                                                      #
00012  M01S00012.comuest +++|***       COMUEST - EQUIPMENT STATUS TABLE DEFINITION.
00013  M01S00001.281l803 +++|*
00014  M01S00002.281l803 +++|*         COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
00015  M01S00013.comuest +++|*
00016  M01S00014.comuest +++|*         *COMUEST* PROVIDES A SYMPL DEFINITION OF THE EQUIPMENT
00017  M01S00015.comuest +++|*         STATUS TABLE (EST) AS DEFINED IN *PPCOM*.
00018  M01S00016.comuest +++|
00019  M01S00017.comuest +++|          COL    12
00020  M01S00018.comuest +++|                                                                      #
00021  M01S00019.comuest +++|
00022  M01S00020.comuest +++|#EQDE     #DEF#  0     # EQDE #0#;  # EQUIPMENT DEFINITION WORD #
00023  M01S00021.comuest +++|#EQAE     #DEF#  1     # EQAE #1#;  # EQUIPMENT ASSIGNMENT WORD #
00024  M01S00022.comuest +++|#ESTE     #DEF#  2     # ESTE #2#;  # LENGTH OF EST ENTRY #
00025  M01S00023.comuest +++|
00026  M01S00024.comuest +++|                                                                      #
00027  M01S00025.comuest +++|*         MAXIMUM NUMBER OF MASS STORAGE EST ENTRIES.
00028  M01S00026.comuest +++|                                                                      #
00029  M01S00027.comuest +++|
00030  M01S00028.comuest +++|#MSMX     #DEF#  200D  # MSMX #200#;
00031  M01S00029.comuest +++|
00032  M01S00030.comuest +++|                                                                      #
00033  M01S00031.comuest +++|*         MAXIMUM NUMBER (ORDINAL+1) OF EST ENTRIES.
00034  M01S00032.comuest +++|                                                                      #
00035  M01S00033.comuest +++|
00036  M01S00034.comuest +++|#ESMX     #DEF#  512D  # ESMX #512#;
00037  M01S00035.comuest +++|
00038  M01S00036.comuest +++|           BASED
00039  M01S00037.comuest +++|           ARRAY EST [0:0] S(ESTE);  # EQUIPMENT STATUS TABLE ENTRY #
00040  M01S00038.comuest +++|             BEGIN  # EST ENTRY #
00041  M01S00039.comuest +++|
00042  M01S00040.comuest +++|                                                                      #
00043  M01S00041.comuest +++|*         GENERAL FORMAT.
00044  M01S00042.comuest +++|                                                                      #
00045  M01S00043.comuest +++|
00046  M01S00044.comuest +++|             ITEM EST$EQDE   U(EQDE,00,60);  # EQUIPMENT DEFINITION #
00047  M01S00045.comuest +++|             ITEM EST$LHDE   U(EQDE,00,30);  # *EQDE* LEFT HALF #

Line S00046 Modification History
`M01` (Added by)	`comuest`
`M02` (Updated by)	`252l678`

Seq #  *Modification Id* Act 
----------------------------+
00048  M02S00046.252l678 ---|             ITEM EST$FLAGS  U(EQDE,00,12);  # FLAGS #
00049  M01S00001.252l678 +++|             ITEM EST$FLAGS  U(EQDE,00,10);  # FLAGS #
00050  M01S00047.comuest +++|             ITEM EST$MS     B(EQDE,00,01);  # MASS STORAGE DEVICE #
00051  M01S00048.comuest +++|             ITEM EST$ALLOC  B(EQDE,01,01);  # ALLOCATABLE DEVICE #

Line S00049 Modification History
`M01` (Added by)	`comuest`
`M02` (Updated by)	`252l678`

Seq #  *Modification Id* Act 
----------------------------+
00052  M02S00049.252l678 ---|             ITEM EST$DOWN   B(EQDE,06,01);  # DEVICE DOWN #

Line S00050 Modification History
`M01` (Added by)	`comuest`
`M02` (Updated by)	`252l678`

Seq #  *Modification Id* Act 
----------------------------+
00053  M02S00050.252l678 ---|             ITEM EST$DCHB   B(EQDE,12,01);  # CHANNEL B DOWN #

Line S00051 Modification History
`M01` (Added by)	`comuest`
`M02` (Updated by)	`252l678`

Seq #  *Modification Id* Act 
----------------------------+
00054  M02S00051.252l678 ---|             ITEM EST$CHANB  U(EQDE,13,05);  # CHANNEL B #

Line S00052 Modification History
`M01` (Added by)	`comuest`
`M02` (Updated by)	`252l678`

Seq #  *Modification Id* Act 
----------------------------+
00055  M02S00052.252l678 ---|             ITEM EST$DCHA   B(EQDE,18,01);  # CHANNEL A DOWN #

Line S00053 Modification History
`M01` (Added by)	`comuest`
`M02` (Updated by)	`252l678`

Seq #  *Modification Id* Act 
----------------------------+
00056  M02S00053.252l678 ---|             ITEM EST$CHANA  U(EQDE,19,05);  # CHANNEL A #
00057  M01S00002.252l678 +++|             ITEM EST$STATUS U(EQDE,10,02);  # DEVICE STATUS #
00058  M01S00003.252l678 +++|             ITEM EST$CHAAE  B(EQDE,12,01);  # CHANNEL A ACCESS PATH #
00059  M01S00004.252l678 +++|             ITEM EST$CHAST  U(EQDE,13,02);  # CHANNEL A STATUS #
00060  M01S00005.252l678 +++|             ITEM EST$CHACT  B(EQDE,15,01);  # CHANNEL A CONTROLLER #
00061  M01S00006.252l678 +++|             ITEM EST$CHAPN  U(EQDE,16,01);  # CHANNEL A PORT NUMBER #
00062  M01S00007.252l678 +++|             ITEM EST$CHACC  B(EQDE,18,01);  # CHANNEL A CONCURRENT #
00063  M01S00008.252l678 +++|             ITEM EST$CHANA  U(EQDE,19,05);  # CHANNEL A #
00064  M01S00009.252l678 +++|             ITEM EST$CHBAE  B(EQDE,24,01);  # CHANNEL B ACCESS PATH #
00065  M01S00010.252l678 +++|             ITEM EST$CHBST  U(EQDE,25,02);  # CHANNEL B STATUS #
00066  M01S00011.252l678 +++|             ITEM EST$CHBCT  B(EQDE,27,01);  # CHANNEL B CONTROLLER #
00067  M01S00012.252l678 +++|             ITEM EST$CHBPN  U(EQDE,28,01);  # CHANNEL B PORT NUMBER #
00068  M01S00054.comuest +++|             ITEM EST$RHDE   U(EQDE,30,30);  # *EQDE* RIGHT HALF #

Line S00055 Modification History
`M01` (Added by)	`comuest`
`M02` (Updated by)	`252l678`

Seq #  *Modification Id* Act 
----------------------------+
00069  M02S00055.252l678 ---|             ITEM EST$OFF    B(EQDE,36,01);  # DEVICE OFF #

Line S00056 Modification History
`M01` (Added by)	`comuest`
`M02` (Updated by)	`252l678`

Seq #  *Modification Id* Act 
----------------------------+
00070  M02S00056.252l678 ---|             ITEM EST$TYPE   U(EQDE,37,11);  # DEVICE TYPE #
00071  M01S00013.252l678 +++|             ITEM EST$CHBCC  B(EQDE,30,01);  # CHANNEL B CONCURRENT #
00072  M01S00014.252l678 +++|             ITEM EST$CHANB  U(EQDE,31,05);  # CHANNEL B #
00073  M01S00015.252l678 +++|             ITEM EST$TYPE   U(EQDE,36,12);  # DEVICE TYPE #
00074  M01S00057.comuest +++|
00075  M01S00058.comuest +++|             ITEM EST$EQAE   U(EQAE,00,60);  # EQUIPMENT ASSIGNMENT #
00076  M01S00059.comuest +++|             ITEM EST$LHAE   U(EQAE,00,30);  # *EQAE* LEFT HALF #
00077  M01S00060.comuest +++|             ITEM EST$RESI   U(EQAE,00,12);  # INSTALLATION FIELD #

Line S00061 Modification History
`M01` (Added by)	`comuest`
`M02` (Updated by)	`252l678`

Seq #  *Modification Id* Act 
----------------------------+
00078  M02S00061.252l678 ---|             ITEM EST$RESC   U(EQAE,12,30);  # RESERVED FOR CDC #
00079  M01S00016.252l678 +++|             ITEM EST$RESC1  U(EQAE,12,12);  # RESERVED FOR CDC #
00080  M01S00017.252l678 +++|             ITEM EST$DEVD   U(EQAE,24,12);  # DEVICE DEPENDENT DATA #
00081  M01S00062.comuest +++|             ITEM EST$RHAE   U(EQAE,30,30);  # *EQAE* RIGHT HALF #
00082  M01S00018.252l678 +++|             ITEM EST$RESC2  U(EQAE,36,06);  # RESERVED FOR CDC #
00083  M01S00063.comuest +++|             ITEM EST$LAL    U(EQAE,42,03);  # LOWER ACCESS LEVEL #
00084  M01S00064.comuest +++|             ITEM EST$UAL    U(EQAE,45,03);  # UPPER ACCESS LEVEL #
00085  M01S00065.comuest +++|             ITEM EST$EJTO   U(EQAE,48,12);  # EJT ORDINAL OF JOB #
00086  M01S00066.comuest +++|
00087  M01S00067.comuest +++|                                                                      #
00088  M01S00068.comuest +++|*         MASS STORAGE EQUIPMENT EST ENTRY.
00089  M01S00069.comuest +++|                                                                      #
00090  M01S00070.comuest +++|
00091  M01S00071.comuest +++|             ITEM EST$SYS    B(EQDE,01,01);  # SYSTEM FILE ON DEVICE #
00092  M01S00072.comuest +++|             ITEM EST$SHARE  B(EQDE,02,01);  # SHARED DEVICE #
00093  M01S00073.comuest +++|             ITEM EST$RMVE   B(EQDE,03,01);  # REMOVABLE DEVICE #
00094  M01S00074.comuest +++|             ITEM EST$LDAM   B(EQDE,04,01);  # *LDAM* DEVICE #
00095  M01S00075.comuest +++|             ITEM EST$UNAV   B(EQDE,05,01);  # DEVICE IS UNAVAILABLE #
00096  M01S00076.comuest +++|             ITEM EST$ISHARE B(EQDE,07,01);  # ISHARED DEVICE #
00097  M01S00077.comuest +++|             ITEM EST$ACTIVE B(EQDE,08,01);  # DEVICE IS ACTIVE #

Line S00078 Modification History
`M01` (Added by)	`comuest`
`M02` (Updated by)	`252l678`

Seq #  *Modification Id* Act 
----------------------------+
00098  M02S00078.252l678 ---|             ITEM EST$MCHAN  U(EQDE,30,06);  # MAINTENANCE CHANNEL #
00099  M01S00079.comuest +++|             ITEM EST$MST    B(EQDE,48,12);  # ADDRESS OF MST/10B #
00100  M01S00019.252l678 +++|
00101  M01S00020.252l678 +++|             ITEM EST$MCHAN  U(EQAE,30,06);  # MAINTENANCE CHANNEL #
00102  M01S00080.comuest +++|
00103  M01S00081.comuest +++|                                                                      #
00104  M01S00082.comuest +++|*         MAGNETIC TAPE EQUIPMENT EST ENTRY.
00105  M01S00083.comuest +++|                                                                      #
00106  M01S00084.comuest +++|
00107  M01S00085.comuest +++|             ITEM EST$MTS    B(EQDE,03,01);  # MTS (66X) DRIVE #
00108  M01S00086.comuest +++|             ITEM EST$ATS    B(EQDE,04,01);  # ATS (67X) DRIVE #
00109  M01S00087.comuest +++|             ITEM EST$FSC    B(EQDE,05,01);  # FSC DEVICE #
00110  M01S00088.comuest +++|             ITEM EST$GCR    B(EQDE,07,01);  # DEVICE HAS GCR #

Line S00089 Modification History
`M01` (Added by)	`comuest`
`M02` (Updated by)	`252l678`

Seq #  *Modification Id* Act 
----------------------------+
00111  M02S00089.252l678 ---|             ITEM EST$DCHD   B(EQDE,24,01);  # CHANNEL D DOWN #

Line S00090 Modification History
`M01` (Added by)	`comuest`
`M02` (Updated by)	`252l678`

Seq #  *Modification Id* Act 
----------------------------+
00112  M02S00090.252l678 ---|             ITEM EST$CHAND  U(EQDE,25,05);  # CHANNEL D #

Line S00091 Modification History
`M01` (Added by)	`comuest`
`M02` (Updated by)	`252l678`

Seq #  *Modification Id* Act 
----------------------------+
00113  M02S00091.252l678 ---|             ITEM EST$DCHC   B(EQDE,30,01);  # CHANNEL C DOWN #

Line S00092 Modification History
`M01` (Added by)	`comuest`
`M02` (Updated by)	`252l678`

Seq #  *Modification Id* Act 
----------------------------+
00114  M02S00092.252l678 ---|             ITEM EST$CHANC  U(EQDE,31,05);  # CHANNEL C #
00115  M01S00093.comuest +++|             ITEM EST$EQU    U(EQDE,48,03);  # CONTROLLER NUMBER #
00116  M01S00094.comuest +++|             ITEM EST$UN     U(EQDE,56,04);  # UNIT NUMBER #
00117  M01S00095.comuest +++|
00118  M01S00096.comuest +++|             END  # EST ENTRY #
00119  M01S00097.comuest +++|
00120  M01S00098.comuest +++|           END  # COMUEST #
00121  M01S00099.comuest +++|
00122  M01S00100.comuest +++|                                                                      #
00123  M01S00101.comuest +++|          COL    30
00124  M01S00102.comuest +++|          ENDX                                                        #
00125  M01S00103.comuest +++|                                               CONTROL LIST;