在dspf文件中可以使用以下的两中方法来显示msg信息:
1.直接使用字段级关键字MSGID(msg_前三位代码 msg_后四位代码 msgfile);
2.使用msgsubfile来显示msg信息;
这两种方法各有所长,使用第一种情况方便但是它只能显示当msg信息的前80位(除非定义多个行),而第二中比较麻烦,需要使用到qmhsndpm或sndpgmmsg,但是这种方法能将msg信息都显示出来,因为这种方式使用的是subfile的方法.
例子1:
dsp1:
0001.00 A R DSP
0001.01 A MSGID 4A H
0001.02 A 22 2'F3=EXIT'
0001.03 A COLOR(BLU)
0001.04 A 22 20'F5=REFRESH'
0001.05 A COLOR(BLU)
0001.06 A 22 31'F6=CREATE'
0001.07 A COLOR(BLU)
0001.08 A 22 41'F7=REFER NAME '
0001.09 A COLOR(BLU)
0001.10 A 22 56'F9=CURSOR'
0001.11 A COLOR(BLU)
0001.12 A MSG 70A O 24 3MSGID(MSG &MSGID qcpfmsg)
.....
例子2:
dspf2
A*%%TS SD 20090504 103832 REL-V5R3M0 5722-WDS
A*%%EC
A DSPSIZ(24 80 *DS3)
A R MSF SFL
A*%%TS SD 20090504 103832 REL-V5R3M0 5722-WDS
A SFLMSGRCD(24)
A KEY SFLMSGKEY
A PGMQ SFLPGMQ(10)
A R MSFC SFLCTL(MSF)
A TEXT('y')
A SFLDSP
A SFLDSPCTL
A SFLINZ
A N04 SFLEND
A SFLSIZ(0002)
A SFLPAG(0001)
A PGMQ SFLPGMQ(10)
使用qmhsndpm的程序:
D DS
D stck 1 4B 0
D LEN 5 8B 0
D ERR 9 12B 0
D
D
c
c *entry plist
c parm msgid 7
**msgfile_libname+msgfile
c parm msgfile 20
c parm PGM 10
c*
c movel '*DIAG' @TYPE 10
c MOVEL '*LIBL' @LIB 10
c MOVE @LIB MSGF
c MOVEL ' ' KEY 4
c MOVEL ' ' DTA 100
C*
C CALL 'QMHSNDPM'
C PARM MSGID
C PARM MSGFILE
C PARM DTA
C PARM LEN
c parm type
C parm pgm
c parm stck
c parm key
c parm err
c eval *inlr = '1'
注: 有问题的地方请大侠指正.谢谢
阅读(2356) | 评论(0) | 转发(0) |