Another CPYTOIMPF question

[Frank.Kolmann@xxxxxxxxxx]

Hi Steve,
I dont know what you are doing wrong.
But I do what you are trying, the following is the code I use.
DoCmd is a QCMDEXC prodecure.


*  Here transfer remaining data
C                   Eval      cmd = 'CPYTOIMPF FROMFILE(RDSCLX00) +
C                                TOFILE(RDSCLX) MBROPT(*ADD) STRDLM(*NONE)'
C                   Eval      *IN99 = DoCmd(cmd : %len(cmd))
 *  Here transfer to folders
C                   Eval      cmd = 'CPYTOSTMF FROMMBR(''/QSYS.LIB/'+
C                             %trim(lib) +
C                             '.LIB/RDSCLX.FILE/RDSCLX.MBR'') +
C                             TOSTMF(''qdls/'+MAPP+'/claims/rdsclx.csv'') +
C                             STMFOPT(*REPLACE) STMFCODPAG(*PCASCII)'
C                   Eval      *IN99 = DoCmd(cmd : %len(cmd))
HTH Frank Kolmann

>From: "Steve Landess" <steve_landess@hotmail.com>
>Folks -This is driving me nuts!  I have been playing around with the
CPYTOIMPF >command, trying to familiarize myself with its use.
>My AS/400 system is a 170, V5R1M0, TL02134.  The CCSID of the system
(QCCSID) is 37.  >The CCSID of the CUSMST file is 37.  The CCSID of all
character fields within CUSMST >is 37.
>I have been trying to use the CPYTOIMPF command to copy the CUSMST file
directly to a >folder on my W2K server, like this:
>CPYTOIMPF FROMFILE(SJL001/CUSMST) >TOSTMF
('/QNTC/w2kserver/w2ksvr/Downloads/BUBBA/CUSMST') STMFCODPAG(*PCASCII)
>RCDDLM(*CRLF)
>This fails....
>
>Here are the mesages in the job log:
>
>Ownership of object QCPEXTEMPS in QTEMP type *USRSPC changed.

>File QACP007985 created in library QTEMP.

>Member QACP007985 added to file QACP007985 in QTEMP.

>Ownership of object QACP007985 in QTEMP type *USRSPC changed.

>Ownership of object QACEXFLD12 in QTEMP type *USRSPC changed.

>CCSID conversion could not be performed.

>No records copied from file CUSMST in SJL001.

>Object QACP007985 in QTEMP type *FILE deleted.

>Copy command ended because of error.

>If I do this:
>CPYTOIMPF FROMFILE(SJL001/CUSMST) TOSTMF('/SERVERS/CUSMST') MBROPT
(*REPLACE)
>RCDDLM(*CRLF)
>(where /SERVERS is a folder in the IFS)
>Then do this:
>CPY OBJ('/SERVERS/CUSMST') TODIR('/QNTC/w2kserver/w2ksvr/Downloads/BUBBA')
>FROMCCSID(1252)
>TOCCSID(*CALC) REPLACE(*YES)
>It copies the file to the target directory, but when I view it (at least
from the >AS/400 by browsing it thru the IFS) it looks like garbage...
>Steve Landess
>Austin, Texas
>(512) 423-0935