Re: clearing file currently opened in exit pgm

[Jay Vaughn <jeffersonvaughn@xxxxxxxxx>]

so in that documentation, I found APYJRNCHG in which I tried just after my
ftruncate64().
It failed with "File system error occurred.  Error number 3029".

Read more of the documentation and see... "When you apply journaled changes
to an object, the object cannot be in use by anyone else."

Well unfortunately, this object is currently in use by "me" in the exit pgm
(just after my ftruncate64())...

Am I missing something?

Jay

On Mon, Jan 18, 2021 at 8:02 AM Jay Vaughn <jeffersonvaughn@xxxxxxxxx>
wrote:

> I found this... is this what you are referring to?
>
>
> https://www.ibm.com/support/knowledgecenter/ssw_ibm_i_74/rzaki/rzakiappyjrn.htm
>
> Jay
>
> On Jan 18, 2021, at 7:55 AM, Jay Vaughn <jeffersonvaughn@xxxxxxxxx> wrote:
>
> I know how to do commitment control in rpg for PF’s (both native and
> sql)...
>
> But what  is the rpg syntax to issue a commit on a stmf?
>
> Jay
>
>
> Sent from my iPhone
>
> On Jan 17, 2021, at 11:51 PM, x y <xy6581@xxxxxxxxx> wrote:
>
>
> if the file is journaled, you'll need to do a COMMIT.
>
>
> On Sun, Jan 17, 2021 at 4:43 PM Jay Vaughn <jeffersonvaughn@xxxxxxxxx>
>
> wrote:
>
>
> So I have a stmf file opened in my exit pgm registered to
>
> QIBM_QP0L_SCAN_OPEN.
>
> I want to clear that file... and then later write to it further in the exit
>
> pgm.
>
> I do a ftruncate64() in my exit pgm and if I do a wrklnk and look at the
>
> bytes, it did clear it and set the bytes to 0.
>
> Good...
>
> But when I later write to the file later on in the exit pgm, the data I
>
> thought I cleared returns and my new data appends to it.
>
>
> Is this because the file was never closed before the new data was written
>
> to it?
>
> How can I ensure it is cleared and then allowed to write to in this same
>
> exit pgm without the ability to close it before the write?
>
>
> Is there some functionality with the below exit pgmoutput ds fields that
>
> can be set to allow my clear to "stick"?
>
>
> 8 8 CHAR(1) Update object scan information
>
> 9 9 CHAR(1) Scan status
>
>
>
> tia
>
>
> 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
>
>
> --
>
> 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