OraFAQ Forum: Client Tools » usage of Package in 10g Form

Home » Other » Client Tools » usage of Package in 10g Form (Form 10g, Database 10.2)

Show: Today's Messages :: Polls :: Message Navigator
E-mail to friend

usage of Package in 10g Form [message #579841]

Sat, 16 March 2013 00:43

skamransajjad
Messages: 42
Registered: December 2008
Location: Pakistan

Member

Dear All;

I have made a package and define a variable in it as:
CREATE OR REPLACE package Scott.My_Pac as
CNT_UPD_USR Varchar2(20)
END My_Pac;

When I used the following in Toad it works fine but when I use the same in 10g form it gives the error "Cannot directly access remote package variable or cursor" Please guide.

Begin
Scott.My_Pac.CNT_UPD_USR := 'Ali';
DBMS_OUTPUT.PUT_LINE(Scott.My_Pac.CNT_UPD_USR);
End;

Report message to a moderator

Re: usage of Package in 10g Form [message #579843 is a reply to message #579841]

Sat, 16 March 2013 01:15

Littlefoot
Messages: 21823
Registered: June 2005
Location: Croatia, Europe

Senior Member
Account Moderator

Create a stored procedure which will set the package variable; then call that procedure from a form.

Report message to a moderator

Re: usage of Package in 10g Form [message #579844 is a reply to message #579843]

Sat, 16 March 2013 01:22

skamransajjad
Messages: 42
Registered: December 2008
Location: Pakistan

Member

@Littlefoot; Thanks for the reply. Can you please share an example..

Report message to a moderator

Re: usage of Package in 10g Form [message #579846 is a reply to message #579844]

Sat, 16 March 2013 01:24

Littlefoot
Messages: 21823
Registered: June 2005
Location: Croatia, Europe

Senior Member
Account Moderator

A procedure:

create or replace procedure p_set_pkg_var (par_usr in varchar2) is
begin
  Scott.My_Pac.CNT_UPD_USR := par_usr;
end;

A form trigger:

p_set_pkg_var(:some_block.some_item);

Report message to a moderator

Re: usage of Package in 10g Form [message #579848 is a reply to message #579846]

Sat, 16 March 2013 01:28

skamransajjad
Messages: 42
Registered: December 2008
Location: Pakistan

Member

Thanks.

And same step is to get the value. am i right?

create or replace Function p_get_pkg_var() return varchar2 is
begin
Return Scott.My_Pac.CNT_UPD_USR;
end;

variable := p_get_pkg_var;

Report message to a moderator