home *** CD-ROM | disk | FTP | other *** search
/ Sams Cobol 24 Hours / Sams_Cobol_24_Hours.iso / Cobol32 / PowerCBL / powercbl.Z / array.prc < prev    next >
Text File  |  1997-03-12  |  1KB  |  44 lines
  1. @POWER POWSHEET SHEET1 *
  2. @POWER POWPSBTN PUSH1 CLICK
  3.  ENVIRONMENT DIVISION.
  4.  DATA        DIVISION.
  5.     WORKING-STORAGE SECTION.
  6. * Set color.
  7.     01 W-COLOR1    PIC    X(4).
  8.     01 W-COLOR2    PIC    X(4).
  9. * Set the index of the label (LABEL1)
  10.     01 I        PIC S9(4) COMP-5.
  11.  LINKAGE     SECTION.
  12.  01 IDX      PIC S9(4) COMP-5.
  13.  PROCEDURE   DIVISION USING IDX.
  14. * Set the background color in the indexed label areas (LABEL1) by the index
  15. * of the clicked push button (PUSH1).
  16.      EVALUATE IDX
  17.      WHEN 1
  18.          MOVE POW-RED TO W-COLOR1
  19.          MOVE POW-DARKRED TO W-COLOR2
  20.      WHEN 2
  21.          MOVE POW-GREEN TO W-COLOR1
  22.          MOVE POW-DARKGREEN TO W-COLOR2
  23.      WHEN 3
  24.          MOVE POW-BLUE TO W-COLOR1
  25.          MOVE POW-DARKBLUE TO W-COLOR2
  26.       END-EVALUATE.
  27. * The background color of the three labels is set by the following loop.
  28.      PERFORM VARYING I FROM 1 BY 1 UNTIL I > 3
  29. * The clicked push button sets its corresponding label to a bright version of
  30. * its specified color and the other push buttons to a dark version of the same color.
  31.             IF IDX = I
  32.                  MOVE W-COLOR1 TO POW-BACKCOLOR OF LABEL1(I)
  33.              ELSE
  34.                  MOVE W-COLOR2 TO POW-BACKCOLOR OF LABEL1(I)
  35.             END-IF
  36.      END-PERFORM.
  37.  
  38. @POWER POWPSBTN PUSH4 CLICK
  39.  ENVIRONMENT DIVISION.
  40.  DATA        DIVISION.
  41.  PROCEDURE   DIVISION.
  42. * Close the sample application.
  43.         CALL CLOSESHEET OF SHEET1.
  44.