.CM *ID* VSP90    VDN      changed on 1992-07-14-09.59.45 by CARSTEN   *
.ad 8
.bm 8
.fm 4
.bt $Copyright by   SAP AG, 1996$$Page %$
.tm 12
.hm 6
.hs 3
.tt 1 $SQL$Project Distributed Database System$VSP90$
.tt 2 $$$
.tt 3 $$link check$1996-02-29$
***********************************************************
.nf


    ========== licence begin LGPL
    Copyright (C) 2000 SAP AG

    This library is free software; you can redistribute it and/or
    modify it under the terms of the GNU Lesser General Public
    License as published by the Free Software Foundation; either
    version 2.1 of the License, or (at your option) any later version.

    This library is distributed in the hope that it will be useful,
    but WITHOUT ANY WARRANTY; without even the implied warranty of
    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
    Lesser General Public License for more details.

    You should have received a copy of the GNU Lesser General Public
    License along with this library; if not, write to the Free Software
    Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
    ========== licence end

.fo
.nf
.sp
Module  : link_check
=========
.sp
Purpose : This module exports the link check function
          for all other linkcheck modules
.CM *-END-* purpose -------------------------------------
.sp
.cp 3
Define  :
 
        VAR
              s90ok : boolean;
 
        PROCEDURE
              s90init;
 
        PROCEDURE
              s90check;
 
        PROCEDURE
              s90linkcheck (
                    check_module : tsp_int4;
                    stamp_date   : tsp_int4;
                    module_name  : tsp_c4);
 
.CM *-END-* define --------------------------------------
.sp;.cp 3
Use     :
 
&       ifndef nocheck
        FROM
              link_check_msg : VSP99;
 
        PROCEDURE
              s99linkcheckmsg (
                    VAR msg      : tsp_c64;
                    check_module : tsp_int4;
                    stamp_date   : tsp_int4;
                    module_name  : tsp_c4);
 
      ------------------------------ 
 
        FROM
              RTE_kernel : VEN101;
 
        PROCEDURE
              vabort (write_core : boolean);
 
        PROCEDURE
              vopmsg (prio      : tsp_int2;
                    msgtype     : tsp_int2;
                    npar1       : tsp_int4;
                    npar2       : tsp_int4;
                    VAR spar    : tsp_c64;
                    VAR msgline : tsp_opmsg);
&       endif
 
.CM *-END-* use -----------------------------------------
.sp;.cp 3
Synonym :
 
.CM *-END-* synonym -------------------------------------
.sp;.cp 3
Author  : 
.sp
.cp 3
Created : 1989-05-18
.sp
.cp 3
Version : 1996-02-29
.sp
.cp 3
Release :  6.2 	 Date : 1996-02-29
.sp
***********************************************************
.sp
.cp 10
.fo
.oc _/1
Specification:
.CM *-END-* specification -------------------------------
.sp 2
***********************************************************
.sp
.cp 10
.fo
.oc _/1
Description:
.CM *-END-* description ---------------------------------
.sp 2
***********************************************************
.sp
.cp 10
.nf
.oc _/1
Structure:
 
.CM *-END-* structure -----------------------------------
.sp 2
**********************************************************
.sp
.cp 10
.nf
.oc _/1
.CM -lll-
Code    :
 
 
CONST
      c_write_core = true;
 
 
(*------------------------------*) 
 
PROCEDURE
      s90init;
 
BEGIN
s90ok := true;
END;
 
(*------------------------------*) 
 
PROCEDURE
      s90check;
 
VAR
      retcode   : tsp_int2;
      op_msg    : tsp_opmsg;
      hlp_blank : tsp_c64;
 
CONST
      hlpmsg    =
            'LINKCHECK ERROR DETECTED - SQL-DB KERNEL STOPPED                ';
 
BEGIN
&ifndef nocheck
IF  NOT(s90ok)
THEN
    BEGIN
    retcode   := -9876;
    hlp_blank := bsp_c64;
    op_msg := hlpmsg;
    (* prio 1: msg will be sent to CONSOLE and SQL-DB console *)
    vopmsg (1, retcode, 0, 0, hlp_blank, op_msg);
    vabort (NOT c_write_core);
    END
&endif
(*ENDIF*) 
END;
 
(*------------------------------*) 
 
PROCEDURE
      s90linkcheck (
            check_module : tsp_int4;
            stamp_date   : tsp_int4;
            module_name  : tsp_c4);
 
VAR
      i         : integer;
      retcode   : tsp_int2;
      hlpmsg    : tsp_c64;
      hlp_blank : tsp_c64;
      op_msg    : tsp_opmsg;
 
BEGIN
&ifndef nocheck
IF  NOT ( (check_module DIV 100000) = stamp_date)
THEN
    BEGIN
    s90ok     := false;
    hlp_blank := bsp_c64;
    retcode   := -9876;
    s99linkcheckmsg(hlpmsg, check_module, stamp_date, module_name);
    FOR i := 1 TO mxsp_c64 DO
        op_msg[ i ] := hlpmsg[ i ];
    (*ENDFOR*) 
    (* prio 2: msg will be sent to the SQL-DB console *)
    vopmsg (2, retcode, 0, 0, hlp_blank, op_msg);
    END
&endif
(*ENDIF*) 
END;
 
.CM *-END-* code ----------------------------------------
.SP 2 
***********************************************************
*-PRETTY-*  statements    :         15
*-PRETTY-*  lines of code :         76        PRETTY  3.09 
*-PRETTY-*  lines in file :        206         1992-11-23 
.PA 
