You will need to use the SAV and SAVOBJ and RST and RSTOBJ commands to save and restore all your objects to and from the save file (SAVOBJ and RSTOBJ commands are used for IBM i objects that reside in libraries.)

You can use this example as a starting point for building your own SAV commands.

You need to ensure that the command contains the path and name of the save file you have created, all the files required for your site, and that the path names are correct.

Lansa System root folder name

 Lansa_VFTPGMLIB

Partition                                                 

 EX1

Save file name

 QGPL/B01_IFS

Framework User Object name

 EOM

Language

 ENG

Save your VLF-ONE server objects:

     SAV DEV('/qsys.lib/qgpl.lib/B01_IFS.file')
     OBJ(('/Lansa_vftpgmlib/x_lansa/x_EX1/web/vl/*')('/Lansa_vftpgmlib/x_lansa/x_ex1/execute/EOM_SYSTEM_ENG_VLFONE_Definition.DAT'))

Save the standard VLF server objects:

     SAVOBJ OBJ(@VF_AC001O @VF_AC023 @VF_SY001A UF* @VF_SY001X @VF_SY001S @VF_SW1* @VFUX* @VF_FP501O @VF_AC027O @VF_AC024 @vf_sy178o) LIB(VFTEX1PGM) DEV(*SAVF) SAVF(qgpl/B01_VLF)

Notes:

  • If you wish to enter commands freehand from the command line, use CALL QCMD. Pressing F11 from within QCMD will provide you with space to enter the SAV command with many objects.
  • There may be other SAV parameters that are required. For example TGTRLS (target release).
  • If there is not enough space to specify all the objects you require, you can create more than one save file.
  • Check the save file using the DSPSAVF command (press Enter to display the objects in the subsequent directories until you've reached the end of the file).

This SAV command saves all files named screens.jsn from folder axes/ts/screens and any private working definition sub-folders into a save file named RAMPTSF in library QGPL:

     SAV DEV('/qsys.lib/qgpl.lib/RAMPTSF.file') OBJ(('/axes/ts/screens/')) PATTERN(('screens.jsn'))

Restoring objects

To restore the saved objects to different IFS directory you need to issue one RST command for each saved directory.

The IFS directories would have been created during the VL install.

This RST will restore the objects saved from /Lansa_vftpgmlib/x_lansa/x_EX1/web/vl/* to an IFS folder with the same name in the target machine:

     RST DEV('/qsys.lib/qgpl.lib/B01_IFS.file') OBJ(('/Lansa_vftpgmlib/x_lansa/x_EX1/web/vl/*))                                     

This command one will restore the same objects to a different IFS folder:

     RST DEV('/ qsys.lib/qgpl.lib/B01_IFS.file') OBJ(('/LANSA_VFTPGMLIB/X_LANSA/X_DEM/TEMP_WEB_VL/*' *INCLUDE /LANSA_OTHERLIB/X_LANSA/X_DEM/web/vl/))

This command will restore objects saved from  /Lansa_vftpgmlib/x_lansa/x_EX1/execute/* to a different IFS folder:

     RST DEV('/qsys.lib/qgpl.lib/B01_IFS.file') OBJ(('/LANSA_VFTPGMLIB/X_LANSA/X_EX1/EXECUTE/*' *INCLUDE '/LANSA_VFTPGMLIB/X_LANSA/X_EOM/EXECUTE/')) ALWOBJDIF(*ALL)

This commend will restore the standard Framwork objects:

     RSTOBJ OBJ(*ALL) SAVLIB(VFTEX1PGM) DEV(*SAVF) SAVF(qgpl/B01_VLF) RSTLIB(EOMPGMLIB)
  • No labels