HP 3000 Manuals

HP COBOL II/XL Reference Manual

MOD Function 

The MOD function returns an integer value that is parameter-1 modulo
parameter-2.  The function type is integer.

Syntax 

     FUNCTION MOD (parameter-1 parameter-2)

Parameters 

parameter-1           Must be an integer.

parameter-2           Must be a non-zero integer.

Return Value 

The returned value is parameter-1 modulo parameter-2.  The returned value
is defined as:

     parameter-1 - (parameter-2 * FUNCTION
INTEGER(parameter-1/parameter-2))

The following table illustrates expected results for some values of
parameter-1 and parameter-2.

Parameter-1  Parameter-2     Result 

     11           5            1

    -11           5            4

     11           -5           -4

    -11           -5           -1

Example 

     01  NUM-MOD     PIC 99 VALUE 0.
          :
     COMPUTE NUM-MOD = FUNCTION MOD (12 5).
     DISPLAY NUM-MOD.

The above example displays the following:

     02

MPE/iX 5.0 Documentation