home *** CD-ROM | disk | FTP | other *** search
/ Sams Cobol 24 Hours / Sams_Cobol_24_Hours.iso / Cobol32 / PowerCBL / powercbl.Z / powexcel.ocb < prev    next >
Text File  |  1996-01-29  |  5KB  |  78 lines
  1. 000010 IDENTIFICATION   DIVISION.
  2. 000020 CLASS-ID.        POWEXCEL.
  3. 000030 ENVIRONMENT      DIVISION.
  4. 000040 CLASS            SECTION.
  5. 000050     INHERIT POWFUND EXTERNAL.            *> âNâëâXîpÅ│é╠ïLÅq
  6. 000060 DATA             DIVISION.
  7. 000070 CLASS            SECTION.
  8. 000080*//for win32:update 
  9. 000090*  01 POW-SHEETNAME        PIC X(128).
  10. 000095  01 POW-SHEETNAME        PIC X(260).
  11. 000100*  01 POW-DATA64           PIC X(64).
  12. 000110*  01 POW-DATA128          PIC X(128).
  13. 000120*  01 POW-DATA256          PIC X(256).
  14. 000130  01 POW-TEXT             PIC X(256). 
  15. 000140  01 POW-TEXTN            PIC N(128). 
  16. 000150  01 POW-NUMERIC          PIC S9(14)V9(4).
  17. 000160 PROCEDURE        DIVISION.
  18. 000165*//for win32:update
  19. 000170*     FUNCTION REFERENCE OF POW-SHEETNAME () IS EXTERNAL BY VALUE PIC X(128)
  20. 000175     FUNCTION REFERENCE OF POW-SHEETNAME () IS EXTERNAL BY VALUE PIC X(260)
  21. 000180                  REPLACING NAME BY "XPOWEXCELGETSHEETNAME" .
  22. 000190*     FUNCTION REFERENCE OF POW-DATA64 (INDEXED INDEXED) IS EXTERNAL BY VALUE PIC X(64)
  23. 000200*                  REPLACING NAME BY "XPOWEXCELGETD64DMS".
  24. 000210*     FUNCTION REFERENCE OF POW-DATA128 (INDEXED INDEXED) IS EXTERNAL BY VALUE PIC X(128)
  25. 000220*                  REPLACING NAME BY "XPOWEXCELGETD128DMS".
  26. 000230*     FUNCTION REFERENCE OF POW-DATA256 (INDEXED INDEXED) IS EXTERNAL BY VALUE PIC X(256)
  27. 000240*                  REPLACING NAME BY "XPOWEXCELDATA256DMS".
  28. 000250     FUNCTION REFERENCE OF POW-TEXT (INDEXED INDEXED) IS EXTERNAL BY VALUE PIC X(256)
  29. 000260                  REPLACING NAME BY "XPOWEXCELGETD256DMS".
  30. 000270     FUNCTION REFERENCE OF POW-TEXTN (INDEXED INDEXED) IS EXTERNAL BY VALUE PIC N(128)
  31. 000280                  REPLACING NAME BY "XPOWEXCELGETD256DMSN".
  32. 000290     FUNCTION REFERENCE OF POW-NUMERIC (INDEXED INDEXED) IS EXTERNAL BY VALUE PIC S9(14)V9(4) 
  33. 000300                  REPLACING NAME BY "XPOWEXCELGETNUMDMS".
  34. 000305*//for win32:update
  35. 000310*     FUNCTION MOVE OF POW-SHEETNAME (BY CONTENT TYPE IS ALPHANUMERIC PIC X(128)) IS EXTERNAL
  36. 000315     FUNCTION MOVE OF POW-SHEETNAME (BY CONTENT TYPE IS ALPHANUMERIC PIC X(260)) IS EXTERNAL
  37. 000320                  REPLACING NAME BY "XPOWEXCELSETSHEETNAME" .
  38. 000330*     FUNCTION MOVE OF POW-DATA64 (BY CONTENT TYPE IS ALPHANUMERIC PIC X(64) 
  39. 000340*                          INDEXED INDEXED) IS EXTERNAL 
  40. 000350*                  REPLACING NAME BY "XPOWEXCELSETD64DMS".
  41. 000360*     FUNCTION MOVE OF POW-DATA128 (BY CONTENT TYPE IS ALPHANUMERIC PIC X(128)
  42. 000370*                           INDEXED INDEXED) IS EXTERNAL
  43. 000380*                  REPLACING NAME BY "XPOWEXCELSETD128DMS". 
  44. 000390*     FUNCTION MOVE OF POW-DATA256 (BY CONTENT TYPE IS ALPHANUMERIC PIC X(256)
  45. 000400*                           INDEXED INDEXED) IS EXTERNAL
  46. 000410*                  REPLACING NAME BY "XPOWEXCELSETD256DMS".
  47. 000420     FUNCTION MOVE OF POW-TEXT (BY CONTENT TYPE IS ALPHANUMERIC PIC X(256)
  48. 000430                           INDEXED INDEXED) IS EXTERNAL
  49. 000440                  REPLACING NAME BY "XPOWEXCELSETD256DMS".
  50. 000450     FUNCTION MOVE OF POW-TEXTN (BY CONTENT TYPE IS ALPHANUMERIC PIC N(128)
  51. 000460                           INDEXED INDEXED) IS EXTERNAL
  52. 000470                  REPLACING NAME BY "XPOWEXCELSETD256DMS".
  53. 000480     FUNCTION MOVE OF POW-NUMERIC (BY CONTENT TYPE IS NUMERIC PIC S9(14)V9(4)
  54. 000490                           INDEXED INDEXED) IS EXTERNAL
  55. 000500                  REPLACING NAME BY "XPOWEXCELSETNUMDMS".
  56. 000510**
  57. 000520**   CALL FUNCTIONS
  58. 000530**
  59. 000540     FUNCTION CONNECTEXCEL () IS EXTERNAL
  60. 000550                  REPLACING NAME BY "XPOWEXCELCONNECT" .
  61. 000560     FUNCTION DISCONNECTEXCEL () IS EXTERNAL
  62. 000570                  REPLACING NAME BY "XPOWEXCELDISCONNECT" .
  63. 000580     FUNCTION NEWEXCELSHEET () IS EXTERNAL
  64. 000590                  REPLACING NAME BY "XPOWEXCELNEW" .
  65. 000595*//for win32:update
  66. 000600*     FUNCTION OPENEXCELSHEET (BY CONTENT TYPE IS ALPHANUMERIC PIC X(128)) IS EXTERNAL
  67. 000605     FUNCTION OPENEXCELSHEET (BY CONTENT TYPE IS ALPHANUMERIC PIC X(260)) IS EXTERNAL
  68. 000610                  REPLACING NAME BY "XPOWEXCELOPEN" .
  69. 000620     FUNCTION SAVEEXCELSHEET () IS EXTERNAL
  70. 000630                  REPLACING NAME BY "XPOWEXCELSAVE" .
  71. 000635*//for win32:update
  72. 000640*    FUNCTION SAVEASEXCELSHEET (BY CONTENT TYPE IS ALPHANUMERIC PIC X(128)) IS EXTERNAL
  73. 000645*    FUNCTION SAVEASEXCELSHEET (BY CONTENT TYPE IS ALPHANUMERIC PIC X(260)) IS EXTERNAL
  74. 000650*                 REPLACING NAME BY "XPOWEXCELSAVEAS" .
  75. 000660     FUNCTION CLOSEEXCELSHEET () IS EXTERNAL
  76. 000670                  REPLACING NAME BY "XPOWEXCELCLOSE" .
  77. 000680 END CLASS POWEXCEL.
  78.