×

Good News Everybody!

The new search engine is LIVE!

Please report any problems to david (at) midrange.com.




Rob,
     Do you have an exclusive lock on the object? 

Thank you,

Eric Kempter
*4107
* Eric.Kempter@robertmondavi.com



> -----Original Message-----
> From: Rob Berendt [SMTP:rob@dekko.com]
> Sent: Thursday, January 20, 2000 7:08 AM
> To:   MIDRANGE-L@midrange.com
> Subject:      Save-while-active
> 
> While I normally despise save while active because stuff can get out of sync 
>I thought I'd use it for the three libraries that compose the paging software 
>we use.  However I get:
> 
>  5769SS1 V4R4M0 990521                           Job Log                      
>       GDISYS   01/20/00 09:53:53          Page    2
>   Job name . . . . . . . . . . :   LXISAVE3        User  . . . . . . :   ROB  
>        Number . . . . . . . . . . . :   923180     
>   Job description  . . . . . . :   QDFTJOBD        Library . . . . . :   QGPL 
>                                                    
> MSGID      TYPE                    SEV   DATE       TIME       FROM PGM       
>LIBRARY     INST     TO PGM       LIBRARY      INST 
> CPF3761    Diagnostic              20    01/20/00   09:52:49   QSRSVPRE       
>QSYS        0E0D     QSRSVPRE     QSYS         0E0D 
>                                      Message . . . . :   Cannot use DTAARA 
>QUEUE01 in LXIPAG400.                                  
>                                      Cause . . . . . :   DTAARA QUEUE01 is 
>locked by another job, or another save                 
>                                        or restore operation is in progress 
>for this object or for library                         
>                                        LXIPAG400. Recovery  . . . :   Try the 
>request again when DTAARA QUEUE01 is                
>                                        available.                             
>                                                    
> CPF3751    Escape                  20    01/20/00   09:53:53   QSRSLCP2       
>QSYS        0881     TEST         ROB          0011
>                                      Message . . . . :   Some libraries not 
>saved.                                               
>                                      Cause . . . . . :   2 libraries were 
>saved, 1 libraries were partially saved,               
>                                        and 0 libraries were not saved.  The 
>save operation ended on volume ROB.                  
>                                        Recovery  . . . :   See the previously 
>listed messages in the job log,                    
>                                        correct any errors and try the request 
>again.                                             
> 
> 
> 
> Also I do the option OUTPUT(*PRINT) on the SAVLIB command.  Browsing the 
>output for the string NO I see:
>                                                                               
>   Save While           
>    Object              Type     Attribute    Saved           Size  Owner      
>  Active Timestamp    Text
>   PLPFWK1              *FILE    PF            YES           32768  QSYS       
> 01/20/00  09:52:58   (c) Copyright LXI Corp. 1995,
>   QUEUE01              *DTAARA                NO                              
>                                                  
> * CPF3761                                                                     
>                                          
>               Library ------Objects------         File                  File  
>                                          
>   Library      Saved   Saved   Not saved  Volume  Label               
>Sequence    ASP  Owner                  Size  Text
>   LXIPAG400     YES      182           1  ROB     LXIPAG400                   
> 3    1  QSYS                 188416      
> 
> Y'all might want to watch out for this crud if you are using save while 
>active.  Any solutions?
> 
> Test program in it's entirety.
> INZTAP     DEV(TAP03) NEWVOL(ROB) NEWOWNID(ROB) CHECK(*NO)> 
> SAVLIB     LIB(LXI*) DEV(TAP03) EXPDATE('01/20/00') +     
>              ENDOPT(*REWIND) SAVACT(*SYNCLIB) +           
>              DTACPR(*DEV) OUTPUT(*PRINT)                  
> MONMSG     MSGID(CPF3751 CPF3761 CPF3771)                 
> 
> +---
> | 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
+---

As an Amazon Associate we earn from qualifying purchases.

This thread ...


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

This mailing list archive is Copyright 1997-2026 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].

Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.