Re: CPYTOIMPF isn't writing the correct ccsid

Please excuse the duplicate post. I have posed this on System i Network.
I haven't
received a solution. I have people waiting for this to be fixed. It has
been working
fine for months and all of a sudden started giving me garbage.

I'm copying files to the IFS within a program. I'm using:
'CPYTOIMPF ' +
'FROMFILE(ENVELOPE) '+
'TOSTMF('''+
%Trim(Path)+
%TRIM(LastFirst)+
'.xml'') '+
'MBROPT(*REPLACE) '+
'TOCCSID(819) '+
'RCDDLM(*CRLF) '+
'DTAFMT(*FIXED)'

I'm getting garbage characters in the PC file.
The file does not exist before the copy.
I'm running in v4r4
The AS/400 file is ccsid 37
When I do a WRKLNK the PC file shows it's 37.
I originally had this working by not specifying TOCCSID at all.
I have tried TOCCSID(1208) and 1252
I'm in the United States
Because I'm running v4r4 I don't have the parameter STMFCODPAG(*PCASCII)
or the STMFCCSID parameter available.

I think code page 819 is the correct one. I don't understand why the code
page ends
up at 37 on the PC file and doesn't change like I ask it to.

The input file (ENVELOPE) is externally described so I can't use CPYTOSTMF.

Thanks,

Gary
--
This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing list
To post a message email: MIDRANGE-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/midrange-l
or email: MIDRANGE-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/midrange-l.