Start of change

JSON-CODE

The JSON-CODE special register is used to indicate either that a JSON GENERATE or JSON PARSE statement executed successfully or that an exception occurred during JSON generation or parsing.

The JSON-CODE special register has the implicit definition:

01  JSON-CODE PICTURE S9(9) USAGE BINARY VALUE 0.

When used in nested programs, this special register is implicitly defined with the global attribute in the outermost program.

At termination of a JSON GENERATE or JSON PARSE statement, JSON-CODE contains either zero, indicating successful completion of JSON generation or parsing, or a nonzero error code, indicating that an exception occurred during JSON generation or parsing. JSON GENERATE and JSON PARSE exception codes are detailed in JSON GENERATE exceptions and JSON PARSE conditions and associated codes and runtime messages in the Enterprise COBOL Programming Guide.

related references  
JSON-STATUS
End of change