{ { OP DATECOPYOPT }
{ ADDPREC 0 }
{ FABRICATE 1 }
{ USECURTM 1 }
{ RANGE {49 20 19} }
{ TMDEFS {01 01 00 00 00 0000 +0000} }
{ DELIMIT {/ :} }
}
{ { OP BULKCOPY }
{ ERR 0 }
}
{ { OP ITERATE }
{ BASIS 2(0).2(0).RXC }
{ VAR %s1 }
{ TYPE segment }
{ BODY {
{ { OP COMMENT }
{ COMMENT {TODO: Insert new actions here} }
}
{ { OP IF }
{ ERR 0 }
{ COND { 2(0).2(0).RXC(%s1).#1(0) eq =A} }
{ THENBODY {
{ { OP COMMENT }
{ COMMENT {TODO: Insert new actions here} }
}
{ { OP COPY }
{ ERR 0 }
{ IN =O }
{ OUT 2(0).2(0).ZRX(0).#5(0) }
}
}}
{ ELSEBODY {
}}
}
}}
}