🚀 go-pugleaf

"LX-i" <DanielJSNOSPAM@Knology.net> wrote in message
news:3EADA127.2090104@Knology.net...
> GoldenWing wrote:
<snip>
>
> >            WRITE PRINT-RECORD     FROM    TAX-RECORD-O.
>
> When you Read .. Into (at least with my implementation), your FD does
> not get filled.

If you have a compiler that does NOT "fill in" the records under an FD when
you do a READ INTO, then you have a compiler that does NOT conform to the
ANSI ('85 or 2002) COBOL Standards. From page 497 of the 2002 Standard (and
the '85 Standard has similar wording),

"4) The result of the successful execution of a READ statement with the INTO
phrase is equivalent to the application of the following rules in the order
specified:

     a) The same READ statement without the INTO phrase is executed.
     b) The current record is moved from the record area to the area
specified by identifier-1 according to the rules for the MOVE statement
without the CORRESPONDING phrase. The size of the current record is
determined by rules specified in the RECORD clause. If the file description
entry contains a RECORD IS VARYING clause, the implied move is an
alphanumeric group move. Item identification of the data item referenced by
identifier-1 is done after the record has been read and immediately before
it is moved to the data item. The record is available in both the record
area and the data item referenced by identifier-1.

If the execution of a READ statement with the INTO phrase is unsuccessful,
the content of the data item referenced by identifier-1 is unchanged and
item identification of the data item referenced by identifier-1 is not
done."


--
Bill Klein
 wmklein <at> ix.netcom.com