/*==========================================================================* 
 * Step:            File Writer                           A54BDOAJ.BJ0002JM * 
 * Transform:       File Writer                                             * 
 * Description:                                                             * 
 *                                                                          * 
 * Source Table:    Join - work.WKIML4T                   A54BDOAJ.BG0001TD * 
 * Target Table:    fatture -                             A54BDOAJ.CJ000005 * 
 *                  C:\Users\dlt_gec\Projects\Spritz                        * 
 *                   Norma\Flusso Fatture.txt                               * 
 *==========================================================================*/ 

%let transformID = %quote(A54BDOAJ.BJ0002JM);
%let trans_rc = 0;
%let etls_stepStartTime = %sysfunc(datetime(), datetime20.); 

%let etls_recnt = -1;
%let SYSLAST = %nrquote(work.WKIML4T); 

/* Runtime statistics macros  */ 
%etls_setPerfInit;
%perfstrt(txnname=%BQUOTE(_DISARM|&transformID|&syshostname|FileWriter), metrNam6=_DISROWCNT, metrDef6=Count32)   ;

/*---- Map the columns  ----*/ 
proc datasets lib = work nolist nowarn memtype = (data view);
   delete WYFAOUL;
quit;

%put %str(NOTE: Mapping columns ...);
proc sql;
   create view work.WYFAOUL as
      select
         ID_FATTURA,
         ID_CLIENTE,
         NUM_FATTURA,
         ID_TIPO_FATTURA,
         ID_CONDIZIONE_FATTURA,
         IMPORTO_FATTURA,
         IMPORTO_RESIDUO_DA_PAGARE,
         IMPORTO_INCASSATO_CALCOLATO,
         DATA_SCADENZA_INIZIALE,
         DATA_EMISSIONE,
         DATA_SCADENZA_FINALE,
         NUM_RATE,
         FLG_FATTURA_RID_INSOLUTO,
         DATA_EMISSIONE as DATA_REGISTRAZIONE,
         ID_CONTRATTO,
         ID_FACTOR as CODICE_FACTOR,
         ID_FACTOR as CODICE_FACTOR_S,
         NUM_TOT_RATE_APERTE,
         DATA_PROX_RATA,
         ID_STATO_DUNNING,
         DATA_AVVENUTA_NOTIFICA,
         DATA_CESSIONE
   from &SYSLAST
   ;
quit;

%let SYSLAST = work.WYFAOUL;

data _null_; 
   set &SYSLAST; 
      attrib ID_FATTURA length = $22
         format = $22.
         informat = $22.; 
      attrib ID_CLIENTE length = 8
         format = 11.
         informat = 11.; 
      attrib NUM_FATTURA length = $22
         format = $22.
         informat = $22.; 
      attrib ID_TIPO_FATTURA length = 8
         format = 11.
         informat = 11.; 
      attrib ID_CONDIZIONE_FATTURA length = 8
         format = 11.
         informat = 11.; 
      attrib IMPORTO_FATTURA length = 8
         format = 15.2
         informat = 15.2; 
      attrib IMPORTO_RESIDUO_DA_PAGARE length = 8
         format = 15.2
         informat = 15.2; 
      attrib IMPORTO_INCASSATO_CALCOLATO length = 8
         format = 15.2
         informat = 15.2; 
      attrib DATA_SCADENZA_INIZIALE length = 8
         format = DATETIME20.
         informat = DATETIME20.; 
      attrib DATA_EMISSIONE length = 8
         format = DATETIME20.
         informat = DATETIME20.; 
      attrib DATA_SCADENZA_FINALE length = 8
         format = DATETIME20.
         informat = DATETIME20.; 
      attrib NUM_RATE length = 8
         format = 4.
         informat = 4.; 
      attrib FLG_FATTURA_RID_INSOLUTO length = 8
         format = 2.
         informat = 2.; 
      attrib DATA_REGISTRAZIONE length = 8
         format = Datetime20.
         informat = Datetime20.; 
      attrib ID_CONTRATTO length = $22; 
      attrib CODICE_FACTOR length = 8; 
      attrib CODICE_FACTOR_S length = 8
         format = 11.
         informat = 11.; 
      attrib NUM_TOT_RATE_APERTE length = 8; 
      attrib DATA_PROX_RATA length = 8
         format = Datetime20.
         informat = Datetime20.; 
      attrib ID_STATO_DUNNING length = 8
         format = 11.
         informat = 11.; 
      attrib DATA_AVVENUTA_NOTIFICA length = 8
         format = DATETIME20.
         informat = DATETIME20.; 
      attrib DATA_CESSIONE length = 8
         format = DATETIME20.
         informat = DATETIME20.; 
      quote='"';
      file 'C:\Users\dlt_gec\Projects\Spritz Norma\Flusso Fatture.txt' dlm=';';
      
         put 
            quote +(-1) ID_FATTURA +(-1) quote
            quote +(-1) ID_CLIENTE +(-1) quote
            quote +(-1) NUM_FATTURA +(-1) quote
            quote +(-1) ID_TIPO_FATTURA +(-1) quote
            quote +(-1) ID_CONDIZIONE_FATTURA +(-1) quote
            quote +(-1) IMPORTO_FATTURA +(-1) quote
            quote +(-1) IMPORTO_RESIDUO_DA_PAGARE +(-1) quote
            quote +(-1) IMPORTO_INCASSATO_CALCOLATO +(-1) quote
            quote +(-1) DATA_SCADENZA_INIZIALE +(-1) quote
            quote +(-1) DATA_EMISSIONE +(-1) quote
            quote +(-1) DATA_SCADENZA_FINALE +(-1) quote
            quote +(-1) NUM_RATE +(-1) quote
            quote +(-1) FLG_FATTURA_RID_INSOLUTO +(-1) quote
            quote +(-1) DATA_REGISTRAZIONE +(-1) quote
            quote +(-1) ID_CONTRATTO +(-1) quote
            quote +(-1) CODICE_FACTOR +(-1) quote
            quote +(-1) CODICE_FACTOR_S +(-1) quote
            quote +(-1) NUM_TOT_RATE_APERTE +(-1) quote
            quote +(-1) DATA_PROX_RATA +(-1) quote
            quote +(-1) ID_STATO_DUNNING +(-1) quote
            quote +(-1) DATA_AVVENUTA_NOTIFICA +(-1) quote
            quote +(-1) DATA_CESSIONE +(-1) quote
            ;

run; 

%rcSet(&syserr); 

%perfstop(metrVal6=%sysfunc(max(&etls_recnt,-1)));
%let etls_recnt=-1;



/**  Step end File Writer **/