The following code-block is a sample XFD that the stored procedure examples in this section are acting upon:
<?xml version="1.0" encoding="utf-8" standalone="no"?> <!-- ftestdat.xfd - generated on 19-Apr-16 14:29 Micro Focus COBOL V2.3 revision 002 AXCGG/AA0/00000 GNR-005203002AI --> <xfd:xfdfile xmlns:xfd="https://www.microfocus.com"> <xfd:identification xfd:version="7"> <xfd:select-name>FTEST2-FILE</xfd:select-name> <xfd:maximum-numeric-digits>31</xfd:maximum-numeric-digits> <xfd:alphabet>None</xfd:alphabet> <xfd:period-character>.</xfd:period-character> <xfd:comma-character>,</xfd:comma-character> <xfd:file-organization>Indexed</xfd:file-organization> <xfd:table-name>FTESTDAT</xfd:table-name> <xfd:number-of-keys>3</xfd:number-of-keys> <xfd:minimum-record-size>36</xfd:minimum-record-size> <xfd:maximum-record-size>36</xfd:maximum-record-size> <xfd:sign-compatibility>8</xfd:sign-compatibility> </xfd:identification> <xfd:keys> <xfd:key xfd:segment-count="1" xfd:duplicates-allowed="false"> <xfd:segments> <xfd:segment xfd:segment-size="4" xfd:segment-offset="0"/> </xfd:segments> <xfd:key-columns xfd:key-column-count="1"> <xfd:key-column xfd:key-column-name="ftest2-key"/> </xfd:key-columns> </xfd:key> <xfd:key xfd:segment-count="1" xfd:duplicates-allowed="true"> <xfd:segments> <xfd:segment xfd:segment-size="4" xfd:segment-offset="4"/> </xfd:segments> <xfd:key-columns xfd:key-column-count="2"> <xfd:key-column xfd:key-column-name="ftest2-key1-seg1"/> <xfd:key-column xfd:key-column-name="ftest2-key1-seg2"/> </xfd:key-columns> </xfd:key> <xfd:key xfd:segment-count="1" xfd:duplicates-allowed="false"> <xfd:segments> <xfd:segment xfd:segment-size="4" xfd:segment-offset="8"/> </xfd:segments> <xfd:key-columns xfd:key-column-count="1"> <xfd:key-column xfd:key-column-name="ftest2-altkey2"/> </xfd:key-columns> </xfd:key> </xfd:keys> <xfd:conditions xfd:condition-count="0"/> <xfd:fields xfd:elementary-items="7" xfd:elementary-items-with-occurs="7" xfd:total-items="9" xfd:total-items-with-occurs="9"> <xfd:field xfd:field-level="1" xfd:field-name="ftest2-record" xfd:field-condition="999" xfd:field-offset="0" xfd:field-bytes="36" xfd:field-type="152" xfd:field-length="36" xfd:field-scale="0" xfd:field-user-flags="0"/> <xfd:field xfd:field-level="3" xfd:field-name="ftest2-key" xfd:field-offset="0" xfd:field-bytes="4" xfd:field-type="152" xfd:field-length="4" xfd:field-scale="0" xfd:field-user-flags="0" xfd:field-condition="0"/> <xfd:field xfd:field-level="3" xfd:field-name="ftest2-altkey1" xfd:field-condition="999" xfd:field-offset="4" xfd:field-bytes="4" xfd:field-type="152" xfd:field-length="4" xfd:field-scale="0" xfd:field-user-flags="0"/> <xfd:field xfd:field-level="5" xfd:field-name="ftest2-key1-seg1" xfd:field-offset="4" xfd:field-bytes="2" xfd:field-type="152" xfd:field-length="2" xfd:field-scale="0" xfd:field-user-flags="0" xfd:field-condition="0"/> <xfd:field xfd:field-level="5" xfd:field-name="ftest2-key1-seg2" xfd:field-offset="6" xfd:field-bytes="2" xfd:field-type="152" xfd:field-length="2" xfd:field-scale="0" xfd:field-user-flags="0" xfd:field-condition="0"/> <xfd:field xfd:field-level="3" xfd:field-name="ftest2-altkey2" xfd:field-offset="8" xfd:field-bytes="4" xfd:field-type="152" xfd:field-length="4" xfd:field-scale="0" xfd:field-user-flags="0" xfd:field-condition="0"/> <xfd:field xfd:field-level="3" xfd:field-name="ftest2-number" xfd:field-offset="12" xfd:field-bytes="9" xfd:field-type="144" xfd:field-length="9" xfd:field-scale="0" xfd:field-user-flags="0" xfd:field-condition="0"/> <xfd:field xfd:field-level="3" xfd:field-name="ftest2-info" xfd:field-offset="21" xfd:field-bytes="10" xfd:field-type="152" xfd:field-length="10" xfd:field-scale="0" xfd:field-user-flags="0" xfd:field-condition="0"/> <xfd:field xfd:field-level="3" xfd:field-name="ftest2-in" xfd:field-offset="31" xfd:field-bytes="5" xfd:field-type="152" xfd:field-length="5" xfd:field-scale="0" xfd:field-user-flags="0" xfd:field-condition="0"/> </xfd:fields> </xfd:xfdfile>