User Tools

Site Tools


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

Common COMTVLD

3 Modifications

Source

Seq #  *Modification Id* Act 
----------------------------+
00001  M01S00001.comtvld +++|
00002  M01S00002.comtvld +++|#     COMTVLD - SSVAL DEFINITIONS, GLOBAL ITEMS AND ARRAYS.           #
00003  M01S00003.comtvld +++|
00004  M01S00004.comtvld +++|                                               CONTROL NOLIST;
00005  M01S00005.comtvld +++|                                               CONTROL IFEQ LISTCON,1;
00006  M01S00006.comtvld +++|                                               CONTROL LIST;
00007  M01S00007.comtvld +++|                                               CONTROL FI;
00008  M01S00008.comtvld +++|      BEGIN  # COMTVLD #
00009  M01S00009.comtvld +++|
00010  M01S00010.comtvld +++|#
00011  M01S00011.comtvld +++|***   COMTVLD - SSVAL DEFINITIONS, GLOBAL ITEMS AND ARRAYS.
00012  M01S00012.comtvld +++|*
00013  M01S00013.comtvld +++|*      COMTVLD DEFINES SYMBOLS, ITEMS AND ARRAYS USED BY
00014  M01S00014.comtvld +++|*      THE *SSVAL* ROUTINES.
00015  M01S00015.comtvld +++|*
00016  M01S00016.comtvld +++|#
00017  M01S00017.comtvld +++|
00018  M01S00018.comtvld +++|
00019  M01S00019.comtvld +++|#
00020  M01S00020.comtvld +++|*     MISCELLANEOUS *DEF* STATEMENTS.
00021  M01S00021.comtvld +++|#
00022  M01S00022.comtvld +++|
00023  M01S00023.comtvld +++|      DEF VLVER      #"VER 1.0"#;    # VERSION NUMBER #
00024  M01S00024.comtvld +++|
00025  M01S00025.comtvld +++|
00026  M01S00026.comtvld +++|      DEF CCADDR     #O"70"#;        # ADDRESS OF CONTROL CARD #
00027  M01S00027.comtvld +++|
00028  M01S00028.comtvld +++|      DEF RCLTIM     #040#;          # SYSTEM RECALL TIME IN MSEC #
00029  M01S00029.comtvld +++|      DEF SEC        (I) #I * 1000 / RCLTIM #;  # COUNTER TO CONTROL
00030  M01S00030.comtvld +++|                                                  RECALL #
00031  M01S00031.comtvld +++|      DEF WAITEX     #SEC(2) #;      # RECALL TIME WAITING FOR EXEC #
00032  M01S00032.comtvld +++|      DEF WAITPF     #SEC(5) #;      # RECALL TIME WAITING FOR PF #
00033  M01S00033.comtvld +++|      DEF ABRT       #1#;            # REQUEST ABORT #
00034  M01S00034.comtvld +++|      DEF NOABT      #0#;            # REQUEST NO ABORT #
00035  M01S00035.comtvld +++|
00036  M01S00036.comtvld +++|
00037  M01S00037.comtvld +++|      DEF COPL       #1#;            # CONTINUE PRINT LINE #
00038  M01S00038.comtvld +++|      DEF EOPL       #0#;            # END OF PRINT LINE #
00039  M01S00039.comtvld +++|
00040  M01S00040.comtvld +++|      DEF LGET       #0#;            # GET LOCK REQUEST #
00041  M01S00041.comtvld +++|      DEF LREL       #1#;            # RELEASE LOCK REQUEST #
00042  M01S00042.comtvld +++|
00043  M01S00043.comtvld +++|      DEF REQCURRFL  #+0#;           # CURRENT FL PARAMETER VALUE #
00044  M01S00044.comtvld +++|      DEF REQMAXFL   #-1#;           # MAX JOB FL PARAMETER VALUE #
00045  M01S00045.comtvld +++|
00046  M01S00046.comtvld +++|      DEF ZFD        #1000000#;      # FORCE LEADING DECIMAL ZEROS #
00047  M01S00047.comtvld +++|      DEF ZFO        #O"1000000"#;   # FORCE LEADING OCTAL ZEROS #
00048  M01S00048.comtvld +++|
00049  M01S00049.comtvld +++|
00050  M01S00050.comtvld +++|#
00051  M01S00051.comtvld +++|*     LENGTH OF FILE BUFFERS.
00052  M01S00052.comtvld +++|#
00053  M01S00053.comtvld +++|
00054  M01S00054.comtvld +++|      DEF LRPTBUF    #065#;          # REPORT FILE BUFFER #
00055  M01S00055.comtvld +++|      DEF LRDFBUF    #065#;          # RDF FILE BUFFER #
00056  M01S00056.comtvld +++|      DEF LPROBBUF   #065#;          # PROBLEM FILE BUFFER #
00057  M01S00057.comtvld +++|      DEF LFIXBUF    #065#;          # FIXIT FILE BUFFER #
00058  M01S00058.comtvld +++|      DEF LEXTBUF    #065#;          # EXTRACT FILE BUFFER #
00059  M01S00059.comtvld +++|      DEF LPFCEBUF   #065#;          # RDF-PFC EXTRACT FILE BUFFER #
00060  M01S00060.comtvld +++|      DEF LZZZVBUF   #065#;          # RDF-M860 CATALOG FILE BUFFER #
00061  M01S00061.comtvld +++|
00062  M01S00062.comtvld +++|
00063  M01S00063.comtvld +++|#
00064  M01S00064.comtvld +++|*     FILE NAMES FOR SSVAL INTERNAL FILES.
00065  M01S00065.comtvld +++|#
00066  M01S00066.comtvld +++|
00067  M01S00067.comtvld +++|      DEF EXTLFN     #"ZZZEXTN"#;    # EXTRACT FILE *LFN* #
00068  M01S00068.comtvld +++|      DEF FIXLFN     #"ZZZSCR2"#;    # FIXIT FILE *LFN* #
00069  M01S00069.comtvld +++|      DEF PROBLFN    #"ZZZSCR3"#;    # PROBLEM FILE *LFN* #
00070  M01S00070.comtvld +++|      DEF UTTLFN     #"ZZZSCR4"#;    # *UATTACH* FILE *LFN* #
00071  M01S00071.comtvld +++|      DEF ZVALLFN    #"ZZZVALN"#;    # M860 CATALOG FILES #
00072  M01S00072.comtvld +++|
00073  M01S00073.comtvld +++|#
00074  M01S00074.comtvld +++|*     ERROR MESSAGES FOR REPORTING VALIDATION PROBLEMS.
00075  M01S00075.comtvld +++|#
00076  M01S00076.comtvld +++|
00077  M01S00077.comtvld +++|      DEF EASA       #" INVALID ASA           "#;
00078  M01S00078.comtvld +++|      DEF ECONF      #" AU CONFLICT FLAG "#;
00079  M01S00079.comtvld +++|      DEF ECORD      #" FCT/MAP MISMATCH - REMOVE FCT ENTRY."#;
00080  M01S00080.comtvld +++|      DEF ESME       #" SMMAP ERROR FLAG SET "#;
00081  M01S00081.comtvld +++|      DEF EEWPE      #" EXCESS WRITE PARITY ERROR "#;
00082  M01S00082.comtvld +++|      DEF EFORD      #" FCT/MAP MISMATCH - REMOVE MAP ENTRY."#;
00083  M01S00083.comtvld +++|      DEF EFROZ      #" FROZEN CHAIN "#;
00084  M01S00084.comtvld +++|      DEF EILL       #" ILL-FORMED CHAIN "#;
00085  M01S00085.comtvld +++|      DEF EINHB      #" INHIBIT ALLOC FLAG (INFO)"#;
00086  M01S00086.comtvld +++|      DEF EINTC      #" INTERSECTING CHAIN "#;
00087  M01S00087.comtvld +++|      DEF EINTA      #" INTERSECTING AU "#;
00088  M01S00088.comtvld +++|      DEF ELNK       #" INVALID LINK   "#;
00089  M01S00089.comtvld +++|      DEF ELOST      #" LOST CARTRIDGE FLAG SET "#;
00090  M01S00090.comtvld +++|      DEF EMSH       #" ASA NOT HEAD OF CHAIN "#;
00091  M01S00091.comtvld +++|      DEF EMULT      #" MULTIPLE OWNERS "#;
00092  M01S00092.comtvld +++|      DEF ENONE      #" FCT NOT ASSIGNED TO CARTRIDGE "#;
00093  M01S00093.comtvld +++|      DEF ERERR      #" READ ERROR FLAG IN PFC (INFO)"#;
00094  M01S00094.comtvld +++|      DEF ESCAT      #" SCATTERED FILE (INFO) "#;
00095  M01S00095.comtvld +++|      DEF ESOF       #" START OF FRAGMENT "#;
00096  M01S00096.comtvld +++|      DEF ESYS       #" SYSTEM ERROR FLAG IN PFC (INFO)"#;
00097  M01S00097.comtvld +++|
00098  M01S00098.comtvld +++|#
00099  M01S00099.comtvld +++|*     ERROR TEXTS FOR REPORTING PROGRAM PROBLEMS.
00100  M01S00100.comtvld +++|*      - ERROR MESSAGES ARE WRITTEN TO THE REPORT FILE AND THE
00101  M01S00101.comtvld +++|*        DAYFILE BY THE VLERROR ROUTINE.
00102  M01S00102.comtvld +++|*      - DETAIL STATUS (FROM THE *STAT* FIELD) MAY ALSO BE REPORTED.
00103  M01S00103.comtvld +++|*      - PARAMETERS (FROM THE *MPARAM* ARRAY) MAY BE INSERTED
00104  M01S00104.comtvld +++|*        INTO THE ERROR TEXT.
00105  M01S00105.comtvld +++|*      - THE OPTIONS ARE SELECTED BY SETTING THE FIRST TWO
00106  M01S00106.comtvld +++|*        CHARACTERS OF THE ERROR TEXT.
00107  M01S00107.comtvld +++|*        CHAR 1 = S, REPORT DETAIL STATUS.
00108  M01S00108.comtvld +++|*        CHAR 2 = N, NUMBER OF PARAMETERS TO FILL IN TEXT.
00109  M01S00109.comtvld +++|*                 THE PARAMETER LOCATION IS INDICATED BY THE Q
00110  M01S00110.comtvld +++|*                 CHARACTER STRING.
00111  M01S00111.comtvld +++|#
00112  M01S00112.comtvld +++|
00113  M01S00113.comtvld +++|      DEF MABORT     #"   ABORT RUN DUE TO ERRORS "#;
Line S00114 Modification History
M01 (Added by) comtvld
M02 (Updated by) common2
Seq #  *Modification Id* Act 
----------------------------+
00114  M02S00114.common2 ---|      DEF MCATO      #"S  M860 CATALOG OPEN ERROR "#;
Line S00115 Modification History
M01 (Added by) comtvld
M02 (Updated by) common2
Seq #  *Modification Id* Act 
----------------------------+
00115  M02S00115.common2 ---|      DEF MCATR      #"S  M860 CATALOG READ ERROR "#;
00116  M01S00001.common2 +++|      DEF MCATO      #"S  7990 CATALOG OPEN ERROR "#;
00117  M01S00002.common2 +++|      DEF MCATR      #"S  7990 CATALOG READ ERROR "#;
00118  M01S00116.comtvld +++|      DEF MSMPAR     #"   INCORRECT SM PARAMETER "#;
00119  M01S00117.comtvld +++|      DEF MDUPSM     #"   DUPLICATE SM PARAMETER "#;
00120  M01S00118.comtvld +++|      DEF MDUPSB     #"   DUPLICATE SB PARAMETER "#;
00121  M01S00119.comtvld +++|      DEF MFXPAR     #"   INCORRECT FX PARAMETER "#;
00122  M01S00120.comtvld +++|      DEF MLFRF      #"   INCORRECT - L AND RF PARAMETER "#;
00123  M01S00121.comtvld +++|      DEF MMAPO      #"S  SMMAP OPEN ERROR "#;
00124  M01S00122.comtvld +++|      DEF MMAPR      #"   SMMAP READ ERROR "#;
00125  M01S00123.comtvld +++|      DEF MNCONN     #"   CONNECT TO EXEC FAILED "#;
00126  M01S00124.comtvld +++|      DEF MNOFAM     #"   FAMILY NOT FOUND IN SYSTEM "#;
00127  M01S00125.comtvld +++|      DEF MNOFL      #"   REQUIRED FL EXCEEDS JOB MAX "#;
00128  M01S00126.comtvld +++|      DEF MPFCER     #"S  ERROR READING *PFC* "#;
00129  M01S00127.comtvld +++|      DEF MRDFH      #"   RDF FILE ERROR - MISSING HEADER "#;
00130  M01S00128.comtvld +++|      DEF MRDFL      #"   RDF FILE ERROR - BAD RECORD LENGTH "#;
00131  M01S00129.comtvld +++|      DEF MRDFU      #"   RDF FILE ERROR - UNIDENTIFIED DATA "#;
00132  M01S00130.comtvld +++|      DEF MRFAM      #"   INCORRECT - RF AND AM PARAMETER "#;
00133  M01S00131.comtvld +++|      DEF MRFFM      #"   INCORRECT - RF AND FM PARAMETER "#;
00134  M01S00132.comtvld +++|      DEF MRLNRF     #"   INCORRECT - RL AND NO RF PARAMETER "#;
00135  M01S00133.comtvld +++|      DEF MSBPAR     #"   INCORRECT - SB PARAMETER "#;
00136  M01S00134.comtvld +++|      DEF MSTPAR     #"   INCORRECT - ST PARAMETER "#;
00137  M01S00135.comtvld +++|      DEF MSYNTAX    #"   COMMAND SYNTAX ERROR "#;
00138  M01S00136.comtvld +++|      DEF MSYSERR    #" 1 SSVAL ABNORMAL, QQQQQQQ "#;
00139  M01S00137.comtvld +++|      DEF MUCPERR    #"S  UCP CALL ERROR "#;
00140  M01S00138.comtvld +++|
00141  M01S00139.comtvld +++|#
00142  M01S00140.comtvld +++|*     MESSAGE TEXTS FOR PROGRAM MESSAGES.
00143  M01S00141.comtvld +++|*      - SELECTIVELY GOES TO REPORT OR DAYFILE OR B-DISPLAY.
00144  M01S00142.comtvld +++|*      - PARAMETERS ARE SPECIFIED BY THE Q CHARACTER STRING PLACE
00145  M01S00143.comtvld +++|*        HOLDER.
00146  M01S00144.comtvld +++|*      - OPTION CODES ARE THE FIRST 3 CHARACTERS OF THE TEXT -
00147  M01S00145.comtvld +++|*        CHAR 1 = N, DO NOT SEND MESSAGE TO THE DAYFILE.
00148  M01S00146.comtvld +++|*               = B ( TO B-DISPLAY ONLY ).
00149  M01S00147.comtvld +++|*        CHAR 2 = N, DO NOT SEND MESSAGE TO THE REPORT FILE.
00150  M01S00148.comtvld +++|*        CHAR 3 = NUMBER OF PARAMETERS TO FILL IN THE MESSAGE.
00151  M01S00149.comtvld +++|#
00152  M01S00150.comtvld +++|
00153  M01S00151.comtvld +++|      DEF MCLEAR     #"BN      "#;
00154  M01S00152.comtvld +++|      DEF MFSNREL    #"    FREE FILES NOT RELEASED "#;
00155  M01S00153.comtvld +++|      DEF MFSREL     #"    FREE FILES RELEASED "#;
00156  M01S00154.comtvld +++|      DEF MNOFIX     #"    CATALOGS NOT MODIFIED "#;
00157  M01S00155.comtvld +++|      DEF MNSYOT     #" N  SSVAL - MUST BE SYSTEM ORIGIN."#;
Line S00156 Modification History
M01 (Added by) comtvld
M02 (Updated by) common2
Seq #  *Modification Id* Act 
----------------------------+
00158  M02S00156.common2 ---|      DEF MNTFO      #"N 1 RELEASABLE M860 FILES = QQQQQ "#;
00159  M01S00003.common2 +++|      DEF MNTFO      #"N 1 RELEASABLE 7990 FILES = QQQQQ "#;
00160  M01S00157.comtvld +++|      DEF MRDFBF     #"    RDF DATE BEFORE PURGE DATE."#;
00161  M01S00158.comtvld +++|      DEF MRDFDT     #"N 2 RDF FILE BUDT = QQQQQQQQQQ QQQQQQQQQQ "#;
00162  M01S00159.comtvld +++|      DEF MRDFFM     #"N 1 RDF FILE FAMILY = QQQQQQQ "#;
Line S00160 Modification History
M01 (Added by) comtvld
M02 (Updated by) common2
Seq #  *Modification Id* Act 
----------------------------+
00163  M02S00160.common2 ---|      DEF MRSPAC     #"N 1 RELEASABLE M860 AUS = QQQQQQ "#;
00164  M01S00004.common2 +++|      DEF MRSPAC     #"N 1 RELEASABLE 7990 AUS = QQQQQQ "#;
00165  M01S00161.comtvld +++|      DEF MTOTER     #"S 1 TOTAL VALIDATION ERRORS = QQQQ"#;
00166  M01S00001.msea011 +++|      DEF MTPFCER    #"S 1 TOTAL 7990 PFC ERRORS = QQQQ"#;
00167  M01S00162.comtvld +++|      DEF MUPDED     #"    CATALOGS MODIFIED "#;
00168  M01S00163.comtvld +++|      DEF MVALX      #" N2 VALIDATING SB=Q SM=Q "#;
00169  M01S00164.comtvld +++|      DEF MVLABT     #" N  SSVAL ABORTED. "#;
00170  M01S00165.comtvld +++|      DEF MVLDON     #" N  SSVAL COMPLETED. "#;
00171  M01S00166.comtvld +++|      DEF MWAITE     #"BN  WAITING FOR EXEC "#;
00172  M01S00167.comtvld +++|      DEF MWFILE     #"BN1 WAITING FOR FILE QQQQQQQ "#;
00173  M01S00168.comtvld +++|      DEF MFFSET     #"    FREE CARTRIDGE FLAG SET"#;
00174  M01S00001.common1 +++|      DEF MFCREL     #"  1 FILE CHAINS RELEASED = QQQQQ "#;
00175  M01S00002.common1 +++|      DEF MREL       #"BN  RELEASING ORPHAN FILES"#;
00176  M01S00169.comtvld +++|
00177  M01S00170.comtvld +++|#
00178  M01S00171.comtvld +++|*     STATUS LIST FOR REPORTING PROGRAM ERRORS.
00179  M01S00172.comtvld +++|*       - WARNING -
00180  M01S00173.comtvld +++|*       THE ARRAY IN ROUTINE *VLERROR* IS DEPENDENT ON THE ORDER
00181  M01S00174.comtvld +++|*       OF THIS LIST.
00182  M01S00175.comtvld +++|#
00183  M01S00176.comtvld +++|
00184  M01S00177.comtvld +++|      STATUS VE                      # VALIDATE ERROR LIST #
00185  M01S00178.comtvld +++|        NONE,                        # NO ERROR (VALUE 0) #
00186  M01S00179.comtvld +++|        SYNTAX,                      # CONTROL CARD SYNTAX ERROR #
00187  M01S00180.comtvld +++|        SMPAR,                       # SM PARAMETER NOT A-M #
00188  M01S00181.comtvld +++|        FXPAR,                       # FX PARAMETER NOT NUMERIC #
00189  M01S00182.comtvld +++|        SBPAR,                       # SB PARAMETER NOT 0-7 #
00190  M01S00183.comtvld +++|        STPAR,                       # ST PARAMETER NOT NUMERIC #
00191  M01S00184.comtvld +++|        LFRF,                        # ILLEGAL - L = RF #
00192  M01S00185.comtvld +++|        RLNRF,                       # ILLEGAL - RL AND NO RF #
00193  M01S00186.comtvld +++|        RFFM,                        # ILLEGAL - RF AND FM #
00194  M01S00187.comtvld +++|        RFAM,                        # ILLEGAL - RF AND AM #
00195  M01S00188.comtvld +++|        RDFHDR,                      # RDF HEADER RECORD ERROR #
00196  M01S00189.comtvld +++|        RDFLEX,                      # RDF RECORD LENGTH EXCEEDED #
00197  M01S00190.comtvld +++|        RDFUND,                      # RDF UNIDENTIFIED RECORD #
00198  M01S00191.comtvld +++|        CATO,                        # CATALOG OPEN ERROR #
00199  M01S00192.comtvld +++|        CATR,                        # CATALOG READ ERROR #
00200  M01S00193.comtvld +++|        MAPO,                        # MAP OPEN ERROR #
00201  M01S00194.comtvld +++|        MAPR,                        # MAP READ ERROR #
00202  M01S00195.comtvld +++|        NOFL,                        # FL REQUEST EXCEEDS JOB MAX #
00203  M01S00196.comtvld +++|        NCONNECT,                    # CONNECT FAILED #
00204  M01S00197.comtvld +++|        UCPERR,                      # UCP REQ ERROR FROM EXEC #
00205  M01S00198.comtvld +++|        NOFAM,                       # FAMILY NOT IN SYSTEM #
00206  M01S00199.comtvld +++|        PFCERR,                      # ERROR READING *PFC* #
00207  M01S00200.comtvld +++|        DUPCS,                       # DUPLICATE CS PARAMETER #
00208  M01S00201.comtvld +++|        DUPSB,                       # DUPLICATE SB PARAMETER #
00209  M01S00202.comtvld +++|        SYSERR,                      # PROG-SYSTEM ERROR #
00210  M01S00203.comtvld +++|        ABORT,                       # ABORT RUN DUE TO ERRORS #
00211  M01S00204.comtvld +++|        EREND;                       # END OF ERROR LIST #
00212  M01S00205.comtvld +++|
00213  M01S00206.comtvld +++|#
00214  M01S00207.comtvld +++|*     STATUS LIST FOR REPORTING INFORMATIONAL PROGRAM MESSAGES.
00215  M01S00208.comtvld +++|*       - WARNING -
00216  M01S00209.comtvld +++|*       THE ARRAY IN ROUTINE *VLMSG* IS DEPENDENT ON THE ORDER
00217  M01S00210.comtvld +++|*       OF THIS LIST.
00218  M01S00211.comtvld +++|#
00219  M01S00212.comtvld +++|
00220  M01S00213.comtvld +++|      STATUS VM                      # MESSAGE STATUS LIST #
00221  M01S00214.comtvld +++|        CLEARB,                      # CLEAR B-DISPLAY #
00222  M01S00215.comtvld +++|        WAITEX,                      # WAITING FOR EXEC #
00223  M01S00216.comtvld +++|        WAITCAT,                     # WAITING FOR FILE #
00224  M01S00217.comtvld +++|        VLDONE,                      # PROGRAM COMPLETED #
00225  M01S00218.comtvld +++|        TOTERR,                      # TOTAL ERRORS #
00226  M01S00002.msea011 +++|        TPFCER,                      # TOTAL PFC SYSTEM AND DATA ERRORS#
00227  M01S00219.comtvld +++|        VALX,                        # VALIDATING SF, SM #
00228  M01S00220.comtvld +++|        NTFO,                        # NUMBER OF ORPHANS #
00229  M01S00221.comtvld +++|        RDFFM,                       # RDF FAMILY #
00230  M01S00222.comtvld +++|        RDFDT,                       # RDF DATE AND TIME #
00231  M01S00223.comtvld +++|        RSPACE,                      # RELEASABLE SPACE #
00232  M01S00224.comtvld +++|        NOFIX,                       # NO FIX PROCESSING #
00233  M01S00225.comtvld +++|        UPDED,                       # CATALOGS UPDATED #
00234  M01S00226.comtvld +++|        FSNREL,                      # M860 FILES NOT RELEASED #
00235  M01S00227.comtvld +++|        FSREL,                       # M860 FILES RELEASED #
00236  M01S00228.comtvld +++|        RDFBF,                       # RDF DATE BEFORE PURGE DATE #
00237  M01S00229.comtvld +++|        VLABT,                       # *SSVAL* ABORTED #
00238  M01S00230.comtvld +++|        NEEDSYOT,                    # MUST HAVE SYSTEM PRIVILEGES #
00239  M01S00231.comtvld +++|        FFSET,                         # FREE CARTRIDGE FLAG SET #
00240  M01S00003.common1 +++|        FCREL,                       # FILE CHAINS RELEASED #
00241  M01S00004.common1 +++|        REL,                         # RELEASING CATALOG #
00242  M01S00232.comtvld +++|        VMEND;                       # END OF LIST #
00243  M01S00233.comtvld +++|
00244  M01S00234.comtvld +++|#
00245  M01S00235.comtvld +++|*     SUBHEADING TYPES FOR THE REPORT.
00246  M01S00236.comtvld +++|#
00247  M01S00237.comtvld +++|
00248  M01S00238.comtvld +++|      STATUS SHTYP                   # SUBHEADING TYPES #
00249  M01S00239.comtvld +++|        OK,                          # VALIDATION OK #
00250  M01S00240.comtvld +++|        ICT,                         # INTERSECTING CHAIN TABLE #
00251  M01S00241.comtvld +++|        PRPT;                        # VALIDATION PROBLEM REPORT #
00252  M01S00242.comtvld +++|
00253  M01S00243.comtvld +++|
00254  M01S00244.comtvld +++|
00255  M01S00245.comtvld +++|
00256  M01S00246.comtvld +++|                                               CONTROL EJECT;
00257  M01S00247.comtvld +++|      COMMON TVLDCOM;
00258  M01S00248.comtvld +++|
00259  M01S00249.comtvld +++|        BEGIN  # TVLDCOM COMMON BLOCK #
00260  M01S00250.comtvld +++|                                     # $$ #
00261  M01S00251.comtvld +++|        ITEM $$TVLD$$   C(20) = "****** COMTVLD *****";
00262  M01S00252.comtvld +++|                                     # $$ #
00263  M01S00253.comtvld +++|
00264  M01S00254.comtvld +++|#
00265  M01S00255.comtvld +++|*     MISCELLANEOUS ITEMS.
00266  M01S00256.comtvld +++|#
00267  M01S00257.comtvld +++|
00268  M01S00258.comtvld +++|        ITEM SMINDX     I;           # *SM* INDEX CONTROL #
00269  M01S00259.comtvld +++|        ITEM FCTORD     I;           # *FCT* ORDINAL NUMBER #
00270  M01S00260.comtvld +++|        ITEM GROUPX     I;           # GROUP BEING PROCESSED #
00271  M01S00261.comtvld +++|        ITEM GRTX       I;           # GROUP ORDINAL PROCESSED #
00272  M01S00262.comtvld +++|        ITEM SBINDX     I;           # SUBFAMILY INDEX CONTROL #
00273  M01S00263.comtvld +++|        ITEM AUINDX     I;           # AU INDEX CONTROL #
00274  M01S00264.comtvld +++|
00275  M01S00265.comtvld +++|        ITEM CONNECTED  B = FALSE;   # CONNECTED TO EXEC #
00276  M01S00266.comtvld +++|
00277  M01S00267.comtvld +++|        ITEM DEVMASK    I;           # SUBFAMILY(S) DEVICE MASK #
00278  M01S00268.comtvld +++|        ITEM SFMCATDEF  I;           # SFMCAT FILES DEFINED BIT MAP #
00279  M01S00269.comtvld +++|
00280  M01S00270.comtvld +++|        ITEM CSN        C(8);        # *FCT* CARTRIDGE SERIAL NUMBER #
00281  M01S00271.comtvld +++|        ITEM Y          I;           # Y COORDINATE #
00282  M01S00272.comtvld +++|        ITEM Z          I;           # Z COORDINATE #
00283  M01S00273.comtvld +++|
00284  M01S00274.comtvld +++|        ITEM CNTORPHANS I;           # TOTAL TROUBLE-FREE ORPHANS #
00285  M01S00275.comtvld +++|        ITEM CNTPROGERR I;           # TOTAL PROGRAM ERRORS #
00286  M01S00005.common1 +++|        ITEM NFILER      I;          # NUMBER OF FILES RELEASED #
00287  M01S00276.comtvld +++|        ITEM RELEASABLE I;           # M860 SPACE IN ORPHANS #
00288  M01S00277.comtvld +++|        ITEM AUCOUNT    I;           # AU IN CHAIN COUNT #
00289  M01S00278.comtvld +++|        ITEM TOTALERRS  I;           # TOTAL VALIDATION ERRORS #
00290  M01S00003.msea011 +++|        ITEM TPFCERRS   I;           # TOTAL PFC SYSTEM AND DATA ERRORS#
00291  M01S00279.comtvld +++|
00292  M01S00280.comtvld +++|        ITEM RDFDT      I;           # RDF PACKED DATE AND TIME #
00293  M01S00281.comtvld +++|
00294  M01S00282.comtvld +++|        ITEM CFIELD     I;           # CATALOG FIELD TO UPDATE #
00295  M01S00283.comtvld +++|
00296  M01S00284.comtvld +++|        ITEM SSID$VL    I;           # SUBSYSTEM ID FOR UCP *CALLSS* #
00297  M01S00285.comtvld +++|        ITEM STAT       I;           # STATUS OR RETURN CODE #
00298  M01S00286.comtvld +++|        ITEM LFUN    I;             # FUNCTION FOR CINTLK #
00299  M01S00287.comtvld +++|
00300  M01S00288.comtvld +++|
00301  M01S00289.comtvld +++|
00302  M01S00290.comtvld +++|#
00303  M01S00291.comtvld +++|*     CONTROL CARD PARAMETER VALUES.
00304  M01S00292.comtvld +++|#
00305  M01S00293.comtvld +++|
00306  M01S00294.comtvld +++|        ITEM PAR$LF     C(7);        # *LFN* OF REPORT FILE #
00307  M01S00295.comtvld +++|        ITEM PAR$RF     C(7);        # *LFN* OF RDF FILE #
00308  M01S00296.comtvld +++|        ITEM PAR$AM     U;           # ANALYZE SMMAP OPTION #
00309  M01S00297.comtvld +++|        ITEM PAR$SM     U;           # SELECTED SM"S - BIT MAP #
00310  M01S00298.comtvld +++|        ITEM PAR$FM     C(7);        # FAMILY BEING PROCESSED #
00311  M01S00299.comtvld +++|        ITEM PAR$FX     U;           # FIX ERROR THRESHOLD #
00312  M01S00300.comtvld +++|        ITEM PAR$RL     U;           # RELEASE OPTION #
00313  M01S00301.comtvld +++|        ITEM PAR$SB     U;           # SELECTED SUBFAMILIES - BIT MAP #
00314  M01S00302.comtvld +++|        ITEM PAR$ST     U;           # SCATTER THRESHOLD #
00315  M01S00303.comtvld +++|
00316  M01S00304.comtvld +++|
00317  M01S00305.comtvld +++|#
00318  M01S00306.comtvld +++|*     PARAMETERS FOR MESSAGE TEXTS.
00319  M01S00307.comtvld +++|*     (USED TO PASS PARAMETERS TO THE *VLERROR/VLMSG* ROUTINES.)
00320  M01S00308.comtvld +++|#
00321  M01S00309.comtvld +++|
00322  M01S00310.comtvld +++|        ARRAY MPARAM [1:3] S(1);     # MESSAGE PARAMETERS #
00323  M01S00311.comtvld +++|          BEGIN
00324  M01S00312.comtvld +++|          ITEM MP$WD      C(00,00,10);
00325  M01S00313.comtvld +++|          END
00326  M01S00314.comtvld +++|
00327  M01S00315.comtvld +++|#
00328  M01S00316.comtvld +++|*     DEFINITIONS TO MANAGE THE SUB-HEADINGS IN THE REPORT.
00329  M01S00317.comtvld +++|#
00330  M01S00318.comtvld +++|
00331  M01S00319.comtvld +++|        ITEM SCPDATE    C(10);       # SUB-CATALOG PURGE DATE #
00332  M01S00320.comtvld +++|        ITEM SCPTIME    C(10);       # SUB-CATALOG PURGE TIME #
00333  M01S00321.comtvld +++|        ITEM SCRPTED    B;           # SUB-CATALOG REPORTED FLAG #
00334  M01S00322.comtvld +++|        ITEM SCDTLH     B;           # SUB-CATALOG DETAIL FLAG #
00335  M01S00323.comtvld +++|
00336  M01S00324.comtvld +++|
00337  M01S00325.comtvld +++|#
00338  M01S00326.comtvld +++|*     DEFINITIONS FOR ALLOCATING SPACE FOR THE VALIDATION TABLE.
00339  M01S00327.comtvld +++|#
00340  M01S00328.comtvld +++|
00341  M01S00329.comtvld +++|        ARRAY MEMRQST [0:0] S(1);    # MEMORY MACRO PARAMETER #
00342  M01S00330.comtvld +++|          BEGIN
00343  M01S00331.comtvld +++|          ITEM MEM$RQST   U(00,00,60);  # MEMORY REQUEST WORD #
00344  M01S00332.comtvld +++|          ITEM MEM$WDS    U(00,00,30);  # NUMBER OF WORDS #
00345  M01S00333.comtvld +++|          ITEM MEM$C      B(00,59,01);  # COMPLETE FLAG #
00346  M01S00334.comtvld +++|          END
00347  M01S00335.comtvld +++|
00348  M01S00336.comtvld +++|        ITEM MEM$MIN    U;           # SAVE MINIMUM FL FOR REDUCING #
00349  M01S00337.comtvld +++|
00350  M01S00338.comtvld +++|        ITEM MEM$MAX    U;           # SAVE JOB MAX FL FOR CHECKING #
00351  M01S00339.comtvld +++|
00352  M01S00340.comtvld +++|
00353  M01S00341.comtvld +++|
00354  M01S00342.comtvld +++|
00355  M01S00343.comtvld +++|#
00356  M01S00344.comtvld +++|*     COMMUNICATION AREA.
00357  M01S00345.comtvld +++|#
00358  M01S00346.comtvld +++|
00359  M01S00347.comtvld +++|        BASED
00360  M01S00348.comtvld +++|        ARRAY RACOM [0:0] S(1);      # RA COMMUNICATIONS AREA #
00361  M01S00349.comtvld +++|          BEGIN
00362  M01S00350.comtvld +++|          ITEM RA$CORE    U(00,00,60);  # TO ACCESS JOB FL BY ADDRESS #
00363  M01S00351.comtvld +++|          END
00364  M01S00352.comtvld +++|
00365  M01S00353.comtvld +++|#
00366  M01S00354.comtvld +++|*     VLCMARRAY - VALIDATE SMMAP ARRAY.
00367  M01S00355.comtvld +++|*     THIS TABLE IS USED TO VERIFY THAT ALL SMMAP ENTRIES
00368  M01S00356.comtvld +++|*     ASSIGNED TO A SUBFAMILY ARE USED IN CORRESPONDING *FCT*
00369  M01S00357.comtvld +++|*     ENTRIES.  EACH WORD REPRESENTS A *SM* Z COORDINATE (0:15).
00370  M01S00358.comtvld +++|*     BITS WITHIN THE WORD REPRESENT A *SM* Y COORDINATE (0:21).
00371  M01S00359.comtvld +++|*     THE BIT IS SET TO INDICATE THAT A *FCT* ENTRY HAS
00372  M01S00360.comtvld +++|*     REFERENCED A SMMAP Y,Z COORDINATE.
00373  M01S00361.comtvld +++|#
00374  M01S00362.comtvld +++|
00375  M01S00363.comtvld +++|        ARRAY VLCMARRAY [0:15] S(1);  # SMMAP BIT ARRAY #
00376  M01S00364.comtvld +++|          BEGIN
00377  M01S00365.comtvld +++|          ITEM VLCM$Z     U(00,00,60);  # Y BITS IN Z WORD #
00378  M01S00366.comtvld +++|          END
00379  M01S00367.comtvld +++|
00380  M01S00368.comtvld +++|#
00381  M01S00369.comtvld +++|*     ARRAY OF DEFINED MESSAGE TEXTS.
00382  M01S00370.comtvld +++|*
00383  M01S00371.comtvld +++|*     - WARNING -
00384  M01S00372.comtvld +++|*     THE ORDER OF THIS TABLE IS DEPENDENT ON THE STATUS LIST *VM* IN
00385  M01S00373.comtvld +++|*     COMTVLD.
00386  M01S00374.comtvld +++|*
00387  M01S00375.comtvld +++|*     THE TEXTS ARE DEFINED IN COMTVLD.
00388  M01S00376.comtvld +++|#
00389  M01S00377.comtvld +++|
00390  M01S00378.comtvld +++|        ARRAY VMESSAGES [0:VM"VMEND"] S(4);
00391  M01S00379.comtvld +++|          BEGIN
00392  M01S00380.comtvld +++|          ITEM VMESS$CLRB C(00,00,03) = [ MCLEAR ];  # B-DISPLAY #
00393  M01S00381.comtvld +++|          ITEM VMESS$LINE C(00,00,40) = [  ,
00394  M01S00382.comtvld +++|          MWAITE,
00395  M01S00383.comtvld +++|          MWFILE,
00396  M01S00384.comtvld +++|          MVLDON,
00397  M01S00385.comtvld +++|          MTOTER,
00398  M01S00004.msea011 +++|          MTPFCER,
00399  M01S00386.comtvld +++|          MVALX,
00400  M01S00387.comtvld +++|          MNTFO,
00401  M01S00388.comtvld +++|          MRDFFM,
00402  M01S00389.comtvld +++|          MRDFDT,
00403  M01S00390.comtvld +++|          MRSPAC,
00404  M01S00391.comtvld +++|          MNOFIX,
00405  M01S00392.comtvld +++|          MUPDED,
00406  M01S00393.comtvld +++|          MFSNREL,
00407  M01S00394.comtvld +++|          MFSREL,
00408  M01S00395.comtvld +++|          MRDFBF,
00409  M01S00396.comtvld +++|          MVLABT,
00410  M01S00397.comtvld +++|          MNSYOT,
00411  M01S00398.comtvld +++|          MFFSET,
00412  M01S00006.common1 +++|          MFCREL,
00413  M01S00007.common1 +++|          MREL,
00414  M01S00399.comtvld +++|          "   " ];
00415  M01S00400.comtvld +++|          END
00416  M01S00401.comtvld +++|
00417  M01S00402.comtvld +++|        END  # TVLDCOM COMMON BLOCK #
00418  M01S00403.comtvld +++|
00419  M01S00404.comtvld +++|
00420  M01S00405.comtvld +++|      END  # COMTVLD #
00421  M01S00406.comtvld +++|
00422  M01S00407.comtvld +++|                                               CONTROL LIST;
cdc/nos2.source/opl.opl871/common/comtvld.txt · Last modified: by 127.0.0.1