Anders als per ALCOBJ läßt sich die Benutzung nicht prüfen:

PGM
ALCOBJ OBJ((MYDTAQ *DTAQ *EXCL)) WAIT(0)
MONMSG CPF0000 EXEC(GOTO GESPERRT)
DLCOBJ OBJ((MYDTAQ *DTAQ *EXCL))
:
GESPERRT:
ENDPGM

Falls die Sperre erhalten wurde, sofort entsperren.
Der QRCVDTAQ wartet nämlich bei gesperrter DTAQ auch erst mal 30 Sekunden, bevor er mit Fehler zurückkommt.