Re: Decimal defined field being passed to iseries as negative

[CRPence <crpbottle@xxxxxxxxx>]

  The hex string x'000000123C' is the equivalent of a nine-digit 
packed decimal *positive* number with a value of 000000123, with the 
decimal separator established by the data definition.  Presumably 
the prior two hex digits '00' were omitted from the hex over\under 
data presented.  The hex digit 'F' is the *preferred positive* for 
the i, but the hex digit 'C' is a *valid positive* for the sign 
nibble of a signed packed BCD [Binary Coded Decimal] value.

Regards, Chuck

tim wrote:
> I have a service program that passes a record as follows. The amt
> field has a value of 123 positive.
>
> call "AAW11"(rec_info);
>
> Record rec_info
> 10 data char(733);
> 20 refer char(9);
> 20 ac char(12);
> 20 amt decimal(11,2);
> End
>
> When amt gets passed to the iseries, it has a negative value
> 123- (packed) <ed: in apparent over\under hex presentation>:
>
> 00013
> 0002C
>
> Can a decimal field be passed to an iseries program with the
> correct sign?