Birgitta,
Couldn't you register an exit point in the RCLRSC command, and if you're
service program was active, make a call to the CLOSE procedure in your
service program? Then you could still use MyActGrp...
Crispin.
----- Original Message -----
From: "BirgittaHauser" <Hauser@xxxxxxxxxxxxxxx>
To: "'RPG programming on the AS400 / iSeries'" <rpg400-l@xxxxxxxxxxxx>
Sent: Friday, July 11, 2008 2:09 PM
Subject: AW: MCH3402 - and Built-In-Function %OPEN
Hi,
I'm curious, why the requirement for RclActGrp?
Do you really need it?
Short answer: Yes
Long answer:
Originally my program was designed to run in it s own activation group. What
I have to do is to design and write printer files dynamically. The client
calls the program for each action he wants to execute with the printer file,
such as Open, Send Data, Print sent data, Print an empty row, Skip to next
page, close printer file and so on. The program itself is only a wrapper for
a bunch of procedures (one for each action) that are located in a service
program. The service program run in the same named activation group (not
*CALLER) as the program, because I expected the program get somewhen
eliminated and the procedures get called directly.
To close the printerfile I expected the CLOSE action will be executed. But
instead of calling my program with the close action, simply a RCLRSC get
executed. Because everything (with the exception of my program and service
programs), a RCLRSC will not close my printer file. That means after RCLRSC
the printer is still opened. To close it either the close procedure must be
called or a RCLACTGRP(MyActGrp) must be performed.
That's why I proposed to add an RCLACTGRP(MyActGrp) immediately before or
after the RCLRSC.
Or how else can I detect that RCLRSC was executed and the printer file must
be closed?
Mit freundlichen Grüßen / Best regards
Birgitta Hauser
"Shoot for the moon, even if you miss, you'll land among the stars." (Les
Brown)
"If you think education is expensive, try ignorance." (Derek Bok)
"What is worse than training your staff and losing them? Not training them
and keeping them!"
-----Ursprüngliche Nachricht-----
Von: rpg400-l-bounces@xxxxxxxxxxxx [mailto:rpg400-l-bounces@xxxxxxxxxxxx] Im
Auftrag von Wilt, Charles
Gesendet: Friday, July 11, 2008 14:09
An: RPG programming on the AS400 / iSeries
Betreff: RE: MCH3402 - and Built-In-Function %OPEN
Brigitta,
I'm curious, why the requirement for RclActGrp?
Do you really need it? Can you remove that requirement?
If so, then you could use named AG without the client needing to change
anything.
Charles Wilt
--
Software Engineer
CINTAS Corporation - IT 92B
513.701.1307
wiltc@xxxxxxxxxx
-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx]
On Behalf Of BirgittaHauser
Sent: Friday, July 11, 2008 1:32 AM
To: 'RPG programming on the AS400 / iSeries'
Subject: MCH3402 - and Built-In-Function %OPEN
Hi,
>>It's a shame, this isn't your own company. Then you may have another
option, leave the project, as incompatible based on the users
requirements,
... Not possible, it's a rather big project and there is too much
money that is not yet paid. As far as I know we confirmed in our
contract, that the client do not have to change ANYTHING. That's why
he is not willing to add a
RCLACTGRP(MyActGrp) to his programs nor is he willing to execute routine
correctly and he insists on using RCLRSC to close the files.
At least we learned something for the next project: Adding a term to
our contract that we use ILE concepts with named activation groups and
do not change our concept.
Mit freundlichen Grüßen / Best regards
Birgitta Hauser
This e-mail transmission contains information that is intended to be
confidential and privileged. If you receive this e-mail and you are not a
named addressee you are hereby notified that you are not authorized to read,
print, retain, copy or disseminate this communication without the consent of
the sender and that doing so is prohibited and may be unlawful. Please
reply to the message immediately by informing the sender that the message
was misdirected. After replying, please delete and otherwise erase it and
any attachments from your computer system. Your assistance in correcting
this error is appreciated.
midrange.com
