Pseudo-Conversation:

A mode of dialogue between program and terminal which appears to the operator as a continuous conversation but which is actually carried by a serious of tasks.

IDENTIFICATION DIVISION.
PROGRAM-ID. PROG004.
ENVIRONMENT DIVISION.

DATA DIVISION.
WORKING-STORAGE SECTION.
01 WK-AREA.
      02 WK-TRANS         PIC X(4).

LINKAGE SECTION.
01 DFHCOMMAREA
      02 LK-TRANS          PIC X(4).

PROCEDURE DIVISION.
          IF EIBCALEN = 0
             GO TO TSK1-RTN.
          IF LK-TRANS = 'TSK2'
             GO TO TSK2-RTN.
           GO TO EXIT-PARA.
TSK1-RTN.
          EXEC CICS RECEIVE
                             INTO (WS-AREA)
                             LENGTH (MSG-LEN)
          END-EXEC.
                                   process


          EXEC CICS SEND
                             FROM (WS-AREA)
                             ERASE
          END-EXEC.
          MOVE 'TSK2' TO WK-TRANS.
          EXEC CICS RETURN
                              TRANSID ('TSK1')
                               COMMAREA (WK-AREA)
                               LENGTH (4)
          END-EXEC.
TSK2-RTN.
          EXEC CICS RECEIVE
                             INTO (WS-AREA)
                             LENGTH (MSG-LEN)
          END-EXEC.
                        process
             
          EXEC CICS SEND
                              FROM (WS-COMMAREA)                
                              ERASE
          END-EXEC.

          EXEC CICS RETURN
          END-EXEC.