RE: %EOF with READC

Not with subfiles.

-Bob Cozzi
www.RPGxTools.com
RPG xTools - Enjoy programming again.


-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx [mailto:rpg400-l-bounces@xxxxxxxxxxxx]
On Behalf Of Booth Martin
Sent: Wednesday, October 05, 2005 12:45 PM
To: RPG programming on the AS400 / iSeries
Subject: Re: %EOF with READC

Isn't the general rule "Read a file, write a format"? 

 

---------------------------------

Booth Martin

http://www.martinvt.com

---------------------------------

-------Original Message-------

 

From: RPG programming on the AS400 / iSeries

Date: 10/05/05 12:30:16

To: RPG Midrange

Subject: %EOF with READC

 

I know I'm going to kick myself as soon as I hit the Send icon because

I'll see the error just a microsecond later.

 

But I cannot get the %eof() built-in function to work with subfiles. The

manual says it will (pages 479 and 710), but it doesn't like me. I have

pasted what I think are the relevant pieces of code. Hopefully someone

out there has better eyesight than I.

 

 

    FIT002FM CF E WORKSTN INFDS(WSDS)

    F SFILE(IT002B:RRN1)

 

    EXSR #Load; // Load the subfile

 

    EXFMT IT002BCTL; // Subfile control.

 

    READC IT002B; // Find the selection, if any.

    IF not %eof(IT002B);

    aaaaaa

    a 011400 Parameter IT002B is not valid for built-in function %EOF.

    %EOF is ignored.

 

  From the WDS ILE RPG Reference manual (pg 710):

 

You can specify an indicator in positions 75-76 that will be set on when

there are no more changed records in the subfile. This information can

also be obtained from the %EOF built-in function, which returns '1' if

there are no more changed records in the subfile and '0' otherwise.

 

Thanks.

 

--

  * Jerry C. Adams

*iSeries/i5 Programmer/Analyst

B&W Wholesale Distributors, Inc.* *

voice

  615.893.8633x152

fax

  615.995.1201

email

  jerry@xxxxxxxxxxxxxxx <mailto:jerry@xxxxxxxxxxxxxxx>

 

 

--

This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing list

To post a message email: RPG400-L@xxxxxxxxxxxx

To subscribe, unsubscribe, or change list options,

visit: http://lists.midrange.com/mailman/listinfo/rpg400-l

or email: RPG400-L-request@xxxxxxxxxxxx

Before posting, please take a moment to review the archives

at http://archive.midrange.com/rpg400-l.

 

.