|
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
As an Amazon Associate we earn from qualifying purchases.
This mailing list archive is Copyright 1997-2024 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].
Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.