IDENTIFICATION DIVISION. PROGRAM-ID. hello. DATA DIVISION. WORKING-STORAGE SECTION. 01 HWND PIC 9(1) VALUE 0. 01 MSG PIC X(30) VALUE "Hello, Win32 API(COBOL) World!". 01 CAPTION PIC X(13) VALUE "Hello, World!". 01 STYLE PIC 9(1) VALUE 0. PROCEDURE DIVISION. CALL "msgbox" USING HWND MSG CAPTION STYLE. STOP RUN.