rpg中sql在子文件中的应用

《rpg中sql在子文件中的应用》由会员上传分享，免费在线阅读，更多相关内容在学术论文-天天文库。

1、RPG中SQL在子文件中的应用?shuoming1:程序已修改过，直接在TXT中做的，不一定能编译。shuoming2:/后面为注释不合RPG规。shuoming3：程序建立是为了解决临时文件的显示问题。其中运用了SQL游标的方法。大致是由调用存储过程在临时库下生成临时文件，用SQL游标方法将满足要求的记录读到游标里，通过FETCH语句写进子文件——》显示--》OVER.shuoming4:显示文件DSPF01其中有记录格式HEAD,FOOT,DSPSFL,DSPCTL,MESSAGE.指示器：*In12

2、=F12程序退出，*in29=PAGEUP/*in30=pagedown子文件中上下翻页，*in55子文件的清空*in56MORE。。。。。临时文件TMPF由存储过程SP_PGM创建。字段2：TMP_CD,TMP_NM对应子文件中的DCDCST,DNMCST@hdatedit(*ymd)datfmt(*iso)fDSPF01cfeworkstnfsfile(rec:recno)finfds(infds)*-------------------------------------------------------*

3、每屏的第一条记录的客户编号d#cdcsts8a/cdcst:customercode*结果集第一条记录的客户named##nmcsts10a/nmcst:customername*d#parm1s10a/调用参数1,调用存储过程生成临时文件。d#parm2s2a/调用参数2d#rtn1s1a/调用返回结果1-成功2-失败*-------------------------------------------------------d**显示文件信息结构：/在DSLIB中定义的信息结构，本PGM中只用到RRN。d/copydsl

4、ib/libsrc,infdsc***********************************************************c**　　　　　　　　主　程　序*c***********************************************************c**初始化cexsrsubinic**调用接口生成临时文件，ＳＱＬ生成结果集cexsrsubini2cdownot*in12/F12退出c**子文件准备:cexsrsubsflc**子文件处理:cexsrsubprcc*cen

5、ddoc**结束程序:cexsrsubpgmc**--------------------------------------------------------*c**子程序:subsfl*c**功能:子文件准备　　　　　　　　　　　*c**--------------------------------------------------------*csubsflbegsrc**子文件清空:cexsrsubclrc**记录定位:/支持定位，翻页的子文件之传统步骤~。~cexsrsubpst/c**子文件填充:cexsrs

6、ubfilc**子文件显示:cexsrsubdspcendsflendsrc**--------------------------------------------------------*c**子程序:subclr*c**功能:清除子文件内容并重新设置参数*c**--------------------------------------------------------*csubclrbegsrcmove'1'*in55cwritedspctlcmove'0'*in55cz-add0recnocmove'0'*In5

7、6cendclrendsrc**--------------------------------------------------------*c**子程序:subpst*c**功能:确定子文件(一屏)的第一个记录kpst*c**--------------------------------------------------------*csubpstbegsrcz-add0countcevalpos=%trim(pos)cselectselecc**显示第一屏cwhenpos='T'orpos='t'

8、1topc/ex

9、ecsqlc+fetchfirstfromDTYEinto:#cdcst,:#nmcstc/end-execc**显示最后屏cwhenpos='B'orpos='b'

10、1topc/execsqlc+fetchlastfromDTYEinto:#cdcst,:#nmcstc/e