|
I'm not sure that I understand what you're asking... Do you want to allow the length of an e-mail address to vary from 1-200 characters (for example?)
Or do you want to be able to accept a variable number of addresses?In either case, you can achieve the results by creating a *CMD interface for your program instead of using the CALL command to run it. (What you can do with the CALL command is limited because it doesn't know anything about the program it's calling.)
--- Scott Klement http://www.scottklement.com On Tue, 2 May 2006, Jake M wrote:
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.
--
This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing list
To post a message email: RPG400-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/rpg400-l.
As an Amazon Associate we earn from qualifying purchases.
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.
