IDENTIFICATION DIVISION.
       PROGRAM-ID. vereincheck.
      ***********************************************************
      * Comilieren: 
      * cobc -x vereincheck.cbl ../src/fileutil.o
      ***********************************************************
       DATA DIVISION.
       WORKING-STORAGE SECTION.
       01 action-par    PIC X VALUE "A".
       01 data-val      PIC X(9).
       01 ret-val       PIC 99.

       PROCEDURE DIVISION.

       CALL "fileutil" USING action-par, data-val, ret-val
       DISPLAY "ret-val: "ret-val
       .