× The internal search function is temporarily non-functional. The current search engine is no longer viable and we are researching alternatives.
As a stop gap measure, we are using Google's custom search engine service.
If you know of an easy to use, open source, search engine ... please contact support@midrange.com.



If the problem file is the same as the RCVF file, you will need to RCLRSC LVL(*CALLER). No, I am not shouting.
++
Dennis
++
"Most people have some sort of religion, at least they know which church they're staying away from."
-- John Erskine




Sent from my Galaxy tablet phone. Please excuse my brevity.
For any grammatic/spelling errors, there is no excuse.
++


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?

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.


As an Amazon Associate we earn from qualifying purchases.

This thread ...

Follow-Ups:
Replies:

Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2024 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].

Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.