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 " MIA : archivage des fichiers " specfic " dans " nomarchive "terminée"