... du musst das SRVPGM mit COMMIT(*CHG) wandeln, ansonsten ist alles richtig.

D*B

PS: statt Variable errorcode, wäre das senden einer Escape Message und eine monitor group im Aufrufer eleganter.