The PFILE keyword is important in this example. The example uses new field specifications and provides two record formats. Each record format provides a different view of the associated physical file and uses a key different from the associated physical file.
|...+....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
(C) Copyright IBM Corporation 1992, 2006. All Rights Reserved.