! @(#)report.prg	17.1.1.1 (ES0-DMD) 01/25/02 17:46:17
! +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
!
! MIDAS procedure report.prg to implement REPORT/PROBLEM
! K. Banse	910131, 910923, 920929, 921027, 930115, 940125
! 
! execute via REPORT/PROBLEM [error_file]
!
! +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
!
! keyword MID$MAIL contains mail address
! 
define/param p1 + ? "Enter name of report file: "
! 
if p1(1:1) .ne. "+" then
   if aux_mode .le. 1 then
      $ COPY/NOLOG {p1} MIDDUMM.ERR
   else
      $ cp {p1} middumm.err 
   endif
   define/local edit/c/1/10 n all
!
else
   if mid$sys(31:31) .eq. "$" then
      define/local edit/c/1/10 "{mid$sys(32:40)} "
   else
      define/local edit/c/1/10 "{mid$sys(31:40)}"
   endif
! 
   if aux_mode .le. 1 then
      $ DELETE/NOLOG/NOCONF MIDDUMM.ERR.*,REPORT.ERR.*
   else
      $ touch middumm.err report.err 
      $ rm middumm.err report.err
   endif
!
   write/out "Please, edit your text for the MIDAS Problem Report."
   if edit(1:1) .eq. " " then
      $ vi middumm.err
   else
      $ {edit} middumm.err
   endif
endif
! 
write/keyw edit/c/1/2 NO
run MID_MONIT:REPORT		                  !prepare file report.err
! 
if edit(1:2) .eq. "NO" then
   write/out "We have a problem in preparing your Problem Report..."
   write/out "Please, check the name of your editor via `SET/MIDAS editor=?'"
   return
else
   write/out "Thank you for your cooperation..."
   write/out "This report will be mailed to the MIDAS support account."
endif
! 
if aux_mode .le. 1 then
   $ MAIL/SUBJECT=MIDAS_PROBLEM report.err {MID$MAIL}
else
   $ mail {MID$MAIL} < report.err 
endif