* 			:---------------------------------------
      * ------------------------: Copybook for MessageBox.
      * 			:
      * 			: See the documentation for details.
      * 			:---------------------------------------
      *
      *  To use:
      *
      *      COPY WIN32API.
      *      COPY MSGBOX.
      *       .
      *       .
      * ------------------------: Load the messagebox title and text.
      *
      *    MOVE 'My Messagebox Title'   TO MB-TITLE.
      *    MOVE 'Line 1 text        '   TO MB-LINE1.
      *    MOVE 'Line 2 text        '   TO MB-LINE2.
      *
      * ------------------------: The default displays a box with
      * 			: an information icon and an OK button,
      * 			: and disables all other windows in
      * 			: your application until the user
      * 			: responds to the message box.
      * 			:
      * 			: Select different options like this:
      *       .
      *    SET MB-BTN-OKCANCEL		TO TRUE.
      *    SET MB-ICON-STOP		TO TRUE.
      *    SET MB-DEFAULT-BUTTON-IS-2	TO TRUE.
      *    SET MB-MODE-APPLMODAL	TO TRUE.
      *    MOVE mypanel-HWND		TO MB-HWND.
      *
      * ------------------------: Call the API to display messagebox
      *
      *    SET API-MESSAGEBOX TO TRUE.
      *    CALL 'GSWINAPI' USING WIN32API-PARMS
      * 			 MESSAGEBOX-PARMS
      * 			 WIN32API-B
      * 			 WIN32API-C
      * 			 WIN32API-D
      * 			 WIN32API-E
      * 			 WIN32API-F.
      *
      * ------------------------: Evaluate the value returned to see
      * 			: which button the user selected to
      * 			: close the messagebox.
      *
      *    IF MB-RETURNED-OK
      *      PERFORM OK-routine
      *    ELSE
      *      IF MB-RETURNED-CANCEL
      *        PERFORM cancel-routine.
      *
      * ----------------------------------------------------------------
      *
       01  MESSAGEBOX-PARMS.

      *    Parameter Returned...: Button selected by the user in
      * 			: response to the message box.
	   05  FILLER			      PIC S9(4) COMP-5.
	     88  MB-RETURNED-ABORT	      VALUE 0.
	     88  MB-RETURNED-CANCEL	      VALUE 1.
	     88  MB-RETURNED-CONTINUE	      VALUE 2.
	     88  MB-RETURNED-IGNORE	      VALUE 3.
	     88  MB-RETURNED-NO 	      VALUE 4.
	     88  MB-RETURNED-OK 	      VALUE 5.
	     88  MB-RETURNED-RETRY	      VALUE 6.
	     88  MB-RETURNED-TRYAGAIN	      VALUE 7.
	     88  MB-RETURNED-YES	      VALUE 8.
	     88  MB-API-FAILED		      VALUE 100.		070927ja

      *    Calling Parameters...: Title of your message box.
      *
	   05  MB-TITLE 		      PIC X(200).

      * 			: Text of your message.  If you want
      * 			: additional line breaks, insert
      * 			: X'0D' (carriage return) characters
      * 			: into your text string where you want
      * 			: the line break(s).
	   05  MB-LINE1 		      PIC X(200).
	   05  MB-LINE2 		      PIC X(200).
	   05  MB-LINE3 		      PIC X(200).
	   05  MB-LINE4 		      PIC X(200).

      * 			: Buttons presented in the message box.
      * 			: Default is only an OK button.
	   05  FILLER			      PIC S9(4) COMP-5.
	     88  MB-BTN-OK		      VALUE 0.
	     88  MB-BTN-OKCANCEL	      VALUE 2.
	     88  MB-BTN-RETRYCANCEL	      VALUE 3.
	     88  MB-BTN-YESNO		      VALUE 4.
	     88  MB-BTN-YESNOCANCEL	      VALUE 5.
	     88  MB-BTN-ABORTRETRYIGNORE      VALUE 6.
	     88  MB-BTN-CANCELTRYCONTINUE     VALUE 7.

      * 			: Symbol displayed in your message box.
      * 			: Default is Information (i) icon.
	   05  FILLER			      PIC S9(4) COMP-5.
	     88  MB-ICON-INFORMATION	      VALUE 0.
	     88  MB-ICON-EXCLAMATION	      VALUE 1.
	     88  MB-ICON-QUESTION	      VALUE 2.
	     88  MB-ICON-STOP		      VALUE 3.

      * 			: Button to return if Enter is pressed.
      * 			: Default is button 1.
	   05  FILLER			      PIC S9(4) COMP-5.
	     88  MB-DEFAULT-BUTTON-IS-1       VALUE 0.
	     88  MB-DEFAULT-BUTTON-IS-2       VALUE 1.
	     88  MB-DEFAULT-BUTTON-IS-3       VALUE 2.
	     88  MB-DEFAULT-BUTTON-IS-4       VALUE 3.
	     88  MB-NO-DEFAULT-BUTTON	      VALUE -1.

      * 			: Modality of the message box; whether
      * 			: the message box disables application
      * 			: windows while waiting for a response.
      * 			:
      * 			: (DEFAULT)
      * 			: TASKMODAL - Disables all top-level
      * 			:   windows if MB-HWND is LOW-VALUE.
      * 			:
      * 			: APPLMODAL - Disables only the window
      * 			:   identified in MB-HWND.  If MB-HWND
      * 			:   is LOW-VALUE, none of your windows
      * 			:   will be disabled.
      * 			:
      * 			: SYSTEMMODAL - Save as APPLMODAL except
      * 			:   the message box is on top of all
      * 			:   of your application's windows.
	   05  FILLER			      PIC S9(4) COMP-5.
	     88  MB-MODE-TASKMODAL	      VALUE 0.
	     88  MB-MODE-APPLMODAL	      VALUE 1.
	     88  MB-MODE-SYSTEMMODAL	      VALUE 2.

      * 			: Should be the window handle to which
      * 			: this message applies; usually the
      * 			: panel-HWND.
	   05  MB-HWND			      PIC X(4).

      * 			: Reserved for future use.
	   05  FILLER			      PIC X(10).