coredump in 4gl right after "DISPLAY ARRAY" is called
Posted in 2004
Topics: Stored Procedures & SPL, Connectivity: ESQL/C, 4GL & Embedded SQL
Hi, I need somebody's help on a "DISPLAY ARRAY" issue. I got a problem in the 4gl code. Actually it's a very simple code as listed below in test.4gl and test_list.per. I just want to try to display something in the FORM. The following code could work well in 4GL 7.30.UC1 environment. But I got coredump in 4GL 7.32.UC1 environment. The different in libary is the lib4gsh730.a in 7.30.UC1. While In 7.32.UC1 the library is lib4gsh732.so. Any difference for the building? Thanks a lot in advance, SL. -------------------- test.4gl ------------------------- database testdb main call popup() end main function popup() define serv_help ARRAY[10] of RECORD name char(30) end RECORD, scnt integer, log_buff char(1000) OPEN WINDOW serv_wind AT 5,10 WITH FORM "test_list" ATTRIBUTE (BORDER, MESSAGE LINE FIRST) initialize serv_help to NULL let scnt = 3 let serv_help[1].name = "test1", " ", "test2" let serv_help[2].name = "test2", " ", "test1" call set_count(scnt -1) message "Select a Server Pair" DISPLAY ARRAY serv_help to s_slist_name.* ON KEY (F3) end DISPLAY CLOSE WINDOW serv_wind end function -- popup ---------------------- test_list.per ------------------------ database formonly screen size 25 by 55 { _____________________________________________________ Primary/Backup Server Pairs [f000 ] [f000 ] [f000 ] [f000 ] [f000 ] [f000 ] [f000 ] [f000 ] [f000 ] [f000 ] _____________________________________________________ } end attributes f000 = formonly.name, REQUIRED; end INSTRUCTIONS SCREEN RECORD s_slist_name[10] (name) END ------------------------------------------------------------------
On Wed, 21 Jan 2004 15:52:18 -0500, SL. wrote: There's no target for the ON KEY (F3) clause! Like ON KEY (F3) exit display. Unless that's a typo. Art S. Kagel > Hi, > > I need somebody's help on a "DISPLAY ARRAY" issue. > > I got a problem in the 4gl code. Actually it's a very simple code as listed > below in test.4gl and test_list.per. > > I just want to try to display something in the FORM. The following code > could work well in 4GL 7.30.UC1 environment. But I got coredump in 4GL > 7.32.UC1 environment. > > The different in libary is the lib4gsh730.a in 7.30.UC1. While In 7.32.UC1 > the library is lib4gsh732.so. Any difference for the building? > > Thanks a lot in advance, > > SL. > > > -------------------- test.4gl ------------------------- database testdb > > main > call popup() > end main > > function popup() > define > serv_help ARRAY[10] of RECORD > name char(30) > end RECORD, > scnt integer, > log_buff char(1000) > > > OPEN WINDOW serv_wind AT 5,10 > WITH FORM "test_list" > ATTRIBUTE (BORDER, MESSAGE LINE FIRST) > > initialize serv_help to NULL > > let scnt = 3 > let serv_help[1].name = "test1", " ", "test2" let serv_help[2].name = > "test2", " ", "test1" > > call set_count(scnt -1) > > message "Select a Server Pair" > > DISPLAY ARRAY serv_help to s_slist_name.* ON KEY (F3) > > end DISPLAY > > CLOSE WINDOW serv_wind > > end function -- popup > > ---------------------- test_list.per ------------------------ database > formonly > screen size 25 by 55 > { > _____________________________________________________ > > Primary/Backup Server Pairs > [f000 ] [f000 > ] [f000 > ] [f000 ] [f000 > ] [f000 > ] [f000 ] > [f000 ] [f000 > ] [f000 > ] > > _____________________________________________________ } end > attributes > f000 = formonly.name, REQUIRED; > end > > INSTRUCTIONS > SCREEN RECORD s_slist_name[10] (name) > END > ------------------------------------------------------------------