RE: Error on compile

["Tyler, Matt" <mattt@xxxxxxxxxxxxxx>]

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.