H DFTNAME(TESTMAX) DATEDIT(*YMD/)                                                              
     F******** %MAX ‚̃eƒXƒg ********************************************                           
     F*                                                                                             
     F*****************************************************************                             
     D SU1             S              4S 0 INZ(30)                                                  
     D SU2             S              4S 0 INZ(78)                                                  
     D SU3             S              4S 0 INZ(45)                                                  
     D MAX             S              4S 0                                                          
     D MAXC            S              4A                                                            
     D ANS             S              1A                                                            
                                                                                                    
      /FREE                                                                                         
        MAX  = %MAX(SU1: SU2: SU3);                                                                 
        MAXC = %EDITC(MAX:'Z');                                                                     
        DSPLY ('MAX = ' + MAXC) '' ANS;                                                             
      /END-FREE                                                                                     
     C                   SETON                                        LR