QADSPOBJ Processing in a DAEMON type CLP

["Weatherly, Howard" <hweatherly@xxxxxxxxxxxx>]

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