| please explain this procedure [message #305913] |
Wed, 12 March 2008 05:59  |
sharathmpatil
Messages: 38
Registered: February 2008
Location: Bangalore
|
Member |
|
|
the proc is written in this way.
procedure header(wname varchar2) is
xheader varchar2(200);
xdate varchar2(30);
win_width number;
mco_name coname.name%type;
mcent2_name varchar2(100) := name_i('global.cent2_name');
mform_no uttmenu.form_no%type := name_in('global.form_no');
mprog_sl number := to_number(name_in('global.prog_sl'));
mno number := 0;
mprogs varchar2(30) := lower(name_in('global.progs'));
mowner varchar2(100);
begin
begin
mco_name := name_in('global.co_name');
g.co_code := name_in('global.co_code');
select to_char(sysdate,'dd-mon-yyyy') into xdate from dual;
xheader := initcap(rpad(mowner,70)) ||
initcap(rpad(mco_name,75)) || initcap(xdate);
set_window_property(wname,window_state,maximize);
set_window_property(wname,title,xheader);
set_window_property(wname,icon_name,name_in('global.ipath') || 'earth');
g.form_desc := ' ' || rpad(initcap(rtrim(mcent2_name)),50)
|| upper(mform_no);
exception
when others then
g.dummy := g.cent(sqlerrm,1,1);
g.dummy := g.cent(error_text,1,1);
end header;
mno := 0;
begin
select no into mno from appreqd where prog_sl = mprog_sl
and co_code = g.co_code;
exception
when others then
mno := 0;
-- null;
end;
if mno = 0 then
g.app := 0;
else
g.app := 1;
end if;
exception
when others then
-- g.head2 := true;
g.dummy := g.cent(sqlerrm,1,1);
end;
please explain the following wat they do.
1>g.header( ' main ' );
Above is the way how procedure is called. wat do they mean by 'main'?
2>mcent2_name varchar2(100) := name_in('global.cent2_name');
mform_no uttmenu.form_no%type := name_in('global.form_no');
mprog_sl number := to_number(name_in('global.prog_sl'));
mprogs varchar2(30) := lower(name_in('global.progs'));
why the name_in function is used.
3>xheader := initcap(rpad(mowner,70)) ||
initcap(rpad(mco_name,75)) || initcap(xdate);
how this works?
4>set_window_property(wname,icon_name,name_in('global.ipath') || 'earth');
wat do they mean by wname and wat does name_in('global.ipath') || 'earth' this do?
5>g.form_desc := ' ' || rpad(initcap(rtrim(mcent2_name)),50)
|| upper(mform_no);
how does this work?
Thanks in advance
|
|
|
|
|
|
| Re: please explain this procedure [message #305962 is a reply to message #305913] |
Wed, 12 March 2008 07:37  |
Flash
Messages: 34
Registered: February 2008
|
Member |
|
|
My guesses,
1. 'main' is the window name passed to the procedure 'header'
2. Name_in - Returns the value of the indicated variable.
The returned value is in the form of a character string. Hence you can find to_number(name_in('global.prog_sl'));
3. select initcap ( sysdate) from dual will return 12-Mar-08.
initcap(rpad(mowner,70)) ||initcap(rpad(mco_name,75)) || initcap(xdate);
will return NULL since none of the variables are initialized.
4. wname is the Window Name
5. Concatenating two variables, cent2name and form number to give the form a suitable name
Thanks
Flash
|
|
|
|
] 
Blog
Search
Help
Members
Register
Login
Home
