.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$VSP11$
.tt 2 $$$
.tt 3 $$RTE-Extension-11$1996-10-22$
***********************************************************
.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  : RTE-Extension-11
=========
.sp
Purpose : Routine to move to the right
.CM *-END-* purpose -------------------------------------
.sp
.cp 3
Define  :
 
        PROCEDURE
              s11mvb (size1 : tsp_int4; size2 : tsp_int4;
                    VAR val1 : tsp_page; p1 : tsp_int4;
                    VAR val2 : tsp_page; p2 : tsp_int4;
                    cnt : tsp_int4);
 
.CM *-END-* define --------------------------------------
.sp;.cp 3
Use     :
 
        FROM
              RTE-Extension-10 : VSP10;
 
        PROCEDURE
              s10mv (size1 : tsp_int4; size2 : tsp_int4;
                    VAR val1 : tsp_page; p1 : tsp_int4;
                    VAR val2 : tsp_page; p2 : tsp_int4;
                    cnt : tsp_int4);
 
.CM *-END-* use -----------------------------------------
.sp;.cp 3
Synonym :
 
        PROCEDURE
              s10mv;
 
              tsp_moveobj tsp_page
 
.CM *-END-* synonym -------------------------------------
.sp;.cp 3
Author  : 
.sp
.cp 3
Created : 1979-06-07
.sp
.cp 3
Version : 1996-10-22
.sp
.cp 3
Release :  6.2 	 Date : 1996-10-22
.sp
***********************************************************
.sp
.cp 10
.fo
.oc _/1
Specification:
 
PROCEDURE  S11MVB :
.sp
Moved die Strings von rechts nach links, und checked
die Sizebereiche.
.sp
.nf
   size1  : gibt die maximale L?ange des Sourceobject an
   size2  : gibt die maximale L?ange des Destinationobjects an.
   val1   : Sourceobject
   val2   : Destinationobject
   p1     : erste Position im val1, ab der verschoben werden soll
   p2     : erste Position in val2, wohin geschoben werden soll
   cnt    : Anzahl der Bytes um die geschoben werdeb soll
.sp
Es wird gepr?uft, ob die Positionen und Movegrenzen f?ur
val1 und val2 nicht ?uberschritten werden und,
ob die Anzahl der zuverschiebenden Bytes > 0 ist.
.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
      s11mvb (size1 : tsp_int4; size2 : tsp_int4;
            VAR val1 : tsp_page; p1 : tsp_int4;
            VAR val2 : tsp_page; p2 : tsp_int4;
            cnt : tsp_int4);
 
VAR
      b : tsp_page;
 
BEGIN
s10mv (size1, sizeof (b), val1, p1, b, 1, cnt);
s10mv (sizeof (b), size2, b, 1, val2, p2, cnt)
END;
 
.CM *-END-* code ----------------------------------------
.SP 2 
***********************************************************
*-PRETTY-*  statements    :          2
*-PRETTY-*  lines of code :         15        PRETTY  3.09 
*-PRETTY-*  lines in file :        140         1992-11-23 
.PA 
