Workobject changing

Hello,
is there any way to program workobject changing ? For example, I define four workobject and in FOR statement it will be automatically changing. Something like:

FOR i from 1 to 4

workobject**(i)**

ENDFOR

You can do something like this:


MODULE MainR1

  

  PERS wobjdata wobjA := [FALSE, TRUE, "", [[0, 0, 10],[1, 0, 0, 0]], [[0, 0, 0],[1, 0, 0, 0]]];

  PERS wobjdata wobjB := [FALSE, TRUE, "", [[0, 0, 20],[1, 0, 0, 0]], [[0, 0, 0],[1, 0, 0, 0]]];

  PERS wobjdata wobjC := [FALSE, TRUE, "", [[0, 0, 30],[1, 0, 0, 0]], [[0, 0, 0],[1, 0, 0, 0]]];

  PERS wobjdata wobjD := [FALSE, TRUE, "", [[0, 0, 40],[1, 0, 0, 0]], [[0, 0, 0],[1, 0, 0, 0]]];

  PERS wobjdata usedWobj;

  PERS wobjdata wobjs{4};

  

  PROC main()

    wobjs:=[wobjA, wobjB, wobjC, wobjD];

    

    FOR i FROM 1 TO Dim(wobjs,1) DO

      usedWobj := wobjs{i};

    ENDFOR

  ENDPROC

  

ENDMODULE

Thank you very much !