I need a simple ABAP code to remove numbers after signals

Hello Experts,

I need a simple ABAP code to remove numbers after a signal.

For example, my field REFERENCE receive the value 0001234-99.

I need to remove the zeros, so I use the following ABAP code:

SHIFT REFERENCE LEFT DELETING LEADING '0'.

As result I've 1234-99.

Now I need to have only as result 1234. What ABAP code I should use to remove '-99'?

Could you please help me?