*&---------------------------------------------------------------------*
*& Include          Z2MSE_TEST_INCLUDE_A
*&---------------------------------------------------------------------*
data: a TYPE c LENGTH 1.
a = 'D'.
write: a.
