Jim, thanks again for the offline help. As you suggested, the solution is also posted here:
The first task is to identify the instances where there are multiple ORC/OBR/OBX groups. This is done by using an IF/ELSE action to interrogate the group iterate: IF $%g1 eq =0
The ELSE action repeats translation actions for the subsequent iterates.
The next point involved using the % functionality outside of the ITERATE action. It is first initialized in a COPY action: =0 COPY $%g99
This variable is used in the Destination side of the Pathcopy and Copy actions:
1(0).1(%g1).3(0).0(%g2).OBX(0) COPY 1(0).1(0).3(0).0(%g99).OBX(0)
The part that I was previously not understanding involved changing the OBR to an OBX. This is simply done per the following:
1(0).1(%g1).0(0).OBR(0).#26(0) COPY 1(0).1(0).3(0).0(%g99).OBX(0).#5(0)
for each field that is needed form the OBR segment.
Again, Thank you…