TEST_DPND_VALUESET

create or replace 
PROCEDURE TEST_DPND_VALUESET(
    errbuf   IN OUT VARCHAR2 ,
    RETCODE  IN OUT VARCHAR2 ,
    P_DEPTNO IN NUMBER ,
    P_JOB    IN VARCHAR2)
IS
  CURSOR EMP_CUR
  is
    SELECT EMPNO,ENAME,job ,MGR ,HIREDATE,SAL ,COMM ,DEPTNO
    FROM EMP
    WHERE DEPTNO = P_DEPTNO
    AND job      = P_JOB;
begin
 FND_FILE.PUT_LINE (FND_FILE.OUTPUT,'EMPNO'||'  '||'ENAME'||'  '||'job'||'  '||'MGR'||'  '||'HIREDATE'||'  '||'SAL' ||'  '||'COMM'||'  '||'DEPTNO');
  for EMP_REC in EMP_CUR
  LOOP
    FND_FILE.PUT_LINE (FND_FILE.OUTPUT,EMP_REC.EMPNO||'   '||EMP_REC.ENAME||'  '||EMP_REC.job||'  '||EMP_REC.MGR||'  '||EMP_REC.HIREDATE||'  '||EMP_REC.SAL||'  '||EMP_REC.COMM||'  '||EMP_REC.DEPTNO);
  end LOOP;
end;