Java Concurrent Program report

Java Concurrent Program report

--=========================================================
XML
--=======================================================

<?xml version = '1.0' encoding = 'UTF-8'?>
<!-- $ Oracle technical Shooter $ -->

<dataTemplate name="XXSD_JAVA_CONC_REPORT" defaultPackage="XXSD_EMP_PKG" version="1.0">
   <properties>
    <property name="xml_tag_case" value="upper"/>
<property name="scalable_mode" value="on"/>
<property name="include_parameters" value="true"/>
   </properties>
   <parameters>
      <parameter name="P_DEPT_NO" dataType="number" />  
   </parameters> 
   <dataQuery>    
     <sqlStatement name="Q_1">
          <![CDATA[
select A.DEPTNO, A.DNAME, A.LOC, B.EMPNO, B.ENAME, B.JOB, B.HIREDATE
from scott.dept  A, scott.emp B
where A.deptno = B.deptno
AND A.deptno = :P_DEPT_NO  
          ]]>
      </sqlStatement>

   </dataQuery>
 
   <dataTrigger name="beforeReport" source="XXSD_EMP_PKG.BeforeReport" /> 
 
   <dataStructure>
<group name="G_DEPT"  source="Q_1">
<element name="DEPTNO"  value="DEPTNO"/>               
                 <element name="DNAME"  value="DNAME"/>
         <element name="LOC"  value="LOC"/>
<group name="G_EMP"  source="Q_1">  
   <element name="EMPNO"  value="EMPNO"/>
   <element name="ENAME"  value="ENAME"/>
   <element name="JOB"  value="JOB"/>
   <element name="HIREDATE"  value="HIREDATE"/>  
   <element name="DEPTNO"  value="DEPTNO"/>           
</group>
        </group>
   </dataStructure>
   <dataTrigger name="afterReport" source="XXSD_EMP_PKG.AfterReport"/>
</dataTemplate>


--============================================================

CREATE OR REPLACE PACKAGE APPS.XXSD_EMP_PKG
IS
   P_DEPT_NO   NUMBER;

   FUNCTION beforeReport     RETURN BOOLEAN;
   FUNCTION afterreport     RETURN BOOLEAN;
 
END XXSD_EMP_PKG;

--===============================================================

CREATE OR REPLACE PACKAGE BODY APPS.XXSD_EMP_PKG
IS


FUNCTION BeforeReport   RETURN BOOLEAN IS

V_COUNT  NUMBER;

 BEGIN
 
select COUNT(*) INTO V_COUNT from scott.dept where deptno = P_DEPT_NO;
 
  if V_COUNT > 0 then
   NULL;
  else
  fnd_file.PUT_LINE(fnd_file.LOG,'Error: Depart No not exist in system so please check ');
   return (false);
  end if;
  RETURN (TRUE);
END;


FUNCTION afterreport  RETURN BOOLEAN  IS
   V_COUNT  NUMBER;

   BEGIN
 
select COUNT(*) INTO V_COUNT from scott.EMP where deptno = P_DEPT_NO;
 
  if V_COUNT > 0 then
    fnd_file.PUT_LINE(fnd_file.LOG,'report Run for '||V_COUNT||' Employees');
    RETURN (TRUE);
  else
    fnd_file.PUT_LINE(fnd_file.LOG,'Error: Depart No not exist in system so please check ');
   return (false);
  end if;
 
    END; 
   
END XXSD_EMP_PKG;

--================================================================

RTF

--================================================================

Employee Detail report

for-each G_DEPT

Department no :- DEPTNO

Department Name :- DNAME

Location :- LOC

Empno	Ename	Job	Hiredate	Deptno
F EMPNO	ENAME	JOB	HIREDATE	DEPTNO E

end G_DEPT