Re: %EOF with READC

and feed a fever, starve a cold?

Ron Power
Programmer
Information Services
City Of St. John's, NL
P.O. Box 908
St. John's, NL
A1C 5M2
709-576-8132
rpower@xxxxxxxxxx
http://www.stjohns.ca/
___________________________________________________________________________
Success is going from failure to failure without a loss of enthusiasm. - 
Sir Winston Churchill




"Booth Martin" <booth@xxxxxxxxxxxx> 
Sent by: rpg400-l-bounces@xxxxxxxxxxxx
2005/10/05 03:15 PM
Please respond to
RPG programming on the AS400 / iSeries <rpg400-l@xxxxxxxxxxxx>


To
"RPG programming on the AS400 / iSeries" <rpg400-l@xxxxxxxxxxxx>
cc

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.

 

.