- 论坛徽章:
- 0
|
回复 2# pacman2000
能举个例子么 我如下方式写 还是得不到
----------------------------------------------
Program: TESTRPG Library: LIBKWPT Module: TESTRPG
1 D RC S 1A INZ('A')
2 D R S 1A
3 D
4 D TESTC PR EXTPROC('TESTC')
5 D RETURNCODE 1A
6 D
7 /free
8 TESTC(RC) ;
9 /end-free
10 C dsply RC
11 C dsply R
12 C
13 C
14 C SETON
15 C RETURN
Bottom
Debug . . .
F3=End program F6=Add/Clear breakpoint F10=Step F11=Display variable
F12=Resume F17=Watch variable F18=Work with watch F24=More keys
RC = 'A'
-------------------------------------------------------
2
3 char TESTC(char rc)
4 {
5
6 printf("return code:%s" , rc) ;
7
8 rc = 'R' ;
9
10 printf("return code:%s" , rc) ;
11
12 return rc;
13 }
---------------------------------------------------------------
|
|