Create save-files on the target AS/400:
> CRTSAVF FILE(QGPL/SMTP) File SMTP created in library QGPL. |
Send save-files from Windows95/98/NT/2000/XP command prompt:
C:\>ftp your_as400_hostname Connected to ????. 220-QTCP AT ????. 220 CONNECTION WILL CLOSE IF IDLE MORE THAN 5 MINUTES. User (????:(none)): as400_user_id 331 ENTER PASSWORD. Password:enter_password_for_the_user_id 230 ???? LOGGED ON. ftp> bi 200 REPRESENTATION TYPE IS BINARY IMAGE. ftp> put smtp???.savf qgpl/smtp 200 PORT SUBCOMMAND REQUEST SUCCESSFUL. 150 SENDING FILE TO MEMBER SMTP IN FILE SMTP IN LIBRARY QGPL. 250 FILE TRANSFER COMPLETED SUCCESSFULLY. ftp: 225984 bytes sent in 34.44Seconds 6.56Kbytes/sec. ftp> quit 221 QUIT SUBCOMMAND RECEIVED. |
Go back to the 5250 session to restore objects:
> CRTLIB LIB(SMTP) TEXT('ILE-RPG SMTP client') Library SMTP created. > RSTOBJ OBJ(*ALL) SAVLIB(SMTP) DEV(*SAVF) SAVF(QGPL/SMTP) 5 objects restored from SMTP to SMTP. > DLTF FILE(QGPL/SMTP) Object SMTP in QGPL type *FILE deleted. > CHGCURLIB CURLIB(SMTP) Current library changed to SMTP. > STRREXPRC SRCMBR(MAKE)
|
[Home]