Cobol - Utilizar crystal report 9 con cobol wow 3.1

IDENTIFICATION DIVISION.

       PROGRAM-ID. Crystal-Report-Example.

       DATA DIVISION.

       WORKING-STORAGE SECTION.

       01 REPORT-NAME    PIC X(50) VALUE "C:\RPT\MiInforme.rpt".

       01 APP-NAME       PIC X(30) VALUE "MiAplicacion".

       01 RETURN-CODE    PIC S9(9) BINARY.

       01 CR-APP-OPTIONS PIC X(100).

       01 CR-REPORT-OPTIONS PIC X(100).

       PROCEDURE DIVISION.

       MOVE SPACES TO CR-APP-OPTIONS.

       MOVE SPACES TO CR-REPORT-OPTIONS.

       CALL 'crw32.exe' USING REPORT-NAME

                              APP-NAME

                              RETURN-CODE

                              CR-APP-OPTIONS

                              CR-REPORT-OPTIONS.

       IF RETURN-CODE = 0 THEN

           DISPLAY "Informe generado exitosamente."

       ELSE

           DISPLAY "Error al generar el informe. Código de retorno: " RETURN-CODE

       END-IF.

       STOP RUN.