RE: CPYFRMIMPF/STMF adding x'00's -- MIDRANGE-L

Jack,

Looks like the file is being written as a Unicode file.

Make sure the CCSID set on the IFS stream file reflects this (probably need to have it as CCSID 1200)

HTH,

Charles Wilt
--
Software Engineer
CINTAS Corporation - IT 92B
513.701.1307

wiltc@xxxxxxxxxx

-----Original Message-----
From: midrange-l-bounces@xxxxxxxxxxxx [mailto:midrange-l-
bounces@xxxxxxxxxxxx] On Behalf Of Jack Prucha
Sent: Tuesday, May 27, 2008 1:13 PM
To: midrange-l@xxxxxxxxxxxx
Subject: CPYFRMIMPF/STMF adding x'00's

I'm trying to move a .csv file from the IFS to a DB file. The output
from
CPYFRMSTMF & CPYFRMIMPF has x'00's as the 1st character of each record and
other x'00's added after each character. This is an example of what I
see
on the iSeries:

* 5 * / * 2 * 1 * / * 2 * 0 * 0 * 8 * *
00F5006100F200F1006100F200F000F000F8004000

The results are the same for all data types - dates, numbers, text.

This is one of the many CPYFRMSTMF statements I've tried:
CPYFRMSTMF FROMSTMF(DepositDetailAll.csv)
TOMBR('/QSYS.LIB/JJPDTA.LIB/UPDCFILE2.FILE/UPDCFILE2.MBR')
MBROPT(*REPLACE)
STMFCODPAG(1252) DBFCCSID(37) ENDLINFMT(*LF)

The file is produced by a 3rd party windows package we use. A report
option in the package produces a list of records in .csv format onto a
mapped IFS drive. I've tried both CPYFRMSTMF and CPYFRMIMPF using every
codpag and ccsid mentioned in this forum. Notepad and Excel read the file
without any problem. Using one of Scott Klement's examples, I wrote an
RPG ILE program to read the IFS file and write it to the DB output file -
no difference either. Using debug I could see the x'00's in the input
file.

I'm sure I can write something to strip the hex zeroes out, but why can't
I
just copy the file without them?

TIA
Jack

--
This email, including any documents, files, or previous email messages
attached to it, has been sent from an email account of College Foundation
Inc., (CFI) and may contain confidential, proprietary, or legally
privileged information belonging to CFI. If you are not the intended
recipient, any dissemination, distribution, or copying of this email or
its attachments is strictly prohibited. If you have received this email
in error, please immediately notify the sender by email and destroy the
original email and any attachments.

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

This e-mail transmission contains information that is intended to be confidential and privileged. If you receive this e-mail and you are not a named addressee you are hereby notified that you are not authorized to read, print, retain, copy or disseminate this communication without the consent of the sender and that doing so is prohibited and may be unlawful. Please reply to the message immediately by informing the sender that the message was misdirected. After replying, please delete and otherwise erase it and any attachments from your computer system. Your assistance in correcting this error is appreciated.