Mogę się mylić, bo bazuję na HH (S używałem ostatnio z 15 lat temu), ale... jeśli istnieje możliwość sparametryzowania etykiety, to można by coś w tym stylu zrobić:
RS1="LABEL1" (w HH parametry to Q, QS -jest parametrem przechowującym ciąg znaków -string... nie wiem/nie pamiętam, jak takie zmienne definiowało się w S)
GOTO twój podprogram
LABEL1
.
.
.
RS1="LABEL2"
GOTO twój podprogram
LABEL2
.
.
.
RS1="LABEL3"
GOTO twój podprogram
LABEL3
.
.
.
M30
Twój podprogram
.
.
.
GOTO RS1