4027 if (lmode ==
"r")
then 4028 call dbasession_init%messages_open_input(filename=filename,mode=lmode,&
4029 format=lformat,simplified=lsimplified)
4032 read_next = dbasession_init%messages_read_next()
4033 do while (read_next)
4034 read_next = dbasession_init%messages_read_next()