× The internal search function is temporarily non-functional. The current search engine is no longer viable and we are researching alternatives.
As a stop gap measure, we are using Google's custom search engine service.
If you know of an easy to use, open source, search engine ... please contact support@midrange.com.



Pro's,
This might be a very simple question but I am newbie so here is my question.
I have a small piece of RPGLE code which works great but I want to have
varying length parms. Is it possible? The code that I have right now is as
follows..
*******************************************
    H dftactgrp(*no) actgrp(*new)
     * Define prototype for Java procedure call
    Daccptargs4$main  PR                  STATIC
    D                                     EXTPROC(
    D                                       *JAVA:
    D                                       'accptargs4':
    D                                       'main')
    D                                 O   CLASS(*JAVA:'java.lang.String')
    D                                     DIM(3)
    D                                     CONST
    DString$new       PR              O   EXTPROC(
    D                                       *JAVA:
    D                                       'java.lang.String':
    D                                       *CONSTRUCTOR)
    D                                     CLASS(
    D                                       *JAVA:
    D                                       'java.lang.String')
    D bytes                       1950A    CONST VARYING
    Dargs             S               O   CLASS(
    D                                       *JAVA:
    D                                       'java.lang.String')
    D                                     DIM(3)

    c     *entry        plist
    C                   PARM                    reclst           27
    C                   PARM                    subj              4
    C                   PARM                    msg               4
     /free
       args(1) = String$new(reclst);
       args(2) = String$new(subj);
       args(3) = String$new(msg);
       accptargs4$main(args);
       *INLR = *ON ;
     /end-free
**********************************************

This works great if I do a 'CALL PGM(TESTING/SWR991TEST) PARM(
jakemorkel@xxxxxxxxxxxxxxxx TEST TEST)' which has the first parm length =
27, second parm = 4, third parm = 4. I want to have the first second and the
third parms of varying length so that when I call the program I could give
the first parm as jacobmorkl@xxxxxxxxxxxxxxxx,
matthewsparks@xxxxxxxxxxxxxxxx,...etc. Is this possible? Any guidance in
this matter would be much appreciated.

Thanks in advance,

Jake.

As an Amazon Associate we earn from qualifying purchases.

This thread ...

Follow-Ups:

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

This mailing list archive is Copyright 1997-2024 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].

Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.