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

    01      DATA-BLOCK.
        05  NAME        PIC X(40).
        05  W-ADDRESS     PIC X(50).
        05  PHONE       PIC X(15).
		05	END-PGM		PIC X.
	01      DATA-BLOCK-SIZE COMP PIC 9(12) VALUE 106.
    01      SITE-INFO.
        05  TITLE       PIC X(20).
        05  URL         PIC X(50).
    01      SITE-INFO-SIZE COMP PIC 9(12) VALUE 70.
    77  GUI-01  PIC X(64) VALUE "testgui03.tcl".
    77  GUI-02  PIC X(64) VALUE "testgui03a.tcl".

 PROCEDURE DIVISION.
 
  CALL "initTcl" 
   
  MOVE "Your name here" to NAME
  MOVE "Your address" TO W-ADDRESS
  MOVE "Phone number" to PHONE
* this variable tells Cobol that the user required an exit
  MOVE "0" to END-PGM.

	100-restart.
* call C wrapper, passing data block and size of data
  CALL "testgui02" USING DATA-BLOCK DATA-BLOCK-SIZE GUI-01
  
  DISPLAY "Returned data:"
  DISPLAY "NAME    [" NAME "]"
  DISPLAY "ADDRESS [" W-ADDRESS "]"
  DISPLAY "PHONE   [" PHONE "]"
* if not end of program required, loop 
  if END-PGM = 0
	  go to 100-restart.
* to start a new GUI (graphical interface), call this first
  call "newGui"
  MOVE "Title of the site" to TITLE
  MOVE "URL (http://..., ftp://..., etc)" to URL
* now we may draw other main window...
  CALL "testgui02" USING SITE-INFO SITE-INFO-SIZE GUI-02
  DISPLAY "Returned data:"
  DISPLAY "TITLE   [" TITLE "]"
  DISPLAY "URL     [" URL "]"

  STOP RUN.