Re: variable parameters

["Eric N. Wilson" <doulos1@xxxxxxxx>]

Perhaps this gentleman is looking for the C type capabilty of having
parameters like the function printf(char *, ...); the elipses in C means
that any number of paramters may follow 0 to N. If so then RPG currently
does not support this (although I wish it would).

BTW I love the try catch or the Try Catch Finally metaphore used in Delphi
and Java. Perhaps we could get that set up in RPG <hint hint nudge nudge>

______________________________________________
Eric N. Wilson
President
Doulos Software & Computer Services
2913 N Alder St
Tacoma WA 98407


----- Original Message -----
From: <boothm@ibm.net>
To: <RPG400-L@midrange.com>
Sent: Saturday, July 24, 1999 8:30 AM
Subject: Re: variable parameters


> Here is an example I use for testing stuff.  The number of parms is in
> field PARMS#.  In this example, if there is a parm, and the parm value is
> greater than *BLANKS, I use it.  Otherwise I substitute a value so I can
> actually run and debug my program easily.
>
>
>       *      "sds"   is the whole System Data Structure.
>      D                SDS
>      DPARMS#                  37     39S 0
>
*********************************************************************
>       * Purpose of Sub-Routine:
>       *
>      C     *INZSR        BEGSR
>      C     *ENTRY        PLIST
>      C                   PARM                    TMP6A             6
>
>       * if no parm use 18357: (for testing, etc.)
>      C     PARMS#        IFGT      *ZEROS
>      C     TMP6A         ANDGT     *BLANKS
>      C                   MOVE      TMP6A         K1
>      C                   ELSE
>
>      C                   MOVE      '018357'      K1
>      C                   END
>
>      C                   ENDSR
>
*********************************************************************
>
>
>
> In <19990724114703.45059.qmail@hotmail.com>, on 07/24/99
>    at 04:47 AM, "Vishal Gupta" <vishgupta@hotmail.com> said:
>
> >Hi,
>
> >Can we pass variable number of parameters in RPG/400 OR ILE RPG. If Yes ,
> >then HOW.
>
> >Thanks,
> >Vishal.
>
> >______________________________________________________
> --
> -----------------------------------------------------------
> boothm@ibm.net
> Booth Martin
> -----------------------------------------------------------
>
> * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
> * This is the RPG/400 Discussion Mailing List!  To submit a new         *
> * message, send your mail to "RPG400-L@midrange.com".  To unsubscribe   *
> * from this list send email to MAJORDOMO@midrange.com and specify       *
> * 'unsubscribe RPG400-L' in the body of your message.  Questions should *
> * be directed to the list owner / operator: david@midrange.com          *
> * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
>

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
* This is the RPG/400 Discussion Mailing List!  To submit a new         *
* message, send your mail to "RPG400-L@midrange.com".  To unsubscribe   *
* from this list send email to MAJORDOMO@midrange.com and specify       *
* 'unsubscribe RPG400-L' in the body of your message.  Questions should *
* be directed to the list owner / operator: david@midrange.com          *
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *