ADDLIBLE LPAR2RRD LPAR2RRD/END_SYSSTS GO MENU --> 50 Subsystem LPAR2RRD is not active
CHGUSRPRF USRPRF(LPAR2RRD) PASSWORD(<password>) CHGUSRPRF USRPRF(LPAR2RRD) JOBD(QGPL/QDFTJOBD)
CHKOBJ OBJ(QGPL/LPAR2RRD) OBJTYPE(*FILE)
CLRSAVF FILE(QGPL/LPAR2RRD) CLRLIB LIB(LPAR2RRD)
CRTSAVF FILE(QGPL/LPAR2RRD) TEXT('LPAR2RRD Client')
GRTOBJAUT OBJ(QSYS/QPMLPFRD) OBJTYPE(*PGM) USER(LPAR2RRD) AUT(*use) GRTOBJAUT OBJ(QSYS/QPMWKCOL) OBJTYPE(*PGM) USER(LPAR2RRD) AUT(*use)
ftp <as400.server.com> Connected to as400. 220-QTCP at 192.168.177.50. 220 Connection will close if idle more than 5 minutes. Name (as400.server.com:lpar2rrd): lpar2rrd 431 Requested security mechanism not available at this time. 331 Enter password. Password: 230 LPAR2RRD logged on. Remote system type is . ftp> bin ftp> cd qgpl ftp> put LPAR2RRD.savf LPAR2RRD local: LPAR2RRD.savf remote: LPAR2RRD 200 PORT subcommand request successful. 150 Sending file to member LPAR2RRD in file LPAR2RRD in library QGPL. 226 File transfer completed successfully. 3590400 bytes sent in 0.41 secs (9007.2 kB/s)
DSPSAVF FILE(QGPL/LPAR2RRD) OUTPUT(*) LPAR2RRD *LIB PROD LPAR2RRD 152 YES ACCEPTFREE *PGM CLE LPAR2RRD 176 YES ...
RSTLIB SAVLIB(LPAR2RRD) DEV(*SAVF) SAVF(QGPL/LPAR2RRD) MBROPT(*ALL) ALWOBJDIF(*ALL) 35 object restored from LPAR2RRD to LPAR2RRD.
CHGJOBD JOBD(LPAR2RRD/LPAR2RRD) JOBQ(LPAR2RRD/LPAR2RRD) TEXT('RTV_SYSSTS') USER(LPAR2RRD) RQSDTA(*NONE) INLLIBL(LPAR2RRD QGPL QTEMP)After this command see LPAR2RRD *JOBD object in restored LPAR2RRD library.
CHGUSRPRF USRPRF(LPAR2RRD) JOBD(LPAR2RRD/LPAR2RRD)
CHGCMDDFT CMD(LPAR2RRD/RTV_SYSSTS) NEWDFT('IPADR(LPAR2RRD-SERVER.SERVER.COM)')
CHGCMDDFT CMD(LPAR2RRD/RTV_SYSSTS) NEWDFT('IPADR(''192.168.1.2'')')
CHGUSRPRF USRPRF(LPAR2RRD) PASSWORD(*NONE)
ADDLIBLE LPAR2RRD GO MENU Select: 14 Accept Software Licensing Agreement ➞ page down ➞ F14 Accept OK:CL_ACCEPT Expiration date of this client is 2017-06-25
ER: RTV_SYSSTS: frp.HASH512not not correct. ER: RTV_SYSSTS: Please revalidate i5/OS client from MENU option F14. ER: RTV_SYSSTS: i5/OS client ended.Agent is licensed to free use for 1 year. You will have to re-accept license in the same way next year.
CHGJOBD JOBD(LPAR2RRD/LPAR2RRD) TEXT('RTV_SYSSTS') RQSDTA(*NONE) RMVAJE SBSD(LPAT2RRD/LPAR2RRD) JOB(LPAR2RRD) ADDLIBLE LPAR2RRD GO MENU Option 1. Set up parameters to start client as RTV_SYSSTS (opt.10) Accept all default parameters for command CHGJOBD and RMVAJE. Option 10. RTV_SYSSTS
CHGJOBD JOBD(LPAR2RRD) TEXT('STRSBS SBSD(LPAR2RRD/LPAR2RRD)') RQSDTA('RTV_SYSSTS') ADDAJE SBSD(LPAR2RRD/LPAR2RRD) JOB(LPAR2RRD) JOBD(LPAR2RRD/LPAR2RRD) ADDLIBLE LPAR2RRD GO MENU Option 2. Set up parameters to start client as STRSBS LPAR2RRD (option 11) Accept all default parameters for command CHGJOBD and ADDAJE. Option 11. STRSBS LPAR2RRD
GO MENU Select: Option 50
IF: C_SNDSTS - connection Established()
PING RMTSYS('LPAR2RRD-SERVER.SERVER.COM') Verifying connection to host system LPAR2RRD-SERVER.SERVER.COM at address 192.168.1.2. Connection verification statistics: 5 of 5 successful (100 %).
TELNET RMTSYS('LPAR2RRD-SERVER.SERVER.COM') PORT(8162) RMTUSER(TESTSTRING) INZWAIT(15) Connecting to remote host 192.168.1.2 using port 8162
ADDLIBLE LPAR2RRD GO MENU start: 10. RTV_SYSSTS ➞ Enter ➞ Enter stop: 13. END_SYSSTS ➞ Enter ➞ Enter