home *** CD-ROM | disk | FTP | other *** search
/ Sams Cobol 24 Hours / Sams_Cobol_24_Hours.iso / Cobol32 / PowerCBL / powercbl.Z / powmfgra.ocb < prev    next >
Text File  |  1995-12-19  |  9KB  |  159 lines
  1. 000010 IDENTIFICATION    DIVISION.
  2. 000020 CLASS-ID.    POWMFGRA.
  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-MGGKIND (BY VALUE TYPE IS NUMERIC PIC S9(4) COMP-5) IS EXTERNAL
  11. 000110         REPLACING NAME BY "XPOWMFGRASETGKIND" .
  12. 000120    FUNCTION REFERENCE OF POW-MGGKIND () IS EXTERNAL BY VALUE  PIC S9(4) COMP-5
  13. 000130         REPLACING NAME BY "XPOWMFGRAGETGKIND" .
  14. 000140*
  15. 000150    FUNCTION MOVE OF POW-MGTSCALE (BY VALUE TYPE IS NUMERIC PIC S9(4) COMP-5) IS EXTERNAL
  16. 000160         REPLACING NAME BY "XPOWMFGRASETTSCALE" .
  17. 000170    FUNCTION REFERENCE OF POW-MGTSCALE () IS EXTERNAL BY VALUE  PIC S9(4) COMP-5
  18. 000180         REPLACING NAME BY "XPOWMFGRAGETTSCALE" .
  19. 000190*
  20. 000200    FUNCTION MOVE OF POW-MGTSVALUE (BY VALUE TYPE IS NUMERIC PIC S9(4) COMP-5) IS EXTERNAL
  21. 000210         REPLACING NAME BY "XPOWMFGRASETTSVALUE" .
  22. 000220    FUNCTION REFERENCE OF POW-MGTSVALUE () IS EXTERNAL BY VALUE  PIC S9(4) COMP-5
  23. 000230         REPLACING NAME BY "XPOWMFGRAGETTSVALUE" .
  24. 000240*
  25. 000250    FUNCTION MOVE OF POW-MGTSTYPE (BY VALUE TYPE IS NUMERIC PIC S9(4) COMP-5) IS EXTERNAL
  26. 000260         REPLACING NAME BY "XPOWMFGRASETTSTYPE" .
  27. 000270    FUNCTION REFERENCE OF POW-MGTSTYPE () IS EXTERNAL BY VALUE  PIC S9(4) COMP-5
  28. 000280         REPLACING NAME BY "XPOWMFGRAGETTSTYPE" .
  29. 000290*
  30. 000300    FUNCTION MOVE OF POW-MGTSAUTO (BY VALUE TYPE IS NUMERIC PIC S9(4) COMP-5) IS EXTERNAL
  31. 000310         REPLACING NAME BY "XPOWMFGRASETTSAUTO" .
  32. 000320    FUNCTION REFERENCE OF POW-MGTSAUTO () IS EXTERNAL BY VALUE  PIC S9(4) COMP-5
  33. 000330         REPLACING NAME BY "XPOWMFGRAGETTSAUTO" .
  34. 000340*
  35. 000350    FUNCTION MOVE OF POW-MGTSUPPER (BY VALUE TYPE IS NUMERIC PIC S9(9) COMP-5) IS EXTERNAL
  36. 000360         REPLACING NAME BY "XPOWMFGRASETTSUPPER" .
  37. 000370    FUNCTION REFERENCE OF POW-MGTSUPPER () IS EXTERNAL BY VALUE  PIC S9(9) COMP-5
  38. 000380         REPLACING NAME BY "XPOWMFGRAGETTSUPPER" .
  39. 000390*
  40. 000400    FUNCTION MOVE OF POW-MGTSLOWER (BY VALUE TYPE IS NUMERIC PIC S9(9) COMP-5) IS EXTERNAL
  41. 000410         REPLACING NAME BY "XPOWMFGRASETTSLOWER" .
  42. 000420    FUNCTION REFERENCE OF POW-MGTSLOWER () IS EXTERNAL BY VALUE  PIC S9(9) COMP-5
  43. 000430         REPLACING NAME BY "XPOWMFGRAGETTSLOWER" .
  44. 000440*
  45. 000450    FUNCTION MOVE OF POW-MGLEGEND (BY VALUE TYPE IS NUMERIC PIC S9(4) COMP-5) IS EXTERNAL
  46. 000460         REPLACING NAME BY "XPOWMFGRASETLEGEND" .
  47. 000470    FUNCTION REFERENCE OF POW-MGLEGEND () IS EXTERNAL BY VALUE  PIC S9(4) COMP-5
  48. 000480         REPLACING NAME BY "XPOWMFGRAGETLEGEND" .
  49. 000490*
  50. 000500    FUNCTION MOVE OF POW-MGPROJECT (BY VALUE TYPE IS NUMERIC PIC S9(4) COMP-5) IS EXTERNAL
  51. 000510         REPLACING NAME BY "XPOWMFGRASETPROJECT" .
  52. 000520    FUNCTION REFERENCE OF POW-MGPROJECT () IS EXTERNAL BY VALUE  PIC S9(4) COMP-5
  53. 000530         REPLACING NAME BY "XPOWMFGRAGETPROJECT" .
  54. 000540*
  55. 000550    FUNCTION MOVE OF POW-MGDAREA (BY CONTENT TYPE IS ALPHANUMERIC PIC X(12)) IS EXTERNAL
  56. 000560         REPLACING NAME BY "XPOWMFGRASETDAREA" .
  57. 000570    FUNCTION REFERENCE OF POW-MGDAREA () IS EXTERNAL BY VALUE  PIC X(12)
  58. 000580         REPLACING NAME BY "XPOWMFGRAGETDAREA" .
  59. 000590*
  60. 000600    FUNCTION MOVE OF POW-MGGLCOLOR (BY VALUE TYPE IS NUMERIC PIC S9(4) COMP-5 INDEXED) IS EXTERNAL
  61. 000610         REPLACING NAME BY "XPOWMFGRASETGLCOLOR" .
  62. 000620    FUNCTION REFERENCE OF POW-MGGLCOLOR (INDEXED) IS EXTERNAL BY VALUE  PIC S9(4) COMP-5
  63. 000630         REPLACING NAME BY "XPOWMFGRAGETGLCOLOR" .
  64. 000640*
  65. 000650    FUNCTION MOVE OF POW-MGGLKIND (BY VALUE TYPE IS NUMERIC PIC S9(4) COMP-5 INDEXED) IS EXTERNAL
  66. 000660         REPLACING NAME BY "XPOWMFGRASETGLKIND" .
  67. 000670    FUNCTION REFERENCE OF POW-MGGLKIND (INDEXED) IS EXTERNAL BY VALUE  PIC S9(4) COMP-5
  68. 000680         REPLACING NAME BY "XPOWMFGRAGETGLKIND" .
  69. 000690*
  70. 000700    FUNCTION MOVE OF POW-MGGPMODE (BY VALUE TYPE IS NUMERIC PIC S9(4) COMP-5 INDEXED) IS EXTERNAL
  71. 000710         REPLACING NAME BY "XPOWMFGRASETGPMODE" .
  72. 000720    FUNCTION REFERENCE OF POW-MGGPMODE (INDEXED) IS EXTERNAL BY VALUE  PIC S9(4) COMP-5
  73. 000730         REPLACING NAME BY "XPOWMFGRAGETGPMODE" .
  74. 000740*
  75. 000750    FUNCTION MOVE OF POW-MGGCOLOR (BY VALUE TYPE IS NUMERIC PIC S9(4) COMP-5 INDEXED) IS EXTERNAL
  76. 000760         REPLACING NAME BY "XPOWMFGRASETGCOLOR" .
  77. 000770    FUNCTION REFERENCE OF POW-MGGCOLOR (INDEXED) IS EXTERNAL BY VALUE  PIC S9(4) COMP-5
  78. 000780         REPLACING NAME BY "XPOWMFGRAGETGCOLOR" .
  79. 000790*
  80. 000800    FUNCTION MOVE OF POW-MGGHATTCH (BY VALUE TYPE IS NUMERIC PIC S9(4) COMP-5 INDEXED) IS EXTERNAL
  81. 000810         REPLACING NAME BY "XPOWMFGRASETGHATTCH" .
  82. 000820    FUNCTION REFERENCE OF POW-MGGHATTCH (INDEXED) IS EXTERNAL BY VALUE  PIC S9(4) COMP-5
  83. 000830         REPLACING NAME BY "XPOWMFGRAGETGHATTCH" .
  84. 000840*
  85. 000850    FUNCTION MOVE OF POW-MGAPMODE (BY VALUE TYPE IS NUMERIC PIC S9(4) COMP-5) IS EXTERNAL
  86. 000860         REPLACING NAME BY "XPOWMFGRASETAPMODE" .
  87. 000870    FUNCTION REFERENCE OF POW-MGAPMODE () IS EXTERNAL BY VALUE  PIC S9(4) COMP-5
  88. 000880         REPLACING NAME BY "XPOWMFGRAGETAPMODE" .
  89. 000890*
  90. 000900    FUNCTION MOVE OF POW-MGACOLOR (BY VALUE TYPE IS NUMERIC PIC S9(4) COMP-5) IS EXTERNAL
  91. 000910         REPLACING NAME BY "XPOWMFGRASETACOLOR" .
  92. 000920    FUNCTION REFERENCE OF POW-MGACOLOR () IS EXTERNAL BY VALUE  PIC S9(4) COMP-5
  93. 000930         REPLACING NAME BY "XPOWMFGRAGETACOLOR" .
  94. 000940*
  95. 000950    FUNCTION MOVE OF POW-MGAHATTCH (BY VALUE TYPE IS NUMERIC PIC S9(4) COMP-5) IS EXTERNAL
  96. 000960         REPLACING NAME BY "XPOWMFGRASETAHATTCH" .
  97. 000970    FUNCTION REFERENCE OF POW-MGAHATTCH () IS EXTERNAL BY VALUE  PIC S9(4) COMP-5
  98. 000980         REPLACING NAME BY "XPOWMFGRAGETAHATTCH" .
  99. 000990*
  100. 001000    FUNCTION MOVE OF POW-MGBPMODE (BY VALUE TYPE IS NUMERIC PIC S9(4) COMP-5) IS EXTERNAL
  101. 001010         REPLACING NAME BY "XPOWMFGRASETBPMODE" .
  102. 001020    FUNCTION REFERENCE OF POW-MGBPMODE () IS EXTERNAL BY VALUE  PIC S9(4) COMP-5
  103. 001030         REPLACING NAME BY "XPOWMFGRAGETBPMODE" .
  104. 001040*
  105. 001050    FUNCTION MOVE OF POW-MGBCOLOR (BY VALUE TYPE IS NUMERIC PIC S9(4) COMP-5) IS EXTERNAL
  106. 001060         REPLACING NAME BY "XPOWMFGRASETBCOLOR" .
  107. 001070    FUNCTION REFERENCE OF POW-MGBCOLOR () IS EXTERNAL BY VALUE  PIC S9(4) COMP-5
  108. 001080         REPLACING NAME BY "XPOWMFGRAGETBCOLOR" .
  109. 001090*
  110. 001100    FUNCTION MOVE OF POW-MGBHATTCH (BY VALUE TYPE IS NUMERIC PIC S9(4) COMP-5) IS EXTERNAL
  111. 001110         REPLACING NAME BY "XPOWMFGRASETBHATTCH" .
  112. 001120    FUNCTION REFERENCE OF POW-MGBHATTCH () IS EXTERNAL BY VALUE  PIC S9(4) COMP-5
  113. 001130         REPLACING NAME BY "XPOWMFGRAGETBHATTCH" .
  114. 001140*
  115. 001150    FUNCTION MOVE OF POW-MGINUM (BY VALUE TYPE IS NUMERIC PIC S9(4) COMP-5) IS EXTERNAL
  116. 001160         REPLACING NAME BY "XPOWMFGRASETINUM" .
  117. 001170    FUNCTION REFERENCE OF POW-MGINUM () IS EXTERNAL BY VALUE  PIC S9(4) COMP-5
  118. 001180         REPLACING NAME BY "XPOWMFGRAGETINUM" .
  119. 001190*
  120. 001200    FUNCTION MOVE OF POW-MGENUM (BY VALUE TYPE IS NUMERIC PIC S9(4) COMP-5) IS EXTERNAL
  121. 001210         REPLACING NAME BY "XPOWMFGRASETENUM" .
  122. 001220    FUNCTION REFERENCE OF POW-MGENUM () IS EXTERNAL BY VALUE  PIC S9(4) COMP-5
  123. 001230         REPLACING NAME BY "XPOWMFGRAGETENUM" .
  124. 001240*
  125. 001250    FUNCTION MOVE OF POW-MGINAME (BY CONTENT TYPE IS ALPHANUMERIC PIC X(20) INDEXED) IS EXTERNAL
  126. 001260         REPLACING NAME BY "XPOWMFGRASETINAME" .
  127. 001270    FUNCTION REFERENCE OF POW-MGINAME (INDEXED) IS EXTERNAL BY VALUE PIC X(20)
  128. 001280         REPLACING NAME BY "XPOWMFGRAGETINAME" .
  129. 001290*
  130. 001300    FUNCTION MOVE OF POW-MGENAME (BY CONTENT TYPE IS ALPHANUMERIC PIC X(20) INDEXED) IS EXTERNAL
  131. 001310         REPLACING NAME BY "XPOWMFGRASETENAME" .
  132. 001320    FUNCTION REFERENCE OF POW-MGENAME (INDEXED) IS EXTERNAL BY VALUE PIC X(20)
  133. 001330         REPLACING NAME BY "XPOWMFGRAGETENAME" .
  134. 001340*
  135. 001350    FUNCTION MOVE OF POW-MGDATA (BY VALUE TYPE IS NUMERIC PIC S9(9) COMP-5 INDEXED INDEXED) IS EXTERNAL
  136. 001360         REPLACING NAME BY "XPOWMFGRASETDATA" .
  137. 001370    FUNCTION REFERENCE OF POW-MGDATA (INDEXED INDEXED) IS EXTERNAL BY VALUE PIC S9(9) COMP-5
  138. 001380         REPLACING NAME BY "XPOWMFGRAGETDATA" .
  139. 001390*
  140. 001400    FUNCTION REDRAW () IS EXTERNAL
  141. 001410         REPLACING NAME BY "XPOWMFGRASHOW" .
  142. 001420*
  143. 001430    FUNCTION MOVE OF POW-MGINAMEX (BY CONTENT TYPE IS ALPHANUMERIC PIC X(340)) IS EXTERNAL
  144. 001440         REPLACING NAME BY "XPOWMFGRASETINAMEX" .
  145. 001450    FUNCTION REFERENCE OF POW-MGINAMEX () IS EXTERNAL BY VALUE PIC X(340)
  146. 001460         REPLACING NAME BY "XPOWMFGRAGETINAMEX" .
  147. 001470*
  148. 001480    FUNCTION MOVE OF POW-MGENAMEX (BY CONTENT TYPE IS ALPHANUMERIC PIC X(340)) IS EXTERNAL
  149. 001490         REPLACING NAME BY "XPOWMFGRASETENAMEX" .
  150. 001500    FUNCTION REFERENCE OF POW-MGENAMEX () IS EXTERNAL BY VALUE PIC X(340)
  151. 001510         REPLACING NAME BY "XPOWMFGRAGETENAMEX" .
  152. 001520*
  153. 001530    FUNCTION MOVE OF POW-MGDATAX (BY CONTENT TYPE IS ALPHANUMERIC PIC X(6400)) IS EXTERNAL
  154. 001540         REPLACING NAME BY "XPOWMFGRASETDATAX" .
  155. 001550    FUNCTION REFERENCE OF POW-MGDATAX () IS EXTERNAL BY VALUE PIC X(6400)
  156. 001560         REPLACING NAME BY "XPOWMFGRAGETDATAX" .
  157. 001570*
  158. 001580 END CLASS POWMFGRA.
  159.