H dftactgrp(*no) actgrp(*caller)
      *‚--------------------------------------------------------------------
      *‚DME | 14/04/2006 | Renommer un ficher de l'IFS
      *‚--------------------------------------------------------------------
      *‚--------------------------------------------------------------------
      *‚Déclaration de l'API IFS Qp0lRenameKee)
      *‚--------------------------------------------------------------------
     D rename          PR            10I 0 ExtProc('Qp0lRenameKeep')
     D   old                           *   Value options(*string)
     D   new                           *   Value options(*string)
      *‚--------------------------------------------------------------------
      *‚Retour 1 si erreur dans le rename
      *‚ancien nom du fichier IFS (inclus le répertoire)
      *‚nouveau nom du fichier IFS (inclus le répertoire)
      *‚--------------------------------------------------------------------
     D Error           S              5U 0
     D oldfile         S            104
     D newfile         S            104
      *‚----------------------------------------------------
      *‚Réception paramètres : fichiers et code erreur
      *‚----------------------------------------------------
     C     *ENTRY        PLIST
     C                   PARM                    oldfile
     C                   PARM                    newfile
     C                   PARM                    Error
      *
     C                   eval      Error = 0
      *‚Renomme le fichier dans l'IFS        
     c                   if        rename(%trimr(oldfile) :
     c                                    %trimr(newfile)) < 0
     C                   eval      Error = 1
     c                   endif
      *‚Fin du programme
     C                   eval      *InLR = *on