Re: CLP Question

How about

a CLRPFM

and if that does not work .. try a SQL to delete all of the records from
that file

and if that does not work, ===> End the program and access back the
program

I hope this helps


Jorge Moreno
Military Car Sales, Inc


This email, including its attachments, may contain information that is
confidential and may be protected by federal and/or state laws and
regulations, or other confidentiality privileges. This email, including
its attachments, may contain non-public information, therefore it is
intended to be conveyed only to the designated recipient(s). If you are
not an intended recipient, please delete this email, including its
attachments, and notify the sender. The unauthorized use, dissemination,
distribution or reproduction of this email, including its attachments, is
prohibited and may be unlawful.



fbocch2595@xxxxxxx
Sent by: midrange-l-bounces@xxxxxxxxxxxx
10/27/2011 03:06 PM
Please respond to
Midrange Systems Technical Discussion <midrange-l@xxxxxxxxxxxx>


To
midrange-l@xxxxxxxxxxxx
cc

Subject
CLP Question







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?

Thanks