';
-- -- set the modified before form value, overwriting the default.
-- -- If you want to change the look of the parameter form then you
-- -- can do this here as well
srw.set_before_form_html (srw.text_escape, vc_parameter_form);
return (TRUE);
--
exception
WHEN NO_OBJECT THEN
SRW.MESSAGE(1000,'*ERROR* No parameters were passed - report terminated.');
return (FALSE);
--
WHEN NO_INST THEN
SRW.MESSAGE(1000,'*ERROR* No records found on GUBIPRF - report terminated.');
return (FALSE);
--
WHEN NO_ACCESS THEN
SRW.MESSAGE(1000,'*ERROR* User not authorized to access FRR134B - report terminated.');
return (FALSE);
--
WHEN NO_PASSWORD THEN
SRW.MESSAGE(1000,'*ERROR* No password found on GUBROLE - report terminated.');
return (FALSE);
--
WHEN INVALID_VERSION THEN
SRW.MESSAGE(1000,'*ERROR* Invalid version of FRR134B - report terminated.');
return (FALSE);
--
WHEN INVALID_ACCESS THEN
SRW.MESSAGE(1000,'*ERROR* Invalid password tried - report terminated.');
return (FALSE);
--
WHEN ORA_JAVA.EXCEPTION_THROWN THEN
SRW.MESSAGE(1000, '*ERROR* Report Server Configuration - report terminated.');
ORA_JAVA.CLEAR_EXCEPTION;
return (FALSE);
--
WHEN OTHERS THEN
SRW.MESSAGE(1000,'ERROR: ' || SUBSTR(SQLERRM,1,190));
--SRW.MESSAGE(1000, '*ERROR* Before Parm trigger could not set database role - report terminated.');
return (FALSE);
end;
x$ & ( * e ; r25g25b75 @ @ , 00x$ & ( * e < r50g25b75 @ , 00x$ & ( * e = r75g25b75 @ , 00x$ & ( * e > r88g25b75 @ , 00x$ & ( * e ?
r100g25b75 @ * 00x"$ & ( e @ r0g25b88 5 @ , 00x$ & ( * e A r25g25b88 @ @ , 00x$ & ( * e B r50g25b88 @ , 00x$ & ( * e C r75g25b88 @ , 00x$ & ( * e D r88g25b88 @ ุ @ l 1 $"
AFTERPFORM yfunction AfterPForm return boolean is
begin
-- if desformat already set, then assume running on
-- the web and exit
if :desformat = 'delimiteddata' then
return (TRUE);
end if;
:destype := 'FILE';
:desformat := 'Delimiteddata';
:desname := 'C:\emp-excel.txt';
srw.message(051,'The report is being saved '
|| 'to C:\emp-excel.txt');
return (TRUE);
end;
S ͫͫͫͫͫͫͫ w SYS STANDARD SRW $ ͫͫͫͫͫͫͫͫͫͫͫͫͫͫͫ 8 e 3 "PKG INIT"AFTERPFORM":DESFORMAT":DESTYPE":DESNAME"" ^ ! " ( , - / 3 9 = > @ D J N O Q U Y ] a
P
4 $ ͫͫͫͫͫͫͫͫͫͫͫͫͫͫͫ 8 . T T T T ~ % + A e e e A e e A e e A A A e A A e A A e A A e A A e A A e "AFTERPFORM"BOOLEAN"DESFORMAT""="delimiteddata"TRUE"DESTYPE"FILE"Delimiteddata"DESNAME"C:\emp-excel.txt"SRW"MESSAGE"051"The report is being saved "||"to C:\emp-excel.txt"13"4"16"26"19""
% ) * . 0 7 > B G H M Q T X Z ^ a h o t x !$(0148@CGORV^aempt|} h , | n . Z e < n
n
n
k Q n | n . W Z e O c Q c Q c Q Q c Q c Q c Q c Q c Q c
#
1 1 / 3
3 A
B 1 1 . 7 7 E . 3
H
. ;
;
K .
! 3 N Q
% '
R
" ) S . + , 1 . 1 1 1 1 0 . /
5 4 6 9 8 : P = < >
? @ @ C D D
F G !G " I # J $%J & L ' M ()M * O + P ,-P " $ & # (
* - 2 $ & # ( ( d
, plsql_compiler_flags"nls_length_semantics" INTERPRETED,DEBUG"BYTE" ͫͫͫͫͫͫͫ H k ics" %Z ( D `4
4.|H;LHL% % hg !<
AFTERPFORM delimiteddata FILEDelimiteddata C:\emp-excel.txt3 The report is being saved to C:\emp-excel.txt * AH P X 4
# . :
F R r } k d
t ( x D |
` |
@ @ i n
~,8p+4w P l 1 $ AFTERREPORT function AfterReport return boolean is
begin
G$_REPORT_SECURITY.G$_REPORT_REVOKE_ACCESS;
return (TRUE);
exception
when others then
return (FALSE);
end; l ͫͫͫͫͫͫͫ w SYS STANDARD /LgoqorepG$_REPORT_SECURITY $ ͫͫͫͫͫͫͫͫͫͫͫͫͫͫͫ 8 & "PKG INIT"AFTERREPORT"" | ! " 5 $ ͫͫͫͫͫͫͫͫͫͫͫͫͫͫͫ 8 v
$
L "AFTERREPORT"BOOLEAN"G$_REPORT_SECURITY"G$_REPORT_REVOKE_ACCESS"TRUE"FALSE""
% ) * . 0 4 8 ; @ A E H L N R U Y [ \ a e g s u h , k W Z e S Z e O
/
d , plsql_compiler_flags"nls_length_semantics" INTERPRETED,DEBUG"BYTE" ͫͫͫͫͫͫͫ H 6 6 ics" $ %$ %k k hg ! l AFTERREPORT ) d h @ @ rt8/ - Create a new reportM Dfunction AfterPForm return boolean is
begin
return (TRUE);
end; I B ͫͫͫͫͫͫͫ w SYS STANDARD $ ͫͫͫͫͫͫͫͫͫͫͫͫͫͫͫ 8 & "PKG INIT"AFTERPFORM"" | ! " $ ͫͫͫͫͫͫͫͫͫͫͫͫͫͫͫ 8 Q "AFTERPFORM"BOOLEAN"TRUE"" 6
% ) * . 0 4 7 ; = A C O h , Z e O
d , plsql_compiler_flags"nls_length_semantics" INTERPRETED,DEBUG"BYTE" ͫͫͫͫͫͫͫ H ics" % hg !x h
AFTERPFORM d @ @ X 0000V D Dfunction AfterPForm return boolean is
begin
return (TRUE);
end; 0800 @ 0808 function AfterReport return boolean is
begin
G$_REPORT_SECURITY.G$_REPORT_REVOKE_ACCESS;
return (TRUE);
exception
when others then
return (FALSE);
end; : 00008 & &select * from emp where deptno = :dept 6JRZcf(jnsz(~((((ppppp et SQL*ReportWriter REPORT EKU gxjword EKUxg
EKUxi
'! 5 @ 8 @ ` r 1fpgtuvwxypzzp{p{{|}~000000pppppppp p_servername 2
P_SERVERNAME .bpckl(rpvpv0v0w8x8z|}~x000000p0ppp #fB_EMPNO 0 ĵe -Țe e=" .bpckl(rpvpv8v0x8z8|~x000000p0ppp >
B_ENAME 0
< .bpcij(nprpr8r0t8v8xz{|x000000p0ppp B_JOB 0 6 0 6 .bpcij(nprpr8r0t8v8xz{|x000000p0ppp B_MGR
0 T 0 T .bpcno(rpvpv8v0x8z8|~x000000p0ppp B_HIREDATE 00 j T j .bpcij(nprpr@r0v8x8z|}~x000000p0ppp B_SAL TE 0 j .bpcjk(nprpr@r0v8x8z|}~x000000p0ppp B_COMM E 0 j b50 .bpclm(nprpr@r0v8x8z|}~x000000p0ppp B_DEPTNO 0 j * .bpchi(jpnpn8n8p8r8tvwxx~~000000p0ppp PB_1 &r 3 ,00x $& ( *0 r100g0b75 (00x!" $ & r0g0b88 *00x "$ & ( r25g0b88@ 0 *00x "$ & ( r50g0b88 *00x "$ & ( r75g0b88 *00x "$ & ( r88g0b88 0 ,00x $& ( * r100g0b88 (00x"# $ & r0g0b100 ,00x $& ( * ! r25g0b100 @ ,00x $& ( * " r50g0b100 ,00x $& ( *0 # r75g0b100 ,00x $& ( * $ r88g0b100 ,00x $& ( * %
r100g0b100 &00x " $0 & gray *00x " $ & ( ' darkgray &00x " $ ( cyan r0 *00x" $ & ( ) darkcyan (00x " $ & * gray80333333 (00x " $ & + gray76=p=p=p (00x " $ & , gray72GGG (00x " $ & - gray68QQQ '00x! "$ %0 . r0g25b0 @ )00x " $& ' / r25g25b0@ @ )00x " $& ' 0 r50g25b0 @ )00x " $& '0 1 r75g25b0 @ )00x " $& ' 2 r88g25b0 @ +00x $ &( ) 3 r100g25b0 @ *00x" $ & (0 4 r0g25b50 @ ,00x $ & ( * 5 r25g25b50 @ @ ,00x $ & ( * 6 r50g25b50 @ ,00x $ & ( *0 7 r75g25b50 @ ,00x $ & ( * 8 r88g25b50 @ ,00x $ & ( * 9
r100g25b50@ *00x" $ & (0 : r0g25b75 0@ ,00x $ & ( * ; r25g25b75 @ @ ,00x $ & ( * < r50g25b75 @ ,00x $ & ( *0 = r75g25b75 @ ,00x $ & ( * > r88g25b75 @ ,00x $ & ( * ?
r100g25b75@ *00x" $ & (0 @ r0g25b88 5@ ,00x $ & ( * A r25g25b88 @ @ ,00x $ & ( * B r50g25b88 @ ,00x $ & ( *0 C r75g25b88 @ 8000 v p r .bpchi(jpnpn8n8p8r8tvwxx~~000000p0ppp PB_2 IS tk2 .bpckl(rpvpv8v8x8z8|~x000000p0ppp vePB_DEPT q
S !
O
I
T
!
G FpGWX(^pbpb0b0c@f8jlmno0p0q0r0s0t0uv0w0xyz{|}~p LEM_G_EMPNO_GRPFR pp0 h h& z FpGUV XpZpZ0Z0[@^8bdefg0h0i0j0k0l0mn0o0pqrstuvwpx xM_G_EMPNO_HDR h z FpGQR(VpZpZ0Z8\@^8bdefg0h0i0j0k0l0mn0o0pqrstuvwpx x R_G_EMPNO R 0 h AP %NpOWX(^pbpb0b8d8f8hjklmnopqr0s0t0upvpv0vwxyz{|}~pp F_EMPNO 0 0 j %NpOWX(^pbpb8b8d8f8hjklmnopqr0s0t0upvpv0vwxyz{|}~pp F_ENAME 0 0 m OL ~ %NpOUV(Zp^p^8^8`8b8dfghijklmn0o0p0qprpr0rstuvwxyz{p|p| |F_JOB 00 6 p ~ %NpOUV(Zp^p^8^8`8b8dfghijklmn0o0p0qprpr0rstuvwxyz{p|p| |F_MGR 00 T s E %NpOZ[(^pbpb8b8d8f8hjklmnopqr0s0t0upvpv0vwxyz{|}~pp F_HIREDATE 00 j v %NpOUV(Zp^p^@^8b8d8fhijklmnop0q0r0sptpv0vwxyz{|}~pp F_SAL
TE 0 y %NpOVW(Zp^p^@^8b8d8fhijklmnop0q0r0sptpv0vwxyz{|}~pp F_COMM E 0 | _C %NpOXY(Zp^p^@^8b8d8fhijklmnop0q0r0sptpv0vwxyz{|}~pp F_DEPTNO 0 ! %NpOWX(^pbpb8b8d8f8hjklmnopqr0s0t0upvpv0vwxyz{|}~pp PF_DEPT 0 0 @ ui x # Hiredate x Sal !x Comm #x ! Deptno $ .x , Report Parameters <x : Enter values for the parameters !x ( Dept b100 ,00x $& ( * $ r88g0b100 ,00x $& ( * %
r100g0b100 &00x " $0 & gray *00x " $ & ( ' darkgray &00x " $ ( cyan r0 *00x" $ & ( ) darkcyan (00x " $ & * gray80333333 (00x " $ & + gray76=p=p=p (00x " $ & , gray72GGG (00x " $ & - gray68QQQ '00x! "$ %0 . r0g25b0 @ )00x " $& ' / r25g25b0@ @ )00x " $& ' 0 r50g25b0 @ )00x " $& '0 1 r75g25b0 @ )00x " $& ' 2 r88g25b0 @ +00x $ &( ) 3 r100g25b0 @ *00x" $ & (0 4 r0g25b50 @ ,00x $ & ( * 5 r25g25b50 @ @ ,00x $ & ( * 6 r50g25b50 @ ,00x $ & ( *0 7 r75g25b50 @ ,00x $ & ( * 8 r88g25b50 @ ,00x $ & ( * 9
r100g25b50@ *00x" $ & (0 : r0g25b75 0@ ,00x $ & ( * ; r25g25b75 @ @ ,00x $ & ( * < r50g25b75 @ ,00x $ & ( *0 = r75g25b75 @ ,00x $ & ( * > r88g25b75 @ ,00x $ & ( * ?
r100g25b75@ *00x" $ & (0 @ r0g25b88 5@ ,00x $ & ( * A r25g25b88 @ @ ,00x $ & ( * B r50g25b88 @ ,00x $ & ( *0 C r75g25b88 @ 8000 v