HelloWorld in COBOL (Win32 version)

hellow.cob

        >>SOURCE FORMAT FREE
IDENTIFICATION DIVISION.
PROGRAM-ID. HelloWorld.

DATA DIVISION.
WORKING-STORAGE SECTION.
    01 HWND    PIC 9(1)  VALUE 0.
    01 MSG     PIC X(17) VALUE "Hello, World! :-)".
    01 CAPTION PIC X(8) VALUE "GnuCOBOL".
    01 STYLE   PIC 9(1)  VALUE 0.

PROCEDURE DIVISION.
    CALL "MessageBoxA" USING 
        BY VALUE HWND 
        BY REFERENCE MSG 
        BY REFERENCE CAPTION 
        BY VALUE STYLE 
    END-CALL
STOP RUN.

END PROGRAM HelloWorld.