This function converts a standard 4GL Boolean expression taken as its argument to a CHAR(1) value to be stored in a BOOLEAN column of an Informix Universal Server table. The function returns NULL if the given value is NULL.
In the example below, results of the function execution are printed out using different BOOLEAN expression values taken as arguments.
MAIN
DEFINE print_str char(256)
LET print_str="Results:"
LET print_str = print_str clipped,"\n| 0 |",fgl_intbool_to_charbool(0),"|"
LET print_str = print_str clipped,"\n| 1=1 |",fgl_intbool_to_charbool(1=1),"|"
LET print_str = print_str clipped,"\n| A=B |",fgl_intbool_to_charbool("A"="B"),"|"
LET print_str = print_str clipped,"\n| |",fgl_intbool_to_charbool(NULL),"|"
CALL fgl_winmessage("fgl_intbool_to_charbool()", print_str, "info")
END MAIN