home *** CD-ROM | disk | FTP | other *** search
/ Sams Cobol 24 Hours / Sams_Cobol_24_Hours.iso / Cobol32 / PowerCBL / powercbl.Z / powsheet.ocb < prev    next >
Text File  |  1996-03-07  |  10KB  |  209 lines
  1. 000010 IDENTIFICATION    DIVISION.
  2. 000020 CLASS-ID.    POWSHEET.
  3. 000030 ENVIRONMENT    DIVISION.
  4. 000040 CONFIGURATION SECTION.
  5. 000050 SPECIAL-NAMES.
  6. 000060      SYMBOLIC CONSTANT IS EXTERNAL
  7. 000070**
  8. 000080**    POWER--XXXXXXX   DEFINE MESSAGE FROM POWERRUN.
  9. 000090**
  10. 000100      POWER--CREATE           IS 1024      *> WM-USER
  11. 000110      POWER--COMMAND          IS 1025      *> WM-USER+1
  12. 000120      POWER--OPENED           IS 1036      *> WM-USER+12
  13. 000130      POWER--CLOSE            IS 1037      *> WM-USER+13
  14. 000140      POWER--OPENSHEET        IS 1026      *> WM-USER+2
  15. 000150      POWER--CLOSESHEET       IS 1027      *> WM-USER+3
  16. 000160      POWER--GETPROP          IS 1028      *> WM-USER+4
  17. 000170      POWER--SETPROP          IS 1029      *> WM-USER+5
  18. 000180      POWER--SPFIRST          IS 1030      *> WM-USER+6
  19. 000190      POWER--GETACCEL         IS 1031      *> WM-USER+7
  20. 000200      POWER--ENDAPPLICATION   IS 1032      *> WM-USER+8
  21. 000210      POWER--ACTIVATESHEET    IS 1033      *> WM-USER+9
  22. 000220      POWER--CREATESHEET      IS 1034      *> WM-USER+10
  23. 000230      POWER--CLICKED          IS 1035      *> WM-USER+11
  24. 000240      POWER--START            IS 1038      *> WM-USER+14
  25. 000250      POWER--CHANGEPARENTSIZE IS 1039      *> WM-USER+15
  26. 000260      POWER--GETAPPNAME       IS 1040      *> WM-USER+16
  27. 000270      POWER--GETAPP           IS 1041      *> WM-USER+17
  28. 000280      POWER--PURGE            IS 1042      *> WM-USER+18
  29. 000290      POWER--STOPEVENT        IS 1043      *> WM-USER+19
  30. 000300      POWER--NOP              IS 1044      *> WM-USER+20
  31. 000310      POWER--TAB              IS 1045      *> WM-USER+21
  32. 000320      POWER--UP               IS 1046      *> WM-USER+22
  33. 000330      POWER--DOWN                IS 1047      *> WM-USER+23
  34. 000340      POWER--RETURN           IS 1048      *> WM-USER+24
  35. 000350      POWER--CLOSECHILD       IS 1049      *> WM-USER+25
  36. 000360**
  37. 000370**    POW-DMXXXXXXX  DEFINE STYLE FOR DISPLAYMESSAGE METHOD
  38. 000380**
  39. 000390      POW-DMDEFAULT          IS 0          *> 0x0000
  40. 000400*
  41. 000410      POW-DMOK               IS 0          *> 0x0000
  42. 000420      POW-DMOKCANCEL         IS 1          *> 0x0001
  43. 000430      POW-DMABORTRETRYIGNORE IS 2          *> 0x0002
  44. 000440      POW-DMYESNOCANCEL      IS 3          *> 0x0003
  45. 000450      POW-DMYESNO            IS 4          *> 0x0004
  46. 000460      POW-DMRETRYCANCEL      IS 5          *> 0x0005
  47. 000470*
  48. 000480      POW-DMNOICON           IS 0          *> 0x0000
  49. 000490      POW-DMICONSTOP         IS 16         *> 0x0010
  50. 000500      POW-DMICONQUESTION     IS 32         *> 0x0020
  51. 000510      POW-DMICONEXCLAMATION  IS 48         *> 0x0030
  52. 000520      POW-DMICONINFORMATION  IS 64         *> 0x0040
  53. 000530*
  54. 000540      POW-DMDEFBUTTON1       IS 0          *> 0x0000
  55. 000550      POW-DMDEFBUTTON2       IS 256        *> 0x0100
  56. 000560      POW-DMDEFBUTTON3       IS 512        *> 0x0200
  57. 000570*
  58. 000580      POW-DMAPPLMODAL        IS 0          *> 0x0000
  59. 000590      POW-DMSYSTEMMODAL      IS 4096       *> 0x1000
  60. 000600      POW-DMTASKMODAL        IS 8192       *> 0x2000
  61. 000610**
  62. 000620**    POW-DMRXXXXXX    DEFINE RETURN CODE FROM DISPLAY-MSG METHOD
  63. 000630**
  64. 000640      POW-DMRNOMEMORY        IS 0
  65. 000650      POW-DMROK              IS 1
  66. 000660      POW-DMRCANCEL          IS 2
  67. 000670      POW-DMRABORT           IS 3
  68. 000680      POW-DMRRETRY           IS 4
  69. 000690      POW-DMRIGNORE          IS 5
  70. 000700      POW-DMRYES             IS 6
  71. 000710      POW-DMRNO              IS 7
  72. 000720**
  73. 000730**    POW-SWXXXXXXX    DEFINE WINEXEC PARM
  74. 000740**
  75. 000750*     CONSTANT FOR NCMNDSHOW
  76. 000760*
  77. 000770      POW-SWHIDE             IS 0
  78. 000780      POW-SWSHOWNORMAL       IS 1
  79. 000790      POW-SWNORMAL           IS 1
  80. 000800      POW-SWSHOWMINIMIZED    IS 2
  81. 000810      POW-SWSHOWMAXIMIZED    IS 3
  82. 000820      POW-SWMAXIMIZED        IS 3
  83. 000830      POW-SWSHOWNOACTIVATE   IS 4
  84. 000840      POW-SWSHOW             IS 5
  85. 000850      POW-SWMINIMIZED        IS 6
  86. 000860      POW-SWSHOWMINNOACTIVE  IS 7
  87. 000870      POW-SWSHOWNA           IS 8
  88. 000880      POW-SWRESTORE          IS 9
  89. 000890**
  90. 000900**    POW-CDXXXXXXX  DEFINE STYLE FOR GETFILENAME METHOD
  91. 000910**
  92. 000920      POW-CDOPEN             IS 0          *> 0x0000
  93. 000930      POW-CDSAVE             IS 1          *> 0x0001
  94. 000935      POW-CDLFNAME           IS 4          *> 0x0004
  95. 000940*
  96. 000950      POW-CDCHANGEDIR        IS 0          *> 0x0000
  97. 000960      POW-CDNOCHANGEDIR      IS 2          *> 0x0002
  98. 000970**
  99. 000980**    POW-CDXXXXXX    DEFINE RETURN CODE FROM GETFILENAME METHOD
  100. 000990**
  101. 001000      POW-CDOK               IS 1
  102. 001010      POW-CDCANCEL           IS 2
  103. 001020**
  104. 001030**    POW-MBXXXXXX    DEFINE ALARM TYPE FOR ALARM METHOD
  105. 001040**
  106. 001050      POW-MBOK               IS 0
  107. 001060      POW-MBHAND             IS 16         *>0x0010
  108. 001070      POW-MBQUESTION         IS 32         *>0x0020
  109. 001080      POW-MBEXCLAMATION      IS 48         *>0x0030
  110. 001090      POW-MBASTERISK         IS 64         *>0x0040
  111. 001100**
  112. 001110**    POW-CUXXXXXX    DEFINE CURSOR TYPE FOR POW-CURSOR PROP
  113. 001120**
  114. 001130      POW-CUARROW            IS "POW-CUARROW"
  115. 001140      POW-CUCROSS            IS "POW-CUCROSS"
  116. 001150      POW-CUIBEAM            IS "POW-CUIBEAM"
  117. 001160      POW-CUICON             IS "POW-CUICON"
  118. 001170      POW-CUSIZE             IS "POW-CUSIZE"
  119. 001180      POW-CUSIZENESW         IS "POW-CUSIZENESW"
  120. 001190      POW-CUSIZENS           IS "POW-CUSIZENS"
  121. 001200      POW-CUSIZENWSE         IS "POW-CUSIZENWSE"
  122. 001210      POW-CUSIZEWE           IS "POW-CUSIZEWE"
  123. 001220      POW-CUUPARROW          IS "POW-CUUPARROW"
  124. 001230      POW-CUWAIT             IS "POW-CUWAIT"
  125. 001232      POW-CUNO               IS "POW-CUNO"
  126. 001234      POW-CUAPPSTART         IS "POW-CUAPPSTART"
  127. 001240**
  128. 001250**    POW-ICXXXXXX    DEFINE ICON TYPE FOR POW-ICON PROP
  129. 001260**
  130. 001270      POW-ICAPP              IS "POW-ICAPP"
  131. 001280      POW-ICINFO             IS "POW-ICINFO"
  132. 001290      POW-ICEXCLM            IS "POW-ICEXCLM"
  133. 001300      POW-ICSTOP             IS "POW-ICSTOP"
  134. 001310      POW-ICQUESTION         IS "POW-ICQUESTION"
  135. 001320     .
  136. 001330 CLASS        SECTION.
  137. 001340     INHERIT POWWND EXTERNAL.        *> âNâëâXîpÅ│é╠ïLÅq
  138. 001350 DATA        DIVISION.
  139. 001360 CLASS        SECTION.
  140. 001370    01 POW-COMMANDLINE        PIC X(260).
  141. 001380    01 POW-ICON                PIC X(14).
  142. 001390    01 POW-CURSOR            PIC X(14).
  143. 001400 PROCEDURE    DIVISION.
  144. 001410       FUNCTION OPENSHEET (BY CONTENT TYPE IS ALPHANUMERIC PIC X(14)) IS EXTERNAL
  145. 001420            REPLACING NAME BY "XPOWCSOPENSHEET" .
  146. 001430       FUNCTION OPENSHEET (BY CONTENT TYPE IS ALPHANUMERIC PIC X(260)
  147. 001440                         BY CONTENT TYPE IS ALPHANUMERIC PIC X(14)) IS EXTERNAL
  148. 001450            REPLACING NAME BY "XPOWCSOPENDLLSHEET" .
  149. 001460       FUNCTION CLOSESHEET (BY CONTENT TYPE IS ALPHANUMERIC PIC X(260)
  150. 001470                          BY CONTENT TYPE IS ALPHANUMERIC PIC X(14)) IS EXTERNAL
  151. 001480            REPLACING NAME BY "XPOWCSCLOSEDLLSHEET" .
  152. 001490       FUNCTION CLOSESHEET (BY CONTENT TYPE IS ALPHANUMERIC PIC X(14)) IS EXTERNAL
  153. 001500            REPLACING NAME BY "XPOWCSCLOSESHEET" .
  154. 001510       FUNCTION CLOSESHEET () IS EXTERNAL
  155. 001520            REPLACING NAME BY "XPOWCSCLOSEMYSELF" .
  156. 001530       FUNCTION REFERENCE OF POW-COMMANDLINE () IS EXTERNAL BY VALUE PIC X(260)
  157. 001540            REPLACING NAME BY "XPOWCSGETCOMMANDLINE" .
  158. 001550       FUNCTION MOVE OF POW-ICON (BY CONTENT TYPE IS ALPHANUMERIC PIC X(14)) IS EXTERNAL
  159. 001560            REPLACING NAME BY "XPOWCSSETICON" .
  160. 001570        FUNCTION REFERENCE OF POW-ICON () IS EXTERNAL BY VALUE PIC X(14)
  161. 001580            REPLACING NAME BY "XPOWCSGETICON" .
  162. 001590       FUNCTION MOVE OF POW-CURSOR (BY CONTENT TYPE IS ALPHANUMERIC PIC X(14)) IS EXTERNAL
  163. 001600            REPLACING NAME BY "XPOWCSSETCURSOR" .
  164. 001610       FUNCTION REFERENCE OF POW-CURSOR () IS EXTERNAL BY VALUE PIC X(14)
  165. 001620            REPLACING NAME BY "XPOWCSGETCURSOR" .
  166. 001630       FUNCTION ENDAPPLICATION () IS EXTERNAL
  167. 001640            REPLACING NAME BY "XPOWCSENDAPPLICATION" .
  168. 001650       FUNCTION DISPLAYMESSAGE (BY CONTENT TYPE IS ALPHANUMERIC PIC X(256)
  169. 001660                                BY CONTENT TYPE IS ALPHANUMERIC PIC X(60)
  170. 001670                                BY VALUE   TYPE IS NUMERIC      PIC S9(4) COMP-5) IS EXTERNAL
  171. 001680            REPLACING NAME BY "XPOWCSMESSAGEBOX" .
  172. 001690       FUNCTION DISPLAYMESSAGE (BY CONTENT TYPE IS ALPHANUMERIC PIC X(256)
  173. 001700                             ) IS EXTERNAL
  174. 001710            REPLACING NAME BY "XPOWCSMSGBOXDEFAULT" .
  175. 001720       FUNCTION GETFILENAME (BY CONTENT TYPE IS ALPHANUMERIC PIC X(60)
  176. 001730                                BY CONTENT TYPE IS ALPHANUMERIC PIC X(128)
  177. 001740                                BY VALUE   TYPE IS NUMERIC      PIC S9(4) COMP-5
  178. 001750                                ) IS EXTERNAL BY VALUE PIC X(260)
  179. 001760            REPLACING NAME BY "XPOWGETFILENAME" .
  180. 001770       FUNCTION EXECAPL (BY CONTENT TYPE IS ALPHANUMERIC PIC X(256)
  181. 001780                         BY VALUE   TYPE IS NUMERIC      PIC S9(4) COMP-5
  182. 001790                         ) IS EXTERNAL
  183. 001800            REPLACING NAME BY "XPOWCSEXEC" .
  184. 001810       FUNCTION EXECAPL (BY CONTENT TYPE IS ALPHANUMERIC PIC X(256)
  185. 001820                         ) IS EXTERNAL
  186. 001830            REPLACING NAME BY "XPOWCSEXECDEFAULT" .
  187. 001840       FUNCTION ALARM  (BY VALUE TYPE IS NUMERIC PIC S9(4) COMP-5
  188. 001850                        ) IS EXTERNAL
  189. 001860            REPLACING NAME BY "XPOWCSALARM" .
  190. 001870       FUNCTION MESSAGEBEEP  (BY VALUE TYPE IS NUMERIC PIC S9(4) COMP-5
  191. 001880                        ) IS EXTERNAL
  192. 001890            REPLACING NAME BY "XPOWCSALARM" .
  193. 001900       FUNCTION ALARM  () IS EXTERNAL
  194. 001910            REPLACING NAME BY "XPOWCSALARMDEFAULT" .
  195. 001920        FUNCTION GETSCREENSIZE () IS EXTERNAL BY VALUE PIC X(4)
  196. 001930            REPLACING NAME BY "XPOWCSGETSCREENSIZES" .
  197. 001940       FUNCTION SHOWSHEET (BY VALUE TYPE IS NUMERIC PIC S9(4) COMP-5
  198. 001950                        ) IS EXTERNAL
  199. 001960            REPLACING NAME BY "XPOWCSSHOWSHEET" .
  200. 001970*       FUNCTION CALLSHEET (BY CONTENT TYPE IS ALPHANUMERIC PIC X(14)
  201. 001980*                        ) IS EXTERNAL
  202. 001990*            REPLACING NAME BY "XPOWCSCALLSHEET" .
  203. 002000*       FUNCTION CALLSHEET (BY CONTENT TYPE IS ALPHANUMERIC PIC X(128)
  204. 002100*                         BY CONTENT TYPE IS ALPHANUMERIC PIC X(14)) IS EXTERNAL
  205. 002110*            REPLACING NAME BY "XPOWCSCALLDLLSHEET" .
  206. 002120       FUNCTION REDRAWSHEET () IS EXTERNAL
  207. 002130            REPLACING NAME BY "XPOWCSREDRAWSHEET" .
  208. 002140 END CLASS POWSHEET.
  209.