CPYFRMPCD QUESTION.

Silenus paparias

unread,

Dec 15, 2011, 1:47:08 AM12/15/11

to

hello.

if i do a CPYTOPCD i use the following cmd :

CPYTOPCD FROMFILE(ATTLIB/SNDMSAPF) TOFLR('T24') TODOC(SNDMSAPF.TXT) +
REPLACE(*YES) TRNTBL(QUSRSYS/Q875BFA94)

This command works very fine and that is what i need.

the cmd-backwards:

CPYFRMPCD FROMFLR('T24') TOFILE(ATTLIBT/RCVMSAPF)
FROMDOC(RCVMSAPF.TXT) +
MBROPT(*REPLACE) TRNTBL(*DFT)

Results with a IWS1603 error Message . . . . : PC document copied
to file with 1 truncated records.
dsppfm(ATTLIBT/RCVMSAPF) tells me that 1 row are copied from about 50
rows.

(I can upload this txt file with CA transfer without problem to the
physical file.)

I think that the TRNTBL(*DFT) is wrong and i dont know which can i
use?
SystemValues( QCHRID) are: Characte ID: 925 and Code Page :875
SystemValue(QLANGID) are : ELL
Code Charset of the RCVMSAPF : 875

thanks for any help.

CRPence

unread,

Dec 15, 2011, 11:32:31 PM12/15/11

to

On 14-Dec-2011 22:47 , Silenus paparias wrote:
>
> if I do a CPYTOPCD I use the following cmd :

>
> CPYTOPCD FROMFILE(ATTLIB/SNDMSAPF) TOFLR('T24') TODOC(SNDMSAPF.TXT)

> REPLACE(*YES) TRNTBL(QUSRSYS/Q875BFA94)
>
> This command works very fine and that is what I need.

>
> the cmd-backwards:
>
> CPYFRMPCD FROMFLR('T24') TOFILE(ATTLIBT/RCVMSAPF)

> FROMDOC(RCVMSAPF.TXT) MBROPT(*REPLACE) TRNTBL(*DFT)
>
> Results with error IWS1603 "PC document copied to file with 1
> truncated records. DSPPFM (ATTLIBT/RCVMSAPF) tells me that 1 row are

> copied from about 50 rows.
>
> (I can upload this txt file with CA transfer without problem to the
> physical file.)
>

> I think that the TRNTBL(*DFT) is wrong and I don't know which can I

> use?
>
> SystemValues( QCHRID) are: Characte ID: 925 and Code Page :875
> SystemValue(QLANGID) are : ELL
> Code Charset of the RCVMSAPF : 875
>

I have little recollection of those deprecated features, but I wonder
if the same TRNTBL() is capable for specification bi-directional; i.e.
specifying Q875BFA94 for both requests might effect a [well, as close as
possible to, given the BF=Best-Fit which implies some data loss is
defined for one direction] round-trip translation, first from EBCDIC
CP00875 to ASCII CP01253, and then the reverse? Or does the reverse
direction *TBL need to be created? I have no access to try, and a quick
read of the help text was of no help.

A document\technote describing something about these commands and the
Default translate table suggests INZPCS sets [presumably already been
run and already set] the default, and that default is recorded in the
"data area named QINZPCSDA in library QUSRSYS". There is also mention
of creating a custom table, though not the specifics for how to assign
values. Two links to the "same" KB item Reference # 9442158:
_Data Transfer: CPYTOPCD and CPYFRMPCD Translation Commands_
http://www-912.ibm.com/s_dir/slkbase.NSF/0/12e85b1a6c09ed63862565c2007caa92?OpenDocument
https://www.ibm.com/support/docview.wss?uid=nas112e85b1a6c09ed63862565c2007caa92

I wonder if replacing those requests with CPYTOSTMF and CPYFRMSTMF
might suffice, using the Stream file code page (STMFCODPAG) parameter to
identify that the data should become or is in Code Page 1253.?

The database file can have or be specified to have or store the data
with CCSID 875 [using Database file CCSID (DBFCCSID) parameter].

Regards, Chuck

CRPence

unread,

Dec 16, 2011, 4:23:44 AM12/16/11

to

On 14-Dec-2011 22:47 , Silenus paparias wrote:

> <<SNIP>>

Something of value may be found in the message thread:

_Subject: Polish character_
http://archive.midrange.com/midrange-l/200503/threads.html#00760

Also of possible interest, code page information:

http://www-01.ibm.com/software/globalization/cp/cp00875.html
http://www-01.ibm.com/software/globalization/cp/cp01253.html
http://www-01.ibm.com/software/globalization/cdra/appendix_g.html#ISO-8%20to%20EBCDIC

Regards, Chuck