14.22 a4gl_get_info()
An example :
DATABASE loadz
MAIN
DEFINE lv_cnt INTEGER
DEFINE lv_a INTEGER
DEFINE lv_name CHAR(18)
DEFINE lv_type,lv_length,lv_scale INTEGER
PREPARE p1 from "select * from customer2"
CALL a4gl_get_info("Statement","info_p1","NoColumns")
RETURNING lv_cnt
DISPLAY lv_cnt , " columns"
FOR lv_a=1 to lv_cnt
CALL a4gl_get_info("Statement","info_p1",
"Name"||lv_a using "<<<<<")
RETURNING lv_name
CALL a4gl_get_info("Statement","info_p1",
"Type"||lv_a using "<<<<<")
RETURNING lv_type
CALL a4gl_get_info("Statement","info_p1",
"Length"||lv_a using "<<<<<")
RETURNING lv_length
CALL a4gl_get_info("Statement","info_p1",
"Scale"||lv_a using "<<<<<")
RETURNING lv_scale
DISPLAY lv_name, " ",lv_type ," ",lv_length, " ", lv_scale
END FOR
END MAIN