Re: How to tell if a program is active?

Oooh, I like it, Carsten.

Regards,

Jim Langston

Carsten Flensburg wrote:

> You could avoid save lock-conflicts by lowering the lock-level once you've 
>obtained the exclusive lock:
>
>     Pgm      ( &Pgm  &Lib )
>
>     Dcl        &Pgm      *Char     10
>     Dcl        &Lib      *Char     10
>
>     AlcObj     Obj(( &Lib/&Pgm *PGM *EXCL ))          +
>                Wait( 0 )
>     MonMsg     CPF1002   *N        Do
>
>     SndPgmMsg  MsgId( CPF9898 )                       +
>                MsgF( QCPFMSG )                        +
>                MsgDta( 'Program already running. Please wait ') +
>                MsgType( *ESCAPE )
>     GoTo       EndPgm
>     EndDo
>
>     AlcObj     Obj(( &Lib/&Pgm *PGM *SHRRD ))         +
>                Wait( 0 )
>     DlcObj     Obj(( &Lib/&Pgm *PGM *EXCL ))
>
>     Call       &Lib/&Pgm
>
>     DlcObj     Obj(( &Lib/&Pgm *PGM *SHRRD ))
>
>  EndPgm:
>     EndPgm
>
> The *SHRRD lock will allow the save to complete but prevent an *EXCL lock 
>from being put on the program.
>
> Best regards,
> Carsten Flensburg
>
> ----- Original Message -----
> From: York, Albert <albert.york@nissan-usa.com>
> Sent: 22. november 1999 23:21
> Subject: RE: How to tell if a program is active?
>
> > If you use this technique you need to be careful if you use save while
> > active to do backups. You will not be able to save the program while it is
> > active.
>
> +---
> | 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
+---