PERFORM and capture "MESSAGE"

Hi there,

Is there a way to capture an error message or at least make it not break the program flow ?

BDC solution is not an option.

Scenario:

REPORT ZPROG_1.
FORM test.
  message e001(00).
ENDFORM.

REPORT ZPROG_2.
  PERFORM test(ZPROG_1).
  WRITE: / 'I would like to continue here'.

Cheers,

Bart