DCL &KEY *CHAR 4

RCVMSG MSGTYPE(*LAST) RMV(*NO) KEYVAR(&KEY)

RCVMSG MSGTYPE(*PRV) RMV(*NO) MSGKEY(&KEY) KEYVAR(&KEY)

So kannst du dich rückwärts durch die Nachrichten hangeln. Wichtig ist dabei, dass RMV(*NO) verwendet wird, da ja sonst die Nachricht gelöscht und somit der Schlüssel nicht mehr verfügbar wäre.