Remove dashes from phone number in RPGIII

Hello all,

Quick and probably easy question for the group.....what's the easiest way
to remove dashes from a phone number in RPGIII? Using the XLATE op code
doesn't allow a use like this:

'-':'' XLATE NUM1 NUM2

In other words, translating a dash to nothing. I know there's a bunch of
ways to do this in RPGIV and later but alas, it's an RPGIII program I'm
messing with. Any help is as always appreciated. Thanks!

Bill