1 package body okl_streams_util_w as
2 /* $Header: OKLESULB.pls 120.1 2005/10/30 03:16:50 appldev noship $ */
3 rosetta_g_mistake_date date := to_date('01/01/+4713', 'MM/DD/SYYYY');
4 rosetta_g_miss_date date := to_date('01/01/-4712', 'MM/DD/SYYYY');
5
6 -- this is to workaround the JDBC bug regarding IN DATE of value GMiss
7 function rosetta_g_miss_date_in_map(d date) return date as
8 begin
9 if d = rosetta_g_mistake_date then return fnd_api.g_miss_date; end if;
10 return d;
11 end;
12
13 function rosetta_g_miss_num_map(n number) return number as
14 a number := fnd_api.g_miss_num;
15 b number := 0-1962.0724;
16 begin
17 if n=a then return b; end if;
18 if n=b then return a; end if;
19 return n;
20 end;
21
22 procedure rosetta_table_copy_in_p1(t out nocopy okl_streams_util.log_msg_tbl, a0 JTF_VARCHAR2_TABLE_4000) as
23 ddindx binary_integer; indx binary_integer;
24 begin
25 if a0 is not null and a0.count > 0 then
26 if a0.count > 0 then
27 indx := a0.first;
28 ddindx := 1;
29 while true loop
30 t(ddindx) := a0(indx);
31 ddindx := ddindx+1;
32 if a0.last =indx
33 then exit;
34 end if;
35 indx := a0.next(indx);
36 end loop;
37 end if;
38 end if;
39 end rosetta_table_copy_in_p1;
40 procedure rosetta_table_copy_out_p1(t okl_streams_util.log_msg_tbl, a0 out nocopy JTF_VARCHAR2_TABLE_4000) as
41 ddindx binary_integer; indx binary_integer;
42 begin
43 if t is null or t.count = 0 then
44 a0 := JTF_VARCHAR2_TABLE_4000();
45 else
46 a0 := JTF_VARCHAR2_TABLE_4000();
47 if t.count > 0 then
48 a0.extend(t.count);
49 ddindx := t.first;
50 indx := 1;
51 while true loop
52 a0(indx) := t(ddindx);
53 indx := indx+1;
54 if t.last =ddindx
55 then exit;
56 end if;
57 ddindx := t.next(ddindx);
58 end loop;
59 end if;
60 end if;
61 end rosetta_table_copy_out_p1;
62
63 procedure rosetta_table_copy_in_p21(t out nocopy okl_streams_util.clobtabtyp, a0 JTF_CLOB_TABLE) as
64 ddindx binary_integer; indx binary_integer;
65 begin
66 if a0 is not null and a0.count > 0 then
67 if a0.count > 0 then
68 indx := a0.first;
69 ddindx := 1;
70 while true loop
71 t(ddindx) := a0(indx);
72 ddindx := ddindx+1;
73 if a0.last =indx
74 then exit;
75 end if;
76 indx := a0.next(indx);
77 end loop;
78 end if;
79 end if;
80 end rosetta_table_copy_in_p21;
81 procedure rosetta_table_copy_out_p21(t okl_streams_util.clobtabtyp, a0 out nocopy JTF_CLOB_TABLE) as
82 ddindx binary_integer; indx binary_integer;
83 begin
84 if t is null or t.count = 0 then
85 a0 := JTF_CLOB_TABLE();
86 else
87 a0 := JTF_CLOB_TABLE();
88 if t.count > 0 then
89 a0.extend(t.count);
90 ddindx := t.first;
91 indx := 1;
92 while true loop
93 a0(indx) := t(ddindx);
94 indx := indx+1;
95 if t.last =ddindx
96 then exit;
97 end if;
98 ddindx := t.next(ddindx);
99 end loop;
100 end if;
101 end if;
102 end rosetta_table_copy_out_p21;
103
104 procedure rosetta_table_copy_in_p22(t out nocopy okl_streams_util.datetabtyp, a0 JTF_DATE_TABLE) as
105 ddindx binary_integer; indx binary_integer;
106 begin
107 if a0 is not null and a0.count > 0 then
108 if a0.count > 0 then
109 indx := a0.first;
110 ddindx := 1;
111 while true loop
112 t(ddindx) := rosetta_g_miss_date_in_map(a0(indx));
113 ddindx := ddindx+1;
114 if a0.last =indx
115 then exit;
116 end if;
117 indx := a0.next(indx);
118 end loop;
119 end if;
120 end if;
121 end rosetta_table_copy_in_p22;
122 procedure rosetta_table_copy_out_p22(t okl_streams_util.datetabtyp, a0 out nocopy JTF_DATE_TABLE) as
123 ddindx binary_integer; indx binary_integer;
124 begin
125 if t is null or t.count = 0 then
126 a0 := JTF_DATE_TABLE();
127 else
128 a0 := JTF_DATE_TABLE();
129 if t.count > 0 then
130 a0.extend(t.count);
131 ddindx := t.first;
132 indx := 1;
133 while true loop
134 a0(indx) := rosetta_g_miss_date_in_map(t(ddindx));
135 indx := indx+1;
136 if t.last =ddindx
137 then exit;
138 end if;
139 ddindx := t.next(ddindx);
140 end loop;
141 end if;
142 end if;
143 end rosetta_table_copy_out_p22;
144
145 procedure rosetta_table_copy_in_p23(t out nocopy okl_streams_util.numbertabtyp, a0 JTF_NUMBER_TABLE) as
146 ddindx binary_integer; indx binary_integer;
147 begin
148 if a0 is not null and a0.count > 0 then
149 if a0.count > 0 then
150 indx := a0.first;
151 ddindx := 1;
152 while true loop
153 t(ddindx) := rosetta_g_miss_num_map(a0(indx));
154 ddindx := ddindx+1;
155 if a0.last =indx
156 then exit;
157 end if;
158 indx := a0.next(indx);
159 end loop;
160 end if;
161 end if;
162 end rosetta_table_copy_in_p23;
163 procedure rosetta_table_copy_out_p23(t okl_streams_util.numbertabtyp, a0 out nocopy JTF_NUMBER_TABLE) as
164 ddindx binary_integer; indx binary_integer;
165 begin
166 if t is null or t.count = 0 then
167 a0 := JTF_NUMBER_TABLE();
168 else
169 a0 := JTF_NUMBER_TABLE();
170 if t.count > 0 then
171 a0.extend(t.count);
172 ddindx := t.first;
173 indx := 1;
174 while true loop
175 a0(indx) := rosetta_g_miss_num_map(t(ddindx));
176 indx := indx+1;
177 if t.last =ddindx
178 then exit;
179 end if;
180 ddindx := t.next(ddindx);
181 end loop;
182 end if;
183 end if;
184 end rosetta_table_copy_out_p23;
185
186 procedure rosetta_table_copy_in_p24(t out nocopy okl_streams_util.number15tabtyp, a0 JTF_NUMBER_TABLE) as
187 ddindx binary_integer; indx binary_integer;
188 begin
189 if a0 is not null and a0.count > 0 then
190 if a0.count > 0 then
191 indx := a0.first;
192 ddindx := 1;
193 while true loop
194 t(ddindx) := rosetta_g_miss_num_map(a0(indx));
195 ddindx := ddindx+1;
196 if a0.last =indx
197 then exit;
198 end if;
199 indx := a0.next(indx);
200 end loop;
201 end if;
202 end if;
203 end rosetta_table_copy_in_p24;
204 procedure rosetta_table_copy_out_p24(t okl_streams_util.number15tabtyp, a0 out nocopy JTF_NUMBER_TABLE) as
205 ddindx binary_integer; indx binary_integer;
206 begin
207 if t is null or t.count = 0 then
208 a0 := JTF_NUMBER_TABLE();
209 else
210 a0 := JTF_NUMBER_TABLE();
211 if t.count > 0 then
212 a0.extend(t.count);
213 ddindx := t.first;
214 indx := 1;
215 while true loop
216 a0(indx) := rosetta_g_miss_num_map(t(ddindx));
217 indx := indx+1;
218 if t.last =ddindx
219 then exit;
220 end if;
221 ddindx := t.next(ddindx);
222 end loop;
223 end if;
224 end if;
225 end rosetta_table_copy_out_p24;
226
227 procedure rosetta_table_copy_in_p25(t out nocopy okl_streams_util.var10tabtyp, a0 JTF_VARCHAR2_TABLE_100) as
228 ddindx binary_integer; indx binary_integer;
229 begin
230 if a0 is not null and a0.count > 0 then
231 if a0.count > 0 then
232 indx := a0.first;
233 ddindx := 1;
234 while true loop
235 t(ddindx) := a0(indx);
236 ddindx := ddindx+1;
237 if a0.last =indx
238 then exit;
239 end if;
240 indx := a0.next(indx);
241 end loop;
242 end if;
243 end if;
244 end rosetta_table_copy_in_p25;
245 procedure rosetta_table_copy_out_p25(t okl_streams_util.var10tabtyp, a0 out nocopy JTF_VARCHAR2_TABLE_100) as
246 ddindx binary_integer; indx binary_integer;
247 begin
248 if t is null or t.count = 0 then
249 a0 := JTF_VARCHAR2_TABLE_100();
250 else
251 a0 := JTF_VARCHAR2_TABLE_100();
252 if t.count > 0 then
253 a0.extend(t.count);
254 ddindx := t.first;
255 indx := 1;
256 while true loop
257 a0(indx) := t(ddindx);
258 indx := indx+1;
259 if t.last =ddindx
260 then exit;
261 end if;
262 ddindx := t.next(ddindx);
263 end loop;
264 end if;
265 end if;
266 end rosetta_table_copy_out_p25;
267
268 procedure rosetta_table_copy_in_p26(t out nocopy okl_streams_util.var12tabtyp, a0 JTF_VARCHAR2_TABLE_100) as
269 ddindx binary_integer; indx binary_integer;
270 begin
271 if a0 is not null and a0.count > 0 then
272 if a0.count > 0 then
273 indx := a0.first;
274 ddindx := 1;
275 while true loop
276 t(ddindx) := a0(indx);
277 ddindx := ddindx+1;
278 if a0.last =indx
279 then exit;
280 end if;
281 indx := a0.next(indx);
282 end loop;
283 end if;
284 end if;
285 end rosetta_table_copy_in_p26;
286 procedure rosetta_table_copy_out_p26(t okl_streams_util.var12tabtyp, a0 out nocopy JTF_VARCHAR2_TABLE_100) as
287 ddindx binary_integer; indx binary_integer;
288 begin
289 if t is null or t.count = 0 then
290 a0 := JTF_VARCHAR2_TABLE_100();
291 else
292 a0 := JTF_VARCHAR2_TABLE_100();
293 if t.count > 0 then
294 a0.extend(t.count);
295 ddindx := t.first;
296 indx := 1;
297 while true loop
298 a0(indx) := t(ddindx);
299 indx := indx+1;
300 if t.last =ddindx
301 then exit;
302 end if;
303 ddindx := t.next(ddindx);
304 end loop;
305 end if;
306 end if;
307 end rosetta_table_copy_out_p26;
308
309 procedure rosetta_table_copy_in_p27(t out nocopy okl_streams_util.var120tabtyp, a0 JTF_VARCHAR2_TABLE_200) as
310 ddindx binary_integer; indx binary_integer;
311 begin
312 if a0 is not null and a0.count > 0 then
313 if a0.count > 0 then
314 indx := a0.first;
315 ddindx := 1;
316 while true loop
317 t(ddindx) := a0(indx);
318 ddindx := ddindx+1;
319 if a0.last =indx
320 then exit;
321 end if;
322 indx := a0.next(indx);
323 end loop;
324 end if;
325 end if;
326 end rosetta_table_copy_in_p27;
327 procedure rosetta_table_copy_out_p27(t okl_streams_util.var120tabtyp, a0 out nocopy JTF_VARCHAR2_TABLE_200) as
328 ddindx binary_integer; indx binary_integer;
329 begin
330 if t is null or t.count = 0 then
331 a0 := JTF_VARCHAR2_TABLE_200();
332 else
333 a0 := JTF_VARCHAR2_TABLE_200();
334 if t.count > 0 then
335 a0.extend(t.count);
336 ddindx := t.first;
337 indx := 1;
338 while true loop
339 a0(indx) := t(ddindx);
340 indx := indx+1;
341 if t.last =ddindx
342 then exit;
343 end if;
344 ddindx := t.next(ddindx);
345 end loop;
346 end if;
347 end if;
348 end rosetta_table_copy_out_p27;
349
350 procedure rosetta_table_copy_in_p28(t out nocopy okl_streams_util.var15tabtyp, a0 JTF_VARCHAR2_TABLE_100) as
351 ddindx binary_integer; indx binary_integer;
352 begin
353 if a0 is not null and a0.count > 0 then
354 if a0.count > 0 then
355 indx := a0.first;
356 ddindx := 1;
357 while true loop
358 t(ddindx) := a0(indx);
359 ddindx := ddindx+1;
360 if a0.last =indx
361 then exit;
362 end if;
363 indx := a0.next(indx);
364 end loop;
365 end if;
366 end if;
367 end rosetta_table_copy_in_p28;
368 procedure rosetta_table_copy_out_p28(t okl_streams_util.var15tabtyp, a0 out nocopy JTF_VARCHAR2_TABLE_100) as
369 ddindx binary_integer; indx binary_integer;
370 begin
371 if t is null or t.count = 0 then
372 a0 := JTF_VARCHAR2_TABLE_100();
373 else
374 a0 := JTF_VARCHAR2_TABLE_100();
375 if t.count > 0 then
376 a0.extend(t.count);
377 ddindx := t.first;
378 indx := 1;
379 while true loop
380 a0(indx) := t(ddindx);
381 indx := indx+1;
382 if t.last =ddindx
383 then exit;
384 end if;
385 ddindx := t.next(ddindx);
386 end loop;
387 end if;
388 end if;
389 end rosetta_table_copy_out_p28;
390
391 procedure rosetta_table_copy_in_p29(t out nocopy okl_streams_util.var150tabtyp, a0 JTF_VARCHAR2_TABLE_200) as
392 ddindx binary_integer; indx binary_integer;
393 begin
394 if a0 is not null and a0.count > 0 then
395 if a0.count > 0 then
396 indx := a0.first;
397 ddindx := 1;
398 while true loop
399 t(ddindx) := a0(indx);
400 ddindx := ddindx+1;
401 if a0.last =indx
402 then exit;
403 end if;
404 indx := a0.next(indx);
405 end loop;
406 end if;
407 end if;
408 end rosetta_table_copy_in_p29;
409 procedure rosetta_table_copy_out_p29(t okl_streams_util.var150tabtyp, a0 out nocopy JTF_VARCHAR2_TABLE_200) as
410 ddindx binary_integer; indx binary_integer;
411 begin
412 if t is null or t.count = 0 then
413 a0 := JTF_VARCHAR2_TABLE_200();
414 else
415 a0 := JTF_VARCHAR2_TABLE_200();
416 if t.count > 0 then
417 a0.extend(t.count);
418 ddindx := t.first;
419 indx := 1;
420 while true loop
421 a0(indx) := t(ddindx);
422 indx := indx+1;
423 if t.last =ddindx
424 then exit;
425 end if;
426 ddindx := t.next(ddindx);
427 end loop;
428 end if;
429 end if;
430 end rosetta_table_copy_out_p29;
431
432 procedure rosetta_table_copy_in_p30(t out nocopy okl_streams_util.var1995tabtyp, a0 JTF_VARCHAR2_TABLE_2000) as
433 ddindx binary_integer; indx binary_integer;
434 begin
435 if a0 is not null and a0.count > 0 then
436 if a0.count > 0 then
437 indx := a0.first;
438 ddindx := 1;
439 while true loop
440 t(ddindx) := a0(indx);
441 ddindx := ddindx+1;
442 if a0.last =indx
443 then exit;
444 end if;
445 indx := a0.next(indx);
446 end loop;
447 end if;
448 end if;
449 end rosetta_table_copy_in_p30;
450 procedure rosetta_table_copy_out_p30(t okl_streams_util.var1995tabtyp, a0 out nocopy JTF_VARCHAR2_TABLE_2000) as
451 ddindx binary_integer; indx binary_integer;
452 begin
453 if t is null or t.count = 0 then
454 a0 := JTF_VARCHAR2_TABLE_2000();
455 else
456 a0 := JTF_VARCHAR2_TABLE_2000();
457 if t.count > 0 then
458 a0.extend(t.count);
459 ddindx := t.first;
460 indx := 1;
461 while true loop
462 a0(indx) := t(ddindx);
463 indx := indx+1;
464 if t.last =ddindx
465 then exit;
466 end if;
467 ddindx := t.next(ddindx);
468 end loop;
469 end if;
470 end if;
471 end rosetta_table_copy_out_p30;
472
473 procedure rosetta_table_copy_in_p31(t out nocopy okl_streams_util.var24tabtyp, a0 JTF_VARCHAR2_TABLE_100) as
474 ddindx binary_integer; indx binary_integer;
475 begin
476 if a0 is not null and a0.count > 0 then
477 if a0.count > 0 then
478 indx := a0.first;
479 ddindx := 1;
480 while true loop
481 t(ddindx) := a0(indx);
482 ddindx := ddindx+1;
483 if a0.last =indx
484 then exit;
485 end if;
486 indx := a0.next(indx);
487 end loop;
488 end if;
489 end if;
490 end rosetta_table_copy_in_p31;
491 procedure rosetta_table_copy_out_p31(t okl_streams_util.var24tabtyp, a0 out nocopy JTF_VARCHAR2_TABLE_100) as
492 ddindx binary_integer; indx binary_integer;
493 begin
494 if t is null or t.count = 0 then
495 a0 := JTF_VARCHAR2_TABLE_100();
496 else
497 a0 := JTF_VARCHAR2_TABLE_100();
498 if t.count > 0 then
499 a0.extend(t.count);
500 ddindx := t.first;
501 indx := 1;
502 while true loop
503 a0(indx) := t(ddindx);
504 indx := indx+1;
505 if t.last =ddindx
506 then exit;
507 end if;
508 ddindx := t.next(ddindx);
509 end loop;
510 end if;
511 end if;
512 end rosetta_table_copy_out_p31;
513
514 procedure rosetta_table_copy_in_p32(t out nocopy okl_streams_util.var200tabtyp, a0 JTF_VARCHAR2_TABLE_200) as
515 ddindx binary_integer; indx binary_integer;
516 begin
517 if a0 is not null and a0.count > 0 then
518 if a0.count > 0 then
519 indx := a0.first;
520 ddindx := 1;
521 while true loop
522 t(ddindx) := a0(indx);
523 ddindx := ddindx+1;
524 if a0.last =indx
525 then exit;
526 end if;
527 indx := a0.next(indx);
528 end loop;
529 end if;
530 end if;
531 end rosetta_table_copy_in_p32;
532 procedure rosetta_table_copy_out_p32(t okl_streams_util.var200tabtyp, a0 out nocopy JTF_VARCHAR2_TABLE_200) as
533 ddindx binary_integer; indx binary_integer;
534 begin
535 if t is null or t.count = 0 then
536 a0 := JTF_VARCHAR2_TABLE_200();
537 else
538 a0 := JTF_VARCHAR2_TABLE_200();
539 if t.count > 0 then
540 a0.extend(t.count);
541 ddindx := t.first;
542 indx := 1;
543 while true loop
544 a0(indx) := t(ddindx);
545 indx := indx+1;
546 if t.last =ddindx
547 then exit;
548 end if;
549 ddindx := t.next(ddindx);
550 end loop;
551 end if;
552 end if;
553 end rosetta_table_copy_out_p32;
554
555 procedure rosetta_table_copy_in_p33(t out nocopy okl_streams_util.var240tabtyp, a0 JTF_VARCHAR2_TABLE_300) as
556 ddindx binary_integer; indx binary_integer;
557 begin
558 if a0 is not null and a0.count > 0 then
559 if a0.count > 0 then
560 indx := a0.first;
561 ddindx := 1;
562 while true loop
563 t(ddindx) := a0(indx);
564 ddindx := ddindx+1;
565 if a0.last =indx
566 then exit;
567 end if;
568 indx := a0.next(indx);
569 end loop;
570 end if;
571 end if;
572 end rosetta_table_copy_in_p33;
573 procedure rosetta_table_copy_out_p33(t okl_streams_util.var240tabtyp, a0 out nocopy JTF_VARCHAR2_TABLE_300) as
574 ddindx binary_integer; indx binary_integer;
575 begin
576 if t is null or t.count = 0 then
577 a0 := JTF_VARCHAR2_TABLE_300();
578 else
579 a0 := JTF_VARCHAR2_TABLE_300();
580 if t.count > 0 then
581 a0.extend(t.count);
582 ddindx := t.first;
583 indx := 1;
584 while true loop
585 a0(indx) := t(ddindx);
586 indx := indx+1;
587 if t.last =ddindx
588 then exit;
589 end if;
590 ddindx := t.next(ddindx);
591 end loop;
592 end if;
593 end if;
594 end rosetta_table_copy_out_p33;
595
596 procedure rosetta_table_copy_in_p34(t out nocopy okl_streams_util.var3tabtyp, a0 JTF_VARCHAR2_TABLE_100) as
597 ddindx binary_integer; indx binary_integer;
598 begin
599 if a0 is not null and a0.count > 0 then
600 if a0.count > 0 then
601 indx := a0.first;
602 ddindx := 1;
603 while true loop
604 t(ddindx) := a0(indx);
605 ddindx := ddindx+1;
606 if a0.last =indx
607 then exit;
608 end if;
609 indx := a0.next(indx);
610 end loop;
611 end if;
612 end if;
613 end rosetta_table_copy_in_p34;
614 procedure rosetta_table_copy_out_p34(t okl_streams_util.var3tabtyp, a0 out nocopy JTF_VARCHAR2_TABLE_100) as
615 ddindx binary_integer; indx binary_integer;
616 begin
617 if t is null or t.count = 0 then
618 a0 := JTF_VARCHAR2_TABLE_100();
619 else
620 a0 := JTF_VARCHAR2_TABLE_100();
621 if t.count > 0 then
622 a0.extend(t.count);
623 ddindx := t.first;
624 indx := 1;
625 while true loop
626 a0(indx) := t(ddindx);
627 indx := indx+1;
628 if t.last =ddindx
629 then exit;
630 end if;
631 ddindx := t.next(ddindx);
632 end loop;
633 end if;
634 end if;
635 end rosetta_table_copy_out_p34;
636
637 procedure rosetta_table_copy_in_p35(t out nocopy okl_streams_util.var30tabtyp, a0 JTF_VARCHAR2_TABLE_100) as
638 ddindx binary_integer; indx binary_integer;
639 begin
640 if a0 is not null and a0.count > 0 then
641 if a0.count > 0 then
642 indx := a0.first;
643 ddindx := 1;
644 while true loop
645 t(ddindx) := a0(indx);
646 ddindx := ddindx+1;
647 if a0.last =indx
648 then exit;
649 end if;
650 indx := a0.next(indx);
651 end loop;
652 end if;
653 end if;
654 end rosetta_table_copy_in_p35;
655 procedure rosetta_table_copy_out_p35(t okl_streams_util.var30tabtyp, a0 out nocopy JTF_VARCHAR2_TABLE_100) as
656 ddindx binary_integer; indx binary_integer;
657 begin
658 if t is null or t.count = 0 then
659 a0 := JTF_VARCHAR2_TABLE_100();
660 else
661 a0 := JTF_VARCHAR2_TABLE_100();
662 if t.count > 0 then
663 a0.extend(t.count);
664 ddindx := t.first;
665 indx := 1;
666 while true loop
667 a0(indx) := t(ddindx);
668 indx := indx+1;
669 if t.last =ddindx
670 then exit;
671 end if;
672 ddindx := t.next(ddindx);
673 end loop;
674 end if;
675 end if;
676 end rosetta_table_copy_out_p35;
677
678 procedure rosetta_table_copy_in_p36(t out nocopy okl_streams_util.var300tabtyp, a0 JTF_VARCHAR2_TABLE_300) as
679 ddindx binary_integer; indx binary_integer;
680 begin
681 if a0 is not null and a0.count > 0 then
682 if a0.count > 0 then
683 indx := a0.first;
684 ddindx := 1;
685 while true loop
686 t(ddindx) := a0(indx);
687 ddindx := ddindx+1;
688 if a0.last =indx
689 then exit;
690 end if;
691 indx := a0.next(indx);
692 end loop;
693 end if;
694 end if;
695 end rosetta_table_copy_in_p36;
696 procedure rosetta_table_copy_out_p36(t okl_streams_util.var300tabtyp, a0 out nocopy JTF_VARCHAR2_TABLE_300) as
697 ddindx binary_integer; indx binary_integer;
698 begin
699 if t is null or t.count = 0 then
700 a0 := JTF_VARCHAR2_TABLE_300();
701 else
702 a0 := JTF_VARCHAR2_TABLE_300();
703 if t.count > 0 then
704 a0.extend(t.count);
705 ddindx := t.first;
706 indx := 1;
707 while true loop
708 a0(indx) := t(ddindx);
709 indx := indx+1;
710 if t.last =ddindx
711 then exit;
712 end if;
713 ddindx := t.next(ddindx);
714 end loop;
715 end if;
716 end if;
717 end rosetta_table_copy_out_p36;
718
719 procedure rosetta_table_copy_in_p37(t out nocopy okl_streams_util.var40tabtyp, a0 JTF_VARCHAR2_TABLE_100) as
720 ddindx binary_integer; indx binary_integer;
721 begin
722 if a0 is not null and a0.count > 0 then
723 if a0.count > 0 then
724 indx := a0.first;
725 ddindx := 1;
726 while true loop
727 t(ddindx) := a0(indx);
728 ddindx := ddindx+1;
729 if a0.last =indx
730 then exit;
731 end if;
732 indx := a0.next(indx);
733 end loop;
734 end if;
735 end if;
736 end rosetta_table_copy_in_p37;
737 procedure rosetta_table_copy_out_p37(t okl_streams_util.var40tabtyp, a0 out nocopy JTF_VARCHAR2_TABLE_100) as
738 ddindx binary_integer; indx binary_integer;
739 begin
740 if t is null or t.count = 0 then
741 a0 := JTF_VARCHAR2_TABLE_100();
742 else
743 a0 := JTF_VARCHAR2_TABLE_100();
744 if t.count > 0 then
745 a0.extend(t.count);
746 ddindx := t.first;
747 indx := 1;
748 while true loop
749 a0(indx) := t(ddindx);
750 indx := indx+1;
751 if t.last =ddindx
752 then exit;
753 end if;
754 ddindx := t.next(ddindx);
755 end loop;
756 end if;
757 end if;
758 end rosetta_table_copy_out_p37;
759
760 procedure rosetta_table_copy_in_p38(t out nocopy okl_streams_util.var450tabtyp, a0 JTF_VARCHAR2_TABLE_500) as
761 ddindx binary_integer; indx binary_integer;
762 begin
763 if a0 is not null and a0.count > 0 then
764 if a0.count > 0 then
765 indx := a0.first;
766 ddindx := 1;
767 while true loop
768 t(ddindx) := a0(indx);
769 ddindx := ddindx+1;
770 if a0.last =indx
771 then exit;
772 end if;
773 indx := a0.next(indx);
774 end loop;
775 end if;
776 end if;
777 end rosetta_table_copy_in_p38;
778 procedure rosetta_table_copy_out_p38(t okl_streams_util.var450tabtyp, a0 out nocopy JTF_VARCHAR2_TABLE_500) as
779 ddindx binary_integer; indx binary_integer;
780 begin
781 if t is null or t.count = 0 then
782 a0 := JTF_VARCHAR2_TABLE_500();
783 else
784 a0 := JTF_VARCHAR2_TABLE_500();
785 if t.count > 0 then
786 a0.extend(t.count);
787 ddindx := t.first;
788 indx := 1;
789 while true loop
790 a0(indx) := t(ddindx);
791 indx := indx+1;
792 if t.last =ddindx
793 then exit;
794 end if;
795 ddindx := t.next(ddindx);
796 end loop;
797 end if;
798 end if;
799 end rosetta_table_copy_out_p38;
800
801 procedure rosetta_table_copy_in_p39(t out nocopy okl_streams_util.var50tabtyp, a0 JTF_VARCHAR2_TABLE_100) as
802 ddindx binary_integer; indx binary_integer;
803 begin
804 if a0 is not null and a0.count > 0 then
805 if a0.count > 0 then
806 indx := a0.first;
807 ddindx := 1;
808 while true loop
809 t(ddindx) := a0(indx);
810 ddindx := ddindx+1;
811 if a0.last =indx
812 then exit;
813 end if;
814 indx := a0.next(indx);
815 end loop;
816 end if;
817 end if;
818 end rosetta_table_copy_in_p39;
819 procedure rosetta_table_copy_out_p39(t okl_streams_util.var50tabtyp, a0 out nocopy JTF_VARCHAR2_TABLE_100) as
820 ddindx binary_integer; indx binary_integer;
821 begin
822 if t is null or t.count = 0 then
823 a0 := JTF_VARCHAR2_TABLE_100();
824 else
825 a0 := JTF_VARCHAR2_TABLE_100();
826 if t.count > 0 then
827 a0.extend(t.count);
828 ddindx := t.first;
829 indx := 1;
830 while true loop
831 a0(indx) := t(ddindx);
832 indx := indx+1;
833 if t.last =ddindx
834 then exit;
835 end if;
836 ddindx := t.next(ddindx);
837 end loop;
838 end if;
839 end if;
840 end rosetta_table_copy_out_p39;
841
842 procedure rosetta_table_copy_in_p40(t out nocopy okl_streams_util.var600tabtyp, a0 JTF_VARCHAR2_TABLE_600) as
843 ddindx binary_integer; indx binary_integer;
844 begin
845 if a0 is not null and a0.count > 0 then
846 if a0.count > 0 then
847 indx := a0.first;
848 ddindx := 1;
849 while true loop
850 t(ddindx) := a0(indx);
851 ddindx := ddindx+1;
852 if a0.last =indx
853 then exit;
854 end if;
855 indx := a0.next(indx);
856 end loop;
857 end if;
858 end if;
859 end rosetta_table_copy_in_p40;
860 procedure rosetta_table_copy_out_p40(t okl_streams_util.var600tabtyp, a0 out nocopy JTF_VARCHAR2_TABLE_600) as
861 ddindx binary_integer; indx binary_integer;
862 begin
863 if t is null or t.count = 0 then
864 a0 := JTF_VARCHAR2_TABLE_600();
865 else
866 a0 := JTF_VARCHAR2_TABLE_600();
867 if t.count > 0 then
868 a0.extend(t.count);
869 ddindx := t.first;
870 indx := 1;
871 while true loop
872 a0(indx) := t(ddindx);
873 indx := indx+1;
874 if t.last =ddindx
875 then exit;
876 end if;
877 ddindx := t.next(ddindx);
878 end loop;
879 end if;
880 end if;
881 end rosetta_table_copy_out_p40;
882
883 procedure rosetta_table_copy_in_p41(t out nocopy okl_streams_util.var75tabtyp, a0 JTF_VARCHAR2_TABLE_100) as
884 ddindx binary_integer; indx binary_integer;
885 begin
886 if a0 is not null and a0.count > 0 then
887 if a0.count > 0 then
888 indx := a0.first;
889 ddindx := 1;
890 while true loop
891 t(ddindx) := a0(indx);
892 ddindx := ddindx+1;
893 if a0.last =indx
894 then exit;
895 end if;
896 indx := a0.next(indx);
897 end loop;
898 end if;
899 end if;
900 end rosetta_table_copy_in_p41;
901 procedure rosetta_table_copy_out_p41(t okl_streams_util.var75tabtyp, a0 out nocopy JTF_VARCHAR2_TABLE_100) as
902 ddindx binary_integer; indx binary_integer;
903 begin
904 if t is null or t.count = 0 then
905 a0 := JTF_VARCHAR2_TABLE_100();
906 else
907 a0 := JTF_VARCHAR2_TABLE_100();
908 if t.count > 0 then
909 a0.extend(t.count);
910 ddindx := t.first;
911 indx := 1;
912 while true loop
913 a0(indx) := t(ddindx);
914 indx := indx+1;
915 if t.last =ddindx
916 then exit;
917 end if;
918 ddindx := t.next(ddindx);
919 end loop;
920 end if;
921 end if;
922 end rosetta_table_copy_out_p41;
923
924 procedure rosetta_table_copy_in_p42(t out nocopy okl_streams_util.var90tabtyp, a0 JTF_VARCHAR2_TABLE_100) as
925 ddindx binary_integer; indx binary_integer;
926 begin
927 if a0 is not null and a0.count > 0 then
928 if a0.count > 0 then
929 indx := a0.first;
930 ddindx := 1;
931 while true loop
932 t(ddindx) := a0(indx);
933 ddindx := ddindx+1;
934 if a0.last =indx
935 then exit;
936 end if;
937 indx := a0.next(indx);
938 end loop;
939 end if;
940 end if;
941 end rosetta_table_copy_in_p42;
942 procedure rosetta_table_copy_out_p42(t okl_streams_util.var90tabtyp, a0 out nocopy JTF_VARCHAR2_TABLE_100) as
943 ddindx binary_integer; indx binary_integer;
944 begin
945 if t is null or t.count = 0 then
946 a0 := JTF_VARCHAR2_TABLE_100();
947 else
948 a0 := JTF_VARCHAR2_TABLE_100();
949 if t.count > 0 then
950 a0.extend(t.count);
951 ddindx := t.first;
952 indx := 1;
953 while true loop
954 a0(indx) := t(ddindx);
955 indx := indx+1;
956 if t.last =ddindx
957 then exit;
958 end if;
959 ddindx := t.next(ddindx);
960 end loop;
961 end if;
962 end if;
963 end rosetta_table_copy_out_p42;
964
965 procedure rosetta_table_copy_in_p43(t out nocopy okl_streams_util.okl_strm_type_id_tbl_type, a0 JTF_NUMBER_TABLE) as
966 ddindx binary_integer; indx binary_integer;
967 begin
968 if a0 is not null and a0.count > 0 then
969 if a0.count > 0 then
970 indx := a0.first;
971 ddindx := 1;
972 while true loop
973 t(ddindx) := rosetta_g_miss_num_map(a0(indx));
974 ddindx := ddindx+1;
975 if a0.last =indx
976 then exit;
977 end if;
978 indx := a0.next(indx);
979 end loop;
980 end if;
981 end if;
982 end rosetta_table_copy_in_p43;
983 procedure rosetta_table_copy_out_p43(t okl_streams_util.okl_strm_type_id_tbl_type, a0 out nocopy JTF_NUMBER_TABLE) as
984 ddindx binary_integer; indx binary_integer;
985 begin
986 if t is null or t.count = 0 then
987 a0 := JTF_NUMBER_TABLE();
988 else
989 a0 := JTF_NUMBER_TABLE();
990 if t.count > 0 then
991 a0.extend(t.count);
992 ddindx := t.first;
993 indx := 1;
994 while true loop
995 a0(indx) := rosetta_g_miss_num_map(t(ddindx));
996 indx := indx+1;
997 if t.last =ddindx
998 then exit;
999 end if;
1000 ddindx := t.next(ddindx);
1001 end loop;
1002 end if;
1003 end if;
1004 end rosetta_table_copy_out_p43;
1005
1006 procedure log_message(p_msgs_tbl JTF_VARCHAR2_TABLE_4000
1007 , p_translate VARCHAR2
1008 , p_file_name VARCHAR2
1009 , x_return_status out nocopy VARCHAR2
1010 )
1011
1012 as
1013 ddp_msgs_tbl okl_streams_util.log_msg_tbl;
1014 ddindx binary_integer; indx binary_integer;
1015 begin
1016
1017 -- copy data to the local IN or IN-OUT args, if any
1018 okl_streams_util_w.rosetta_table_copy_in_p1(ddp_msgs_tbl, p_msgs_tbl);
1019
1020
1021
1022
1023 -- here's the delegated call to the old PL/SQL routine
1024 okl_streams_util.log_message(ddp_msgs_tbl,
1025 p_translate,
1026 p_file_name,
1027 x_return_status);
1028
1029 -- copy data back from the local variables to OUT or IN-OUT args, if any
1030
1031
1032
1033 end;
1034
1035 end okl_streams_util_w;
[Home] [Help]