how to pass 2 parameters from one form to other in oracle applications?

how to pass 2 parameters from one form to other in oracle
applications?

Question Posted / suman.vemula22

1 Answers
7560 Views
I also Faced
E-Mail Answers

how to pass 2 parameters from one form to other in oracle applications?..

Answer / fahad

declare

rec_grp recordgroup;
col1 groupcolumn;
col2 groupcolumn;
col3 groupcolumn;
col4 groupcolumn;
col5 groupcolumn;
col6 groupcolumn;
col7 groupcolumn;
col8 groupcolumn;

pl_id paramlist;
i number :=1;
begin
rec_grp := find_group('emp_rec');
if not id_null(rec_grp) then
delete_group(rec_grp);
end if;
rec_grp := create_group('emp_rec');
col1 := add_group_column('emp_rec','Empno',CHAR_COLUMN,100);
col2 := add_group_column('emp_rec','Ename',CHAR_COLUMN,300);
col3 := add_group_column('emp_rec','job',CHAR_COLUMN,300);
col4 := add_group_column('emp_rec','Mgr',CHAR_COLUMN,100);
col5 := add_group_column('emp_rec','Hiredate',DATE_COLUMN,100);
col6 := add_group_column('emp_rec','Sal',CHAR_COLUMN,100);
col7 := add_group_column('emp_rec','comm',CHAR_COLUMN,100);
col8 := add_group_column('emp_rec','Deptno',CHAR_COLUMN,100);

loop
go_block('emp_r');
go_record(i);

add_group_row(rec_grp,i);

set_group_char_cell('emp_rec.empno',i,:emp_r.empno);

set_group_char_cell('emp_rec.ename',i,:emp_r.ename);
set_group_char_cell('emp_rec.job',i,:emp_r.job);
set_group_char_cell('emp_rec.mgr',i,:emp_r.mgr);

set_group_date_cell('emp_rec.Hiredate',i,:emp_r.Hiredate);
set_group_char_cell('emp_rec.sal',i,:emp_r.sal);

set_group_char_cell('emp_rec.comm',i,:emp_r.comm);

set_group_char_cell('emp_rec.deptno',i,:emp_r.deptno);

i := i + 1;
exit when :system.last_record='TRUE';

end loop;

pl_id := get_parameter_list('para1');

if not id_null(pl_id) then

destroy_parameter_list(pl_id);
end if;
pl_id := create_parameter_list('para1');

add_parameter(pl_id,'Q_EMP',DATA_PARAMETER,'emp_rec');
add_parameter(pl_id,'paramform',text_parameter,'no');

run_product(REPORTS,'D:\ora\daily.RDF',synchronous,runtime,filesystem,pl_id,NULL);

end;