##
my ($all_info) = shift (@_);
####
sub C58MASTP
{
my $check;
# retrieving argument
my ($all_info) = shift (@_);
if($X_NUM){$check=$X_Y;}
if($all_info){$check=$all_info;}
$sql= "SELECT C.mast1, C.mast2 FROM MASTER WHERE C.mast1=$check AND C.mast2=$X_Y";
}