COMTVLD 
COMMON
  
#     COMTVLD - SSVAL DEFINITIONS, GLOBAL ITEMS AND ARRAYS.           # 
  
                                               CONTROL NOLIST;
                                               CONTROL IFEQ LISTCON,1;
                                               CONTROL LIST;
                                               CONTROL FI;
      BEGIN  # COMTVLD #
  
# 
***   COMTVLD - SSVAL DEFINITIONS, GLOBAL ITEMS AND ARRAYS. 
* 
*      COMTVLD DEFINES SYMBOLS, ITEMS AND ARRAYS USED BY
*      THE *SSVAL* ROUTINES.
* 
# 
  
  
# 
*     MISCELLANEOUS *DEF* STATEMENTS. 
# 
  
      DEF VLVER      #"VER 1.0"#;    # VERSION NUMBER # 
  
  
      DEF CCADDR     #O"70"#;        # ADDRESS OF CONTROL CARD #
  
      DEF RCLTIM     #040#;          # SYSTEM RECALL TIME IN MSEC # 
      DEF SEC        (I) #I * 1000 / RCLTIM #;  # COUNTER TO CONTROL
                                                  RECALL #
      DEF WAITEX     #SEC(2) #;      # RECALL TIME WAITING FOR EXEC # 
      DEF WAITPF     #SEC(5) #;      # RECALL TIME WAITING FOR PF # 
      DEF ABRT       #1#;            # REQUEST ABORT #
      DEF NOABT      #0#;            # REQUEST NO ABORT # 
  
  
      DEF COPL       #1#;            # CONTINUE PRINT LINE #
      DEF EOPL       #0#;            # END OF PRINT LINE #
  
      DEF LGET       #0#;            # GET LOCK REQUEST # 
      DEF LREL       #1#;            # RELEASE LOCK REQUEST # 
  
      DEF REQCURRFL  #+0#;           # CURRENT FL PARAMETER VALUE # 
      DEF REQMAXFL   #-1#;           # MAX JOB FL PARAMETER VALUE # 
  
      DEF ZFD        #1000000#;      # FORCE LEADING DECIMAL ZEROS #
      DEF ZFO        #O"1000000"#;   # FORCE LEADING OCTAL ZEROS #
  
  
# 
*     LENGTH OF FILE BUFFERS. 
# 
  
      DEF LRPTBUF    #065#;          # REPORT FILE BUFFER # 
      DEF LRDFBUF    #065#;          # RDF FILE BUFFER #
      DEF LPROBBUF   #065#;          # PROBLEM FILE BUFFER #
      DEF LFIXBUF    #065#;          # FIXIT FILE BUFFER #
      DEF LEXTBUF    #065#;          # EXTRACT FILE BUFFER #
      DEF LPFCEBUF   #065#;          # RDF-PFC EXTRACT FILE BUFFER #
      DEF LZZZVBUF   #065#;          # RDF-M860 CATALOG FILE BUFFER # 
  
  
# 
*     FILE NAMES FOR SSVAL INTERNAL FILES.
# 
  
      DEF EXTLFN     #"ZZZEXTN"#;    # EXTRACT FILE *LFN* # 
      DEF FIXLFN     #"ZZZSCR2"#;    # FIXIT FILE *LFN* # 
      DEF PROBLFN    #"ZZZSCR3"#;    # PROBLEM FILE *LFN* # 
      DEF UTTLFN     #"ZZZSCR4"#;    # *UATTACH* FILE *LFN* # 
      DEF ZVALLFN    #"ZZZVALN"#;    # M860 CATALOG FILES # 
  
# 
*     ERROR MESSAGES FOR REPORTING VALIDATION PROBLEMS. 
# 
  
      DEF EASA       #" INVALID ASA           "#; 
      DEF ECONF      #" AU CONFLICT FLAG "#;
      DEF ECORD      #" FCT/MAP MISMATCH - REMOVE FCT ENTRY."#; 
      DEF ESME       #" SMMAP ERROR FLAG SET "#;
      DEF EEWPE      #" EXCESS WRITE PARITY ERROR "#; 
      DEF EFORD      #" FCT/MAP MISMATCH - REMOVE MAP ENTRY."#; 
      DEF EFROZ      #" FROZEN CHAIN "#;
      DEF EILL       #" ILL-FORMED CHAIN "#;
      DEF EINHB      #" INHIBIT ALLOC FLAG (INFO)"#;
      DEF EINTC      #" INTERSECTING CHAIN "#;
      DEF EINTA      #" INTERSECTING AU "#; 
      DEF ELNK       #" INVALID LINK   "#;
      DEF ELOST      #" LOST CARTRIDGE FLAG SET "#; 
      DEF EMSH       #" ASA NOT HEAD OF CHAIN "#; 
      DEF EMULT      #" MULTIPLE OWNERS "#; 
      DEF ENONE      #" FCT NOT ASSIGNED TO CARTRIDGE "#; 
      DEF ERERR      #" READ ERROR FLAG IN PFC (INFO)"#;
      DEF ESCAT      #" SCATTERED FILE (INFO) "#; 
      DEF ESOF       #" START OF FRAGMENT "#; 
      DEF ESYS       #" SYSTEM ERROR FLAG IN PFC (INFO)"#;
  
# 
*     ERROR TEXTS FOR REPORTING PROGRAM PROBLEMS. 
*      - ERROR MESSAGES ARE WRITTEN TO THE REPORT FILE AND THE
*        DAYFILE BY THE VLERROR ROUTINE.
*      - DETAIL STATUS (FROM THE *STAT* FIELD) MAY ALSO BE REPORTED.
*      - PARAMETERS (FROM THE *MPARAM* ARRAY) MAY BE INSERTED 
*        INTO THE ERROR TEXT. 
*      - THE OPTIONS ARE SELECTED BY SETTING THE FIRST TWO
*        CHARACTERS OF THE ERROR TEXT.
*        CHAR 1 = S, REPORT DETAIL STATUS.
*        CHAR 2 = N, NUMBER OF PARAMETERS TO FILL IN TEXT.
*                 THE PARAMETER LOCATION IS INDICATED BY THE Q
*                 CHARACTER STRING. 
# 
  
      DEF MABORT     #"   ABORT RUN DUE TO ERRORS "#; 
      DEF MCATO      #"S  7990 CATALOG OPEN ERROR "#; 
      DEF MCATR      #"S  7990 CATALOG READ ERROR "#; 
      DEF MSMPAR     #"   INCORRECT SM PARAMETER "#;
      DEF MDUPSM     #"   DUPLICATE SM PARAMETER "#;
      DEF MDUPSB     #"   DUPLICATE SB PARAMETER "#;
      DEF MFXPAR     #"   INCORRECT FX PARAMETER "#;
      DEF MLFRF      #"   INCORRECT - L AND RF PARAMETER "#;
      DEF MMAPO      #"S  SMMAP OPEN ERROR "#;
      DEF MMAPR      #"   SMMAP READ ERROR "#;
      DEF MNCONN     #"   CONNECT TO EXEC FAILED "#;
      DEF MNOFAM     #"   FAMILY NOT FOUND IN SYSTEM "#;
      DEF MNOFL      #"   REQUIRED FL EXCEEDS JOB MAX "#; 
      DEF MPFCER     #"S  ERROR READING *PFC* "#; 
      DEF MRDFH      #"   RDF FILE ERROR - MISSING HEADER "#; 
      DEF MRDFL      #"   RDF FILE ERROR - BAD RECORD LENGTH "#;
      DEF MRDFU      #"   RDF FILE ERROR - UNIDENTIFIED DATA "#;
      DEF MRFAM      #"   INCORRECT - RF AND AM PARAMETER "#; 
      DEF MRFFM      #"   INCORRECT - RF AND FM PARAMETER "#; 
      DEF MRLNRF     #"   INCORRECT - RL AND NO RF PARAMETER "#;
      DEF MSBPAR     #"   INCORRECT - SB PARAMETER "#;
      DEF MSTPAR     #"   INCORRECT - ST PARAMETER "#;
      DEF MSYNTAX    #"   COMMAND SYNTAX ERROR "#;
      DEF MSYSERR    #" 1 SSVAL ABNORMAL, QQQQQQQ "#; 
      DEF MUCPERR    #"S  UCP CALL ERROR "#;
  
# 
*     MESSAGE TEXTS FOR PROGRAM MESSAGES. 
*      - SELECTIVELY GOES TO REPORT OR DAYFILE OR B-DISPLAY.
*      - PARAMETERS ARE SPECIFIED BY THE Q CHARACTER STRING PLACE 
*        HOLDER.
*      - OPTION CODES ARE THE FIRST 3 CHARACTERS OF THE TEXT -
*        CHAR 1 = N, DO NOT SEND MESSAGE TO THE DAYFILE.
*               = B ( TO B-DISPLAY ONLY ).
*        CHAR 2 = N, DO NOT SEND MESSAGE TO THE REPORT FILE.
*        CHAR 3 = NUMBER OF PARAMETERS TO FILL IN THE MESSAGE.
# 
  
      DEF MCLEAR     #"BN      "#;
      DEF MFSNREL    #"    FREE FILES NOT RELEASED "#;
      DEF MFSREL     #"    FREE FILES RELEASED "#;
      DEF MNOFIX     #"    CATALOGS NOT MODIFIED "#;
      DEF MNSYOT     #" N  SSVAL - MUST BE SYSTEM ORIGIN."#;
      DEF MNTFO      #"N 1 RELEASABLE 7990 FILES = QQQQQ "#;
      DEF MRDFBF     #"    RDF DATE BEFORE PURGE DATE."#; 
      DEF MRDFDT     #"N 2 RDF FILE BUDT = QQQQQQQQQQ QQQQQQQQQQ "#;
      DEF MRDFFM     #"N 1 RDF FILE FAMILY = QQQQQQQ "#;
      DEF MRSPAC     #"N 1 RELEASABLE 7990 AUS = QQQQQQ "#; 
      DEF MTOTER     #"S 1 TOTAL VALIDATION ERRORS = QQQQ"#;
      DEF MTPFCER    #"S 1 TOTAL 7990 PFC ERRORS = QQQQ"#;
      DEF MUPDED     #"    CATALOGS MODIFIED "#;
      DEF MVALX      #" N2 VALIDATING SB=Q SM=Q "#; 
      DEF MVLABT     #" N  SSVAL ABORTED. "#; 
      DEF MVLDON     #" N  SSVAL COMPLETED. "#; 
      DEF MWAITE     #"BN  WAITING FOR EXEC "#; 
      DEF MWFILE     #"BN1 WAITING FOR FILE QQQQQQQ "#; 
      DEF MFFSET     #"    FREE CARTRIDGE FLAG SET"#; 
      DEF MFCREL     #"  1 FILE CHAINS RELEASED = QQQQQ "#; 
      DEF MREL       #"BN  RELEASING ORPHAN FILES"#;
  
# 
*     STATUS LIST FOR REPORTING PROGRAM ERRORS. 
*       - WARNING - 
*       THE ARRAY IN ROUTINE *VLERROR* IS DEPENDENT ON THE ORDER
*       OF THIS LIST. 
# 
  
      STATUS VE                      # VALIDATE ERROR LIST #
        NONE,                        # NO ERROR (VALUE 0) # 
        SYNTAX,                      # CONTROL CARD SYNTAX ERROR #
        SMPAR,                       # SM PARAMETER NOT A-M # 
        FXPAR,                       # FX PARAMETER NOT NUMERIC # 
        SBPAR,                       # SB PARAMETER NOT 0-7 # 
        STPAR,                       # ST PARAMETER NOT NUMERIC # 
        LFRF,                        # ILLEGAL - L = RF # 
        RLNRF,                       # ILLEGAL - RL AND NO RF # 
        RFFM,                        # ILLEGAL - RF AND FM #
        RFAM,                        # ILLEGAL - RF AND AM #
        RDFHDR,                      # RDF HEADER RECORD ERROR #
        RDFLEX,                      # RDF RECORD LENGTH EXCEEDED # 
        RDFUND,                      # RDF UNIDENTIFIED RECORD #
        CATO,                        # CATALOG OPEN ERROR # 
        CATR,                        # CATALOG READ ERROR # 
        MAPO,                        # MAP OPEN ERROR # 
        MAPR,                        # MAP READ ERROR # 
        NOFL,                        # FL REQUEST EXCEEDS JOB MAX # 
        NCONNECT,                    # CONNECT FAILED # 
        UCPERR,                      # UCP REQ ERROR FROM EXEC #
        NOFAM,                       # FAMILY NOT IN SYSTEM # 
        PFCERR,                      # ERROR READING *PFC* #
        DUPCS,                       # DUPLICATE CS PARAMETER # 
        DUPSB,                       # DUPLICATE SB PARAMETER # 
        SYSERR,                      # PROG-SYSTEM ERROR #
        ABORT,                       # ABORT RUN DUE TO ERRORS #
        EREND;                       # END OF ERROR LIST #
  
# 
*     STATUS LIST FOR REPORTING INFORMATIONAL PROGRAM MESSAGES. 
*       - WARNING - 
*       THE ARRAY IN ROUTINE *VLMSG* IS DEPENDENT ON THE ORDER
*       OF THIS LIST. 
# 
  
      STATUS VM                      # MESSAGE STATUS LIST #
        CLEARB,                      # CLEAR B-DISPLAY #
        WAITEX,                      # WAITING FOR EXEC # 
        WAITCAT,                     # WAITING FOR FILE # 
        VLDONE,                      # PROGRAM COMPLETED #
        TOTERR,                      # TOTAL ERRORS # 
        TPFCER,                      # TOTAL PFC SYSTEM AND DATA ERRORS#
        VALX,                        # VALIDATING SF, SM #
        NTFO,                        # NUMBER OF ORPHANS #
        RDFFM,                       # RDF FAMILY # 
        RDFDT,                       # RDF DATE AND TIME #
        RSPACE,                      # RELEASABLE SPACE # 
        NOFIX,                       # NO FIX PROCESSING #
        UPDED,                       # CATALOGS UPDATED # 
        FSNREL,                      # M860 FILES NOT RELEASED #
        FSREL,                       # M860 FILES RELEASED #
        RDFBF,                       # RDF DATE BEFORE PURGE DATE # 
        VLABT,                       # *SSVAL* ABORTED #
        NEEDSYOT,                    # MUST HAVE SYSTEM PRIVILEGES #
        FFSET,                         # FREE CARTRIDGE FLAG SET #
        FCREL,                       # FILE CHAINS RELEASED # 
        REL,                         # RELEASING CATALOG #
        VMEND;                       # END OF LIST #
  
# 
*     SUBHEADING TYPES FOR THE REPORT.
# 
  
      STATUS SHTYP                   # SUBHEADING TYPES # 
        OK,                          # VALIDATION OK #
        ICT,                         # INTERSECTING CHAIN TABLE # 
        PRPT;                        # VALIDATION PROBLEM REPORT #
  
  
  
  
                                               CONTROL EJECT; 
      COMMON TVLDCOM; 
  
        BEGIN  # TVLDCOM COMMON BLOCK # 
                                     # $$ # 
        ITEM $$TVLD$$   C(20) = "****** COMTVLD *****"; 
                                     # $$ # 
  
# 
*     MISCELLANEOUS ITEMS.
# 
  
        ITEM SMINDX     I;           # *SM* INDEX CONTROL # 
        ITEM FCTORD     I;           # *FCT* ORDINAL NUMBER # 
        ITEM GROUPX     I;           # GROUP BEING PROCESSED #
        ITEM GRTX       I;           # GROUP ORDINAL PROCESSED #
        ITEM SBINDX     I;           # SUBFAMILY INDEX CONTROL #
        ITEM AUINDX     I;           # AU INDEX CONTROL # 
  
        ITEM CONNECTED  B = FALSE;   # CONNECTED TO EXEC #
  
        ITEM DEVMASK    I;           # SUBFAMILY(S) DEVICE MASK # 
        ITEM SFMCATDEF  I;           # SFMCAT FILES DEFINED BIT MAP # 
  
        ITEM CSN        C(8);        # *FCT* CARTRIDGE SERIAL NUMBER #
        ITEM Y          I;           # Y COORDINATE # 
        ITEM Z          I;           # Z COORDINATE # 
  
        ITEM CNTORPHANS I;           # TOTAL TROUBLE-FREE ORPHANS # 
        ITEM CNTPROGERR I;           # TOTAL PROGRAM ERRORS # 
        ITEM NFILER      I;          # NUMBER OF FILES RELEASED # 
        ITEM RELEASABLE I;           # M860 SPACE IN ORPHANS #
        ITEM AUCOUNT    I;           # AU IN CHAIN COUNT #
        ITEM TOTALERRS  I;           # TOTAL VALIDATION ERRORS #
        ITEM TPFCERRS   I;           # TOTAL PFC SYSTEM AND DATA ERRORS#
  
        ITEM RDFDT      I;           # RDF PACKED DATE AND TIME # 
  
        ITEM CFIELD     I;           # CATALOG FIELD TO UPDATE #
  
        ITEM SSID$VL    I;           # SUBSYSTEM ID FOR UCP *CALLSS* #
        ITEM STAT       I;           # STATUS OR RETURN CODE #
        ITEM LFUN    I;             # FUNCTION FOR CINTLK # 
  
  
  
# 
*     CONTROL CARD PARAMETER VALUES.
# 
  
        ITEM PAR$LF     C(7);        # *LFN* OF REPORT FILE # 
        ITEM PAR$RF     C(7);        # *LFN* OF RDF FILE #
        ITEM PAR$AM     U;           # ANALYZE SMMAP OPTION # 
        ITEM PAR$SM     U;           # SELECTED SM"S - BIT MAP #
        ITEM PAR$FM     C(7);        # FAMILY BEING PROCESSED # 
        ITEM PAR$FX     U;           # FIX ERROR THRESHOLD #
        ITEM PAR$RL     U;           # RELEASE OPTION # 
        ITEM PAR$SB     U;           # SELECTED SUBFAMILIES - BIT MAP # 
        ITEM PAR$ST     U;           # SCATTER THRESHOLD #
  
  
# 
*     PARAMETERS FOR MESSAGE TEXTS. 
*     (USED TO PASS PARAMETERS TO THE *VLERROR/VLMSG* ROUTINES.)
# 
  
        ARRAY MPARAM [1:3] S(1);     # MESSAGE PARAMETERS # 
          BEGIN 
          ITEM MP$WD      C(00,00,10);
          END 
  
# 
*     DEFINITIONS TO MANAGE THE SUB-HEADINGS IN THE REPORT. 
# 
  
        ITEM SCPDATE    C(10);       # SUB-CATALOG PURGE DATE # 
        ITEM SCPTIME    C(10);       # SUB-CATALOG PURGE TIME # 
        ITEM SCRPTED    B;           # SUB-CATALOG REPORTED FLAG #
        ITEM SCDTLH     B;           # SUB-CATALOG DETAIL FLAG #
  
  
# 
*     DEFINITIONS FOR ALLOCATING SPACE FOR THE VALIDATION TABLE.
# 
  
        ARRAY MEMRQST [0:0] S(1);    # MEMORY MACRO PARAMETER # 
          BEGIN 
          ITEM MEM$RQST   U(00,00,60);  # MEMORY REQUEST WORD # 
          ITEM MEM$WDS    U(00,00,30);  # NUMBER OF WORDS # 
          ITEM MEM$C      B(00,59,01);  # COMPLETE FLAG # 
          END 
  
        ITEM MEM$MIN    U;           # SAVE MINIMUM FL FOR REDUCING # 
  
        ITEM MEM$MAX    U;           # SAVE JOB MAX FL FOR CHECKING # 
  
  
  
  
# 
*     COMMUNICATION AREA. 
# 
  
        BASED 
        ARRAY RACOM [0:0] S(1);      # RA COMMUNICATIONS AREA # 
          BEGIN 
          ITEM RA$CORE    U(00,00,60);  # TO ACCESS JOB FL BY ADDRESS # 
          END 
  
# 
*     VLCMARRAY - VALIDATE SMMAP ARRAY. 
*     THIS TABLE IS USED TO VERIFY THAT ALL SMMAP ENTRIES 
*     ASSIGNED TO A SUBFAMILY ARE USED IN CORRESPONDING *FCT* 
*     ENTRIES.  EACH WORD REPRESENTS A *SM* Z COORDINATE (0:15).
*     BITS WITHIN THE WORD REPRESENT A *SM* Y COORDINATE (0:21).
*     THE BIT IS SET TO INDICATE THAT A *FCT* ENTRY HAS 
*     REFERENCED A SMMAP Y,Z COORDINATE.
# 
  
        ARRAY VLCMARRAY [0:15] S(1);  # SMMAP BIT ARRAY # 
          BEGIN 
          ITEM VLCM$Z     U(00,00,60);  # Y BITS IN Z WORD #
          END 
  
# 
*     ARRAY OF DEFINED MESSAGE TEXTS. 
* 
*     - WARNING - 
*     THE ORDER OF THIS TABLE IS DEPENDENT ON THE STATUS LIST *VM* IN 
*     COMTVLD.
* 
*     THE TEXTS ARE DEFINED IN COMTVLD. 
# 
  
        ARRAY VMESSAGES [0:VM"VMEND"] S(4); 
          BEGIN 
          ITEM VMESS$CLRB C(00,00,03) = [ MCLEAR ];  # B-DISPLAY #
          ITEM VMESS$LINE C(00,00,40) = [  ,
          MWAITE, 
          MWFILE, 
          MVLDON, 
          MTOTER, 
          MTPFCER,
          MVALX,
          MNTFO,
          MRDFFM, 
          MRDFDT, 
          MRSPAC, 
          MNOFIX, 
          MUPDED, 
          MFSNREL,
          MFSREL, 
          MRDFBF, 
          MVLABT, 
          MNSYOT, 
          MFFSET, 
          MFCREL, 
          MREL, 
          "   " ];
          END 
  
        END  # TVLDCOM COMMON BLOCK # 
  
  
      END  # COMTVLD #
  
                                               CONTROL LIST;
