Re: Writing a CL to save changed objects from *ALLUSR libs

[Al Barsa <barsa@xxxxxxxxxxxxxxxxxxx>]

Two issues:

1.    You're doing too much work.  SAVCHGOBJ supports *ALLUSR in the
library parameter, and this would perform better because of overlap between
libraries.
2.    Why are you specifying SAVACT(*LIB)?  You are not guaranteed that you
have quiescence.

Al

Al Barsa, Jr.
Barsa Consulting Group, LLC

400>390

"i" comes before "p", "x" and "z"
e gads

Our system's had more names than Elizabeth Taylor!

914-251-1234
914-251-9406 fax

http://www.barsaconsulting.com
http://www.taatool.com
http://www.as400connection.com



                                                                           
             "MITTELHEISSER                                                
             Jean Claude"                                                  
             <MITTELJC@xxxxxxx                                          To 
             >                         "Midrange Systems Technical         
             Sent by:                  Discussion"                         
             midrange-l-bounce         <midrange-l@xxxxxxxxxxxx>           
             s@xxxxxxxxxxxx                                             cc 
                                                                           
                                                                   Subject 
             09/25/2004 10:13          Writing a CL to save changed        
             AM                        objects from *ALLUSR libs           
                                                                           
                                                                           
             Please respond to                                             
             Midrange Systems                                              
                 Technical                                                 
                Discussion                                                 
             <midrange-l@midra                                             
                 nge.com>                                                  
                                                                           
                                                                           




Hi all,

I would like to make a SAVCHGOBJ on *ALLUSR libraries to disk, not to tape.
Goal is to send it to a backup system. To save into files, I have to create
a file per library because SAVCHGOBJ *ALLUSR doesn't work when saving on
file. So I wrote a CL that first lists *ALLUSR libraries, then creates a
file with the name of the library to save and then saves. Here it is :
PGM
             DCLF       FILE(SAVES/LSTLIB)

             DSPOBJD    OBJ(*ALLUSR) OBJTYPE(*LIB) OUTPUT(*OUTFILE) +
                          OUTFILE(SAVES/LSTLIB)
LECTURE:     RCVF
             MONMSG     MSGID(CPF0864) EXEC(GOTO CMDLBL(FIN))
             IF         COND(%SST(&ODOBNM 1 3) *EQ 'SAV') THEN(GOTO +
                          CMDLBL(LECTURE))
             CRTSAVF    FILE(SAVES/&ODOBNM)
             MONMSG     MSGID(CPF7302)
             SAVCHGOBJ  OBJ(*ALL) LIB(&ODOBNM) DEV(*SAVF) +
                          SAVF(SAVES/&ODOBNM) CLEAR(*ALL) SAVACT(*LIB)
             MONMSG     MSGID(CPF0001 CPF3702)
             GOTO CMDLBL(LECTURE)
FIN:
ENDPGM

It works fine, but I would like to know if something has been saved into
file to delete it if not. I see 2 ways :
- When SAVCHGOBJ saves some objects, completion message CPC3723 is sent,
and when nothing is saved, message CPC3708 is sent. But basic MONMSG
doesn't work.
- DLTF save file before creating it and test if file is empty after
SAVCHGOBJ. But how ? It must be so simple, but I have no idea.

Some idea ?

Thanks.
Best Regards.
--
This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing list
To post a message email: MIDRANGE-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/midrange-l
or email: MIDRANGE-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/midrange-l.