COBOL : 88 level field with more than one value

The below code snippet demonstrates how a SET statement assigns value to a field if the 88 field associated with it was defined with more than one value.

WORKING-STORAGE SECTION.

01 XX PIC X.

88 var-88         VALUE 'C', 'P'.

PROCEDURE DIVISION.

SET var-88 TO TRUE.

DISPLAY XX.

GOBACK.

“C” will be displayed in sysout.