       IDENTIFICATION DIVISION.
       PROGRAM-ID. CALLEE.
       DATA DIVISION.
       LINKAGE SECTION.
       01  LK-CUST-ID         PIC X(10).
       PROCEDURE DIVISION USING LK-CUST-ID.
       A000-MAIN SECTION.
       A100-START.
           GOBACK.
