home *** CD-ROM | disk | FTP | other *** search
/ Sams Cobol 24 Hours / Sams_Cobol_24_Hours.iso / Cobol32 / PowerCBL / powercbl.Z / powodbc.ocb < prev    next >
Text File  |  1996-01-29  |  29KB  |  497 lines
  1. 000010 IDENTIFICATION   DIVISION.
  2. 000020 CLASS-ID.    POWODBC REPLACING POW--N01 POW--N02 POW--N03 POW--N04
  3. 000021                                POW--N05 POW--N06 POW--N07 POW--N08
  4. 000022                                POW--N09 POW--N10 POW--N11 POW--N12
  5. 000023                                POW--N13 POW--N14 POW--N15 POW--N16
  6. 000024                                POW--N17 POW--N18 POW--N19 POW--N20
  7. 000025                                POW--N21 POW--N22 POW--N23 POW--N24
  8. 000026                                POW--N25 POW--N26 POW--N27 POW--N28
  9. 000027                                POW--N29 POW--N30 POW--N31 POW--N32
  10. 000028                                POW--N33 POW--N34 POW--N35 POW--N36
  11. 000029                                POW--N37 POW--N38 POW--N39 POW--N40
  12. 000030                                POW--N41 POW--N42 POW--N43 POW--N44
  13. 000031                                POW--N45 POW--N46 POW--N47 POW--N48
  14. 000032                                POW--N49 POW--N50 POW--N51 POW--N52
  15. 000033                                POW--N53 POW--N54 POW--N55 POW--N56
  16. 000034                                POW--N57 POW--N58 POW--N59 POW--N60
  17. 000035                                POW--N61 POW--N62 POW--N63 POW--N64
  18. 000036                                POW--T01 POW--T02 POW--T03 POW--T04
  19. 000037                                POW--T05 POW--T06 POW--T07 POW--T08
  20. 000038                                POW--T09 POW--T10 POW--T11 POW--T12
  21. 000039                                POW--T13 POW--T14 POW--T15 POW--T16
  22. 000040                                POW--T17 POW--T18 POW--T19 POW--T20
  23. 000041                                POW--T21 POW--T22 POW--T23 POW--T24
  24. 000042                                POW--T25 POW--T26 POW--T27 POW--T28
  25. 000043                                POW--T29 POW--T30 POW--T31 POW--T32
  26. 000044                                POW--T33 POW--T34 POW--T35 POW--T36
  27. 000045                                POW--T37 POW--T38 POW--T39 POW--T40
  28. 000046                                POW--T41 POW--T42 POW--T43 POW--T44
  29. 000047                                POW--T45 POW--T46 POW--T47 POW--T48
  30. 000048                                POW--T49 POW--T50 POW--T51 POW--T52
  31. 000049                                POW--T53 POW--T54 POW--T55 POW--T56
  32. 000050                                POW--T57 POW--T58 POW--T59 POW--T60
  33. 000051                                POW--T61 POW--T62 POW--T63 POW--T64.
  34. 000060 ENVIRONMENT  DIVISION.
  35. 000070 CONFIGURATION SECTION.
  36. 000080 SPECIAL-NAMES.
  37. 000090      SYMBOLIC CONSTANT IS EXTERNAL
  38. 000100**
  39. 000110**    POW-DBXXXXXX    DEFINE DB ITEM
  40. 000120**
  41. 000130**    Æ╟ë┴ 1995.10.23
  42. 000140      POW-DBONLYERRMSG       IS  0
  43. 000150      POW-DBNOMSG               IS  1
  44. 000160      POW-DBALLMSG           IS  2
  45. 000170      .
  46. 000180**    Æ╟ë┴ 1995.10.23
  47. 000200 CLASS          SECTION.
  48. 000210     INHERIT POWWND EXTERNAL. *> âNâëâXîpÅ│é╠ïLÅq
  49. 000220 DATA           DIVISION.
  50. 000230 CLASS          SECTION.
  51. 000240  01 POW-DBDATASOURCE     PIC X(32).
  52. 000245*//for win32:update
  53. 000250*  01 POW-DBDATABASE       PIC X(128).
  54. 000255  01 POW-DBDATABASE       PIC X(260).
  55. 000260  01 POW-DBUSERID         PIC X(32).
  56. 000270  01 POW-DBPASSWORD       PIC X(32).
  57. 000275*//for win32:update
  58. 000280*  01 POW-DBTABLENAME      PIC X(128).
  59. 000285  01 POW-DBTABLENAME      PIC X(260).
  60. 000290  01 POW-DBCONDITION      PIC X(512).
  61. 000300  01 POW-DBMANUALCOMMIT   PIC S9(4) COMP-5.
  62. 000311  01 POW-DBREADONLY       PIC S9(4) COMP-5.
  63. 000312  01 POW-DBFIELDCNT       PIC S9(4) COMP-5.
  64. 000313  01 POW--N01             POW--T01.
  65. 000314  01 POW--N02             POW--T02.
  66. 000315  01 POW--N03             POW--T03.
  67. 000316  01 POW--N04             POW--T04.
  68. 000317  01 POW--N05             POW--T05.
  69. 000318  01 POW--N06             POW--T06.
  70. 000319  01 POW--N07             POW--T07.
  71. 000320  01 POW--N08             POW--T08.
  72. 000321  01 POW--N09             POW--T09.
  73. 000322  01 POW--N10             POW--T10.
  74. 000323  01 POW--N11             POW--T11.
  75. 000324  01 POW--N12             POW--T12.
  76. 000325  01 POW--N13             POW--T13.
  77. 000326  01 POW--N14             POW--T14.
  78. 000327  01 POW--N15             POW--T15.
  79. 000328  01 POW--N16             POW--T16.
  80. 000329  01 POW--N17             POW--T17.
  81. 000330  01 POW--N18             POW--T18.
  82. 000331  01 POW--N19             POW--T19.
  83. 000332  01 POW--N20             POW--T20.
  84. 000333  01 POW--N21             POW--T21.
  85. 000334  01 POW--N22             POW--T22.
  86. 000335  01 POW--N23             POW--T23.
  87. 000336  01 POW--N24             POW--T24.
  88. 000337  01 POW--N25             POW--T25.
  89. 000338  01 POW--N26             POW--T26.
  90. 000339  01 POW--N27             POW--T27.
  91. 000340  01 POW--N28             POW--T28.
  92. 000341  01 POW--N29             POW--T29.
  93. 000342  01 POW--N30             POW--T30.
  94. 000343  01 POW--N31             POW--T31.
  95. 000344  01 POW--N32             POW--T32.
  96. 000345  01 POW--N33             POW--T33.
  97. 000346  01 POW--N34             POW--T34.
  98. 000347  01 POW--N35             POW--T35.
  99. 000348  01 POW--N36             POW--T36.
  100. 000349  01 POW--N37             POW--T37.
  101. 000350  01 POW--N38             POW--T38.
  102. 000351  01 POW--N39             POW--T39.
  103. 000352  01 POW--N40             POW--T40.
  104. 000353  01 POW--N41             POW--T41.
  105. 000354  01 POW--N42             POW--T42.
  106. 000355  01 POW--N43             POW--T43.
  107. 000356  01 POW--N44             POW--T44.
  108. 000357  01 POW--N45             POW--T45.
  109. 000358  01 POW--N46             POW--T46.
  110. 000359  01 POW--N47             POW--T47.
  111. 000360  01 POW--N48             POW--T48.
  112. 000361  01 POW--N49             POW--T49.
  113. 000362  01 POW--N50             POW--T50.
  114. 000363  01 POW--N51             POW--T51.
  115. 000364  01 POW--N52             POW--T52.
  116. 000365  01 POW--N53             POW--T53.
  117. 000366  01 POW--N54             POW--T54.
  118. 000367  01 POW--N55             POW--T55.
  119. 000368  01 POW--N56             POW--T56.
  120. 000369  01 POW--N57             POW--T57.
  121. 000370  01 POW--N58             POW--T58.
  122. 000371  01 POW--N59             POW--T59.
  123. 000372  01 POW--N60             POW--T60.
  124. 000373  01 POW--N61             POW--T61.
  125. 000374  01 POW--N62             POW--T62.
  126. 000375  01 POW--N63             POW--T63.
  127. 000376  01 POW--N64             POW--T64.
  128. 000380**    Æ╟ë┴ 1995.10.23
  129. 000390  01 POW-DBMESSAGELEVEL   PIC S9(4) COMP-5.
  130. 000400**    Æ╟ë┴ 1995.10.23
  131. 000590 PROCEDURE    DIVISION.
  132. 000600     FUNCTION REFERENCE OF POW-DBDATASOURCE () IS EXTERNAL BY VALUE PIC X(32)
  133. 000610          REPLACING NAME BY "XPOWDBGETDATASOURCE" .
  134. 000615*//for win32:update
  135. 000620*     FUNCTION REFERENCE OF POW-DBDATABASE () IS EXTERNAL BY VALUE PIC X(128)
  136. 000625     FUNCTION REFERENCE OF POW-DBDATABASE () IS EXTERNAL BY VALUE PIC X(260)
  137. 000630          REPLACING NAME BY "XPOWDBGETDATABASE" .
  138. 000640     FUNCTION REFERENCE OF POW-DBUSERID () IS EXTERNAL BY VALUE PIC X(32)
  139. 000650          REPLACING NAME BY "XPOWDBGETUSERID" .
  140. 000660     FUNCTION REFERENCE OF POW-DBPASSWORD () IS EXTERNAL BY VALUE PIC X(32)
  141. 000670          REPLACING NAME BY "XPOWDBGETPASSWORD" .
  142. 000680*//for win32:update
  143. 000690*     FUNCTION REFERENCE OF POW-DBTABLENAME () IS EXTERNAL BY VALUE PIC X(128)
  144. 000700     FUNCTION REFERENCE OF POW-DBTABLENAME () IS EXTERNAL BY VALUE PIC X(260)
  145. 000710          REPLACING NAME BY "XPOWDBGETTABLENAME" .
  146. 000720     FUNCTION REFERENCE OF POW-DBCONDITION () IS EXTERNAL BY VALUE PIC X(512)
  147. 000730          REPLACING NAME BY "XPOWDBGETCONDITION" .
  148. 000740     FUNCTION REFERENCE OF POW-DBMANUALCOMMIT () IS EXTERNAL BY VALUE PIC S9(4) COMP-5
  149. 000750          REPLACING NAME BY "XPOWDBGETCOMMIT" .
  150. 000760     FUNCTION REFERENCE OF POW-DBREADONLY () IS EXTERNAL BY VALUE PIC S9(4) COMP-5
  151. 000770          REPLACING NAME BY "XPOWDBGETREADONLY" .
  152. 000780     FUNCTION REFERENCE OF POW-DBFIELDCNT () IS EXTERNAL BY VALUE PIC S9(4) COMP-5
  153. 000790          REPLACING NAME BY "XPOWDBGETFIELDCNT" .
  154. 000791**    Æ╟ë┴ 1995.10.23
  155. 000792     FUNCTION REFERENCE OF POW-DBMESSAGELEVEL () IS EXTERNAL BY VALUE PIC S9(4) COMP-5
  156. 000793          REPLACING NAME BY "XPOWDBGETMESSAGELEVEL" .
  157. 000794**    Æ╟ë┴ 1995.10.23
  158. 000800     FUNCTION MOVE OF POW-DBDATASOURCE (BY CONTENT TYPE IS ALPHANUMERIC PIC X(32)) IS EXTERNAL
  159. 000810          REPLACING NAME BY "XPOWDBSETDATASOURCE" .
  160. 000815*//for win32:update
  161. 000820*     FUNCTION MOVE OF POW-DBDATABASE (BY CONTENT TYPE IS ALPHANUMERIC PIC X(128)) IS EXTERNAL
  162. 000820     FUNCTION MOVE OF POW-DBDATABASE (BY CONTENT TYPE IS ALPHANUMERIC PIC X(260)) IS EXTERNAL
  163. 000830          REPLACING NAME BY "XPOWDBSETDATABASE" .
  164. 000840     FUNCTION MOVE OF POW-DBUSERID (BY CONTENT TYPE IS ALPHANUMERIC PIC X(32)) IS EXTERNAL
  165. 000850          REPLACING NAME BY "XPOWDBSETUSERID" .
  166. 000860     FUNCTION MOVE OF POW-DBPASSWORD (BY CONTENT TYPE IS ALPHANUMERIC PIC X(32)) IS EXTERNAL
  167. 000870          REPLACING NAME BY "XPOWDBSETPASSWORD" .
  168. 000875*//for win32:update
  169. 000880*     FUNCTION MOVE OF POW-DBTABLENAME (BY CONTENT TYPE IS ALPHANUMERIC PIC X(128)) IS EXTERNAL
  170. 000885     FUNCTION MOVE OF POW-DBTABLENAME (BY CONTENT TYPE IS ALPHANUMERIC PIC X(260)) IS EXTERNAL
  171. 000890          REPLACING NAME BY "XPOWDBSETTABLENAME" .
  172. 000900     FUNCTION MOVE OF POW-DBCONDITION (BY CONTENT TYPE IS ALPHANUMERIC PIC X(512)) IS EXTERNAL
  173. 000910          REPLACING NAME BY "XPOWDBSETCONDITION" .
  174. 000920     FUNCTION MOVE OF POW-DBMANUALCOMMIT (BY VALUE TYPE IS NUMERIC PIC S9(4) COMP-5) IS EXTERNAL
  175. 000930          REPLACING NAME BY "XPOWDBSETCOMMIT" .
  176. 000940     FUNCTION MOVE OF POW-DBREADONLY (BY VALUE TYPE IS NUMERIC PIC S9(4) COMP-5) IS EXTERNAL
  177. 000950          REPLACING NAME BY "XPOWDBSETREADONLY" .
  178. 000960*    FUNCTION MOVE OF POW-DBFIELDCNT (BY VALUE TYPE IS NUMERIC PIC S9(4) COMP-5) IS EXTERNAL
  179. 000970*         REPLACING NAME BY "XPOWDBSETFIELDCNT" .
  180. 000971**    Æ╟ë┴ 1995.10.23
  181. 000972     FUNCTION MOVE OF POW-DBMESSAGELEVEL (BY VALUE TYPE IS NUMERIC PIC S9(4) COMP-5) IS EXTERNAL
  182. 000973          REPLACING NAME BY "XPOWDBSETMESSAGELEVEL" .
  183. 000974**    Æ╟ë┴ 1995.10.23
  184. 000975**
  185. 000980**   CALL FUNCTIONS
  186. 001000**
  187. 001110     FUNCTION OPENDB () IS EXTERNAL
  188. 001120          REPLACING NAME BY "XPOWDBOPENDB" .
  189. 001130     FUNCTION CLOSEDB () IS EXTERNAL
  190. 001140          REPLACING NAME BY "XPOWDBCLOSEDB" .
  191. 001150     FUNCTION SELECTRECORDS () EXTERNAL
  192. 001160          REPLACING NAME BY "XPOWDBSELECTRECORDS" .
  193. 001170     FUNCTION READNEXTRECORD () IS EXTERNAL
  194. 001180          REPLACING NAME BY "XPOWDBREADNEXTRECORD" .
  195. 001190     FUNCTION REWRITERECORD () IS EXTERNAL
  196. 001200          REPLACING NAME BY "XPOWDBREWRITERECORD" .
  197. 001210     FUNCTION DELETERECORD () IS EXTERNAL
  198. 001220          REPLACING NAME BY "XPOWDBDELETERECORD" .
  199. 001230     FUNCTION WRITERECORD () IS EXTERNAL
  200. 001240          REPLACING NAME BY "XPOWDBWRITERECORD" .
  201. 001250     FUNCTION COMMITDB () IS EXTERNAL
  202. 001260          REPLACING NAME BY "XPOWDBCOMMITDB" .
  203. 001270     FUNCTION ROLLBACKDB () IS EXTERNAL
  204. 001280          REPLACING NAME BY "XPOWDBROLLBACKDB" .
  205. 001300**
  206. 001310**   REPLACE FUNCTION
  207. 001320**
  208. 001330     FUNCTION REFERENCE OF POW--N01 () IS EXTERNAL BY VALUE POW--T01
  209. 001340          REPLACING NAME BY "XPOWDBGETNUMERIC01".
  210. 001350     FUNCTION REFERENCE OF POW--N02 () IS EXTERNAL BY VALUE POW--T02
  211. 001360          REPLACING NAME BY "XPOWDBGETSTR01".
  212. 001370     FUNCTION MOVE OF POW--N01 (BY VALUE TYPE IS NUMERIC POW--T01) IS EXTERNAL
  213. 001380          REPLACING NAME BY "XPOWDBSETNUMERIC01" .
  214. 001390     FUNCTION MOVE OF POW--N02 (BY CONTENT TYPE IS ALPHANUMERIC POW--T02) IS EXTERNAL
  215. 001400          REPLACING NAME BY "XPOWDBSETSTR01" .
  216. 001410*
  217. 001420     FUNCTION REFERENCE OF POW--N03 () IS EXTERNAL BY VALUE POW--T03
  218. 001430          REPLACING NAME BY "XPOWDBGETNUMERIC02" .
  219. 001440     FUNCTION REFERENCE OF POW--N04 () IS EXTERNAL BY VALUE POW--T04
  220. 001450          REPLACING NAME BY "XPOWDBGETSTR02" .
  221. 001460     FUNCTION MOVE OF POW--N03 (BY VALUE TYPE IS NUMERIC POW--T03) IS EXTERNAL
  222. 001470          REPLACING NAME BY "XPOWDBSETNUMERIC02" .
  223. 001480     FUNCTION MOVE OF POW--N04 (BY CONTENT TYPE IS ALPHANUMERIC POW--T04) IS EXTERNAL
  224. 001490          REPLACING NAME BY "XPOWDBSETSTR02" .
  225. 001500*
  226. 001510     FUNCTION REFERENCE OF POW--N05 () IS EXTERNAL BY VALUE POW--T05
  227. 001520          REPLACING NAME BY "XPOWDBGETNUMERIC03" .
  228. 001530     FUNCTION REFERENCE OF POW--N06 () IS EXTERNAL BY VALUE POW--T06
  229. 001540          REPLACING NAME BY "XPOWDBGETSTR03" .
  230. 001550     FUNCTION MOVE OF POW--N05 (BY VALUE TYPE IS NUMERIC POW--T05) IS EXTERNAL
  231. 001560          REPLACING NAME BY "XPOWDBSETNUMERIC03" .
  232. 001570     FUNCTION MOVE OF POW--N06 (BY CONTENT TYPE IS ALPHANUMERIC POW--T06) IS EXTERNAL
  233. 001580          REPLACING NAME BY "XPOWDBSETSTR03" .
  234. 001590*
  235. 001600     FUNCTION REFERENCE OF POW--N07 () IS EXTERNAL BY VALUE POW--T07
  236. 001610          REPLACING NAME BY "XPOWDBGETNUMERIC04" .
  237. 001620     FUNCTION REFERENCE OF POW--N08 () IS EXTERNAL BY VALUE POW--T08
  238. 001630          REPLACING NAME BY "XPOWDBGETSTR04" .
  239. 001640     FUNCTION MOVE OF POW--N07 (BY VALUE TYPE IS NUMERIC POW--T07) IS EXTERNAL
  240. 001650          REPLACING NAME BY "XPOWDBSETNUMERIC04" .
  241. 001660     FUNCTION MOVE OF POW--N08 (BY CONTENT TYPE IS ALPHANUMERIC POW--T08) IS EXTERNAL
  242. 001670          REPLACING NAME BY "XPOWDBSETSTR04" .
  243. 001680*
  244. 001690     FUNCTION REFERENCE OF POW--N09 () IS EXTERNAL BY VALUE POW--T09
  245. 001700          REPLACING NAME BY "XPOWDBGETNUMERIC05" .
  246. 001710     FUNCTION REFERENCE OF POW--N10 () IS EXTERNAL BY VALUE POW--T10
  247. 001720          REPLACING NAME BY "XPOWDBGETSTR05" .
  248. 001730     FUNCTION MOVE OF POW--N09 (BY VALUE TYPE IS NUMERIC POW--T09) IS EXTERNAL
  249. 001740          REPLACING NAME BY "XPOWDBSETNUMERIC05" .
  250. 001750     FUNCTION MOVE OF POW--N10 (BY CONTENT TYPE IS ALPHANUMERIC POW--T10) IS EXTERNAL
  251. 001760          REPLACING NAME BY "XPOWDBSETSTR05" .
  252. 001770*
  253. 001780     FUNCTION REFERENCE OF POW--N11 () IS EXTERNAL BY VALUE POW--T11
  254. 001790          REPLACING NAME BY "XPOWDBGETNUMERIC06" .
  255. 001800     FUNCTION REFERENCE OF POW--N12 () IS EXTERNAL BY VALUE POW--T12
  256. 001810          REPLACING NAME BY "XPOWDBGETSTR06" .
  257. 001820     FUNCTION MOVE OF POW--N11 (BY VALUE TYPE IS NUMERIC POW--T11) IS EXTERNAL
  258. 001830          REPLACING NAME BY "XPOWDBSETNUMERIC06" .
  259. 001840     FUNCTION MOVE OF POW--N12 (BY CONTENT TYPE IS ALPHANUMERIC POW--T12) IS EXTERNAL
  260. 001850          REPLACING NAME BY "XPOWDBSETSTR06" .
  261. 001860*
  262. 001870     FUNCTION REFERENCE OF POW--N13 () IS EXTERNAL BY VALUE POW--T13
  263. 001880          REPLACING NAME BY "XPOWDBGETNUMERIC07" .
  264. 001890     FUNCTION REFERENCE OF POW--N14 () IS EXTERNAL BY VALUE POW--T14
  265. 001900          REPLACING NAME BY "XPOWDBGETSTR07" .
  266. 001910     FUNCTION MOVE OF POW--N13 (BY VALUE TYPE IS NUMERIC POW--T13) IS EXTERNAL
  267. 001920          REPLACING NAME BY "XPOWDBSETNUMERIC07" .
  268. 001930     FUNCTION MOVE OF POW--N14 (BY CONTENT TYPE IS ALPHANUMERIC POW--T14) IS EXTERNAL
  269. 001940          REPLACING NAME BY "XPOWDBSETSTR07" .
  270. 001950*
  271. 001960     FUNCTION REFERENCE OF POW--N15 () IS EXTERNAL BY VALUE POW--T15
  272. 001970          REPLACING NAME BY "XPOWDBGETNUMERIC08" .
  273. 001980     FUNCTION REFERENCE OF POW--N16 () IS EXTERNAL BY VALUE POW--T16
  274. 001990          REPLACING NAME BY "XPOWDBGETSTR08" .
  275. 002000     FUNCTION MOVE OF POW--N15 (BY VALUE TYPE IS NUMERIC POW--T15) IS EXTERNAL
  276. 002100          REPLACING NAME BY "XPOWDBSETNUMERIC08" .
  277. 002110     FUNCTION MOVE OF POW--N16 (BY CONTENT TYPE IS ALPHANUMERIC POW--T16) IS EXTERNAL
  278. 002120          REPLACING NAME BY "XPOWDBSETSTR08" .
  279. 002130*
  280. 002140     FUNCTION REFERENCE OF POW--N17 () IS EXTERNAL BY VALUE POW--T17
  281. 002150          REPLACING NAME BY "XPOWDBGETNUMERIC09" .
  282. 002160     FUNCTION REFERENCE OF POW--N18 () IS EXTERNAL BY VALUE POW--T18
  283. 002170          REPLACING NAME BY "XPOWDBGETSTR09" .
  284. 002180     FUNCTION MOVE OF POW--N17 (BY VALUE TYPE IS NUMERIC POW--T17) IS EXTERNAL
  285. 002190          REPLACING NAME BY "XPOWDBSETNUMERIC09" .
  286. 002200     FUNCTION MOVE OF POW--N18 (BY CONTENT TYPE IS ALPHANUMERIC POW--T18) IS EXTERNAL
  287. 002210          REPLACING NAME BY "XPOWDBSETSTR09" .
  288. 002220*
  289. 002230     FUNCTION REFERENCE OF POW--N19 () IS EXTERNAL BY VALUE POW--T19
  290. 002240          REPLACING NAME BY "XPOWDBGETNUMERIC10" .
  291. 002250     FUNCTION REFERENCE OF POW--N20 () IS EXTERNAL BY VALUE POW--T20
  292. 002260          REPLACING NAME BY "XPOWDBGETSTR10" .
  293. 002270     FUNCTION MOVE OF POW--N19 (BY VALUE TYPE IS NUMERIC POW--T19) IS EXTERNAL
  294. 002280          REPLACING NAME BY "XPOWDBSETNUMERIC10" .
  295. 002290     FUNCTION MOVE OF POW--N20 (BY CONTENT TYPE IS ALPHANUMERIC POW--T20) IS EXTERNAL
  296. 002300          REPLACING NAME BY "XPOWDBSETSTR10" .
  297. 002310*
  298. 002320     FUNCTION REFERENCE OF POW--N21 () IS EXTERNAL BY VALUE POW--T21
  299. 002330          REPLACING NAME BY "XPOWDBGETNUMERIC11" .
  300. 002340     FUNCTION REFERENCE OF POW--N22 () IS EXTERNAL BY VALUE POW--T22
  301. 002350          REPLACING NAME BY "XPOWDBGETSTR11" .
  302. 002360     FUNCTION MOVE OF POW--N21 (BY VALUE TYPE IS NUMERIC POW--T21) IS EXTERNAL
  303. 002370          REPLACING NAME BY "XPOWDBSETNUMERIC11" .
  304. 002380     FUNCTION MOVE OF POW--N22 (BY CONTENT TYPE IS ALPHANUMERIC POW--T22) IS EXTERNAL
  305. 002390          REPLACING NAME BY "XPOWDBSETSTR11" .
  306. 002400*
  307. 002410     FUNCTION REFERENCE OF POW--N23 () IS EXTERNAL BY VALUE POW--T23
  308. 002420          REPLACING NAME BY "XPOWDBGETNUMERIC12" .
  309. 002430     FUNCTION REFERENCE OF POW--N24 () IS EXTERNAL BY VALUE POW--T24
  310. 002440          REPLACING NAME BY "XPOWDBGETSTR12" .
  311. 002450     FUNCTION MOVE OF POW--N23 (BY VALUE TYPE IS NUMERIC POW--T23) IS EXTERNAL
  312. 002460          REPLACING NAME BY "XPOWDBSETNUMERIC12" .
  313. 002470     FUNCTION MOVE OF POW--N24 (BY CONTENT TYPE IS ALPHANUMERIC POW--T24) IS EXTERNAL
  314. 002480          REPLACING NAME BY "XPOWDBSETSTR12" .
  315. 002490*
  316. 002500     FUNCTION REFERENCE OF POW--N25 () IS EXTERNAL BY VALUE POW--T25
  317. 002510          REPLACING NAME BY "XPOWDBGETNUMERIC13" .
  318. 002520     FUNCTION REFERENCE OF POW--N26 () IS EXTERNAL BY VALUE POW--T26
  319. 002530          REPLACING NAME BY "XPOWDBGETSTR13" .
  320. 002540     FUNCTION MOVE OF POW--N25 (BY VALUE TYPE IS NUMERIC POW--T25) IS EXTERNAL
  321. 002550          REPLACING NAME BY "XPOWDBSETNUMERIC13" .
  322. 002560     FUNCTION MOVE OF POW--N26 (BY CONTENT TYPE IS ALPHANUMERIC POW--T26) IS EXTERNAL
  323. 002570          REPLACING NAME BY "XPOWDBSETSTR13" .
  324. 002580*
  325. 002590     FUNCTION REFERENCE OF POW--N27 () IS EXTERNAL BY VALUE POW--T27
  326. 002600          REPLACING NAME BY "XPOWDBGETNUMERIC14" .
  327. 002610     FUNCTION REFERENCE OF POW--N28 () IS EXTERNAL BY VALUE POW--T28
  328. 002620          REPLACING NAME BY "XPOWDBGETSTR14" .
  329. 002630     FUNCTION MOVE OF POW--N27 (BY VALUE TYPE IS NUMERIC POW--T27) IS EXTERNAL
  330. 002640          REPLACING NAME BY "XPOWDBSETNUMERIC14" .
  331. 002650     FUNCTION MOVE OF POW--N28 (BY CONTENT TYPE IS ALPHANUMERIC POW--T28) IS EXTERNAL
  332. 002660          REPLACING NAME BY "XPOWDBSETSTR14" .
  333. 002670*
  334. 002680     FUNCTION REFERENCE OF POW--N29 () IS EXTERNAL BY VALUE POW--T29
  335. 002690          REPLACING NAME BY "XPOWDBGETNUMERIC15" .
  336. 002700     FUNCTION REFERENCE OF POW--N30 () IS EXTERNAL BY VALUE POW--T30
  337. 002710          REPLACING NAME BY "XPOWDBGETSTR15" .
  338. 002720     FUNCTION MOVE OF POW--N29 (BY VALUE TYPE IS NUMERIC POW--T29) IS EXTERNAL
  339. 002730          REPLACING NAME BY "XPOWDBSETNUMERIC15" .
  340. 002740     FUNCTION MOVE OF POW--N30 (BY CONTENT TYPE IS ALPHANUMERIC POW--T30) IS EXTERNAL
  341. 002750          REPLACING NAME BY "XPOWDBSETSTR15" .
  342. 002760*
  343. 002770     FUNCTION REFERENCE OF POW--N31 () IS EXTERNAL BY VALUE POW--T31
  344. 002780          REPLACING NAME BY "XPOWDBGETNUMERIC16" .
  345. 002790     FUNCTION REFERENCE OF POW--N32 () IS EXTERNAL BY VALUE POW--T32
  346. 002800          REPLACING NAME BY "XPOWDBGETSTR16" .
  347. 002810     FUNCTION MOVE OF POW--N31 (BY VALUE TYPE IS NUMERIC POW--T31) IS EXTERNAL
  348. 002820          REPLACING NAME BY "XPOWDBSETNUMERIC16" .
  349. 002830     FUNCTION MOVE OF POW--N32 (BY CONTENT TYPE IS ALPHANUMERIC POW--T32) IS EXTERNAL
  350. 002840          REPLACING NAME BY "XPOWDBSETSTR16" .
  351. 002850*
  352. 002860     FUNCTION REFERENCE OF POW--N33 () IS EXTERNAL BY VALUE POW--T33
  353. 002870          REPLACING NAME BY "XPOWDBGETNUMERIC17" .
  354. 002880     FUNCTION REFERENCE OF POW--N34 () IS EXTERNAL BY VALUE POW--T34
  355. 002890          REPLACING NAME BY "XPOWDBGETSTR17" .
  356. 002900     FUNCTION MOVE OF POW--N33 (BY VALUE TYPE IS NUMERIC POW--T33) IS EXTERNAL
  357. 002910          REPLACING NAME BY "XPOWDBSETNUMERIC17" .
  358. 002920     FUNCTION MOVE OF POW--N34 (BY CONTENT TYPE IS ALPHANUMERIC POW--T34) IS EXTERNAL
  359. 002930          REPLACING NAME BY "XPOWDBSETSTR17" .
  360. 002940*
  361. 002950     FUNCTION REFERENCE OF POW--N35 () IS EXTERNAL BY VALUE POW--T35
  362. 002960          REPLACING NAME BY "XPOWDBGETNUMERIC18" .
  363. 002970     FUNCTION REFERENCE OF POW--N36 () IS EXTERNAL BY VALUE POW--T36
  364. 002980          REPLACING NAME BY "XPOWDBGETSTR18" .
  365. 002990     FUNCTION MOVE OF POW--N35 (BY VALUE TYPE IS NUMERIC POW--T35) IS EXTERNAL
  366. 003000          REPLACING NAME BY "XPOWDBSETNUMERIC18" .
  367. 003010     FUNCTION MOVE OF POW--N36 (BY CONTENT TYPE IS ALPHANUMERIC POW--T36) IS EXTERNAL
  368. 003020          REPLACING NAME BY "XPOWDBSETSTR18" .
  369. 003030*
  370. 003040     FUNCTION REFERENCE OF POW--N37 () IS EXTERNAL BY VALUE POW--T37
  371. 003050          REPLACING NAME BY "XPOWDBGETNUMERIC19" .
  372. 003060     FUNCTION REFERENCE OF POW--N38 () IS EXTERNAL BY VALUE POW--T38
  373. 003070          REPLACING NAME BY "XPOWDBGETSTR19" .
  374. 003080     FUNCTION MOVE OF POW--N37 (BY VALUE TYPE IS NUMERIC POW--T37) IS EXTERNAL
  375. 003090          REPLACING NAME BY "XPOWDBSETNUMERIC19" .
  376. 003100     FUNCTION MOVE OF POW--N38 (BY CONTENT TYPE IS ALPHANUMERIC POW--T38) IS EXTERNAL
  377. 003110          REPLACING NAME BY "XPOWDBSETSTR19" .
  378. 003120*
  379. 003130     FUNCTION REFERENCE OF POW--N39 () IS EXTERNAL BY VALUE POW--T39
  380. 003140          REPLACING NAME BY "XPOWDBGETNUMERIC20" .
  381. 003150     FUNCTION REFERENCE OF POW--N40 () IS EXTERNAL BY VALUE POW--T40
  382. 003160          REPLACING NAME BY "XPOWDBGETSTR20" .
  383. 003170     FUNCTION MOVE OF POW--N39 (BY VALUE TYPE IS NUMERIC POW--T39) IS EXTERNAL
  384. 003180          REPLACING NAME BY "XPOWDBSETNUMERIC20" .
  385. 003190     FUNCTION MOVE OF POW--N40 (BY CONTENT TYPE IS ALPHANUMERIC POW--T40) IS EXTERNAL
  386. 003200          REPLACING NAME BY "XPOWDBSETSTR20" .
  387. 003210*
  388. 003220     FUNCTION REFERENCE OF POW--N41 () IS EXTERNAL BY VALUE POW--T41
  389. 003230          REPLACING NAME BY "XPOWDBGETNUMERIC21" .
  390. 003240     FUNCTION REFERENCE OF POW--N42 () IS EXTERNAL BY VALUE POW--T42
  391. 003250          REPLACING NAME BY "XPOWDBGETSTR21" .
  392. 003260     FUNCTION MOVE OF POW--N41 (BY VALUE TYPE IS NUMERIC POW--T41) IS EXTERNAL
  393. 003270          REPLACING NAME BY "XPOWDBSETNUMERIC21" .
  394. 003280     FUNCTION MOVE OF POW--N42 (BY CONTENT TYPE IS ALPHANUMERIC POW--T42) IS EXTERNAL
  395. 003290          REPLACING NAME BY "XPOWDBSETSTR21" .
  396. 003300*
  397. 003310     FUNCTION REFERENCE OF POW--N43 () IS EXTERNAL BY VALUE POW--T43
  398. 003320          REPLACING NAME BY "XPOWDBGETNUMERIC22" .
  399. 003330     FUNCTION REFERENCE OF POW--N44 () IS EXTERNAL BY VALUE POW--T44
  400. 003340          REPLACING NAME BY "XPOWDBGETSTR22" .
  401. 003350     FUNCTION MOVE OF POW--N43 (BY VALUE TYPE IS NUMERIC POW--T43) IS EXTERNAL
  402. 003360          REPLACING NAME BY "XPOWDBSETNUMERIC22" .
  403. 003370     FUNCTION MOVE OF POW--N44 (BY CONTENT TYPE IS ALPHANUMERIC POW--T44) IS EXTERNAL
  404. 003380          REPLACING NAME BY "XPOWDBSETSTR22" .
  405. 003390*
  406. 003400     FUNCTION REFERENCE OF POW--N45 () IS EXTERNAL BY VALUE POW--T45
  407. 003410          REPLACING NAME BY "XPOWDBGETNUMERIC23" .
  408. 003420     FUNCTION REFERENCE OF POW--N46 () IS EXTERNAL BY VALUE POW--T46
  409. 003430          REPLACING NAME BY "XPOWDBGETSTR23" .
  410. 003440     FUNCTION MOVE OF POW--N45 (BY VALUE TYPE IS NUMERIC POW--T45) IS EXTERNAL
  411. 003450          REPLACING NAME BY "XPOWDBSETNUMERIC23" .
  412. 003460     FUNCTION MOVE OF POW--N46 (BY CONTENT TYPE IS ALPHANUMERIC POW--T46) IS EXTERNAL
  413. 003470          REPLACING NAME BY "XPOWDBSETSTR23" .
  414. 003480*
  415. 003490     FUNCTION REFERENCE OF POW--N47 () IS EXTERNAL BY VALUE POW--T47
  416. 003500          REPLACING NAME BY "XPOWDBGETNUMERIC24" .
  417. 003510     FUNCTION REFERENCE OF POW--N48 () IS EXTERNAL BY VALUE POW--T48
  418. 003520          REPLACING NAME BY "XPOWDBGETSTR24" .
  419. 003530     FUNCTION MOVE OF POW--N47 (BY VALUE TYPE IS NUMERIC POW--T47) IS EXTERNAL
  420. 003540          REPLACING NAME BY "XPOWDBSETNUMERIC24" .
  421. 003550     FUNCTION MOVE OF POW--N48 (BY CONTENT TYPE IS ALPHANUMERIC POW--T48) IS EXTERNAL
  422. 003560          REPLACING NAME BY "XPOWDBSETSTR24" .
  423. 003570*
  424. 003580     FUNCTION REFERENCE OF POW--N49 () IS EXTERNAL BY VALUE POW--T49
  425. 003590          REPLACING NAME BY "XPOWDBGETNUMERIC25" .
  426. 003600     FUNCTION REFERENCE OF POW--N50 () IS EXTERNAL BY VALUE POW--T50
  427. 003610          REPLACING NAME BY "XPOWDBGETSTR25" .
  428. 003620     FUNCTION MOVE OF POW--N49 (BY VALUE TYPE IS NUMERIC POW--T49) IS EXTERNAL
  429. 003630          REPLACING NAME BY "XPOWDBSETNUMERIC25" .
  430. 003640     FUNCTION MOVE OF POW--N50 (BY CONTENT TYPE IS ALPHANUMERIC POW--T50) IS EXTERNAL
  431. 003650          REPLACING NAME BY "XPOWDBSETSTR25" .
  432. 003660*
  433. 003670     FUNCTION REFERENCE OF POW--N51 () IS EXTERNAL BY VALUE POW--T51
  434. 003680          REPLACING NAME BY "XPOWDBGETNUMERIC26" .
  435. 003690     FUNCTION REFERENCE OF POW--N52 () IS EXTERNAL BY VALUE POW--T52
  436. 003700          REPLACING NAME BY "XPOWDBGETSTR26" .
  437. 003710     FUNCTION MOVE OF POW--N51 (BY VALUE TYPE IS NUMERIC POW--T51) IS EXTERNAL
  438. 003720          REPLACING NAME BY "XPOWDBSETNUMERIC26" .
  439. 003730     FUNCTION MOVE OF POW--N52 (BY CONTENT TYPE IS ALPHANUMERIC POW--T52) IS EXTERNAL
  440. 003740          REPLACING NAME BY "XPOWDBSETSTR26" .
  441. 003750*
  442. 003760     FUNCTION REFERENCE OF POW--N53 () IS EXTERNAL BY VALUE POW--T53
  443. 003770          REPLACING NAME BY "XPOWDBGETNUMERIC27" .
  444. 003780     FUNCTION REFERENCE OF POW--N54 () IS EXTERNAL BY VALUE POW--T54
  445. 003790          REPLACING NAME BY "XPOWDBGETSTR27" .
  446. 003800     FUNCTION MOVE OF POW--N53 (BY VALUE TYPE IS NUMERIC POW--T53) IS EXTERNAL
  447. 003810          REPLACING NAME BY "XPOWDBSETNUMERIC27" .
  448. 003820     FUNCTION MOVE OF POW--N54 (BY CONTENT TYPE IS ALPHANUMERIC POW--T54) IS EXTERNAL
  449. 003830          REPLACING NAME BY "XPOWDBSETSTR27" .
  450. 003840*
  451. 003850     FUNCTION REFERENCE OF POW--N55 () IS EXTERNAL BY VALUE POW--T55
  452. 003860          REPLACING NAME BY "XPOWDBGETNUMERIC28" .
  453. 003870     FUNCTION REFERENCE OF POW--N56 () IS EXTERNAL BY VALUE POW--T56
  454. 003880          REPLACING NAME BY "XPOWDBGETSTR28" .
  455. 003890     FUNCTION MOVE OF POW--N55 (BY VALUE TYPE IS NUMERIC POW--T55) IS EXTERNAL
  456. 003900          REPLACING NAME BY "XPOWDBSETNUMERIC28" .
  457. 003910     FUNCTION MOVE OF POW--N56 (BY CONTENT TYPE IS ALPHANUMERIC POW--T56) IS EXTERNAL
  458. 003920          REPLACING NAME BY "XPOWDBSETSTR28" .
  459. 003930*
  460. 003940     FUNCTION REFERENCE OF POW--N57 () IS EXTERNAL BY VALUE POW--T57
  461. 003950          REPLACING NAME BY "XPOWDBGETNUMERIC29" .
  462. 003960     FUNCTION REFERENCE OF POW--N58 () IS EXTERNAL BY VALUE POW--T58
  463. 003970          REPLACING NAME BY "XPOWDBGETSTR29" .
  464. 003980     FUNCTION MOVE OF POW--N57 (BY VALUE TYPE IS NUMERIC POW--T57) IS EXTERNAL
  465. 003990          REPLACING NAME BY "XPOWDBSETNUMERIC29" .
  466. 004000     FUNCTION MOVE OF POW--N58 (BY CONTENT TYPE IS ALPHANUMERIC POW--T58) IS EXTERNAL
  467. 004010          REPLACING NAME BY "XPOWDBSETSTR29" .
  468. 004020*
  469. 004030     FUNCTION REFERENCE OF POW--N59 () IS EXTERNAL BY VALUE POW--T59
  470. 004040          REPLACING NAME BY "XPOWDBGETNUMERIC30" .
  471. 004050     FUNCTION REFERENCE OF POW--N60 () IS EXTERNAL BY VALUE POW--T60
  472. 004060          REPLACING NAME BY "XPOWDBGETSTR30" .
  473. 004070     FUNCTION MOVE OF POW--N59 (BY VALUE TYPE IS NUMERIC POW--T59) IS EXTERNAL
  474. 004080          REPLACING NAME BY "XPOWDBSETNUMERIC30" .
  475. 004090     FUNCTION MOVE OF POW--N60 (BY CONTENT TYPE IS ALPHANUMERIC POW--T60) IS EXTERNAL
  476. 004100          REPLACING NAME BY "XPOWDBSETSTR30" .
  477. 004110*
  478. 004120     FUNCTION REFERENCE OF POW--N61 () IS EXTERNAL BY VALUE POW--T61
  479. 004130          REPLACING NAME BY "XPOWDBGETNUMERIC31" .
  480. 004140     FUNCTION REFERENCE OF POW--N62 () IS EXTERNAL BY VALUE POW--T62
  481. 004150          REPLACING NAME BY "XPOWDBGETSTR31" .
  482. 004160     FUNCTION MOVE OF POW--N61 (BY VALUE TYPE IS NUMERIC POW--T61) IS EXTERNAL
  483. 004170          REPLACING NAME BY "XPOWDBSETNUMERIC31" .
  484. 004180     FUNCTION MOVE OF POW--N62 (BY CONTENT TYPE IS ALPHANUMERIC POW--T62) IS EXTERNAL
  485. 004190          REPLACING NAME BY "XPOWDBSETSTR31" .
  486. 004200*
  487. 004210     FUNCTION REFERENCE OF POW--N63 () IS EXTERNAL BY VALUE POW--T63
  488. 004220          REPLACING NAME BY "XPOWDBGETNUMERIC32" .
  489. 004230     FUNCTION REFERENCE OF POW--N64 () IS EXTERNAL BY VALUE POW--T64
  490. 004240          REPLACING NAME BY "XPOWDBGETSTR32" .
  491. 004250     FUNCTION MOVE OF POW--N63 (BY VALUE TYPE IS NUMERIC POW--T63) IS EXTERNAL
  492. 004260          REPLACING NAME BY "XPOWDBSETNUMERIC32" .
  493. 004270     FUNCTION MOVE OF POW--N64 (BY CONTENT TYPE IS ALPHANUMERIC POW--T64) IS EXTERNAL
  494. 004280          REPLACING NAME BY "XPOWDBSETSTR32" .
  495. 004290*
  496. 008000 END CLASS POWODBC.
  497.