home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / viscobv6.zip / vac22os2 / ibmcobol / samples / minivb / msgbox / msgbox.cbv next >
Text File  |  1998-02-24  |  3KB  |  86 lines
  1.  
  2.       * Feature source code generation begins here...
  3.       * METHOD
  4.        IDENTIFICATION DIVISION.
  5.        METHOD-ID. "getMgsTitle".
  6.        DATA DIVISION.
  7.        LOCAL-STORAGE SECTION.
  8.        LINKAGE SECTION.
  9.        01 MgsTitle.
  10.           03 MgsTitle-Length      PIC 9(9) COMP-5.
  11.           03 MgsTitle-String.
  12.              05 MgsTitle-Chars  PIC X
  13.                   OCCURS 1 TO 255 TIMES
  14.                   DEPENDING ON MgsTitle-Length.
  15.        01 rc PIC S9(9) USAGE COMP-5.
  16.        PROCEDURE DIVISION
  17.            RETURNING MgsTitle.
  18.            MOVE iMgsTitle-Length TO MgsTitle-length.
  19.            MOVE iMgsTitle-String TO MgsTitle-string.
  20.            GOBACK.
  21.  
  22.        END METHOD "getMgsTitle".
  23.  
  24.       * METHOD
  25.        IDENTIFICATION DIVISION.
  26.        METHOD-ID. "setMgsTitle".
  27.        DATA DIVISION.
  28.        LOCAL-STORAGE SECTION.
  29.        01 aMsgBox USAGE OBJECT REFERENCE MsgBox.
  30.        01 event USAGE OBJECT REFERENCE CNotificationEvent.
  31.        01 MgsTitleId USAGE POINTER.
  32.        LINKAGE SECTION.
  33.        01 MgsTitle.
  34.           03 MgsTitle-Length      PIC 9(9) COMP-5.
  35.           03 MgsTitle-String.
  36.              05 MgsTitle-Chars  PIC X
  37.                   OCCURS 1 TO 255 TIMES
  38.                   DEPENDING ON MgsTitle-Length.
  39.        01 rc PIC S9(9) USAGE COMP-5.
  40.        PROCEDURE DIVISION USING MgsTitle.
  41.            MOVE MgsTitle-Length TO iMgsTitle-length.
  42.            MOVE MgsTitle-String TO iMgsTitle-string.
  43.            INVOKE CNotificationEvent "somNew" returning event.
  44.            SET aMsgBox TO SELF.
  45.            INVOKE SELF "getMgsTitleId"
  46.               RETURNING MgsTitleId.
  47.            INVOKE event "initializeNotificationEvent" USING
  48.               by value MgsTitleId by value aMsgBox.
  49.            INVOKE SELF "notifyObservers" using by value event.
  50.            INVOKE event "somFree".
  51.            GOBACK.
  52.  
  53.        END METHOD "setMgsTitle".
  54.  
  55.       * METHOD
  56.        IDENTIFICATION DIVISION.
  57.        METHOD-ID. "msgText".
  58.        DATA DIVISION.
  59.        LOCAL-STORAGE SECTION.
  60.        01 MsgTable.
  61.            05 AMessage   PIC X(35)
  62.               occurs 5 times.
  63.  
  64.        LINKAGE SECTION.
  65.        01 MType PIC 9(9) COMP-5.
  66.        01 Mtext.
  67.           03 Mtext-Length      PIC 9(9) COMP-5.
  68.           03 Mtext-String.
  69.              05 Mtext-Chars  PIC X
  70.                   OCCURS 1 TO 255 TIMES
  71.                   DEPENDING ON Mtext-Length.
  72.        PROCEDURE DIVISION USING MType
  73.                RETURNING Mtext.
  74.            Move "This is the first message text." to AMessage(1).
  75.            Move "This is the another message text." to AMessage(2).
  76.            Move "This is the critical message text." to AMessage(3).
  77.  
  78.            Move 35 to Mtext-Length.
  79.            Move AMessage(MType) to Mtext-String.
  80.  
  81.            GOBACK.
  82.  
  83.        END METHOD "msgText".
  84.  
  85.       * Feature source code generation ends here.
  86.