User Tools

Site Tools


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

Common COMTVLP

0 Modifications

Source

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