efdKeyInfo

Parses an EFD file and returns information about a specific field.

General format

efd-key-description efdKeyInfo ( efd-name, key-index )

Syntax rules

1.	efd-name is an alphanumeric data-item or string literal.

2.	field-index must be defined as PIC 9(3).

3.	efd-key-description is a structure defined in the efdParser.def copybook as follows.:

01 efd-key-description-group.     03  efd-key-description.         05  efd-number-of-segments               pic 99.         05  efd-allow-dup-flag                   pic 9.             88  efd-allow-duplicates             value 1 false 0.         05  efd-segment-description              occurs efdmax-segs times indexed by efd-seg-idx.             07  efd-segment-length               pic x    comp-x.             07  efd-segment-offset               pic x(4) comp-x.         05  efd-num-of-key-fields                pic x    comp-x.         05  efd-key-fields                       occurs efdMaxNumKeyFields times indexed by efd-key-field-idx.             07  efd-key-field-name               pic x(30).             07  efd-key-field-num                pic xx   comp-x.     03  efd-key-index-buf                        pic xx   comp-x.

General rules

1.	key-index must be greater than zero and specifies the ordinal position of the field in the EFD file.

Code example

... configuration section. repository.      class efdParser  as "com.iscobol.lib.efdParser"     . ... working-storage section. ... copy "efdParser.def" 77 efd-parser object reference efdParser. 77 key-idx    pic 9(3). ... procedure division. ... move 1 to key-idx. set efd-key-description to efd-parser:>efdKeyInfo("fd1.xml",                                                    key-idx) ...