User Tools

Site Tools


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

Common COMTVLV

0 Modifications

Source

Seq #  *Modification Id* Act 
----------------------------+
00001  M01S00001.comtvlv +++|
00002  M01S00002.comtvlv +++|#     COMTVLV - VALIDATION TABLE DEFINITIONS, ITEMS AND ARRAYS.       #
00003  M01S00003.comtvlv +++|
00004  M01S00004.comtvlv +++|                                               CONTROL NOLIST;
00005  M01S00005.comtvlv +++|                                               CONTROL IFEQ LISTCON,1;
00006  M01S00006.comtvlv +++|                                               CONTROL LIST;
00007  M01S00007.comtvlv +++|                                               CONTROL FI;
00008  M01S00008.comtvlv +++|      BEGIN  # COMTVLV #
00009  M01S00009.comtvlv +++|
00010  M01S00010.comtvlv +++|#
00011  M01S00011.comtvlv +++|***   COMTVLV - VALIDATION TABLE DEFINITIONS, ITEMS AND ARRAYS.
00012  M01S00012.comtvlv +++|*
00013  M01S00013.comtvlv +++|*     COMTVLV DEFINES THE VALIDATION TABLE (*VT*), THE ASSOCIATED
00014  M01S00014.comtvlv +++|*     VALIDATION PROBLEM TYPES AND THE VALIDATION ERROR MESSAGES
00015  M01S00015.comtvlv +++|*     USED BY THE *SSVAL* ROUTINES.
00016  M01S00016.comtvlv +++|*
00017  M01S00017.comtvlv +++|#
00018  M01S00018.comtvlv +++|
00019  M01S00019.comtvlv +++|
00020  M01S00020.comtvlv +++|#
00021  M01S00021.comtvlv +++|*     DEFINITION OF VALIDATION ERROR FLAGS IN THE *VT* ENTRY.
00022  M01S00022.comtvlv +++|*     (BIT LOCATION OF THE ERROR FLAGS).
00023  M01S00023.comtvlv +++|#
00024  M01S00024.comtvlv +++|
00025  M01S00025.comtvlv +++|      DEF BNON       #09#;           # NO CARTRIDGE #
00026  M01S00026.comtvlv +++|      DEF BINH       #10#;           # *FCT* INHIBIT BIT SET #
00027  M01S00027.comtvlv +++|      DEF BLOS       #11#;           # CARTRIDGE LOST #
00028  M01S00028.comtvlv +++|      DEF BEWP       #12#;           # *FCT* WRITE PARITY BIT SET #
00029  M01S00029.comtvlv +++|      DEF BCON       #13#;           # *FCT* CONFLICT BIT SET #
00030  M01S00030.comtvlv +++|      DEF BFRO       #14#;           # *FCT* FROZEN BIT SET #
00031  M01S00031.comtvlv +++|      DEF BSOF       #15#;           # START OF FRAGMENT SET #
00032  M01S00032.comtvlv +++|      DEF BILL       #16#;           # ILL-FORMED CHAIN #
00033  M01S00033.comtvlv +++|      DEF BINC       #17#;           # INTERSECTING CHAIN #
00034  M01S00034.comtvlv +++|      DEF BINS       #18#;           # INTERSECTING STREAM #
00035  M01S00035.comtvlv +++|      DEF BRER       #19#;           # *PFC* READ ERROR FLAG SET #
00036  M01S00036.comtvlv +++|      DEF BMSH       #20#;           # MISSING HEAD OF CHAIN #
00037  M01S00037.comtvlv +++|      DEF BMUL       #21#;           # MULTIPLE OWNERS #
00038  M01S00038.comtvlv +++|      DEF B1ST       #22#;           # FIRST OWNER DETECTED #
00039  M01S00039.comtvlv +++|      DEF BSCA       #23#;           # SCATTERED FILE DETECTED #
00040  M01S00040.comtvlv +++|      DEF BSME       #24#;           # SMMAP ENTRY ERROR #
00041  M01S00041.comtvlv +++|      DEF BSYS       #25#;           # *PFC* SYSTEM ERROR FLAG #
00042  M01S00042.comtvlv +++|
00043  M01S00043.comtvlv +++|
00044  M01S00044.comtvlv +++|#
00045  M01S00045.comtvlv +++|*     DEFINE THE RANGE OF VALIDATION ERROR FLAGS.
00046  M01S00046.comtvlv +++|#
00047  M01S00047.comtvlv +++|
00048  M01S00048.comtvlv +++|      DEF VPS        #9#;            # STARTING BIT NUMBER #
00049  M01S00049.comtvlv +++|      DEF VPX    #25#;       # ENDING BIT NUMBER #
00050  M01S00050.comtvlv +++|
00051  M01S00051.comtvlv +++|#
00052  M01S00052.comtvlv +++|*     VALIDATION PROBLEM TYPES.
00053  M01S00053.comtvlv +++|*       EACH ERROR FLAG IS ASSIGNED A TYPE TO REFLECT THE
00054  M01S00054.comtvlv +++|*       SERIOUSNESS/TYPE OF ERROR.  THE ERROR TYPES FOR EACH
00055  M01S00055.comtvlv +++|*       ERROR FLAG ARE RECORDED IN THE *VTPTYPES* ARRAY.
00056  M01S00056.comtvlv +++|#
00057  M01S00057.comtvlv +++|
00058  M01S00058.comtvlv +++|      DEF VPT1       #1#;            # PROBLEM TYPE 1 #
00059  M01S00059.comtvlv +++|      DEF VPT2       #2#;            # PROBLEM TYPE 2 #
00060  M01S00060.comtvlv +++|      DEF VPT4       #4#;            # PROBLEM TYPE 4 #
00061  M01S00061.comtvlv +++|
00062  M01S00062.comtvlv +++|
00063  M01S00063.comtvlv +++|
00064  M01S00064.comtvlv +++|      COMMON TVLVCOM;
00065  M01S00065.comtvlv +++|
00066  M01S00066.comtvlv +++|        BEGIN  # TVLVCOM COMMON BLOCK #
00067  M01S00067.comtvlv +++|                                                      #$$#
00068  M01S00068.comtvlv +++|              ITEM $$TVLV$$ C(20) = "****** COMTVLV *****";
00069  M01S00069.comtvlv +++|                                                      #$$#
00070  M01S00070.comtvlv +++|
00071  M01S00071.comtvlv +++|#
00072  M01S00072.comtvlv +++|*     THE VALIDATION TABLE.
00073  M01S00073.comtvlv +++|*       THE VALIDATION TABLE (VT) IS USED AS A FAST METHOD TO
00074  M01S00074.comtvlv +++|*       FOLLOW CHAINS AND PROBLEMS WITH CHAINS.  IT
00075  M01S00075.comtvlv +++|*       HAS A 1 WORD ENTRY FOR EACH AU.  THESE ENTRIES
00076  M01S00076.comtvlv +++|*       ARE PARALLEL TO THE *FCT* BEING EXAMINED.  MEMORY FOR THE
00077  M01S00077.comtvlv +++|*       TABLE WILL BE ALLOCATED AT THE END OF THE PROGRAM FIELD LENGTH
00078  M01S00078.comtvlv +++|*       DURING PROGRAM EXECUTION.  THE SIZE REQUIRED WILL BE
00079  M01S00079.comtvlv +++|*       EQUAL TO 1931 * (THE MAXIMUM NUMBER OF CUBES IN A GROUP WHICH
00080  M01S00080.comtvlv +++|*       IS 161.  NOTE - SPACE EXISTS FOR
00081  M01S00081.comtvlv +++|*       *FCT* ORDINAL 0 EVEN THOUGH IT IS NOT USED.
00082  M01S00082.comtvlv +++|*
00083  M01S00083.comtvlv +++|#
00084  M01S00084.comtvlv +++|
00085  M01S00085.comtvlv +++|
00086  M01S00086.comtvlv +++|        BASED
00087  M01S00087.comtvlv +++|        ARRAY VTTABLE [0:0] S(1);    # *VT* TABLE #
00088  M01S00088.comtvlv +++|          BEGIN
00089  M01S00089.comtvlv +++|          ITEM VT$ITEM    U(00,00,60);
00090  M01S00090.comtvlv +++|          END
00091  M01S00091.comtvlv +++|
00092  M01S00092.comtvlv +++|#
00093  M01S00093.comtvlv +++|*     ENTRIES ARE ADDED TO THE *VT* TABLE AT A LOCATION DETERMINED
00094  M01S00094.comtvlv +++|*     BY THEIR *FCT* ORDINAL AND STREAM NUMBER.
00095  M01S00095.comtvlv +++|*     THIS ARRAY IS USED TO BUILD THE LINK (SUBSCRIPT) TO A *VT*
00096  M01S00096.comtvlv +++|*     ENTRY.
00097  M01S00097.comtvlv +++|*
00098  M01S00098.comtvlv +++|#
00099  M01S00099.comtvlv +++|
00100  M01S00100.comtvlv +++|        BASED
00101  M01S00101.comtvlv +++|        ARRAY VTLINK [0:0] S(1);     # TO BUILD THE LINK TO A *VT*
00102  M01S00102.comtvlv +++|                                       ENTRY #
00103  M01S00103.comtvlv +++|          BEGIN
00104  M01S00104.comtvlv +++|          ITEM VTL$WORD   U(00,00,60);  # REFERENCE FULL ENTRY #
00105  M01S00105.comtvlv +++|          ITEM VTL$GRT    U(00,45,04);        # NEXT GROUP ORDINAL #
00106  M01S00106.comtvlv +++|          ITEM VTL$AU     U(00,49,11);          # NEXT *AU* #
00107  M01S00107.comtvlv +++|          END
00108  M01S00108.comtvlv +++|
00109  M01S00109.comtvlv +++|        ITEM VTFIRST    I;           # INDEX OF FIRST ENTRY IN *VT* #
00110  M01S00110.comtvlv +++|        ITEM VTLAST     I;           # INDEX OF END OF *VT* #
00111  M01S00111.comtvlv +++|        ITEM VTPTR      I;           # INDEX OF CURRENT ENTRY #
00112  M01S00112.comtvlv +++|
00113  M01S00113.comtvlv +++|
00114  M01S00114.comtvlv +++|
00115  M01S00115.comtvlv +++|#
00116  M01S00116.comtvlv +++|*     VALIDATION TABLE ENTRY.  THIS ARRAY DESCRIBES EACH ENTRY (AU)
00117  M01S00117.comtvlv +++|*       IN THE *VT* TABLE.
00118  M01S00118.comtvlv +++|*       - WARNING -
00119  M01S00119.comtvlv +++|*        THE *VTPTYPES* ARRAY AND THE *VTERMSGS* ARRAY DEPEND
00120  M01S00120.comtvlv +++|*        ON THE ORDER AND MEANING OF THE ERROR FLAGS.
00121  M01S00121.comtvlv +++|*
00122  M01S00122.comtvlv +++|#
00123  M01S00123.comtvlv +++|
00124  M01S00124.comtvlv +++|        ARRAY VTENTRY [0:0] S(1);    # *VT* TABLE ENTRY #
00125  M01S00125.comtvlv +++|          BEGIN
00126  M01S00126.comtvlv +++|          ITEM VTEN$WORD  U(00,00,60);  # REFERENCE WHOLE ENTRY #
00127  M01S00127.comtvlv +++|          ITEM VTEN$ALOC  B(00,00,01);  # ALLOCATED #
00128  M01S00128.comtvlv +++|          ITEM VTEN$ALOCR U(00,00,01);  # ALLOCATED REDEFINED #
00129  M01S00129.comtvlv +++|          ITEM VTEN$HOC   B(00,01,01);  # HEAD OF CHAIN #
00130  M01S00130.comtvlv +++|          ITEM VTEN$EOC   B(00,02,01);  # END OF CHAIN #
00131  M01S00131.comtvlv +++|          ITEM VTEN$OWN   B(00,03,01);  # *PFC* OWNER #
00132  M01S00132.comtvlv +++|          ITEM VTEN$OCL   U(00,04,02);  # OFF CARTRIDGE LINK #
00133  M01S00133.comtvlv +++|          ITEM VTEN$PROB  U(00,06,03);  # SUMMARY OF PROBLEM TYPES #
00134  M01S00134.comtvlv +++|          ITEM VTEN$TYP4  B(00,06,01);  # TYPE4 PROBLEM #
00135  M01S00135.comtvlv +++|          ITEM VTEN$TYP2  B(00,07,01);  # TYPE2 PROBLEM #
00136  M01S00136.comtvlv +++|          ITEM VTEN$TYP1  B(00,08,01);  # TYPE1 PROBLEM #
00137  M01S00137.comtvlv +++|          ITEM VTEN$NONE  B(00,BNON,01);  # NO CARTRIDGE #
00138  M01S00138.comtvlv +++|          ITEM VTEN$INHB  B(00,BINH,01);  # *FCT* INHIBIT ON #
00139  M01S00139.comtvlv +++|          ITEM VTEN$LOST  B(00,BLOS,01);  # *FCT* LOST ON #
00140  M01S00140.comtvlv +++|          ITEM VTEN$EWPE  B(00,BEWP,01);  # *FCT* EWPE ON #
00141  M01S00141.comtvlv +++|          ITEM VTEN$CONF  B(00,BCON,01);  # STREAM CONFLICT ON #
00142  M01S00142.comtvlv +++|          ITEM VTEN$CONR  U(00,BCON,01);  # CONFLICT REDEFINED #
00143  M01S00143.comtvlv +++|          ITEM VTEN$FROZ  B(00,BFRO,01);  # STREAM FROZEN ON #
00144  M01S00144.comtvlv +++|          ITEM VTEN$FROZR U(00,BFRO,01);  # FROZEN REDEFINED #
00145  M01S00145.comtvlv +++|          ITEM VTEN$SOF   B(00,BSOF,01);  # STREAM SOF ON #
00146  M01S00146.comtvlv +++|          ITEM VTEN$SOFR  U(00,BSOF,01);  # SOF REDEFINED #
00147  M01S00147.comtvlv +++|          ITEM VTEN$ILL   B(00,BILL,01);  # ILL-FORMED CHAIN DETECTED #
00148  M01S00148.comtvlv +++|          ITEM VTEN$INTC  B(00,BINC,01);  # INTERSECTING CHAIN DETECTED
00149  M01S00149.comtvlv +++|                                          #
00150  M01S00150.comtvlv +++|          ITEM VTEN$INTS  B(00,BINS,01);  # INTERSECTING STREAM
00151  M01S00151.comtvlv +++|                                            DETECTED #
00152  M01S00152.comtvlv +++|          ITEM VTEN$RERR  B(00,BRER,01);  # *PFC* READ ERR FLAG ON #
00153  M01S00153.comtvlv +++|          ITEM VTEN$MSH   B(00,BMSH,01);  # MISSING HOC #
00154  M01S00154.comtvlv +++|          ITEM VTEN$MULT  B(00,BMUL,01);  # MULTIPLE *PFC* OWNERS #
00155  M01S00155.comtvlv +++|          ITEM VTEN$1ST   B(00,B1ST,01);  # FIRST OWNER FLAG #
00156  M01S00156.comtvlv +++|          ITEM VTEN$SCAT  B(00,BSCA,01);  # SCATTERED FILE FLAG #
00157  M01S00157.comtvlv +++|          ITEM VTEN$SME   B(00,BSME,01);  # SMMAP ENTRY ERROR #
00158  M01S00158.comtvlv +++|          ITEM VTEN$SYS   B(00,BSYS,01);  # SYSTEM ERROR #
00159  M01S00159.comtvlv +++|          ITEM VTEN$FCF   B(00,26,01);  # FREE CARTRIDGE FLAG #
00160  M01S00160.comtvlv +++|          ITEM VTEN$LOOP  B(00,28,01);  # DETECT LOOP #
00161  M01S00161.comtvlv +++|          ITEM VTEN$RPTED B(00,29,01);  # REPORTED FLAG #
00162  M01S00162.comtvlv +++|          ITEM VTEN$POINT U(00,30,15);  # HOC POINTER #
00163  M01S00163.comtvlv +++|          ITEM VTEN$LINK  U(00,45,15);  # NEXT LINK IN CHAIN #
00164  M01S00164.comtvlv +++|          ITEM VTEN$LINKH U(00,45,04);  # NEXT *GRT* ORDINAL #
00165  M01S00165.comtvlv +++|          ITEM VTEN$LINKL U(00,49,11);  # NEXT *AU* #
00166  M01S00166.comtvlv +++|          END
00167  M01S00167.comtvlv +++|
00168  M01S00168.comtvlv +++|
00169  M01S00169.comtvlv +++|
00170  M01S00170.comtvlv +++|#
00171  M01S00171.comtvlv +++|*     VTPTYPES - IS AN ARRAY USED TO ASSIGN PROBLEM TYPES TO
00172  M01S00172.comtvlv +++|*                EACH ERROR FLAG IN THE *VT* ENTRY.
00173  M01S00173.comtvlv +++|#
00174  M01S00174.comtvlv +++|
00175  M01S00175.comtvlv +++|        ARRAY VTPTYPES [VPS:VPX] S(1);
00176  M01S00176.comtvlv +++|          BEGIN
00177  M01S00177.comtvlv +++|          ITEM VTP$TYP    U(00,00,60) = [ 0,  # NONE #
00178  M01S00178.comtvlv +++|          VPT1,                      # INHB #
00179  M01S00179.comtvlv +++|          VPT2,                      # LOST #
00180  M01S00180.comtvlv +++|          VPT2,                      # EWPE #
00181  M01S00181.comtvlv +++|          VPT4,                      # CONF #
00182  M01S00182.comtvlv +++|          VPT4,                      # FROZ #
00183  M01S00183.comtvlv +++|          VPT4,                      # SOF #
00184  M01S00184.comtvlv +++|          VPT4,                      # ILL #
00185  M01S00185.comtvlv +++|          VPT4,                      # INTC #
00186  M01S00186.comtvlv +++|          VPT4,                      # INTS #
00187  M01S00187.comtvlv +++|          VPT1,                      # RERR #
00188  M01S00188.comtvlv +++|          VPT2,                      # MSH #
00189  M01S00189.comtvlv +++|          VPT2,                      # MULT #
00190  M01S00190.comtvlv +++|          0,                         # FIRST (NO PROBLEM) #
00191  M01S00191.comtvlv +++|          VPT1,                      # SCAT #
00192  M01S00192.comtvlv +++|          VPT2,                      # *CSU* #
00193  M01S00193.comtvlv +++|          VPT1];                     # SYS #
00194  M01S00194.comtvlv +++|          END
00195  M01S00195.comtvlv +++|
00196  M01S00196.comtvlv +++|#
00197  M01S00197.comtvlv +++|*     VTERMSGS - IS THE ARRAY TO RELATE A SPECIFIC ERROR
00198  M01S00198.comtvlv +++|*                TEXT TO THE VALIDATION ERROR FLAG.
00199  M01S00199.comtvlv +++|*                THE ERROR TEXT IS DEFINED IN *COMUVLD*.
00200  M01S00200.comtvlv +++|#
00201  M01S00201.comtvlv +++|
00202  M01S00202.comtvlv +++|        ARRAY VTERMSGS [VPS:VPX] S(4);  # *VT* ERROR MSGS #
00203  M01S00203.comtvlv +++|          BEGIN
00204  M01S00204.comtvlv +++|          ITEM VTER$MSG   C(00,00,40) = [ ENONE,
00205  M01S00205.comtvlv +++|          EINHB,
00206  M01S00206.comtvlv +++|          ELOST,
00207  M01S00207.comtvlv +++|          EEWPE,
00208  M01S00208.comtvlv +++|          ECONF,
00209  M01S00209.comtvlv +++|          EFROZ,
00210  M01S00210.comtvlv +++|          ESOF,
00211  M01S00211.comtvlv +++|          EILL,
00212  M01S00212.comtvlv +++|          EINTC,
00213  M01S00213.comtvlv +++|          EINTA,
00214  M01S00214.comtvlv +++|          ERERR,
00215  M01S00215.comtvlv +++|          EMSH,
00216  M01S00216.comtvlv +++|          EMULT,
00217  M01S00217.comtvlv +++|          "0",                       # NO MESSAGE FOR THIS ERROR FLAG #
00218  M01S00218.comtvlv +++|          ESCAT,
00219  M01S00219.comtvlv +++|          ESME,
00220  M01S00220.comtvlv +++|          ESYS   ];
00221  M01S00221.comtvlv +++|          END
00222  M01S00222.comtvlv +++|
00223  M01S00223.comtvlv +++|
00224  M01S00224.comtvlv +++|        END  # TVLVCOM COMMON BLOCK #
00225  M01S00225.comtvlv +++|
00226  M01S00226.comtvlv +++|      END  # COMTVLV #
00227  M01S00227.comtvlv +++|
00228  M01S00228.comtvlv +++|                                               CONTROL LIST;
cdc/nos2.source/opl.opl871/common/comtvlv.txt ยท Last modified: by 127.0.0.1