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

I'm still fairly new to SQL but I believe the CHAR function returns a character representation of the number. If my number (7,4) is 123.4567, CHAR would return '123.4567' (hex x'F1F2F34BF4F5F6F7'). What I need is hex x'1234567F'.

Luis came up with the answer I needed, but thank you. I appreciate all responses.

TA





"Tech Guru" <techguru@xxxxxxxxxxxx> wrote in message news:mailman.3239.1260888089.31599.rpg400-l@xxxxxxxxxxxxxxx
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.