/*  (gH)   -_-  archcd.rex  ;  TimeStamp (unix) : 24 Novembre 2012 vers 20:17 */

   numarchive = 1
   nomarchive = "lesxml"||rexxut("formatZero^"numarchive"^3")||".tar"
   do while fileut("existsFile^"nomarchive)
      numarchive = numarchive + 1
      nomarchive = "lesxml"||rexxut("formatZero^"numarchive"^3")||".tar"
   end /* fin de tant que */
   specfic = "*.xml"
   "tar -cf " nomarchive specfic
   say "[rex] M1 : OK pour archivage des fichiers " specfic " dans " nomarchive