- 1、本文档被系统程序自动判定探测到侵权嫌疑,本站暂时做下架处理。
- 2、如果您确认为侵权,可联系本站左侧在线QQ客服请求删除。我们会保证在24小时内做出处理,应急电话:400-050-0827。
- 3、此文档由网友上传,因疑似侵权的原因,本站不提供该文档下载,只提供部分内容试读。如果您是出版社/作者,看到后可认领文档,您也可以联系本站进行批量认领。
查看更多
AS400中文培训资料SEU教程二
7.4.4 对嵌入的SQL语句使用提示-—例子
在编辑嵌在源类型中的SQLRPG、SQLRPGLE、SQLCBL、SQLCBLLE等中的SQL使用P行命令时,SEU用SQL提示,下列显示给出嵌在COBOL中的SQL语句:
* *
* Columns . . . : 1 71 Edit LIBRNAME01/FILENAME01 *
* SEU== ____________________________________________________________ MEMBNAME01 *
* FMT CB ......-A+++B+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ *
* *************** Beginning of data ************************************* *
* 0001.00 MOVE A TO B. *
* SQL EXEC SQL *
* SQL CREATE COLLECTION ABC *
* SQL END-EXEC. *
* 0005.00 MOVE A TO B. *
* SQL EXEC SQL *
* ****************** End of data **************************************** *
* *
如果在顺序号0001.00、0002.00、0004.00或0005.00上用P命令或按F4键,SEU调用COBOL提示。如果对上述行用IP命令,则在这些行后插入COBOL提示。若在0003.00行上用IP命令,那么,如果在提示中进标准COBOL语句,则导致错误的SQL语句。如果在0003.00行上用P命令或F4,SEU在这行调用SQL提示。在0006.00行上的IP命令调用SQL提示。如果在提示中输入有效的SQL语句,成员显示如下:
* *
* Columns . . . : 1 71 Edit LIBRNAME01/FILENAME01 *
* SEU== ____________________________________________________________ MEMBNAME01 *
* FMT CB ......-A+++B+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ *
* *************** Beginning of data ************************************* *
* 0001.00 MOVE A TO B.
文档评论(0)