To preserve CMPR2 behavior, you can define the scaled integer within a
structure. FILLER serves as the placeholders for the integer scaling positions
and must be initialized to zero. There must be as many alphanumeric positions
defined in FILLER as there are scaling positions in NUM. Wherever NUM is used
in a comparison with a nonnumeric item, CHARVAL should be substituted instead.
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".