Re: Issue with SBMJOB command using Atrium
Posted: Tue Aug 26, 2014 12:02 pm
Can you tell us what you found to be the problem? It will be helpful when other people have similar problems.
Code: Select all
*--------------------------------------------------------------------
* Run CL Commands from RPG
*--------------------------------------------------------------------
D QCMDEXC PR ExtPgm('QCMDEXC')
D cmd 32702A const options(*Varsize)
D len 15P 5 const
D igc 3A const options(*nopass)
cmd = 'SBMJOB CMD(CALL PGM(RVCMOVTOM))'+
' JOB(RVCMOVTOM) JOBQ(LONGRUNQ) JOBMSGQFL(*WRAP)' +
' JOBD(QBATCH)' ;
QCMDEXC(%trim(cmd): %len(%trim(cmd)));