1165subroutine dbasession_messages_open_output(session,filename,mode,format)
1166class(dbasession), intent(in) :: session
1167character (len=*), intent(in) :: filename
1168character (len=*), intent(in),optional :: mode
1169character (len=*), intent(in),optional :: format
1170
1171integer :: ier
1172character (len=40) :: lmode, lformat