SNDPGMMSG的作用

sbpgypl

SNDPGMMSG的参数,和作用是?请高手指教一下,先谢了!

liu__jiang

SNDPGMMSG  MSGID(CPF989 MSGF(QCPFMSG) +                 
             MSGDTA(' 财产保管盘点表制作中，请稍待！ ...+ ...') TOPGMQ(*EXT) MSGTYPE(*STATUS)
按F1有很详细的说明的。

sbpgypl

CLP:            SNDPGMMSG  MSGID(&MSGID) MSGF(SDMSGF) MSGDTA(&MSGDTA)
DSP:                  
                          A          R FMTMSG                    SFL SFLMSGRCD(24)
                          A            DMKEY                     SFLMSGKEY
                          A            DMPGMQ                    SFLPGMQ
                          A          R FMTMSGC                   OVERLAY
信息几怎样显示到画面上的.
若:MSG=SSS0001
在DSP中是怎样知道要显示什么的?

xuguopeng

DDS:
0013.40      A*****************************************************************
0013.50      A          R MSGRCD                                               
0013.60      A                                      SFL                        
0013.70      A                                      SFLMSGRCD(24)              
0013.80      A            MSGKEY                    SFLMSGKEY                  
0013.90      A            PGMID                     SFLPGMQ                    
0014.00      A*****************************************************************
0014.10      A          R MSGCTL                                               
0014.20      A                                      SFLCTL(MSGRCD)            
0014.30      A                                      OVERLAY   
0014.40      A  98                                            
0014.50      AON98                                  SFLEND   
0014.60      A                                      PUTOVR   
0014.70      A                                      SFLDSP   
0014.80      A                                      SFLDSPCTL
0014.90      A                                      SFLINZ   
0015.00      A                                      SFLSIZ(10)
0015.10      A                                      SFLPAG(1)
0015.20      A            PGMID                     SFLPGMQ   


RPGLE中
0143.00 C*****************************************************
0144.00 C     SNDPGMQ       BEGSR                             
0145.00 C                   CALL      'SNDMSGQX'              
0146.00 C                   PARM                    ERRORMSG  
0147.00 C                   WRITE     MSGCTL                  
0148.00 C                   ENDSR                             
        ****************** End of data ***********************

CLP
0001.00 PGM  PARM(&ERRORMSG)                                                
0002.00 DCL VAR(&ERRORMSG) TYPE(*CHAR) LEN(20)                              
0003.00              SNDPGMMSG  MSGID(CPF989 MSGF(QCPFMSG) MSGDTA(&ERRORMSG
0004.00              ENDPGM                                                  
        ****************** End of data **************************************