Code: Select all
Structure Test
A.s
EndStructure
Procedure.s Test()
Protected Test.Test
Test\A = "Alpha"
ProcedureReturn Test\A
EndProcedure
Define Result.s = Test()
Debug Result
A
Code: Select all
Structure Test
A.s
EndStructure
Procedure.s Test()
Protected Test.Test
Test\A = "Alpha"
ProcedureReturn Test\A
EndProcedure
Define Result.s = Test()
Debug Result
A