COBOL Manual for TNS/E Programs (H06.08+, J06.03+)

Example 203 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 MIN (NUM(ALL))
DISPLAY FUNCTION MIN (ALPHA(ALL))
DISPLAY FUNCTION MIN (NUM(1) NUM(4))
DISPLAY FUNCTION MIN (ALPHA(3) "bird" "fish")
DISPLAY FUNCTION MIN (3.4 5 6.2 9)
Output:
3
cat
4
bird
3.4
MOD Function
MOD, an integer function, returns the value that is argument-1 modulo argument-2.
argument-1
is an integer.
argument-2
is a nonzero integer.
The returned value is argument-1 modulo argument-2, which is defined:
678 Intrinsic Functions