Intermittent allocation issue

I am having a problem with a file allocation but it is very intermittent.
I allocate a file, copy records from the file, clear the file and then copy
back.  Some times the clear operation fails with a cannot allocate error.
Here is a copy of the code and the error message.

0016.00
0017.00              ALCOBJ     OBJ((GPPTRPM *FILE *EXCL)) WAIT(600)
0018.00              MONMSG     MSGID(CPF1002) EXEC(DO)
0019.00              SNDPGMMSG  MSG('Can not Allocate object GPPTRPM File.')
0020.00              GOTO END
0021.00              ENDDO
0022.00
0023.00              DLTF       FILE(QTEMP/GPPTRPMBK)
0024.00              MONMSG     MSGID(CPF0000)
0025.00
0026.00              CPYF       FROMFILE(GPPTRPM) TOFILE(QTEMP/GPPTRPMBK) +
0027.00                           MBROPT(*REPLACE) CRTFILE(*YES) +
0028.00                           INCREL((*IF PMSTAT *EQ 'A'))
0029.00
0030.00              CLRPFM     FILE(GPPTRPM)
0031.00
0031.00
0032.00              CPYF       FROMFILE(QTEMP/GPPTRPMBK) TOFILE(GPPTRPM) +
0033.00                           MBROPT(*ADD)
0034.00
0035.00              DLCOBJ     OBJ((GPPTRPM *FILE *EXCL))
0036.00 END:
0037.00              ENDPGM


Message . . . . :   CPF3130 received by GP5903CP at 3000. (C D I R)
 Cause . . . . . :   Control language (CL) program GP5903CP in library
GP#LIBR
   detected an error at statement number 3000. Message text for CPF3130 is:
   Member GPPTRPM already in use.