IDENTIFICATION DIVISION.
PROGRAM-ID. testgui06.
*
ENVIRONMENT DIVISION.
DATA DIVISION.
WORKING-STORAGE SECTION.
LINKAGE SECTION.
01 X PIC X(80).
PROCEDURE DIVISION USING X.
display "COBOL: Tcl program sent us: [" X "]"
EXIT PROGRAM.