Re: Re: ITERATE through FRL

November 25, 2005 at 1:45 am #57887

Participant

Just in case someone has hit the same type of problem, hope this is helpful.

This will loop through the subfields of Field_0 and create a NTE segment for each field.

FRL Definition:

Field_0

ch 13 bytes

{ { OP ITERATE }

{ BASIS {0 1 2 3 4 5} }

{ VAR %l3 }

{ TYPE list }

{ BODY {

{ { OP COPY }

{ ERR 0 }

{ IN {{Field_0.[%l3]}} }

{ OUT 0(0).NTE(%l3).00098(0) }

}

}}

}

Same type of loop but different FRL definition. Loop through the field names.

Field_0

ch 13 bytes

Field_1

ch 13 bytes

Field_2

ch 13 bytes

{ { OP ITERATE }

{ BASIS {0 1 2 3 4 5} }

{ VAR %l3 }

{ TYPE list }

{ BODY {

{ { OP COPY }

{ ERR 0 }

{ IN {{Field_%l3.[0]}} }

{ OUT 0(0).NTE(%l3).00097 }

}

{ { OP COPY }

{ ERR 0 }

{ IN {{Field_%l3.[1]}} }

{ OUT 0(0).NTE(%l3).00098(0) }

}

}}

}