system(), CALL QCMDEXC

[rob@xxxxxxxxx]

Ok, I've tried the following:
         cmd='SBMJOB CMD(QDOMCLN30 SERVER(' +
             %trim(ServerName) + ')) JOB(' +
             %trim(%subst(ServerName:1:10)) + ') JOBD(' +
             %trim(RtvDomSvrDS.SbsLib) + '/' +
             %trim(RtvDomSvrDs.SbsName) + ') USER(*JOBD)';
         cmdLen=%len(%trim(cmd));
         callp(e) qcmdexc(cmd : cmdlen);
         select;
         When excp_msg<>*blanks;
           If system(cmd)<>*zeros;
             dsply ErrorCPF;
           EndIf;

And both excp_msg (which comes from the PSDS) and ErrorCPF are equal to 
CPF0006.  Basically a totally meaningless message.  What would matter to 
me is CPD0030.  That way I don't have to 'assume' that it was because of 
CPD0030.  Perhaps it was an authority issue, etc.

In order in which they appear in the joblog:
CPD0030-Diagnostic-Command QDOMCLN30 in library *LIBL not found. 
CPD0099-Diagnostic-Previous 1 errors found in embedded command QDOMCLN30.
CPF0001-Escape-Error found on SBMJOB command. 
CPF0006-Escape-Errors occurred in command. 

If I create a command, and mess up the security, I get:
Not authorized to command QDOMCLN30 in library *LIBL. 
Previous 1 errors found in embedded command QDOMCLN30.
Error found on SBMJOB command. 
Errors occurred in command. 

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.

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