SEARCH TI-PROD

AT END

CONTINUE

WHEN TI-C-PROD(WS-INDEX-AUX) =

WS-C-PROD-AUX

AND TI-C-OBRG-PROD(WS-INDEX-AUX) =

WS-C-OBRG-PROD-AUX

PERFORM XXX-INSERT

THRU XXX-INSERT-EXIT

END-SEARCH

AT END

CONTINUE

WHEN TI-C-PROD(WS-INDEX-AUX) =

WS-C-PROD-AUX

AND TI-C-OBRG-PROD(WS-INDEX-AUX) =

WS-C-OBRG-PROD-AUX

PERFORM XXX-INSERT

THRU XXX-INSERT-EXIT

END-SEARCH

Even when the WHEN conditions are true, I can never get it to enter the When clause instructions, and I can't understand why ?

Can anyone help please ? Thanks !