I'm a bit late to the party, but here is another take on this. Most of my clients have FTP locked down, so I am unable to use the FTP method from my PC.
Instead, I use CPY (both ways)
https://www.ibm.com/support/pages/how-copy-save-file-ifs-library
--------------------------------------------
CRTSAVF FILE(SJL/MYSAVF1) TEXT('Save file sent to IFS')
--------------------------------------------
SAVLIB LIB(SJL) DEV(*SAVF) SAVF(SJL/MYSAVF1)
53 objects saved from library SJL.
--------------------------------------------
DSPSAVF FILE(SJL/MYSAVF1)
Display Saved Objects
Library saved . . . . . . . : SJL
Type Options, press Enter.
5=Display
Opt Object Type Attribute Owner Size (K) Data
SJL *LIB PROD SJL 152 YES
$$DRQJ *SRVPGM CLE SJL 56 YES
$$NXTR *SRVPGM CLE SJL 56 YES
CVTDAT *SRVPGM RPGLE SJL 140 YES
GOODCHARS *SRVPGM CLE SJL 56 YES
MATH *SRVPGM CLE SJL 40 YES
CVTDAT *MODULE RPGLE SJL 108 YES
MATH *MODULE CLE SJL 24 YES
PCOUNTER *MODULE RPGLE SJL 76 YES
PJDEUDC1 *MODULE RPGLE SJL 112 YES
MYSAVF1 *FILE SAVF SJL 5 YES
MYSAVF2 *FILE SAVF SJL 24 YES
HSTDEMAND *FILE PF SJL 88156 YES
(+40 other objects)
--------------------------------------------
CPY OBJ('/qsys.lib/SJL.LIB/MYSAVF1.file') TODIR('/SJL')
FROMCCSID(37) TOCCSID(37) DTAFMT(*BINARY) REPLACE(*YES)
Object copied.
--------------------------------------------
DSPLNK OBJ('/SJL/MYSAVF1.FILE')
Display Object Links
Directory . . . . : /SJL
Type options, press Enter.
5=Display 8=Display attributes 9=Display authority
Opt Object link Type Attribute Text
MYSAVF1.FILE STMF SAVF Save file sent to IFS
--------------------------------------------
(Note that the CCSID of the IFS file is 37)
DSPATR OBJ('/SJL/MYSAVF1.FILE')
Display Attributes
Object . . . . . . : /SJL/MYSAVF1.FILE
Text . . . . . . . . . . . . . . . . . : Save file sent to IFS
Type . . . . . . . . . . . . . . . . . : STMF
Type attribute . . . . . . . . . . . . : SAVF
Owner . . . . . . . . . . . . . . . . : SJL
System object is on . . . . . . . . . : Local
Auxiliary storage pool . . . . . . . . : 1
Object overflowed . . . . . . . . . : No
Coded character set ID . . . . . . . . : 37
Hidden file . . . . . . . . . . . . . : No
PC system file . . . . . . . . . . . . : No
Read only . . . . . . . . . . . . . . : No
--------------------------------------------
I then logged in to the IFS from Windows via
NetServer and copied MYSAVF1.FILE from
the IFS folder \SJL folder to my laptop.
on my laptop I then renamed it as MYSAVF2.FILE and copied it
back to the IFS via the NetServer file share.
--------------------------------------------
Note that MYSAVF2.FILE has CCSID 1252 after
coming back from the Windows file system:
DSPATR OBJ('/SJL/MYSAVF2.FILE')
Display Attributes
Object . . . . . . : /SJL/MYSAVF2.FILE
Type . . . . . . . . . . . . . . . . . : STMF
Owner . . . . . . . . . . . . . . . . : SJL
System object is on . . . . . . . . . : Local
Auxiliary storage pool . . . . . . . . : 1
Object overflowed . . . . . . . . . : No
Coded character set ID . . . . . . . . : 1252
Hidden file . . . . . . . . . . . . . : No
PC system file . . . . . . . . . . . . : No
Read only . . . . . . . . . . . . . . : No
Need to archive (PC) . . . . . . . . . : Yes
Need to archive (System) . . . . . . . : Yes
--------------------------------------------
CHGATR OBJ('/SJL/MYSAVF2.file') ATR(*CCSID) VALUE(37)
--------------------------------------------
CRTSAVF FILE(SJL/MYSAVF2) TEXT('Save file from IFS back to system')
CPY OBJ('/SJL/MYSAVF2.file')
TOOBJ('/qsys.lib/SJL.LIB/MYSAVF2.file')
FROMCCSID(37) TOCCSID(37) REPLACE(*YES)
Object copied.
--------------------------------------------
DSPSAVF FILE(SJL/MYSAVF2)
Library saved . . . . . . . : SJL
Type Options, press Enter.
5=Display
Opt Object Type Attribute Owner Size (K) Data
SJL *LIB PROD SJL 144 YES
$$DRQJ *SRVPGM CLE SJL 56 YES
$$NXTR *SRVPGM CLE SJL 56 YES
CVTDAT *SRVPGM RPGLE SJL 140 YES
GOODCHARS *SRVPGM CLE SJL 56 YES
MATH *SRVPGM CLE SJL 40 YES
CVTDAT *MODULE RPGLE SJL 108 YES
MATH *MODULE CLE SJL 24 YES
PCOUNTER *MODULE RPGLE SJL 76 YES
PJDEUDC1 *MODULE RPGLE SJL 112 YES
HSTDEMAND *FILE PF SJL 88156 YES
IMAITM *FILE PF SJL 52 YES
IMDSC1 *FILE PF SJL 128 YES
(+40 other objects)
--------------------------------------------
Regards,
Steve Landess
(512) 289-0387
midrange.com
