dcl-s Sql_MsgKey varchar(4) ccsid(*hex);

D Sql_MsgKey 4 varying ccsid(*hex)

Wobei der MsgKey ja eigentlich nicht varying ist sondern immer 4-bytes Hex.