What is system value QCCSID set to on your server? If I were a gambler, I'd bet yours is set to 65535.

That particular value is painful on modern IBM midrange systems, since it makes dealing with import and export data less automatic...

I would also mention that changing that system value seems to be safe for most systems, especially those here in the US, where CCSID 00037 is most common.

For this specific case, you might just try this before your CPYTOIMPF command...

CHGPF FILE(QTEMP/SQLTEMP3) CCSID(037)

-Eric DeLong

-----Original Message-----
From: midrange-l-bounces@xxxxxxxxxxxx [mailto:midrange-l-bounces@xxxxxxxxxxxx] On Behalf Of Stone, Joel
Sent: Wednesday, March 28, 2012 4:53 PM
To: 'Midrange Systems Technical Discussion'
Subject: help with CCSID - how to ensure a file can be successfully sent to root directory using CPYTOIMPF

I am trying to

CPYTOIMPF FROMFILE(QTEMP/SQLTEMP3) TOSTMF(&PATH) +
MBROPT(*ADD) STMFCODPAG(*PCASCII) +
RCDDLM(*CRLF)


This is successful IF the CCSID = 37, but fails if the CCSID is 65535.

Shown below are some files I have been playing with. (fails defined as garbage when opened in MS Excel).


File Library Type Coded
Of Character
File Set Id
QADSPFFD QTEMP P 37
RJSQMQRY QTEMP P 37
SQLTEMP2 QTEMP P 37
SQLTEMP3 QTEMP P 37
SQLTEMP4 QTEMP P 65535
WORKHEADER QTEMP P 37
WORK1WFLDS QTEMP P 37
WORK2WFLDS QTEMP P 65535
X QTEMP P 37





CRTPF rcdlen(3000) will NOT allow CCSID set to 37, it only allows *job.

Even if I force

CHGJOB CCSID(37)

Then

CRTPF FILE(QTEMP/X) RCDLEN(3000)

The CCSID is STILL 65535, which will fail when using CPYTOIMPF.


1) How can I create a file that will be successful with CPYTOIMPF?

2) How can I force a file to be created with CCSID 65535

Thanks!!



______________________________________________________________________
This outbound email has been scanned for all viruses by the MessageLabs Skyscan service.
For more information please visit http://www.symanteccloud.com
______________________________________________________________________

This thread ...

Follow-Ups:
Replies:

Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2019 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].