Author: Marso
Posted: Mon Jan 02, 2017 5:47 pm (GMT 5.5)
To suppress the IKJ56250I message:
JOB XYZABCDE(JOB11111) SUBMITTED
you must use OUTTRAP. Here is an example:
To suppress the end-of-job message:
JOB11111 $HASP165 XYZABCDE ENDED AT MYSITE MAXCC=0000
is even easier: don't put a NOTIFY in the JOB card.
Posted: Mon Jan 02, 2017 5:47 pm (GMT 5.5)
To suppress the IKJ56250I message:
JOB XYZABCDE(JOB11111) SUBMITTED
you must use OUTTRAP. Here is an example:
| Code: |
| Call OutTrap(wSub.) "SUBMIT '"JobSrce"'" Ret = RC Call OutTrap('OFF') If Ret <> 0 Then Do Say 'Submit failed with RC='Ret Do Ix = 1 To wSub.0 Say wSub.Ix End Exit Ret End Parse Var wSub.1 . 'JOB' JobName '(' JobNum ')' . JobName = Strip(JobName) |
To suppress the end-of-job message:
JOB11111 $HASP165 XYZABCDE ENDED AT MYSITE MAXCC=0000
is even easier: don't put a NOTIFY in the JOB card.