Seq # *Modification Id* Act
----------------------------+
00001 M01S00001.combmct +++|
00002 M01S00002.combmct +++|# COMBMCT - M860 CATALOG TABLES. #
00003 M01S00003.combmct +++| CONTROL NOLIST;
00004 M01S00004.combmct +++| CONTROL IFEQ LISTCON,1;
00005 M01S00005.combmct +++| CONTROL LIST;
00006 M01S00006.combmct +++| CONTROL FI;
00007 M01S00007.combmct +++| BEGIN # COMBMCT #
00008 M01S00008.combmct +++|
00009 M01S00009.combmct +++|#
00010 M01S00010.combmct +++|*** COMBMCT - M860 CATALOG TABLES.
00011 M01S00011.combmct +++|*
00012 M01S00012.combmct +++|* COMBMCT CONTAINS THE DEFINITION OF THE FILE AND
00013 M01S00013.combmct +++|* CARTRIDGE TABLE, THE ALLOCATION SUMMARAY TABLE, AND THE
00014 M01S00014.combmct +++|* PREAMBLE IN THE M860 CATALOG.
00015 M01S00015.combmct +++|*
00016 M01S00016.combmct +++|* NOTE - COMDECK *COMBFAS* MUST BE CALLED PRIOR TO *COMBMCT*.
00017 M01S00017.combmct +++|#
00018 M01S00018.combmct +++|
00019 M01S00019.combmct +++|
00020 M01S00020.combmct +++|#
00021 M01S00021.combmct +++|* M860 CATALOG.
00022 M01S00022.combmct +++|#
00023 M01S00023.combmct +++|
00024 M01S00024.combmct +++|#
00025 M01S00025.combmct +++|* FILE AND CARTRIDGE TABLE (FCT).
00026 M01S00026.combmct +++|#
00027 M01S00027.combmct +++|
00028 M01S00028.combmct +++| DEF FCTENTL #975#; # *FCT* ENTRY LENGTH #
00029 M01S00029.combmct +++| DEF NOCLF #2#; # NO. OF CLF PER *FCT* WORD #
00030 M01S00030.combmct +++|
00031 M01S00031.combmct +++| STATUS CHAINCON # CHAIN CONTROL #
00032 M01S00032.combmct +++| MIDDLE,
00033 M01S00033.combmct +++| FIRST,
00034 M01S00034.combmct +++| LAST,
00035 M01S00035.combmct +++| ONLY;
00036 M01S00036.combmct +++|
00037 M01S00037.combmct +++| BASED
00038 M01S00038.combmct +++| ARRAY FCT [0:0] P(FCTENTL); # *FCT* ENTRY DESCRIPTION #
00039 M01S00039.combmct +++| BEGIN
00040 M01S00040.combmct +++| ITEM FCT$1ST U(00,00,60); # REFERENCE TO WORD ONE #
00041 M01S00041.combmct +++| ITEM FCT$CSND C(00,00,08); # VSN OF CARTRIDGE #
00042 M01S00042.combmct +++| ITEM FCT$CSNI I(00,00,48); # VSN IN INTEGER #
00043 M01S00043.combmct +++| ITEM FCT$CCOD C(00,48,02); # CARTRIDGE MAKER IDENT #
00044 M01S00044.combmct +++| ITEM FCT$Y U(01,00,06); # VERTICAL COORDINATE #
00045 M01S00045.combmct +++| ITEM FCT$Z U(01,06,06); # HORIZONTAL COORDINATE #
00046 M01S00046.combmct +++| ITEM FCT$FAULF U(01,12,15); # START OF LARGE FREE AU #
00047 M01S00047.combmct +++| ITEM FCT$FAUSF U(01,27,15); # START OF SMALL FREE AU #
00048 M01S00048.combmct +++| ITEM FCT$FLGS U(01,42,06); # FLAGS #
00049 M01S00049.combmct +++| ITEM FCT$IAF B(01,42,01); # INHIBIT ALLOCATION FLAG #
00050 M01S00050.combmct +++| ITEM FCT$LCF B(01,43,01); # LOST CARTRIDGE FLAG #
00051 M01S00051.combmct +++| ITEM FCT$EEF B(01,44,01); # EXCESSIVE ERROR FLAG #
00052 M01S00052.combmct +++| ITEM FCT$FCF B(01,45,01); # FREE CARTRIDGE FLAG #
00053 M01S00053.combmct +++| ITEM FCT$SEF B(01,46,01); # SFMCAT LINKAGE ERROR FLAG #
00054 M01S00054.combmct +++| ITEM FCT$FREE2 U(01,47,01); # UNUSED #
00055 M01S00055.combmct +++| ITEM FCT$ORD U(01,48,12); # *FCT* ORDINAL #
00056 M01S00056.combmct +++| ITEM FCT$ALLOCL U(02,00,12); # ALL OCL LINK FIELDS #
00057 M01S00057.combmct +++| ITEM FCT$OCL U(02,00,04); # FIRST OFF CARTRIDGE LINK #
00058 M01S00058.combmct +++| ITEM FCT$OCL1 U(02,04,04); # SECOND OFF CARTRIDGE LINK #
00059 M01S00059.combmct +++| ITEM FCT$OCL2 U(02,08,04); # THIRD OFF CARTRIDGE LINK #
00060 M01S00060.combmct +++| ITEM FCT$FTST U(02,12,06); # FIRST USABLE STRIPE #
00061 M01S00061.combmct +++| ITEM FCT$SPAU U(02,18,06); # STRIPES IN EACH AU #
00062 M01S00062.combmct +++| ITEM FCT$PRUS U(02,24,05); # PRU'S WRITTEN PER STRIPE #
00063 M01S00063.combmct +++| ITEM FCT$AVOT U(02,29,14); # MAXIMUM AU ON CARTRIDGE #
00064 M01S00064.combmct +++| ITEM FCT$CDP U(02,43,14); # CARTRIDGE DIVISION POINT #
00065 M01S00065.combmct +++| ITEM FCT$OCLF U(02,57,03); # RESERVED ON EACH OCL FIELD #
00066 M01S00066.combmct +++| ITEM FCT$CSNE U(03,00,60); # VSN IN EBCDIC #
00067 M01S00067.combmct +++| ITEM FCT$CSNE1 U(04,00,36); # VSN IN EBCDIC #
00068 M01S00068.combmct +++| ITEM FCT$FREE3 U(04,36,12); # UNUSED #
00069 M01S00069.combmct +++| ITEM FCT$FLAWS U(04,48,12); # FLAW COUNT #
00070 M01S00070.combmct +++| ITEM FCT$STRD U(05,00,30); # NUMBER OF STRIPES READ #
00071 M01S00071.combmct +++| ITEM FCT$STWR U(05,30,30); # NUMBER OF STRIPES WRITTEN #
00072 M01S00072.combmct +++| ITEM FCT$SRDE U(06,00,30); # NUMBER OF SOFT READ ERRORS #
00073 M01S00073.combmct +++| ITEM FCT$SWRE U(06,30,30); # NUMBER OF SOFT WRITE ERRORS #
00074 M01S00074.combmct +++| ITEM FCT$HRDE U(07,00,15); # NUMBER HARD READ ERRORS #
00075 M01S00075.combmct +++| ITEM FCT$STDM U(07,15,15); # NUMBER OF DEMARKED STRIPES #
00076 M01S00076.combmct +++| ITEM FCT$CRLD U(07,30,15); # NUMBER OF CARTRIDGE LOADS #
00077 M01S00077.combmct +++| ITEM FCT$LDER U(07,45,15); # NUMBER OF CARTRIDGE LOAD ERRORS
00078 M01S00078.combmct +++| #
00079 M01S00079.combmct +++| ITEM FCT$CLF U(08,00,60); # AU'S WORDS (8 - 974) #
00080 M01S00080.combmct +++| END
00081 M01S00081.combmct +++|
00082 M01S00082.combmct +++|#
00083 M01S00083.combmct +++|* A SPECIFIC OFF CARTRIDGE LINK FIELD IN *FCT$ALLOCL* CAN BE
00084 M01S00084.combmct +++|* ACCESSED VIA THE *FCT$OCLNK* DEFINITION BELOW.
00085 M01S00085.combmct +++|#
00086 M01S00086.combmct +++|
00087 M01S00087.combmct +++| DEF FCT$OCLNK(N) #B<4*(N)-4,4>FCT$ALLOCL[0] #;
00088 M01S00088.combmct +++|
00089 M01S00089.combmct +++|#
00090 M01S00090.combmct +++|** *FCT* ITEMS CAN BE ACCESSED WITH ORDINAL N USING *FCT$WD *
00091 M01S00091.combmct +++|* AND *FCT$WP* FOR *I* AND *J* RESPECTIVELY.
00092 M01S00092.combmct +++|#
00093 M01S00093.combmct +++|
00094 M01S00094.combmct +++|
00095 M01S00095.combmct +++| # CARTIDGE LINK FIELD GROUP FOR
00096 M01S00096.combmct +++| INITIALIZATION #
00097 M01S00097.combmct +++|
00098 M01S00098.combmct +++| DEF FCT$CLFG (I,J) #B<(J)*30,30> FCT$CLF[(I)]#;
00099 M01S00099.combmct +++|
00100 M01S00100.combmct +++| # FLAGS FOR CARTRIDGE LINK FIELDS
00101 M01S00101.combmct +++| #
00102 M01S00102.combmct +++| DEF FCT$FLGS1 (I,J) #B<(J)*30,07>FCT$CLF[(I)]#;
00103 M01S00103.combmct +++|
00104 M01S00104.combmct +++| # FREE / BUSY FLAG, IF FLAG NOT
00105 M01S00105.combmct +++| SET, AU IS NOT ALLOCATED YET #
00106 M01S00106.combmct +++|
00107 M01S00107.combmct +++| DEF FCT$FBF (I,J) #B<(J)*30,01> FCT$CLF[(I)]#;
00108 M01S00108.combmct +++|
00109 M01S00109.combmct +++| # UNUSED #
00110 M01S00110.combmct +++|
00111 M01S00111.combmct +++| DEF FCT$FREESF (I,J) #B<(J)*30+1,01> FCT$CLF[(I)]#;
00112 M01S00112.combmct +++|
00113 M01S00113.combmct +++| # AU CONFLICT FLAG #
00114 M01S00114.combmct +++|
00115 M01S00115.combmct +++| DEF FCT$AUCF (I,J) #B<(J)*30+2,01> FCT$CLF[(I)]#;
00116 M01S00116.combmct +++|
00117 M01S00117.combmct +++| # FROZEN CHAIN FLAG #
00118 M01S00118.combmct +++|
00119 M01S00119.combmct +++| DEF FCT$FRCF (I,J) #B<(J)*30+3,01> FCT$CLF[(I)]#;
00120 M01S00120.combmct +++|
00121 M01S00121.combmct +++| # START FRAGMENT FLAG #
00122 M01S00122.combmct +++|
00123 M01S00123.combmct +++| DEF FCT$SFF (I,J) #B<(J)*30+4,01> FCT$CLF[(I)]#;
00124 M01S00124.combmct +++|
00125 M01S00125.combmct +++| # FLAWED AU FLAG #
00126 M01S00126.combmct +++|
00127 M01S00127.combmct +++| DEF FCT$FAUF (I,J) #B<(J)*30+5,01> FCT$CLF[(I)]#;
00128 M01S00128.combmct +++|
00129 M01S00129.combmct +++| # CONTINUATION FLAG #
00130 M01S00130.combmct +++|
00131 M01S00131.combmct +++| DEF FCT$CAUF (I,J) #B<(J)*30+6,01> FCT$CLF[(I)]#;
00132 M01S00132.combmct +++|
00133 M01S00133.combmct +++| # IDENTIFIES CARTRIDGE CONTAINING
00134 M01S00134.combmct +++| NEXT VOLUME #
00135 M01S00135.combmct +++| DEF FCT$CLKOCL (I,J) #B<(J)*30+7,02> FCT$CLF[(I)]#;
00136 M01S00136.combmct +++|
00137 M01S00137.combmct +++| # CHAIN CONTROL INDICATES THAT
00138 M01S00138.combmct +++| THIS SET OF AUS IS #
00139 M01S00139.combmct +++| # MIDDLE (0), FIRST (1),
00140 M01S00140.combmct +++| LAST(2), ONLY (3) #
00141 M01S00141.combmct +++| # OF VOLUME OR VOLUMES. #
00142 M01S00142.combmct +++|
00143 M01S00143.combmct +++| DEF FCT$CC (I,J) #B<(J)*30+9,02> FCT$CLF[(I)]#;
00144 M01S00144.combmct +++|
00145 M01S00145.combmct +++| # NO. OF AUS FOLLOWING FIRST
00146 M01S00146.combmct +++| ACCESSED AU #
00147 M01S00147.combmct +++|
00148 M01S00148.combmct +++| DEF FCT$LEN (I,J) #B<(J)*30+11,07> FCT$CLF[(I)]#;
00149 M01S00149.combmct +++|
00150 M01S00150.combmct +++| # ORDINAL OF FIRST AU OF NEXT
00151 M01S00151.combmct +++| VOLUME. #
00152 M01S00152.combmct +++|
00153 M01S00153.combmct +++| DEF FCT$LINK (I,J) #B<(J)*30+18,12> FCT$CLF[(I)]#;
00154 M01S00154.combmct +++|
00155 M01S00155.combmct +++| # *FCT* INDEX INTO A TABLE WORD #
00156 M01S00156.combmct +++|
00157 M01S00157.combmct +++| DEF FCT$WD (N) #((N)/NOCLF)#;
00158 M01S00158.combmct +++|
00159 M01S00159.combmct +++| # CLF WORD POSITION #
00160 M01S00160.combmct +++|
00161 M01S00161.combmct +++| DEF FCT$WP (N) #((N)-(((N)/NOCLF)*NOCLF))#;
00162 M01S00162.combmct +++|
00163 M01S00163.combmct +++| DEF SETFCTX (N) #FWD = (N)/2;
00164 M01S00164.combmct +++| FPS = (N) - 2*FWD;
00165 M01S00165.combmct +++| #;
00166 M01S00166.combmct +++|
00167 M01S00167.combmct +++|#
00168 M01S00168.combmct +++|* AVAILABLE AU TABLE (ALLOCATION SUMMARY TABLE).
00169 M01S00169.combmct +++|#
00170 M01S00170.combmct +++|
00171 M01S00171.combmct +++|
00172 M01S00172.combmct +++| DEF ASTENTW #2#; # NO. OF AST WORDS PER ENTRY #
00173 M01S00173.combmct +++| DEF ASTENTL #624#; # *AST* ENTRY LENGTH #
00174 M01S00174.combmct +++|
00175 M01S00175.combmct +++|
00176 M01S00176.combmct +++| STATUS ASTENSTAT
00177 M01S00177.combmct +++| UNASS$CUB,
00178 M01S00178.combmct +++| UNASS$CART,
00179 M01S00179.combmct +++| ASS$CART;
00180 M01S00180.combmct +++|
00181 M01S00181.combmct +++|
00182 M01S00182.combmct +++| BASED
00183 M01S00183.combmct +++| ARRAY AST [15:15] S(ASTENTW); # *AST* ENTRY DESCRIPTION #
00184 M01S00184.combmct +++| BEGIN
00185 M01S00185.combmct +++| ITEM AST$1ST U(00,00,60); # AST WORD 1 #
00186 M01S00186.combmct +++| ITEM AST$NAME C(00,00,06); # NAME OF *AST* #
00187 M01S00187.combmct +++| ITEM AST$SM C(00,36,01); # STORAGE MODULE ID #
00188 M01S00188.combmct +++| ITEM AST$PCI U(00,00,09); # PRIVATE CARTRIDGE #
00189 M01S00189.combmct +++| ITEM AST$STAT U(00,09,03); # *AST* ENTRY STATUS #
00190 M01S00190.combmct +++| ITEM AST$FCTX U(00,12,12); # *FCT* INDEX #
00191 M01S00191.combmct +++| ITEM AST$GR U(00,12,08); # GROUP #
00192 M01S00192.combmct +++| ITEM AST$GRT U(00,20,04); # CARTRIDGE WITHIN A GROUP #
00193 M01S00193.combmct +++| ITEM AST$FLAGS U(00,24,06); # FLAGS #
00194 M01S00194.combmct +++| ITEM AST$AAF B(00,24,01); # ALLOCATION AUTHORIZED #
00195 M01S00195.combmct +++| ITEM AST$NOCLF B(00,25,01); # NO OFF CARTRIDGE LINK #
00196 M01S00196.combmct +++| ITEM AST$FREE U(00,30,30); # UNUSED #
00197 M01S00197.combmct +++|
00198 M01S00198.combmct +++| ITEM AST$2ND U(01,00,60); # AST WORD 2 #
00199 M01S00199.combmct +++| ITEM AST$AULF U(01,00,12); # TOTAL AUS AVAILABLE LARGE FILES
00200 M01S00200.combmct +++| #
00201 M01S00201.combmct +++| ITEM AST$AUSF U(01,12,12); # TOTAL AUS AVAILABLE SMALL FILES
00202 M01S00202.combmct +++| #
00203 M01S00203.combmct +++| ITEM AST$FLAWS U(01,24,12); # FLAW COUNT #
00204 M01S00204.combmct +++| ITEM AST$FREE1 U(01,36,24); # UNUSED #
00205 M01S00205.combmct +++| END
00206 M01S00206.combmct +++|
00207 M01S00207.combmct +++|
00208 M01S00208.combmct +++|#
00209 M01S00209.combmct +++|* CATALOG PREAMBLE.
00210 M01S00210.combmct +++|#
00211 M01S00211.combmct +++|
00212 M01S00212.combmct +++| DEF PRMFCTL (N) #(PRM$ENTRC[(N)]*FCTENTL)#; # *FCT* LENGTH #
00213 M01S00213.combmct +++|
00214 M01S00214.combmct +++| # *AST* LENGTH #
00215 M01S00215.combmct +++| DEF PRMASTL (N) #(PRM$ENTRC[N]*ASTENTW) #;
00216 M01S00216.combmct +++|
00217 M01S00217.combmct +++| COMMON BMCTCOM;
00218 M01S00218.combmct +++|
00219 M01S00219.combmct +++| BEGIN # BMCTCOM #
00220 M01S00220.combmct +++| # $$ #
00221 M01S00221.combmct +++| ITEM $$BMCT$$ C(20) = "****** COMBMCT *****";
00222 M01S00222.combmct +++| # $$ #
00223 M01S00223.combmct +++|
00224 M01S00224.combmct +++| ITEM FPS U; # *FCT* POSITION INDEX #
00225 M01S00225.combmct +++| ITEM FWD U; # *FCT* WORD INDEX #
00226 M01S00226.combmct +++|
00227 M01S00227.combmct +++| BASED
00228 M01S00228.combmct +++| ARRAY PREAMBLE [0:MAXSM] S(3); # M860 CATALOG PREAMBLE #
00229 M01S00229.combmct +++| BEGIN
00230 M01S00230.combmct +++|
00231 M01S00231.combmct +++|#
00232 M01S00232.combmct +++|* PREAMBLE HEADER.
00233 M01S00233.combmct +++|#
00234 M01S00234.combmct +++|
00235 M01S00235.combmct +++| ITEM PRM$FAM C(00,00,07); # FAMILY NAME #
00236 M01S00236.combmct +++| ITEM PRM$SUBF U(00,42,06); # SUBFAMILY DESIGNATOR #
00237 M01S00237.combmct +++| ITEM PRM$FREE U(00,48,09); # UNUSED #
00238 M01S00238.combmct +++| ITEM PRM$ID U(00,57,03); # M860-ID #
00239 M01S00239.combmct +++| ITEM PRM$FREE1 U(01,00,60); # UNUSED #
00240 M01S00240.combmct +++| ITEM PRM$FREE1A U(02,00,60); # UNUSED #
00241 M01S00241.combmct +++|
00242 M01S00242.combmct +++|#
00243 M01S00243.combmct +++|* PREAMBLE SUBCATALOG ENTRIES.
00244 M01S00244.combmct +++|#
00245 M01S00245.combmct +++|
00246 M01S00246.combmct +++| ITEM PRM$SCW1 I(00,00,60); # SUBCATALOG ENTRY WORD #
00247 M01S00247.combmct +++| ITEM PRM$SMID U(00,00,06); # SM ID #
00248 M01S00248.combmct +++| ITEM PRM$ENTRC U(00,06,12); # NUMBER OF FCT/AST ENTRIES #
00249 M01S00249.combmct +++| ITEM PRM$FCTLOC U(00,18,15); # PRU NUMBER OF FCT #
00250 M01S00250.combmct +++| ITEM PRM$ASTLOC U(00,33,15); # PRU NUMBER OF AST #
00251 M01S00251.combmct +++|
00252 M01S00252.combmct +++| ITEM PRM$SCW2 I(01,00,60); # SUBCATALOG ENTRY WORD 2 #
00253 M01S00253.combmct +++| ITEM PRM$FREE2 U(01,00,19); # UNUSED #
00254 M01S00254.combmct +++| ITEM PRM$PDATE U(01,19,41); # LAST PURGE OF ORPHAN FILES #
00255 M01S00255.combmct +++|
00256 M01S00256.combmct +++| ITEM PRM$SCW3 U(02,00,60); # SUBCATALOG ENTRY WORD 3 #
00257 M01S00257.combmct +++| ITEM PRM$MXAUS U(02,00,12); # AU FOR SHORT FILES #
00258 M01S00258.combmct +++| ITEM PRM$MXAUL U(02,12,12); # AU FOR LONG FILES #
00259 M01S00259.combmct +++| ITEM PRM$MXAUGR U(02,24,18); # AU IN ONE GROUP #
00260 M01S00260.combmct +++| ITEM PRM$FREE3 U(02,42,18); # UNUSED #
00261 M01S00261.combmct +++| END
00262 M01S00262.combmct +++|
00263 M01S00263.combmct +++| END # BMCTCOM #
00264 M01S00264.combmct +++|
00265 M01S00265.combmct +++| END # COMBMCT #
00266 M01S00266.combmct +++|
00267 M01S00267.combmct +++| CONTROL LIST;