TY=`basename $0`
FS="$BDA/contenu/ocl.dat" 
typ $TY

case $# in

0) (cat $ENT/ocl.ent ; zex $FS )| more ; echo ' ' ;;

1) (cat $ENT/ocl.ent ; zex $FS | grep $1 | sort +0 +1) | more
   echo ' ' ;;

*) opt=$2
   case $1 in
     l) pos=32 ; lon=6 ; col="+6" ;; 
     b) pos=39 ; lon=6 ; col="+7" ;; 
   r|d) pos=46 ; lon=4 ; col="+8" ;;
   m-M) pos=51 ; lon=5 ; col="+9" ;;
 ebv|e) pos=57 ; lon=4 ; col="+10" ;;
   a|t) pos=62 ; lon=4 ; col="+11" ;;
     z) pos=70 ; lon=4 ; col="+13" ;;
     D) pos=75 ; lon=3 ; col="+14" ;;
   alf) case $opt in
         -gt) (cat $ENT/ocl.ent ; zex $FS | awkalpha | awkg 2 5 $3 | \
                cut -c15- | sort +2 +3 )| more ;;
         -lt) (cat $ENT/ocl.ent ; zex $FS | awkalpha | awkp 2 5 $3 | \
                cut -c15- | sort +2 +3 )| more ;;
          -i) (cat $ENT/ocl.ent ; zex $FS | awkalpha | awki 2 5 $3 $4 | \
                cut -c15- | sort +2 +3 )| more ;;
          -s) (cat $ENT/ocl.ent ; zex $FS | sort +2 +3 )| more ;;
        esac 
        echo ' '
        exit 0 ;;
   dec) case $opt in
         -gt) (cat $ENT/ocl.ent ; zex $FS | awkalpha | awkg 7 6 $3 | \
                cut -c15- | sort +3 +4 )| more ;;
         -lt) (cat $ENT/ocl.ent ; zex $FS | awkalpha | awkp 7 6 $3 | \
                cut -c15- | sort +3 +4 )| more ;;
          -i) (cat $ENT/ocl.ent ; zex $FS | awkalpha | awki 7 6 $3 $4 | \
                cut -c15- | sort +3 +4 )| more ;;
          -s) (cat $ENT/ocl.ent ; zex $FS | awkalpha | sort -n +1 | \
                cut -c15- )| more ;;
        esac 
        echo ' '
        exit 0 ;;
    ad) case $opt in
         -gt) (cat $ENT/ocl.ent ; zex $FS | awkalpha | awkg 2 5 $3 | \
                awkg 8 5 $4 | cut -c15- | sort +2 +3 )| more ;;
         -lt) (cat $ENT/ocl.ent ; zex $FS | awkalpha | awkp 2 5 $3 | \
                awkp 8 5 $4 | cut -c15- | sort +2 +3 )| more ;;
          -i) (cat $ENT/ocl.ent ; zex $FS | awkalpha | awki 2 5 $3 $4 | \
                awki 8 5 $5 $6 | cut -c15- | sort +2 +3 )| more ;;
        esac 
        echo ' '
        exit 0 ;;
    lb) case $opt in
          -i) (cat $ENT/ocl.ent ; zex $FS | awki 32 6 $3 $4 | \
                awki 49 6 $4 $5 | sort +6 )| more ;;
        esac 
        echo ' ' 
        exit 0 ;;
    ts) case $opt in
        -eq) (cat $ENT/ocl.ent ; zex $FS | grep $3)| more ;;
        -gt) (cat $ENT/ocl.ent ; zex $FS | awkoclmkg `tscod $3` )|\
             sort +12 -13 +2 +3 | more ;;
        -lt) (cat $ENT/ocl.ent ; zex $FS | awkoclmkp `tscod $3` )|\
             sort +12 -13 +2 +3 | more ;;
         -i) (cat $ENT/ocl.ent ; zex $FS | awkoclmki `tscod $3` `tscod $4`)|\
             sort +12 -13 +2 +3 | more ;;
        esac 
        echo ' ' 
        exit 0 ;; 
     *) ;;
   esac
   case $opt in
    -gt) (cat $ENT/ocl.ent ; zex $FS | awkg $pos $lon $3 | \
           sort -n $col )| more ;;
    -lt) (cat $ENT/ocl.ent ; zex $FS | awki $pos $lon 0.001 $3 | \
           sort -n $col )| more ;;
     -i) (cat $ENT/ocl.ent ; zex $FS | awki $pos $lon $3 $4 | \
           sort -n $col )| more ;;
    -eq) (cat $ENT/ocl.ent ; zex $FS | awke $pos $lon $3 )| more ;;
    -ne) (cat $ENT/ocl.ent ; zex $FS | awkn $pos $lon $3 )| more ;;
     -s) case $1 in
           name|nom) (cat $ENT/ocl.ent ; zex $FS | sort +0b +1b )| more ;;
             *) (cat $ENT/ocl.ent ; zex $FS | sort -n $col )| more ;;
         esac ;;
      *) (cat $ENT/ocl.ent ; zex $FS | grep $1 | awk ' $2 == clno {print $0} ' \
         clno=$2 )| more
         echo ' ' ;;
   esac ;;
esac