I think you are trying to read a file that does not exist. Try this.
CRTPF FILE(QTEMP/T2853PF) RCDLEN(132)
DLY: +
CLRPFM FILE(QTEMP/T2853PF)
MONMSG MSGID(CPF0000)
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)
END:
DLTF FILE(QTEMP/T2853PF)
Gary
-----Original Message-----
From: midrange-l-bounces@xxxxxxxxxxxx
[mailto:midrange-l-bounces@xxxxxxxxxxxx] On Behalf Of fbocch2595@xxxxxxx
Sent: Thursday, October 27, 2011 11:56 AM
To: midrange-l@xxxxxxxxxxxx
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
--
This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing
list To post a message email: MIDRANGE-L@xxxxxxxxxxxx To subscribe,
unsubscribe, or change list options,
visit:
http://lists.midrange.com/mailman/listinfo/midrange-l
or email: MIDRANGE-L-request@xxxxxxxxxxxx Before posting, please take a
moment to review the archives at
http://archive.midrange.com/midrange-l.
midrange.com
