Seq # *Modification Id* Act
----------------------------+
00001 M00S00001.comtvlm +++|
00002 M00S00002.comtvlm +++|# COMTVLM - MSF CATALOG AND MAP ACCESS AREAS. #
00003 M00S00003.comtvlm +++| CONTROL NOLIST;
00004 M00S00004.comtvlm +++| CONTROL IFEQ LISTCON,1;
00005 M00S00005.comtvlm +++| CONTROL LIST;
00006 M00S00006.comtvlm +++| CONTROL FI;
00007 M00S00007.comtvlm +++| BEGIN # COMTVLM #
00008 M00S00008.comtvlm +++|
00009 M00S00009.comtvlm +++|#
00010 M00S00010.comtvlm +++|*** COMTVLM - M860 CATALOG AND MAP ACCESS AREAS.
00011 M00S00011.comtvlm +++|*
00012 M00S00012.comtvlm +++|* COMTVLM DEFINES THE *LFN*, *PFN* AND BUFFERS REQUIRED FOR
00013 M00S00013.comtvlm +++|* THE SFMCAT AND SMMAP ACCESS ROUTINES.
00014 M00S00014.comtvlm +++|*
00015 M00S00015.comtvlm +++|#
00016 M00S00016.comtvlm +++|
00017 M00S00017.comtvlm +++|
00018 M00S00018.comtvlm +++|
00019 M00S00019.comtvlm +++| COMMON TVLMCOM;
00020 M00S00020.comtvlm +++|
00021 M00S00021.comtvlm +++| BEGIN # TVLMCOM COMMON BLOCK #
00022 M00S00022.comtvlm +++| #$$#
00023 M00S00023.comtvlm +++| ITEM $$TVLM$$ C(20) = "****** COMTVLM *****";
00024 M00S00024.comtvlm +++| #$$#
00025 M00S00025.comtvlm +++|
00026 M00S00026.comtvlm +++|#
00027 M00S00027.comtvlm +++|* NAME OF THE M860 CATALOG FILE.
00028 M00S00028.comtvlm +++|#
00029 M00S00029.comtvlm +++|
00030 M00S00030.comtvlm +++| ARRAY VLCTLFN [0:0] S(1);
00031 M00S00031.comtvlm +++| BEGIN
00032 M00S00032.comtvlm +++| ITEM VLCT$LFN C(00,00,07);
00033 M00S00033.comtvlm +++| ITEM VLCT$NAME C(00,00,06) = [ZVALLFN]; # *LFN* #
00034 M00S00034.comtvlm +++| ITEM VLCT$LFNX U(00,36,06); # APPEND SUBFAMILY #
00035 M00S00035.comtvlm +++| END
00036 M00S00036.comtvlm +++|
00037 M00S00037.comtvlm +++|#
00038 M00S00038.comtvlm +++|* *PFN* OF THE LIVE M860 CATALOG.
00039 M00S00039.comtvlm +++|#
00040 M00S00040.comtvlm +++|
00041 M00S00041.comtvlm +++| ARRAY VLPFN [0:0] S(1);
00042 M00S00042.comtvlm +++| BEGIN
00043 M00S00043.comtvlm +++| ITEM VLPF$NAME C(00,00,07) = [SFMCAT]; # *PFN* #
00044 M00S00044.comtvlm +++| ITEM VLPF$NAMEX U(00,36,06); # APPEND SUBFAMILY #
00045 M00S00045.comtvlm +++| END
00046 M00S00046.comtvlm +++|
00047 M00S00047.comtvlm +++|
00048 M00S00048.comtvlm +++|#
00049 M00S00049.comtvlm +++|* RECORD AREA FOR READING THE *FCT*.
00050 M00S00050.comtvlm +++|#
00051 M00S00051.comtvlm +++|
00052 M00S00052.comtvlm +++| ARRAY VLFCTAREA [0:FCTENTL] S(1); # *FCT* ENTRY #
00053 M00S00053.comtvlm +++| BEGIN
00054 M00S00054.comtvlm +++| ITEM FCT$OML U(00,06,12); # TO ACCESS LINK FIELDS VIA THE
00055 M00S00055.comtvlm +++| OCL FIELD #
00056 M00S00056.comtvlm +++| END
00057 M00S00057.comtvlm +++|
00058 M00S00058.comtvlm +++|
00059 M00S00059.comtvlm +++|
00060 M00S00060.comtvlm +++|#
00061 M00S00061.comtvlm +++|* RECORD AREA FOR THE REQUESTED MAP DATA.
00062 M00S00062.comtvlm +++|#
00063 M00S00063.comtvlm +++|
00064 M00S00064.comtvlm +++| ARRAY VLMAPAREA [0:0] S(MAPENTL) ;;
00065 M00S00065.comtvlm +++|
00066 M00S00066.comtvlm +++|#
00067 M00S00067.comtvlm +++|* *LFN* OF THE SMMAP FILE.
00068 M00S00068.comtvlm +++|#
00069 M00S00069.comtvlm +++|
00070 M00S00070.comtvlm +++| ARRAY VLCMLFN [0:0] S(1);
00071 M00S00071.comtvlm +++| BEGIN
00072 M00S00072.comtvlm +++| ITEM VLCM$LFN C(00,00,06) = [SMMAP]; # *LFN* #
00073 M00S00073.comtvlm +++| ITEM VLCM$LFNX U(00,30,06); # APPEND *SM* #
00074 M00S00074.comtvlm +++| END
00075 M00S00075.comtvlm +++|
00076 M00S00076.comtvlm +++| END # TVLMCOM COMMON BLOCK #
00077 M00S00077.comtvlm +++|
00078 M00S00078.comtvlm +++| END # COMTVLM #
00079 M00S00079.comtvlm +++|
00080 M00S00080.comtvlm +++| CONTROL LIST;