Besten Dank Ronald,

nur dieses API treibt mich zum Wahnsinn. Angelehnt an dein Beispiel hab ich das implementiert. Mein Problem nun ist, dass der Aufruf des API's mir genau eine Bibliothek zurück gibt, der Rest ist Schrott.

Nun das Kuriose:
Rufe ich den QUSCRTUS und den QZLSLSTI manuell oder im CL aus der Befehlszeile auf, erhalte ich alle meine Shares. Erfolgt jedoch der Aufruf aus dem RPG (API Direktaufruf oder via CL, egal) bekomme ich wiederum nur den einen Share. Siehe untenstehendes CL...

PGMPARM(&USRSPACE)
DCLVAR(&USRSPACE)TYPE(*CHAR)LEN(20)
/* Create User Space */
CALLPGM(QUSCRTUS)PARM('@USRSPACE QTEMP ' PF 2048 X'00'*ALL'API output space')
/* CALL QZLSLSTI API - Option ZLSL0100 */
CALLPGM(QZLSLSTI)PARM('@USRSPACE QTEMP ' ZLSL0100 *ALL X'00000000')
ENDPGM