31 lines
632 B
COBOL
31 lines
632 B
COBOL
IDENTIFICATION DIVISION.
|
|
PROGRAM-ID. testgui01.
|
|
AUTHOR. Rildo Pragana.
|
|
* REMARKS.
|
|
* Example tcl/tk interface program for Cobol.
|
|
*
|
|
ENVIRONMENT DIVISION.
|
|
DATA DIVISION.
|
|
*
|
|
WORKING-STORAGE SECTION.
|
|
|
|
77 TCLCMD pic X(80).
|
|
77 TCLRESULT pic X(80).
|
|
|
|
PROCEDURE DIVISION.
|
|
|
|
CALL "initTcl".
|
|
|
|
100-LOOP.
|
|
DISPLAY "tcl> " no advancing
|
|
ACCEPT TCLCMD
|
|
IF TCLCMD = SPACES
|
|
GO 110-LOOP-END.
|
|
CALL "exec_tcl" USING TCLCMD TCLRESULT
|
|
DISPLAY TCLRESULT
|
|
GO 100-LOOP.
|
|
110-LOOP-END.
|
|
DISPLAY "End TCL interpreter"
|
|
CALL "endTcl"
|
|
STOP RUN.
|