User Tools

Site Tools


cdc:nos2.source:opl.opl871:common:combmct

Common COMBMCT

0 Modifications

Source

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;
cdc/nos2.source/opl.opl871/common/combmct.txt ยท Last modified: by 127.0.0.1