Could it be because you were running the version that was prior to your
changes? As you know, service program does not get shut down until the
activation group that it is running in is reclaimed. So, if you
activated a service program, and then made a change to it and recreate
it, and then try to activate again, your changes will not take effect.
-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of Brian Neifert
Sent: Tuesday, July 08, 2008 7:41 AM
To: RPG programming on the AS400 / iSeries
Subject: Re: Service program file access?
Thanks for your help/reply.
I tried the same code again this morning and it is working correctly
now. Could there be an issue with activation groups? Or maybe something
to do with the warning message in the compile: "Files should be closed
explicitly when NOMAIN is specified the Control specification." Right
now I am not manually opening and closing the file in the program.
----- Original Message ----
From: Simon Coulter <shc@xxxxxxxxxxxxxxxxx>
To: RPG programming on the AS400 / iSeries <rpg400-l@xxxxxxxxxxxx>
Sent: Monday, July 7, 2008 7:16:11 PM
Subject: Re: Service program file access?
On 08/07/2008, at 7:01 AM, Brian Neifert wrote:
I'm having trouble accessing a file in a service program. Are there
any tricks? It seems the ER and EOF indicators are not coming on when
the record is not found. I also tried the %bifs of $eof and % found
and they didn't work either. Any sugesstions?
Also, after a successful chain, the field values are all blank or
null.
No tricks. Using files in service programs works so the problem is in
your code.
Usual cause is forgetting that file fields (generally) have global scope
and providing local variables of the same name (e.g., via a data
structure) thus "overriding" them.
If that's not the cause you'll have to post a code sample that manifests
the problem.
Regards,
Simon Coulter.
--------------------------------------------------------------------
FlyByNight Software OS/400, i5/OS Technical Specialists
http://www.flybynight.com.au/
Phone: +61 2 6657 8251 Mobile: +61 0411 091 400 /"\
Fax: +61 2 6657 8251 \ /
X
ASCII Ribbon campaign against HTML E-Mail / \
--------------------------------------------------------------------
--
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.
midrange.com
