A status code = 17 indicates NO ENTRY.

Before you can do DBUPDATE on a detail set you must first do:

CALL "DBFIND" USING BASE-NAME,
                    SET-NAME,
                    MODE-1,
                    STATUS,
                    ITEM,
                    KEY-VALUE.
PERFORM UNTIL LOOP-COMPLETED
   CALL "DBGET" USING BASE-NAME,
                      SET-NAME,
                      MODE-5,
                      STATUS,
                      LIST,
                      BUFFER,
                      ARG
    IF COND-CODE = 0
       CALL "DBUPDATE" USING BASE-NAME,
                             SET-NAME,
                             MODE-1
                             STATUS,
                             LIST,
                             BUFFER
     ELSE
         IF COND-CODE = 15 THEN
            SET LOOP-COMPLETED TO TRUE
         ELSE
             DISPLAY 'IMAGE ERROR HERE'
         END-IF
     END-IF
END-PERFORM.

This is what your program should be doing basically (hopefully you
put in a lot more error checking after each Image call...

P.S -- make sure the value going into set-name on each Image call is the
same.

HTH,
Brian Donaldson.

* To join/leave the list, search archives, change list settings, *
* etc., please visit http://raven.utc.edu/archives/hp3000-l.html *