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

Timothy,

Glad to be of help, although, checking your email's web site last
night with my daughter (7), I wonder: Did you finally got all the
little cows (calves) in a row :-)

Merry Christmas!

Luis Rodriguez
IBM Certified Systems Expert — eServer i5 iSeries



On Tue, Dec 15, 2009 at 10:47 AM, Timothy Adair <tadair@xxxxxxxxxxxxxxxx> wrote:

Luis,

That was it!  I finally got all the little ducks in a row, as in:

  D                 ds
  D Num                  1      4p 4
  D CharF                  1      4

Then set Num = My7digitnum

BINGO!

Then I can write the CharF field to the program-described file as a packed
number, using SQL.


Thank you to everyone who responded.


Merry Christmas to all!  And to all a good "write"!

TA




"Luis Rodriguez" <luisro58@xxxxxxxxx> wrote in message
news:mailman.3148.1260831697.31599.rpg400-l@xxxxxxxxxxxxxxx
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.