Re: Dumb Question O-Day

[sjones@xxxxxxxxxxxxxx]

Booth:

You are correct, they are variables & I could just populate the CmdString 
field.  I just copied that from another program we use to override 
printers.

Thanks!!





Booth Martin <booth@xxxxxxxxxxxx> 
Sent by: rpg400-l-bounces@xxxxxxxxxxxx
06/21/2007 11:56 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: Dumb Question O-Day






What I have done is this situation is to enter SBMJOB on the command 
line and F4 it. 
Fill in the parms you need.  Use dummy data so that the SBMJOB will 
fail, if you want. 
Then enter the command. 
Then F9 to retrieve the command, and copy/paste it into your code, 
changing the parms as needed to suit your needs.

That way you have something reliable to work with.

I am guessing that part of the issue is that PATH60 and PRINTER are 
variables?

So you will end up with something like this?

c     eval  CmdString =
c                          'SBMJOB CMD(CALL PGM(HPMODS/C0774B) PARM('
c                            + %trim(PATH60) + ' ' + %trim(PRINTER)
c                            + ')) USER(IXAADMIN)'

Your call to SystemCmd will be something like "SystemCmd(CmdString: 
%len(CmdString))

I am not sure that you need the SubmitJob field that you are using?

sjones@xxxxxxxxxxxxxx wrote:
> OK, today is my turn for the dumb question of the day.
>
> I am trying to eliminate calling the CL program from my RPG program & 
just 
> call the RPG program that is ultimately called.
>
> The CL program is very simple:
>
> SBMJOB     CMD(CALL PGM(HPMODS/C0774B) PARM(&PATH60  &PRINTER)) 
> USER(IXAADMIN) 
>
> C0774B is also pretty simple
>  CALL PGM(HPMODS/R0774B) PARM(&PATH60 &PRINTER)
>
> Currently the RPG program does a Call 'C0744' Parm Path Printer 
>
> I have the QCMDEXEC setup in the RPG program as:
>
>      D SystemCmd       Pr                  ExtPgm('QCMDEXC')
>      D  CmdString                  3000    Options(*VarSize) Const
>      D  CmdLength                    15P 5 Const
>      D  CmdOpt                        3    Options(*NoPass) Const
>      D*
>      D SubmitJob       S            500
>
> What I am struggling with is getting the SubmitJob field setup correctly 

> so that it passes the values in the fields Path & Printer.  Path is a 
> length of 60 printer is length of 10.
>
> Why I want to do this is because it seems that I am getting the 
parameters 
> stepping on each other, as in the printer field is being appended to the 

> end of the path field. 
>
> I will put on the flame-suit & take my lumps today...  :->
>
> Thanks
> Steve Jones
> H-P Products