Re: How to tell if a program is active?

["Carsten Flensburg" <novasol@xxxxxxxxxxxx>]

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
+---