ROS.60050
P r
!"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~ ò00gray12GGG ,08x $ & ( * ( IJ00gray8 ,08x $ & ( * ( Ų00gray4 -08x & (* + ( Ʋ00r0g100b0 /08x ( *, - Dz 00r25g100b0 @ /08x ( *, - Ȳ 00r50g100b0 /08x ( *, - ɲ 00r75g100b0 /08x ( *, - ʲ 00r88g100b0 /08x ( *, - ˲
00r100g100b0 .08x ' ( * , ̲ 00r0g100b50 008x ( * , . Ͳ
00r25g100b50@ 008x ( * , . β
00r50g100b50 008x ( * , . ϲ
00r75g100b50 008x ( * , . в
00r88g100b50 208x * , . 0 Ѳ 00r100g100b50 .08x ' ( * ,00 Ҳ 00r0g100b75 008x ( * , .00 Ӳ
00r25g100b75@ 008x ( * , .00 Բ
00r50g100b75 008x ( * , .00 ղ
00r75g100b75 008x ( * , .00 ֲ
00r88g100b75 208x * , . 000 ײ 00r100g100b75 8 .08x ' ( * ,00 ز 00r0g100b88 8 008x ( * , .g8 ٲ
00r25g100b88@ 008x ( * , .5g ڲ
00r50g100b88 008x ( * , .0g ۲
00r75g100b88 008x ( * , .5g ܲ
00r88g100b88 208x * , . 08g ݲ 00r100g100b88 008x ( * , .8b
00r0g100b100 208x * , . 010 ߲ 00r25g100b100 @ ( 208x * , . 0@ 00r50g100b100 75 208x * , . 0 00r75g100b100 >" 208x * , . 0 00r88g100b100 208x * , . 0 00r100g100b100 *:BFx(~(((( _f SQL*Forms FORM50 0D:\Projets\Atena\Forms\chat\html_block_table.fmb x ; xk ] xk h ] ;Copyright (c) Oracle Corporation 1990. All Rights Reserved. (0 8 0800 \ 0 @ 0800 ?< P 0800 $ ___ p
8 headerfield 0000
0000 0000 0000
0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 r 08x ( , $00x "00 r50g0b75 $00x"
00r75g @r0g25b88 &00x $ * , . k
r100g50b88b1 *08x (x *
00r25g75b10000 *08x ( .08
00r50g88b100 00custom5 .08x & ( * , 00custom6 _C .08x & ( * , 00custom7 IT .08x & ( * , $ 00custom8 ID ,08x $ & ( *) ²00gray16
,08x $ & ( * ( ò00gray12GGG ,08x $ & ( * IJ00gray8 ,08x $ & ( * Ų00gray4 -08x & (* + Ʋ00r0g100b0 GR /08x ( *, - " Dz 00r25g100b0 @ /08x ( *, - Ȳ 00r50g100b0 /08x ( *, - ɲ 00r75g100b0 9 /08x ( *, -od ʲ 00r88g100b0 H /08x ( *, -) ˲
00r100g100b0 .08x ' ( * , ̲ 00r0g100b50 008x ( * , .TM Ͳ
00r25g100b50@ 008x ( * , . β
00r50g100b50 008x ( * , . ϲ
00r75g100b50 008x ( * , . в
00r88g100b50 208x * , . 0 Ѳ 00r100g100b50 .08x ' ( * , Ҳ 00r0g100b75 008x ( * , . Ӳ
00r25g100b75@ 008x ( * , .em Բ
00r50g100b75 008x ( * , . ղ
00r75g100b75 008x ( * , . ֲ
00r88g100b75 208x * , . 0 ײ 00r100g100b75 $ .08x ' ( * , ز 00r0g100b88 008x ( * , . ٲ
00r25g100b88@ 008x ( * , . H ڲ
00r50g100b88 008x ( * , .V_ ۲
00r75g100b88 008x ( * , .D; ܲ
00r88g100b88 208x * , . 0 ݲ 00r100g100b88 008x ( * , ._H
00r0g100b100 208x * , . 0 ߲ 00r25g100b100 @ 208x * , . 0 00r50g100b100 208x * , . 0 00r75g100b100 >" 208x * , . 0 00r88g100b100 208x * , . 0 00r100g100b100 *:BFx(~(((( _f SQL*Forms FORM50 0D:\Projets\Atena\Forms\chat\html_block_table.fmb x ; xk 5 ] xk 5h ] ;Copyright (c) Oracle Corporation 1990. All Rights Reserved. (0 8 0800 \ 0 @ 0800 ?< P 0800 $ ___ p
8 headerfield 0000
0000 0000 0000
0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 x 0 l H : 1 $$ H PKG_HTML_TABLE PACKAGE PKG_HTML_TABLE IS
-- ------------------------------------------------- --
-- package to transform the table-block 's content --
-- into a HTML table --
-- ------------------------------------------------- --
Type TYP_TAB_CHAR is table of Varchar2(32700) index by binary_integer;
TabCols TYP_TAB_CHAR ;
TabLines TYP_TAB_CHAR ;
-- find all visible items in a given block --
Procedure Loop_items (PC$Block IN VARCHAR2);
-- build the HTML code --
Function Build_HTML_Varchar
(
PC$Block IN VARCHAR2
,PN$Start IN PLS_INTEGER Default 1
,PN$End IN PLS_INTEGER Default 9999
)
Return Varchar2 ;
-- build the HTML code --
Function Build_HTML_Table
(
PC$Block IN VARCHAR2
,PN$Start IN PLS_INTEGER Default 1
,PN$End IN PLS_INTEGER Default 9999
)
Return TYP_TAB_CHAR ;
-- delete the PL/SQL table --
Procedure RAZ ;
END;
S B ͫͫͫͫͫͫͫ w SYS STANDARD $ ͫͫͫͫͫͫͫͫͫͫͫͫͫͫͫ 8 G " "PKG_HTML_TABLE"TABCOLS"TABLINES"" # $ & * 0 5 8 < = ? C
$ ͫͫͫͫͫͫͫͫͫͫͫͫͫͫͫ 8 O O O O ) l @ e e d A A e d e d K J A K J A d e d K J A K J A "PKG_HTML_TABLE"TYP_TAB_CHAR"BINARY_INTEGER"VARCHAR2"32700"TABCOLS"TABLINES"LOOP_ITEMS"PC$BLOCK"BUILD_HTML_VARCHAR"PN$START"PLS_INTEGER"1"PN$END"9999"BUILD_HTML_TABLE"RAZ""
# * / 0 1 5 = A E H M N U ] a f g n v z ~
"#()15:;CGJOPX\_cg{ X Y w @ c Q j U = j , = = Q = Q j , = = Q = Q j U ! ! ! ! : ! ! *
% & &
& &
N M
" ! $ %
% $ # & 5 # ( * ) $
, . / / - $
1 3 4 4 2 $ ' 7 8 8 7
6 9 H 6 ; = # < 7 ? A B % B @ 7
D F G ' G E 7 ' J K K J I L I # 6 I ! ' + 0 ) - 2 : > C < @ E r d J 7 < ) ! $ @ - E 2 , plsql_compiler_flags"nls_length_semantics" INTERPRETED,DEBUG"BYTE" ͫͫͫͫͫͫͫ l
H ics" $ ! !& ) * 0 ( 0
LOOP_ITEMS @
l
BUILD_HTML_VARCHAR
BUILD_HTML_TABLE RAZ *
, , 08 x$ & ( * 00gray16
, 08 x$ & ( * 00gray12GGG, 08 x$ & ( * 00gray8 , 08 x$ & ( * 00gray4 - 08 x&( *+ 00r0g100b0 / 08 x( * ,- 00r25g100b0 @ / 08 x( * ,- 00r50g100b0 / 08 x( * ,- 00r75g100b0 / 08 x( * ,- 00r88g100b0 / 08 x( * ,-
00r100g100b0 . 08 x'( * , 00r0g100b50 0 08 x( * , .
00r25g100b50 @ 0 08 x( * , .
00r50g100b50 0 08 x( * , .
00r75g100b50 0 08 x( * , .
00r88g100b50 2 08 x* , . 0 00r100g100b50 . 08 x'( * , 00r0g100b75 0 08 x( * , .
00r25g100b75 @ 0 08 x( * , .
00r50g100b75 0 08 x( * , .
00r75g100b75 0 08 x( * , .
00r88g100b75 2 08 x* , . 0 00r100g100b75 . 08 x'( * , 00r0g100b88 0 08 x( * , .
00r25g100b88 @ 0 08 x( * , .
00r50g100b88 0 08 x( * , .
00r75g100b88 0 08 x( * , .
00r88g100b88 2 08 x* , . 0 00r100g100b88 0 08 x(* , .
00r0g100b100 2 08 x* , . 0 00r25g100b100 @ 2 08 x* , . 0 00r50g100b100 2 08 x* , . 0 00r75g100b100 2 08 x* , . 0 00r88g100b100 2 08 x* , . 0 00r100g100b100 *:BFx~((((( SQL*Forms FORM50 0 D:\Projets\Atena\Forms\chat\html_block_table.fmb $ ; xk ] xk h ]; Copyright (c) Oracle Corporation 1990. All Rights Reserved. (0 08? L @ P
08 N
08 DQ
08 G U HI * J K LM + N O PQ H ^ , R` P S d f R T h j l o r v y - U V WX { + Y Z [\ ~ . ] ^ _` $ + 9 : A I J Y V [ d b f ^ h M j p z { s v } 9 :
2 " ) / 4 = A I J O O Q Q V [ b f p ab z { N
d
2 + $ N , plsql_compiler_flags"nls_length_semantics" INTERPRETED,DEBUG"BYTE" ͫͫͫͫͫͫͫ H h ics" @ ((t A t $ hh$ _
W
$ PP% P% m h A P; A Ph$
Qhf J $ << A h<$
h,,$ ,h;t<; <08 8$ ? L$ F $ $ $ : ! < BUILD_HTML_CODE !& ) * 0 ( 0 & ) * & ) * H ( P l H : 1 $& ?$ PKG_HTML_TABLE XPACKAGE BODY PKG_HTML_TABLE IS
--
-- global variables
--
PC$Caption Varchar2(1024) := 'Table:%1' ;
PC$Table Varchar2(2048) := '';
PC$Header Varchar2(10000):= '' || CHR(10);
PC$Footer Varchar2(512) := '' ;
PC$TdH Varchar2(128) := '| ' ;
PC$TdC Varchar2(128) := ' | ' ;
--
-- returns the complete HTML code corresponding
-- to the values read from the given table_block
--
Function Build_HTML_Varchar
(
PC$Block IN VARCHAR2
,PN$Start IN PLS_INTEGER Default 1
,PN$End IN PLS_INTEGER Default 9999
)
Return Varchar2
IS
LC$Line Varchar2(32700) ;
LN$Start Pls_Integer := PN$Start ;
LN$End Pls_Integer := PN$End ;
n Pls_Integer := 0 ;
rec Pls_Integer := Get_Block_Property(PC$Block, CURRENT_RECORD);
Begin
If LN$Start = -1 Then
-- want only the current displayed selection --
LN$Start := Get_Block_Property( PC$Block, TOP_RECORD ) ;
LN$End := LN$Start + Get_Block_Property( PC$Block, RECORDS_DISPLAYED ) - 1 ;
End if ;
If LN$Start < 1 Then LN$Start := 1; End if ;
If LN$End > 9999 Then LN$End := 9999; End if ;
PKG_HTML_TABLE.RAZ ;
PKG_HTML_TABLE.Loop_Items(PC$Block) ;
If PKG_HTML_TABLE.TabCols.Count > 0 Then
----------------------
-- build the header --
----------------------
LC$Line := PC$Header || PC$Table || Replace(PC$Caption, '%1', PC$Block) || ' | ' || CHR(10) ;
For i IN TabCols.First .. TabCols.Last Loop
LC$Line := LC$Line || PC$TdH || Get_Item_Property(TabCols(i), PROMPT_TEXT) || '';
End loop;
LC$Line := LC$Line || '
' || CHR(10) ;
Go_Block(PC$Block);
First_Record ;
Loop
n := n + 1 ;
If n Between LN$Start And LN$End Then
LC$Line := LC$Line || '' || CHR(10) ;
For i in PKG_HTML_TABLE.TabCols.First .. PKG_HTML_TABLE.TabCols.Last Loop
LC$Line := LC$Line || PC$TdC || Name_In(PKG_HTML_TABLE.TabCols(i)) || '';
End loop ;
LC$Line := LC$Line || CHR(10) || '
' || CHR(10) ;
End if ;
Exit when :system.last_record = 'TRUE' Or n > LN$End ;
Next_record ;
End loop ;
LC$Line := LC$Line || '
' || PC$Footer;
Go_Record(rec);
End if ;
Return LC$Line ;
End Build_HTML_Varchar;
--
-- returns the complete HTML code corresponding
-- to the values read from the given table_block
--
Function Build_HTML_Table
(
PC$Block IN VARCHAR2
,PN$Start IN PLS_INTEGER Default 1
,PN$End IN PLS_INTEGER Default 9999
)
Return TYP_TAB_CHAR
IS
LC$Line Varchar2(32700) ;
TabLines TYP_TAB_CHAR ;
LN$Start Pls_Integer := PN$Start ;
LN$End Pls_Integer := PN$End ;
i pls_integer := 0 ;
n Pls_Integer := 0 ;
rec Pls_Integer := Get_Block_Property(PC$Block, CURRENT_RECORD);
Begin
If LN$Start = -1 Then
-- want only the current displayed selection --
LN$Start := Get_Block_Property( PC$Block, TOP_RECORD ) ;
LN$End := LN$Start + Get_Block_Pro ` l perty( PC$Block, RECORDS_DISPLAYED ) - 1 ;
End if ;
If LN$Start < 1 Then LN$Start := 1; End if ;
If LN$End > 9999 Then LN$End := 9999; End if ;
PKG_HTML_TABLE.RAZ ;
PKG_HTML_TABLE.Loop_Items(PC$Block) ;
If PKG_HTML_TABLE.TabCols.Count > 0 Then
----------------------
-- build the header --
----------------------
LC$Line := PC$Header || PC$Table || Replace(PC$Caption, '%1', PC$Block) || '' || CHR(10) ;
For i IN TabCols.First .. TabCols.Last Loop
LC$Line := LC$Line || PC$TdH || Get_Item_Property(TabCols(i), PROMPT_TEXT) || '';
End loop;
LC$Line := LC$Line || '
' || CHR(10) ;
i := i + 1 ;
TabLines(i) := LC$Line ;
Go_Block(PC$Block);
First_Record ;
Loop
n := n + 1 ;
If n Between LN$Start And LN$End Then
LC$Line := '' || CHR(10) ;
For i in PKG_HTML_TABLE.TabCols.First .. PKG_HTML_TABLE.TabCols.Last Loop
LC$Line := LC$Line || PC$TdC || Name_In(PKG_HTML_TABLE.TabCols(i)) || '';
End loop ;
LC$Line := LC$Line || CHR(10) || '
' || CHR(10) ;
i := i + 1 ;
TabLines(i) := LC$Line ;
End if ;
Exit when :system.last_record = 'TRUE' Or n > LN$End ;
Next_record ;
End loop ;
LC$Line := '' || PC$Footer;
i := i + 1 ;
TabLines(i) := LC$Line ;
Go_Record(rec);
End if ;
Return TabLines ;
End Build_HTML_Table;
--
-- loop into the given block
-- to find the columns
--
Procedure Loop_items (PC$Block IN VARCHAR2) IS
LC$item varchar2(60); -- current item
LC$Type varchar2(20); -- item type
LC$itemdeb varchar2(60); -- first item
LC$canvas varchar2(60); -- current canvas name
LC$Line varchar2(32000);
LN$Count pls_integer := 0 ;
BEGIN
LC$itemdeb := get_block_property(PC$BLOCK, FIRST_ITEM) ;
LC$item := PC$BLOCK || '.' || LC$itemdeb ;
While LC$itemdeb is not null loop -- For each item
-- visible item ? --
IF GET_ITEM_PROPERTY(LC$Item , VISIBLE) = 'TRUE' Then
LC$Type := GET_ITEM_PROPERTY(LC$Item , ITEM_TYPE) ;
IF LC$Type IN ('DISPLAY ITEM','TEXT ITEM','CHECKBOX','LIST','RADIO GROUP')
And GET_ITEM_PROPERTY(LC$Item , ITEM_CANVAS ) is not null Then
-- processing the value --
LN$Count := LN$Count + 1 ;
TabCols(LN$Count) := LC$Item ;
End if ;
End if ;
LC$itemdeb := get_item_property(LC$item, NEXT_NAVIGATION_ITEM );
LC$item := PC$BLOCK || '.' || LC$itemdeb ;
End loop ;
END Loop_Items;
--
-- delete the PL/SQL table
--
Procedure RAZ
Is
Begin
TabCols.delete ;
End RAZ;
END PKG_HTML_TABLE; $| ͫͫͫͫͫͫͫ w SYS STANDARD /NSPC2/PKG_HTML_TABLE FORMS40 FORMS4C PLITBLM SQLFORMS $ ͫͫͫͫͫͫͫͫͫͫͫͫͫͫͫ 8 w 8 "PKG_HTML_TABLE"PC$CAPTION"PC$TABLE"PC$HEADER"PC$FOOTER"PC$TDH"PC$TDC"BUILD_HTML_VARCHAR"PC$BLOCK"PN$START"PN$END"LC$LINE"LN$START"LN$END"N"REC"I":system.last_record"BUILD_HTML_TABLE"TABLINES"LOOP_ITEMS"LC$ITEM"LC$TYPE"LC$ITEMDEB"LC$CANVAS"LN$COUNT"RAZ"" * " ( , - / 3 9 = > @ D J N O Q U [ _ ` b f l p q s w
%+ /17:@CINQU VX^b ceiotw{ |~
"&,0 137=A BDHNQU_cgkos
p l
' ( < P " & $ # % d ) * +
- / 1 2 3 5 9 7 6 8 D
; < ( D > ? , D A B 0 D D E 4 D G H 7 J K H } M O N P L ' \ T U V
X Z \ ] ^ ` _ a c g e d f D i o j k m l n ( D
q r @ D t u D D w x H D z { L D } ~ P D t 2
1 < Q $ Q < 8 Q < L Q } ` Q t Q x 2 D Q ( , . 0 S W Y [ ' R Q ! L 4 : = @ C F I b h p s v y | , plsql_compiler_flags"nls_length_semantics" INTERPRETED,DEBUG"BYTE" ͫͫͫͫͫͫͫ l h h ics" D Q ` D H d 44 ;40;0, HH ;,H(;($ \\ ;$\ ; pp ; p; ;; : 4 Pl! D ` %(% ,0%GI$ 88 $ 4 )84 (s h %GE LL $ 4 )L(.(h%GE ll $ 4 (lAhd.Bd`,`, ( ( ,
,$ %$ GE %
; % ;; :GE % GE % n i ;ԒGE G Eh $ 8 ; :Ј Qhf ; : %$ : $ 6 J00 , 0(Q G 0,A 7 ;0 44 : 04GE L% LHGE T% TP HPs l ;\GE H`` tt$ I ; \tX: X HP QHhf ;; : ( 0,
$ R g;D: .4$ < % hg ! $ 4 H %@% DHL%GI$ TT $ 4 )TP @s h %GE hh $ 4 )h@.@%GE $ 4 (A.B|,|D @ @ D
D$ %$ GE % ;
0 ; % ;; :GE % GE % p k ;GE G Eh $ 8 ; : Qhf ; 0 44 : 04JHH(HHH%$ : $ 6 JLL \ L@_ U LDO E `` :`GE x% xtGE % | t|u n ;GE t $ I ; : t| Qthf ;; : JHH(H ( LD
$ R l Y:D JHH(H.P $ < (% hg ! ( 8 t%GI xx $ 4 x8;%`:88 3 GI $ 8 ( GI $ 8 $ $|
J $
9 $
( $
$U J GI $ 8 & JttGE t GIP $ 8 8;%`:8! GE % ! < g !& ) * 0 ( 0 Table:%1
| |
BUILD_HTML_VARCHAR ' %1 |
TRUE
BUILD_HTML_TABLE
LOOP_ITEMS . DISPLAY ITEMTEXT ITEM CHECKBOXLISTRADIO GROUP RAZ C D $' D ( D , D 0 D 4 > 4 H \ p ( A(A,A0A4(8 (L A`Ad(AhH(lh ApAA( ( AAAA( * * *4 A
H$A
L0A
P<A
TH*t\ *d *l A
t " ( (( A@4AD@AHLALXAPd(Tp (hx A|AA( AAA((4 (< ADAPA\Ah*| * *4 *` A
tA
xA
|A
* * * A
h D < D$@ D8\< DL< (` } At(x ( ( ( ( " ' , 2 7 ! < " B # e % v ' ( * * + + , - . ; 2 3 4 3 7 6 b 7 l 8 q . q : y ; < = > \ = } @ B C
E " F 3 H > I \ ] ^ _ ` b d e 1 g B g H h Y h _ i d j n k o p - q t p s t u v w k y z { 2 | ~ } | 3 ; O P
&
U
x
: J P W g < H ) d Z $4 X+ a a Lf 4 P l T X \ ` d h l t ( | D ` , | 0 < H P T 8 , 00x$ & ( * # k
r100g50b88 * 00x#$ & ( # l r0g50b100 1 : ;
l H : F G 1 $& # BUILD_HTML_CODE PROCEDURE Build_HTML_Code (PC$Block IN VARCHAR2 Default null) IS
LC$Block Varchar2(30) := PC$Block ;
LC$Line Varchar2(32000) ;
TabLines PKG_HTML_TABLE.TYP_TAB_CHAR ;
LF$File TEXT_IO.FILE_TYPE ;
LC$File Varchar2(128) := 'c:\test.htm' ;
LB$Table Boolean := true ;
Begin
If PC$Block is null then LC$Block := :system.trigger_block ; End if ;
:CTRL.LINE := '' ;
-- open the HTML test file --
LF$File := TEXT_IO.FOPEN(LC$File, 'W');
If TEXT_IO.IS_OPEN(LF$File) Then
-- write the HTML file --
If LB$Table Then
TabLines := PKG_HTML_TABLE.Build_HTML_Table(LC$Block);
For i IN TabLines.First .. TabLines.Last Loop
:CTRL.LINE := :CTRL.LINE || TabLines(i) ;
TEXT_IO.PUT_LINE( LF$File, TabLines(i) ) ;
End loop ;
Else
LC$Line := PKG_HTML_TABLE.Build_HTML_Varchar(LC$Block) ;
:CTRL.LINE := LC$Line ;
TEXT_IO.PUT_LINE( LF$File, LC$Line );
End if ;
-- close the HTML file --
TEXT_IO.FCLOSE(LF$File);
-- display the HTML file --
Host('cmd /c START "" "' || LC$File || '"');
End if ;
--
-- send the HTML content to the clipboard --
Go_Item('CTRL.LINE');
Select_All ;
Copy_Region;
Go_Block(LC$Block);
End ; ͫͫͫͫͫͫͫ w SYS STANDARD /NSPC2/PKG_HTML_TABLE TEXT_IO PLITBLM SQLFORMS FORMS40 $ ͫͫͫͫͫͫͫͫͫͫͫͫͫͫͫ 8 = = "PKG INIT"BUILD_HTML_CODE"PC$BLOCK"LC$BLOCK"LC$LINE"TABLINES"LF$FILE"HANDLE"LC$FILE"LB$TABLE":system.trigger_block":CTRL.LINE"I"" ! % ' - 1 2 4 8 > B C E I O T W [ \ ^ b h j p s w {
<
} ( < ! T # ' % $ & `
) * t , : . - / + F 2 ; 4 3 5 0u 1 G
8 9 x 0 6 " ( + 1 7 $ ͫͫͫͫͫͫͫͫͫͫͫͫͫͫͫ 8 g / e d d A e e d A e e d A e e 7 A & < A
e
$ e & e e e e A e e A A A A A A e A A e A A e A A e A A e A A e B G / 4 x "BUILD_HTML_CODE"PC$BLOCK"VARCHAR2"LC$BLOCK"30"LC$LINE"32000"TABLINES"PKG_HTML_TABLE"TYP_TAB_CHAR"LF$FILE"TEXT_IO"FILE_TYPE"LC$FILE"128"c:\test.htm"LB$TABLE"BOOLEAN"TRUE"IS NULL"system.trigger_block""CTRL.LINE"FOPEN"W"IS_OPEN"BUILD_HTML_TABLE"I"FIRST"LAST"||"PUT_LINE"BUILD_HTML_VARCHAR"FCLOSE"HOST"cmd /c START '"'" '""'""GO_ITEM"SELECT_ALL"COPY_REGION"GO_BLOCK"11"0"1"17"9""
% ) * / 0 8 < = ? F J M U Y ^ _ f j m u z { #&-49=AEILPUV[_cgjnotx| '+/37:>BCHJNRUY]`dejnsw{| '(+/7:>FGHINOPUVWXYZ[\_cklos{|} h U = M Q Q k k Q n | l .
< n
k n .
k . k .
c 7 | A .
k A W G k .
k W < k W n | . | n . W < n W W W W O c Q c Q c c c Q c Q c Q c . . Q c Q c Q c
! ! ! ! " " " # # # $ $ $ $ %
! ! ! " # $ ( 9 * * ' " " 3 " + ! $ - $ $ # , # # 0 ! ! 4 "
!
) ,
!
' ' + +
, ,
U /
}
%
" # $ ' %
+ , ) . + , 1 2 0 4 1 2 6 7
F ; F 9 : = > 8 = ? G A G @ B ! E F ( G J D K ! M N ! O Q " / # $ U V
W Y % T Z y & ' ( ) \ a G A G A * \ f h +" e j , c k
w - . m n ! \ % q s /' o u
w * x b w y - 0 ! 1 { |
0 } 2 z
G A
3 4 ! 2
5 S y 9 5 " 6 ! < # 7 $ $ 8 ( > 9 : % % A ; D F R J & < L ' = ( > ) ?
N _ X @A B CD E0u F G * H * I J KL S + M N OP , Q R ST P i k ^ U o q ` V s u w z } - W X YZ , [ \ ]^ . _ ` ab
! ( / 5 < > H I P X g d i r p t l v [ x ~ H I 5 ; A & - 3 ? C L P X cd ] ] _ _ d i p t ~ ef T d ; A / ! (
\ , plsql_compiler_flags"nls_length_semantics" INTERPRETED,DEBUG"BYTE" ͫͫͫͫͫͫͫ H } P ics" | %`t% F xx G ` $ TT$ ]
U t
$ <<% <% m h G <; G <T$
Qhf I l $ (( G T($
T,,$ ,T;`<; <8 8$ ? 4$ F $ $ $ : ! < G BUILD_HTML_CODE !& ) * 0 ( 0 & ) * & ) * H ( 0 c:\test.htm W ' cmd /c START "" " " CTRL.LINE D@ ((h } ("" b , plsql_compiler_flags"nls_length_semantics" INTERPRETED,DEBUG"BYTE" ͫͫͫͫͫͫͫ H ics" c $ $ !H 8 0800 \ 0 @ 0800 ?< P 0800 $ 0800 0 @ $00x ! " black (00x " $ &5g white %00x " # green 0 )00x# $& ' . darkgreen 100 (00x " $ & gray96
=
=
= (00x " $ & gray92zzz (00x " $ & gray88 (00x " $ &0b gray84((( %00x !" #00 r0g0b0 (00x "$% & r25g0b0 @ (00x "$% & *
r50g0b0 (00x "$% & r75g0b0 (00x "$% & r88g0b0 (00x "$% &0b
r100g0b0 (00x!" $ &00 r0g0b50 *00x "$ & (V_ r25g0b50@ *00x "$ & ( , r50g0b50 0b *00x "$ & ( * r75g0b50 00 *00x "$ & (8 r88g0b50 ,00x $& ( * r100g0b50 (00x!" $ & r0g0b75 *00x "$ & (0b r25g0b75@ 08x * , . 0 00r75g100b100 >" 208x * , . 0 00r88g100b100 208x * , . 0 00r100g100b100 *:BFx(~(((( _f SQL*Forms FORM50 0D:\Projets\Atena\Forms\chat\html_block_table.fmb x ; xk 5 ] xk 5h ] ;Copyright (c) Oracle Corporation 1990. All Rights Reserved. (0 8 0800 \ 0 @ 0800 ?< P 0800 $ ___ p
8 headerfield 0000
0000 0000 0000
0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 r <h h :FRM50_BUFFER table contains user's buffer .hh ,V_ROSATTRIBS class attributes d_ +hh )D;ROSLFDESC ros lf descrip O )hh 'ROSOBJMAP ros name->id +hh )/NROSSTRINGS tk2 uiStrings *hh (ROSSTRUCTS struct types *hh ( ROSTK2RESV tk2 reserved Phh N TOOL_MODULE table contains information about different module $pp " VG_COLOR VG_COLOR +pp $&'( )VG_COLOR ITEMID o@ +pp $&'( )VG_COLOR CELLID o@ -pp &()* +VG_COLOR NAME_SET @ /pp (*+, -VG_COLOR NAME_LENGTH /pp (*+, -VG_COLOR COLOR_NAME x 'pp "#$ %VG_COLOR RED )pp "$%& 'VG_COLOR GREEN )pp "$%& 'VG_COLOR BLUE 0808 H D 1 $ s P0_26_NOV_200716_47_59 BEGIN
Build_HTML_Code('EMP');
END; WHEN-BUTTON-PRESSED (CTRL.BT) f ͫͫͫͫͫͫͫ w SYS STANDARD /NSPC2/BUILD_HTML_CODE $ ͫͫͫͫͫͫͫͫͫͫͫͫͫͫͫ 8 "PKG INIT""" b , plsql_compiler_flags"nls_length_semantics" INTERPRETED,DEBUG"BYTE" ͫͫͫͫͫͫͫ H ics" J $ !4 $ EMP 0b *00x "$ & ( * r75g0b50 00 *00x "$ & (8 r88g0b50 ,00x $& ( * r100g0b50 (00x!" $ & r0g0b75 *00x "$ & (0b r25g0b75@ 08x * , . 0 00r75g100b100 >" 208x * , . 0 00r88g100b100 208x * , . 0 00r100g100b100 *:BFx(~(((( _f SQL*Forms FORM50 0D:\Projets\Atena\Forms\chat\html_block_table.fmb x ; xk 5 ] xk 5h ] ;Copyright (c) Oracle Corporation 1990. All Rights Reserved. (0 8 0800 \ 0 @ 0800 ?< P 0800 $ ___ p
8 headerfield 0000
0000 0000 0000
0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 r *00x "$ & (BU r50g0b75 in *00x "$ & ( r75g0b75 *00x "$ & ( r88g0b75 ES ,00x $& ( * r100g0b75 (00x!" $ & r0g0b88 *00x "$ & ( r25g0b88@ SS *00x "$ & ( r50g0b88 ST *00x "$ & ( r75g0b88 OL *00x "$ & (nf r88g0b88 fe ,00x $& ( *p r100g0b88 (00x"# $ & ) r0g0b100 ,00x $& ( *' ! r25g0b100 @ ,00x $& ( *) " r50g0b100 ,00x $& ( * ( # r75g0b100 ,00x $& ( * $ r88g0b100 ,00x $& ( * %
r100g0b100 &00x " $ &gray _C *00x " $ & ( 'darkgray _C &00x " $ (cyan r *00x" $ & ( )darkcyan (00x " $ & *gray80333333 (00x " $ & +gray76=p=p=p (00x " $ & ,gray72GGG (00x " $ & -gray68QQQ '00x! "$ %LD .r0g25b0 @ )00x " $& 'ͫ /r25g25b0@ @ )00x " $& ' 0r50g25b0 @ )00x " $& ' 1r75g25b0 @ )00x " $& 'ym 2r88g25b0 @ +00x $ &( ) 3 r100g25b0 @ *00x" $ & ( 4r0g25b50 @ ,00x $ & ( *, 5 r25g25b50 @ @ ,00x $ & ( *" 6 r50g25b50 @ ,00x $ & ( * 7 r75g25b50 @ ,00x $ & ( * 8 r88g25b50 @ ,00x $ & ( * 9
r100g25b50@ *00x" $ & ( :r0g25b75 0@ $ ,00x $ & ( * ; r25g25b75 @ @ ,00x $ & ( * < r50g25b75 @ ,00x $ & ( * = r75g25b75 @ ,00x $ & ( * > r88g25b75 @ ,00x $ & ( * ?
r100g25b75@ r0g0b75 *00x "$ & (0b r25g0b75@ 08x * , . 0 00r75g100b100 >" 208x * , . 0 00r88g100b100 208x * , . 0 00r100g100b100 *:BFx(~(((( _f SQL*Forms FORM50 0D:\Projets\Atena\Forms\chat\html_block_table.fmb x ; xk 5 ] xk 5h ] ;Copyright (c) Oracle Corporation 1990. All Rights Reserved. (0 8 0800 \ 0 @ 0800 ?< P 0800 $ ___ p
8 headerfield 0000
0000 0000 0000
0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 r *00x" $ & (BU @r0g25b88 5@ in ,00x $ & ( * A r25g25b88 @ @ ,00x $ & ( * B r50g25b88 @ ,00x $ & ( * C r75g25b88 @ ,00x $ & ( * D r88g25b88 @ ,00x $ & ( * E
r100g25b88@ *00x# $ & ( F r0g25b100 @ ,00x $ & ( * G
r25g25b100@ @ ,00x $ & ( * H
r50g25b100 @ ,00x $ & ( * I
r75g25b100 @ ,00x $ & ( * J
r88g25b100 @ .00x & ( * ,5g K r100g25b100 @ 0 $00x ! "10 Lred (00x "$% & Mdarkred $00x " Nblue (00x"# $ & $ Odarkblue (00x " $ & Pgray64\(\(\( (00x " $ & Qgray60ffffff (00x " $ &0 Rgray56ppp (00x " $ &0 Sgray52zzz '00x! "$ % Tr0g50b0 $ )00x " $& ' Ur25g50b0@ & )00x " $& '0 Vr50g50b0 , )00x " $& ' Wr75g50b0 ray )00x " $& '! Xr88g50b0 b0 +00x $ &( )& Y r100g50b0 *00x" $ & (& Zr0g50b50 @ ,00x $ & ( *& [ r25g50b50 @ ,00x $ & ( *& \ r50g50b50 ,00x $ & ( *( ] r75g50b50 ,00x $ & ( * & ^ r88g50b50 ,00x $ & ( * ( _
r100g50b50 *00x" $ & ( ( `r0g50b75 0 ,00x $ & ( * ( a r25g50b75 @ ,00x $ & ( * ( b r50g50b75 ,00x $ & ( * ( c r75g50b75 ,00x $ & ( * & d r88g50b75 ,00x $ & ( * ( e
r100g50b75 *00x" $ & ( ( fr0g50b88 5 ,00x $ & ( * ( g r25g50b88 @ ,00x $ & ( * ( h r50g50b88 ,00x $ & ( * ( i r75g50b88 ,00x $ & ( * j r88g50b88 r25g0b75@ 08x * , . 0 00r75g100b100 >" 208x * , . 0 00r88g100b100 208x * , . 0 00r100g100b100 *:BFx(~(((( _f SQL*Forms FORM50 0D:\Projets\Atena\Forms\chat\html_block_table.fmb x ; xk 5 ] xk 5h ] ;Copyright (c) Oracle Corporation 1990. All Rights Reserved. (0 8 0800 \ 0 @ 0800 ?< P 0800 $ ___ p
8 headerfield 0000
0000 0000 0000
0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 r ,00x $ & ( *BU k
r100g50b88 *00x# $ & ( l r0g50b100 ,00x $ & ( * m
r25g50b100@ ,00x $ & ( * n
r50g50b100 ,00x $ & ( * o
r75g50b100 ,00x $ & ( * p
r88g50b100 .00x & ( * , q r100g50b100 '00x "$ %
ryellow +00x $ &( ) s
darkyellow *00x "$ & ( tmagenta .00x &( * , u darkmagenta (00x " $ & vgray48 (00x " $ &! wgray44\\\ (00x " $ & xgray40 (00x " $ & ygray36ףף '00x! "$ % zr0g75b0 )00x " $& ' {r25g75b0@ ( )00x " $& 'ay |r50g75b0 0 )00x " $& 'p }r75g75b0 )00x " $& 'z ~r88g75b0 ! +00x $ &( ) r100g75b0 & .08x & ( * , 00r0g75b50 0 008x ( * , . 00r25g75b50 @ 008x ( * , .0 00r50g75b50 008x ( * , . 00r75g75b50 008x ( * , ." 00r88g75b50 008x ( * , . (
00r100g75b50 .08x & ( * ,& 00r0g75b75 0 008x ( * , . 00r25g75b75 @ 008x ( * , .8g 00r50g75b75 008x ( * , .0b 00r75g75b75 008x ( * , . 00r88g75b75 008x ( * , .
00r100g75b75 .08x & ( * , 00r0g75b88 5 ( 008x ( * , . 00r25g75b88 @ 008x ( * , .0 00r50g75b88 008x ( * , . 00r75g75b88 008x ( * , . $ 00r88g75b88 008x ( * , . (
00r100g75b88 .08x ' ( * , ( 00r0g75b100 ,00x $ & ( * j r88g50b88 r25g0b75@ 08x * , . 0 00r75g100b100 >" 208x * , . 0 00r88g100b100 208x * , . 0 00r100g100b100 *:BFx(~(((( _f SQL*Forms FORM50 0D:\Projets\Atena\Forms\chat\html_block_table.fmb x ; xk 5 ] xk 5h ] ;Copyright (c) Oracle Corporation 1990. All Rights Reserved. (0 8 0800 \ 0 @ 0800 ?< P 0800 $ ___ p
8 headerfield 0000
0000 0000 0000
0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 r 008x ( * , .BU
00r25g75b100@ 008x ( * , .
00r50g75b100 008x ( * , .5g
00r75g75b100 008x ( * , .b1
00r88g75b100 208x * , . 0 00r100g75b100 ( .08x & ( * , 00custom1 .08x & ( * , 00custom2
.08x & ( * ,0 00custom3 rk .08x & ( * , 00custom4 a ,08x $ & ( * & 00gray32 ,08x $ & ( * 00gray28QQQ ,08x $ & ( * 00gray24 ,08x $ & ( * $ 00gray20 +08x % &( ) 00r0g88b0 -08x & (* + 00r25g88b0@ 0 -08x & (* +b0 00r50g88b0 -08x & (* + 00r75g88b0 " -08x & (* + 00r88g88b0 $& /08x ( *, - 00r100g88b0 .08x & ( * , 00r0g88b50 008x ( * , . 00r25g88b50 @ 008x ( * , . 00r50g88b50 008x ( * , . 00r75g88b50 008x ( * , . 00r88g88b50 008x ( * , .
00r100g88b50 .08x & ( * , 00r0g88b75 0 008x ( * , . 00r25g88b75 @ 008x ( * , . 00r50g88b75 008x ( * , . 00r75g88b75 008x ( * , . 00r88g88b75 008x ( * , .
00r100g88b75 .08x & ( * , 00r0g88b88 5 008x ( * , . 00r25g88b88 @ 008x ( * , . 00r50g88b88 008x ( * , . 00r75g88b88 008x ( * , . 00r88g88b88 008x ( * , .
00r100g88b88 .08x ' ( * , 00r0g88b100 008x ( * , .0
00r25g88b100@ 50b88 r25g0b75@ 08x * , . 0 00r75g100b100 >" 208x * , . 0 00r88g100b100 208x * , . 0 00r100g100b100 *:BFx(~(((( _f SQL*Forms FORM50 0D:\Projets\Atena\Forms\chat\html_block_table.fmb x ; xk 5 ] xk 5h ] ;Copyright (c) Oracle Corporation 1990. All Rights Reserved. (0 8 0800 \ 0 @ 0800 ?< P 0800 $ ___ p
8 headerfield 0000
0000 0000 0000
0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 r 008x ( * , .RI
00r50g88b100 008x ( * , .ES
00r75g88b100 008x ( * , .
00r88g88b100 208x * , . 0k2 00r100g88b100 h .08x & ( * ,pe 00custom5 .08x & ( * , 00custom6 _C .08x & ( * , 00custom7 IT .08x & ( * , $ 00custom8 ID ,08x $ & ( *) ²00gray16
,08x $ & ( * ( ò00gray12GGG ,08x $ & ( * IJ00gray8 ,08x $ & ( * Ų00gray4 -08x & (* + Ʋ00r0g100b0 GR /08x ( *, - " Dz 00r25g100b0 @ /08x ( *, - Ȳ 00r50g100b0 /08x ( *, - ɲ 00r75g100b0 9 /08x ( *, -od ʲ 00r88g100b0 H /08x ( *, -) ˲
00r100g100b0 .08x ' ( * , ̲ 00r0g100b50 008x ( * , .TM Ͳ
00r25g100b50@ 008x ( * , . β
00r50g100b50 008x ( * , . ϲ
00r75g100b50 008x ( * , . в
00r88g100b50 208x * , . 0 Ѳ 00r100g100b50 .08x ' ( * , Ҳ 00r0g100b75 008x ( * , . Ӳ
00r25g100b75@ 008x ( * , .em Բ
00r50g100b75 008x ( * , . ղ
00r75g100b75 008x ( * , . ֲ
00r88g100b75 208x * , . 0 ײ 00r100g100b75 $ .08x ' ( * , ز 00r0g100b88 008x ( * , . ٲ
00r25g100b88@ 008x ( * , . H ڲ
00r50g100b88 008x ( * , .V_ ۲
00r75g100b88 008x ( * , .D; ܲ
00r88g100b88 208x * , . 0 ݲ 00r100g100b88 008x ( * , ._H
00r0g100b100 208x * , . 0 ߲ 00r25g100b100 @ 208x * , . 0 00r50g100b100 208x * , . 0 00r75g100b100 >" 208x * , . 0 00r88g100b100 208x * , . 0 00r100g100b100 *:BFx(~(((( _f SQL*Forms FORM50 0D:\Projets\Atena\Forms\chat\html_block_table.fmb x ; xk 5 ] xk 5h ] ;Copyright (c) Oracle Corporation 1990. All Rights Reserved. (0 8 0800 \ 0 @ 0800 ?< P 0800 $ ___ p
8 headerfield 0000
0000 0000 0000
0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0 l 3 8 ; H a X p k ln
/ ` `A o HTML_BLOCK_TABLE i ( j @ k p x F l @ $ 0 < H T d p Extract HTML table... Job Ename Empno Deptno Comm Sal Hiredate Mgr MODULE1 Build HTML code HTML table-block m } 3 3 ~ * N F HTML_BLOCK_TABLE MODULE1 FENETRE1 DEFAULT&SMARTBAR 8
,
8 Dg ( " d & ' '% / EMP EMP EMP t L ( X Z [ Y / EMPNO
h X
Z [ Y / ENAME X Z [ Y / JOB @ X Z [ Y / MGR X Z [ Y / HIREDATE X Z [ Y / SAL X Z [ Y / COMM X Z [ Y / DEPTNO CV p
H x
h P
X i ) y / MGR MGR MGR Mgr
p
X
i J y
/ HIREDATE HIREDATE HIREDATE Hiredate
$ X 0i D y < / SAL SAL SAL Sal
X i D y / COMM COMM COMM Comm H
T X `i y l / DEPTNO DEPTNO DEPTNO Deptno
(
4 X
@ !
L
Tt u 'i ) y
\Y / EMPNO EMPNO EMPNO CV Empno
X ( ! 4 <t 7u 'i J y DY / ENAME ENAME ENAME CV Ename X ! $t u 'i D y ,Y / JOB JOB JOB CV Job x % / CTRL CTRL @ 8 $ u0 ! 0 8i @ l y / LINE LINE CV 8 ! <t $u i q y l D P g \ h j i k : h / Z ~ BT BT Extract HTML table... CV black white Tahoma ! E 8 " D @ / : WHEN-BUTTON-PRESSED WHEN-BUTTON-PRESSED # $ - _ ^ Do i y D / ] d CV CV HTML_TABLE FENETRE1 %
& `
( % t u i y [ / r CADRE5 CADRE5 EMP none white solid ' L K q j j 0 l x [ g h j i k U Z r ~ & ! " # $ % & ' ( ) * + , - . / 0 1 2 x3 4 &5 6 7 8 9 : ; d black white transparent black black transparent Tahoma ( ) , ) ( < L/ HTML_TABLE HTML_TABLE * + l + * / p BUILD_HTML_CODE BUILD_HTML_CODE Build HTML code , ; , l - : / \ PKG_HTML_TABLE PKG_HTML_TABLE . : / ?< PKG_HTML_TABLE PKG_HTML_TABLE < / : T/ $ BUILD_HTML_CODE BUILD_HTML_CODE 0 O j 1 N 3 r i y Dn / k FENETRE1 FENETRE1 HTML table-block CV 2 e @ L@ @ 3 d C D E F G H A SYSTEM.LAST_RECORD SYSTEM.LAST_RECORD 4 PKG_HTML_TABLE P 5 d lC FD E F G H A SYSTEM.TRIGGER_BLOCK SYSTEM.TRIGGER_BLOCK 6 BUILD_HTML_CODE 7 d ( 8C GD E F u0G H A CTRL.LINE CTRL.LINE 8 ] ` 9 ^ LINE : ^ CTRL ; BUILD_HTML_CODE ODE
&
U
x
: J P W g < H ) d Z $4 X+ a a Lf 4 P l T X \ ` d h l t ( | D ` , | 0 < H P T ; : JHH(H ( LD
$ R