RE: Error on compile

Can you copy and paste the cmd into the command line and see if it runs 
then?
This is not making much sense because it should be working.  You don't 
happen to have another copy of INVMARGIN out there that's causing the 
issue?
Go to your command line and paste:
CALL PGM(INVMARGIN) PARM('AA' '06/01/2005' '06/30/'2005')
and see what happens...

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 01:24 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






The reason I did not use a CL program was because there are some routines 
I 
need to run, 1. verify the user has access to the data, set the parameters 

for what data is extracted, etc.

I suppose I can have the original rpgle do that and then call the cl 
program, and let it submit the job......but it still would have been nice 
to 
figure out how to do it from within rpgle.

On Mon, 18 Jul 2005 09:42:29 -0600, Tyler, Matt wrote
> Douglas,
>                I would like to see the dump entry of CMD.  The one shown 
here does
> not look right.  By the way, if you submit to a CL program, you have 
> to pass ALL parameters, unless you want to add CEE* code to obtain 
> the information about parameters passed Very technical and prone to 
> errors, IMO.
> 
>                SBMJOB CMD(CLPGMA PARM('1' '2' '07/18/2005' 
'ABCDEFGHIJKMNOP'))
> JOB(CLPGMA)
> 
>                To reduce your level of frustration, I would also suggest 
creating a
> submitting CL program that receives your parameters and then runs 
> the SBMOJB command.
> 
>                PGM  PARM(&CODE &TYPE &DATE &DATA)
>                ...
>                Dcl's left out intentionally
>                ...
>                SBMJOB CMD(CLPGMA PARM(&CODE &TYPE &DATE &PRM4)) 
JOB(CLPGMA)
>                ENDPGM
> 
> Thank you,
> Matt Tyler
> WinCo Foods, LLC
> mattt@xxxxxxxxxxxxxx
> 
> -----Original Message-----
> From: rpg400-l-bounces@xxxxxxxxxxxx 
[mailto:rpg400-l-bounces@xxxxxxxxxxxx]
> On Behalf Of Douglas W. Palme
> Sent: Monday, July 18, 2005 9:28 AM
> To: RPG programming on the AS400 / iSeries
> Subject: RE: Error on compile
> 
> Yeah, I noticed that as well, and changed it, however it still keeps 
> telling
> 
> me that I am not passing enough parameters.  Talk about frustrating LOL
> 
> On Mon, 18 Jul 2005 16:12:40 +0100, Saunders, Martin P wrote
> > There should be a space between '(INMARGIN)' and 'PARM'.
> > 
> > HTH
> > 
> > Martin
> > 
> > -----Original Message-----
> > From: rpg400-l-bounces@xxxxxxxxxxxx [mailto:rpg400-l-
bounces@xxxxxxxxxxxx]
> > On Behalf Of Douglas W. Palme
> > Sent: 18 July 2005 15:50
> > To: RPG programming on the AS400 / iSeries
> > 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   '                    '
> > 
> > This message contains information that may be privileged or 
> > confidential and is the property of the Capgemini Group. It is 
> > intended only for the person to whom it is addressed. If you are not 
> > the intended recipient,  you are not authorized to read, print,
> >  retain, copy, disseminate,  distribute, or use this message or any 
> > part thereof. If you receive this  message in error, please notify 
> > the sender immediately and delete all  copies of this message.
> > 
> > -- 
> > 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.