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

Why not just use the SQL CHAR function? I can't remember off hand if the
CHAR function will include a sign. But even if it doesn't you could write a
SELECT CASE to place the sign to the right of the number.

Am I missing something?

Jeff

On Mon, Dec 14, 2009 at 3:01 PM, Luis Rodriguez <luisro58@xxxxxxxxx> wrote:

Timothy,

Sorry, I forgot to tell you that you have to define the same start
position for both fields, in order to have them overlap. Right now I
don't quite remember the exact position of that parameter (I'm at
home), but the F4 prompt should help you with that.

Regards,


Luis Rodriguez
IBM Certified Systems Expert — eServer i5 iSeries



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

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

--
This is the RPG programming on the IBM i / System i (RPG400-L) mailing

list

To post a message email: RPG400-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/rpg400-l.

--
This is the RPG programming on the IBM i / System i (RPG400-L) mailing list
To post a message email: RPG400-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/rpg400-l.