IDENTIFICATION DIVISION. PROGRAM-ID. TEST_CALL. ENVIRONMENT DIVISION. INPUT-OUTPUT SECTION. FILE-CONTROL. DATA DIVISION. * WORKING-STORAGE SECTION. 01 WS-ID PIC S9(4). 01 WS-NAME PIC X(10). * PROCEDURE DIVISION. AA10-MAIN SECTION. AA1010. CALL 'TEST_SUB' USING WS-ID, WS-NAME. DISPLAY 'id: 'WS-ID. DISPLAY 'Name: ' WS-NAME. STOP RUN. AA1099. EXIT.