Something like this, which is for "four-element" names, so note what happened to the last test data.
//STEP0100 EXEC PGM=SORT
//SYSOUT DD SYSOUT=*
//SORTOUT DD SYSOUT=*
//SYSIN DD *
OPTION COPY
INREC IFTHEN=(WHEN=INIT,
PARSE=(%00=(ENDBEFR=C'-',FIXLEN=1),
%01=(ENDBEFR=C'-',FIXLEN=1),
%02=(ENDBEFR=C'-',FIXLEN=1),
%03=(ENDBEFR=C'-',FIXLEN=1))),
IFTHEN=(WHEN=INIT,
BUILD=(%00,C'-',%01,C'-',%02,C'-',%03)),
IFTHEN=(WHEN=(1,1,CH,EQ,C' '),
OVERLAY=(2:79X)),
IFTHEN=(WHEN=(3,1,CH,EQ,C' '),
OVERLAY=(2:79X)),
IFTHEN=(WHEN=(5,1,CH,EQ,C' '),
OVERLAY=(4:77X)),
IFTHEN=(WHEN=(7,1,CH,EQ,C' '),
OVERLAY=(6:75X))
//SORTIN DD *
RATE-STRUC-ST-DT
PBE-INSTNC
BILG-ELMT-CAT-CODE
TEST
TEST-TOST-TIST
1-2-3-4-5
Gives:
R-S-S-D
P-I
B-E-C-C
T
T-T-T
1-2-3-4