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)

