Automated ending of subsystem jobs on AS400

jeffmac

Member
Basically all you need to do is create a source file with the SQL statement:

update SVM7333/F986113
SET SSOPCR = 'W' , SSJOBPTY = '0'
WHERE SSJOBSTS = 'S';

Then in your CL program call this using RUNSQLSTM

Tried it this weekend and it works great! I actually pulled the logic from P986113. This allows JDE to end the job in the same way as clicking END SUBSYSTEM JOBS.
 
Back
Top