OCL36 für AS400: // IFF ?DEV'?R?'?=' '
+ evtl. 1.Stelle = "P" prüfen.
CL/400: CHKOBJ OBJTYPE(*DEVD) + MONMSG

... wäre mein Vorschlag.