##########################################
# Precise-Input-Check (PIC) / Story-Code #
##########################################

my $gruppenstatus = "N";
my $zahl1status = "N";
my $zahl2status = "N";
my $zahl3status = "N";
my $kennstatus = "N";

my $gruppenstelle = substr($customstorycode, 0, 2);
my $zahl1stelle = substr($customstorycode, 2, 1);
my $zahl2stelle = substr($customstorycode, 3, 1);
my $zahl3stelle = substr($customstorycode, 4, 1);
my $kennstelle = substr($customstorycode, 5, 1);

if ($gruppenstelle eq "KG") {$gruppenstatus = "Y";}
if ($kennstelle eq "J") {$kennstatus = "Y";}
if ($kennstelle eq "M") {$kennstatus = "Y";}
if ($kennstelle eq "B") {$kennstatus = "Y";}

if ($gruppenstatus eq "Y" and $zahl1status eq "Y" and $zahl2status eq "Y" and $zahl3status eq "Y" and $kennstatus eq "Y") { goto FirstCheckOK;}
goto StoryCodeUmfangError;