call parameter

hliu

PGM (&INPUT &REMAINDER)   /*  SEARCH  */
             DCL &INPUT *CHAR LEN(50)
             DCL &REMAINDER *CHAR LEN(50)
             DCL &X *DEC LEN(2 0) VALUE(03)
             DCL &L *DEC LEN(2 0)   /*  REMAINING LENGTH  */
     SCAN:   IF (%SST(&INPUT &X 1) *EQ '.') THEN(DO)
                 CHGVAR VAR(&L) VALUE(50-&X)
                 CHGVAR VAR(&X) VALUE(&X+1)
                 CHGVAR VAR(&REMAINDER) VALUE(%SST(&INPUT &X &L))
                 RETURN
                 ENDDO
             IF (&X *EQ 49) THEN(RETURN)
             CHGVAR &X (&X+1)
             GOTO SCAN
             ENDPGM
请问call是应该如何cal 啊！！！谢谢

as400qin

在命令行输入call+F4可以看到它的格式，试一下就知道该怎么call了

hliu

我 知道是你说的那样做。
你能不能以我的程序call 一下加两个参数试一下，我调总是有问题。

hliu

我 知道是你说的那样做。
你能不能以我的程序call 一下加两个参数试一下，我调总是有问题。

as400qin

到parameter按F1看一下帮助
光标到Parameters输入一个“＋”号，按执行，出现多行参数输入

hliu

谢谢，但传了两个参数10 5没反应，有时候却出现程序处理失败！！！
麻烦看一下程序有没有问题？？

as400qin

看看这个吧
http://bbs.chinaunix.net/forum/viewtopic.php?p=1949718&highlight=传递方式#1949718

aeiou

原帖由 "hliu" 发表：
谢谢，但传了两个参数10 5没反应，有时候却出现程序处理失败！！！
麻烦看一下程序有没有问题？？

程序除了两个参数之外，没有其他的输出，CALL之后计算机开始运行程序，运行完以后就完了，还指望它能有什么反应？

我大概测了一下，程序没问题的。你说的‘有时候却出现程序处理失败’可不可以明确一些，是什么情况下出现什么样的错误？

或者你可以DEBUG一下看看到底是怎么回事。

hliu

你能不能在这个程序上加点输出消息呢？让我有点感性的认识。
我刚刚学麻烦了，
还请问一下
要掌握cl rpg之类的要多长时间啊！！！

aeiou

简单点儿：

1. PGM (&INPUT &REMAINDER) /* SEARCH */
   
2. DCL &INPUT *CHAR LEN(50)
   
3. DCL &REMAINDER *CHAR LEN(50)
   
4. DCL &X *DEC LEN(2 0) VALUE(03)
   
5. DCL &L *DEC LEN(2 0) /* REMAINING LENGTH */
   
6. SCAN: IF (%SST(&INPUT &X 1) *EQ '.') THEN(DO)
   
7. CHGVAR VAR(&L) VALUE(50-&X)
   
8. CHGVAR VAR(&X) VALUE(&X+1)
   
9. CHGVAR VAR(&REMAINDER) VALUE(%SST(&INPUT &X &L))
   
10. 
    
11. [color=blue][b]SNDPGMMSG MSG(&REMAINDER)[/b][/color]
    
12. 
    
13. RETURN
    
14. ENDDO
    
15. IF (&X *EQ 49) THEN([color=blue][b]DO[/b][/color])
    
16. 
    
17. [color=blue][b]SNDPGMMAG MSG('NO REMAINDER')
    
18. RETURN
    
19. ENDDO [/b][/color]
    
20. 
    
21. CHGVAR &X (&X+1)
    
22. GOTO SCAN
    
23. ENDPGM
    

复制代码

麻烦点儿的，可以写个显示文件。