DCLF       FILE(QTEMP/DSPOBJD)                                     
READ:                                                                           
             RCVF       RCDFMT(QLIDOBJD)                                        
             MONMSG     MSGID(CPF0864) EXEC(GOTO CMDLBL(REDEND))                
REDEND: