/*  (gH)   --  av.sedit  ;  TimeStamp (unix) : 02 Février 04 12:14 */

/*  av.sedit : archivage avec incrementation dans ~/Tmp           */

   'extract /fname/'
   'extract/ftype/'
   idp = pos(".",fname)
   fnv = 1
   do while length(fnv)<4
      fnv = "0"||fnv
   end
   fnom = fname.1
   ftyp = ftype.1
   if words(fnom)=0 then do
      fnom = substr(ftyp,2)
      ftyp = ""
   end
   nn = "/home/gh/Tmp/"||fnom||"."||fnv||ftyp
   tn = state(nn)
   do while tn > 0
      fnv = fnv + 1
      do while length(fnv)<4
         fnv = "0"||fnv
      end
      nn = "/home/gh/Tmp/"||fnom||"."||fnv||ftyp
      tn = state(nn)
   end /* fin de tant que */
   nomd = fnom
   msg " depose incrémentale en " nn
   'ssave '  nomd fnv||ftyp  "/home/gh/Tmp/"