IDENTIFICATION DIVISION.
PROGRAM-ID. 162A.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 N          PIC  X(3).
*>
PROCEDURE DIVISION.
  ACCEPT N.
  IF N(1:1) = '7' OR N(2:1) = '7' OR N(3:1) = '7' 
    DISPLAY 'Yes'
  ELSE
    DISPLAY 'No'
  END-IF.
*>
  STOP RUN.
