midrange.com code scratchpad |
Name:
LIBSAVRST
|
Scriptlanguage:
Plain Text
|
Tabwidth:
4
|
Date:
04/15/2010 07:44:53 pm
|
IP:
Logged
|
|
Description:
Save LIBs on SAVFs and restore them on another system
|
Code:
- /************************************************/
- /* Create a file with the needed libraries list */
- /* with: */
- /* DSPOBJD OBJ(*ALLUSR) */
- /* OBJTYPE(*LIB) */
- /* OUTPUT(*OUTFILE) */
- /* OUTFILE(QGPL/LIBLIST) */
- /************************************************/
-
- PGM
-
- dclf QGPL/LIBLIST
-
- loop: rcvf
- MONMSG MSGID(CPF0864) +
- EXEC(GOTO EOJ)
- IF COND((%SST(&ODOBNM 1 1) = 'Q') *OR (%SST(&ODOBNM 1 +
- 1) = '#')) +
- THEN(GOTO LOOP)/* OMIT System Libs */
-
- CRTSAVF FILE(QGPL/&ODOBNM)
- MONMSG MSGID(CPF7302) +
- EXEC(DO)
- SNDUSRMSG MSG('SAVF NOT CREATED') +
- MSGTYPE(*INFO) +
- TOMSGQ(*)
- GOTO CMDLBL(LOOP)
- ENDDO
-
- /*---*/
- SAVLIB LIB(&ODOBNM) +
- DEV(*SAVF) +
- SAVF(QGPL/&ODOBNM) +
- UPDHST(*NO) +
- SAVACT(*SYSDFN) +
- DTACPR(*MEDIUM) +
- COMPACT(*DEV) +
- OUTPUT(*OUTFILE) +
- OUTFILE(QGPL/SAVEDATA) +
- OUTMBR(*FIRST) +
- INFTYPE(*OBJ)
-
- MONMSG MSGID(CPF0000) +
- EXEC(DO)
- SNDUSRMSG MSG('Error While saving LIB') +
- MSGTYPE(*INFO) +
- TOMSGQ(*)
- DLTF QGPL/&ODOBNM
- GOTO CMDLBL(LOOP)
- ENDDO
-
- /*---*/
- SAVRSTOBJ OBJ(&ODOBNM) +
- LIB(QGPL) +
- RMTLOCNAME(TARGETSYSTEM) +
- OBJTYPE(*FILE) +
- MBROPT(*ALL) +
- ALWOBJDIF(*ALL) +
- RSTLIB(TARGETLIB)
-
- MONMSG MSGID(CPF0000) +
- EXEC(DO)
- SNDUSRMSG MSG('SAVRST Error') +
- MSGTYPE(*INFO) +
- TOMSGQ(*)
- ENDDO
- DLTF QGPL/&ODOBNM
- GOTO CMDLBL(LOOP)
-
-
- EOJ: ENDPGM
-
|
|
|