Hi Chris,
========================
EXEC SQL WHENEVER NOT FOUND CONTINUE END-EXEC.
IF SELQUEUE-1-OPEN
EXEC SQL FETCH SELQUEUE_1 INTO
:I-KCT-ID-DB :NULLIND
,:S-QNM-QUEUE-CODE-DB :NULLIND
,:I-VZD-ID-DB :NULLIND
,:S-QUE-FSS-STATUS-DB :NULLIND
=============================
We are using NetExpress 5.1 with Visual Studio. So I copied .cblproj file to new environment and opened with Visual Cobol, it converted the project.
SQL(DBMAN=ADO) SQL(TARGETDB=ORACLE), these are the 2 directives I am using.
Thanks Chris
Ramesh