Enabling suppression of null valued decimal numbers in JSON generate

We have a use case where we sometimes need to return a decimal value of 0.00 in a JSON, and sometimes need to return without that value(suppressed).

We do not believe that we currently are able to do that.

We move low-values to a decimal variable, and json generate with a suppress on low-values.

The current result is that the program terminates with a 0C7 error during the json generate statement, because the variable contains low-values.

We believe that should be handled by the suppress, no matter the compiler options used.

Example program:

CBL NSYMBOL(NATIONAL)                                               
ID DIVISION.                                                       
PROGRAM-ID.         Example.                                       
ENVIRONMENT DIVISION.                                              
CONFIGURATION SECTION.                                             
SPECIAL-NAMES.                                                     
    DECIMAL-POINT IS COMMA.                                        
DATA DIVISION.                                                     
*-----------------------------------------------------------------  
WORKING-STORAGE SECTION.                                           
*-----------------------------------------------------------------  
                                                                   
01       JSON-UTF        NATIONAL PIC N(2048) VALUE SPACES.        
01       JSON-len        PIC S9(9).                                
01       JSON-X          PIC X(2048).                              
                                                                   
01       event.                                                    
  05     account.                                                  
    10   account-balance1         pic s9(15)v9(2) usage display.   
    10   account-balance2         pic s9(15)v9(2) usage display.   
                                                                   
*-----------------------------------------------------------------  
PROCEDURE DIVISION.                                                
*-----------------------------------------------------------------  
                                                                   
    move zero to account-balance1                                  
    move low-values to account-balance2(1:)                        
                                                                   
    JSON GENERATE JSON-UTF FROM event COUNT IN JSON-LEN            
       SUPPRESS when low-values                                    
                                                                   
    END-JSON                                                       
    MOVE FUNCTION DISPLAY-OF (JSON-UTF(1:JSON-LEN))                
      TO JSON-X                                                    
    display JSON-X                                                 
    goback                                                         
    .                                                              
                                                                   
*-----------------------------------------------------------------