Versuch mal...
Code:
IF         COND(%SUBSTRING(*LDA 118 2) *EQ 'xx') +
             THEN(blah blah)