Re: Passing Parms to an RPG Program

["Vasant Patel" <vasant.patel@xxxxxxxxxxxx>]

Comments and explaination stated below:---

fafile   UF A E K DISK
fbfile   UF A E K DISK
*******************************************************
dPcustid      s      11                <--------changed line
dcustid        s       100             < --------added  line
*********************************************************
 Mainline

 c     *entry       plist
 c                      parm        Pcustid
 c                      MOVE     Pcustid    custid   <------Added line
 C     custid       chain       afile
 c                  if          not %found
 c          ***************************
 c           ************************
 c                  else
c                  return
 c                  endif


Apply the changes indicated, when invoking the RPG program from command line
Follow the following:

CALL RPGPGM PARM(A0123456789)  where 0123456789 represents number
in this case you will have to left pad with zeros, make sure you have 10
digits after "A"
ie: 0000001234 etc....

All you have to do is define the incoming parameter as a char field in RPG
will receive the value as  char.,
in RPG redefine the field.


Good Luck......!


Vasant




+---
| 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
+---