CRTSQLRPGI ... OBJTYPE(*SRVPGM)

Du solltest zur Sicherheit noch

H DFTACTGRP(*NONE) ACTGRP(*CALLER)

und ggf.

exec sql set option commit=*none;

angeben.