BASE=`pwd`
APPLDIR=$BASE/appl
DATADIR=$BASE/data
PATH=$PATH:$BASE/ihd/bin:.
TZ=America/Santiago
export PATH APPLDIR DATADIR TZ
rm RL/*
dat=`date +%Y-%m-%d" "%T`
awk -F^ ' BEGIN { pac="00731";fec="01/09/2024";dat="'"$dat"'";base="'"$BASE"'/RL"}
FILENAME==ARGV[1] { p[$1]=$2; next }
function imp (prg,prof,ind)
{
	print "H01"pac >file
	print "H02"fec >file
	print "H03"ind >file
	print "H04"p[prof] >file
	print "H05"prg >file
	print "H06A" >file
	print "H07"dat >file
	print "H08ralkaraz" >file
	print " " >file
}
FNR==1 { next}
{ 
dd=sprintf("%.2d",substr($1,1,2)+2)
file=sprintf("%s/%.2d%.3d",base,FNR,++j)
imp($1,$2,"01"dd)
file=sprintf("%s/%.2d%.3d",base,FNR,++j)
imp($1,$2,"06"dd)
file=sprintf("%s/%.2d%.3d",base,FNR,++j)
imp($1,$3,"07"dd)
file=sprintf("%s/%.2d%.3d",base,FNR,++j)
imp($1,$3,"08"dd)
file=sprintf("%s/%.2d%.3d",base,FNR,++j)
imp($1,$4,"09"dd)
file=sprintf("%s/%.2d%.3d",base,FNR,++j)
imp($1,$4,"10"dd)
} ' ROL1 ROL2
for i in $BASE/RL/* 
do
$BASE/ihd/bin/ihmu agend $i -N81480  #>/dev/null 2>>$ER
echo $i
done
