Disabled the looging of negative sql codes in the JOBLOG of a JOB

In RGP developments embedding SQL when we encounter a Negative SQL code, even if it is managed in the program, it returns lines in the processing JOBLOG.
So a log of several thousand lines is generated if the program returns a lot of negative SQL code
It would be necessary to be able to disable this logging SQL, without deactivated the rest of the LOG, in order to lighten the log spool file.

In a RPGSQLLE program
If we make an INSERT INTO in a table and we provoke a SQL code -803 (duplicate key)
EXEC SQL
INSERT INTO table(champ1, Champ2,…)
VALUES (:Value1,
:Value2,
…;

SELECT;
When Sqlcode = 0;

when Sqlcode = -803;
EXEC SQL
UPDATE table
SET champ1 = :Value1,…
WHERE Champ1 = :Value1

select;
When Sqlcode = 0;

When Sqlcode = 100;
---
Other;

ENDSL;
When Sqlcode = 100;

Other;

ENDSL;
In joblog's spool of joblog we find
SQL0803 Diagnostic 30 27/11/17 13:49:51,647875 QSQRUN3 QSYS *STMT QSQRUN3 QSYS *STMT
Module d'origine . . . . . : QSQINS
Procédure d'origine . . . . : CLEANUP
Instruction . . . . . . . . : 33233
Module de destination . . . : QSQINS
Procédure de destination . : CLEANUP
Instruction . . . . . . . . : 33233
Message . . . . : La valeur indiquée est incorrecte car elle produirait une
clé en double.
CPF5009 Diagnostic 10 27/11/17 13:49:51,648286 QDBSIGEX QSYS 0FA1 QSQRUN3 QSYS *STMT
Module de destination . . . : QSQINS
Procédure de destination . : SQL_Insert
Instruction . . . . . . . . : 12324
Message . . . . : Clé d'enregistrement en double dans le membre TC_TY00001.
CPF5034 Copie expéditeur 30 27/11/17 13:49:51,648294 QDBSIGEX QSYS 024E QDBSIGEX QSYS 024E
Message . . . . : Clé en double dans chemin d'accès.
CPF5034 Notification 30 27/11/17 13:49:51,648298 QDBSIGEX QSYS 024E QSQRUN3 QSYS *STMT
Module de destination . . . : QSQINS

Thus the generated JOBLOG can make several thousands of lines if there is a lot of code -803 which is useless because it is managed in the program