Ggf. beim RCVMSG ... MSGTYPE(*LAST) MSGID(&ID) verwenden und solange lesen bis &ID = CPF3777 ist.