COMTVLM 
COMMON
  
#     COMTVLM - MSF CATALOG AND MAP ACCESS AREAS.                     # 
                                               CONTROL NOLIST;
                                               CONTROL IFEQ LISTCON,1;
                                               CONTROL LIST;
                                               CONTROL FI;
      BEGIN  # COMTVLM #
  
# 
***   COMTVLM - M860 CATALOG AND MAP ACCESS AREAS.
* 
*     COMTVLM DEFINES THE *LFN*, *PFN* AND BUFFERS REQUIRED FOR 
*     THE SFMCAT AND SMMAP ACCESS ROUTINES. 
* 
# 
  
  
  
      COMMON TVLMCOM; 
  
        BEGIN  # TVLMCOM COMMON BLOCK # 
                                                      #$$#
              ITEM $$TVLM$$ C(20) = "****** COMTVLM *****"; 
                                                      #$$#
  
# 
*     NAME OF THE M860 CATALOG FILE.
# 
  
        ARRAY VLCTLFN [0:0] S(1); 
          BEGIN 
          ITEM VLCT$LFN   C(00,00,07);
          ITEM VLCT$NAME  C(00,00,06) = [ZVALLFN];  # *LFN* # 
          ITEM VLCT$LFNX  U(00,36,06);  # APPEND SUBFAMILY #
          END 
  
# 
*     *PFN* OF THE LIVE M860 CATALOG. 
# 
  
        ARRAY VLPFN [0:0] S(1); 
          BEGIN 
          ITEM VLPF$NAME  C(00,00,07) = [SFMCAT];  # *PFN* #
          ITEM VLPF$NAMEX U(00,36,06);  # APPEND SUBFAMILY #
          END 
  
  
# 
*     RECORD AREA FOR READING THE *FCT*.
# 
  
        ARRAY VLFCTAREA [0:FCTENTL] S(1);  # *FCT* ENTRY #
          BEGIN 
          ITEM FCT$OML    U(00,06,12);  # TO ACCESS LINK FIELDS VIA THE 
                                          OCL FIELD # 
          END 
  
  
  
# 
*     RECORD AREA FOR THE REQUESTED MAP DATA. 
# 
  
        ARRAY VLMAPAREA [0:0] S(MAPENTL) ;; 
  
# 
*     *LFN* OF THE SMMAP FILE.
# 
  
        ARRAY VLCMLFN [0:0] S(1); 
          BEGIN 
          ITEM VLCM$LFN   C(00,00,06) = [SMMAP];  # *LFN* # 
          ITEM VLCM$LFNX  U(00,30,06);  # APPEND *SM* # 
          END 
  
        END  # TVLMCOM COMMON BLOCK # 
  
      END  # COMTVLM #
  
                                               CONTROL LIST;
