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