Natural

* Prototyped by: John Naudus
DEFINE DATA
PARAMETER
1 #VALUE                    (N3.0)
1 REDEFINE #VALUE
2 #VALUE-1                  (N1.0)
2 #VALUE-2-3                (N2.0)
2 REDEFINE #VALUE-2-3
3 #VALUE-2                  (N1.0)
3 #VALUE-3                  (N1.0)
1 #SUFFIX                   (A002)
LOCAL
1 #TEMP-VALUE               (N3.0)
END-DEFINE
*
IF #VALUE-2-3 LT 14
  ASSIGN #TEMP-VALUE = #VALUE-2-3
ELSE
  ASSIGN #TEMP-VALUE = #VALUE-3
END-IF
  DECIDE ON FIRST VALUE OF #TEMP-VALUE
    VALUE 1
      MOVE 'ST' TO #SUFFIX
    VALUE 2
      MOVE 'ND' TO #SUFFIX
    VALUE 3
      MOVE 'RD' TO #SUFFIX
    NONE VALUE
      MOVE 'TH' TO #SUFFIX
  END-DECIDE
IF #VALUE = 0
  MOVE '  ' TO #SUFFIX
END-IF
*
END