       IDENTIFICATION DIVISION.
       PROGRAM-ID. test1.
       ENVIRONMENT DIVISION.
       DATA DIVISION.
       WORKING-STORAGE SECTION.
       01 A PICTURE 999.
       01 B PICTURE 999.
       01 X PICTURE 999.
       PROCEDURE DIVISION.
       MAIN.
      	ACCEPT A.
      	ACCEPT B.
 		ACCEPT X.
      	IF X >= A AND X<=A+B THEN
      		DISPLAY "YES"
      	ELSE
      		DISPLAY "NO"
      	END-IF.
      	STOP RUN.