home *** CD-ROM | disk | FTP | other *** search
/ Sams Cobol 24 Hours / Sams_Cobol_24_Hours.iso / Cobol32 / PowerCBL / powercbl.Z / combobox.prc < prev    next >
Text File  |  1997-03-09  |  1KB  |  42 lines
  1. @POWER POWSHEET SHEET1 *
  2. @POWER POWPSBTN PUSH10 CLICK
  3.  ENVIRONMENT DIVISION.
  4.  DATA        DIVISION.
  5.  WORKING-STORAGE SECTION.
  6.  01  ADD-DATA.
  7.      02   PIC X(5) VALUE "DATA-".
  8.      02   ADD-COUNT PIC 999 VALUE ZERO.
  9.  PROCEDURE   DIVISION.
  10. * Create a data item.
  11.      ADD 1 TO ADD-COUNT.
  12. * Add the data item to the combo box (COMBO1).
  13.      CALL ADDSTRING OF COMBO1 USING ADD-DATA.
  14.      MOVE RETURN-CODE TO POW-SELECT OF COMBO1.
  15. @POWER POWPSBTN PUSH11 CLICK
  16.  ENVIRONMENT DIVISION.
  17.  DATA        DIVISION.
  18.  WORKING-STORAGE SECTION.
  19.  01  SEL-NO  PIC S9(4) COMP-5.
  20.  PROCEDURE   DIVISION.
  21. * Get the selected number in the combo box (COMBO1).
  22.      MOVE POW-SELECT OF COMBO1 TO SEL-NO.
  23. * Delete the above number from the combo box (COMBO1).
  24.      CALL DELETESTRING OF COMBO1 USING SEL-NO.
  25.      MOVE RETURN-CODE TO POW-SELECT OF COMBO1.
  26. @POWER POWCOMBO COMBO1 SELCHANGE
  27.  ENVIRONMENT DIVISION.
  28.  DATA        DIVISION.
  29.  WORKING-STORAGE SECTION.
  30.  01  SEL-DATA PIC X(64).
  31.  PROCEDURE   DIVISION.
  32. * Get the selected character-string.
  33.      MOVE POW-SELSTRING OF COMBO1 TO SEL-DATA.
  34. * Display the data in LABEL1.
  35.      MOVE SEL-DATA TO POW-TEXT OF LABEL1.
  36. @POWER POWPSBTN PUSH12 CLICK
  37.  ENVIRONMENT DIVISION.
  38.  DATA        DIVISION.
  39.  PROCEDURE   DIVISION.
  40. * Close the sample application
  41.      CALL CLOSESHEET OF SHEET1. 
  42.