I have attempted (without success) (a) omitting FD in file section and instead defined 2 rec formats in working-storage section (b) defined FD in file section with 'copy dds-all-formats' and two separate 'copy dds-' statements in working-storage section. In both the cases I get all kinds compilation errors which cannot be listed here.
Eventually, the code shown above goes thru error free. However, I could not declare multiple keys and could not get separate storage areas for 2 record formats of a single LF which is my intent.
Would appreciate someone throwing light on these issues.