home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / viscobv6.zip / vac22os2 / ibmcobol / samples / dde / ddec.cbv < prev    next >
Text File  |  1998-01-08  |  6KB  |  167 lines
  1.  
  2.       * Feature source code generation begins here...
  3.       * METHOD
  4.        IDENTIFICATION DIVISION.
  5.        METHOD-ID. "ddedata".
  6.       * *******************************************************
  7.       *    ddedata Method
  8.       *    --------------
  9.       *    This feature code method is used to get the
  10.       *    data that is sent from the server as the
  11.       *    result of a DDERequest or is sent when a
  12.       *    hot-link is established with the server.
  13.       *    This method returns the actual data sent
  14.       *    by the server.
  15.       *
  16.       *    The method is invoked by the data event for the
  17.       *    DDE1 part and the returned value is used to
  18.       *    set the contents of one of the entry fields.
  19.       * *******************************************************
  20.        DATA DIVISION.
  21.        LOCAL-STORAGE SECTION.
  22.        LINKAGE SECTION.
  23.        01 datafunc.
  24.           03 datafunc-Data-Length PIC 9(9) COMP-5.
  25.           03 datafunc-Item-Length PIC 9(9) COMP-5.
  26.           03 datafunc-Data-String.
  27.              05 datafunc-Data-Chars PIC X(255).
  28.           03 datafunc-Item-String.
  29.              05 datafunc-Item-Chars PIC X(255).
  30.        01 p2.
  31.           03 p2-Length PIC 9(9) COMP-5.
  32.           03 p2-String.
  33.              05 p2-Chars PIC X OCCURS 1 TO 255 TIMES DEPENDING ON
  34.                     p2-Length.
  35.        PROCEDURE DIVISION USING datafunc
  36.               RETURNING p2.
  37.       * Enter your code here..........
  38.            MOVE datafunc-Data-Length TO p2-Length
  39.            MOVE datafunc-Data-String(1:datafunc-Data-Length) TO
  40.               p2-String
  41.  
  42.            GOBACK.
  43.  
  44.        END METHOD "ddedata".
  45.  
  46.       * METHOD
  47.        IDENTIFICATION DIVISION.
  48.        METHOD-ID. "ddepoke".
  49.       * *******************************************************
  50.       *    ddepoke Method
  51.       *    --------------
  52.       *    This feature code method is used to create
  53.       *    a status message when data is sent to the
  54.       *    server as the result of a DDEPoke.
  55.       *
  56.       *    This method returns a string that contains
  57.       *    the poke status, the name of the server item,
  58.       *    and the  actual data sent.
  59.       *
  60.       *    The method is invoked by the pokeAck event for the
  61.       *    DDE1 part and the returned value is displayed
  62.       *    in the Status Messages aea.
  63.       * *******************************************************
  64.        DATA DIVISION.
  65.        LOCAL-STORAGE SECTION.
  66.        01 stat PIC X(9) USAGE IS DISPLAY.
  67.        LINKAGE SECTION.
  68.        01 pokefunc.
  69.           03 pokefunc-Status PIC 9(9) COMP-5.
  70.                 88 Poke-UnSuccessful    VALUE 0.
  71.                 88 Poke-Successful      VALUE 1.
  72.           03 pokefunc-Data-Length PIC 9(9) COMP-5.
  73.           03 pokefunc-Item-Length PIC 9(9) COMP-5.
  74.           03 pokefunc-Data-String.
  75.              05 pokefunc-Data-Chars PIC X(255).
  76.           03 pokefunc-Item-String.
  77.              05 pokefunc-Item-Chars PIC X(255).
  78.        01 p2.
  79.           03 p2-Length PIC 9(9) COMP-5.
  80.           03 p2-String.
  81.              05 p2-Chars PIC X OCCURS 1 TO 255 TIMES DEPENDING ON
  82.                     p2-Length.
  83.        PROCEDURE DIVISION USING pokefunc
  84.               RETURNING p2.
  85.       * Enter your code here..........
  86.            MOVE 255 TO p2-Length
  87.            MOVE pokefunc-Status TO stat
  88.       * *******************************************************
  89.       *    Here we create the string containing the
  90.       *    poke status, the name of the server item,
  91.       *    and the  actual data sent.
  92.       * *******************************************************
  93.            STRING
  94.                 "Poke Status: " Delimited by Size
  95.                 stat Delimited by Spaces
  96.                 " " Delimited by Size
  97.                 "Data sent to " Delimited by size
  98.                 " " Delimited by Size
  99.                 pokefunc-Item-String(1:pokefunc-Item-Length) Delimited
  100.                      by Spaces
  101.                 ": " Delimited by Size
  102.                 pokefunc-Data-String(1:pokefunc-Data-Length) Delimited
  103.                     by Size
  104.              Into p2-String
  105.  
  106.            GOBACK.
  107.  
  108.        END METHOD "ddepoke".
  109.  
  110.       * METHOD
  111.        IDENTIFICATION DIVISION.
  112.        METHOD-ID. "ddedata1".
  113.       * *******************************************************
  114.       *    ddedata1 Method
  115.       *    --------------
  116.       *    This feature code method is used to create
  117.       *    a status message when data is sent from the
  118.       *    the server as the result of a DDERequest or
  119.       *    is sent when a host-link is established with
  120.       *    with the server.
  121.       *
  122.       *    This method returns the a string that contains
  123.       *    name of the server item that is involved in the
  124.       *    DDE communications.
  125.       *
  126.       *    The method is invoked by the data event for the
  127.       *    DDE1 part and the returned value is displayed
  128.       *    in the Status Messages area.
  129.       * *******************************************************
  130.        DATA DIVISION.
  131.        LOCAL-STORAGE SECTION.
  132.        LINKAGE SECTION.
  133.        01 datafunc.
  134.           03 datafunc-Data-Length PIC 9(9) COMP-5.
  135.           03 datafunc-Item-Length PIC 9(9) COMP-5.
  136.           03 datafunc-Data-String.
  137.              05 datafunc-Data-Chars PIC X(255).
  138.           03 datafunc-Item-String.
  139.              05 datafunc-Item-Chars PIC X(255).
  140.        01 p2.
  141.           03 p2-Length PIC 9(9) COMP-5.
  142.           03 p2-String.
  143.              05 p2-Chars PIC X OCCURS 1 TO 255 TIMES DEPENDING ON
  144.                     p2-Length.
  145.        PROCEDURE DIVISION USING datafunc
  146.               RETURNING p2.
  147.       * Enter your code here..........
  148.            MOVE 255 TO p2-Length
  149.       * *******************************************************
  150.       *    Here we create the string containing the
  151.       *    the name of the server item that sent the
  152.       *    data.
  153.       * *******************************************************
  154.            STRING
  155.                "Data came from " Delimited by size
  156.                " " Delimited by Size
  157.                datafunc-Item-String(1:datafunc-Item-Length) Delimited
  158.                     by Size
  159.                "." Delimited by Size
  160.                Into p2-String
  161.  
  162.            GOBACK.
  163.  
  164.        END METHOD "ddedata1".
  165.  
  166.       * Feature source code generation ends here.
  167.