Re: CLP Question

[Brian Johnson <brian.johnson.mn@xxxxxxxxx>]

CL opens the DCLF file on first use and keeps it open until ENDPGM.  Create
a new program to contains your processing and call that new program in its
place.

On Thu, Oct 27, 2011 at 1:55 PM, <fbocch2595@xxxxxxx> wrote:

> Hi Folks, when I run this code;
>
> DLY: +
>     DLTF FILE(QTEMP/T2853PF)
>     MONMSG MSGID(CPF0000)
>     CRTPF FILE(QTEMP/T2853PF) RCDLEN(132)
>     MONMSG MSGID(CPF0000)
>     DSPMSG MSGQ(QSYSOPR) OUTPUT(*PRINT)
>     CPYSPLF FILE(QPDSPMSG) TOFILE(QTEMP/T2853PF) SPLNBR(*LAST)
>     DLTSPLF FILE(QPDSPMSG) SPLNBR(*LAST)
>     CPYF FROMFILE(QTEMP/T2853PF) TOFILE(QPRINT)
> READ: +
>     RCVF
>     MONMSG MSGID(CPF0864) EXEC(GOTO CMDLBL(END))
>     CHGVAR VAR(&MSGID) VALUE(%SST(&T2853PF 1 7))
>     IF COND(&MSGID *EQ 'ATC1425') THEN(DO)
>     CALL PGM(T2853C1)
>     ENDDO
>     GOTO CMDLBL(DLY)
>
> I'm getting this after the code goes to DLY again;
>
>       3200 - DLTSPLF FILE(QPDSPMSG) SPLNBR(*LAST)
>       3400 - RCVF DEV(*FILE) RCDFMT(*FILE) WAIT(*YES) OPNID(*NONE)
>       File name is T2853PF. */
>       2400 - DLTF FILE(QTEMP/T2853PF)
>     Cannot do operation on file T2853PF in QTEMP.
>
> What do I have to do to be able to DLTF the file?