IDENTIFICATION DIVISION.
 PROGRAM-ID. TEST01.
 
 ENVIRONMENT DIVISION.

 DATA DIVISION.
 WORKING-STORAGE SECTION.
 
  01 A PIC 9(1).
  01 B PIC 9(1).
  01 C PIC 9(1).
  
  01 SW-KAWAISO PIC X(1).
 
 PROCEDURE DIVISION.

  ACCEPT A.
  ACCEPT B.
  ACCEPT C.
  
  MOVE SPACE TO SW-KAWAISO.
  
  EVALUATE TRUE
   WHEN (A = B) AND (A NOT = C)
   WHEN (A = C) AND (A NOT = B)
   WHEN (B = C) AND (B NOT = A)
    MOVE '1' TO SW-KAWAISO  
   WHEN OTHER
    CONTINUE
  END-EVALUATE.
  
  IF SW-KAWAISO = '1'
    DISPLAY 'Yes'
  ELSE
    DISPLAY 'No'
  END-IF.
    
 STOP RUN.