H DATEDIT(*YMD/) DFTNAME(TESTTRIM2)                                                            
     F********** TRIM ‚̃eƒXƒg *********************************************                        
     F*                                                                                             
     F**********************************************************************                        
     D VALUE           S             10A                                                            
     D FILE            S             10A                                                            
     D FILLIB          S             10A                                                            
     D CMD             S             80A                                                            
                                                                                                    
     C     *ENTRY        PLIST                                                                      
     C                   PARM                    FILFILLIB        20                                
     C                   MOVEL(P)  FILFILLIB     FILE                                               
     C                   MOVE      FILFILIB      FILLIB           10                                
     C     'CRTPF FILE(' CAT(P)    FILLIB        CMD                                                
     C                   CAT       FILLIB:0      CMD                                                
     C                   CAT       '/':0         CMD                                                
     C                   CAT       FILE:0        CMD                                                
     C                   CAT       ')':0         CMD                                                
      /FREE                                                                                         
        CMD = 'CRTPF FILE(' + %TRIMR(%SUBST(FILLIB:11:10)) + '/' +                                  
                %TRIMR(%SUBST(FILLIB:1:10));                                                        
      /END-FREE                                                                                     
     C     VALUE         DSPLY                   ANS               1                                
     C                   SETON                                        LR                            
     C                   RETURN