AS400 SAV-RESTORE using Save File

-




Save the files FILE1 and FILE2 from Library SLIB to the save file SAVF in TSAVLIBin the source system.

SAVOBJ OBJ(FILE1 FILE2) LIB(SLIB) DEV(*SAVF) SAVF(TSAVLIB/SAVF)

Then in the Source system Use FTP to put the Content of Save File (TSAVLIB/SAVF) to a save file (TSAVLIB2/SAVF) in the destination system.

FTP SYSTEM1
PUT TSAVLIB/SAVF TSAVLIB2/SAVF
(Get in Destination System wont run sometimes hence always used PUT)

Once FTP is complete. Restore Objects

RSTOBJ OBJ(*ALL) SAVLIB(SLIB) DEV(*SAVF) SAVF(TSAVLIB2/SAVF) MBROPT(*ALL) RSTLIB(DESTLIB)


When restoring make sure the library is a separate library (Create a New)because this restore will clear and restore the object so you will lose whatever in the restoring library. It is safe clear the library first so that you dont let the system clear it and you can backup whatever you want to keep.

---------------------------------------------------------------------------

Save 2 members (/More than 2) from 2 files into save file.


SAVOBJ OBJ(CBLSRC DDSSRC) LIB(SRCLIB) DEV(*SAVF) SAVF(SAVOBJLIB/SAVF) FILE
MBR((DDSSRC (PGM1DSPF)) (CBLSRC (PGM1CO))) OUTMBR(*FIRST *ADD)         
2 objects saved from library SAVOBJLIB. 0 objects not included.           



Comments

Post a Comment

Popular posts from this blog

AS400 : Add a new line in text in email SNDSMTPEMM

-
Declare  ** NAMED CONSTANTS FOR CARRIAGE RETURN  Which will move the control to next line                      D CR              C                   CONST(X'0D')                  //0->Zero D vSepj           S              1    Inz('/')   D vQot            S              1    INZ('''')  DRunCommand       PR                  extpgm('QCMDEXC')                D pCommand                    2560    const                            D pCmdLength                    15  5 const                            D pCommand        S           2560                                     D pCmdLength      S             15  5 inz(2560)                        pComdse  = 'SNDSMTPEMM RCP(' + %Trim(vpToAdr) + %Trim(vpCcAdr) +                       %Trim(vpBccAdr)  + ') SUBJECT(' +                                            %Trim(vpSubject) + ')';        vpContent = ‘TEST’;                      vpContent = %Trim(vpConten
Read more

AS400 Display: Radio Button (SNGCHCFLD)

-
Radio button can be added to the AS400 Display. In the below code we have added a Radio button with 2 option 'Today' or 'Tomorrow' DSPF: A            OPTION         2Y 0B  3 42SNGCHCFLD           A                                      CHOICE(1 'Today')   A                                      CHOICE(2 'Tomorrow') The OPTION can be used used in RPG program as PGM:   If Option =  1 ;                    Msg = 'Today';               ElseIf Option = 2 ;                Msg = 'Tomorrow';           EndIf;                            
Read more

AS400 Display File: Check Box (MLTCHCFLD)

-
Check box can be added to the AS400 Display using the Multi Choice Field. Each Choice in the MLTCHCFLD should have a Choice control defined as below. These Choice Control can be used in the Program logic. A            MOPT           2Y 0B  3 58MLTCHCFLD               A                                      CHOICE(1 'Shipment')     A                                      CHOICE(2 'Transfer')     A                                      CHOICE(3 'Ship to ')     A                                      CHOICE(4 'Model')       A                                      CHCCTL(1 &CHC1)         A                                      CHCCTL(2 &CHC2)         A                                      CHCCTL(3 &CHC3)         A                                      CHCCTL(4 &CHC4)         A            CHC1           1Y 0H                               A            CHC2           1Y 0H                               A            CHC3           1Y 0
Read more