Display “HELLO” Program In CICS

IDENTIFICATION DIVISION. PROGRAM-ID. INDCOB. ENVIRONMENT DIVISION. DATA DIVISION. WORKING-STORAGE SECTION. 77 WS-name PIC X(5). 77 WS...

IDENTIFICATION DIVISION.

PROGRAM-ID. INDCOB.

ENVIRONMENT DIVISION.

DATA DIVISION.

WORKING-STORAGE SECTION.

77 WS-name PIC X(5).

77 WS-LEN PIC S9(4) COMP.

COPY DFHAID.

COPY DFHBMSCA.

COPY INDSET1.

PROCEDURE DIVISION.

MAIN-PARA.

MOVE ‘HELLO’ TO WS-NAME

MOVE 5 TO WS-LEN

EXEC CICS

          SEND TEXT

          FROM(WS-NAME)

         LENGTH(WS-LEN)

     END-EXEC.

      EXEC CICS

           RETURN

      END-EXEC.