I created this pgm to check if a file is being locked. I would like to trap if there is a hold lock. If I can I would like to loop back if there is a hold until the hold is released. WRKOBJLCK OBJ(MCPARMS) OBJTYPE(*FILE) MONMSG MSGID(CPF9898) EXEC(PARMLCK: SNDUSRMSG + MSG('File MCPARMS in Library...