.ad 8
.bm 8
.fm 4
.bt $Copyright by   SAP AG, 1995-2002$$Page %$
.tm 12
.hm 6
.hs 3
.TT 1 $SQL$Project Distributed Database System$VMT00$
.tt 2 $$$
.TT 3 $$TEST_const_u_type$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_const_u_type
=========
.sp
Purpose : Festlegung der Konstanten und Typen fuer TEST
.CM *-END-* purpose -------------------------------------
.sp
.cp 3
Define  :

.CM *-END-* define --------------------------------------
.sp;.cp 3
Use     :

.CM *-END-* use -----------------------------------------
.sp;.cp 3
Synonym :

.CM *-END-* synonym -------------------------------------
.sp;.cp 3
Author  : BarbaraJ
.sp
.cp 3
Created : 1985-03-29
.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:


.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    :


(* ================================================================= *)
(* Diese Deklarationen gelten fuer die Testprozeduren der MT-Schicht.*)
(* Wenn ein Modul langsam uebersetzt wird, so wird neben VIN00       *)
(* auch VMT00 included. Dessen sollte man sich bei Neudeklarationen  *)
(* bewusst sein.                                                     *)
(* ================================================================= *)
CONST
      (*------------------------------------------*)
      (* Konstanten fuer VMT01 und VMT90          *)
      (*------------------------------------------*)
      vdn_restart_error = -330;
      id_test           = 'TEST  3.1.2 ';
      protsize          = 1925;
      screen_chars      = 1920;

TYPE
      (*------------------------------------------*)
      (* Typen fuer VMT01                         *)
      (*------------------------------------------*)
      prot_buffer         = PACKED ARRAY [ 1..protsize ]  OF char;

      test_input_field    = RECORD
            content        : tin_get_buffer;
            length         : tsp_int2;
            releasekey     : tin_vt_releasemode;
            cursorzeile    : tsp_int2;
            cursorspalte   : tsp_int2;
            lastfield      : boolean;
      END;


      test_output_field   = RECORD
            screen         : tsp_screenbuf;
            attributes     : tsp_screenbuf;
            cursorzeile    : tsp_int2;
            cursorspalte   : tsp_int2;
            options        : tsp_vt_options;
            screen_changed : boolean;
            keystroke      : tsp_vt_keystroke;
      END;


      local_test_vars      = RECORD
            oldprot_fno     : tsp_int4;
            newprot_fno     : tsp_int4;
            testprot_fno    : tsp_int4;
            fprot_fno       : tsp_int4;
            input_fno       : tsp_int4;
            output_fno      : tsp_int4;
            multi_fno       : tsp_int4;
            buf_pos         : tsp_int2;
            zeile_int       : 0..32767;
            prot_buf        : tsp_buf;
            buf             : tsp_buf;
            fnm             : tsp_c64;
            newscreen       : boolean;
            append_prot     : boolean;
            comp_flag       : boolean;
      END;

      (*------------------------------------------*)
      (* Typen fuer VMT90                         *)
      (*------------------------------------------*)
      c20_array         = ARRAY [ 1..20 ]         OF tsp_c20;
      screen_line       = PACKED ARRAY [ 1..80 ]  OF char;

.CM *-END-* code ----------------------------------------
.SP 2
***********************************************************
*-PRETTY-*  statements    :          0
*-PRETTY-*  lines of code :         59        PRETTY  3.09
*-PRETTY-*  lines in file :        154         1992-11-23
.PA
