RE: Save-while-active -- MIDRANGE-L

Rob,

There are certain object types that save while active can't get if there are
locks on them.  Data areas are the ones I've run into the most.  It's an irksome
limitation, since so many applications use data areas for various purposes.  I
don't know if IBM ever intends to remove it.  I imagine the "official" solution
is simply not to use data areas that way - not a very practical suggestion,
IMHO.

Dave Shaw

-----Original Message-----
From: Rob Berendt [mailto:rob@dekko.com]

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