Oracle Forms

Hi All,

I am facing problem while running the report from forms 10g getting FRM-41219
For this i am using the following procedure :

PROCEDURE RUN_REPORT IS
L_RUN_TEXT VARCHAR2 (2000);
L_USRID VARCHAR2 (100);
L_PASSWD VARCHAR2 (100);
L_DESNAME VARCHAR2 (100);
FILE_OUT_PUT VARCHAR2(200);
REP_STATUS VARCHAR2(20);
REP_NAME VARCHAR2(50);
PL_ID PARAMLIST;
REP_URL VARCHAR2(2000);
V_REP VARCHAR2(200);

BEGIN
display_me('RUN_REPORT');
-- CALL THE FOLLOWING FUNCTION, IN WHICH USER CAN WRITE HIS OWN CODE.
-- THE PROCEDURE CAN BE MADE LOCAL TO THE SPECIFIC FORM AND WRITE THE CODE.
-- IT SHOULD RETURN 'Y', IF YOU WANT TO PROCEED WITH THIS RUN_REPORT
-- PROCEDURE.

IF NVL (RUN_REPORT1, 'Y') = 'N' THEN
RETURN;
END IF;
COMMIT_FORM;

IF (GET_APPLICATION_PROPERTY (OPERATING_SYSTEM)) = 'UNIX' THEN
L_DESNAME := 'LP';
ELSE
L_DESNAME := NAME_IN ('REPORT_TITLE.F_FILE_NAME');
display_me(L_DESNAME);
END IF ;

/* SETTING THE REPORT OBJECT PROPERTIES */
/* G_PRAM1 IS THE NAME OF REPORT ****/

SET_REPORT_OBJECT_PROPERTY('REPOBJ',REPORT_EXECUTION_MODE,BATCH);
SET_REPORT_OBJECT_PROPERTY('REPOBJ',REPORT_COMM_MODE,SYNCHRONOUS);
SET_REPORT_OBJECT_PROPERTY('REPOBJ',REPORT_DESTYPE,CACHE);
SET_REPORT_OBJECT_PROPERTY('REPOBJ',REPORT_DESFORMAT,'PDF');
SET_REPORT_OBJECT_PROPERTY('REPOBJ',REPORT_SERVER,'172.18.76.34');
SET_REPORT_OBJECT_PROPERTY('REPOBJ',REPORT_FILENAME,:GLOBAL.G_PARAM1||'.REP');

display_me(':GLOBAL.G_PARAM1 '||:GLOBAL.G_PARAM1);

PL_ID := GET_PARAMETER_LIST ('REP_PARA');
IF NOT ID_NULL (PL_ID) THEN
DESTROY_PARAMETER_LIST ('REP_PARA');
END IF;
PL_ID := CREATE_PARAMETER_LIST('REP_PARA');

ADD_PARAMETER (PL_ID, 'DESTYPE' , TEXT_PARAMETER, NAME_IN ('REPORT_TITLE.RAG_DESTINATION') );
ADD_PARAMETER (PL_ID, 'DESNAME' , TEXT_PARAMETER, L_DESNAME);
ADD_PARAMETER (PL_ID, 'COPIES' , TEXT_PARAMETER, NAME_IN ('REPORT_TITLE.F_NO_COPY') );
ADD_PARAMETER (PL_ID, 'ORIENTATION', TEXT_PARAMETER, 'LANDSCAPE');
ADD_PARAMETER (PL_ID, 'MODE' , TEXT_PARAMETER, 'BITMAP');
ADD_PARAMETER (PL_ID, 'PARAMFORM' , TEXT_PARAMETER, 'NO');
ADD_PARAMETER (PL_ID, 'PARAM' , TEXT_PARAMETER, NAME_IN ('IBP_REPORT_PARAMETER.F_REP_SEQ') );
ADD_PARAMETER (PL_ID, 'P_COMP_CODE' ,TEXT_PARAMETER,:GLOBAL.G_COMP_CODE);
display_me(':GLOBAL.G_COMP_CODE '||:GLOBAL.G_COMP_CODE);

REP_NAME := :GLOBAL.G_PARAM1||'.REP';
display_me('REP_NAME'||REP_NAME);
V_REP := RUN_REPORT_OBJECT('REPOBJ');
display_me('V_REP '||V_REP);

REP_STATUS := REPORT_OBJECT_STATUS(V_REP);
display_me('REP_STATUS'||REP_STATUS);

WHILE REP_STATUS IN ('RUNNING','OPENING_REPORT','ENQUEUED')LOOP
REP_STATUS := REPORT_OBJECT_STATUS(V_REP);
END LOOP;

IF REP_STATUS = 'FINISHED' THEN
REP_URL:='/REPORTS/RWSERVLET/GETJOBID'||SUBSTR(V_REP,INSTR(V_REP,'_',-1)+1)||'?'||'SERVER=172.18.76.34';
display_me('REP_URL '||REP_URL);
WEB.SHOW_DOCUMENT(REP_URL,'_BLANK');
ELSE
MESSAGE('ERROR WHEN RUNNING REPORT');
END IF;
END;



Which is called on a button , can any body share there idea to help out

Warm Regards
Ashutosh