Code: Select all
Structure DoSomethingParms
parm1.s
parm2.l
parm3.l
parm4.s
; etc.
EndStructure
Procedure.l DoSomething(*parms.DoSomethingParms)
Debug *parms\parm1
Debug *parms\parm2
Debug *parms\parm3
Debug *parms\parm4
EndProcedure
dsp.DoSomethingParms\parm1 = "This is the first parameter"
dsp\parm2 = 42
dsp\parm3 = 2 * 42
dsp\parm4 = "4 for illustration can use more! Maybe even arrays?"
DoSomething(dsp)