home *** CD-ROM | disk | FTP | other *** search
/ Sams Cobol 24 Hours / Sams_Cobol_24_Hours.iso / Cobol32 / PowerCBL / powercbl.Z / listbox.prc < prev    next >
Text File  |  1997-03-12  |  1KB  |  39 lines
  1. @POWER POWSHEET SHEET1 *
  2. @POWER POWLIST LIST1 SELCHANGE
  3.  ENVIRONMENT DIVISION.
  4.  DATA        DIVISION.
  5.  WORKING-STORAGE SECTION.
  6.  01  SEL-DATA PIC X(64).
  7.  PROCEDURE   DIVISION.
  8. * Selected character string is taken out.
  9.      MOVE POW-SELSTRING OF LIST1 TO SEL-DATA.
  10. * Above-mentioned is displayed.
  11.      MOVE SEL-DATA TO POW-TEXT OF LABEL1.
  12. @POWER POWPSBTN PUSH10 CLICK
  13.  ENVIRONMENT DIVISION.
  14.  DATA        DIVISION.
  15.  WORKING-STORAGE SECTION.
  16.  01  ADD-DATA.
  17.      02   PIC X(5) VALUE "DATA-".
  18.      02   ADD-COUNT PIC 999 VALUE ZERO.
  19.  PROCEDURE   DIVISION.
  20. * Data is created and added to the listbox (LIST1).
  21.      ADD 1 TO ADD-COUNT.
  22.      CALL ADDSTRING OF LIST1 USING ADD-DATA.
  23.        
  24. @POWER POWPSBTN PUSH11 CLICK
  25.  ENVIRONMENT DIVISION.
  26.  DATA        DIVISION.
  27.  WORKING-STORAGE SECTION.
  28.  01  SEL-NO  PIC S9(4) COMP-5.
  29.  PROCEDURE   DIVISION.
  30. * The data item, when selected in the listbox (LIST1), is deleted.
  31.      MOVE POW-SELECT OF LIST1 TO SEL-NO.
  32.      CALL DELETESTRING OF LIST1 USING SEL-NO.
  33. @POWER POWPSBTN PUSH12 CLICK
  34.  ENVIRONMENT DIVISION.
  35.  DATA        DIVISION.
  36.  PROCEDURE   DIVISION.
  37. * Close the sample application.
  38.      CALL CLOSESHEET OF SHEET1.
  39.