DDS
FMT A* .....A*. 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8
*************** Beginning of data **********************************************
0001.00 *
0002.00 A DSPSIZ(24 80 *DS3)
0003.00 A CF03(03 'EXIT')
0004.00 A PAGEUP(51 'PAGEUP')
0005.00 A PAGEDOWN(52 'PAGEDOWN')
0006.00 *
0007.00 A R RCD01
0008.00 A 1 5'11111111111111111111'
0009.00 A 2 5'2222222222222222222222222222222'
0010.00 *
0011.00 A R RCD02 OVERLAY
0012.00 A 3 5'33333333333333333333'
0013.00 A 4 5'4444444444444444444444444444442'
0014.00 A 5 5'55555555555555555555'
0015.00 *
0016.00 A R RCD03 OVERLAY
0017.00 A 6 5'66666633333333333333'
0018.00 A 7 5'7777777777444444444444444444442'
0019.00 A 8 5'88888888555555555555'
0020.00 *
0021.00 A R RCD04 OVERLAY
0022.00 A 9 5'99999999911111111111'
0023.00 A 10 5'AAAAAAAAAAAAA222222222222222222'
0024.00 *
0025.00 A R RCD05 OVERLAY
0026.00 A 4 5'BBBBBBBBB33333333333'
0027.00 A 7 5'CCCCCCCCCCCCCCCCCC4444444444442'
****************** End of data *************************************************
RPG
FMT * *. 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8
*************** Beginning of data *****************************************
0001.00 *
0002.00 FDSPF06 CF E WORKSTN
0003.00 *
0004.00 C EXFMT RCD01
0005.00 C EXSR @CMD
0006.00 C EXFMT RCD02
0007.00 C EXSR @CMD
0008.00 C EXFMT RCD03
0009.00 C EXSR @CMD
0010.00 C EXFMT RCD04
0011.00 C EXSR @CMD
0012.00 C EXFMT RCD05
0013.00 C EXSR @CMD
0014.00 *
0015.00 C @CMD BEGSR
0016.00 C SELECT
0017.00 C WHEN *IN03 = *ON
0018.00 C EVAL *INLR=*ON
0019.00 C RETURN
0020.00 C WHEN *IN51 = *ON
0021.00 C 'PAGEUP' DSPLY
0022.00 C WHEN *IN52 = *ON
0023.00 C 'PAGEDOWN' DSPLY
0024.00 C ENDSL
0025.00 C ENDSR
****************** End of data ********************************************
几点说明：
1. 要注意RCD01显示时的画面变化
2. 要注意RCD05显示时的画面变化
3. 按PAGEUP, PAGEDOWN, F3。。。。
OVERLAY可以让DSPF中的Record重用，例如Header， Bottom。。。
PAGEUP,PAGEDOWN可以用来判断翻页。。。
（突然想到组合键可以用CF23，CF24，哈哈）
关于OVERLAY的一点补充：
【OVERLAY】只能确保没有任何重复行（一定是整行）的Record才会被保留到下一次显示！！！
例如：Record A用了1-5行的前10列
Record B仅仅用了第5行的第70列，显示一个字符‘X’，那么B将会把A完全覆盖！！！！
阅读(1683) | 评论(0) | 转发(0) |
