CMD        PROMPT('FTP によるファイル送信 ')                       
             PARM       KWD(FILE) TYPE(FILE) PROMPT(' ファイル ')               
 FILE:       QUAL       TYPE(*NAME) LEN(10) MIN(1)                              
             QUAL       TYPE(*NAME) LEN(10) DFT(*LIBL) +                        
                          SPCVAL((*LIBL) (*CURLIB)) +                           
                          PROMPT(' ライブラリー ')                              
             PARM       KWD(MBR) TYPE(*NAME) LEN(10) DFT(*FIRST) +              
                          SPCVAL((*FIRST)) PROMPT(' メンバー ')                 
             PARM       KWD(TOADDRESS) TYPE(*CHAR) LEN(15) +                    
                          DFT('192.168.1.1') +                                  
                          PROMPT(' 相手先 IP アドレス ')                        
             PARM       KWD(TOFILE) TYPE(*CHAR) LEN(128) +                      
                          CASE(*MIXED) PROMPT(' 相手先ファイル・パス ')         
             PARM       KWD(USER) TYPE(*CHAR) LEN(13) DFT(*NONE) +              
                          SPCVAL((*NONE)) CASE(*MIXED) +                        
                          PROMPT(' 遠隔ユーザー ID')                            
             PARM       KWD(PASSWORD) TYPE(*CHAR) LEN(13) DFT(*NONE) +          
                          SPCVAL((*NONE)) CASE(*MIXED) +                        
                          PROMPT(' 遠隔パスワード ')                            
             PARM       KWD(CMD) TYPE(*CHAR) LEN(3) RSTD(*YES) +                
                          DFT(PUT) VALUES(GET PUT) +                            
                          PROMPT(' 送信または受信 ')                            
             PARM       KWD(LOG) TYPE(*CHAR) LEN(4) RSTD(*YES) +                
                          DFT(*NO) VALUES(*YES *NO) PROMPT('LOG 表示 ')