COBOL math service examples

Table 1 shows code examples of calling various math services from COBOL.

Table 1. COBOL examples
Function called Code example
Log base e (CEESSLOG) 
       77   ARG1RS  COMP-1.
       77   FBCODE  PIC X(12).
       77   RESLTRS COMP-1.

           CALL "CEESSLOG" USING ARG1RS , FBCODE ,
           RESLTRS.
Log base 10 (CEESDLG1) 
       77   ARG1RL  COMP-2.
       77   FBCODE  PIC X(12).
       77   RESLTRL COMP-2.

           CALL "CEESDLG1" USING ARG1RL , FBCODE ,
           RESLTRL.
Exponentiation (CEESIXPI) 
       77   ARG1IS  PIC S9(9) COMP.
       77   ARG2IS  PIC S9(9) COMP.
       77   FBCODE  PIC X(12).
       77   RESLTIS PIC S9(9) COMP.

           CALL "CEESIXPI" USING ARG1IS , ARG2IS ,
           FBCODE , RESLTIS.
Exponentiation (CEESSXPI) 
       77   ARG1RS  COMP-1.
       77   ARG2IS  PIC S9(9) COMP.
       77   FBCODE  PIC X(12).
       77   RESLTRS COMP-1.

           CALL "CEESSXPI" USING ARG1RS , ARG2IS ,
           FBCODE , RESLTRS.
Arctangent2 (CEESSAT2) 
       77   ARG1RS  COMP-1.
       77   ARG2RS  COMP-1.
       77   FBCODE  PIC X(12).
       77   RESLTRS COMP-1.

            CALL "CEESSAT2" USING ARG1RS , ARG2RS ,
            FBCODE , RESLTRS.
Parent topic: Examples of math services