Return to Statement

Cycle to Next Object Example

   ENTITY/OBJ,DELOBJ(100)
   NUMBER/DCNT
   $$
   DCNT=0
   INEXTE/ALL
   LOOP:
   OBJ=NEXTE/IFEND,DONE:
   IFTHEN/DCNT==100
   DELETE/DELOBJ(1..100)
   DCNT=0
   ENDIF
   $$
   DCNT=DCNT+1
   DELOBJ(DCNT)=OBJ
   JUMP/LOOP:
   $$
   DONE: IF/DCNT>0,DELETE/DELOBJ(1..DCNT)
   HALT