Progress importálás textfájlból változóba

def var utmozg as char.
def var creadfield as char no-undo.
/* tömbként definiálva, creadfield[1]*/
/* def var creadfield as char extent 2 no-undo. */
def var cinputfile as char no-undo.

assign cinputfile = "/home/abc/imp.txt".
input from value(cinputfile).
import delimiter ";" creadfield.
disp creadfield.
input close.

select tr_trnbr
from tr_hist
where tr_trnbr > integer(creadfield)