home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a031 / template.exe / AS_PAUSE.COD < prev    next >
Encoding:
Text File  |  1992-03-10  |  944 b   |  43 lines
  1. //
  2. // Module Name: AS_PAUSE.COD
  3. // Description: Procedure to display a message or errors in a window
  4. //
  5. {//
  6.  // Enum string constants for international translation
  7.  //
  8.  enum error_msg1 = "[An error has occurred !! - Error message: ]+MESSAGE()",
  9.       error_msg2 = "[Error # ]+lc_message",
  10.       error_wait = " Press any key to continue..."
  11.  ;
  12. }
  13. PROCEDURE Pause
  14. PARAMETER pc_msg
  15. *{replicate("-",69)}
  16. * Procedure to display a message or errors in a window
  17. * Parameters : pc_msg = message line
  18. *{replicate("-",69)}
  19.   PRIVATE lc_msg
  20.  
  21.   IF TYPE("lc_message")="U"
  22.     gn_error=ERROR()
  23.   ENDIF
  24.   lc_msg = pc_msg
  25.   lc_option='0'
  26.  
  27.   ACTIVATE WINDOW Pause
  28.   IF gn_error > 0
  29.     IF TYPE("lc_message")="U"
  30.       @ 0,1 SAY {error_msg1}
  31.     ELSE
  32.       @ 0,1 SAY {error_msg2}
  33.     ENDIF
  34.   ENDIF
  35.  
  36.   @ 1,1 SAY lc_msg
  37.   WAIT "{error_wait}"
  38.   DEACTIVATE WINDOW Pause
  39.  
  40. RETURN
  41. *-- EOP: Pause WITH pc_msg
  42. // EOP AS_PAUSE.COD
  43.