home *** CD-ROM | disk | FTP | other *** search
/ Sams Cobol 24 Hours / Sams_Cobol_24_Hours.iso / Cobol32 / PowerCBL / powercbl.Z / edit.prc < prev    next >
Text File  |  1997-03-14  |  1KB  |  39 lines
  1. @POWER POWSHEET SHEET1 *
  2. @POWER POWEDIT EDIT2 CHANGE
  3.  ENVIRONMENT DIVISION.
  4.  DATA        DIVISION.
  5.  WORKING-STORAGE SECTION.
  6.  01  TEXT-WORK PIC X(4096).
  7.  PROCEDURE   DIVISION.
  8. * The input character string is taken
  9. * out of the multi-line character string input area (EDIT2)
  10. * and displayed in the display area (LABEL1).
  11.      MOVE POW-MULTITEXT OF EDIT2 TO TEXT-WORK.
  12.      MOVE TEXT-WORK TO POW-TEXT OF LABEL1.
  13. * This procedure is called every time a character is input or changed.
  14. @POWER POWEDIT EDIT1 CHANGE
  15.  ENVIRONMENT DIVISION.
  16.  DATA        DIVISION.
  17.  WORKING-STORAGE SECTION.
  18.  01  TEXT-WORK PIC X(256).
  19.  PROCEDURE   DIVISION.
  20. * The input character string is taken
  21. * out of the single line character string input area (EDIT1)
  22. * and displayed in the display area (LABEL1).
  23.      MOVE POW-TEXT OF EDIT1 TO TEXT-WORK.
  24.      MOVE TEXT-WORK TO POW-TEXT OF LABEL1.
  25. * This procedure is called every time a character is input or changed.
  26. @POWER POWPSBTN PUSH10 CLICK
  27.  ENVIRONMENT DIVISION.
  28.  DATA        DIVISION.
  29.  PROCEDURE   DIVISION.
  30. * Close the sample application.
  31.      CALL CLOSESHEET OF SHEET1.
  32. @POWER POWPSBTN PUSH11 CLICK
  33.  ENVIRONMENT DIVISION.
  34.  DATA        DIVISION.
  35.  PROCEDURE   DIVISION.
  36. * Clear all fields.
  37.         MOVE SPACE TO POW-TEXT OF EDIT1.
  38.         MOVE SPACE TO POW-MULTITEXT OF EDIT2.
  39.