IDENTIFICATION DIVISION.
       PROGRAM-ID. HBM-ADMIN.
      *
       DATA DIVISION.
       WORKING-STORAGE SECTION.
       01  URL-STRING          PIC X(100) 
           VALUE "http://backend:3000/api/actors/update".
       01  JSON-PAYLOAD        PIC X(200).
       01  RESULT-CODE         PIC S9(9) BINARY.
      *
       PROCEDURE DIVISION.
       MAIN-LOGIC.
           MOVE "Gimli" TO JSON-PAYLOAD.
           DISPLAY "Calling API for: " JSON-PAYLOAD.
           
           CALL "send_actor_update" USING BY REFERENCE URL-STRING
                                          BY REFERENCE JSON-PAYLOAD
                                    RETURNING RESULT-CODE.
                                    
           IF RESULT-CODE = 1
               DISPLAY "Update successful!"
           ELSE
               DISPLAY "Update failed."
           END-IF.
           
           STOP RUN.