       IDENTIFICATION DIVISION.
       PROGRAM-ID. ADDONE.
       DATA DIVISION.
       LINKAGE SECTION.
       01 LK-COUNTER PIC 9(4).
       PROCEDURE DIVISION USING LK-COUNTER.
           ADD 1 TO LK-COUNTER.
           GOBACK.
