Hide username and password while calling Oracle reports from forms11g

Question

Is there any other methods to hide the username and password other than define keymapping in CGICMD.DAT file in oracle forms 11g.

Answer 1

Hope fully following code of procedure will eliminate the username and password.
PROCEDURE RUN_REPORT_OBJECT_PROC(
report_format                VARCHAR2,
report_destype_name     NUMBER,
report_file_name           VARCHAR2,
report_otherparam          VARCHAR2) IS
report_message           VARCHAR2(1000):='';     
rep_status           VARCHAR2(1000):='';
vjob_id                               VARCHAR2(4000):='';
hidden_action               VARCHAR2(7000):='';
v_report_other               VARCHAR2(4000):='';
i                                                  number;
c                                                  char;
c_old                                        char;
c_new char;
report_id REPORT_OBJECT;
report_server_name      VARCHAR2(100); --Report Server Name
report_dest                         VARCHAR2(100); --Report Destination
reports_servlet               VARCHAR2(100); --Report URL
report_path                         varchar2(100);
v_port                                   varchar2(10);
BEGIN
     reports_servlet := 'http://localhost:7778'/reports/rwservlet';
     report_path := report_dest||report_file_name;
     report_id:= find_report_object('rep_obj');
     SET_REPORT_OBJECT_PROPERTY(report_id,REPORT_COMM_MODE,SYNCHRONOUS);
SET_REPORT_OBJECT_PROPERTY(report_id,REPORT_FILENAME,report_path);
     SET_REPORT_OBJECT_PROPERTY(report_id,REPORT_SERVER,report_server_name);
     SET_REPORT_OBJECT_PROPERTY(report_id,REPORT_DESTYPE,report_destype_name);
     SET_REPORT_OBJECT_PROPERTY(report_id,REPORT_DESFORMAT,report_format);
     hidden_action := hidden_action ||'&report=' ||GET_REPORT_OBJECT_PROPERTY(report_id,REPORT_FILENAME);
     hidden_action     := hidden_action ||'&destype=' ||GET_REPORT_OBJECT_PROPERTY(report_id,REPORT_DESTYPE);
     hidden_action     := hidden_action ||'&desformat='||GET_REPORT_OBJECT_PROPERTY(report_id,REPORT_DESFORMAT);
     hidden_action     := hidden_action ||'&userid='     ||GET_APPLICATION_PROPERTY(username)||'/'||
                                   GET_APPLICATION_PROPERTY(password)||'@'||
                                   GET_APPLICATION_PROPERTY(connect_string);
     c_old :='@';
     FOR i IN 1..LENGTH(report_otherparam) LOOP
          c_new:= substr(report_otherparam,i,1);
          IF (c_new =' ') THEN
               c:='&';
          ELSE
               c:= c_new;
          END IF;
          -- eliminate multiple blanks
          IF (c_old =' ' and c_new = ' ') THEN
               null;
          ELSE
               v_report_other     := v_report_other||c;
          END IF;
          -- save current value as old value
          c_old := c_new;
     END LOOP;
     hidden_action := hidden_action ||'&'||v_report_other;
     hidden_action := reports_servlet||'?_server='||report_server_name||hidden_action;
     SET_REPORT_OBJECT_PROPERTY(report_id,REPORT_OTHER,'pfaction='||hidden_action||' '||report_otherparam);
     report_message     := run_report_object(report_id);
rep_status      := report_object_status(report_message);               
     IF rep_status='FINISHED' THEN
          vjob_id :=substr(report_message,length(report_server_name)+2,length(report_message));           
          WEB.SHOW_DOCUMENT(reports_servlet||'/getjobid'||vjob_id||'?server='||report_server_name,' _blank');
     ELSE
          null;
     END IF;
END;