Can We change Length of INFDS Sub Fields?

["Seenivasan A K K, Gurgaon" <akks@xxxxxxxxxxxxxxx>]

> Hi Every body,
>
>      In my program i have a File defined as below
>   FCCFRPT    IF   E           K DISK    INFDS(@@PFINFDS) USROPN
> INFSR(*PSSR)
>
> INFDS is defined as follows
> D @@PFINFDS       DS
> D  IOER##           *STATUS
> D  RRNFLD               397    400B 0
>
>   Field RRNFLD (Which contains the relative record number of the file) is
> Binary of length 4 that is it can contain max value of  999,999,999
>   inside the program RRNFLD is moved to a field of packed  9,0 using EVAL
> operation.
> our file contains more than 999,999,999 records and when it tries to read
> records whose RRN value is greater than 999,999,999  RRNFLD will hold the
> last digits which is greater than 1,000,000,000. when program tries to
> move RRNFLD value to filed of 9,0 length it gives error Receiver value is
> too small to hold the value.
>   to avoid this either i have to increase the length of RRNFLD in INFDS to
> 10,0
>  otherwise i have to retrieve RRN no of file by some other means and
> remove RRNFLD from INFDS, since file is specified as keyed in F spec i
> can't use RECNO keyword.
>
> could u please throw some light to this issue.
> Any help would be appreciated.
>
> Thank and regards
AKK