/* table de hachage des lieux */

 courts = "sac                     statasi"
 longs  = "~/public_html/Farcompr  /home/info/gh/Crs/Stat/Asi"

 lieu.         = "" /* valeur par défaut */
 do idl=1 to words(courts)
    racco      = word(courts,idl)
    lieuc      = word(longs, idl)
    lieu.racco = lieuc
 end /* fin pour idld de 1 à mots(courts) */

 /* gestion des paramètres */

 parse arg ligp
 specfic = ""
 do idm=1 to words(ligp)
    parmc = word(ligp,idm)
    lieuc = lieu.parmc
    if lieuc ="" then do
       say " erreur : paramètre 'parmc' inconnu'"
       exit(-1)
    end ; else do
      specfic = specfic lieuc||"/*.xml"
    end ;
 end /* fin de pour idm = 1 to mots(ligp) */

 if specfic="" then do
    say "aucun paramètre valide ? vous pourriez utiliser " courts
 end ; else do
    say " spécification[s] pour l'archive : "
    say "     " specfic
 end ;