initialize ( ) =
declare
    /* Needed for loading the option list */
    i = integer not null;    /* temp index */
    /* Needed in generation of frame */
    numcolumns = integer not null;
    /* number of columns in tab */
    widthchar = integer not null;
    /* width of one character */
    heightchar = integer not null;
    /* height of one character */
    fieldleft = integer not null;
    /* left edge of field*/
    trimleft = integer not null;
    /* left edge of trim */
    fieldtop = integer not null;
    /* top of next field */

    fieldheight = integer not null;
    /* height of a field */
    maxformheight = integer not null;
    /* maximum height of form */
    maxformwidth = integer not null;
    /* fixed width of form*/
    vertspace = integer not null;
    /* space between lines */
    trimspace = integer not null;
    /* space between trim/field */
    dbaname = varchar(32) not null;
    /* name of dba */

    /* variables used for generating the
    ** source code */
    /* select statement string */
    selectstring = varchar(2000) not null;
    /* FETCH statement string */
    fetchstring = varchar(2000) not null;
    /* UPDATE statement string */
    updatestring = varchar(2000) not null;
    /* update clause string */
    selectupdatestring = varchar(2000) not null;
    /* Variables for dictionary information of the
    ** table columns used in select choices */
    tmp_table_name = varchar(32) not null;
    /* used in getting column names */
    columnname = varchar(32) not null;
    /* used in getting columns */
    columndatatype = varchar(32) not null;
    /* used in getting columns */
    columnlength = integer not null;

    /* Variables used as holders of form
    ** objects, etc. */
    test_frame = FrameSource default null;
    /* The frame being generated */
    top_menu = MenuGroup default null;
    /* The menu being generated */
    test_menu = MenuButton default null;
    /* The menu item */
    field_ptr = EntryField default null;
    /* Ptr to entry field */
    trim_ptr = FreeTrim default null;
    /* The trim ptr */

    /* Name of generated frame */
    test_frame_name = varchar(32) not null
enddeclare