Change job to log all

[DeadManWalks]

hi

I have a VB app that issues the following statements;

'log all commands in the ISeries job
Statement = "CALL QSYS.QCMDEXC('CHGJOB LOG(4 00 *SECLVL) LOGCLPGM(*YES)' ,0000000039.00000)"
ISeriesConn.Execute Statement
....
'Call program that tests locks the file
Statement = "CALL " + ProgramLibrary + ".FOR87001CL('FORSFR    ')"
ISeriesConn.Execute Statement 

Now when i look at the QZDASOINIT job that is running, I see all the steps that are being performed. When the job ends and I look at the job log, I only see the job completion message. My intention was to have all events logged.

Thanks