示例: 指定多种格式和新键的逻辑文件

此示例使用新的字段规范并提供两种记录格式。每种记录格式都提供了关联物理文件的不同视图，并使用与关联物理文件不同的键。

在此示例中， PFILE 关键字很重要。

图 1。指定新密钥的逻辑文件的 DDS

|...+....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8
00010A*
00020A* SAMPLE LOGICAL FILE
00030A
00040A          R CUSMST1                (1)PFILE(CUSMSTP)
00050A            ACTNUM
00060A            NAME
00070A            STATE
00080A            LASTNAME           I   (3)SST(NAME 8 10)
00090A    (2)   K ACTNUM
00100A*
00110A          R CUSMST2                (1)PFILE(CUSMSTP)
00120A            ACTNUM
00130A            NAME
00140A            ZIP
00150A          K *NONE
00160A    (2)   K NAME
     A

图注：

(1): 此逻辑文件中的两种记录格式 (CUSMST1 和 CUSMST2) 基于同一物理文件 (CUSMSTP)。
(2): 记录格式 CUSMST1 具有与记录格式 CUSMST2不同的键，为应用程序提供了相同记录的不同序列。
(3): LASTNAME 字段是字段 NAME 的子串。必须指定位置 38 中的用法 I ，因为这不是连接逻辑文件。