Re: Passing Parms to an RPG Program

Try sending it as PARM('9') and then in your program do this:
           C              *ENTRY     PLIST
           C                                 PARM                    PIN        
    10
           C                                 MOVE PIN             POUT        
100


Lewis Libman
llibman@behr.com
714 545 7101 x2118

>>> a b <eagle_291@yahoo.com> Thursday, March 23, 2000 5:15:19 AM >>>
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
+---