ODBC 呼び出しの関数戻り値を指定するには、CALL ステートメントの RETURNING 句を使用します。
CALL “SQLAllocEnv” USING BY VALUE Phenv RETURNING SQL-RC
IF SQL-RC NOT = SQL-SUCCESS
THEN
DISPLAY “SQLAllocEnv failed.”
. . .
ELSE
. . .
END-IF