#!/bin/sh
# the next line restarts using wish \
exec tclsh "$0" "$@"

source $env(UDF_HOME)/bin/Procs.tcl

switch -exact -- $argc {

   0  {  set ToDo "-A" }
   1  {  set ToDo [lindex $argv 0] }
   2  {  set ToDo [lindex $argv 0] ;  
         set Fname [lindex $argv 1]
         string trim Fname
         append ToDo $Fname
      }
        
   default { set ToDo "-A" }
}

GenDbAsc $ToDo

exit 
