sub docFullReport(){

#####################################################
#
# Limited Section
#
##################

open(PB_BODY_LIMITED, "> tmp/FR.DOC") or die "Can't $!\n"; 
#Lock File
flock(PB_BODY_LIMITED, 2);

$sql = <<END_SQL;

SQL CODE(didn't post it here)

END_SQL

$query = &execsql($sql);



	$~ = PB_TOP_LIMITED;
	write PB_TOP_LIMITED;

	$~ = PB_BODY_LIMITED;

write PB_BODY_LIMITED while( @data = $query->fetchrow );

#####################################################
#
# Detailed Section
#
##################

$sql = <<END_SQL;

SQL CODE(didn't post it here)

END_SQL

$query = &execsql($sql);

	$~ = PB_TOP_DETAILED;
	write PB_TOP_DETAILED;

	$~ = PB_BODY_DETAILED;

write PB_BODY_DETAILED while( @data = $query->fetchrow );

}