IDENTIFICATION DIVISION. PROGRAM-ID. INDCOB. ENVIRONMENT...
PROGRAM-ID. INDCOB.
ENVIRONMENT DIVISION.
DATA DIVISION.
WORKING-STORAGE SECTION.
77 WS-name PIC X(5).
77 WS-LEN PIC S9(4) COMP.
01 WS-INPUT.
05 WS-TRANSID PIC X(4).
05 FILLER PIC X(1).
05 WS-IN1 PIC 9(2).
05 FILLER PIC X(1).
05 WS-IN2 PIC 9(2).
COPY DFHAID.
COPY DFHBMSCA.
COPY INDSET1.
LINKAGE SECTION.
01 DFHCOMMAREA PIC X(4).
PROCEDURE DIVISION.
MOVE DFHCOMMAREA TO WS-COMMAREA.
MOVE 10 TO WS-LEN.
EXEC CICS RECEIVE
INTO (WS-INPUT)
LENGTH (WS-LEN)
END-EXEC.
COMPUTE WS-IN3 = WS-IN1 + WS-IN2
MOVE 3 TO WS-LEN
EXEC CICS
SEND TEXT
FROM(WS-IN3)
LENGTH(WS-LEN)
END-EXEC.
EXEC CICS
RETURN
END-EXEC.
No comments
Post a Comment