AS/400 - Manual de RPG FREE

/Free

  //  Busca fecha del dia

  f_Iso      = %Date();

  v_Fecha    = %dec(%char(f_Iso:*Iso0):8:0);

  v_FechaChar=%Char(v_Fecha);

  Exec Sql Set Option Datfmt=*Iso, Commit=*None, CloSqlCsr=*Endmod;

  ExSr Procesar;

  Exsr Envia_file_Manager;

 *Inlr = *On;

*=====================================================================

**  Leer Archivo con los datos para actualizar el segmento del Cliente

*=====================================================================

 BegSr Procesar;

   //  Eliminar el Log, para no duplicar los registros

   Exec Sql

   Delete From SegmentLog;

   Exec Sql

   Delete From Segmen_Log;

   Exec Sql

     Insert Into SegmentLog

     ( Select

          Cunbr , Cumark , SubString(CifSeg,12 , 2) , Current_Date

          From  cup00301

          Inner Join SegmentoPf

          On Dec(Cunbr) = Dec(SubString(CifSeg,1 , 10))

     );

    Exsr Act_Archivo;

    Exsr Actualiza_Log;

 EndSr;

*=====================================================================

*   Crear Archivo Intermedio los Sementos Actualizados

*=====================================================================

 BegSr Act_Archivo;

    Exec Sql

      Merge into cup00301 a using Segmentlog

        on cubk=001 and cif=cunbr

        when Matched then

        Update Set a.Cumark= Segm_Act;

 EndSr;

*====================================================================

*   Genera Archivo Log Actualizado / para ser transferido al servidor

*====================================================================

 BegSr Actualiza_Log;

    Exec Sql

    Insert into Segmen_Log

     Select

      char(CIF ||'|' ||trim(SEGM_ANT)||'|'||trim(SEGM_ACT)||'|'||

      char(current_timestamp) )

     From SegmentLog;

 EndSr;

//End-Free