./appl/sh/clien 0 | awk -F"^" ' { printf "%s%.2d\n",$1,z[$1]++ }'  >tmp/obrc
./appl/sh/cotiz | awk -F"^" ' { printf "%s\n",$1"^"$7"^"$6 }'  | sort -t^ -k2 -u >tmp/obract
awk -F^ ' FILENAME==ARGV[1] { cl[$1]=1; next }
cl[$2]=="" ' tmp/obrc tmp/obract | cat -tve  | more


