14.22 a4gl_get_info()

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