*COMDECK CHKRET 
#----------------------------------------------------------------------#
#  START OF COMMON DECK CHKRET                                         #
#                                                                      #
#----------------------------------------------------------------------#
#                                                                      #
#     C H K R E T                                                      #
#                                                                      #
#     THIS PROC IS CALLED TO INITIATE DBP *RETRIEVAL* PROCESSING. IT   #
#----------------------------------------------------------------------#
      PROC CHKRET(REJECTED);
      BEGIN 
      ITEM RC I;                   # RETURN CODE FOR CALL OF DBP       #
      ITEM REJECTED B;             # TRUE IF *RETRIEVAL* DBP SAID TO   #
                                   # REJECT THE RECORD.                #
  
      REJECTED = FALSE;            # ASSUME RECORD SHOULD BE ACCEPTED  #
      CALLOWN(ON"RETRIEVAL", RC);  # CALL THE *RETRIEVAL* DBP          #
      IF RC EQ 1                   # IF SHOULD REJECT THE RECORD       #
      THEN
        BEGIN 
        OWNREJ = OWNREJ + 1;       # ONE MORE RECORD THAT ALMOST MADEIT#
        REJECTED = TRUE;           # THE RECORD WAS REJECTED           #
        END 
  
      RETURN; 
      END 
#                                                                      #
#  END OF COMMON DECK CHKRET                                           #
#----------------------------------------------------------------------#
