COBOL Manual for TNS and TNS/R Programs

Intrinsic Functions
HP COBOL Manual for TNS and TNS/R Programs—522555-006
14-46
ORD-MIN Function
Example 14-31. ORD-MIN Function
Code:
DATA DIVISION.
WORKING-STORAGE SECTION.
01 NUMERIC-ARRAY.
05 PICTURE 9(1) VALUE 4.
05 PICTURE 9(1) VALUE 9.
05 PICTURE 9(1) VALUE 3.
05 PICTURE 9(1) VALUE 7.
05 PICTURE 9(1) VALUE 5
01 NUM-ARRAY REDEFINES NUMERIC-ARRAY.
05 NUM OCCURS 5 TIMES PICTURE 9(1).
01 ALPHABETIC-ARRAY.
05 PICTURE X(5) VALUE "dog".
05 PICTURE X(5) VALUE "cat".
05 PICTURE X(5) VALUE "horse".
05 PICTURE X(5) VALUE "sheep".
05 PICTURE X(5) VALUE "goat".
01 ALPHA-ARRAY REDEFINES ALPHABETIC-ARRAY.
05 ALPHA OCCURS 5 TIMES PICTURE X(5).
PROCEDURE DIVISION.
DISPLAY FUNCTION ORD-MIN (NUM(ALL))
DISPLAY FUNCTION ORD-MIN (ALPHA(ALL))
DISPLAY FUNCTION ORD-MIN (NUM(1) NUM(4))
DISPLAY FUNCTION ORD-MIN (ALPHA(3) "bird" "fish")
DISPLAY FUNCTION ORD-MIN (3.4 5 6.2 9)
Output:
0000000003
0000000002
0000000001
0000000002
0000000001