Re: Dumb Question O-Day

Thanks Bob, that has me on the right track now. I could not figure out
how to get those QUOTE's correct.




"Bob P. Roche" <BRoche@xxxxxxxxxxxxxxxxx>
Sent by: rpg400-l-bounces@xxxxxxxxxxxx
06/21/2007 11:44 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






CmdString = "SBMJOB CMD(CALL PGM(HPMODS/CO774B) PARM(' + QUOTE +
%trim(path) + QUOTE+ ' ' + QUOTE + %trim(printer) + QUOTE + ')
USER(IXAADMIN)';

SystemCmd(CmdString:%len(%trim(CmdString);

quote is defined in D specs as a constant X'7D'.


This assumes that path and printer are both alphanumeric parms.
.



sjones@xxxxxxxxxxxxxx
Sent by: rpg400-l-bounces@xxxxxxxxxxxx
06/21/2007 10:32 AM
Please respond to
RPG programming on the AS400 / iSeries <rpg400-l@xxxxxxxxxxxx>


To
rpg400-l@xxxxxxxxxxxx
cc

Subject
Dumb Question O-Day






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