Re: CLP Question

[Booth Martin <booth@xxxxxxxxxxxx>]

What about something like this:

DLY:        CLRPFM     FILE(QTEMP/T2853PF)
            MONMSG MSGID(CPF3142)  EXEC(GOTO OK)
               CRTPF      FILE(QTEMP/T2853PF) RCDLEN(132)
OK:
    .....
            GOTO       CMDLBL(DLY)

(The CPF0000 catch can give you successes that you do not want!  ;)  It 
seems best to still let a maverick error bring an unexpected end to the 
program.)



> 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?