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