Introduce one-line ObjectScript command to traverse global on a certain level

[evshvarov]

If you need to go through all the records on the level of Global array you do: set key=$Order(^Data("")) while key'="" { // do someting set key=$Order(^Data(key) }

We better have: while $Next(^Data(.key)) { // do something }

Cause you don't need to put extra line every time in this case

[rcemper]

do you look for something like this ?

define foreach(%key,%arr,%do) set %key=$o(%arr("")) for set %key="" quit:%key="" do %do

using it: a $$$foreach(key,^rcc(27),b) quit b zwrite @$zr,! quit

[rcemper]

It's done. Available in OEX & ZPM FOREACH for ObjectScript

[rcemper]

same as issue #32

[evshvarov]

Closing because it's done!