RE: Moving data to the IFS -- MIDRANGE-L

Bill, I may have an idea. But first, another finding - if the numeric field has an even number of digits, 2 spaces are added. Plus the space for the sign. Yikes!

But the good news - use the CPY command twice. This assumes that you have no packed fields, and that there are no negative values in the numeric columns.

First, copy the PF to a stream file in *BINARY format, keeping the CCSID of your job (probably 37, EBCDIC).

CPY OBJ('/qsys.lib/yourlib.lib/yourfile.file/yourmbr.mbr') TOOBJ('testebcdic.txt') FROMCCSID(*JOBCCSID) TOCCSID(*JOBCCSID) DTAFMT(*BINARY)

Second, copy the resulting stream file to the final ASCII format - *PCASCII is Windows, *STDASCII is DOS - using *TEXT format. CPY OBJ('testebcdic.txt') TOOBJ('testascii.txt') FROMCCSID(*OBJ) TOCCSID(*PCASCII) DTAFMT(*TEXT)

In these examples the stream files are in my home directory.

You can add REPLACE(*YES) to either command, if needed.

If you have negative numbers, the last digit will not be a number, since the left-hand half-byte is where the sign is kept. E.g., -7 comes through as the letter P.

This double-clutch gets around the need to use a source PF when DTAFMT(*TEXT) is set.

HTH
Vern

At 09:33 AM 10/15/2004, you wrote:

That's what I thought, but how do I get a 7/0 filed to transfer as 7/0.

-----Original Message-----
From: midrange-l-bounces@xxxxxxxxxxxx
[mailto:midrange-l-bounces@xxxxxxxxxxxx] On Behalf Of Vernon Hamberg
Sent: Friday, October 15, 2004 9:38 AM
To: Midrange Systems Technical Discussion
Subject: Re: Moving data to the IFS


Bill

I wonder if this is for the sign. If all your values are non-negative,
you'll have a blank in there, and a minus sign otherwise.

Maybe?
Vern

At 07:28 AM 10/15/2004, you wrote:
>I'm having a problem moving data to the IFS and having the record
>layout of the IFS file match its source file in DB2/400.  This is the
>scenario: I have a file in DB2/400 that has to be moved to a PC
>shareable drive.  For security reasons we do not want to FTP the file.
>If I use the CPYTOIMPF command alpha fields move fine but numeric
>fields have an additional byte added to them (In DB2/400 the field is
>defined 11 bytes with 0 decimal positions zoned) and when it gets to
>the IFS the record layout is shifted 1 byte for each numeric field
>sent. If I copy the DB2/400 file data to a source file and use the
>CPYTOSTMF command, the resulting file is shifted one byte. Any
>suggestions?
>
>Bill Erhardt
>Baldwin Hardware
>
>
>
>-----------------------------------------
>This message was scanned for viruses.
>--
>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 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 message was scanned for viruses.

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