Re: CLP Question

[Dennis <iseries@xxxxxxxxxxxx>]

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.