Help creating .csv from forms 6i

Question

Hello all, I we are running forms 6i webforms. The webforms are located on Unix. What is the best way to take the data from the webforms and create a .csv file? The ultimate goal is to have a file the user can open in excel. It would be great if Pseudo or actual code could be provided. How can would I go about creating a file with the file||datetime and have the user open the file. I'm thinking about calling reports and then using web.show_document, but how could I rename the Oracle report file? Any help would be greatly appreciated. Thanks.

Answer 1

Hello,
You can take customize the code and put in the required trigger.
Cheers,
Suresh
DECLARE
AppID PLS_INTEGER;
ConvID PLS_INTEGER;
Buffer VARCHAR2(240);
ROWCOL VARCHAR2(20);
CNT NUMBER;
BEGIN
AppID := DDE.App_Begin('C:\Program Files\Microsoft Office\OFFICE11\excel.exe C:\test1.xls', DDE.App_Mode_Minimized);
ConvID := DDE.Initiate('EXCEL','C:\test1.xls');
GO_BLOCK('BLOCK2');
FIRST_RECORD;
FOR I IN 1 .. 500 LOOP
CNT := 0;
FOR J IN 1 ..6 LOOP
BUFFER := '';
CNT := CNT + 1;
DDE.Request (ConvID, 'R'||I||'C'||J, Buffer, DDE.Cf_Text, 240);
BUFFER := RTRIM(LTRIM(BUFFER));
BUFFER := SUBSTR(BUFFER,0,LENGTH(BUFFER)-2);
IF BUFFER IS NULL THEN
EXIT;
END IF;
COPY(BUFFER,'BLOCK2.OUTPUT'||TO_CHAR(CNT));
END LOOP;
IF BUFFER IS NULL THEN
EXIT;
END IF;
CREATE_RECORD;
END LOOP;
DDE.Terminate(ConvID);
DDE.App_End(AppID);
FIRST_RECORD;
END;