       IDENTIFICATION DIVISION.
       PROGRAM-ID. TSTREPLY.
       ENVIRONMENT DIVISION.
       INPUT-OUTPUT SECTION.
       FILE-CONTROL.
       DATA DIVISION.
       FILE SECTION.
       WORKING-STORAGE SECTION.
       01 MESSAGE-AREA     PIC X(80) VALUE 'PLEASE PRINT THE TAPE ID'.
       01 ACCEPT-AREA      PIC X(80).
       PROCEDURE DIVISION.
       BEGIN.
       CALL "EBM_GET_REPLY" USING MESSAGE-AREA,ACCEPT-AREA.
       DISPLAY 'TAPE ID RECEIVED: ' ACCEPT-AREA.
       STOP RUN.
