HP 3000 Manuals

MAX Function [ HP COBOL II/XL Reference Manual ] MPE/iX 5.0 Documentation


HP COBOL II/XL Reference Manual

MAX Function 

The MAX function returns the content of the parameter-1 that contains the
maximum value.  The function type depends on the parameter type, as
follows:

     Parameter Type                         Function Type                                                                            
     Alphabetic                             Alphanumeric
     Alphanumeric                           Alphanumeric
     All parameters integer                 Integer
     Numeric (some parameters may be        Numeric
integer)

Syntax 

     FUNCTION MAX ({parameter-1}...)

Parameters 

parameter-1           If more than one parameter-1 is specified, all
                      parameters must be of the same class.

Return Values 

The returned value is the content of the parameter-1 having the greatest
value.  The greatest values are determined by the rules for simple
conditions.  See the section "Simple Conditions" in Chapter 8  for
additional information.

If more than one parameter-1 has the same greatest value, the content of
the parameter-1 returned is the leftmost parameter-1 having that value.

If the type of the function is alphanumeric, the size of the returned
value is the same as the size of the selected parameter-1.

Example 

     77  A         PIC X VALUE "A".
     77  B         PIC X VALUE "Z".
     77  C         PIC X VALUE "m".
     77  D         PIC X VALUE "9".

     77  I            PIC 9 VALUE 8.
     77  J            PIC 9 VALUE 3.
     77  K            PIC 9 VALUE 6.
     77  L            PIC 9 VALUE 1.
     77  MAX-VALUE    PIC 9 VALUE ZERO.
     77  MAX-VALUE-2  PIC S999V99 VALUE 0.
     01  TAB.
         05  ELEMENT   PIC S999V99
                         OCCURS 4 TIMES VALUE ZERO.
          :
     DISPLAY FUNCTION MAX (A B C D).

     COMPUTE MAX-VALUE = FUNCTION MAX (I J K L).
     DISPLAY MAX-VALUE.

     MOVE 1.25 TO ELEMENT (1).
     MOVE 3.50 TO ELEMENT (2).
     MOVE 8.75 TO ELEMENT (3).
     MOVE 0.25 TO ELEMENT (4).

     COMPUTE MAX-VALUE-2 = FUNCTION MAX ( ELEMENT (ALL) ).
     DISPLAY MAX-VALUE-2.

The above example displays the following:

     m
     8
     +008.75



MPE/iX 5.0 Documentation