Re: Write packed number to program-described file using imbedded SQL -- RPG400-L

× The internal search function is temporarily non-functional. The current search engine is no longer viable and we are researching alternatives.
As a stop gap measure, we are using Google's custom search engine service.
If you know of an easy to use, open source, search engine ... please contact support@midrange.com.

Subject: Re: Write packed number to program-described file using imbedded SQL
From: "Timothy Adair" <tadair@xxxxxxxxxxxxxxxx>
Date: Mon, 14 Dec 2009 15:30:21 -0600
List-archive: <http://archive.midrange.com/rpg400-l>
List-help: <mailto:rpg400-l-request@midrange.com?subject=help>
List-id: RPG programming on the IBM i / System i <rpg400-l.midrange.com>
List-post: <mailto:rpg400-l@midrange.com>
List-subscribe: <http://lists.midrange.com/mailman/listinfo/rpg400-l>, <mailto:rpg400-l-request@midrange.com?subject=subscribe>
List-unsubscribe: <http://lists.midrange.com/mailman/listinfo/rpg400-l>, <mailto:rpg400-l-request@midrange.com?subject=unsubscribe>

I tried that but the Char field always ends up with blanks (x'40').

TA

"Luis Rodriguez" <luisro58@xxxxxxxxx> wrote in message news:mailman.3087.1260825419.31599.rpg400-l@xxxxxxxxxxxxxxx
Timothy,

Not near an iSeries right know but, What happens if you define your
packed number in a DS, along a char field, something like:

MYDS DS
CharF 04
Num 04 0

Move your data to Num and then Move CharF to your program described file?

HTH,

Luis Rodriguez
IBM Certified Systems Expert — eServer i5 iSeries

On Mon, Dec 14, 2009 at 4:22 PM, Timothy Adair <tadair@xxxxxxxxxxxxxxxx> wrote:

Am I just having a massive brain-cramp on this one? How do you write a
packed number (7,4 - 4 bytes long) to a program-described file using
imbedded SQL? Defining the field as packed in RPG doesn't help because the
program still considers it as if it were unpacked (i.e. 123.4567).

Please don't ask why I would want to do this - I'm in a situation where
there are few options.

Help? (My main has turned to brush.)

As an Amazon Associate we earn from qualifying purchases.

Follow-Ups:

Re: Write packed number to program-described file using imbedded SQL , Luis Rodriguez

This mailing list archive is Copyright 1997-2024 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].

Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.