• Subject: Re: How to tell if a program is active?
  • From: "Carsten Flensburg" <novasol@xxxxxxxxxxxx>
  • Date: Tue, 23 Nov 1999 11:45:52 +0100

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 thread ...

Follow-Ups:
Replies:

Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2019 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].