* v2cob.s -- calling intrinsics via JNI and gcc plus COBOL

      $control dynamic
       
       identification division.
       program-id. cob-printop.

       data division.
       linkage section.
       01  msg      pic x(72).
       01  len      pic s9(4) comp.
       01  cctl     pic s9(4) comp.

       procedure division
         using msg, len, cctl.
       main-body.
           call intrinsic "printop"
             using msg, len, cctl.
           exit program.

       end program cob-printop.


       identification division.
       program-id. cob-printopreply.

       data division.
       linkage section.
       01  msg      pic x(50).
       01  len      pic s9(4) comp.
       01  reply    pic x(31).
       01  maxlen   pic s9(4) comp.
       01  result   pic s9(4) comp.

       procedure division
         using msg, len, reply, maxlen, result.
       main-body.
           call intrinsic "printopreply"
             using msg, len, 0, reply, maxlen
             giving result.
           exit program.

       end program cob-printopreply.