Cobol - SQL Embebido - Select/SubSelect

Good People Help me !!!
Este select [ por linea de comando funciona ok]
SELECT A0090,A1010,A6000,A0230,A6010,A9490,X0070,A6100,A6180,X0101,A1125,X0039,X0035,X0020,
X0021,X0022,X0023,X0030,X0100,X0102,A1040 FROM TYBD015
WHERE X0032 = 2 AND X0021 = 'S' AND
((TYBD015.A0090,
TYBD015.A1010,
TYBD015.A6000,
TYBD015.A0230,
TYBD015.A9490) IN(SELECT A0090, A1010, A6000,A0230, A9490
FROM TYBD015 WHERE X0032 = 1 AND X0021 = 'N'))
cuando lo pongo embebido no funciona alguien me puede ayudar u orientar
EXEC SQL DECLARE CR15 CURSOR FOR SELECT
SELECT A0090,
A1010,
A6000,
A0230,
A6010,
A9490,
X0070,
A6100,
A6180,
X0101,
A1125,
X0039,
X0035,
X0020,
X0021,
X0022,
X0023,
X0030,
X0100,
X0102,
A1040
FROM TYBD015
WHERE X0032 = 2
AND X0021 = 'S'
AND ((A0090,
A1010,
A6000,
A0230,
A9490) IN(SELECT
A0090, A1010, A6000, A0230, A9490
FROM TYBD015
WHERE X0032 = 1
AND X0021 = 'N'))
ORDER BY A0090, A1010, A6000, A0230
END-EXEC.

El fragmento de código SQL que proporcionaste parece estar en formato de incrustación SQL dentro de un programa COBOL. Sin embargo, hay un problema en el código SQL embebido. Cuando se utiliza SQL embebido en COBOL, debes tener en cuenta algunas consideraciones de sintaxis y formato.

Primero, la cláusula `SELECT` no debe repetirse dentro de la sentencia `EXEC SQL DECLARE CURSOR`. En lugar de eso, simplemente menciona las columnas que deseas seleccionar en la declaración del cursor. Aquí está la corrección:


En esta corrección, eliminé la segunda instancia de `SELECT` dentro de la declaración del cursor y simplemente enumeré las columnas que deseas seleccionar.

Además, asegúrate de que la sintaxis COBOL que rodea esta declaración sea correcta. Asegúrate de que los bloques `EXEC SQL` estén bien estructurados dentro del programa COBOL y que se haya realizado una conexión de base de datos adecuada antes de ejecutar esta consulta SQL embebida.