RE: QADSPOBJ Processing in a DAEMON type CLP

["Pytel, Alexei" <pytela1@xxxxxxxxxxxxxxxx>]

Try to close the file by CLOF command after you finished with iteration.


    Best regards,

          Alexei Pytel



> -----Original Message-----
> From: Weatherly, Howard [SMTP:hweatherly@dlsc.dla.mil]
> Sent: Thursday, August 27, 1998 6:40 PM
> To:   'Midrange-L'
> Subject:      QADSPOBJ Processing in a DAEMON type CLP
> 
> I am having a problem with a CL program that is designed to be a
> daemon that continuously monitors a library  for data that will be
> FTP'd to it. The process works ok on the first iteration but there
> after gives a CPF0864 on a RCVF.
> 
> Is there something that I must reset to allow recurring DSPOBJD to an
> outputfile to work? It appears that the DSPOBJD is in fact working
> each time but when I do the RCVF I get the End of File.
> 
> I have excerpted the control  structure from the CL for reference
> since I am probable not explaining the problem very well.
> 
> If anyone can help, I sure will appreciate it TIA  Howard.
> 
>              PGM
> 
>  
> 
>              DCLF       FILE(QSYS/QADSPOBJ)
> 
>              .
> 
>              .
> 
>  REDUEX:
> 
>              MONMSG     MSGID(CPF2123 CPF4102) EXEC(GOTO +
> 
>                           CMDLBL(NODATA))
> 
>              .
> 
>              .
> 
>              DSPOBJD    OBJ(CCMSDTA/PASS*) OBJTYPE(*FILE) +
> 
>                           OUTPUT(*OUTFILE) OUTFILE(CCMSDTA/QADSPOBJ)
> 
>              OVRDBF     FILE(QADSPOBJ) TOFILE(CCMSDTA/QADSPOBJ) +
> 
>                           MBR(*ALL)
> 
>              .
> 
>              .
> 
>  GETDATA:
> 
>              RCVF
> 
>  
> 
>              MONMSG     MSGID(CPF0864) EXEC(DO) /* Ck EOF */
> 
>              GOTO       CMDLBL(CLOSE)        <<<<<<<This becomes true
> on successive  passes after the first!!!!!!
>              ENDDO
> <<<<<<< it is ok when it really is the end of a list but I need to
>               .
> <<<<<<<check for new data arriving in the library.       
>               .
> 
>              ALCOBJ     OBJ((&ODOBNM *FILE *EXCL))
> 
>              CHGVAR     VAR(&MEMBER) VALUE(&ODOBNM)
> 
>              .
> 
>              .
> 
>  PROCESS:
> 
>              .
> 
>              .
> 
>              GOTO       CMDLBL(GETDATA)
> 
>  
> 
>  NODATA: /* No Requests Found, Set Next Iteration              */
> 
>              GOTO       CMDLBL(CHECKEND)
> 
>  
> 
>  CLOSE:  /* Close list of Requests to Process */
> 
>              DLTF       FILE(CCMSDTA/QADSPOBJ)   <<<<<<< Theese were
> not always here, I added them to                         
>              RCLRSC
> <<<<<<< see if this would help 
>              .
> 
>  
> 
>              .                                                   
> CHECKEND:                                                        
>              IF         COND(%SWITCH(1XXXXXXX)) THEN(GOTO +      
>                           CMDLBL(ENDPROG))                       
>               .
> <<<<<<<< Here the program calls CICS sleep function
>              GOTO       CMDLBL(REDUEX)                    >>>>>>>>  GO
> SEE IF THERE ARE NEW REQUESTS       
>  
> >>>>>>>>  At this point I would suspect that if any new
>  
> >>>>>>>> files appeared the process would repeat
>  ENDPROG:                                                        
>              ENDPGM                                               
> 
> ______________________________________________________________________
> ___
> Howard Weatherly
> 
> hweatherly@dlis.dla.mil
> howard.weatherly@ctg.com
> hweath@ibm.net
> 
> X4324
> 
> +---
> | This is the Midrange System Mailing List!
> | To submit a new message, send your mail to MIDRANGE-L@midrange.com.
> | To subscribe to this list send email to MIDRANGE-L-SUB@midrange.com.
> | To unsubscribe from this list send email to
> MIDRANGE-L-UNSUB@midrange.com.
> | Questions should be directed to the list owner/operator:
> david@midrange.com
> +---
+---
| This is the Midrange System Mailing List!
| To submit a new message, send your mail to MIDRANGE-L@midrange.com.
| To subscribe to this list send email to MIDRANGE-L-SUB@midrange.com.
| To unsubscribe from this list send email to MIDRANGE-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---