fgl_column_info() returns information about a specified database column.
The function takes two arguments, both of which are CHAR(64) datatype variables. The first should be the table name and the second the column name.
The information it returns are INTEGERS which report the column size and column type.
DATABASE cms
MAIN
DEFINE sqltype INTEGER,
sqllen INTEGER,
temp_string char(100)
CALL fgl_column_info("contact","cont_name")
RETURNING sqltype, sqllen
DISPLAY "The database column information for" at 5, 5
DISPLAY "CMS - Table 'contact', Field 'cont_name' is" at 6, 5
DISPLAY "SQL Type: ", sqltype AT 7, 5
DISPLAY "Column Length: ", sqllen AT 8, 5
CALL fgl_winmessage("Exit","Press any key to close this demo application","info")
END MAIN