EXEC SQL WHENEVER FUNCTION 快速修订不可用。 在Windows 平台上,可以将图保存为可伸缩向量图形 (SVG) 格式或可移植网络图形 (PNG) 格式。 在 macOS 和 Linux® 平台上,可以使用 SVG 格式保存图。 过程 在编辑器中打开 COBOL 文件。 右键单击此文件以打开菜单。
246 8 EXEC SQL 247 WHENEVER NOT FOUND GO TO A100-DONE1 248 END-EXEC. 249 9 EXEC SQL 250 FETCH C1 INTO :PROJECT.PROJNO, :RPT1.EMPNO, 251 :RPT1.NAME, :RPT1.SALARY 252 END-EXEC. 253 MOVE CORRESPONDING RPT1 TO RPT1-DATA. 254 MOVE PROJNO OF RPT1 TO PROJNO OF RPT1-DATA. 255...
EXEC SQL WHENEVER SQLERROR GOTO ORA-ERROR END-EXEC. 2)、 数据连接 数据库连接在一般的项目开发中用不到,只用于测试程序中(不连接外部数据库) •方式一(USERNAM和PASSWOF分开,女口:USERNAME =“OPS$LAPROC51 PASSWORD=“LAPROC) EXEC SQL CONNECT :USERNAME IDENTIFIED BY :PASSWD END-EXEC. •方式二...
数据部中SQL语句的基本语法1) 、 错误扑获ORACLE 错误扑获是一个全局性的标志,在一个事务( 在 PRO*COBO中, L ORACLE事务以COMMIT或 ROLLBACK为分割点 ) 中,后一个错误扑获会覆盖前一个错误扑获设置。· 遇到SQL警告(S 24、QLCODE > 0 ) 继续EXEC SQL WHENEVER SQLWARNING CONTINUE END-EXEC.· 遇到...
NO-MORE. EXEC SQL WHENEVER NOT FOUND CONTINUE END-EXEC. PERFORM DISPLAY 'Employee number? ' ACCEPT EMP-NUMBER IF EMP-NUMBER IS NOT = 0 EXEC ORACLE OPTION (HOLD_CURSOR=YES) END-EXEC EXEC SQL SELECT ENAME, SAL INTO :EMP-NAME, :SALARY FROM EMP WHERE EMPNO = :EMP-NUMBER DISPLAY 'Salary...
Pro*COBOL 8.1.5 now allows the call of a subroutine as the action in the WHENEVER statement. The new syntax is: EXEC SQL WHENEVER <condition> DO CALL <subprogram> [USING id1 id2 ... idn] END-EXEC. This new functionality is very useful when writing nested programs. ...
遇至U SQL错误(SQLCODE 0 )跳转 EXEC SQL WHENEVER SQLERROR GOTO ORA-ERROR END-EXEC. 2 )、 数据连接数据库连接在一般的项目开发中用不到,只用于测试程序 中(不连接外部数据库) ?方式一(USERNAM和 PASSWORD开,女口: USERNAME =“OPS$LAPROC51 PASSWORD = “LAPROC ) EXEC SQL CONNECT :USERNAME ...
数据部中SQL语句的基本语法 1)、错误扑获 ORACLE错误扑获是一个全局性的标志,在一个事务(在PRO*COBOL中,ORACLE事务以COMMIT或ROLLBACK为分割点)中,后一个错误扑获会覆盖前一个错误扑获设置。 · 遇到SQL警告(SQLCODE 0 )继续 EXEC SQL WHENEVER SQLWARNING CONTINUE END-EXEC. · 遇到SQL错误(SQLCODE 0 )...
EXECSQLWHENEVERSQLERRORGOTOORA-ERROREND-EXEC. 、数据连接 数据库连接在一般的项目开发中用不到,只用于测试程序K7^中(不连接外部数据库) •方式一(USERNAME和PASSWORD分开,如:USERNAME="OPS$LAPROC51”PASSWORD="LAPROC”) EXECSQL CONNECT:USERNAMEIDENTIFIEDBY:PASSWD ...
* 動的SQL文をいれるバッファ 01 SQLSTMT PIC X(2048). EXEC SQL END DECLARE SECTION END-EXEC. ●数据库的操作ORACLE接続開始,用用户名和登录密码进行连接. 例: *---SQLエラー処理の設定 EXEC SQL WHENEVER SQLERROR CONTINUE END-EXEC. *---ORACLE接続 MOVE ‘SKC009/SKC009’ TO ORA-USER. EXEC...