😀 Happy to report with the help of Jim I have come to a solution that meets my needs! Here are results:
Here are the results for RGS iterate:
Set temp counter : copy =0 -> $%g99
Set iterate: segment PRE_PROCEDURE %s1
Copy action under iterate: use basis on all inbound, in this case I am usinga VRL segments
i.e. PROCEDURE(%s1).SEQUENCE_NO
Now the trick figure out where the basis group should go for temp counter. Since this is a group iterate it needs to go in the very first counter:
2(%g99).0(0).RGS(0) ,#1
So copy action goes -> (%s1) to repeat group -> (%g99)
Close iterate with the following:
Math Add 1
=1 -> $%g99
This will set the next group to repeat.
Results below:
2(0).0(0).RGS(0) : >|1|1<
2(0).1(0).0(0).AIS(0) : >|1|1|
2(0).2(0).0(0).AIG(0) : >|1|1|
2(0).3(0).0(0).AIL(0) : >|1|1|
2(0).4(0).0(0).AIP(0) : >|1|1|
2(1).0(0).RGS(0) : >|2|2<
2(1).1(0).0(0).AIS(0) : >|2|2|
2(1).2(0).0(0).AIG(0) : >|2|2|
2(1).3(0).0(0).AIL(0) : >|2|2|
2(1).4(0).0(0).AIP(0) : >|2|2
2(2).0(0).RGS(0) : >|3|3<
2(2).1(0).0(0).AIS(0) : >|3|3|
2(2).2(0).0(0).AIG(0) : >|3|3|
2(2).3(0).0(0).AIL(0) : >|3|3|
2(2).4(0).0(0).AIP(0) : >|3|3|
Again many thanks to Jim Kosloskey on this one!
Mike