Die Funktion steckt in einem Service-Programm, also musst du die Funktion als externe Funktion und nicht als Programm deklarieren und anschließend mit dem Serviceprogramm binden.

1. CRTRPGMOD
2. CRTPGM ... BNDSRVPGM(...)