Code: Select all
Procedure fish( List test()=NewList )
EndProcedure
fish(#Null)Code: Select all
Procedure fish( List test()=NewList )
EndProcedure
fish(#Null)Code: Select all
Procedure fish( List test() )
ClearList(test())
EndProcedure
Procedure fish()
Protected NewList test()
EndProcedureCode: Select all
Structure MyList
List Test.i()
EndStructure
Procedure fish( *MyList.MyList = #Null )
If *MyList
ProcedureReturn ListSize(*MyList\Test())
Else
ProcedureReturn 0
EndIf
EndProcedure
Define MyList.MyList
AddElement(MyList\Test())
Debug fish(MyList)
Debug fish(#Null)
that's how I currently do it; but it's, er, inelegant.