RE: Passing Parms to an RPG Program

[Andrew Batch <Andrew@xxxxxxxxxxxxxxxxxxxxxxxxx>]

Numeric values need to be passed as hex....

eg if parm is 7,0 long and has a value of 9, should be passed as
X'0000009F'), total number of characters between the single quotes should
always be even.

CALL PGM(ALIBARY/PROGRAMX) PARM(X'0000009F')

This should do it.

> -----Original Message-----
> From: a b [SMTP:eagle_291@yahoo.com]
> Sent: 23 March 2000 13:15
> To:   RPG400-L@midrange.com
> Subject:      Passing Parms to an RPG Program
> 
> Beginners question:
> 
> I'm attempting to call an RPG application from the
> command line with a parm, but I continue to get an
> error indicating that I have a data decimal error. 
> I'm not quite sure if I'm doing this right or not but
> essentially I'm doing the following:
> 
>  CALL PGM(ALIBARY/PROGRAMX) PARM(9)  
> 
> I need to pass a numeric variable to my RPG program
> that looks like this:
> 
>  
> *******************************************************fafile
>   UF A E K DISK
> fbfile   UF A E K DISK
> *******************************************************dcustid
>     s      10 0                       
>  
> *********************************************************
> Mainline                                              
>                      
> c     *entry       plist
> c                  parm        custid
> 
> C     custid       chain       afile
> c                  if          not %found
> c          ***************************
> c           ************************
> c                  else                   c           
>       return
> c                  endif
> 
> 
> Is this right... or am I missing something that I
> should have?
> 
> 
> Any help would greatly be apprecaited.
> 
> 
> Thanks
> 
> 
> 
> 
> __________________________________________________
> Do You Yahoo!?
> Talk to your friends online with Yahoo! Messenger.
> http://im.yahoo.com
> +---
> | This is the RPG/400 Mailing List!
> | To submit a new message, send your mail to RPG400-L@midrange.com.
> | To subscribe to this list send email to RPG400-L-SUB@midrange.com.
> | To unsubscribe from this list send email to RPG400-L-UNSUB@midrange.com.
> | Questions should be directed to the list owner/operator:
> david@midrange.com
> +---
+---
| This is the RPG/400 Mailing List!
| To submit a new message, send your mail to RPG400-L@midrange.com.
| To subscribe to this list send email to RPG400-L-SUB@midrange.com.
| To unsubscribe from this list send email to RPG400-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---