请教：参数传递问题

huaimie

做一个COMMAND，其中有个参数设置AAA 的属性MIN(1) MAX(10) *CHAR
对应的程序中应当怎么定义对应的参数？
语言用CLP CLPLE RPG RPGLE C 都可

qingzhou

找个例子参照一下应该可以知道了。

1. Columns . . . :    1  71           Browse                         LIU/QFTPSRC
   
2. SEU==>;                                                                  FTPGET
   
3. FMT **  ...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7  
   
4.         *************** Beginning of data *************************************
   
5. 0001.00              CMD        PROMPT(' FTP  Communication  Service ')                     
   
6. 0002.00                                                                        
   
7. 0003.00              PARM       KWD(RMTSYS) TYPE(*CHAR) LEN(15) REL(*NE ' ') +  
   
8. 0004.00                           SPCVAL(('XXX.XXX.XXX.XXX') +                    
   
9. 0005.00                           ('XXX.XXX.XXX.XXX') ('XXX.XXX.XXX.XXX')) +      
   
10. 0006.00                           MIN(1) MAX(1) PROMPT(' REMOTE SYSTEM ')        
    
11. 0007.00                                                                        
    
12. 0008.00              PARM       KWD(FROMFILE) TYPE(FROMFILE) MIN(1) MAX(1) +   
    
13. 0009.00                           PROMPT(' FROM  FILE ')                    
    
14. 0010.00  FROMFILE:   QUAL       TYPE(*NAME) LEN(10) MIN(1)                     
    
15. 0011.00              QUAL       TYPE(*NAME) LEN(10) MIN(1) +                    
    
16. 0012.00                           PROMPT(' LIBRARY ')                     
    
17. 0013.00                                                                        
    
18. 0014.00              PARM       KWD(FROMMBR) TYPE(*CHAR) LEN(10) +              
    
19. 0015.00                           SPCVAL((*NONE)) MIN(1) MAX(1) +               
    
20. 0016.00                           PROMPT(' FROM  MEMBER ')                    
    
21. 0017.00                                                                        
    
22. 0018.00              PARM       KWD(TOFILE) TYPE(TOFILE) MIN(1) MAX(1) +        
    
23. 0019.00                           PROMPT(' TO  FILE ')                     
    
24. 0020.00  TOFILE:     QUAL       TYPE(*NAME) LEN(10) MIN(1)                     
    
25. 0021.00              QUAL       TYPE(*NAME) LEN(10) DFT(*LIBL) +               
    
26. 0022.00                           SPCVAL((*LIBL)) PROMPT(' LIBRARY ')      
    
27. 0023.00                                                                        
    
28. 0024.00              PARM       KWD(TOMBR) TYPE(*CHAR) LEN(10) DFT(*FROMMBR) +  
    
29. 0025.00                           SPCVAL((*FRMMBR)) MIN(0) MAX(1) +                                                           
    
30. 0026.00                           PROMPT(' TO MEMBER ')                     
    
31. 0027.00                                                                        
    
32. 0028.00              PARM       KWD(MBROPT) TYPE(*CHAR) LEN(4) RSTD(*YES) +   
    
33. 0029.00                           DFT(*NO) VALUES(*YES *NO) MIN(0) MAX(1) +   
    
34. 0030.00                           PROMPT(' RECORD CHANGE ')                 
    
35. 0031.00                                                                        
    
36. 0032.00              PARM       KWD(LOGFILE) TYPE(LOGFILE) MIN(1) MAX(1) +     
    
37. 0033.00                           PROMPT(' LOG FILE ')                  
    
38. 0034.00  LOGFILE:    QUAL       TYPE(*NAME) LEN(10) DFT(FTPLOG)                                                               
    
39. 0035.00              QUAL       TYPE(*NAME) LEN(10) DFT(QTEMP) +               
    
40. 0036.00                           PROMPT(' LIBRARY ')                     
    
41.         ****************** End of data ****************************************

复制代码