.ad 8
.bm 8
.fm 4
.bt $Copyright by   SAP AG, 1995$$Page %$
.tm 12
.hm 6
.hs 3
.tt 1 $SQL$Project Distributed Database System$VMT91$
.tt 2 $$$
.tt 3 $BarbaraJ$Test_Procedures$1995-11-01$
***********************************************************
.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  : Test_Procedures
=========
.sp
Purpose : Druckroutinen als Testhilfen.
.CM *-END-* purpose -------------------------------------
.sp
.cp 3
Define  :
 
        PROCEDURE
              cccoutp (n : tsp_c20;
                    ccv : tsp_ccc);
 
        PROCEDURE
              cccinit (VAR ccv : tsp_ccc);
 
.CM *-END-* define --------------------------------------
.sp;.cp 3
Use     :
 
        FROM
              Test_Procedures : VMT90;
 
        VAR
              m90blankline : tsp_dataline;
 
        PROCEDURE
              m90put4int  (VAR lineinfo : tsp_dataline;
                    integervalue : tsp_int4;
                    fieldlength : tsp_fieldrange;
                    VAR ok : boolean);
 
        PROCEDURE
              m90line (layer : tsp_layer;
                    VAR ln : tsp_line);
 
.CM *-END-* use -----------------------------------------
.sp;.cp 3
Synonym :
 
.CM *-END-* synonym -------------------------------------
.sp;.cp 3
Author  : 
.sp
.cp 3
Created : 1980-01-30
.sp
.cp 3
Version : 1995-11-01
.sp
.cp 3
Release :  6.1.2     Date : 1995-11-01
.sp
***********************************************************
.sp
.cp 10
.fo
.oc _/1
Specification:
 
.nf
.sp 2
PROCEDURE  CCCCOUNT:
.sp;.fo
Z?ahlt die Anzahl der Ausf?uhrungen einer Routine.
.sp 4
PROCEDURE  CCCINIT:
.sp;.fo
Initiatisiert die globale Variable f?ur die Zeitmessungen.
.sp 4
PROCEDURE  CCCOUTP:
.sp;.fo
Schreibt f?ur eine Routine die globale Variable der
Messergebnisse in den File 'prot'.
.CM *-END-* specification -------------------------------
.sp 4
***********************************************************
.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
      cccinit (VAR ccv : tsp_ccc);
 
BEGIN
ccv.count    := 0;
END;
 
(*------------------------------*) 
 
PROCEDURE
      cccoutp (n : tsp_c20; ccv : tsp_ccc);
 
VAR
      dl : tsp_dataline;
      ok : boolean;
      i  : integer;
      n_count : tsp_c20;
 
BEGIN
n_count:= 'count :             ';
dl := m90blankline;
WITH ccv , dl DO
    BEGIN
    FOR i := 1 TO 16 DO
        text [i]  := n [i] ;
    (*ENDFOR*) 
    length := 21;
    pos    := 20;
    FOR i := 1 TO 7 DO
        text [ pos+i ] := n_count [i] ;
    (*ENDFOR*) 
    length := length + 7;
    pos    := pos    + 7;
    m90put4int (dl, count, 11, ok);
    m90line (xx, text)
    END
(*ENDWITH*) 
END;
 
.CM *-END-* code ----------------------------------------
.SP 2 
***********************************************************
*-PRETTY-*  statements    :         14
*-PRETTY-*  lines of code :         40        PRETTY  3.09 
*-PRETTY-*  lines in file :        164         1992-11-23 
.PA 
