home *** CD-ROM | disk | FTP | other *** search
/ Sams Cobol 24 Hours / Sams_Cobol_24_Hours.iso / Cobol32 / PowerCBL / powercbl.Z / setpos.prc < prev    next >
Text File  |  1997-03-11  |  1KB  |  42 lines
  1. @POWER POWSHEET SET-POS WORKING
  2.  01 IMAGE-POS IS GLOBAL EXTERNAL.
  3.    02 POS-X PIC S9(4) COMP-5.
  4.    02 POS-Y PIC S9(4) COMP-5.
  5.  01 CLOSE-FLAG PIC 9 IS EXTERNAL GLOBAL.
  6. @POWER POWSHEET SET-POS OPENED
  7.  ENVIRONMENT DIVISION.
  8.  DATA        DIVISION.
  9.  PROCEDURE   DIVISION.
  10.         MOVE POS-X TO POW-NUMERIC OF PIC1.
  11.         MOVE POS-Y TO POW-NUMERIC OF PIC2.
  12. @POWER POWPSBTN PUSH1 CLICK
  13.  ENVIRONMENT DIVISION.
  14.  DATA        DIVISION.
  15.  PROCEDURE   DIVISION.
  16.         MOVE POW-NUMERIC OF PIC1 TO POS-X.
  17.         MOVE POW-NUMERIC OF PIC2 TO POS-Y.
  18.         MOVE 1 TO CLOSE-FLAG.
  19.         CALL CLOSESHEET OF SET-POS.
  20. @POWER POWPSBTN PUSH2 CLICK
  21.  ENVIRONMENT DIVISION.
  22.  DATA        DIVISION.
  23.  PROCEDURE   DIVISION.
  24.         MOVE 0 TO CLOSE-FLAG.
  25.         CALL CLOSESHEET OF SET-POS.
  26. @POWER POWPIC PIC1 RETURN
  27.  ENVIRONMENT DIVISION.
  28.  DATA        DIVISION.
  29.  PROCEDURE   DIVISION.
  30.         MOVE POW-NUMERIC OF PIC1 TO POS-X.
  31.         MOVE POW-NUMERIC OF PIC2 TO POS-Y.
  32.         MOVE 1 TO CLOSE-FLAG.
  33.         CALL CLOSESHEET OF SET-POS.
  34. @POWER POWPIC PIC2 RETURN
  35.  ENVIRONMENT DIVISION.
  36.  DATA        DIVISION.
  37.  PROCEDURE   DIVISION.
  38.         MOVE POW-NUMERIC OF PIC1 TO POS-X.
  39.         MOVE POW-NUMERIC OF PIC2 TO POS-Y.
  40.         MOVE 1 TO CLOSE-FLAG.
  41.         CALL CLOSESHEET OF SET-POS.
  42.