Return to Statement

Upgrade Components Example

   ENTITY/ENTT(300)
   STRING/ENAM(132)
   NUMBER/CNT,CCNT
   CCNT=0
   INEXTE
   MASK/63
   L010:
   CCNT=CCNT+1
   ENTT(CCNT)=NEXTE/IFEND,DOIT:
   IF/CCNT > 299, JUMP/ENDD:
   JUMP/L010:
   DOIT:
   DO/L020:,CNT,1,CCNT
   UPGRAD/COMP,ENTT(CCNT),RECURS,STATUS,ST,IFERR,ERR1:
   PRINT/ 'STATUS='+ISTR(ST)
   L020:
   ENDD:
   HALT
   ERR1:
   ENAM=&NAME(ENTT(CCNT))
   MESSG/'ERROR UPGRADING'+ENAM
   HALT