#!/bin/sh

# disable filename globbing
echo 
echo "<br>"
echo recibe
echo $1 $2 "<br>"

echo Paso R"<br>"
echo $APPLDIR/sh/nform $1 "<br>"
$APPLDIR/sh/nform $1 | awk -F^ '
function trail(txt) { while (substr(txt,length(txt),1)==" ") txt=substr(txt,1,length(txt)-1); return (txt) }
NF==1 { for (i=1;i<=NF; i++)  if($i=="H") exit
else  print i":"$i "<br>" } ' -
echo paso 001"<br>"
exit
./appl/sh/nform $1 | awk -F^ '
function trail(txt) { while (substr(txt,length(txt),1)==" ") txt=substr(txt,1,length(txt)-1); return (txt) }
{ for (i=1;i<=NF; i++) if(trail($i)!="") print i":"$i"<br>"} ' -

echo forms=$forms
awk -F^ '  { print $2; exit } ' ./tmp/$1
echo $form
FILENAME== ARGV[1] { x[$1]=$2; next}

NF==2 { printf $2,x[$1] ;next}
{ print }

 ' - nform/head.nform 2>/tmp/error
cat /tmp/error
