Re: File keyed on a date field: the read doesn't actually get anything! What am I doing wrong?

To reaffirm Raul's advice, you could have tweaked your program slightly to READ into a Data Structure as follows:

     FSLSMONTHS IF   E           K DISK

     D APR25           S               D   INZ(D'2017-04-25')
     D JAN31           S               D   INZ(D'2017-01-31')
     D FEB04           S               D   INZ(D'2017-02-04')
     D FEB05           S               D   INZ(D'2017-02-05')
     D EOFIND          S               N

     D SLSMONTHSDS     DS                  LIKEREC(SLSMONTHR)

     C                   SETON     LR
     C     JAN31         SETGT     SLSMONTHS
     C                   READ      SLSMONTHS     SLSMONTHSDS
     C                   EVAL      EOFIND = %EOF(SLSMONTHS)
     C     FEB04         SETGT     SLSMONTHS
     C                   READ      SLSMONTHS     SLSMONTHSDS
     C                   EVAL      EOFIND = %EOF(SLSMONTHS)
     C     FEB05         SETGT     SLSMONTHS
     C                   READ      SLSMONTHS     SLSMONTHSDS
     C                   EVAL      EOFIND = %EOF(SLSMONTHS)
     C     APR25         SETGT     SLSMONTHS
     C                   READ      SLSMONTHS     SLSMONTHSDS
     C                   EVAL      EOFIND = %EOF(SLSMONTHS)
     C                   RETURN

- then you would have been able to track all of the data in debug. Just a thought for the future.

Brian.

On 07/01/2026 22:31, James H. H. Lampert via RPG400-L wrote:

On 1/7/26 2:04 PM, Raul Alberto Jager Weiler wrote:

Do you use the field from the file?
RPG does not load the fields if there are not used.

THAT WAS IT!!!!

Scatter-gather wasn't happening on any of the fields because I wasn't referencing them (yet).

Thanks. I knew that, but I'd forgotten it. Maybe it's time for me to (as George Washington so famously put it) "retire to the back-country, and live in a wigwam."

--
JHHL