10 DIMX $ZIPC3,ORDMAP(VARSTR;VARSTR)
20 MAP1 S,S,0
30
40 foreach $$i in $ZIPC3("")
50 WRITECD #337 "0",.key($$i),$$i
60 GOSUB CHEK'IT
70 S = .key($$i)
80 next $$i
90
100 END
110 CHEK'IT:
120 S = .key($$i)
130 RETURN

when compiled the system complains on unmapped variable if the iterator is used outside the foreach ?
.COMPIL ITER/A/V:1/X:2/wait/P/F1
Phase 1 - Parse source and generate object code
?Unmapped variable: (12) - 120 S = .key($$i) << $$i >>
Phase 2 - Adjust object file and process errors
Memory usage:
Total work space - 144840 bytes
Label symbol tree - 1008 bytes
Variable symbol tree - 2040 bytes
Definition symbol tree - 656 bytes
Declaration tree - 20 bytes, 0 nodes
Structure symbol tree - 16 bytes
Data statement pool - 0 bytes
Variable indexing area - 54 bytes
Compiler work stack - 64 bytes
Functions & Procedures - 0 total
Excess available memory - 25417524 bytes
End of compilation [Errors exist!]

Thanks

For better or worse, that's the specification, i.e. the scope of the iterator is limited to the loop. You'll have to copy it to another variable to reference it outside the loop. Or if you want to call a routine from within the loop, you'll can pass the iterator or .key($$i) as a parameter, e.g.

thanks, guess the unmapped variable message had me confused. Lot of things do that now a days