|
There is no space between your CMD(CALL PGM(INVMARGIN)PARM should be CMD(CALL PGM(INVMARGIN) PARM 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 12:20 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 Ok, I am totally lost now LOL.....I do believe that I still need to keep each parm deliminited which is what I have been doing. Here is what it looks like, which at least to me looks correct: > 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 ' ' On Mon, 18 Jul 2005 12:12:22 -0230, RPower wrote > 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. > > -- > 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 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.