home *** CD-ROM | disk | FTP | other *** search
/ Sams Cobol 24 Hours / Sams_Cobol_24_Hours.iso / Cobol32 / PowerCBL / powercbl.Z / powgraph.ocb < prev    next >
Text File  |  1995-12-19  |  3KB  |  59 lines
  1. 000010 IDENTIFICATION DIVISION.
  2. 000020 CLASS-ID.      POWGRAPH.
  3. 000030 ENVIRONMENT    DIVISION.
  4. 000040 CLASS          SECTION.
  5. 000050     INHERIT POWWND EXTERNAL.           *> âNâëâXîpÅ│é╠ïLÅq
  6. 000060 DATA           DIVISION.
  7. 000070 CLASS          SECTION.
  8. 000080*
  9. 000090 PROCEDURE      DIVISION.
  10. 000100    FUNCTION MOVE OF POW-NUMDATA (BY VALUE TYPE IS NUMERIC PIC S9(4) COMP-5)
  11. 000110             IS EXTERNAL
  12. 000120                REPLACING NAME BY "FXPOWGRAPHSETNUMDATA" .
  13. 000130    FUNCTION REFERENCE OF POW-NUMDATA () IS EXTERNAL BY VALUE  PIC S9(4) COMP-5
  14. 000140                REPLACING NAME BY "FXPOWGRAPHGETNUMDATA" .
  15. 000150*
  16. 000160    FUNCTION MOVE OF POW-UPPER (BY VALUE TYPE IS NUMERIC PIC S9(9) COMP-5)
  17. 000170             IS EXTERNAL
  18. 000180                REPLACING NAME BY "FXPOWGRAPHSETUPPER" .
  19. 000190    FUNCTION REFERENCE OF POW-UPPER () IS EXTERNAL BY VALUE  PIC S9(9) COMP-5
  20. 000200                REPLACING NAME BY "FXPOWGRAPHGETUPPER" .
  21. 000210*
  22. 000220    FUNCTION MOVE OF POW-LOWER (BY VALUE TYPE IS NUMERIC PIC S9(9) COMP-5)
  23. 000230             IS EXTERNAL
  24. 000240                REPLACING NAME BY "FXPOWGRAPHSETLOWER" .
  25. 000250    FUNCTION REFERENCE OF POW-LOWER () IS EXTERNAL BY VALUE  PIC S9(9) COMP-5
  26. 000260                REPLACING NAME BY "FXPOWGRAPHGETLOWER" .
  27. 000270*
  28. 000280    FUNCTION MOVE OF POW-DATA (BY VALUE TYPE IS NUMERIC PIC S9(9) COMP-5 INDEXED)
  29. 000290             IS EXTERNAL
  30. 000300                REPLACING NAME BY "FXPOWGRAPHSETDATA" .
  31. 000310    FUNCTION REFERENCE OF POW-DATA (INDEXED) IS EXTERNAL BY VALUE  PIC S9(9) COMP-5
  32. 000320                REPLACING NAME BY "FXPOWGRAPHGETDATA" .
  33. 000330*
  34. 000340    FUNCTION MOVE OF POW-DATACOLOR (BY CONTENT TYPE IS ALPHANUMERIC PIC X(4) INDEXED)
  35. 000350             IS EXTERNAL
  36. 000360                REPLACING NAME BY "FXPOWGRAPHSETDATACOLOR" .
  37. 000370    FUNCTION REFERENCE OF POW-DATACOLOR (INDEXED) IS EXTERNAL BY VALUE PIC X(4)
  38. 000380                REPLACING NAME BY "FXPOWGRAPHGETDATACOLOR" .
  39. 000390*
  40. 000400    FUNCTION MOVE OF POW-GRAPHSTYLE (BY VALUE TYPE IS NUMERIC PIC S9(4) COMP-5)
  41. 000410             IS EXTERNAL
  42. 000420                REPLACING NAME BY "FXPOWGRAPHSETSTYLE" .
  43. 000430    FUNCTION REFERENCE OF POW-GRAPHSTYLE () IS EXTERNAL BY VALUE PIC S9(4) COMP-5
  44. 000440                REPLACING NAME BY "FXPOWGRAPHGETSTYLE" .
  45. 000450*
  46. 000460    FUNCTION MOVE OF POW-AXISVALUE (BY VALUE TYPE IS NUMERIC PIC S9(9) COMP-5)
  47. 000470             IS EXTERNAL
  48. 000480                REPLACING NAME BY "FXPOWGRAPHSETAXISVALUE" .
  49. 000490    FUNCTION REFERENCE OF POW-AXISVALUE () IS EXTERNAL BY VALUE PIC S9(9) COMP-5
  50. 000500                REPLACING NAME BY "FXPOWGRAPHGETAXISVALUE" .
  51. 000510*
  52. 000520    FUNCTION MOVE OF POW-PIEVALUE (BY VALUE TYPE IS NUMERIC PIC S9(4) COMP-5)
  53. 000530             IS EXTERNAL
  54. 000540                REPLACING NAME BY "FXPOWGRAPHSETPIEVALUE" .
  55. 000550    FUNCTION REFERENCE OF POW-PIEVALUE () IS EXTERNAL BY VALUE PIC S9(4) COMP-5
  56. 000560                REPLACING NAME BY "FXPOWGRAPHGETPIEVALUE" .
  57. 000570*
  58. 000580 END CLASS POWGRAPH.
  59.