Laut altem RPGII-Handbuch gibt's da nur U1-U8, UC wird noch nicht unterstützt.

Du musst da halt das Programm so modifizieren, dass je Aufruf das jeweilige Protokoll gedruckt wird.
Also zusätzlichen Entry-Parameter und dann per Verteiler

P2 IF 1
EXSR PROT1
ENDIF
P2 IF 2
EXSR PROT1
ENDIF

Geht's nicht per EXSR, dann durch GOTO's ersetzen und am Ende jedes Protokolls dann einen GOTO ENDE.