*COMDECK  MATCHENT
00001                                                                    MATCHEN
00002 *****    MATCH ENTRIES-   MATCHENT    *******                     MATCHENT
00003 *                                                                    LV002
00004 *    MATCH FILE TO SELECTED ENTRY TYPE (S) SUBROUTINE                CL**2
00005 *                                                                    CL**2
00006 *******************************************************              CL**2
00007  MATCH-ENTRY-TYPE.                                                MATCHENT
00008      MOVE "N" TO ENTRY-TYPE-MATCH.                                MATCHENT
00009      IF ENTRY-TYPE-1 EQUAL TO "99"          OR                    MATCHENT
00010          ENTRY-TYPE-2 EQUAL TO "99"                               MATCHENT
00011          MOVE "Y" TO ENTRY-TYPE-MATCH                             MATCHENT
00012          GO TO MATCH-ENTRY-TYPE-XIT.                              MATCHENT
00013      IF ENTRY-TYPE-1 GREATER THAN "65"  GO TO E-1.                MATCHENT
00014      IF ENTRY-TYPE-2 GREATER THAN "65"  GO TO E-2.                MATCHENT
00015      GO TO CHECK-ENTRY-MATCH.                                     MATCHENT
00016  E-1.                                                             MATCHENT
00017      IF ENTRY-TYPE-2 GREATER THAN "65"                            MATCHENT
00018          GO TO CHECK-ENTRY-MATCH.                                 MATCHENT
00019      IF ENTRY-TYPE-2 LESS THAN "35"                                  CL**2
00020          MOVE "97" TO ENTRY-TYPE-2                                MATCHENT
00021          GO TO CHECK-ENTRY-MATCH.                                 MATCHENT
00022      IF ENTRY-TYPE-2 EQUAL TO "65"                                MATCHENT
00023          GO TO MATCH-ENTRY-TYPE-XIT.                              MATCHENT
00024      MOVE "98" TO ENTRY-TYPE-2.                                   MATCHENT
00025      GO TO CHECK-ENTRY-MATCH.                                     MATCHENT
00026  E-2.                                                             MATCHENT
00027      IF ENTRY-TYPE-1 LESS THAN "35"                                  CL**2
00028          MOVE "97" TO ENTRY-TYPE-1                                MATCHENT
00029          GO TO CHECK-ENTRY-MATCH.                                 MATCHENT
00030      IF ENTRY-TYPE-1 EQUAL TO "65"                                MATCHENT
00031          GO TO MATCH-ENTRY-TYPE-XIT.                              MATCHENT
00032      MOVE "98" TO ENTRY-TYPE-1.                                   MATCHENT
00033  CHECK-ENTRY-MATCH.                                               MATCHENT
00034      IF ENTRY-TYPE-1 EQUAL TO ENTRY-TYPE-2                        MATCHENT
00035          MOVE "Y" TO ENTRY-TYPE-MATCH.                            MATCHENT
00036  MATCH-ENTRY-TYPE-XIT.                                            MATCHENT
00037      EXIT.                                                        MATCHENT
