Hi,

gearde nochmal mit einem kleinen Progrämmchen auf einem V5R4 und auf einem V7R1 System probiert

PHP-Code:
danum             s              3  0    
dx                s              1       
                                         
C/EXEC SQL                               
C+ select dec(10000, 3, 0) into :aNum    
c+ from sysibm/sysdummy1                 
C/END-EXEC                               
                                         
c     'sqlcod'      dsply                
                                         
 *                                       
c                   Eval      *INLR = *ON 
Beide Systeme liefern den SQLCOD im Debugger
SQLCOD = -000000802.

Gruß
Michael