this is what I have
{ { OP ITERATE }
{ BASIS 0(0).ROL }
{ VAR %s1 }
{ TYPE segment }
{ BODY {
{ { OP IF }
{ ERR 0 }
{ COND { 0(0).ROL(%s1).#3 eq =PP} }
{ THENBODY {
{ { OP ITERATE }
{ BASIS 0(0).ROL(%s1).#4 }
{ VAR %f5 }
{ TYPE field }
{ BODY {
{ { OP IF }
{ ERR 0 }
{ COND { 0(0).ROL(%s1).#4(%f5).[8] eq =89} }
{ THENBODY {
{ { OP COPY }
{ ERR 0 }
{ IN {{0(0).ROL(%s1).#4(%f5).[0]}} }
{ OUT {{0(0).PD1.#4(0).[0]}} }
}