IDENTIFICATION DIVISION.
PROGRAM-ID. 174A.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 X          PIC S9(02).
01 OUT        PIC ZZ9.
*>
PROCEDURE DIVISION.
  ACCEPT X.
*>
  IF (X >= 30)
    DISPLAY 'Yes'
  ELSE
    DISPLAY 'No'
  END-IF.
*>
  STOP RUN.
