Re: QIBM_QP0L_SCAN_OPEN situation

I don't have access anymore to my old code, but I know I didn't have to use
a new descriptor or change any of the original programs using this exit.
In my case the open was to basically an empty file and I then decrypted an
(obviously) encrypted instance of the file from the "real" directory to the
directory the user program used. It was for a legal firm and EVERYTHING
was encrypted, but the applications only saw the results of the
decryption. Something is going on here...

On Fri, Jan 22, 2021 at 2:36 PM Randy Cayton <randy_cayton@xxxxxxxxxxx>
wrote:

sounds good , have a good one

On Fri, Jan 22, 2021 at 1:33 PM Jay Vaughn <jeffersonvaughn@xxxxxxxxx>
wrote:

We have an exit point on our IFS files.
When an IFS file is open, our exit pgm fires.

Now the way I understand it, is that this file is in the process of

opening

and our exit pgm is part of that open process.

Our exit pgm does this...

call pgm1 (modify file contents being opened)
call pgm2 (use those modified contents)

However, we are not seeing the modified contents in pgm2.

We were thinking of the obvious solutions.
1.) after pgm 1, close() and reopen in pgm2... but this is part of the
initial file opening so close() is not allowed in this exit pgm.
2.) after pgm1, obtain a new fileID (scanDescriptor), but the original

one

passed in via the exit pgm parm, is still the same. How would we get an
updated one (if one exists)?
3.) after pgm 1 is there a "commit" of some sorts we need to do, as this
IFS file is under commitment control.

Any input would be appreciated.

Jay
--
This is the RPG programming on IBM i (RPG400-L) mailing list
To post a message email: RPG400-L@xxxxxxxxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: https://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxxxxxxxx
Before posting, please take a moment to review the archives
at https://archive.midrange.com/rpg400-l.

Please contact support@xxxxxxxxxxxxxxxxxxxx for any subscription related
questions.

Help support midrange.com by shopping at amazon.com with our affiliate
link: https://amazon.midrange.com

--



*Randy Cayton*
Senior Software Engineer, Transportation
Direct: +1 440 721-2640

--
This email and any files transmitted with it are confidential and intended
solely for the use of the addressee. If you are not the intended
addressee,
then you have received this email in error and any use, dissemination,
forwarding, printing, or copying of this email is strictly prohibited.
--
This is the RPG programming on IBM i (RPG400-L) mailing list
To post a message email: RPG400-L@xxxxxxxxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: https://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxxxxxxxx
Before posting, please take a moment to review the archives
at https://archive.midrange.com/rpg400-l.

Please contact support@xxxxxxxxxxxxxxxxxxxx for any subscription related
questions.

Help support midrange.com by shopping at amazon.com with our affiliate
link: https://amazon.midrange.com