COMTVLF 
COMMON
  
#     COMTVLF - EXTRACT, FIXIT, PROBLEM AND REPORT FILE DESCRIPTIONS. # 
                                               CONTROL NOLIST;
                                               CONTROL IFEQ LISTCON,1;
                                               CONTROL LIST;
                                               CONTROL FI;
      BEGIN  # COMTVLF #
  
# 
***   COMTVLF - EXTRACT, FIXIT, PROBLEM AND REPORT FILES. 
* 
*     COMTVLF DEFINES THE SYMBOLS, *FET-S*, AND *I/O* BUFFERS 
*     FOR THE SCRATCH FILES USED IN THE *SSVAL* ROUTINES. THE 
*     FILES ARE - 
*      - THE EXTRACT FILE WHOSE DESCRIPTIONS ARE USED TO READ AND 
*        PROCESS THE *PFC* EXTRACT FILES CREATED DURING THE PRESET
*       PHASE OF SSVAL. 
*      - THE FIXIT FILE WHOSE DESCRIPTIONS ARE USED TO FIRST WRITE
*        AND THEN READ AND PROCESS RECORDS WHOSE DATA IDENTIFIES
*        THE TYPE OF CATALOG FIXING TO BE DONE. 
*      - THE PROBLEM FILE WHOSE DESCRIPTIONS ARE USED TO WRITE AND
*        READ RECORDS WHOSE DATA IDENTIFIES ERRORS THAT WERE DETECTED 
*        DURING VALIDATION. 
*      - THE REPORT FILE WHICH CONTAINS ALL LINES ISSUED TO THE 
*        REPORT FORMATTER ROUTINES ( ONLY THE *FET* IS DESCRIBED
*        HERE, THE BUFFER AND RECORD AREAS ARE OWNED BY THE REPORT
*        FORMATTER).
* 
* 
# 
  
  
# 
*     RECORD TYPES FOR THE PROBLEM AND FIXIT FILES. 
# 
  
      STATUS REC                     # RECORD TYPES # 
        TFORPH,                      # TROUBLE FREE ORPHAN #
        FCT,                         # *FCT* PTS TO WRONG *SM* #
        SM,                          # *SM* PTS TO WRONG *FCT* #
        ASA,                         # ASA OUT OF RANGE # 
        OTHR,                        # OTHER *PFC* ERROR #
        BADORPH,                     # CHAIN WITH PROBLEMS #
        FRAG,                        # FRAGMENT # 
        BADHOLE,                     # PROBLEM ON UNALLOCATED # 
        FCF,                         # REMOVE FILE FROM CARTRIDGE # 
        REND;                        # END OF RECORD TYPES #
  
# 
*     RECORD LENGTHS. 
# 
  
      DEF RLEXTR     #6#;            # EXTRACT RECORD # 
      DEF RLPROB     #9#;            # PROBLEM RECORD # 
      DEF RLFIX      #9#;            # FIXIT RECORD # 
      DEF RELLFN #"RELCOM"#;         # NAME OF RELEASE FILE # 
  
  
  
  
      COMMON TVLFCOM; 
  
        BEGIN  # TVLFCOM COMMON BLOCK # 
                                     # $$ # 
        ITEM $$TVLF$$   C(20) = "****** COMTVLF *****"; 
                                     # $$ # 
  
# 
*     *PFC* EXTRACT FILES - CONTAIN EXTRACTS FROM THE LIVE
*       *PFC* OR FROM THE RDF FILE.  THERE IS A SEPARATE
*       FILE FOR EACH SUBFAMILY.  THE 7TH CHARACTER OF THE
*       *LFN* IS THE DISPLAY CODE NUMBER FOR THE SUBFAMILY. 
# 
  
        ITEM EXTFADR    U;           # EXTRACT FILE *FET* ADDRESS # 
        ITEM EXTBADR    U;           # EXTRACT FILE BUFFER ADDRESS #
  
        ARRAY EXTRACTFIL [0:0] S(SFETL);  # *PFC* EXTRACT FILE *FET* #
          BEGIN 
          ITEM EXTR$FET   U(00,00,60);
          END 
  
        ARRAY EXTRACBUF [0:0] S(LEXTBUF);  # *PFC* EXTRACT BUFFER # 
          BEGIN 
          ITEM EXTR$BUF   U(00,00,60);
          END 
  
# 
*     THE EXTRACT RECORD DESCRIPTION IS ALSO USED FOR THE 
*     PROBLEM FILE AND FIXIT FILE RECORD DESCRIPTIONS.
# 
  
        ARRAY EXTRECORD [0:0] S(9);  # EXTRACT RECORD DESCRIPTION # 
          BEGIN 
          ITEM EXTR$FCT   U(00,06,12);  # *FCT* ORDINAL # 
          ITEM EXTR$PFID  U(00,27,33);  # ADDRESS OF *PFC* ENTRY #
          ITEM EXTR$PEO   U(00,27,03);  # *PFC* ORDINAL IN SECTOR # 
          ITEM EXTR$DN    U(00,30,06);  # DEVICE NUMBER # 
          ITEM EXTR$TRK   U(00,36,12);  # *PFC* TRACK # 
          ITEM EXTR$SEC   U(00,48,12);  # *PFC* SECTOR #
          ITEM EXTR$DA    B(00,18,01);  # DIRECT ACCESS BIT # 
          ITEM EXTR$FLG   U(01,00,12);  # ASC FLAGS # 
          ITEM EXTR$FF    B(01,05,01);  # *PFC* AFFRE FLAG #
          ITEM EXTR$DERR  B(01,09,01);  # DATA ERROR #
          ITEM EXTR$SYS   B(01,10,01);  # SYSTEM ERROR #
          ITEM EXTR$D     U(01,12,03);  # DISK IMAGE FLAG # 
          ITEM EXTR$ATASA U(01,18,42);  # ALTERNATE TYPE AND ADDRESS #
          ITEM EXTR$ASA   U(01,24,36);  # ALTERNATE STORAGE ADDRESS # 
          ITEM EXTR$AT    U(01,18,06);  # ALTERNATE STORAGE TYPE #
          ITEM EXTR$SM    U(01,24,06);  # STORAGE MODULE #
          ITEM EXTR$GP    U(01,30,08);  # GROUP # 
          ITEM EXTR$GPT   U(01,38,04);  # GROUP ORDINAL # 
          ITEM EXTR$AU    U(01,42,12);  # ALLOCATION UNIT # 
          ITEM EXTR$FM    U(01,54,06);  # FUTURE USE #
          ITEM EXTR$PFN   U(02,00,42);  # PERMANENT FILE NAME # 
          ITEM EXTR$PFNC  C(02,00,07);  # CHARACTER *PFN* # 
          ITEM EXTR$UI    U(02,42,18);  # USER INDEX #
          ITEM EXTR$SB    U(02,57,03);  # SUBFAMILY # 
          ITEM EXTR$CREA  U(04,24,36);  # CREATION DATE # 
          ITEM EXTR$BKDT  U(05,24,36);  # BACKUP DATE-TIME #
          ITEM EXTR$BKDA  U(05,24,18);  # BACKUP DATE # 
          ITEM EXTR$BKTI  U(05,42,18);  # BACKUP TIME # 
  
  
# 
*     FIELDS ADDED FOR PROBLEM FILE RECORD. 
# 
  
          ITEM PROB$RT    U(00,00,06);  # RECORD TYPE # 
          ITEM PROB$Y     U(05,00,06);  # *SM* Y COORDINATE # 
          ITEM PROB$Z     U(05,06,06);  # *SM* Z COORDINATE # 
          ITEM PROB$CSN   U(05,12,48);  # CARTIDGE SERIAL NUMBER #
          ITEM PROB$MAPEN C(06,00,30);  # 3 WORD MAP ENTRY #
          ITEM PROB$SM0   U(06,00,60);  # SMMAP ENTRY WD 1 #
          ITEM PROB$SM1   U(07,00,60);  # SMMAP ENTRY WD 2 #
          ITEM PROB$SM2   U(08,00,60);  # SMMAP ENTRY WD 3 #
          ITEM PROB$CM    C(08,00,02);  # CARTRIDGE MANUFACTURER #
  
# 
*     FIELDS ADDED FOR FIXIT FILE RECORD. 
# 
  
          ITEM FIX$RT     U(00,00,06);  # RECORD TYPE # 
          ITEM FIX$VT     U(03,00,60);  # *VT* ENTRY #
  
          END 
  
  
# 
*     FIXIT FILE - AN ENTRY IS ADDED TO THIS FILE 
*       IDENTIFYING ALL CATALOG REPAIRS AND M860 SPACE
*       TO RELEASE.  RECORD TYPES ARE ANY OF THOSE IN THE STATUS LIST 
*       "REC".
*       THE FIXIT FILE RECORD IS READ AND WRITTEN FROM THE
*       ARRAY *EXTRECORD*.
# 
  
        ITEM FIXFADR    U;           # FIXIT FILE *FET* ADDRESS # 
        ITEM FIXBADR    U;           # FIXIT FILE BUFFER ADDRESS #
  
        ARRAY FIXITFILE [0:0] S(SFETL);  # FIXIT FILE *FET* # 
          BEGIN 
          ITEM FIXI$FET   U(00,00,60);
          END 
  
        ARRAY FIXITBUF [0:0] S(LFIXBUF);  # FIXIT *CIO* BUFFER #
          BEGIN 
          ITEM FIXI$BUF   U(00,00,60);
          END 
  
  
  
# 
*     PROBLEM FILE - AN ENTRY IS ADDED TO THIS FILE FOR 
*       EVERY PROBLEM DETECTED DURING THE SUBFAMILY VALIDATION. 
*       RECORD TYPES WRITTEN TO THIS FILE ARE REC'FCT' THROUGH
*       REC'OTHR' (FROM STATUS LIST *REC*). 
*       THE PROBLEM FILE RECORD IS READ AND WRITTEN FROM THE
*       ARRAY *EXTRECORD*.
# 
  
        ITEM PROBFADR   U;           # PROBLEM FILE *FET* ADDRESS # 
        ITEM PROBBADR   U;           # PROBLEM FILE BUFFER ADDRESS #
  
        ARRAY PROBFILE [0:0] S(SFETL);  # PROBLEM FILE *FET* #
          BEGIN 
          ITEM PROB$FET   U(00,00,60);
          END 
  
        ARRAY PROBBUF [0:0] S(LPROBBUF);  # PROBLEM *CIO* BUFFER #
          BEGIN 
          ITEM PROB$BUF   U(00,00,60);
          END 
  
  
  
        ITEM RELFADR     U;          # COMMUNICATION *FET* ADDRESS #
        ITEM RELBADR     U;          # COMMUNCIATION BUFFER ADDRESS # 
        ITEM RELNAME  C(7);          # COMMUNICATION FILE NAME #
  
# 
*       RELCOM - COMMUNICATION FILE BETWEEN *SSVAL* AND *EXEC* WHICH
*       SPECIFIES FILES WHOSE *SFMCAT* SPACE IS TO BE RELEASED. 
# 
  
        ARRAY RELCFILE[0:0] S(SFETL); # RELCOM FILE *FET* # 
          BEGIN 
          ITEM RELC$FET  U(00,00,60); 
          END 
  
        ARRAY RELCBUF [0:0] S(LFIXBUF); # RELCOM *CIO* BUFFER # 
          BEGIN 
          ITEM RELC$BUF  U(00,00,60); 
          END 
  
  
  
  
# 
*     REPORT FILE - THE REPORT FILE IS WRITTEN VIA THE REPORT 
*                   FORMATTER ROUTINES. 
# 
  
        ITEM RPTFADR    I;           # REPORT FILE *FET* ADDRESS #
  
        ARRAY RPTFILE [0:0] S(SFETL);  # REPORT FILE *FET* #
          BEGIN 
          ITEM RPTF$FET   U(00,00,60);
          END 
  
        END  # TVLFCOM COMMON BLOCK # 
  
      END  # COMTVLF #
  
                                               CONTROL LIST;
