PDF files not getting generated

Question

Hi friends,
Through our application we are generating PDF to network location. Suddenly it stoped from last month.
I am not able to trace exact problem. forms version 6i we are using.
PROCEDURE P_PRINT_GRN
                                   (p_type VARCHAR2 default 'P') IS -- Added by Piyush on 09/09/2007 GRN Email CR20
                                   /* p_type value if 'P' then normal Printing if 'M' then generate PDF for email attachment CR20*/
     param_grp ParamList ;
     param_grp_frr ParamList ;
     pl_name VARCHAR2(10) := 'tempdata';
     pl_name2 VARCHAR2(10) := 'tempdata';
     v_backslash VARCHAR2(1) ;
     fopen Text_IO.File_Type; /* File handle for opening the file */
     alt_msgs NUMBER ;
     v_runmode VARCHAR2(80) ;
     v_mch_name parameter_master.value%TYPE;
     v_port_no parameter_master.value%TYPE;
     v_server_name parameter_master.value%TYPE;
     o_usrid           VARCHAR2(6);
     o_password      VARCHAR2(15);
     o_dbname           VARCHAR2(30);
     v_param_check NUMBER;
     v_potype VARCHAR2(20);
     v_path                    VARCHAR(100); -- Added by Piyush on 09/09/2007 to capture path for GRN report PDF File CR20
     v_err                         NUMBER;                -- Added by Piyush on 09/09/2007 Show_Alert CR20
BEGIN
     SELECT NVL(TO_CHAR(po_no), 'VMIPO')
     INTO v_potype
     FROM grn_header
     WHERE GRN_NO = :grn_header.grn_no;
param_grp := Get_Parameter_List(pl_name);
     /* Creates the parameter list if one doesnt exist */
     IF Id_Null(param_grp) THEN
          param_grp := Create_Parameter_List(pl_name);
          IF Id_Null(param_grp) THEN
               Message('Error creating parameter list '||pl_name);
               RAISE Form_Trigger_Failure;
          END IF;
     ELSE
          Destroy_Parameter_List(param_grp);
          param_grp := Create_Parameter_List(pl_name);
     END IF;
/* Adding parameters to Parameter List in order to be passed to called report */
     /* Added (Start) by Piyush on 09/09/2007 GRN Email, Generate PDF CR20*/
     if p_type = 'M' then
          BEGIN
               SELECT value
               INTO v_path
               FROM parameter_master
               WHERE type_code = 16
               AND value_code = 6;
          EXCEPTION
               WHEN NO_DATA_FOUND THEN
                    SET_ALERT_PROPERTY('ALT_ERROR', alert_message_text, 'Reports Path parameter does not exists in Parameter Master.');
                    v_err := SHOW_ALERT('ALT_ERROR');
                    RAISE FORM_TRIGGER_FAILURE;
               WHEN OTHERS THEN
                    SET_ALERT_PROPERTY('ALT_ERROR', alert_message_text, substr(error_text,1,100));
                    v_err := SHOW_ALERT('ALT_ERROR');
                    RAISE FORM_TRIGGER_FAILURE;      
          END;
          ADD_PARAMETER(param_grp, 'P_DESTYPE', TEXT_PARAMETER, 'FILE');
          ADD_PARAMETER(param_grp, 'P_DESNAME', TEXT_PARAMETER, v_path || 'GRN_' || :grn_header.grn_no || '.pdf');
          ADD_PARAMETER(param_grp, 'P_DESFORMAT', TEXT_PARAMETER, 'PDF');
     ELSE     
          ADD_PARAMETER( param_grp , 'P_DESTYPE' ,TEXT_PARAMETER,'PRINTER');
          ADD_PARAMETER( param_grp , 'P_DESFORMAT' ,TEXT_PARAMETER,'DEFAULT');
     END IF;
     /* Added (End) by Piyush on 09/09/2007 GRN Email, Generate PDF CR20*/
     /* Commented (Start) by Piyush on 09/09/2007 to set value based on paramter CR20*/
     --ADD_PARAMETER( param_grp , 'P_DESTYPE' ,TEXT_PARAMETER,'PRINTER');
     --ADD_PARAMETER( param_grp , 'P_DESFORMAT' ,TEXT_PARAMETER,'DEFAULT');
     /* Commented (Start) by Piyush on 09/09/2007 to set value based on paramter CR20*/
ADD_PARAMETER( param_grp , 'P_COPIES' ,TEXT_PARAMETER, 1);
ADD_PARAMETER (param_grp ,'PARAMFORM' , TEXT_PARAMETER, 'NO');
ADD_PARAMETER(param_grp,'P_REPID',TEXT_PARAMETER,'R021');
ADD_PARAMETER(param_grp,'P_MENUID',TEXT_PARAMETER,NULL);
ADD_PARAMETER(param_grp,'P_USERID',TEXT_PARAMETER,:grn_header.created_by);
/* Code for adding user Parameters to the list should be added over here */
ADD_PARAMETER(param_grp , 'P_FROM_GRN_NO', TEXT_PARAMETER,to_char(:grn_header.grn_no));
     ADD_PARAMETER(param_grp , 'P_TO_GRN_NO', TEXT_PARAMETER,to_char(:grn_header.grn_no));
/* Get the application property to check whether mode is client server or Web */
v_runmode := Get_Application_Property(USER_INTERFACE);
IF v_runmode = 'WEB' THEN
     SELECT     a.value,b.value,c.value
               INTO          v_mch_name,v_port_no,v_server_name
               FROM          parameter_master a,parameter_master b,parameter_master c
               WHERE          a.type_code = 13 and a.value_code = 1 AND
                                   b.type_code = 13 and b.value_code = 2 AND
                                   c.type_code = 13 and c.value_code = 3;
/* Code for calling the reportin web mode */      
--FP_CONNECTSTRING(o_usrid , o_password ,o_dbname );     
web.show_document('http://'||v_mch_name||':'||v_port_no||'/ows-bin/rwcgi60.exe?module='||
                                                  '+userid='||o_usrid||'/'||o_password||'@'||o_dbname||     /*added by Amol on 16/08/01*/
                                             '+server='||v_server_name||
                                             '+desformat=default'||
                                             '+p_destype=printer'||
                                             '+p_copies=1'||
                                             '+p_repid=R021'||
                    /* Code for adding user Parameters to the list should be added over here*/                                              
                                                                 '+p_grn_number='||:grn_header.grn_no||
                                             '+p_userid='||:grn_header.created_by||
                                             '+p_menuid='||NULL                         
ELSE
/* Code for calling the report by passing the parameter list to be added over here
For Example */
Run_Product(REPORTS,'R021', SYNCHRONOUS,RUNTIME, FILESYSTEM, param_grp ,NULL);
IF v_potype <> 'VMIPO' THEN
          param_grp_frr := Get_Parameter_List(pl_name2);
     /* Creates the parameter list if one doesnt exist */
                    IF Id_Null(param_grp_frr) THEN
                              param_grp_frr := Create_Parameter_List(pl_name2);
                              IF Id_Null(param_grp_frr) THEN
                                        Message('Error creating parameter list '||pl_name2);
                                        RAISE Form_Trigger_Failure;
                              END IF;
                    ELSE
                              Destroy_Parameter_List(param_grp_frr);
                              param_grp_frr := Create_Parameter_List(pl_name2);
                    END IF;
ADD_PARAMETER(param_grp_frr, 'DESTYPE', TEXT_PARAMETER, 'FILE');
               ADD_PARAMETER(param_grp_frr, 'DESNAME', TEXT_PARAMETER, v_path || 'FRR_' || to_char(:grn_header.grn_no) || '.pdf');
               ADD_PARAMETER(param_grp_frr, 'DESFORMAT', TEXT_PARAMETER, 'PDF');
               ADD_PARAMETER(param_grp_frr , 'P_GRN_NO', TEXT_PARAMETER, TO_CHAR(:grn_header.grn_no));
               --ADD_PARAMETER (param_grp ,'PARAMFORM' , TEXT_PARAMETER, 'NO');
          --ADD_PARAMETER(param_grp,'P_REPID',TEXT_PARAMETER,'R186');
          --ADD_PARAMETER(param_grp,'P_MENUID',TEXT_PARAMETER,NULL);
          --ADD_PARAMETER(param_grp,'P_USERID',TEXT_PARAMETER,:grn_header.created_by);
     --Run_Product(REPORTS,'R186', SYNCHRONOUS,RUNTIME, FILESYSTEM, param_grp ,NULL);
     Run_Product(REPORTS,'R186', SYNCHRONOUS,RUNTIME, FILESYSTEM, param_grp_frr ,NULL); --testing
END IF;
END IF ;
EXCEPTION
WHEN OTHERS THEN
IF sqlcode = -302000 THEN /* Invalid file path */
          alt_msgs := LPK_ERROR.F_ERROR_MSGS(910);/*Enter Valid Path and File name.*/
     END IF;
END;
please give a clue

Answer 1

You have to give us a bit more then this. What stopped? Web or client/server version? What changed last month? Are there errors?
For the code, please use the { code } tags for formatting and readability.