home *** CD-ROM | disk | FTP | other *** search
/ Sams Cobol 24 Hours / Sams_Cobol_24_Hours.iso / Cobol32 / PowerCBL / powercbl.Z / powdde.ocb < prev    next >
Text File  |  1996-01-30  |  7KB  |  137 lines
  1. 000010 IDENTIFICATION    DIVISION.
  2. 000020 CLASS-ID.    POWDDE.
  3. 000030 ENVIRONMENT    DIVISION.
  4. 000040 CONFIGURATION SECTION.
  5. 000050 SPECIAL-NAMES.
  6. 000060      SYMBOLIC CONSTANT IS EXTERNAL
  7. 000070**
  8. 000080**    POW-DDEXXXXXX    DEFINE DDE ITEM
  9. 000090**
  10. 000100*     CONSTANT FOR POW-DDELINKSTYLE
  11. 000110*
  12. 000120      POW-DDEHOTLINK         IS 1
  13. 000130      POW-DDEWARMLINK        IS 2
  14. 000140
  15. 000150*     CONSTANT FOR POW-DDEDATASTYLE
  16. 000160*
  17. 000170      POW-DDETEXT            IS 10
  18. 000180      POW-DDEBINARY          IS 11
  19. 000190
  20. 000200*     CONSTANT FOR POW-DDECBCALLSTYLE
  21. 000210*
  22. 000220      POW-DDE1CALL           IS 1
  23. 000230      POW-DDE2CALL           IS 2
  24. 000240*
  25. 000250     .
  26. 000260 CLASS        SECTION.
  27. 000270     INHERIT POWFUND EXTERNAL.        *> âNâëâXîpÅ│é╠ïLÅq
  28. 000280 DATA        DIVISION.
  29. 000290 CLASS        SECTION.
  30. 000300    01 POW-DDESERVICE    PIC X(128).
  31. 000305*//for win32:update
  32. 000310*    01 POW-DDETOPIC        PIC X(128).
  33. 000315    01 POW-DDETOPIC        PIC X(260).
  34. 000320    01 POW-DDEITEM        PIC X(128).
  35. 000330    01 POW-DDEFORMAT    PIC X(32).
  36. 000340    01 POW-DDELINKSTYLE    PIC S9(4) COMP-5.
  37. 000350    01 POW-DDEDATASTYLE    PIC S9(4) COMP-5.
  38. 000360    01 POW-DDEDATALEN    PIC S9(9) COMP-5.
  39. 000370    01 POW-DDEDATA        PIC X(4096).
  40. 000380    01 POW-DDEDATAOFFSET    PIC S9(9) COMP-5.
  41. 000390    01 POW-DDETIMEOUT    PIC S9(9) COMP-5.
  42. 000400    01 POW-DDECBCALLSTYLE    PIC S9(4) COMP-5.
  43. 000410 PROCEDURE    DIVISION.
  44. 000420       FUNCTION REFERENCE OF POW-DDESERVICE () IS EXTERNAL BY VALUE PIC X(128)
  45. 000430            REPLACING NAME BY "XPOWDDEGETSVCNAME" .
  46. 000435*//for win32:update
  47. 000440*       FUNCTION REFERENCE OF POW-DDETOPIC () IS EXTERNAL BY VALUE PIC X(128)
  48. 000445       FUNCTION REFERENCE OF POW-DDETOPIC () IS EXTERNAL BY VALUE PIC X(260)
  49. 000450            REPLACING NAME BY "XPOWDDEGETTPCNAME" .
  50. 000460       FUNCTION REFERENCE OF POW-DDEITEM () IS EXTERNAL BY VALUE PIC X(128)
  51. 000470            REPLACING NAME BY "XPOWDDEGETITMNAME" .
  52. 000480       FUNCTION REFERENCE OF POW-DDEFORMAT () IS EXTERNAL BY VALUE PIC X(32)
  53. 000490            REPLACING NAME BY "XPOWDDEGETFMTNAME" .
  54. 000500       FUNCTION REFERENCE OF POW-DDELINKSTYLE () IS EXTERNAL BY VALUE PIC S9(4) COMP-5
  55. 000510            REPLACING NAME BY "XPOWDDEGETLINKSTYLE" .
  56. 000520       FUNCTION REFERENCE OF POW-DDEDATASTYLE () IS EXTERNAL BY VALUE PIC S9(4) COMP-5
  57. 000530            REPLACING NAME BY "XPOWDDEGETDATASTYLE" .
  58. 000540       FUNCTION REFERENCE OF POW-DDEDATAOFFSET () IS EXTERNAL BY VALUE PIC S9(9) COMP-5
  59. 000550            REPLACING NAME BY "XPOWDDEGETDATAOFFSET" .
  60. 000560       FUNCTION REFERENCE OF POW-DDEDATALEN () IS EXTERNAL BY VALUE PIC S9(9) COMP-5
  61. 000570            REPLACING NAME BY "XPOWDDEGETDATALEN" .
  62. 000580       FUNCTION REFERENCE OF POW-DDEDATA () IS EXTERNAL BY VALUE PIC X(4096)
  63. 000590            REPLACING NAME BY "XPOWDDEGETDATA" .
  64. 000600       FUNCTION REFERENCE OF POW-DDETIMEOUT () IS EXTERNAL BY VALUE PIC S9(9) COMP-5
  65. 000610            REPLACING NAME BY "XPOWDDEGETTIMEOUT" .
  66. 000620       FUNCTION REFERENCE OF POW-DDECBCALLSTYLE () IS EXTERNAL BY VALUE PIC S9(4) COMP-5
  67. 000630            REPLACING NAME BY "XPOWDDEGETCBACKCALLSTYLE" .
  68. 000640       FUNCTION MOVE OF POW-DDESERVICE (BY CONTENT TYPE IS ALPHANUMERIC PIC X(128)) IS EXTERNAL
  69. 000650            REPLACING NAME BY "XPOWDDESETSVCNAME" .
  70. 000655*//for win32:update
  71. 000660*       FUNCTION MOVE OF POW-DDETOPIC (BY CONTENT TYPE IS ALPHANUMERIC PIC X(128)) IS EXTERNAL
  72. 000665       FUNCTION MOVE OF POW-DDETOPIC (BY CONTENT TYPE IS ALPHANUMERIC PIC X(260)) IS EXTERNAL
  73. 000670            REPLACING NAME BY "XPOWDDESETTPCNAME" .
  74. 000680       FUNCTION MOVE OF POW-DDEITEM (BY CONTENT TYPE IS ALPHANUMERIC PIC X(128)) IS EXTERNAL
  75. 000690            REPLACING NAME BY "XPOWDDESETITMNAME" .
  76. 000700       FUNCTION MOVE OF POW-DDEFORMAT (BY CONTENT TYPE IS ALPHANUMERIC PIC X(32)) IS EXTERNAL
  77. 000710            REPLACING NAME BY "XPOWDDESETFMTNAME" .
  78. 000720       FUNCTION MOVE OF POW-DDELINKSTYLE (BY VALUE TYPE IS NUMERIC PIC S9(4) COMP-5) IS EXTERNAL
  79. 000730            REPLACING NAME BY "XPOWDDESETLINKSTYLE" .
  80. 000740       FUNCTION MOVE OF POW-DDEDATASTYLE (BY VALUE TYPE IS NUMERIC PIC S9(4) COMP-5) IS EXTERNAL
  81. 000750            REPLACING NAME BY "XPOWDDESETDATASTYLE" .
  82. 000760       FUNCTION MOVE OF POW-DDEDATAOFFSET (BY VALUE TYPE IS NUMERIC PIC S9(9) COMP-5) IS EXTERNAL
  83. 000770            REPLACING NAME BY "XPOWDDESETDATAOFFSET" .
  84. 000780       FUNCTION MOVE OF POW-DDETIMEOUT (BY VALUE TYPE IS NUMERIC PIC S9(9) COMP-5) IS EXTERNAL
  85. 000790            REPLACING NAME BY "XPOWDDESETTIMEOUT" .
  86. 000800       FUNCTION MOVE OF POW-DDECBCALLSTYLE (BY VALUE TYPE IS NUMERIC PIC S9(4) COMP-5) IS EXTERNAL
  87. 000810            REPLACING NAME BY "XPOWDDESETCBACKCALLSTYLE" .
  88. 000820**
  89. 000830**   CALL FUNCTIONS
  90. 000840**for win32:update by Kim
  91. 000845*       FUNCTION EXECAPL (BY CONTENT TYPE IS ALPHANUMERIC PIC X(256)
  92. 000850       FUNCTION EXECAPL (BY CONTENT TYPE IS ALPHANUMERIC PIC X(520)
  93. 000860                         BY VALUE   TYPE IS NUMERIC      PIC S9(4) COMP-5) IS EXTERNAL
  94. 000870            REPLACING NAME BY "XPOWDDEEXEC" .
  95. 000880       FUNCTION INITIATEDDE () IS EXTERNAL
  96. 000890            REPLACING NAME BY "XPOWDDEINITIATE" .
  97. 000900       FUNCTION TERMINATEDDE () IS EXTERNAL
  98. 000910            REPLACING NAME BY "XPOWDDETERMINATE" .
  99. 000920       FUNCTION EXECUTEDDECMD (BY CONTENT TYPE IS ALPHANUMERIC PIC X(256)) IS EXTERNAL
  100. 000930            REPLACING NAME BY "XPOWDDEEXECUTE" .
  101. 000940       FUNCTION EXECUTEDDECMD512 (BY CONTENT TYPE IS ALPHANUMERIC PIC X(512)) IS EXTERNAL
  102. 000950            REPLACING NAME BY "XPOWDDEEXECUTE512" .
  103. 000960       FUNCTION EXECUTEDDECMD1024 (BY CONTENT TYPE IS ALPHANUMERIC PIC X(1024)) IS EXTERNAL
  104. 000970            REPLACING NAME BY "XPOWDDEEXECUTE1024" .
  105. 000980       FUNCTION EXECUTEDDECMD2048 (BY CONTENT TYPE IS ALPHANUMERIC PIC X(2048)) IS EXTERNAL
  106. 000990            REPLACING NAME BY "XPOWDDEEXECUTE2048" .
  107. 001000       FUNCTION EXECUTEDDECMD3072 (BY CONTENT TYPE IS ALPHANUMERIC PIC X(3072)) IS EXTERNAL
  108. 001010            REPLACING NAME BY "XPOWDDEEXECUTE3072" .
  109. 001020       FUNCTION EXECUTEDDECMD4096 (BY CONTENT TYPE IS ALPHANUMERIC PIC X(4096)) IS EXTERNAL
  110. 001030            REPLACING NAME BY "XPOWDDEEXECUTE4096" .
  111. 001040       FUNCTION EXECUTEDDECMD5120 (BY CONTENT TYPE IS ALPHANUMERIC PIC X(5120)) IS EXTERNAL
  112. 001050            REPLACING NAME BY "XPOWDDEEXECUTE5120" .
  113. 001060       FUNCTION REQUESTDATA () IS EXTERNAL BY VALUE PIC X(1028)
  114. 001070            REPLACING NAME BY "XPOWDDEREQUEST" .
  115. 001080       FUNCTION POKEDATA (BY CONTENT TYPE IS ALPHANUMERIC PIC X(260)) IS EXTERNAL
  116. 001090            REPLACING NAME BY "XPOWDDEPOKE" .
  117. 001110       FUNCTION POKEDATA1 (BY CONTENT TYPE IS ALPHANUMERIC PIC X(1028)) IS EXTERNAL
  118. 001120            REPLACING NAME BY "XPOWDDEPOKE1" .
  119. 001130       FUNCTION POKEDATA4 (BY CONTENT TYPE IS ALPHANUMERIC PIC X(4100)) IS EXTERNAL
  120. 001140            REPLACING NAME BY "XPOWDDEPOKE4" .
  121. 001150       FUNCTION POKEDATA8 (BY CONTENT TYPE IS ALPHANUMERIC PIC X(8196)) IS EXTERNAL
  122. 001160            REPLACING NAME BY "XPOWDDEPOKE8" .
  123. 001170       FUNCTION ADVISEDDE () IS EXTERNAL
  124. 001180            REPLACING NAME BY "XPOWDDEADVISE" .
  125. 001190       FUNCTION UNADVISEDDE () IS EXTERNAL
  126. 001200            REPLACING NAME BY "XPOWDDEUNADVISE" .
  127. 001210       FUNCTION OPENDDE () IS EXTERNAL
  128. 001220            REPLACING NAME BY "XPOWDDEOPEN" .
  129. 001230       FUNCTION CLOSEDDE () IS EXTERNAL
  130. 001240            REPLACING NAME BY "XPOWDDECLOSE" .
  131. 001250       FUNCTION GETHOTDATA () IS EXTERNAL BY VALUE PIC X(1028)
  132. 001260            REPLACING NAME BY "XPOWDDEHOTDATA" .
  133. 001270       FUNCTION CHANGEDDEITEM (BY CONTENT TYPE IS ALPHANUMERIC PIC X(128)
  134. 001280                            BY CONTENT TYPE IS ALPHANUMERIC PIC X(32)) IS EXTERNAL
  135. 001290            REPLACING NAME BY "XPOWDDECHANGEITEM" .
  136. 001300 END CLASS POWDDE.
  137.