CREATE OR REPLACE PACKAGE BODY APPS.XXAE03103 
 IS 
  
   PROCEDURE main(errbuf           IN OUT VARCHAR2 
                  ,retcode         IN OUT VARCHAR2 
                  ,in_occur_type   IN VARCHAR2 
                  ,in_date         IN DATE) 
    
   IS 
  
   CURSOR cur_file_loop IS 
      SELECT 
          XXAE_REPAY.TPP_CODE, 
          XXAE_REPAY.TPP_DIVIDE_CODE, 
          XXAE_REPAY.CONTR_CORP_CODE, 
          XXAE_CONTR_CORP.CONTR_CORP_NAME, 
          XXAE_REPAY.CONTR_FORM_TYPE, 
          XXAE_REPAY.CONTR_SUB_ID, 
          XXAE_REPAY.SCHEME_TYPE, 
          XXAE_REPAY.DOMESTIC_BRAND_CODE, 
          XXAE_REPAY.DOMESTIC_BRAND_CODE2, 
          XXAE_REPAY.INTER_BRAND_CODE, 
          XXAE_REPAY.CARD_NUM, 
          XXAE_REPAY.USER_KANA_NAME, 
          XXAE_REPAY.CLEARING_PROMISE_DATE, 
          XXAE_REPAY.REPAY_STATUS_TYPE, 
          XXAE_REPAY.REPAY_OPERATION_TYPE, 
          XXAE_REPAY.REPAY_AMT, 
          XXAE_REPAY.REPAY_DATE, 
          XXAE_REPAY.REPAY_OCCUR_TYPE, 
          XXAE_REPAY.CASH_SHIFT_TYPE, 
          XXAE_REPAY.INDIVIDUAL_PAYMENT_REGIST_DATE, 
          XXAE_REPAY.CASH_SHIFT_TO_DEPT_CODE, 
          XXAE_REPAY.BILL_TRUST_TYPE, 
          XXAE_REPAY.REPAY_TRUST_TYPE, 
          XXAE_REPAY.ISS_TPP_8_CODE, 
          XXAE_REPAY.CR_COOP_COLLECTION_DATE, 
          XXAE_REPAY.CR_COOP_PAYMENT_DATE 
      FROM XXAE_REPAY,XXAE_CONTR_CORP 
      WHERE XXAE_REPAY.REPAY_OCCUR_TYPE = in_occur_type AND 
            XXAE_REPAY.REPAY_DATE = in_date AND 
            XXAE_REPAY.CONTR_CORP_CODE = XXAE_CONTR_CORP.CONTR_CORP_CODE 
      ORDER BY XXAE_REPAY.TPP_CODE; 
           
       vHandle        UTL_FILE.FILE_TYPE; 
       vDirname       VARCHAR2(250);            --パス名 
       vFilename      VARCHAR2(250);            --ファイル名 
      -- vOutput        VARCHAR2(32767); 
       lv_file_line   VARCHAR(32767); 
   BEGIN 
    xxae_common_pkg.put_log_header(); 
  
    vDirname :='C:\xpxpxpxp\'; 
    vFilename := 'WREN.txt'; 
    vHandle := UTL_FILE.FOPEN(vDirname,vFilename,'w', 32767);	 
  
    FOR rec_file IN cur_file_loop LOOP 
  
      lv_file_line :=  rec_file.TPP_CODE              || ',' 
                    || rec_file.TPP_DIVIDE_CODE       || ',' 
                    || rec_file.CONTR_CORP_CODE       || ',' 
                    || rec_file.CO