Formatnamen als Parameter übergeben und um die Ausgaben einen SELECT-Block bauen und den Parameter abfragen.

SELECT
PARM WHENEQ FORM1
EXFMT FORM1
PARM WHENEQ FORM2
EXFMT FORM2
.
.
.
ENDSL