Re: ALCOBJ and OPEN occurs?

["Bob Crothers" <bob@xxxxxxxxxxxxxx>]

Tim,

You could:

a) Just do the copy out of the transaction program.  This would
probably only work well if the file is small.

or b) in the transaction program, specify an indicator in the "lo"
position of the open statement.  If this indicator is on, that means
there was an error opening the file (e.g.: could not allocate it, could
not find it, not authorized to it, etc).  You could probably just
assume that you can not allocate it.  If the indicator is on, do a
delay job via qcmdexc of x seconds then loop back up and retry the
open.  You could also keep an error counter so that if you had y number
of errors in a row, figure something real bad is going on and abort.

Note that in your CLP, you will have to do an explicit alcobj because I
don't think CPYF automatically does one.  But CLRPFM does.  So if the
CPYF runs and you add a record before the CLRPFM, that record is gone.

Bob

-----Original Message-----
From: Tim Truax <truax@usaor.net>
To: MIDRANGE-L@midrange.com <MIDRANGE-L@midrange.com>
Date: Sunday, November 08, 1998 12:32 AM
Subject: Re: ALCOBJ and OPEN occurs?


>Here is what is happening, a program RPG LU6.2 just sits there all day
having
>periodic transmission sent to it.  I want to write a CLP that will
lock the
>accuumulator file then do a quick copy and then clrpfm of the
accumulator file,
>then remove the lock.  This will process the copy of the accumulator
file while
>returning the blank accumulator file to the accumulator LU6.2 program.
>
>Bob Crothers wrote:
>
>> Why does the CLP put a lock on the file that you cant open it for
add?
>> If possible, remove this lock.
>>
>
>
>
>--
>Tok2YaLatR!
>Tim Truax
>
>
>+---
>| This is the Midrange System Mailing List!
>| To submit a new message, send your mail to MIDRANGE-L@midrange.com.
>| To subscribe to this list send email to MIDRANGE-L-SUB@midrange.com.
>| To unsubscribe from this list send email to
MIDRANGE-L-UNSUB@midrange.com.
>| Questions should be directed to the list owner/operator:
david@midrange.com
>+---
>

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