Connect for 4gl
I'm am trying to issue the connect to db@sever_name statement within a 4gl
for Infomrix 7.12. I get an error when I compile this program with the
newera fglpc provided. It works okay in dbaccess what am I doing wrong?
Is this not a valid statement for this fglpc/fglgo runner I'm using. It is
NewEra version 1.01UC2
---- The follwing is the code
database cynthiadb
main
define pgm_start datetime year to second
define pgm_end datetime year to second
define l_text char(250)
define l_table record
tabename char(18),
dt_proc datetime year to second,
created date
end record
#===========================================
declare tab_cur cursor for
select tabname, current year to second, created
from systables
where tabid > 99 and
tabname not like 'sys%'
select current year to second into pgm_start
from systables
where tabid = 1
let l_text = "echo ", pgm_start, " > dbqry.out"
run l_text
connect to "vpspamis@srv_dev8"
foreach tab_cur into l_table.*
let l_text = "echo", l_table.tabename, " ",
l_table.dt_proc, " ",
l_table.created, " >> dbqry.out"
run l_text
end foreach
close tab_cur
close database
select current year to second into pgm_end
from systables
where tabid = 1
let l_text = "echo", pgm_end, " >> dbqry.out"
run l_text
end main
-------------------------------------------------------------------------
Cheryl Kendricks
Internet:cherylk@prod1.jcdc.doleta.gov
DTSI, Inc. Voice: 1-800-598-5008
Database Administrator - DOL Job Corps San Marcos, Texas