* ==== TYPE: ST-CALL-VALUE ====
      * FEATURE: CALL ... BY VALUE with mixed mechanisms
      * STATEMENT: CALL BY VALUE
      * BRANCHES: 2, DECISIONS: 1
       IDENTIFICATION DIVISION.
       PROGRAM-ID. CALLVL.
       DATA DIVISION.
       WORKING-STORAGE SECTION.
       01 WS-A PIC 9(5) VALUE 10.
       01 WS-B PIC 9(5) VALUE 20.
       PROCEDURE DIVISION.
       MAIN.
           CALL 'SUBPGM' USING
               BY VALUE WS-A
               BY REFERENCE WS-B.
           IF WS-A = 10
               DISPLAY 'OK: BY VALUE'
           ELSE
               DISPLAY 'ERROR: BY VALUE'.
           STOP RUN.