XDBOPEN( 'demobeh' )
XCHECKREPLY( $syserror , "<K022K $syserror;5>" )

XDBGET( $btyp , &$bez , &$tara )
XCHECKREPLY( $syserror , "<K022K $syserror;5>" )

if (empty($sysline))
{
  $sysreply = "<K022K $btyp nicht vorhanden;5>";
}