COMTVLX 
COMMON
  
#     COMTVLX - *RDF*, *PFC* EXTRACT AND ZZZVALX FILE DESCRIPTIONS.   # 
                                               CONTROL NOLIST;
                                               CONTROL IFEQ LISTCON,1;
                                               CONTROL LIST;
                                               CONTROL FI;
      BEGIN  # COMTVLX #
  
# 
***   COMTVLX - *RDF*, PFCEXTRACT AND ZZZVALX FILE DESCRIPTIONS.
* 
*     COMTVLX DEFINES THE SYMBOLS, *FET-S* AND *I/O* BUFFERS FOR
*     THE FILES PROCESSED DURING THE PRESET PHASE OF *ASVAL*. 
* 
# 
  
  
      DEF LRDFRB     #64#;           # *RDF* RECORD BUFFER LENGTH # 
      DEF RDFMAXWC   #64#;           # MAX SIZE IN CONTROL WORD # 
  
# 
*     *RDF* RECORD TYPES. 
# 
  
      DEF RDFEOF     #0#;            # END OF FILE #
      DEF RDFHDRREC  #1#;            # HEADER RECORD #
      DEF RDFPFCREC  #2#;            # *PFC* EXTRACT RECORD # 
      DEF RDFCATREC  #3#;            # M860 CATALOG RECORD #
  
  
      COMMON TVLXCOM; 
  
        BEGIN  # TVLXCOM COMMON BLOCK # 
                                                      #$$#
              ITEM $$TVLX$$ C(20) = "****** COMTVLX *****"; 
                                                      #$$#
  
        ITEM RDFHDROK   B;           # FLAG INDICATES HEADER RECORD OK
                                     #
  
# 
*     RELEASE DATA FILE (RDF) - (BUILT BY PFDUMP) CONTAINS A
*       HEADER, *PFC* RECORDS, AND M860 CATALOG RECORDS.  EACH
*       DATA RECORD IS PRECEEDED BY A CONTROL WORD IDENTIFYING
*       THE DATA TYPE AND THE DATA LENGTH.
# 
  
  
        ITEM RDFFADR    U;           # *RDF* FILE *FET* ADDRESS # 
        ITEM RDFBADR    U;           # *RDF* FILE BUFFER ADDRESS #
  
        ARRAY RDFFILE [0:0] S(SFETL);  # *RDF* FILE *FET* # 
          BEGIN 
          ITEM RDFF$FET   U(00,00,60);
          END 
  
        ARRAY RDFBUF [0:0] S(LRDFBUF);  # *RDF* FILE *CIO* BUFFER # 
          BEGIN 
          ITEM RDFF$BUFF  U(00,00,60);
          END 
  
# 
*     *RDF* FILE DATA RECORD AREA.
# 
  
        ARRAY RDFRECORD [0:0] S(LRDFRB);  # *RDF* FILE RECORD # 
          BEGIN 
  
# 
*     *PFC* EXTRACT RECORD. 
# 
  
          ITEM RDFR$PFN   U(00,00,42);  # *PFN* # 
          ITEM RDFR$UI    U(00,42,18);  # USER INDEX #
          ITEM RDFR$SB    U(00,57,03);  # SUBFAMILY # 
          ITEM RDFR$CREA  U(01,24,36);  # CREATION DATE # 
          ITEM RDFR$DMDT  U(02,24,36);  # DATA MODIFICATION DT #
          ITEM RDFR$CMDT  U(03,24,36);  # CONTROL MODIFICATION DT # 
          ITEM RDFR$D     U(04,00,03);  # DISK IMAGE FLAG # 
          ITEM RDFR$UCDT  U(04,24,36);  # UTILITY CONTROL DT #
          ITEM RDFR$ASCF  U(05,00,12);  # ASC FLAGS # 
          ITEM RDFR$FF    U(05,06,01);  # FLAG AFFRE #
          ITEM RDFR$AT    U(05,18,06);  # ALTERNATE TYPE #
          ITEM RDFR$ASA   U(05,24,36);  # ASA # 
        ITEM RDFR$SM    U(05,24,06);  # *SM* ID # 
  
# 
*     HEADER RECORD FIELDS. 
# 
  
          ITEM RDFH$ID    C(00,00,06);  # ID IN HEADER #
          ITEM RDFH$FAM   C(05,00,07);  # FAMILY #
          END 
  
# 
*     *RDF* FILE CONTROL WORD.
# 
  
        ARRAY RDFCTLWORD [0:0] S(1);  # *RDF* FILE CONTROL WORD # 
          BEGIN 
          ITEM RDFC$DN    U(00,00,60);  # DEVICE NUMBER # 
          ITEM RDFC$SF    U(00,09,03);  # SUBFAMILY NUMBER #
          ITEM RDFC$PDT   U(00,12,36);  # PACKED DATE-TIME #
          ITEM RDFC$TIME  U(00,30,18);  # PFDUMP TIME # 
          ITEM RDFC$CTYP  U(00,48,03);  # CONTROL WORD TYPE # 
          ITEM RDFC$WC    U(00,51,09);  # WORD COUNT TO NEXT #
          END 
  
  
# 
*     *PFC* EXTRACT FILES - TO BUILD FILES (ONE PER SUBFAMILY) OF 
*       *PFC* DATA EXTRACTED FROM THE *RDF* FILE OR A *PFC* 
*       CATALOG.  THE *PFC* EXTRACT RECORD IS WRITTEN FROM THE
*       ARRAY *EXTRECORD*.
# 
  
        ITEM PEXTFADR   U;           # *PFC* EXTRACT *FET* ADDRESS #
        ITEM PEXTBADR   U;           # *PFC* EXTRACT BUFFER ADDRESS # 
  
        ARRAY PFCENAME [0:0] S(1);   # *PFC* EXTRACT FILE NAME #
          BEGIN 
          ITEM PFCE$LFN   C(00,00,06) = [EXTLFN]; 
          ITEM PFCE$LFNX  U(00,36,06);  # SUBFAMILY NUMBER IN *LFN* # 
          END 
  
        ARRAY PFCEXTN [0:7] S(SFETL);  # PFCEXTN *FET* #
          BEGIN 
          ITEM PFCE$FET   U(00,00,60);
          END 
  
        ARRAY PFCEBUF [0:7] S(LPFCEBUF);  # PFCEXTN *CIO* BUFFER #
          BEGIN 
          ITEM PFCE$BUF   U(00,00,60);
          END 
  
  
# 
*     ZZZVALX FILE - TO BUILD COPIES OF THE SFMCATS 
*       FROM THE *RDF* FILE.  THERE IS A SEPARATE M860 CATALOG FILE 
*       FOR EACH SUBFAMILY. 
# 
  
        ITEM ZVALFADR   U;           # ZZZVALX FILE *FET* ADDRESS # 
        ITEM ZVALBADR   U;           # ZZZVALX FILE BUFFER ADDRESS #
  
        ARRAY ZZZVALX [0:0] S(SFETL);  # ZZZVALX FILE *FET* # 
          BEGIN 
          ITEM ZZZV$FET   U(00,00,60);
          ITEM ZZZV$LFNC  C(00,00,07);  # *LFN* # 
          ITEM ZZZV$LFNX  U(00,36,06);  # UNIQUE *LFN* CHAR # 
          END 
  
        ARRAY ZZZVBUF [0:0] S(LZZZVBUF);  # ZZZVALX *CIO* BUFFER #
          BEGIN 
          ITEM ZZZV$BUF   U(00,00,60);
          END 
  
        END  # TVLXCOM COMMON BLOCK # 
  
      END  # COMTVLX #
  
                                               CONTROL LIST;
  
