DECLARE
REP_ID REPORT_OBJECT;
REP_J_ID VARCHAR2(25);
SERVER_LENGTH NUMBER;
REP_STATUS VARCHAR2(25);
REP_SERVER VARCHAR2(100):='repserver';

BEGIN
REP_ID :=FIND_REPORT_OBJECT('REPORT7');
REP_J_ID :=RUN_REPORT_OBJECT(REP_ID);
SERVER_LENGTH:=LENGTH(GET_REPORT_OBJECT_PROPERTY(REP_ID,REPORT_SERVER));
REP_STATUS:=REPORT_OBJECT_STATUS(REP_J_ID);

WHILE 
V_REP_STATUS IN('RUNNING','OPENING_REPORT','ENQUEUED', null)

LOOP
MESSAGE('RUNNING REPORT');
REP_STAT:=REPORT_OBJECT_STATUS(REP_J_ID);
END LOOP;

WEB.SHOW_DOCUMENT('/reports/rwservlet/getjobid'||
SUBSTR(REP_J_ID,SERVER_LENGTH+2)||'?SERVER='||REP_SERVER, '_blank');
END;