RE: Suggestions for Creating Data Files w/Packed Decimals In a Limited Environment

Luis, that works! Takes some layered functions like this:

dec(substr(hex(substr(data, 9, 2)), 1, 3), 3, 0) IB_RLEN_HOLD_CO_NO

but I was able to get the data I needed.

Thanks,
coy

-----Original Message-----
From: midrange-l-bounces@xxxxxxxxxxxx
[mailto:midrange-l-bounces@xxxxxxxxxxxx] On Behalf Of Luis Rodriguez
Sent: Wednesday, 23 June, 2010 11:48 AM
To: Midrange Systems Technical Discussion
Subject: Re: Suggestions for Creating Data Files w/Packed Decimals In a
Limited Environment

What happens if you create a View over the flat file (using CAST) ?

Regards,

Luis Rodriguez
IBM Certified Systems Expert - eServer i5 iSeries
--



On Wed, Jun 23, 2010 at 1:39 PM, Coy Krill <coyk@xxxxxxxxxx> wrote:

I have data file coming over from a zSeries that I need to import some
of the segment data from. The files are zipped and once I determine

the

record length, I am uploading them into an iSeries file with a single
character data field of the appropriate length. After that I want to

use

CPYF to selectively copy different records (the records are of fixed
width, with varying field definitions).



The records I want have packed decimal fields, which is where my

problem

begins. I first created a table using SQL with the appropriate layout,
however, CPYF doesn't seem to want to copy data from the essentially
flat file to the SQL defined table. I can create the file in Query,
however, I can't seem to coerce Query into generating a file with

packed

decimal fields.



Any suggestions for either forcing Query to write packed decimal

fields

or an alternate way of creating a file with the appropriate layout

that

CPYF will accept as a target?



Thanks,

coy

************************************************************************

The information in this e-mail is confidential and may be legally
privileged. It is intended solely for the addressee. Access to
this e-mail by anyone else is unauthorized. If you are not the
intended recipient, any disclosure, copying, distribution or any
action taken or omitted to be taken in reliance on it, is prohibited
and may be unlawful.

***********************************************************************

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