ACCEPT-Key under 4gl - Solaris 2.3
Posted in 1994
Topics: Stored Procedures & SPL, Connectivity: ESQL/C, 4GL & Embedded SQL, Platform-Specific Issues
Sirs, I have problems with the ACCEPT-key under 4gl. The following small program displays 2 times an array of data. The first input can be terminated by hitting an ESC only, the next screen will be displayed. But when I want to terminate the second screen, I must hit ESC plus an extra character. What is wrong?? Thank You Dieter test.4gl: main define arr_test array[10] of record i_nr integer, s_nr smallint end record define i smallint for i = 1 to 10 let arr_test[i].i_nr = i*10 - 1 let arr_test[i].s_nr = i end for open window w_test at 2,2 with form "test" call set_count(10) input array arr_test without defaults from sy_test.* for i = 1 to 10 let arr_test[i].i_nr = i*10 - 1 let arr_test[i].s_nr = i end for call set_count(10) input array arr_test without defaults from sy_test.* end main test.per: database formonly screen { Nummer S-Nummer [i_nr ] [s_nr ] [i_nr ] [s_nr ] [i_nr ] [s_nr ] [i_nr ] [s_nr ] [i_nr ] [s_nr ] } end attributes i_nr=formonly.i_nr type integer, include = (0 to 100); s_nr=formonly.s_nr type smallint not null; instructions delimiters " " screen record sy_test[5] (formonly.*) -- Dr. med. dipl.-math Dieter Becker Tel.: (0 / +49) 6841 - 16 3046 Medizinische Universitaets- und Poliklinik Fax.: (0 / +49) 6841 - 16 3369 Innere Medizin III D - 66421 Homburg / Saar Email: becker@med-in.uni-sb.de