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:
  1.              /************************************************/
  2.              /* Create a file with the needed libraries list */
  3.              /* with:                                        */
  4.              /*   DSPOBJD OBJ(*ALLUSR)                       */
  5.              /*         OBJTYPE(*LIB)                        */
  6.              /*         OUTPUT(*OUTFILE)                     */
  7.              /*         OUTFILE(QGPL/LIBLIST)                */
  8.              /************************************************/
  9.  
  10.              PGM
  11.  
  12.              dclf       QGPL/LIBLIST
  13.  
  14.  loop:       rcvf
  15.              MONMSG     MSGID(CPF0864) +
  16.                           EXEC(GOTO EOJ)
  17.              IF         COND((%SST(&ODOBNM 1 1) = 'Q') *OR (%SST(&ODOBNM 1 +
  18.                           1) = '#')) +
  19.                           THEN(GOTO LOOP)/* OMIT System Libs */
  20.  
  21.              CRTSAVF    FILE(QGPL/&ODOBNM)
  22.              MONMSG     MSGID(CPF7302) +
  23.                           EXEC(DO)
  24.                 SNDUSRMSG  MSG('SAVF NOT CREATED') +
  25.                              MSGTYPE(*INFO) +
  26.                              TOMSGQ(*)
  27.                 GOTO       CMDLBL(LOOP)
  28.              ENDDO
  29.  
  30.              /*---*/
  31.              SAVLIB     LIB(&ODOBNM) +
  32.                           DEV(*SAVF) +
  33.                           SAVF(QGPL/&ODOBNM) +
  34.                           UPDHST(*NO) +
  35.                           SAVACT(*SYSDFN) +
  36.                           DTACPR(*MEDIUM) +
  37.                           COMPACT(*DEV) +
  38.                           OUTPUT(*OUTFILE) +
  39.                           OUTFILE(QGPL/SAVEDATA) +
  40.                           OUTMBR(*FIRST) +
  41.                           INFTYPE(*OBJ)
  42.  
  43.              MONMSG     MSGID(CPF0000) +
  44.                           EXEC(DO)
  45.                 SNDUSRMSG  MSG('Error While saving LIB') +
  46.                              MSGTYPE(*INFO) +
  47.                              TOMSGQ(*)
  48.                 DLTF       QGPL/&ODOBNM
  49.                 GOTO       CMDLBL(LOOP)
  50.              ENDDO
  51.  
  52.              /*---*/
  53.              SAVRSTOBJ  OBJ(&ODOBNM) +
  54.                           LIB(QGPL) +
  55.                           RMTLOCNAME(TARGETSYSTEM) +
  56.                           OBJTYPE(*FILE) +
  57.                           MBROPT(*ALL) +
  58.                           ALWOBJDIF(*ALL) +
  59.                           RSTLIB(TARGETLIB)
  60.  
  61.              MONMSG     MSGID(CPF0000) +
  62.                           EXEC(DO)
  63.                 SNDUSRMSG  MSG('SAVRST Error') +
  64.                              MSGTYPE(*INFO) +
  65.                              TOMSGQ(*)
  66.              ENDDO
  67.              DLTF       QGPL/&ODOBNM
  68.              GOTO       CMDLBL(LOOP)
  69.  
  70.  
  71.  EOJ:        ENDPGM
  72.  
© 2004-2019 by midrange.com generated in 0.009s valid xhtml & css