Re: Subfiles in COBOL

<LOL>

yeah, one of the funnies in COBOL....

UNTIL always was WHILE.

===========================================================
R. Bruce Hoffman, Jr.
 -- IBM Certified Specialist - iSeries Administrator
 -- IBM Certified Specialist - RPG IV Developer

"There is a crack in everything,
  that's how the light gets in.
    - Leonard Cohen

----- Original Message -----
From: "Joe Pluta" <joepluta@PlutaBrothers.com>
To: <cobol400-l@midrange.com>
Sent: Saturday, July 27, 2002 2:12 PM
Subject: RE: Subfiles in COBOL


> > From: Joe Pluta
> >
> > In any event, my firt subfile program is working, although I'm having
some
> > real problems with READ NEXT MODIFIED.  I'll post more as I get time.
>
> Come, look, read, laugh!  See the silly newbie as he gets fancy and COBOL
> syntax bites him on the bum!
>
> This works:
>
>    03  SFL1-STATUS     PIC 1.
>      88  SFL1-HAS-MORE-RECORDS         VALUE B"0".
>      88  SFL1-IS-AT-END                VALUE B"1".
>
>    SET SFL1-HAS-MORE-RECORDS TO TRUE
>    PERFORM READ-SUBFILE THROUGH READ-SUBFILE-END
>       UNTIL SFL1-IS-AT-END
>
> It does NOT work when the "SET" is in the READ-SUBFILE paragraph.  Well,
it
> works the first time, and then from then on no records are ever read from
> the subfile.  As I found out, this is because the default for "UNTIL" is
> "TEST BEFORE", a leading comparison.
>
> <sigh>
>
> One of these days, I may get the hang of this.
>
> Joe
>
> _______________________________________________
> This is the COBOL Programming on the iSeries/AS400 (COBOL400-L) mailing
list
> To post a message email: COBOL400-L@midrange.com
> To subscribe, unsubscribe, or change list options,
> visit: http://lists.midrange.com/cgi-bin/listinfo/cobol400-l
> or email: COBOL400-L-request@midrange.com
> Before posting, please take a moment to review the archives
> at http://archive.midrange.com/cobol400-l.
>