Example: A logical file specifying multiple formats and new keys

Edit online

This 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.

The PFILE keyword is important in this example.

Figure 1. DDS for a logical file specifying new keys

|...+....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

Legend:

(1): The two record formats (CUSMST1 and CUSMST2) in this logical file are based on the same physical file (CUSMSTP).
(2): Record format CUSMST1 has a key different from record format CUSMST2, providing the application program with a different sequence of the same records.
(3): The LASTNAME field is a substring of the field NAME. The usage I in position 38 must be specified because this is not a join logical file.