H DFTNAME(TESTMSG) DATEDIT(*YMD/)                                                              
     F**********  完了メッセージの表示 ********************************                             
     FTESTMSGFM CF   E             WORKSTN                                                          
     F*****************************************************************                             
     D MSR             S             80    DIM(3) CTDATA PERRCD(1)                                  
     D MS              S              4S 0                                                          
     D SNDPGMMSG       C                   CONST('QSYS/QMHSNDPM')                                   
     D QCPFMSG         C                   CONST('QCPFMSG   QSYS      ')                            
     D MSGDTALEN       S             10I 0 INZ(40)                                                  
     D PGMSTKCNT       S             10I 0 INZ(0)                                                   
                                                                                                    
     D APIERR          DS                                                                           
     D  GETBYT                 1      4B 0 INZ(160)                                                 
     D  AVLBYT                 5      8B 0 INZ(0)                                                   
     D  MSGID                  9     15                                                             
     D  MSGDTA                17    160                                                             
                                                                                                    
     C*( 初期画面 )                                                                                 
     C*----------------------------------------------------+                                        
     C     START         TAG                                                    |                   
     C                   EXFMT     DSPHEAD                                      |                   
     C*----------------------------------------------------+                                        
     C                   SETOFF                                       99                            
     C*( CF03 )- 終了                                                                               
     C     *IN03         IFEQ      *ON                                          CF03                
     C                   SETON                                        LR                            
     C                   RETURN                                                                     
     C                   END                                                    CF03                
     C*( 実行キー )                                                                                 
     C                   ADD       1             MS                                                 
     C     MS            IFGE      4                                                                
     C                   Z-ADD     1             MS                                                 
     C                   ENDIF                                                                      
     C                   EXSR      SNDMSG                                                           
     C                   GOTO      START                                                            
     C******************************************************                                        
     C     *INZSR        BEGSR                                                                      
     C******************************************************                                        
     C                   Z-ADD     0             MS                                                 
     C                   ENDSR                                                                      
     C******************************************************                                        
     C     SNDMSG        BEGSR                                                                      
     C******************************************************                                        
     C                   MOVEL     QCPFMSG       MSGFILLIB                                          
     C                   MOVEL     MSR(MS)       MSGDTA                                             
     C*----------------------------------------------------+                                        
     C                   CALL      SNDPGMMSG                                                        
     C                   PARM      'CPF9897'     MSGID             7                                
     C                   PARM                    MSGFILLIB        20                                
     C                   PARM                    MSGDTA                                             
     C                   PARM                    MSGDTALEN                                          
     C                   PARM      '*STATUS   '  MSGTYPE          10                                
     C                   PARM      '*EXT      '  PGMQUE           10                                
     C                   PARM                    PGMSTKCNT                                          
     C                   PARM                    MSGKEY            4                                
     C                   PARM                    APIERR                                             
     C*----------------------------------------------------+                                        
     C                   ENDSR                                                                      
** MSR                                                                                              
1 レコードが追加されました。                                                                        
1 レコードが変更されました。                                                                        
1 レコードが削除されました。