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.
1 comment
hai i need ATM PROJECT in online processing. justi need only explanation if possible send with program code and explanation.
Post a Comment