declare
CONVID PLS_INTEGER;
APPID PLS_INTEGER;
i number;
x number;

v_date varchar2(13);
v_batNO varchar2(13);
v_trnsl varchar2(13);
v_trncod varchar2(13);
v_chqpfx varchar2(10);
v_chqvno varchar2(13);
v_trnamt varchar2(25);
v_srvcod varchar2(25);
v_orgbrcod varchar2(10);

v_cnt number;


BEGIN

synchronize;
Appid := dde.app_begin('C:\Program Files\OpenOffice.org 3\program\scalc.exe C:\paywrnt.ods',dde.app_mode_minimized);

msgbox('ALERT_ERROR',Appid,'');

dde.app_focus(appid);

msgbox('ALERT_ERROR',2,'');

convid := dde.initiate('scalc',/*:BLOCK2.SHEET_NAME*/'Sheet1' );
msgbox('ALERT_ERROR',2,'');

set_application_property(cursor_style,'BUSY'); 
i := 1;
x := 1;
loop
dde.request(convid,'R' || to_char(i) ||'C1',v_date,dde.cf_text,100000);
dde.request(convid,'R' || to_char(i) ||'C2',v_batNO,dde.cf_text,100000);
dde.request(convid,'R' || to_char(i) ||'C3',v_trnsl,dde.cf_text,100000);
---
dde.request(convid,'R' || to_char(i) ||'C4',v_trncod,dde.cf_text,100000);
dde.request(convid,'R' || to_char(i) ||'C5',v_chqpfx,dde.cf_text,100000);
dde.request(convid,'R' || to_char(i) ||'C6',v_chqvno,dde.cf_text,100000);
dde.request(convid,'R' || to_char(i) ||'C7',v_trnamt,dde.cf_text,100000);
---
dde.request(convid,'R' || to_char(i) ||'C8',v_srvcod,dde.cf_text,100000);
dde.request(convid,'R' || to_char(i) ||'C9',v_orgbrcod,dde.cf_text,100000);
 

message(length(replace(v_batNO,' ',null))||'---'||v_batNO||'---'||v_trnamt);

i:= i + 1;
exit when length(replace(v_date,' ',null))<=2;

end loop;
msgbox('ALERT_ERROR',x||'-->lines can not uploaded due to errors.','Error');
dde.terminate(convid);
dde.app_end(appid);





exception
	when others then 
	msgbox('ALERT_ERROR',sqlerrm,'Error');
END;