* ==== TYPE: ST-CALL-CONTENT ====
      * FEATURE: CALL ... BY CONTENT
      * STATEMENT: CALL BY CONTENT
      * BRANCHES: 2, DECISIONS: 1
       IDENTIFICATION DIVISION.
       PROGRAM-ID. CALLCN.
       DATA DIVISION.
       WORKING-STORAGE SECTION.
       01 WS-PARAM  PIC 9(5) VALUE 100.
       PROCEDURE DIVISION.
       MAIN.
           CALL 'SUBPGM' USING BY CONTENT WS-PARAM.
           IF WS-PARAM = 100
               DISPLAY 'OK: BY CONTENT'
           ELSE
               DISPLAY 'ERROR: BY CONTENT'.
           STOP RUN.