*COMDECK CHKMAT 
#----------------------------------------------------------------------#
#                                                                      #
#     C H K M A T                                                      #
#                                                                      #
# THIS PROC IS CALLED FOR INITIATING DBP -MATCH- PROCESSING.           #
#----------------------------------------------------------------------#
      PROC CHKMAT(REJECTED);
      BEGIN 
      ITEM RC I;                   # RETURN CODE                       #
      ITEM REJECTED B;             # TRUE IF -MATCH- DBP SAID -REJECT- #
  
      REJECTED = FALSE;            # ASSUME RECORD SHOULD BE ACCEPTED  #
      RELCALLOWN (ON"MATCH", RC);  # CALL THE *MATCH* DBP FOR SINGLE   #
                                   # OR MULTIPLE FILE QUERY            #
      IF RC EQ 1 THEN              # IF SHOULD NOT ACCEPT THE RECORD   #
        BEGIN 
        OWNREJ = OWNREJ + 1;       # ONE MORE RECORD THAT ALMOST MADEIT#
        REJECTED = TRUE;           # THE RECORD WAS REJECTED           #
        END 
      RETURN; 
      END 
