See https://www.codewars.com/kumite/61988aeb342ae10007d59487?sel=61988aeb342ae10007d59487

* solution
       identification division.
       program-id. name.
      
       data division.
       local-storage section.
       ...
       linkage section.
       01 n           pic 9(8).
       01 result      pic 9(20).
      
       procedure division using n result.
      
          compute result = ,
      
          goback.
       end program NAME.
      
      * tests
       identification division.
       program-id. tests.
      
       data division.
       working-storage section.
       01 n           pic 9(8).
       01 result      pic 9(20).
       01 expected    pic 9(20).
       01 n-disp      pic z(19)9.
      
       procedure division.
           testsuite 'Fixed tests'.
           move 0 to n
           move 0 to expected
           perform dotest
      
           testsuite 'Random tests'.
           perform set-random-seed
           perform 0 times
               compute n = 100 * function random
               compute expected = 0
               perform dotest
           end-perform

           end tests.
      
       dotest.
           move n to n-disp
           testcase 'Testing: n = ' function trim(n-disp).
           initialize result
           call 'NAME'
               using by content n
               by reference result
           expect result to be expected.
           .
       end program tests.

