R4GL problem - 7.31HC3 on HP-UX 11i

Weird one here; this is a test case because some 4gl's we have are behaving oddly in R4GL and IDB but *not* in i4GL. In I4gl we get the tabname followed by a '1' or a '2' back as expected, but in R4GL/IDB we get a -1214 NUMBER EXCEEDS LIMIT OF SMALLINT PRECISION error and the number is - well see for yourselves: flags_text 28514 logmessage 25969 smi_build_status 29184 sysadtinfo 29539 sysaggregates 3443 sysams 3699 sysattrtypes 24418 sysaudit 29292 sysblobs 29539 sysbtcreq 29561 sysbufhdr 29539 syscasts 1 syscdrack_buf 24436 syscdrack_txn 1 syscdrctrl_buf 0 syscdrctrl_txn 0 syscdrprog 0 Any clues? For one reason or another we can't talk to tech support about this .... Test 4GL follows: database sysmaster main define lv_tabname like systables.tabname define lv_dummy smallint define lv_sql char(500) whenever error continue let lv_sql = "select trim(tabname), 1 ", " from systables ", " where tabtype = 'T' ", " union ", " select (tabname), 2 ", " from systables ", " where tabtype = 'V'", " order by 2,1 " prepare pr_tabs from lv_sql declare cr_tabs cursor for pr_tabs foreach cr_tabs into lv_tabname, lv_dummy display lv_tabname, lv_dummy end foreach Confused of Tunbridge Wells