01 ex-keydef. 47 key2length pic 9(4) comp-x. 47 key-version pic 9(2) comp-x value 2. 47 filler pic 9(6) comp-x. *> reserved 47 key-count pic 9(4) comp-x. 47 filler pic 9(13) comp-x. *> reserved
* key-specification is repeated for the number of keys defined by * key-count 47 key-specification. 49 component-count pic 9(4) comp-x. * The offset for the component-specification for this key 49 component-defs pic 9(4) comp-x. 49 key-flags pic 9(2) comp-x. 78 KEY2KEYFLAG-DUPS-IN-ORDER value h"40". 78 KEY2KEYFLAG-PRIME value h"10". 78 KEY2KEYFLAG-SPARSE-KEY value h"02". 49 key-compression pic 9(2) comp-x. 78 KEY2COMPRESS-TRAILING-NULLS value h"08". 78 KEY2COMPRESS-TRAILING-SPACES value h"04". 78 KEY2COMPRESS-IDENTICAL-CHARS value h"02". 78 KEY2COMPRESS-FOLLOWING-DUP value h"01". 78 KEY2COMPRESS-NO-COMPRESSION value h"00". 78 KEY2COMPRESS-DEFAULT value KEY2COMPRESS-NO-COMPRESSION. 49 sparse-characters pic x(2). 49 filler pic x(8). *> reserved
* component-specifications for all keys follows after the key-specifications * for all the keys. 47 component-specification. 49 component-flags pic 9(2) comp-x. 49 component-type pic 9(2) comp-x. 78 KEY2PARTTYP-NUMERIC value h"80". 78 KEY2PARTTYP-SIGNED value h"40". 78 KEY2PARTTYP-COMP value h"20". 78 KEY2PARTTYP-COMP-3 value h"21". 78 KEY2PARTTYP-COMP-X value h"22". 78 KEY2PARTTYP-COMP-5 value h"23". 78 KEY2PARTTYP-FLOAT value h"24". 78 KEY2PARTTYP-COMP-6 value h"25". 78 KEY2PARTTYP-DISPLAY value h"00". 78 KEY2PARTTYP-SIGN-TRAIL-INCL value h"00". 78 KEY2PARTTYP-SIGN-TRAIL-SEP value h"01". 78 KEY2PARTTYP-SIGN-LEAD-INCL value h"02". 78 KEY2PARTTYP-SIGN-LEAD-SEP value h"03". 78 KEY2PARTTYP-SIGN-LEAD-FLOAT value h"04". 49 component-offset pic 9(9) comp-x. 49 component-length pic 9(9) comp-x.
Later in the tutorial, a set-keydefinitions section is added that populates the values in this block.
Finally, you need to define a group for the records that will be written to and read from the data file.