IDENTIFICATION DIVISION.
PROGRAM-ID. 1212.
ENVIRONMENT DIVISION.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 WS-A PIC X(2) VALUE 'HE'.
PROCEDURE DIVISION.
DISPLAY WS-A.
GOBACK.