Re: Packed decimal parameters

[Vernon Hamberg <vhamberg@xxxxxxxxxxx>]

You can pass packed fields - in QCMDEXC put together a string of all 
the digits with an x in front to make it hexadecimal - and include 
the right sign nybble at the end.

Packed 5 and 2 with value 1.23 would be x'00123F' and I think a D 
instead of F makes it negative. You don't need any decimals, because 
the called program interprets it. So any packed with length 5 would 
be the same.

This works because it is not treated as a number, because of the quotes.

HTH
Vern

At 05:38 PM 5/14/2007, you wrote:

> As a relative babe in the world of RPG I am having trouble calling a 
> program which requires parameters to be passed as packed 
> decimals.  The program I'm trying to call is a vendor's program, so 
> modifying the source is not really an option (I wouldn't want to do 
> it even if I could).  The method I've used to do this type of thing 
> in the past is to use the QCMDEXC api.  Apparently this approach 
> does not allow me to pass packed decimal fields.
>
> First, does anyone see a problem with my diagnosis?  If not, does 
> anyone know of a solution?
>
> Thanks,
>
> Josh
>
> --
> This is the RPG programming on the AS400 / iSeries (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.