       IDENTIFICATION DIVISION.
       PROGRAM-ID. ABC043-B.
       DATA DIVISION.
       FILE SECTION.
       WORKING-STORAGE SECTION.
       77 W PIC X(100).
       77 I PIC 9(3).
       77 CN PIC 9(2).
       01 WCC.
        03 CC OCCURS 26 PIC 9(3) VALUE ZERO.
       77 NFLG PIC 9(1) VALUE ZERO.

       PROCEDURE DIVISION.
       MAIN-PROCEDURE.
            ACCEPT W FROM SYSIN.
            PERFORM VARYING I FROM 1 BY 1
             UNTIL FUNCTION STORED-CHAR-LENGTH (W) < I
               COMPUTE CN = FUNCTION ORD (W(I:1))
                               - FUNCTION ORD ("`")
               ADD 1 TO CC(CN)
            END-PERFORM.
            PERFORM VARYING I FROM 1 BY 1 UNTIL 26 < I
               IF FUNCTION REM (CC(I),2) = 1 THEN
                   MOVE 1 TO NFLG
                   EXIT PERFORM
               END-IF
            END-PERFORM.
            IF NFLG = 1 THEN
               DISPLAY "No"
            ELSE
               DISPLAY "Yes"
            END-IF
            STOP RUN.
       END PROGRAM ABC043-B.
