21 lines
332 B
COBOL
21 lines
332 B
COBOL
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.
|
|
|