       IDENTIFICATION DIVISION.
       PROGRAM-ID. LINKMAIN.
       DATA DIVISION.
       WORKING-STORAGE SECTION.
       01 WS-COUNTER PIC 9(4) VALUE 41.
       PROCEDURE DIVISION.
           CALL "ADDONE" USING WS-COUNTER.
           DISPLAY WS-COUNTER.
           STOP RUN.
