I was writing a COBOL program which receive its operational parameters in JSON format but happens than when I started to test I started to get this message:

IGZ0339W During execution of the JSON PARSE statement on line 23 of program XXXX, the value of JSON name/value pair
with name "XXXX" at offset 999 was found to be incompatible with the matching data item.

So I tried the example programs from here: https://www.ibm.com/docs/en/cobol-zos/6.4.0?topic=input-handling-json-arrays but they gave me the same result.

Have you used JSON PARSE with object arrays successfully?

Any help appreciated!

I was writing a COBOL program which receive its operational parameters in JSON format but happens than when I started to test I started to get this message:

IGZ0339W During execution of the JSON PARSE statement on line 23 of program XXXX, the value of JSON name/value pair
with name "XXXX" at offset 999 was found to be incompatible with the matching data item.

So I tried the example programs from here: https://www.ibm.com/docs/en/cobol-zos/6.4.0?topic=input-handling-json-arrays but they gave me the same result.

Have you used JSON PARSE with object arrays successfully?

Any help appreciated!

I was writing a COBOL program which receive its operational parameters in JSON format but happens than when I started to test I started to get this message:

IGZ0339W During execution of the JSON PARSE statement on line 23 of program XXXX, the value of JSON name/value pair
with name "XXXX" at offset 999 was found to be incompatible with the matching data item.

So I tried the example programs from here: https://www.ibm.com/docs/en/cobol-zos/6.4.0?topic=input-handling-json-arrays but they gave me the same result.

Have you used JSON PARSE with object arrays successfully?

Any help appreciated!

Hello Sergio,

As Roy mentioned it would be good to share some code to get help ;)

Also adding some tips to what Jeffery explained :

• find the ccsid and use encoding in the parse
  • 77 W-CCSID                     PIC 9(5).
  • EVALUATE function                                            
                     HEX-OF(theJsonToBeParsed(1:1))
     WHEN '43'             (swedish)                                      
       MOVE 278 to W-CCSID                                       
       DISPLAY 'message is EBCDIC.' W-CCSID                   
     WHEN '7B'              (utf-8)                                     
       MOVE 1208 to W-CCSID                                      
       DISPLAY 'message is UTF8.' W-CCSID                     
     WHEN OTHER                                               
        DISPLAY 'message can not be parsed unknown ccsid '
              ' first chars are -->' function HEX-OF(theJsonToBeParsed(1:50))
           '<--'
     END-EVALUATE                                              
    
    
  • Parse the message fist without "WITH DETAIL" and if it goes wrong (ON EXCEPTION) parse it again WITH DETAIL. Doing so you will avoid having a huge sysout if it goes fine but will get all the parsing details if it goes wrong
    JSON PARSE theJsonToBeParsed             
         INTO theWorkingStoragePlace
         ENCODING W-CCSID                                        
         NAME REQUEST              IS OMITTED                    
          REQappId                IS 'appId'                     
          ....
          CONVERTING REQshowIssues FROM BOOLEAN              
                         USING REQshowIssues-flag                
                    ALSO REQFL-AM FROM BOOLEAN                   
                         USING REQFL-AM-flag                     
            .....
     ON EXCEPTION                                                
             ADD 1 TO PARSE-KO                                         
             DISPLAY 'Parse msg went wrong'                            
             JSON PARSE theJsonToBeParsed             
                    INTO theWorkingStoragePlace
                    WITH DETAIL
                    ENCODING W-CCSID                                        
                     NAME REQUEST              IS OMITTED                    
                     REQappId                IS 'appId'                     
                      ....
                     CONVERTING REQshowIssues FROM BOOLEAN              
                         USING REQshowIssues-flag                
                    ALSO REQFL-AM FROM BOOLEAN                   
                         USING REQFL-AM-flag                     
                     .....
                 ON EXCEPTION                                                
                      ADD 1 TO PARSE-KO                                         
                      DISPLAY 'Parse msg went wrong'                            
                      PERFORM errorAndStop
                 NOT ON EXCEPTION                   
                     ADD 1 TO PARSE-OK               
                     DISPLAY 'Parse msg went ok'      
            END-JSON                                      
     NOT ON EXCEPTION                   
        ADD 1 TO PARSE-OK               
       DISPLAY 'Parse msg went ok'      
    END-JSON                                       

Hope it helps

/Loic

I was writing a COBOL program which receive its operational parameters in JSON format but happens than when I started to test I started to get this message:

IGZ0339W During execution of the JSON PARSE statement on line 23 of program XXXX, the value of JSON name/value pair
with name "XXXX" at offset 999 was found to be incompatible with the matching data item.

So I tried the example programs from here: https://www.ibm.com/docs/en/cobol-zos/6.4.0?topic=input-handling-json-arrays but they gave me the same result.

Have you used JSON PARSE with object arrays successfully?

Any help appreciated!

Hi Guys,

This is the code I used:

Driver program:

Hello Sergio,

As Roy mentioned it would be good to share some code to get help ;)

Also adding some tips to what Jeffery explained :

• find the ccsid and use encoding in the parse
  • 77 W-CCSID                     PIC 9(5).
  • EVALUATE function                                            
                     HEX-OF(theJsonToBeParsed(1:1))
     WHEN '43'             (swedish)                                      
       MOVE 278 to W-CCSID                                       
       DISPLAY 'message is EBCDIC.' W-CCSID                   
     WHEN '7B'              (utf-8)                                     
       MOVE 1208 to W-CCSID                                      
       DISPLAY 'message is UTF8.' W-CCSID                     
     WHEN OTHER                                               
        DISPLAY 'message can not be parsed unknown ccsid '
              ' first chars are -->' function HEX-OF(theJsonToBeParsed(1:50))
           '<--'
     END-EVALUATE                                              
    
    
  • Parse the message fist without "WITH DETAIL" and if it goes wrong (ON EXCEPTION) parse it again WITH DETAIL. Doing so you will avoid having a huge sysout if it goes fine but will get all the parsing details if it goes wrong
    JSON PARSE theJsonToBeParsed             
         INTO theWorkingStoragePlace
         ENCODING W-CCSID                                        
         NAME REQUEST              IS OMITTED                    
          REQappId                IS 'appId'                     
          ....
          CONVERTING REQshowIssues FROM BOOLEAN              
                         USING REQshowIssues-flag                
                    ALSO REQFL-AM FROM BOOLEAN                   
                         USING REQFL-AM-flag                     
            .....
     ON EXCEPTION                                                
             ADD 1 TO PARSE-KO                                         
             DISPLAY 'Parse msg went wrong'                            
             JSON PARSE theJsonToBeParsed             
                    INTO theWorkingStoragePlace
                    WITH DETAIL
                    ENCODING W-CCSID                                        
                     NAME REQUEST              IS OMITTED                    
                     REQappId                IS 'appId'                     
                      ....
                     CONVERTING REQshowIssues FROM BOOLEAN              
                         USING REQshowIssues-flag                
                    ALSO REQFL-AM FROM BOOLEAN                   
                         USING REQFL-AM-flag                     
                     .....
                 ON EXCEPTION                                                
                      ADD 1 TO PARSE-KO                                         
                      DISPLAY 'Parse msg went wrong'                            
                      PERFORM errorAndStop
                 NOT ON EXCEPTION                   
                     ADD 1 TO PARSE-OK               
                     DISPLAY 'Parse msg went ok'      
            END-JSON                                      
     NOT ON EXCEPTION                   
        ADD 1 TO PARSE-OK               
       DISPLAY 'Parse msg went ok'      
    END-JSON                                       

Hope it helps

/Loic

I was writing a COBOL program which receive its operational parameters in JSON format but happens than when I started to test I started to get this message:

IGZ0339W During execution of the JSON PARSE statement on line 23 of program XXXX, the value of JSON name/value pair
with name "XXXX" at offset 999 was found to be incompatible with the matching data item.

So I tried the example programs from here: https://www.ibm.com/docs/en/cobol-zos/6.4.0?topic=input-handling-json-arrays but they gave me the same result.

Have you used JSON PARSE with object arrays successfully?

Any help appreciated!

I was writing a COBOL program which receive its operational parameters in JSON format but happens than when I started to test I started to get this message:

IGZ0339W During execution of the JSON PARSE statement on line 23 of program XXXX, the value of JSON name/value pair
with name "XXXX" at offset 999 was found to be incompatible with the matching data item.

So I tried the example programs from here: https://www.ibm.com/docs/en/cobol-zos/6.4.0?topic=input-handling-json-arrays but they gave me the same result.

Have you used JSON PARSE with object arrays successfully?

Any help appreciated!