Chinaunix
标题:
call parameter
[打印本页]
作者:
hliu
时间:
2004-05-14 11:40
标题:
call parameter
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
时间:
2004-05-14 12:14
标题:
call parameter
在命令行输入call+F4可以看到它的格式,试一下就知道该怎么call了
作者:
hliu
时间:
2004-05-14 13:23
标题:
call parameter
我 知道是你说的那样做。
你能不能以我的程序call 一下加两个参数试一下,我调总是有问题。
作者:
hliu
时间:
2004-05-14 13:23
标题:
call parameter
我 知道是你说的那样做。
你能不能以我的程序call 一下加两个参数试一下,我调总是有问题。
作者:
as400qin
时间:
2004-05-14 13:30
标题:
call parameter
到parameter按F1看一下帮助
光标到Parameters输入一个“+”号,按执行,出现多行参数输入
作者:
hliu
时间:
2004-05-14 14:58
标题:
call parameter
谢谢,但传了两个参数10 5没反应,有时候却出现程序处理失败!!!
麻烦看一下程序有没有问题??
作者:
as400qin
时间:
2004-05-14 15:38
标题:
call parameter
看看这个吧
http://bbs.chinaunix.net/forum/viewtopic.php?p=1949718&highlight=传递方式#1949718
作者:
aeiou
时间:
2004-05-14 22:23
标题:
call parameter
原帖由 "hliu" 发表:
谢谢,但传了两个参数10 5没反应,有时候却出现程序处理失败!!!
麻烦看一下程序有没有问题??
程序除了两个参数之外,没有其他的输出,CALL之后计算机开始运行程序,运行完以后就完了,还指望它能有什么反应?
我大概测了一下,程序没问题的。你说的‘有时候却出现程序处理失败’可不可以明确一些,是什么情况下出现什么样的错误?
或者你可以DEBUG一下看看到底是怎么回事。
作者:
hliu
时间:
2004-05-17 20:30
标题:
call parameter
你能不能在这个程序上加点输出消息呢?让我有点感性的认识。
我刚刚学麻烦了,
还请问一下
要掌握cl rpg之类的要多长时间啊!!!
作者:
aeiou
时间:
2004-05-17 22:02
标题:
call parameter
简单点儿:
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))
[color=blue][b]SNDPGMMSG MSG(&REMAINDER)[/b][/color]
RETURN
ENDDO
IF (&X *EQ 49) THEN([color=blue][b]DO[/b][/color])
[color=blue][b]SNDPGMMAG MSG('NO REMAINDER')
RETURN
ENDDO [/b][/color]
CHGVAR &X (&X+1)
GOTO SCAN
ENDPGM
复制代码
麻烦点儿的,可以写个显示文件。
欢迎光临 Chinaunix (http://bbs.chinaunix.net/)
Powered by Discuz! X3.2