You are testing
which is a dataelement in your Working-Storage.
You should test the value in the DFHCOMMAREa like this:
You have prepared for 88´s in the Ws. Copy those to the commarea like this:
05 LS-I-CH PIC 9(1).
88 C01-CH-PENQ VALUE 1.
88 C02-CH-POAPPLY VALUE 2.
88 C03-CH-PEDIT VALUE 3.
88 C04-CH-PCANCEL VALUE 4.
The you can say:
Pls note that you have to take care of the naming-problem that now will appear, becasue the 88´are not unique.
In the future, post your code using the code-tags.