01 CHARVAL. 05 NUM PIC 99PP VALUE 2300. 05 FILLER PIC XX VALUE "00". IF CHARVAL EQUAL ALPHA1 DISPLAY "ALPHA1". IF CHARVAL EQUAL ALPHA2 DISPLAY "ALPHA2". IF CHARVAL EQUAL ALPHA3 DISPLAY "ALPHA3".