Re: How do I disconnect from database from 4gl

Posted in 1997

Manuel Daponte — 13 Nov 1997 23:08:30 GMT — source: Informix-list mailing list archive (1991-1998)

Try this in your 4gl program to disconnect from a database: database jua ###################################### main ###################################### define scratch char(30) database jua select tabname into scratch from systables where tabid = 1 display scratch let scratch = null whenever error continue database unexistant # try to connect to an unexistant db whenever error stop select tabname into scratch from systables where tabid = 1 display scratch end main