PROCEDURE REFERENCELIST IS
BEGIN
DECLARE
AppID PLS_INTEGER;
ConvID PLS_INTEGER;
RCount Number := 0;
CURSOR c1 IS SELECT MATID, MATCODE ,DESCRIPTION ,  PARTNO FROM REFERENCETABLE;
PROCEDURE INSERTROW (invalue VARCHAR2, incol NUMBER) IS
   
BEGIN
DDE.POKE(ConvID, 'R'||TO_CHAR(RCount)||'C'||TO_CHAR(incol), invalue, DDE.CF_TEXT, 1000);
END INSERTROW;

BEGIN
RCount := 1;
AppID := DDE.APP_BEGIN('C:\Program Files\Microsoft Office\Office14\EXCEL.EXE', DDE.APP_MODE_MAXIMIZED);
ConvID := DDE.INITIATE('EXCEL', 'system');
DDE.EXECUTE(ConvID, '[Save.As("' || 'D:\REFERENCE_LIST.XLS' || '",1)]',10000);
ConvID := DDE.INITIATE('EXCEL', 'D:\REFERENCE_LIST.XLS');

INSERTROW  ('MATID', 1)             ;
INSERTROW  ('MATCODE', 2)           ;
INSERTROW  ('DESCRIPTION', 3)           ;
INSERTROW  ('PARTNO', 4)           ;


FOR INV IN c1 LOOP
RCount := RCount + 1;

INSERTROW(NVL(TO_CHAR(INV.MATID),' '), 1);
INSERTROW(NVL(INV.MATCODE,' '), 2);
INSERTROW(NVL(INV.DESCRIPTION,' '), 3);
INSERTROW(NVL(INV.PARTNO,' '), 4);

END LOOP;
END;