RE: QADSPOBJ Processing in a DAEMON type CLP

Not sure if this would help, but try a POSDBF Filename *START before
dropping into your read loop.

Joe Giusto II
Patuxent Publishing Company
mailto:jgiusto@patuxent.com


        -----Original Message-----
        From:   Weatherly, Howard [SMTP:hweatherly@dlsc.dla.mil]
        Sent:   Thursday, August 27, 1998 1: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
+---