RosettaCodeData/Task/Empty-string/OpenEdge-Progress/empty-string.openedge
Ingy döt Net d066446780 langs a-z
2013-04-10 22:43:41 -07:00

8 lines
212 B
Text

DEFINE VARIABLE cc AS CHARACTER.
IF cc > '' THEN
MESSAGE 'not empty' VIEW-AS ALERT-BOX.
ELSE IF cc = ? THEN
MESSAGE 'unknown' VIEW-AS ALERT-BOX.
ELSE /* IF cc = '' */
MESSAGE 'empty' VIEW-AS ALERT-BOX.