global updating procedure HLaunIn() begin string 255 instr; while (TestfEOF) begin instr = ImportField; SetEOF; end; return; end;