..!interpreter english translate
..      .SETZE ABBRUCH --
.set trans -
.continue DECLARE
..=============================================================================
..== Name             : DEFAULT.INI
..==
..== Funktion         : Immer wiederkehrende Variablen definieren
..==
..== Erstellungsdatum : 01.10.97
..==
..== Autor            : ABAS Projektierung Rhein-Main GmbH
..==
..== Besonderheiten   :
..==
..==
..== Žnderungshistorie:
..==
..==
..==
..=============================================================================
..
!DECLARE:=============== Variablen declarieren ================================
..
.type bool       xBdefaultini    ? _defined(xBdefaultini)
.type integer    xbaseframe      ? _defined(T|xbaseframe)
.type text       xCallerName     ? _defined(T|xCallerName)
.type bool       xyLader         ? _defined(xyLader)
.type bool       xyService       ? _defined(xyService)
.type text       xyKanal         ? _defined(xyKanal)
.type text       xTmpArb         ? _defined(xTmpArb)
.type text       xyTmpArb        ? _defined(xyTmpArb)
.type text       xySeite1        ? _defined(xySeite1)
.type text       xySeite2        ? _defined(xySeite2)
.type text       tname           ? _defined(tname)
.type text       xarb            ? _defined(xarb)
.type text       xTArb           ? _defined(xTArb)
.type bool       xyBMitEdi       ? _defined(xyBMitEdi)
.type integer    xyIAblage       ? _defined(xyIAblage)
.type integer    xyIerpHauptVers ? _defined(xyIerpHauptVers)
.type text       xyTerpHauptVers ? _defined(xyTerpHauptVers)
.type text       xyTerpVers      ? _defined(xyTerpVers)
..
!INIT:================== Variablen initialisieren =============================
..
.formula   T|xbaseframe  = 1
.. Kanalnummer
.formula   T|xyKanal     = T|KANAL
.. tmp-Verzeichnis
.formula   T|xtmparb     = "tmp/"
.formula   T|xyTmpArb    = T|xtmparb
.. Lader aktiv?
.formula   T|xyLader     = T|false
.. Service-Flag
.formula   T|xyService   = T|false
.. Ersetzungszeichen f�r Seiten xx von yy - Muá in printlpr.sh nachbearbeitet werden.
.formula   T|xySeite1    = ""
.formula   T|xySeite2    = ""
.formula   T|xyTTrennZeich = ""
.. Ist EDI eingeschaltet?
.formula   T|xyBMitEdi   = T|false
.. Ablagenpr�fung (1 = Text; 2 = Bool)     
.formula   T|xyIAblage   = 2
..
..
!MAIN:================== Begin des Programmes =================================
..
.formula   U|xyLader = G|true  ? (G|PID <> T|xyKanal)
..
..      Service nur auáerhalb des Laders
.formula   U|xyService = G|true ? (-bzeich / "*ABAS*") & _T|xyLader & _G|batchmode
..
..############################################################
..****Wordschnittstelle 
.formula T|xTxxworddat = "DATEI18"
..############################################################
..
..
..
.formula U|xyTerpVers      = G|progvers >$ " "
.formula U|xyTerpHauptVers = U|xyTerpVers << 4
.formula U|xyIerpHauptVers = U|xyTerpHauptVers
..
..
..
.. Datei- und Verzeichnisname ermitteln
.formula   T|xbaseframe  = T|baseframe ? defined(T|baseframe)
.formula   T|xCallerName = T|stackframe.xbaseframe
.. Sprachverzeichnis (bspr) ggf. abschneiden
.formula   T|xCallerName = (T|xCallerName >> "/") ? (T|xCallerName / "?\/*")
.continue VERZEICH         ? T|xCallerName / "*\/*"
..
.formula   T|tname = T|xCallerName
.formula   T|xarb  = ""
.formula   T|xTArb = T|xarb
.continue
..
!VERZEICH: =====Text liegt in einem Unterverzeichnis===========================
..
.formula   T|tname = T|xCallerName >$ "/"
.formula   T|xarb  = T|xCallerName << T|tname
.formula   T|xTArb = T|xarb
.continue