: !/bin/sh
# create t21groups unload file

if [ -z "$docentre" ]; then
	docentre="1"
fi
if [ -z "$includeservice" ]; then
	includeservice="1"
fi
if [ -n "$2" ]; then
	includeservice="0"
fi
if [ -n "$3" ]; then
	docentre="0"
fi
export includeservice
export docentre

if [ "$1" = "" ]; then
	if [ "$includeservice" = "1" ]; then
		t21groupsfile="t21groups4.unl"
	else
		t21groupsfile="t21groups4noservice.unl"
	fi
else
	t21groupsfile="$1"
fi

cp /dev/null "$t21groupsfile"

tmpfile1="/tmp/$0_1_$$.tmp"
tmpfile2="/tmp/$0_2_$$.tmp"
rm -f $tmpfile1

#################################################################
## from gett21groups3...
#
#runisql 2>/dev/null <<SQLCMD0
#unload to "$tmpfile1" DELIMITER "|"
#select parentgroupid, groupname.grid, grtype, grname1, grname2, grname3
#from groupname, gnextra, outer gengroup
#where groupname.grid = gengroup.childgroupid
#  and groupname.grid = gnextra.grid
#order by parentgroupid, groupname.grid
#SQLCMD0
#tr "," ";" <$tmpfile1 | sort -u >$t21groupsfile
#rm -f "$tmpfile1"
#exit 0


#################################################################
# prefetch info from tbs db

# tbs customer hierarchy
gettbscustomerhierarchy "$tmpfile1"


#################################################################

## use 4gl group_rpt4
#group_rpt "$TOPGROUP" 10 dojs "$JSNAME" >>"$t21groupsfile"

# create from tbs info
awk -F '|' -f gett21groups4.awk \
	-v "docentre=$docentre" \
	-v "hasservice=$includeservice" \
   < "$tmpfile1" | sort >>"$t21groupsfile"

##---------------
## get UNALLOCATED from t21 hierarchy
#groupid="UNA"
#
##1 all parents where parent is NOT a child
##2 all children where parentgroupid is NOT = childgroupid
##3 all children where where parentgroupid is null or blank
##4 all children where parentgroup = childgroupid
#
#rm -f "$tmpfile1"
#
#txsql -d catcom -F "|" >"$tmpfile1" <<SQLCMD1
#SELECT '', parentgroupid, groupname.grtype, groupname.grlevel,
#       groupname.grname1, groupname.grname2, gnextra.grname3
#FROM gengroup, outer groupname, outer gnextra
#WHERE length(parentgroupid) > 0
#  and parentgroupid not in (select distinct childgroupid from gengroup)
#  and gengroup.parentgroupid = groupname.grid
#  and gengroup.parentgroupid = gnextra.grid
#  and gengroup.parentgroupid = "$groupid"
#UNION 
#SELECT parentgroupid, childgroupid, groupname.grtype, groupname.grlevel,
#       groupname.grname1, groupname.grname2, gnextra.grname3
#FROM gengroup, outer groupname, outer gnextra
#WHERE length(parentgroupid) > 0
#  and gengroup.childgroupid != gengroup.parentgroupid
#  and gengroup.childgroupid = groupname.grid
#  and gengroup.childgroupid = gnextra.grid
#  and (gengroup.parentgroupid = "$groupid"
#    or gengroup.childgroupid = "$groupid")
#UNION 
#SELECT parentgroupid, childgroupid, groupname.grtype, groupname.grlevel,
#       groupname.grname1, groupname.grname2, gnextra.grname3
#FROM gengroup, outer groupname, outer gnextra
#WHERE length(childgroupid) > 0
#  and length(parentgroupid) = 0
#  and gengroup.childgroupid = groupname.grid
#  and gengroup.childgroupid = gnextra.grid
#  and (gengroup.parentgroupid = "$groupid"
#    or gengroup.childgroupid = "$groupid")
#UNION 
#SELECT '', childgroupid, groupname.grtype, groupname.grlevel,
#       groupname.grname1, groupname.grname2, gnextra.grname3
#FROM gengroup, outer groupname, outer gnextra
#WHERE parentgroupid = childgroupid
#  and gengroup.childgroupid = groupname.grid
#  and gengroup.childgroupid = gnextra.grid
#  and gengroup.childgroupid = "$groupid"
#SQLCMD1
#
#sort < "$tmpfile1" >>"$t21groupsfile"

#################################################################

rm -f $tmpfile1

exit 0