DCL VAR(&HK) TYPE(*CHAR) LEN(1) VALUE('''')