******************************************************************
       >>SOURCE FORMAT IS FIXED
      ******************************************************************
      * Author:    Brian Tiffin 
      * Date:      09-Sep-2008 
      * Purpose:   Demonstrate a GTK+ wrapper 
      * Tectonics: gcc -c ocgtk.c `pkg-config --cflags --libs gtk+-2.0`
      *     cobc -x `pkg-config --libs gtk+-2.0` gtkcaller.cob ocgtk.o
      ******************************************************************
       identification division.
       program-id. gtkcaller.

       data division.
       working-storage section.
       01 result               pic s9(9).

      *****************************************************************
       procedure division.
       call "gtkcalendar" returning result  end-call.
       display "Returned: " result end-display
       goback.
       exit program.
       end program gtkcaller.