Re: Validating input file

"jeff" <jmoore207@[EMAIL PROTECTED]
> wrote in message
news:30d67234-2965-45ed-9b66-324739333c4e@[EMAIL PROTECTED]
> I have a input rec coming from a customer that is defined as
>
>  FD  DISCFILE.
>  01  DISC-REC               PIC X(129).
>  01  DISC-REC2 REDEFINES DISC-REC.
>      03  DISC-RECR OCCURS 129  PIC X.
>
> It is a comma-delimited file with 16 fields (15 commas). I need to
> check and make sure that each line is only 129 characters and I assume
> 1 LF. What would be the best way to accomplish this?

If this is truly a fixed-length record on disk, then the
LF should appear in the last position; if the file is "line
sequential" then the SELECT clause for the file
should reflect that and the record will be filled with
trailing spaces when it is read into the program. In other
words, the record, in memory, will always have
128 characters and a LF or 129 characters, depending.