H DFTNAME(TESTCHR3) DATEDIT(*YMD/) BNDDIR('QC2LE')                                             
     D ZONE6           S              6S 3 INZ(6.25)                                                
     D PACK7           S              7P 2 INZ(7.48)                                                
     D CHR10           S             10A                                                            
     D DSP40           S             40A                                                            
                                                                                                    
     D INFDS_THIS     SDS                                                                           
     D  RUN_DATE             276    281S 0                                                          
                                                                                                    
      /FREE                                                                                         
        DSP40 = ' 今日は 20' + %SUBST(%CHAR(UDATE):1:2) + ' 年 ' +                                  
                 %SUBST(%CHAR(UDATE):3:2) + ' 月 ' +                                                
                 %SUBST(%CHAR(UDATE):5:2) + ' 日です。 ';                                           
      /END-FREE                                                                                     
     C     DSP40         DSPLY                   ANS               1                                
     C                   SETON                                        LR                            
     C                   RETURN