Re: CPYTOSTMF and Codepage problem

Steve,

I use this code from a RPG program to utilituze code page information.

#cmdfld = 'cpytostmf frommbr(''' +
'/qsys.lib/qtemp.lib/tipcpnipdf.file/tipcpnipdf.mbr'') ' +
'tostmf(''/tmp/tipcpnipdf' +
#co# +
'.pdf'') ' +
'stmfopt(*replace) ' +
'stmfcodpag(1252)';

I have seen that even if the file already existed with a different code
page attribute, that the code page information would be changed to reflect
the new code page.

Nick W. Mart

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
--

Steve Moland
Access Paths Inc
12 Parmenter Rd Unit C4
Londonderry NH 03053
steve@xxxxxxxxxxx





--
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.