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



Well,
Because you are building a literal within the program it's the same as if 
you were going to call the program from the command line.  Basically 
passing the parms as a string instead of the traditional way of calling a 
pgm.

Ron Power
Programmer
Information Services
City Of St. John's, NL
P.O. Box 908
St. John's, NL
A1C 5M2
709-576-8132
rpower@xxxxxxxxxx
http://www.stjohns.ca/
___________________________________________________________________________
Success is going from failure to failure without a loss of enthusiasm. - 
Sir Winston Churchill




"Raby, Steve \(GE Advanced Materials, consultant\)" <steve.raby@xxxxxx> 
Sent by: rpg400-l-bounces@xxxxxxxxxxxx
2005/07/18 12:02 PM
Please respond to
RPG programming on the AS400 / iSeries <rpg400-l@xxxxxxxxxxxx>


To
"RPG programming on the AS400 / iSeries" <rpg400-l@xxxxxxxxxxxx>
cc

Subject
RE: Error on compile






I would have thought that as the called program was expecting 
 
> > C     *ENTRY        PLIST 
> > C                   PARM                    ALPHPARM 
> > C                   PARM                    DSTARTDATE
> > C                   PARM                    DENDDATE


Then shouldn't the call  be something like

SBMJOB CMD(CALL PGM(PGMA) PARM(PARM1 PARM2 PARM3)) 

Of course I know very little about RPGLE SQL and so I may be totally wrong 
but it seems that is what it would expect.


Steve


-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx]On Behalf Of Douglas W. Palme
Sent: 18 July 2005 16:22
To: RPG programming on the AS400 / iSeries
Subject: RE: Error on compile


Does that make a difference? Or am I doing it the right way?

On Mon, 18 Jul 2005 11:50:13 -0230, RPower wrote
> Yes it would, cause he's building a command....
> 
> Ron Power
> Programmer
> Information Services
> City Of St. John's, NL
> P.O. Box 908
> St. John's, NL
> A1C 5M2
> 709-576-8132
> rpower@xxxxxxxxxx
> http://www.stjohns.ca/
> 
___________________________________________________________________________
> Success is going from failure to failure without a loss of 
> enthusiasm. - Sir Winston Churchill
> 
> "Raby, Steve \(GE Advanced Materials, consultant\)" 
> <steve.raby@xxxxxx> Sent by: rpg400-l-bounces@xxxxxxxxxxxx 
> 2005/07/18 11:42 AM Please respond to RPG programming on the AS400 / 
> iSeries <rpg400-l@xxxxxxxxxxxx>
> 
> To
> "RPG programming on the AS400 / iSeries" <rpg400-l@xxxxxxxxxxxx>
> cc
> 
> Subject
> RE: Error on compile
> 
> Aren't the '+'s concatenating it into one field
> 
> -----Original Message-----
> From: rpg400-l-bounces@xxxxxxxxxxxx
> [mailto:rpg400-l-bounces@xxxxxxxxxxxx]On Behalf Of Douglas W. Palme
> Sent: 18 July 2005 16:05
> To: RPG programming on the AS400 / iSeries
> Subject: RE: Error on compile
> 
> Still getting the same error, "Total parameters passed does not 
> match number required".
> 
> When I F1 to get the error description detail, it says that program 
> 1 called program 2 with 1 parameter when a minimum of two and max 3 
> are required.
> 
> I have used the same *entry line with other programs without any 
problem.
> 
> On Mon, 18 Jul 2005 11:27:45 -0230, RPower wrote
> > EVAL      CMD = 'SBMJOB CMD(CALL PGM(INVMARGIN) ' +
> >           'PARM(''' + PARM1 + ''' ' + 
> >           '''' + %CHAR(DSTARTDATE) + ''' ' + 
> >           '''' + %CHAR(DENDDATE) + '''))'
> > 
> > Try that.
> > 
> > Ron Power
> > Programmer
> > Information Services
> > City Of St. John's, NL
> > P.O. Box 908
> > St. John's, NL
> > A1C 5M2
> > 709-576-8132
> > rpower@xxxxxxxxxx
> > http://www.stjohns.ca/
> > 
> 
___________________________________________________________________________
> > Success is going from failure to failure without a loss of 
> > enthusiasm. - Sir Winston Churchill
> > 
> > "Douglas W. Palme" <dpalme@xxxxxxxxxxx> 
> > Sent by: rpg400-l-bounces@xxxxxxxxxxxx
> > 2005/07/18 11:15 AM
> > Please respond to
> > RPG programming on the AS400 / iSeries <rpg400-l@xxxxxxxxxxxx>
> > 
> > To
> > RPG programming on the AS400 / iSeries <rpg400-l@xxxxxxxxxxxx>
> > cc
> > 
> > Subject
> > RE: Error on compile
> > 
> > I have and that part seems to work now, but apparently the way I 
> > have the CMD string structured it is not working correctly.  In 
> > debug mode it tells
> > 
> > me that I am not passing the correct number of parms to the called 
> > program.
> > 
> > The called program has the following plist entry
> > C     *ENTRY        PLIST 
> > C                   PARM                    ALPHPARM 
> > C                   PARM                    DSTARTDATE
> > C                   PARM                    DENDDATE
> > 
> > Which needs three parms and I am, or at least I thought I was 
> > passing three parms with the following code snippet:
> > 
> > EVAL      CMD = 'SBMJOB CMD(CALL PGM(INVMARGIN) ' +
> >           'PARM("' + PARM1 + '" ' + 
> >           '"' + %CHAR(DSTARTDATE) + '" ' + 
> >           '"' + %CHAR(DENDDATE) + '"))'
> > 
> > Do I need to separate the parms with commas? Interestingly enough, 
> > when I F11 on the CMD variable in debug mode it outputs the following:
> > 
> > > EVAL CMD 
> >   CMD =
> > 
> >  ....5...10...15...20...25...30...35...40...45...50...55...60 
> >  1   'SBMJOB CMD(CALL PGM(INVMARGIN) PARM("AA" "06/01/2005" "06/30'
> > 
> >       61   '/2005")) 
> >    '
> > 
> >      121   ' 
> >    '
> > 
> >      181   '                    ' 
> > For some reason it seems to be outputting more single quotes than I 
> > need or thought I was, however any change I make the the eval 
> > statement the compiler in seu balks.  Should I change the double 
> > quotes to single?
> > 
> > On Mon, 18 Jul 2005 09:28:07 -0400, Ali Ekinci wrote
> > > use %char(parm2)
> > > 
> > > -----Original Message-----
> > > From: Douglas W. Palme [mailto:dpalme@xxxxxxxxxxx]
> > > Sent: Monday, July 18, 2005 9:19 AM
> > > To: RPG Group
> > > Subject: Error on compile
> > > 
> > > I have written a program that will submit another rpgle sql program 
> > > to batch mode.....however when I compile I am getting an error 
> > > saying that the operands are not compatible with the type of 
> > operator....
> > > 
> > > Here is the relevant code:
> > > DPARM1            S              2A 
> > >   DPARM2            S               D   DATFMT(*USA) 
> > >     DPARM3            S               D   DATFMT(*USA) 
> > >       DCMD              S            200A 
> > > 
> > **********************************************************************
> > >  *       MAINLINE 
> > > 
**********************************************************************
> > > C                   EXFMT     MAIN 
> > >   C                   IF        *IN12 = *ON 
> > >     C                   EVAL      *INLR = *ON 
> > >       C                   RETURN 
> > >         C                   ELSE 
> > >           C                   MOVE      DBRANCH       PARM1 
> > >             C                   MOVE      DSTARTDATE    PARM2 
> > >               C                   MOVE      DENDDATE      PARM3 
> > >                 C                   EVAL      CMD = 'SBMJOB CMD(CALL 

> > > PGM(INVMARGIN) ' + C                             'PARM("' + PARM1 + 
> > > '" ' +                C                             '"' + PARM2 + '" 

> > > ' + C                             '"' + PARM3 + '"))'
> > > 
> > > The errors refer to PARM2 and PARM3 specifically.  Any suggestions 
> > > would be appreciated.  I have tried everything from the ampersand ( 
> > > & ) to the plus I am now using and nothing seems to make a 
difference.
> > > 
> > > If you bought, it was hauled by a truck - somewhere, sometime.
> > > 
> > > -- 
> > > 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.
> > > 
> > > -- 
> > > 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.
> > 
> > If you bought, it was hauled by a truck - somewhere, sometime.
> > 
> > -- 
> > 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.
> > 
> > -- 
> > 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.
> 
> If you bought, it was hauled by a truck - somewhere, sometime.
> 
> -- 
> 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.
> 
> -- 
> 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.
> 
> -- 
> 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.


If you bought, it was hauled by a truck - somewhere, sometime.


As an Amazon Associate we earn from qualifying purchases.

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