前阵子看到一段DSPF的代码,用FRCDTA(强制数据)键字做等待屏幕,现在整理拿出来和大家分享一下!
FRCDTA:用这个记录层键字可以无须等待下一个输入/输出操作而立即显示一个记录格式.
常见问题:对大数据量进行查询时,由于等待时间过长,用户常会误认为程序运行出现异常,终止操作.
解决方法:在数据查询进程中,加入等待屏幕告知用户,进程正常,请等待.
分析代码:
[code:1:77a4531598]
DSPF:
A R DSPFMT *输入操作屏幕
A ...
A R RSLFMT *输出结果屏
A ...
A R WATFMT LOCK *锁住键盘
A FRCDTA
A 12 23' Waiting . . . . . . . . .' *提示内容
A COLOR(RED) *字体颜色
A DSPATR(RI) *字体高亮
A DSPATR(BL) *字体闪烁
RPGLE:
C EXFMT DSPFMT *输入操作
C N99 WRITE WATFMT *等待屏幕显示
C EXSR DATACHK
C EXSR DATASEARCH
C ......
C EXFMT RSLFMT
[/code:1:77a4531598]
:em02: :em02: :em02:
| Eagle_wolf 回复于：2004-11-10 18:29:38 |
| hehe 不错 找机会用一下！ |
| xuguopeng 回复于：2004-11-10 19:41:29 |
| 原来都是写画面啊~~~ 我以为都是CLP发的消息呢 |
| stephenxie2003 回复于：2004-11-11 16:07:00 |
| 不错啊，有机会也试一下!
谢谢楼主! :) |
| 亲亲400 回复于：2004-11-11 16:25:03 |
| 好，我是初哥，请问如何用DDS，如何进入DDS的编辑吗？ |
| xuguopeng 回复于：2004-11-11 17:16:15 |
| STRSEU |
| bobofish29 回复于：2004-11-11 22:30:39 |
| 正解! |
| ╰●-●╯ 回复于：2004-11-15 10:45:03 |
| 另一個方式是使用CRTDSPF或CHGDSPF時，設定DFRWRT(*NO)也可以達到同樣效果。 |
| bobofish29 回复于：2004-11-15 12:10:22 |
| [quote:726c3491bf="╰●-●╯"]另一個方式是使用CRTDSPF或CHGDSPF時，設定DFRWRT(*NO)也可以達到同樣效果。[/quote:726c3491bf]
能贴一个代码例子出来看看吗?学习学习! :em03: |
| qingzhou 回复于：2004-11-18 23:53:17 |
| 刚从北京学习RPG IV初级、中级课程回来，现在看这个感觉不新鲜了。
呵呵。。。 :D :D :D 鼓励一下。。。 :em02: :em02: :em02: |
| HAPPY潜龙 回复于：2004-11-19 09:43:21 |
| 楼上的， 你北京学习RPG IV初级、中级课程回来可有什么教义什么的，可以共享一下吗？？ |
| bobofish29 回复于：2004-11-19 10:01:34 |
| RPG IV中级的教程是不是比较偏重API方面的内容呀? |
| qingzhou 回复于：2004-11-19 12:48:03 |
| [quote:abcd0a52ea="bobofish29"] ...常见问题:对大数据量进行查询时,由于等待时间过长,用户常会误认为程序运行出现异常,终止操作....[/quote:abcd0a52ea]
可以采用“单页子文件”处理。。。 我们都知道，每个子文件的最大长度=9999，如果超过这个最大值，只能采用变通的方法来处理—单页子文件处理。 什么叫“单页子文件”？形象地讲就是子文件像一个在数据库文件记录上下滑动的窗口，每一个窗口仅仅读入显示n条记录，使用PgDn、PgUp键上下移动窗口，在每次移动时仅仅读入对应的n条记录，因为每次读入的记录很少，从而实现了快速读取方法。由于仅仅读入n条记录，所以不必考虑子文件是否足够大以实现对大量记录文件的支持。 |
| qingzhou 回复于：2004-11-19 12:51:16 |
| [quote:084c774a0b="HAPPY潜龙"]楼上的， 你北京学习RPG IV初级、中级课程回来可有什么教义什么的，可以共享一下吗？？[/quote:084c774a0b]
SORRY，IBM把教材控制得很严，更别说提供pdf这类型的东西了。 我的教材也要上缴回公司，所以我也在想该怎么办。。。 |
| qingzhou 回复于：2004-11-19 13:01:44 |
| [quote:eeda2c6ef7="bobofish29"]RPG IV中级的教程是不是比较偏重API方面的内容呀?[/quote:eeda2c6ef7]
RPG IV中级课程有很大部分是主讲Subfile（子文件），此外还有讲：显示文件记录格式关键字（就是你这个论题）、数组、Data Areas、子程序（Subrouting）、常见RPGLE问题处理和排错、DATE、TIME、Timestamp等函数使用、原型函数创建和调用（用户自定义的API）、使用子过程（Subprocedure）、RPG ILE环境下程序的处理。。。 系统API调用部分在AS10（RPG IV高级）里面讲解的很详细。 AS10里面有讲：系统API函数的调用、RPG IV高级应用、评价RPG IV的特点（事务处理、触发器、存储过程。。。）、RPG ILE环境的程序挂起和排错、公共用的API函数（CEE API）、使用WebFacing（简单讲就是将400应用进行B/S结构处理）。。。 |
| HAPPY潜龙 回复于：2004-11-19 13:05:10 |
| 哦不是吧！！！IBM 太垃圾了。
你可以把教材扫描一下吗？？ |
| bobofish29 回复于：2004-11-19 13:30:24 |
| 嚯嚯~~~~那个工作量就大啦!那么厚的一本书,要扫到什么时候呀!你看看有没有在培训中心的朋友,向他们要看看能不能拿到! |
| qingzhou 回复于：2004-11-19 13:34:51 |
| [quote:be405cf07b="bobofish29"]嚯嚯~~~~那个工作量就大啦!那么厚的一本书,要扫到什么时候呀!你看看有没有在培训中心的朋友,向他们要看看能不能拿到![/quote:be405cf07b]
一般不可能，现在IBM将400培训都统一给宇博公司做，我也想能弄个pdf回来，可嘿嘿。。。 哎。。。 AS06、AS07教材共4本厚厚的书，如何扫呀？ |
| thursday 回复于：2004-11-19 13:50:25 |
| 管的那么严阿？晕 |
| HAPPY潜龙 回复于：2004-11-19 13:57:04 |
| 就是了，期待有哪个老大无不怕万难，争取到或者自己辛苦制作出的时候可以共享一下。。。。 |
| bobofish29 回复于：2004-11-19 17:43:11 |
| [quote:de81cd1103="qingzhou"]
一般不可能，现在IBM将400培训都统一给宇博公司做，我也想能弄个pdf回来，可嘿嘿。。。 哎。。。 AS06、AS07教材共4本厚厚的书，如何扫呀？[/quote:de81cd1103] 我们上完培训课都是把教材拿回来的!他们没有要我们还他呀!报名费中包括教材的钱的! |
| bobofish29 回复于：2004-11-19 17:48:34 |
| [quote:df03f89e0f="qingzhou"]
可以采用“单页子文件”处理。。。 我们都知道，每个子文件的最大长度=9999，如果超过这个最大值，只能采用变通的方法来处理—单页子文件处理。 什么叫“单页子文件”？形象地讲就是子文件像一个在数据库文件..........[/quote:df03f89e0f] 这种处理方式我挺感兴趣的,能不能再具体点,要用到哪些键字或什么东东,最好能放个简单的代码出来看看!学习学习........ :em04: |
| windss 回复于：2004-11-19 23:49:20 |
| 老兄，你在北京哪上的啊。
我也刚上完，也是刚上完AS06AS07两门课。 |
| windss 回复于：2004-11-19 23:57:55 |
| [quote:a239f6f4ff="qingzhou"]
一般不可能，现在IBM将400培训都统一给宇博公司做，我也想能弄个pdf回来，可嘿嘿。。。 哎。。。 AS06、AS07教材共4本厚厚的书，如何扫呀？[/quote:a239f6f4ff] 不可能的啊，因为如果有PDF电子文档从培训公司泄露，则IBM会取消它的培训资格。所以宇博对电子文档管理很严。 宇博的人来我公司培训时也是如此。如果要从宇博那里买书，书的价格＝该课程的培训价格。应该是6000元左右/门。 |
| bobofish29 回复于：2004-11-21 23:23:35 |
| 楼上的,你是指如果要把书带回来的话,除了培训费用6000外还要另外交6000吗?我们当时培训就是直接把书带回来的! |
| ibmas400 回复于：2004-11-21 23:25:58 |
| [quote:d75a99a9f0="bobofish29"]楼上的,你是指如果要把书带回来的话,除了培训费用6000外还要另外交6000吗?我们当时培训就是直接把书带回来的![/quote:d75a99a9f0]
你误解qingzhou的意思了，他的意思是他的教材要留在他的公司使用，并不是说被IBM培训中心收回。。。 |
| thursday 回复于：2004-11-22 08:30:55 |
| 我想问一句，就是
C N99 WRITE WATFMT *等待屏幕显示 为什么要用指示器N99，有什么特殊的意义吗？ |
| winner_530 回复于：2004-11-22 09:48:59 |
| 现在都已经 RPG5了！
你们怎么还去培训 RPG4呢？！ |
| bobofish29 回复于：2004-11-22 21:50:21 |
| [quote:21a1fd8360="thursday"]我想问一句，就是
C N99 WRITE WATFMT *等待屏幕显示 为什么要用指示器N99，有什么特殊的意义吗？[/quote:21a1fd8360] N99是用户回车后执行该操作,如果用户F3=EXIT的话,就不用出现这个画面了! |
延伸阅读
文章来源于领测软件测试网 https://www.ltesting.net/