Hier das API für die Lock's.
http://www-01.ibm.com/support/knowle...s/qdbrrcdl.htm
Allerdings musst du schon mal einen CHAIN(N) machen und über die INFDS die Satz-Nr. ermitteln, die durch einen anderen Job (siehe API) gesperrt sein könnte.