IDENTIFICATION DIVISION.
       PROGRAM-ID. TESTCOB.

       DATA DIVISION.
       WORKING-STORAGE SECTION.
       01 SIN-NUM.
          03 NUM-1 PIC 99 VALUE ZERO.
          03 NUM-2 PIC 9(3) VALUE 250.
          03 NUM-3 PIC 9(2) VALUE 70.
       01 SIM-RES.
          03 RESSIN-1 PIC S9V99.
          03 RESSIN-2 PIC S9V99.
          03 RESSIN-3 PIC S9V99.
          03 RESCOS-1 PIC S9V99.
          03 RESCOS-2 PIC S9V99.
          03 RESCOS-3 PIC S9V99.
          03 RESTAN-1 PIC S9V99.
          03 RESTAN-2 PIC S9V99.
          03 RESTAN-3 PIC S9V99.
          01 PI PIC S9V99 VALUE 3.14.
       77 SRC PIC X(10) VALUE "1234567890".

       PROCEDURE DIVISION.
       MAIN-PROCEDURE.
           DISPLAY "Hello world "-
           "- OpenCOBOL IDE!!!" *>COMMENT

       COMPUTE RESSIN-1 = FUNCTION SIN(NUM-1).
       COMPUTE RESSIN-2 = FUNCTION SIN(NUM-2 * PI / 180).
       COMPUTE RESSIN-3 = FUNCTION SIN((NUM-2 + NUM-3) * PI / 180).

       COMPUTE RESCOS-1 = FUNCTION COS(NUM-1).
       COMPUTE RESCOS-2 = FUNCTION COS(NUM-2 * PI / 180).
       COMPUTE RESCOS-3 = FUNCTION COS((NUM-2 + NUM-3) * PI / 180).

       COMPUTE RESTAN-1 = FUNCTION TAN(NUM-1).
       COMPUTE RESTAN-2 = FUNCTION TAN(NUM-2 * PI / 180).
       COMPUTE RESTAN-3 = FUNCTION TAN((NUM-2 + NUM-3) * PI / 180).

       DISPLAY "SIN-1:("RESSIN-1")".
       DISPLAY "   -2:("RESSIN-2")".
       DISPLAY "   -3:("RESSIN-3")".
       DISPLAY "COS-1:("RESCOS-1")".
       DISPLAY "   -2:("RESCOS-2")".
       DISPLAY "   -3:("RESCOS-3")".
       DISPLAY "TAN-1:("RESTAN-1")".
       DISPLAY "   -2:("RESTAN-2")".
       DISPLAY "   -3:("RESTAN-3")".

           STOP RUN.
       END PROGRAM TESTCOB.



compilation skipped, up to date...

Compilation succeeded (output: D:\OpenCobolIDE\TEMP\bin\TESTCOB.exe)

D:\OpenCobolIDE\TEMP\bin\TESTCOB.exe yŽĄsŒ‹‰ŹzOpenCobolIDE V4.7.6

Hello world - OpenCOBOL IDE!!!
SIN-1:(+0.00)
   -2:(-0.93)
   -3:(-0.64)
COS-1:(+1.00)
   -2:(-0.34)
   -3:(+0.76)
TAN-1:(+0.00)
   -2:(+2.72)
   -3:(-0.84)

Process finished with exit code 0