You must be logged in to use the copy button.

        
**Free
/if Defined(Fld_Loc_PR)
dcl-pr Fld_Loc;
/Endif

/if Defined(Fld_Loc_PI)
 dcl-pi *n;
/Endif

 Row#       packed(3);
 Col#       packed(3);
 FieldName  char(10) const;
 FormatName char(10) const;
 FileName   char(10) const;
 Library    char(10) value options(*nopass);
 ForceSize  char(1)  value options(*nopass);

/if Defined(Fld_Loc_PR)
 end-pr Fld_Loc;
/undefine Fld_Loc_pr
/Endif

/if Defined(Fld_Loc_PI)
 end-pi;
/undefine Fld_Loc_pi
/Endif