How forms know when Report Server is down

Question

Environment: Oracle Developer Suite 10g 10.1.2.0.2 R2
os :windows xp
I have button to call a report object :when-button-pressed
declare
v_report_name VARCHAR2(30):='REQ010';----report name without .rdf
          v_repid REPORT_OBJECT;
          vc_rep VARCHAR2(20);
          vc_rep_status VARCHAR2(20);
          vc_URL VARCHAR2(100);
          vc_rep_job VARCHAR2(10);
          Plist ParamList;
          dummy NUMBER;
          Report_Plist_name VARCHAR2(30) := 'REPORT_PARAM_LIST';
          REPORT_NOT_GENERATED EXCEPTION;
          PARAMETER_LIST_SECTION_PROBLEM EXCEPTION;
BEGIN
--=========================================================================          
BEGIN     
                    --prepare the list of parameters to be sent to the report
                    Plist := Get_Parameter_List(Report_Plist_name);
                    IF NOT Id_Null(Plist) THEN
                         Destroy_Parameter_List(Report_Plist_name);
                    END IF;     
                    Plist := Create_Parameter_List(Report_Plist_name);      
                    IF Id_Null(Plist) THEN
                         dummy := Show_Alert('PARAM_LIST_CREATION_PROBLEM');
                         RAISE Form_Trigger_Failure;
                    END IF;
                    --Add parameter(s) to list just created
                    Add_Parameter(Plist, 'P_REQUEST_ID', TEXT_PARAMETER, :CUSTOMER_REQUESTS.CR_REQUEST_ID);
     EXCEPTION
WHEN OTHERS THEN
raise PARAMETER_LIST_SECTION_PROBLEM;
END;
--=============================================================================
          --START THE REPORT     
          v_repid := FIND_REPORT_OBJECT(v_report_name);
          vc_rep := RUN_REPORT_OBJECT(v_repid,Plist);
          vc_rep_status := REPORT_OBJECT_STATUS(vc_rep);
--=============================================================================
BEGIN          
                    IF vc_rep is NOT NULL THEN
                              -- Wait until report finishes or produces an error
                              WHILE vc_rep_status in
                              ('RUNNING', 'OPENING_REPORT', 'ENQUEUED')
                              LOOP
                                   vc_rep_status := REPORT_OBJECT_STATUS(vc_rep);
                              END LOOP;
                              -- Display the report if it is finished
                              if vc_rep_status = 'FINISHED' then
                                                  vc_rep_job := substr(vc_rep,instr(vc_rep,'_')+1);
                                                  message('Report Completed');
                                                  vc_URL := '/reports/rwservlet/getjobid' ||vc_rep_job||
                                                  '?server='||get_report_object_property
                                                  (v_repid,report_server);
                                                  Web.show_document(vc_URL,'_blank');
                                                  -- Display an error if the report errored
                         END IF;
                    END IF;                              
EXCEPTION
WHEN OTHERS THEN
raise REPORT_NOT_GENERATED;
END;
--=============================================================================
Destroy_Parameter_List('REPORT_PARAM_LIST');
EXCEPTION
WHEN REPORT_NOT_GENERATED THEN
msgbox('Error Calling Report');
--Causes: 1-Report file name is incorrect,check report name and existance.
-- 2-Or, Report Server is Down.
WHEN PARAMETER_LIST_SECTION_PROBLEM THEN
msgbox('CHECK PARAMETER SECTION ');
WHEN OTHERS THEN
msgbox(SQLERRM);
END;
Problem:
======
How can I distingwish among these conditions:
IF Report cannot run :
when the problem is from the report file object itself.
and IF the problem is the Report Server is Down.
and the report file is not exist.
Tries:
I try to but many exception to differenciate between these conditions but I fail
how can I display a message to the user,Inform him the problem ,
So the support personnel know if the problem from the Report object or the application Server
.

Answer 1

Hi Krishan,
If you want to check if local cache service is running, you can do something like this:
NamedCache cache = CacheFactory.getCache(sCacheName);
boolean isRunning = cache.getCacheService().isRunning();If you want to check if any storage enabled nodes (cache servers) are available in the cluster:
NamedCache cache = CacheFactory.getCache(sCacheName);
DistributedCacheService service = (DistributedCacheService) cache.getCacheService();
Set storageEnabledMembers = service.getStorageEnabledMembers();
if(storageEnabledMembers.isEmpty())
    // no cache servers available ...
    }Regards,
Dimitri