.CM  SCRIPT , Version - 1.1 , last edited by D.Dittmar
.pa
.ad 8
.bm 8
.fm 4
.bt $Copyright (c) 1996-2004 SAP AG-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

.nf


    ========== licence begin  GPL
    Copyright (c) 1996-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  : global_variable
=========
.sp
Purpose:  Definition of the global variable i01g
.CM *-END-* purpose -------------------------------------
.sp
.cp 3
Define  :

        VAR
              aacommon : tsp00_Int4;
              i01g   : tin_global_in_vars;

        PROCEDURE
              i01dummy;

        FUNCTION
              in0130 : tsp00_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 : tsp00_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
