IDENTIFICATION DIVISION.
 PROGRAM-ID.     tclguisuba.
 AUTHOR. Rildo Pragana.         
* REMARKS.
*    Example tcl/tk GUI program for Cobol.
*
 ENVIRONMENT DIVISION.
 DATA DIVISION.
*
 WORKING-STORAGE SECTION.

 LINKAGE SECTION.

 	01 tval pic X(80).

 PROCEDURE DIVISION using tval.
 
	display "tclguisub: " tval.
	exit program.