New free format file declarations' input fields

So I've written a very simple update program using the new free-format.

Here's a very simplified version of the code:

dcl-f File1 keyed;
dcl-f File2 keyed;
dcl-f File3 keyed;

read File1;
DOW not %eof;

Setll F1FLD1 File2;
Reade F1FLD1 File2;
DOW not %eof;

Setll (F2FLD1:F2FLD2) File3;
Reade (F2FLD1:F2FLD2) File3;
DOW not %eof;

F3FLD1 = NewValue;
Update File3;

Reade (F2FLD1:F2FLD2) File3;
ENDDO;

Reade F1FLD1 File2;
ENDDO;

Read File1;
ENDDO;


I've put it in debug to check my code, but only the fields that I've actually referenced in the program are being populated. For example, any other field in File1 besides F1FLD1 is blank/zero. Is this a side-effect of the new DCL-F statements? Shouldn't the field buffer still be getting populated with the values from the file?


Thanks

Bob Cagle
IT Manager
Lynk, Inc.