home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / viscobv6.zip / vac22os2 / ibmcobol / samples / minivb / con1 / con1nv.cbv < prev    next >
Text File  |  1997-11-19  |  4KB  |  108 lines
  1.  
  2.       * Feature source code generation begins here...
  3.       * METHOD
  4.        IDENTIFICATION DIVISION.
  5.        METHOD-ID. "getCon1col1".
  6.        DATA DIVISION.
  7.        LOCAL-STORAGE SECTION.
  8.        LINKAGE SECTION.
  9.        01 Con1col1.
  10.           03 Con1col1-Length      PIC 9(9) COMP-5.
  11.           03 Con1col1-String.
  12.              05 Con1col1-Chars  PIC X
  13.                   OCCURS 1 TO 255 TIMES
  14.                   DEPENDING ON Con1col1-Length.
  15.        01 rc PIC S9(9) USAGE COMP-5.
  16.        PROCEDURE DIVISION
  17.            RETURNING Con1col1.
  18.            MOVE iCon1col1-Length TO Con1col1-length.
  19.            MOVE iCon1col1-String TO Con1col1-string.
  20.            GOBACK.
  21.  
  22.        END METHOD "getCon1col1".
  23.  
  24.       * METHOD
  25.        IDENTIFICATION DIVISION.
  26.        METHOD-ID. "setCon1col1".
  27.        DATA DIVISION.
  28.        LOCAL-STORAGE SECTION.
  29.        01 aCon1nv USAGE OBJECT REFERENCE con1nv.
  30.        01 event USAGE OBJECT REFERENCE CNotificationEvent.
  31.        01 con1col1Id USAGE POINTER.
  32.        LINKAGE SECTION.
  33.        01 Con1col1.
  34.           03 Con1col1-Length      PIC 9(9) COMP-5.
  35.           03 Con1col1-String.
  36.              05 Con1col1-Chars  PIC X
  37.                   OCCURS 1 TO 255 TIMES
  38.                   DEPENDING ON Con1col1-Length.
  39.        01 rc PIC S9(9) USAGE COMP-5.
  40.        PROCEDURE DIVISION USING Con1col1.
  41.            MOVE Con1col1-Length TO iCon1col1-length.
  42.            MOVE Con1col1-String TO iCon1col1-string.
  43.            INVOKE CNotificationEvent "somNew" returning event.
  44.            SET aCon1nv TO SELF.
  45.            INVOKE SELF "getCon1col1Id"
  46.               RETURNING con1col1Id.
  47.            INVOKE event "initializeNotificationEvent" USING
  48.               by value con1col1Id by value aCon1nv.
  49.            INVOKE SELF "notifyObservers" using by value event.
  50.            INVOKE event "somFree".
  51.            GOBACK.
  52.  
  53.        END METHOD "setCon1col1".
  54.  
  55.       * METHOD
  56.        IDENTIFICATION DIVISION.
  57.        METHOD-ID. "getCon1col2".
  58.        DATA DIVISION.
  59.        LOCAL-STORAGE SECTION.
  60.        LINKAGE SECTION.
  61.        01 Con1col2.
  62.           03 Con1col2-Length      PIC 9(9) COMP-5.
  63.           03 Con1col2-String.
  64.              05 Con1col2-Chars  PIC X
  65.                   OCCURS 1 TO 255 TIMES
  66.                   DEPENDING ON Con1col2-Length.
  67.        01 rc PIC S9(9) USAGE COMP-5.
  68.        PROCEDURE DIVISION
  69.            RETURNING Con1col2.
  70.            MOVE iCon1col2-Length TO Con1col2-length.
  71.            MOVE iCon1col2-String TO Con1col2-string.
  72.            GOBACK.
  73.  
  74.        END METHOD "getCon1col2".
  75.  
  76.       * METHOD
  77.        IDENTIFICATION DIVISION.
  78.        METHOD-ID. "setCon1col2".
  79.        DATA DIVISION.
  80.        LOCAL-STORAGE SECTION.
  81.        01 aCon1nv USAGE OBJECT REFERENCE con1nv.
  82.        01 event USAGE OBJECT REFERENCE CNotificationEvent.
  83.        01 con1col2Id USAGE POINTER.
  84.        LINKAGE SECTION.
  85.        01 Con1col2.
  86.           03 Con1col2-Length      PIC 9(9) COMP-5.
  87.           03 Con1col2-String.
  88.              05 Con1col2-Chars  PIC X
  89.                   OCCURS 1 TO 255 TIMES
  90.                   DEPENDING ON Con1col2-Length.
  91.        01 rc PIC S9(9) USAGE COMP-5.
  92.        PROCEDURE DIVISION USING Con1col2.
  93.            MOVE Con1col2-Length TO iCon1col2-length.
  94.            MOVE Con1col2-String TO iCon1col2-string.
  95.            INVOKE CNotificationEvent "somNew" returning event.
  96.            SET aCon1nv TO SELF.
  97.            INVOKE SELF "getCon1col2Id"
  98.               RETURNING con1col2Id.
  99.            INVOKE event "initializeNotificationEvent" USING
  100.               by value con1col2Id by value aCon1nv.
  101.            INVOKE SELF "notifyObservers" using by value event.
  102.            INVOKE event "somFree".
  103.            GOBACK.
  104.  
  105.        END METHOD "setCon1col2".
  106.  
  107.       * Feature source code generation ends here.
  108.