RE: system(), CALL QCMDEXC

That might work.  Thanks.

Rob Berendt
-- 
Group Dekko Services, LLC
Dept 01.073
PO Box 2000
Dock 108
6928N 400E
Kendallville, IN 46755
http://www.dekko.com





"Joe Pluta" <joepluta@xxxxxxxxxxxxxxxxx> 
Sent by: rpg400-l-bounces@xxxxxxxxxxxx
02/23/2004 03:53 PM
Please respond to
RPG programming on the AS400 / iSeries <rpg400-l@xxxxxxxxxxxx>


To
"'RPG programming on the AS400 / iSeries'" <rpg400-l@xxxxxxxxxxxx>
cc

Fax to

Subject
RE: system(), CALL QCMDEXC






> From: rob@xxxxxxxxx
> 
> Ok, I've tried the following:
>          cmd='SBMJOB CMD(QDOMCLN30 SERVER(' +
>              %trim(ServerName) + ')) JOB(' +
(...)
> 
> And both excp_msg (which comes from the PSDS) and ErrorCPF are equal
to
> CPF0006.  Basically a totally meaningless message.
(...)
> 
> I suppose I could accept this, since the occasion of it would be rare.
And
> dump out some message that "ain't gonna happen, perhaps some propeller
> head could look at the job log to see underlying reason".  Or I could
bop
> up the stack.

Could you use the QCMDCHK to check your command before submitting it?
Build your embedded command string, check it, then build your SBMJOB
string.

Joe

_______________________________________________
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.