PGM        PARM(&CMDPRM1 &RTNVAR)                                  
             DCL        VAR(&CMDPRM1) TYPE(*CHAR) LEN(21)                       
             DCL        VAR(&CMD) TYPE(*CHAR) LEN(10)                           
             DCL        VAR(&KWD) TYPE(*CHAR) LEN(10)                           
             DCL        VAR(&TYPE) TYPE(*CHAR) LEN(1)                           
             DCL        VAR(&RTNVAR) TYPE(*CHAR) LEN(2000)                      
                                                                                
             CHGVAR     VAR(&CMD) VALUE(%SST(&CMDPRM1 1 10))                    
             CHGVAR     VAR(&KWD) VALUE(%SST(&CMDPRM1 11 10))                   
             CHGVAR     VAR(&TYPE) VALUE(%SST(&CMDPRM1 21 1))                   
/*( テキスト )*/                                                                
             IF         COND(&TYPE *EQ 'C') THEN(DO)                            
             IF         COND((&KWD *EQ 'HNSFROM   ') *OR (&KWD *EQ +            
                          'SHFROM    ') *OR (&KWD *EQ 'TKFROM    ') +           
                          *OR (&KWD *EQ 'SRFROM    ')) THEN(DO)                 
             CHGVAR     VAR(&RTNVAR) VALUE(' から ')                            
             ENDDO                                                              
             ELSE       CMD(DO)                                                 
             CHGVAR     VAR(&RTNVAR) VALUE(' まで ')                            
             ENDDO                                                              
             RETURN                                                             
             ENDDO                                                              
                                                                                
             ENDPGM