COBOL/vereincheck.cbl

   1        IDENTIFICATION DIVISION.
   2        PROGRAM-ID. vereincheck.
   3       ***********************************************************
   4       * Comilieren:
   5       * cobc -x vereincheck.cbl ../src/fileutil.o
   6       ***********************************************************
   7        DATA DIVISION.
   8        WORKING-STORAGE SECTION.
   9        01 action-par    PIC X VALUE "A".
  10        01 data-val      PIC X(9).
  11        01 ret-val       PIC 99.
  12
  13        PROCEDURE DIVISION.
  14
  15        CALL "fileutil" USING action-par, data-val, ret-val
  16        DISPLAY "ret-val: "ret-val
  17        .