Re: End Journal PF

Perhaps something like:

ALCOBJ *EXCL with a 1 second wait time
If that works
  ENDJRNPF and exit
If it doesn't work (ALCOBJ fails)
  DLYJOB 5 minutes
  go to top of loop

Scott Lindstrom
Zenith Electronics




"Keith Miller" <kburnsmill@yahoo.com>@midrange.com on 06/16/2000 03:18:03
PM

Please respond to RPG400-L@midrange.com

Sent by:  owner-rpg400-l@midrange.com


To:   <rpg400-l@midrange.com>
cc:

Subject:  End Journal PF



Here is the story....

We have a file that is being journaled.
We need to end the journaling of that file.
To end the journaling on that file we need an exclusive lock  on the file.
The file is maybe available 10 minutes a day where we could  get an
exclusive lock on it.
The problem is that we don't know when the file is  available to get the
lock on it.

Does anyone know of a way that we could solve this  problem?

Is there an API that we could use to end journaling on a  file?

Keith Miller
AmeriNet System
801 799-0300 ext 125

kburnsmill@yahoo.com





+---
| This is the RPG/400 Mailing List!
| To submit a new message, send your mail to RPG400-L@midrange.com.
| To subscribe to this list send email to RPG400-L-SUB@midrange.com.
| To unsubscribe from this list send email to RPG400-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---