COBOL JSON PARSE

COBOL JSON PARSE

JSON PARSE processes JSON documents into COBOL data structures.

Syntax

```cobol JSON PARSE json-document INTO data-structure [NAME OF item-1 IS json-name-1...] [SUPPRESS item-1] [WITH DETAIL] [ON EXCEPTION imperative] [NOT ON EXCEPTION imperative] END-JSON. ```

Basic Example

```cobol JSON PARSE WS-JSON INTO WS-CUSTOMER END-JSON. ```

NAME Clause

Map JSON names to COBOL names: ```cobol NAME OF CUST-ID IS 'customer_id' ```

WITH DETAIL

Provides detailed status in JSON-STATUS register when parsing fails.

JSON-STATUS Register

• 0: Success
• Non-zero: Error (check JSON-CODE)

Error Handling

```cobol JSON PARSE ... ON EXCEPTION DISPLAY 'JSON Error: ' JSON-CODE END-JSON. ```

       IDENTIFICATION DIVISION.
       PROGRAM-ID. JSON-PARSE-DEMO.
       DATA DIVISION.
       WORKING-STORAGE SECTION.
       01 WS-JSON PIC X(100) VALUE
           '{"id":"C001","name":"ACME"}'.
       01 WS-CUSTOMER.
           05 CUST-ID PIC X(5).
           05 CUST-NAME PIC X(20).
       PROCEDURE DIVISION.
           JSON PARSE WS-JSON INTO WS-CUSTOMER
               NAME OF CUST-ID IS 'id'
                      CUST-NAME IS 'name'
               ON EXCEPTION
                   DISPLAY 'JSON Parse Error: ' JSON-CODE
           END-JSON
           DISPLAY 'ID: ' CUST-ID
           DISPLAY 'Name: ' CUST-NAME
           STOP RUN.