RosettaCodeData/Task/Increment-a-numerical-string/OpenEdge-Progress/increment-a-numerical-strin...

6 lines
98 B
Plaintext

DEFINE VARIABLE cc AS CHARACTER INITIAL "12345".
MESSAGE
INTEGER( cc ) + 1
VIEW-AS ALERT-BOX.