PROCEDURE PROC_FOR_CSV_FILE1( P_VAL1 CHAR,
                              P_VAL2 NUMBER
                                       )IS

  MYFILE TEXT_IO.FILE_TYPE;

  M_PARA_VALUE  VARCHAR2(50);
  M_PARA_VALUE1 VARCHAR2(50);
  
  CURSOR C1 IS
  SELECT PARA_VALUE FROM PCOM_APP_PARAMETER 
  WHERE  PARA_CODE='CSV_FILE';
  
  CURSOR C2 IS
  SELECT PARA_VALUE FROM PCOM_APP_PARAMETER 
  WHERE  PARA_CODE='CSV_FILE_HIS';

BEGIN
	  OPEN  C1;
	  FETCH C1 INTO M_PARA_VALUE;
	  CLOSE C1;
	   
	  OPEN  C2;
	  FETCH C2 INTO M_PARA_VALUE1;
	  CLOSE C2;
	  MYFILE := TEXT_IO.FOPEN(M_PARA_VALUE, 'W');
    TEXT_IO.PUTF(MYFILE, P_VAL1||',');
    TEXT_IO.PUTF(MYFILE, TO_CHAR(P_VAL2));
    TEXT_IO.PUTF(MYFILE, CHR(10)); 
    TEXT_IO.FCLOSE(MYFILE);
    EXCEPTION
    WHEN OTHERS THEN DISP_ALERT(SQLERRM);
END;