Globaler Zugriff auf eine deklarierte Variable, wie?

[stab]

Hallo, kurze Frage:

Code: Alles auswählen

Structure MeineStruktur
  vname.s
  nname.s
EndStructure

Define.MeineStruktur Privat
Define.MeineStruktur Dienst

Privat\vname = "Jupp"
Privat\nname = "Schäfer"

Dienst\vname = "Bill"
Dienst\nname = "Gates"

Debug Privat\vname + " " + Privat\nname

Procedure Dienst()
  Shared Dienst.MeineStruktur
  Debug Dienst\vname + " " + Dienst\nname
EndProcedure

Dienst()

Wie erhalte ich globalen Zugriff auf obige Variablen?
Bisher muss ich den Zugriff innerhalb einer Prozedur durch Shared erlauben.

Vereinfacht in diesem Code:

Code: Alles auswählen

Define vname$
vname$ = "Jupp"

Debug vname$

Procedure vn()
  ;Shared vname$
  Debug vname$
EndProcedure

vn()

Danke!

[Nino]

Statt „Define“ muss du dazu „Global“ benutzen.
Ist aber nur in Ausnahmefällen empfehlenswert, weil dadurch der Aufwand für die Pflege des Programms steigt.

[stab]

Stimmt, so gehts. Danke
Ich dachte, die Strukturen müssten mit Define deklariert werden.

Code: Alles auswählen

Structure MeineStruktur
  vname.s
  nname.s
EndStructure

Global.MeineStruktur Privat
Global.MeineStruktur Dienst

Privat\vname = "Jupp"
Privat\nname = "Schäfer"

Dienst\vname = "Bill"
Dienst\nname = "Gates"

Debug Privat\vname + " " + Privat\nname

Procedure Dienst()
  ;Shared Dienst.MeineStruktur
  Debug Dienst\vname + " " + Dienst\nname
EndProcedure

Dienst()