Ich würde im SRVPGM noch eine weitere (Wrapper-)Prozedur machen, wo der Rückgabeparameter varucs2(10000) ist.
Diese Wrapper-Prozedur ruft dann deine Original-Prozedur auf und schneidet die Werte ab, wenn das für den Aufrufer wirklich ok ist.
Oder du wandelst in der Wrapper-Prozedur den Wert in einen anderen Datentyp um.