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

As a one off, you could run a query over the file using the numeric edits
you want and send the output to a spool file.  Then use Ops Nav to send the
spool file to a text file.  Doesn't sound like a real good candidate for
automation, though.  Copying the spool file to a flat file might work.

> -----Original Message-----
> From: Goodbar, Loyd (AFS-Water Valley)
> [mailto:LGoodbar@afs.bwauto.com]
> Sent: Wednesday, November 06, 2002 9:40 AM
> To: 'midrange-l@midrange.com'
> Subject: RE: AS/400 app FTPs file to IFS???
>
>
> I come close with this SQL:
>
> select
> cast('AAAA' as char(4)) concat
> cast(char(-11.23) as char(11)) concat
> cast('Some text' as char(20)) concat
> x'0d25'
> from QSYS2/QSQPTABL
>
> gives
>
> String Expression
> AAAA-11.23     Some text           <crlf>
>
> Substitute your file and field names...
> I didn't see how to right jusify the number, however...
>
> Once this works, you could to a CPYTOSTMF as suggested.
>
> HTH,
> Loyd
>
>
> -----Original Message-----
> From: Dan [mailto:dbcemid@yahoo.com]
> Sent: Wednesday, November 06, 2002 10: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
>
> _______________________________________________
> 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.
>
NOTICE:
All e-mail sent to or from this e-mail address will be received or otherwise
recorded by The Sharper Image corporate e-mail system and is subject to
archival, monitoring, review by and/or disclosure to Sharper Image security
and other management. This message is intended only for the use of the
addressee and may contain information that is privileged and confidential.
The contents of this message may contain personal views which are not the
views of The Sharper Image. If you are not the intended recipient,
dissemination of this communication is prohibited.