Re: Wrap numeric fields in double quotes with CPYTOIMPF?

In the past we have used a utility from DBG400 that creates CSV files with a number of options for delimiters and field terminators.

You may still be able to find it here:

http://www.dbg400.net/foswiki/bin/view/DBG400/CrtCsvDta

I'm not sure what your policy is on using utilities downloaded from the web, but it might be worth a look

Matt


date: Fri, 20 Oct 2017 15:40:37 -0400
from: "Art Tostaine, Jr." <atostaine@xxxxxxxxx>
subject: Re: Wrap numeric fields in double quotes with CPYTOIMPF?

You can make an intermediate with all alpha fields and CPYF *NOCHK to it.

If they are packed numeric then you need to write a quick conversion.

I'd just write a program to create the CSV. It's so simple and you avoid CPYTOIMPF crapping out on you some day.

Read input record or SQL read
output = %trim(field1) + ',' + %trim(%editc(field2:'Z')) + ','..... etc.
write output
read
end



Art

On Fri, Oct 20, 2017 at 3:16 PM, Bob Cagle <bcagle@xxxxxxxxxxx> wrote:

I'm starting to work with a cloud EDI provider and they've asked me to
provide them data in a specific format - a comma separated text file,
with each field wrapped in double quotes:

"xx", "123" etc...

I've been playing with CPYTOIMPF and it's working, except for the
numeric fields. I've done some googling and I'm not finding anything.
Is there a way to make CPYTOIMPF wrap numeric fields in double quotes?

Thanks

Bob Cagle
IT Manager
Lynk

--
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: https://lists.midrange.com/mailman/listinfo/midrange-l
or email: MIDRANGE-L-request@xxxxxxxxxxxx Before posting, please take
a moment to review the archives at
https://archive.midrange.com/midrange-l.

Please contact support@xxxxxxxxxxxx for any subscription related
questions.

Help support midrange.com by shopping at amazon.com with our affiliate
link: http://amzn.to/2dEadiD

--
Art Tostaine