DEFINE VARIABLE vcSplCharStr AS CHARACTER NO-UNDO INIT '\}/}:}*}?}"}<}>}|}&},'.
DEFINE VARIABLE lvi AS INTEGER NO-UNDO.
DO lvi = 1 TO NUM-ENTRIES(vcSplCharStr,"}"):
MESSAGE ENTRY(lvi,vcSplCharStr,"}")
VIEW-AS ALERT-BOX INFO BUTTONS OK.
END.