RE: Unsigned Numbers

[Scott Mildenberger <Smildenber@xxxxxxxxxxxx>]

Look at this FAQ http://faq.midrange.com/data/cache/57.html

If you are going to call from the command line then they should be defined
as 15,5 or better yet wrap the call with a *CMD.

Scott Mildenberger

> -----Original Message-----
> From: Bill [mailto:billzbubb@subdimension.com]
> Sent: Friday, January 17, 2003 10:41 AM
> To: RPG400-L@midrange.com
> Subject: Unsigned Numbers
> 
> 
> I have a program where I'd like to feed, as a parameter, an 
> unsigned number.  For some reason, I can't figure out how to 
> do it.  I thought I could use field type S, zoned-decimal, 
> but that doesn't work.
> 
> Here's what I do now:
>  D cInAction       S              1   
>  D cInOrder        S              6   
>  D cInLine         S              3   
> C                   Eval      XORD  = %Uns(cInOrder) 
> C                   Eval      XLINE = %Uns(cInLine)  
> 
> The call: CALL PGM(ORD42A) PARM(D '249196' '001') 
> 
> I'd like to call like this: CALL PGM(ORD42A) PARM(D 249196 001) 
> 
> How would I define the second and third parameters to accomplish this?