免费注册 查看新帖 |

Chinaunix

  平台 论坛 博客 文库
最近访问板块 发新帖
查看: 1808 | 回复: 0
打印 上一主题 下一主题

问一下OPNQRYF 的参数格式。 [复制链接]

论坛徽章:
0
跳转到指定楼层
1 [收藏(0)] [报告]
发表于 2006-03-09 09:28 |只看该作者 |倒序浏览
正在学opnqryf的使用。建了两个表:其中第一个表是查询主表,第2个表是为查询结果建的表。
FMT PF .....A..........T.Name++++++RLen++TDpB......Functions++++++++++++++++++
        ******************** 数据开始 *****************************************
0001.00      A                                      UNIQUE                     
0002.00      A          R ORDERR                                                
0003.00      A            ORDERID        8P 0                                   
0004.00      A            ORDERCUS      10O                                    
0005.00      A            PRICE          6P 2                                   
0006.00      A            NUMBER         6P 0                                   
0007.00      A          K ORDERID                                               


FMT PF .....A..........T.Name++++++RLen++TDpB......Functions++++++++++++++++++
        ******************** 数据开始 *****************************************
0001.00      A          R ORDERSQLR                                             
0002.00      A            ORDERID   R               REFFLD(ORDERID ORDER)      
0003.00      A            CUSNAME   R               REFFLD(ORDERCUS ORDER)      
0004.00      A            TOTAL          6P 2                                   
        ******************** 数据结束 *****************************************

先打开查询文件:
0001.00 PGM                                                                    
0002.00     OVRDBF FILE(ordersql) TOFILE(order) SHARE(*YES) OPNSCOPE(*job)    +
0003.00      OVRSCOPE(*JOB)                                                   
0004.00     OPNQRYF FILE((order)) FORMAT(ordersql)                            +
0005.00             MAPFLD((TOTAL 'PRICE + NUMBER'))                          +
0006.00             IGNDECERR(*YES)                  
0007.00 ENDPGM                                                                 

使用了mapfld参数计算变换字段total,编译能通过,可是运行出错(+号改为×仍出错)。大侠帮忙看看问题出在什么地方。

注:
这段代码后是读取查询结果的RPG程序,然后撤销覆盖和查询结果。
0001.00 PGM                                                                    
0002.00 CLOF OPNID(ORDER)                                                      
0003.00 DLTOVR FILE(ORDERSQL) LVL(*JOB)                                       
0004.00 ENDPGM
您需要登录后才可以回帖 登录 | 注册

本版积分规则 发表回复

  

北京盛拓优讯信息技术有限公司. 版权所有 京ICP备16024965号-6 北京市公安局海淀分局网监中心备案编号:11010802020122 niuxiaotong@pcpop.com 17352615567
未成年举报专区
中国互联网协会会员  联系我们:huangweiwei@itpub.net
感谢所有关心和支持过ChinaUnix的朋友们 转载本站内容请注明原作者名及出处

清除 Cookies - ChinaUnix - Archiver - WAP - TOP