H DFTNAME(TESTSYSMSE) DATEDIT(*YMD/)                                                           
     F********** QSYSOPR へのメッセージ表示 ********************************                        
     F*                                                                                             
     F**********************************************************************                        
     D DSP40           S             40A                                                            
     D SHCODE          S             10A   INZ('NV-CH1    ')                                        
                                                                                                    
     C     'SHCODE='     CAT(P)    SHCODE:0      DSP40                                              
     C     DSP40         DSPLY     'QSYSOPR   '                                                     
     C                   SETON                                        LR                            
     C                   RETURN