home *** CD-ROM | disk | FTP | other *** search
/ Sams Cobol 24 Hours / Sams_Cobol_24_Hours.iso / Cobol32 / PowerCBL / powercbl.Z / powprint.ocb < prev    next >
Text File  |  1995-12-19  |  8KB  |  153 lines
  1. 000010 IDENTIFICATION    DIVISION.
  2. 000020 CLASS-ID.    POWPRINT.
  3. 000030 ENVIRONMENT    DIVISION.
  4. 000040 CONFIGURATION SECTION.
  5. 000050 SPECIAL-NAMES.
  6. 000060      SYMBOLIC CONSTANT IS EXTERNAL
  7. 000070*
  8. 000080**    CONSTANT FOR POW-PAPERTYPE
  9. 000090*
  10. 000100      POW-PAPERLETTER    IS 1
  11. 000110      POW-PAPERA3        IS 8
  12. 000120      POW-PAPERA4        IS 9
  13. 000130      POW-PAPERA5        IS 11
  14. 000140      POW-PAPERB4        IS 12
  15. 000150      POW-PAPERB5        IS 13
  16. 000160*
  17. 000170**    CONSTANT FOR POW-PAGEFORMAT
  18. 000180*
  19. 000190      POW-CURPRNTPAGE    IS 1
  20. 000200      POW-CURPAGEPERTOT  IS 2
  21. 000210*
  22. 000220**    CONSTANT FOR POW-PRINTRANGE
  23. 000230*
  24. 000240*      POW-ALLPAGE        IS 1
  25. 000250*      POW-NOTALLPAGE     IS 2
  26. 000260
  27. 000270**    CONSTANT FOR POW-PAPERDIRECT
  28. 000280*
  29. 000290      POW-PORTRAIT       IS 1
  30. 000300      POW-LANDSCAPE      IS 2
  31. 000310
  32. 000320**    VALUE FOR FONTNAME
  33. 000330   
  34. 000340      POW-MSMYUNGJO      IS "élér û╛Æ⌐"
  35. 000350      POW-MSGOTHIC       IS "élér âRâVâbâN"
  36. 000360      POW-ARIAL          IS "Arial"
  37. 000370      POW-COURIERNEW     IS "Courier New"
  38. 000380      POW-TIMESNEWROMAN  IS "Times New Roman"
  39. 000390      POW-WINGDINGS      IS "Wingdings"
  40. 000400      POW-FENCES         IS "Fences"
  41. 000410      POW-MTEXTRA        IS "MT Extra"
  42. 000420      POW-SYMBOL         IS "Symbol"
  43. 000430 CLASS        SECTION.
  44. 000440      INHERIT POWFUND EXTERNAL.        *> âNâëâXîpÅ│é╠ïLÅq
  45. 000450 DATA        DIVISION.
  46. 000460 CLASS        SECTION.
  47. 000470    01 POW-BOTTOMMARGIN    PIC S9(4) COMP-5.
  48. 000480  01 POW-UPMARGIN     PIC S9(4) COMP-5.
  49. 000490    01 POW-LEFTMARGIN    PIC S9(4) COMP-5.
  50. 000500    01 POW-RIGHTMARGIN    PIC S9(4) COMP-5.
  51. 000510    01 POW-PUNCHMARGIN    PIC S9(4) COMP-5.
  52. 000520    01 POW-PAPERTYPE    PIC S9(4) COMP-5.
  53. 000530    01 POW-PAGENOFORMAT    PIC S9(4) COMP-5.
  54. 000540    01 POW-HEADSTRING    PIC X(256).
  55. 000550  01 POW-HEADSTRINGN  PIC N(128).
  56. 000560    01 POW-PAPERDIRECT    PIC S9(4) COMP-5.
  57. 000570 PROCEDURE    DIVISION.
  58. 000580**
  59. 000590**   GET PROCESS
  60. 000600**
  61. 000610       FUNCTION REFERENCE OF POW-UPMARGIN () IS EXTERNAL BY VALUE PIC S9(4) COMP-5
  62. 000620            REPLACING NAME BY "XPOWPRINTGETUPMARGIN" .
  63. 000630       FUNCTION REFERENCE OF POW-BOTTOMMARGIN () IS EXTERNAL BY VALUE PIC S9(4) COMP-5
  64. 000640            REPLACING NAME BY "XPOWPRINTGETBOTTOMMARGIN" .
  65. 000650       FUNCTION REFERENCE OF POW-LEFTMARGIN () IS EXTERNAL BY VALUE PIC S9(4) COMP-5
  66. 000660            REPLACING NAME BY "XPOWPRINTGETLEFTMARGIN" .
  67. 000670       FUNCTION REFERENCE OF POW-RIGHTMARGIN () IS EXTERNAL BY VALUE PIC S9(4) COMP-5
  68. 000680            REPLACING NAME BY "XPOWPRINTGETRIGHTMARGIN" .
  69. 000690       FUNCTION REFERENCE OF POW-PUNCHMARGIN () IS EXTERNAL BY VALUE PIC S9(4) COMP-5
  70. 000700            REPLACING NAME BY "XPOWPRINTGETPUNCHMARGIN" .
  71. 000710       FUNCTION REFERENCE OF POW-PAPERTYPE () IS EXTERNAL BY VALUE PIC S9(4) COMP-5
  72. 000720            REPLACING NAME BY "XPOWPRINTGETPAPERTYPE" .
  73. 000730       FUNCTION REFERENCE OF POW-PAGENOFORMAT () IS EXTERNAL BY VALUE PIC S9(4) COMP-5
  74. 000740            REPLACING NAME BY "XPOWPRINTGETPAGEFORMAT" .
  75. 000750       FUNCTION REFERENCE OF POW-HEADSTRING () IS EXTERNAL BY VALUE PIC X(256)
  76. 000760            REPLACING NAME BY "XPOWPRINTGETHEADSTRING" .
  77. 000770       FUNCTION REFERENCE OF POW-HEADSTRINGN () IS EXTERNAL BY VALUE PIC N(128)
  78. 000780            REPLACING NAME BY "XPOWPRINTGETHEADSTRINGN" .
  79. 000790       FUNCTION REFERENCE OF POW-PAPERDIRECT () IS EXTERNAL BY VALUE PIC S9(4) COMP-5
  80. 000800            REPLACING NAME BY "XPOWPRINTGETPAPERDIRECT" .
  81. 000810**
  82. 000820**   SET PROCESS
  83. 000830**
  84. 000840       FUNCTION MOVE OF POW-UPMARGIN (BY VALUE TYPE IS NUMERIC PIC S9(4) COMP-5) IS EXTERNAL
  85. 000850            REPLACING NAME BY "XPOWPRINTSETUPMARGIN" .
  86. 000860       FUNCTION MOVE OF POW-BOTTOMMARGIN (BY VALUE TYPE IS NUMERIC PIC S9(4) COMP-5) IS EXTERNAL
  87. 000870            REPLACING NAME BY "XPOWPRINTSETBOTTOMMARGIN" .
  88. 000880       FUNCTION MOVE OF POW-LEFTMARGIN (BY VALUE TYPE IS NUMERIC PIC S9(4) COMP-5) IS EXTERNAL
  89. 000890            REPLACING NAME BY "XPOWPRINTSETLEFTMARGIN" .
  90. 000900       FUNCTION MOVE OF POW-RIGHTMARGIN (BY VALUE TYPE IS NUMERIC PIC S9(4) COMP-5) IS EXTERNAL
  91. 000910            REPLACING NAME BY "XPOWPRINTSETRIGHTMARGIN" .
  92. 000920       FUNCTION MOVE OF POW-PUNCHMARGIN (BY VALUE TYPE IS NUMERIC PIC S9(4) COMP-5) IS EXTERNAL
  93. 000930            REPLACING NAME BY "XPOWPRINTSETPUNCHMARGIN" .
  94. 000940       FUNCTION MOVE OF POW-PAPERTYPE (BY VALUE TYPE IS NUMERIC PIC S9(4) COMP-5) IS EXTERNAL
  95. 000950            REPLACING NAME BY "XPOWPRINTSETPAPERTYPE" .
  96. 000960       FUNCTION MOVE OF POW-PAGENOFORMAT (BY VALUE TYPE IS NUMERIC PIC S9(4) COMP-5) IS EXTERNAL
  97. 000970            REPLACING NAME BY "XPOWPRINTSETPAGEFORMAT" .
  98. 000980       FUNCTION MOVE OF POW-HEADSTRING (BY CONTENT TYPE IS ALPHANUMERIC PIC X(256)) IS EXTERNAL
  99. 000990            REPLACING NAME BY "XPOWPRINTSETHEADSTRING" .
  100. 001000       FUNCTION MOVE OF POW-HEADSTRINGN (BY CONTENT TYPE IS ALPHANUMERIC PIC N(128)) IS EXTERNAL
  101. 001010            REPLACING NAME BY "XPOWPRINTSETHEADSTRINGN" .
  102. 001020       FUNCTION MOVE OF POW-PAPERDIRECT (BY VALUE TYPE IS NUMERIC PIC S9(4) COMP-5) IS EXTERNAL
  103. 001030            REPLACING NAME BY "XPOWPRINTSETPAPERDIRECT" .
  104. 001040       FUNCTION MOVE OF POW-TITLEPRN (BY VALUE TYPE IS NUMERIC PIC S9(4) COMP-5) IS EXTERNAL
  105. 001050            REPLACING NAME BY "XPOWPRINTSETHEADPRNOPTION" .
  106. 001060       FUNCTION MOVE OF POW-PAGEPRN (BY VALUE TYPE IS NUMERIC PIC S9(4) COMP-5) IS EXTERNAL
  107. 001070            REPLACING NAME BY "XPOWPRINTSETPGNUMPRNPRNOPTION" .
  108. 001080**
  109. 001090**   CALL FUNCTIONS
  110. 001100**
  111. 001110       FUNCTION OPENPRINTER () IS EXTERNAL
  112. 001120            REPLACING NAME BY "XPOWPRINTSTART" .
  113. 001130       FUNCTION CLOSEPRINTER () IS EXTERNAL
  114. 001140            REPLACING NAME BY "XPOWPRINTSTOP" .
  115. 001150       FUNCTION WRITESHEET () IS EXTERNAL
  116. 001160            REPLACING NAME BY "XPOWPRINTSHEET" .
  117. 001170       FUNCTION WRITEITEM (BY CONTENT TYPE IS ALPHANUMERIC PIC X(15)) IS EXTERNAL
  118. 001180            REPLACING NAME BY "XPOWPRINTITEM" .
  119. 001190       FUNCTION WRITEITEM (BY CONTENT TYPE IS ALPHANUMERIC PIC X(15)
  120. 001200                         BY VALUE TYPE IS NUMERIC PIC S9(4) COMP-5
  121. 001210                         BY VALUE TYPE IS NUMERIC PIC S9(4) COMP-5) IS EXTERNAL
  122. 001220            REPLACING NAME BY "XPOWPRINTITEM1" .
  123. 001230     FUNCTION WRITETEXT (BY CONTENT TYPE IS ALPHANUMERIC PIC X(128)
  124. 001240                         BY VALUE TYPE IS NUMERIC PIC S9(4) COMP-5
  125. 001250                         BY VALUE TYPE IS NUMERIC PIC S9(4) COMP-5) IS EXTERNAL
  126. 001260              REPLACING NAME BY "XPOWPRINTTEXT".
  127. 001270     FUNCTION WRITETEXT (BY CONTENT TYPE IS ALPHANUMERIC PIC X(128)
  128. 001280                         BY VALUE TYPE IS NUMERIC PIC S9(4) COMP-5
  129. 001290                         BY VALUE TYPE IS NUMERIC PIC S9(4) COMP-5
  130. 001300                     BY CONTENT TYPE IS ALPHANUMERIC PIC X(32)
  131. 001310                         BY VALUE TYPE IS NUMERIC PIC S9(4) COMP-5) IS EXTERNAL
  132. 001320              REPLACING NAME BY "XPOWPRINTTEXT1".
  133. 001330     FUNCTION WRITETEXTN (BY CONTENT TYPE IS ALPHANUMERIC PIC N(64)
  134. 001340                         BY VALUE TYPE IS NUMERIC PIC S9(4) COMP-5
  135. 001350                         BY VALUE TYPE IS NUMERIC PIC S9(4) COMP-5) IS EXTERNAL
  136. 001360              REPLACING NAME BY "XPOWPRINTTEXT".
  137. 001370     FUNCTION WRITETEXTN (BY CONTENT TYPE IS ALPHANUMERIC PIC N(64)
  138. 001380                         BY VALUE TYPE IS NUMERIC PIC S9(4) COMP-5
  139. 001390                         BY VALUE TYPE IS NUMERIC PIC S9(4) COMP-5
  140. 001400                           BY CONTENT TYPE IS ALPHANUMERIC PIC X(32)
  141. 001410                         BY VALUE TYPE IS NUMERIC PIC S9(4) COMP-5) IS EXTERNAL
  142. 001420              REPLACING NAME BY "XPOWPRINTTEXT1".
  143. 001430      FUNCTION CHANGEPAGE () IS EXTERNAL
  144. 001440            REPLACING NAME BY "XPOWPRINTCHANGEPAGE" .
  145. 001450      FUNCTION GETPRINTRECT() IS EXTERNAL BY VALUE PIC X(8)
  146. 001460            REPLACING NAME BY "XPOWPRINTGETPRINTRECT" .
  147. 001470      FUNCTION GETPOSITION (BY CONTENT TYPE IS ALPHANUMERIC PIC X(15))
  148. 001480                           IS EXTERNAL BY VALUE PIC X(8)
  149. 001490*      FUNCTION GETPOSITION (BY CONTENT TYPE IS ALPHANUMERIC PIC X(8))
  150. 001500*                           IS EXTERNAL BY VALUE PIC X(15)
  151. 001510        REPLACING NAME BY "XPOWPRINTGETPOSITION" .
  152. 001520 END CLASS POWPRINT.
  153.