• Subject: Re: variable parameters
  • From: boothm@xxxxxxx
  • Date: Sat, 24 Jul 1999 11:30:54 -0400

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 thread ...

Follow-Ups:
Replies:

Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2019 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].