如何传参数

skyone1981

C     *ENTRY        PLIST                                            
C                   PARM                    a                     8 0   
C                   PARM                    b                     4      
C                   PARM                    c                      6 0   
C                   PARM                    d                     2



CALL PGM(AAA) PARM(35198524 'AAAA' 417693 'AA')



出错   Decimal-data error occurred (C G D F).  
Cause . . . . . :   RPG procedure AAA in program BBB/AAA found a        
  decimal-data error at statement 350. A packed or zoned value does not      
  contain valid numeric data.  A digit and/or sign is not valid.              
Recovery  . . . :   Contact the person responsible for program maintenance to
  determine the cause of the problem. A response of 'D' will cause an RPG     
  formatted dump which may be useful in determining which field has the      
  decimal-data error. However, it may be an intermediate value that has the   
  error, if the error occurred in an expression.                              
Possible choices for replying to message . . . . . . . . . . . . . . . :      

传数字参数出错,是否要在文件中定义什么,请高手指点!

Fair_man

CALL PGM(AAA) PARM(X'035198524F'  'AAAA'  X'0417693F'  'AA')

ibmas400

http://bbs.chinaunix.net/forum/viewtopic.php?t=294411

passthru

在北美许多程序员喜欢用FDA进行程序间参数传递。这就不会发生上诉问题。

span1024

通过交互式方式直接调用还有一种方法哈:

把数值参数定义成长度(15 5),就可以直接输入参数调用了哈.

把你的程序改改:
C     *ENTRY        PLIST                                             
C                   PARM                    a                    15 5     
C                   PARM                    b                     4      
C                   PARM                    c                    15  5
C                   PARM                    d                     2

再按你的方法调用:
CALL PGM(AAA) PARM(35198524 'AAAA' 417693 'AA')

应该没有问题的哈.

skyone1981

谢谢各位

passthru

还有一种方式：

在D表中定义一个变量组与调用参数一致。就可以在call直接使用。这样就不用考虑x(    )问题了。