16 lines
222 B
OpenEdge ABL
16 lines
222 B
OpenEdge ABL
concept numeric(n) {
|
|
number(n)
|
|
errors {
|
|
print(n, " is not numeric!")
|
|
return
|
|
}
|
|
print(n, " is numeric :)")
|
|
}
|
|
|
|
software {
|
|
numeric("1200")
|
|
numeric("3.14")
|
|
numeric("3/4")
|
|
numeric("abcdefg")
|
|
numeric("1234test")
|
|
}
|