home *** CD-ROM | disk | FTP | other *** search
/ Sams Cobol 24 Hours / Sams_Cobol_24_Hours.iso / Cobol32 / PowerCBL / powercbl.Z / check.prc < prev    next >
Text File  |  1997-03-09  |  1KB  |  40 lines
  1. @POWER POWSHEET SHEET1 *
  2. @POWER POWCKBTN CHECK1 CLICK
  3.  ENVIRONMENT DIVISION.
  4.  DATA        DIVISION.
  5.  PROCEDURE   DIVISION.
  6. * Determine the status of the check button
  7. * and display the appropriate status message.
  8.      IF POW-CHECK OF CHECK1 = POW-ON
  9.        MOVE "ON" TO POW-TEXT OF LABEL1
  10.      ELSE
  11.        MOVE "OFF" TO POW-TEXT OF LABEL1.
  12.  
  13. @POWER POWCKBTN CHECK2 CLICK
  14.  ENVIRONMENT DIVISION.
  15.  DATA        DIVISION.
  16.  PROCEDURE   DIVISION.
  17. * Determine the status of the check button
  18. * and display the appropriate status message.
  19.      IF POW-CHECK OF CHECK2 = POW-ON
  20.        MOVE "ON" TO POW-TEXT OF LABEL2
  21.      ELSE
  22.        MOVE "OFF" TO POW-TEXT OF LABEL2.
  23. @POWER POWCKBTN CHECK3 CLICK
  24.  ENVIRONMENT DIVISION.
  25.  DATA        DIVISION.
  26.  PROCEDURE   DIVISION.
  27. * Determine the status of the check button
  28. * and display the appropriate message
  29.      IF POW-CHECK OF CHECK3 = POW-ON
  30.        MOVE "ON" TO POW-TEXT OF LABEL3
  31.      ELSE
  32.        MOVE "OFF" TO POW-TEXT OF LABEL3.
  33. @POWER POWPSBTN PUSH10 CLICK
  34.  ENVIRONMENT DIVISION.
  35.  DATA        DIVISION.
  36.  PROCEDURE   DIVISION.
  37. *> End of Check Button sample.
  38.          CALL CLOSESHEET OF SHEET1.
  39.          
  40.