I always create the file and explicitly specify the code page. Run this from
the command line:
QSH CMD('touch -C 819 /CDPREPDVD/tcodepage.dat')
HTH,
Aaron Bartell
http://mowyourlawn.com
-----Original Message-----
From: midrange-l-bounces@xxxxxxxxxxxx
[mailto:midrange-l-bounces@xxxxxxxxxxxx] On Behalf Of Steve Moland
Sent: Wednesday, December 12, 2007 2:14 PM
To: midrange-l@xxxxxxxxxxxx
Subject: CPYTOSTMF and Codepage problem
I have an almost canned process for copy an ISeries file to a PC share
folder using CPYTOSTMF so that once the file is sent on DVD to another site
that it can be added to an existing ISeries file using CPYFRMSTMF. The file
contains mostly binary data so no conversion is desired.
To get the file to the PC I use the following: (This CL is a test process
I'm using today to try to solve the problem)
CPYTOSTMF FROMMBR('qsys.lib/JUNK.lib/tcodepage.file/CATDAT2.mbr')
TOSTMF('/CDPREPDVD/tcodepage.dat')
STMFOPT(*REPLACE) CVTDTA(*NONE) ENDLINFMT(*FIXED)
The PROBLEM is, if there is no existing PC file named "tcodepage.dat" the
copy fails with this message.
CCSID conversion could not be performed.
Object not copied.
So I just create an empty file using any PC file editor and the process
works fine.
In production the copy just uses the previous runs existing file and all the
records are replaced.
Everything works fine until a human gets involved and sometimes clears the
PC folder after burning a DVD.
I'd like to have CPYTOSTMF create a proper file which it says it will do.
the HELP information on STMFOPT fields says it will create a file if the
file is not there. I can not get it to do that and I think I've tried all
the pertinent combination of parameters.
Using DSPFD on the ISeries file yields this CCSID 65535
midrange.com
