RE: AS/400 app FTPs file to IFS???

["Booth Martin" <Booth@xxxxxxxxxxxx>]

Would Edit Code N  be of any use?


---------------------------------------------------------
Booth Martin   http://www.MartinVT.com
Booth@MartinVT.com
---------------------------------------------------------

-------Original Message-------

From: midrange-l@midrange.com
Date: Wednesday, November 06, 2002 11:29:21 AM
To: midrange-l@midrange.com
Subject: RE: AS/400 app FTPs file to IFS???

A followup: The representation of negative numbers is a problem. The
negative sign must float on the left of the number. I.e.:

AS/400 file (CODE=4A, AMOUNT=8,2S, DESC=20A)
CODE AMOUNT DESC
<--><------><------------------>
AAAA00012378just a test
BBBB0000987Rthis has a neg amt.
CCCC00000001just a penny

Required resulting pc text file:
AAAA 123.78just a test <crlf>
BBBB -98.79this has a neg amt. <crlf>
CCCC .01just a penny <crlf>

Note that the <crlf> is fixed after the entire description field.

Unless someone has an idea, it's looking more like an RPG program and
using John Carr's "write-to-IFS" RPG solution.

Still hoping, Dan

--- Dan <dbcemid@yahoo.com> wrote:
> Well, hallelujah!

>

> Now, tell me where you got the REPLACE parameter from. This wasn't

> allowed on my v4r5 box. Is there a PTF for it? This isn't a killer;

> I

> can attempt to delete the file before I run CPY to it.

>

> Now I just need to find out what they want me to do with negative

> numbers. <sigh>

>

> Thanks, Dan

>

> --- Vern Hamberg <vhamberg@centerfieldtechnology.com> wrote:

> > Dan

> >

> > Try the CPY command, as in

> >

> > CPY OBJ('/qsys.lib/kielbasa.lib/smtrdbio.file/dbldio.mbr')

> > TOOBJ('dbldio.txt') TOCCSID(*JOBCCSID) REPLACE(*YES)

> >

> > That created an exact copy for me, not even a record delimiter. You

> > could

> > change the TOCCSID to *PCASCII or *STDASCII, if needed.

> >

> > Vern


__________________________________________________
Do you Yahoo!?
HotJobs - Search new jobs daily now
http://hotjobs.yahoo.com/
_______________________________________________
This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing list
To post a message email: MIDRANGE-L@midrange.com
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/cgi-bin/listinfo/midrange-l
or email: MIDRANGE-L-request@midrange.com
Before posting, please take a moment to review the archives
at http://archive.midrange.com/midrange-l.

.