.ad 8
.bm 8
.fm 4
.bt $Copyright (c) 2000-2004 SAP AG$$Page %$
.tm 12
.hm 6
.hs 3
.tt 1 $SQL$Project Distributed Database System$VSP91$
.tt 2 $$$
.tt 3 $$link check$1998-03-13$
***********************************************************
.nf
 
 .nf


    ========== licence begin  GPL
    Copyright (c) 2000-2004 SAP AG

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

    This program 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 General Public License for more details.

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

.fo

 
.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
              s91ok : boolean;
 
        PROCEDURE
              s91init;
 
        PROCEDURE
              s91check;
 
        PROCEDURE
              s91linkcheck (
                    check_module : tsp00_Int4;
                    stamp_date   : tsp00_Int4;
                    module_name  : tsp00_C4);
 
.CM *-END-* define --------------------------------------
.sp;.cp 3
Use     :
 
&       ifndef nocheck
        FROM
              link_check_msg : VSP99;
 
        PROCEDURE
              s99linkcheckmsg (
                    VAR msg      : tsp00_C64;
                    check_module : tsp00_Int4;
                    stamp_date   : tsp00_Int4;
                    module_name  : tsp00_C4);
 
      ------------------------------ 
 
        FROM
              RTE_driver : VEN102;
 
        PROCEDURE
              sqlabort;
 
        PROCEDURE
              sqlwrite (VAR text : tsp00_Line);
&       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
.sp
.cp 3
Release :  3.1.3         Date : 1994-01-21
.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    :
 
 
(*------------------------------*) 
 
PROCEDURE
      s91init;
 
BEGIN
s91ok := true;
END;
 
(*------------------------------*) 
 
PROCEDURE
      s91check;
 
BEGIN
&ifndef nocheck
IF  NOT(s91ok)
THEN
    sqlabort;
&endif
(*ENDIF*) 
END;
 
(*------------------------------*) 
 
PROCEDURE
      s91linkcheck (
            check_module : tsp00_Int4;
            stamp_date   : tsp00_Int4;
            module_name  : tsp00_C4);
 
VAR
      i              : integer;
      ln             : tsp00_Line;
      msg            : tsp00_C64;
 
BEGIN
&ifndef nocheck
IF  NOT ((check_module DIV 100000) = stamp_date)
THEN
    BEGIN
    s99linkcheckmsg(msg, check_module, stamp_date, module_name);
    FOR i:=1 TO mxsp_c64 DO
        ln[ i ] := msg[ i ];
    (*ENDFOR*) 
    FOR i:=mxsp_c64+1 TO LINE_MXSP00 DO
        ln[ i ] := ' ';
    (*ENDFOR*) 
    sqlwrite(ln);
    s91ok := false;
    END
&endif
(*ENDIF*) 
END;
 
.CM *-END-* code ----------------------------------------
.SP 2 
***********************************************************
.PA 
