.CM  SCRIPT , Version - 1.1 , last edited by D.Dittmar
.pa
.ad 8
.bm 8
.fm 4
.bt $Copyright by   SAP AG, 1996-2002$$Page %$
.tm 12
.hm 6
.hs 3
.TT 1 $SQL$Project Distributed Database System$VIN01$
.tt 2 $$$
.TT 3 $$global variable$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  : global_variable
=========
.sp
Purpose:  Definition of the global variable i01g
.CM *-END-* purpose -------------------------------------
.sp
.cp 3
Define  :

        VAR
              aacommon : tsp_int4;
              i01g   : tin_global_in_vars;

        PROCEDURE
              i01dummy;

        FUNCTION
              in0130 : tsp_int4;

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

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

.CM *-END-* synonym -------------------------------------
.sp;.cp 3
Author  :
.sp
.cp 3
Created : 1984-11-19
.sp
.cp 3
Version : 1996-12-04
.sp
.cp 3
Release :  6.1.2     Date : 1995-11-01
.sp
***********************************************************
.sp
.cp 20
.fo
.oc _/1
Specification:

        VAR
              i01g   : ti_global_in_vars;
.sp;.fo
Zusammenfassung von Variablen, deren Lebensdauer sich auf eine ganze
Dialog-Komponenten-Sitzung erstreckt:
.sp;.hi +3
* Vor der Anmeldung des Benutzers wird die Variable I01_G  mit I06_INIT
initialisiert.
.sp;.cp 4;
* Den Bildschirm-Puffer f?ur die Ein/Ausgabe ?uber das
virtuelle Terminal. Er wird mit I12_INIT_IO initialisiert
und bereits f?ur die Anmeldung verwendet.
.sp;.cp 4
* Die aktuell g?ultigen SET-Parameter, die von
Komponenten-?ubergreifender Bedeutung sind.
Sie werden mit I03_SETPARMS bereitgestellt und
k?onnen von den einzelen Komponenten mit den Routinen aus
VIN03  dynamisch aktualisiert und abgespeichert werden.
.sp;.cp 4
* Eine PASCAL-Tabelle f?ur die Aufnahme der Komponenten-
spezifischen System-Meldungen. Sie wird von I01_MSG
verwaltet.
.sp;.cp 4
* In CODE_TAB stehen die auf dem Bildschirm darstellbaren
Zeichen f?ur den jeweiligen Zeichensatz (ASCII, EBCDIC).
CODE_TAB wird mit I30_CINIT initialisiert und mit
S30MAP bearbeitet.
.hi 0
.sp 3;.cp 6;.nf
.CM *-END-* specification -------------------------------
.sp 2.fo
***********************************************************
.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    :


(*------------------------------*)

FUNCTION
      in0130 : tsp_int4;

BEGIN
(* linkcheck function *)
in0130 := 219020120;
END;

(*------------------------------*)

PROCEDURE
      i01dummy;

VAR
      i : integer;

BEGIN
aacommon := 0;
WITH i01g^ DO
    BEGIN
    FOR i := 1 TO mxin_dbs DO
        session [i].connect_status := rc_ok;
    (*ENDFOR*)
    END;
(*ENDWITH*)
END; (* i01dummy *)

.CM *-END-* code ----------------------------------------
.SP 2
***********************************************************
*-PRETTY-*  statements    :          5
*-PRETTY-*  lines of code :         28        PRETTY  3.09
*-PRETTY-*  lines in file :        156         1992-11-23
.PA
