命令行CALL程序时传递数字参数总结

命令行CALL程序时传递数字参数总结

程序入口定义为数字类型时, 在call程序是会经常遇到如下err msg:

Decimal-data error occurred (C G D F).

设程序 PgmA 有参数 Parm1, Parm2：

1）parm1(7S 0) = 276，parm2(7S 2) = 15.73

传递方式：CALL  PGMA PARM('0000276'  '0001573')

2）parm1(7S 0) = -276，parm2(6S 2) = -15.73

传递方式：CALL  PGMA PARM('-000276'  '-01573')

(这个实验了,还是一直报错)

3）parm1(7P 0) = 276,  parm2(7P 2) = 15.73

传递方式：CALL  PGMA PARM( X'0000276F'  X'0001573F')

4）parm1(6P 0) =  276 , parm2(6P 2）=15.73

传递方式：CALL  PGMA PARM( X'F000276F'  X'F001573F')

5）parm1(7P 0) =  -276 , parm2(6P 2）=-15.73

传递方式：CALL  PGMA PARM( X'0000276B'  X'F001573B')

总结：

对于S类型的参数，只要按照字符串的形式，在没有数字的位置补0，不用输入小数点，就可以得到正确的结果，如果是负数，在第一位输入负号 - 即可，但是会占用一个数字位，7位的负数就只能输入6位数字了。

对于P类型的参数，数字部分按照S类型的一样输入，还需要在字符串前加 X，并且如果长度为奇数，需要给字符串加 F 后缀，如果长度为偶数，需要在字符串的前后都加 F。如果是负数的，需要把字符串后面的F变为B。（X表示按16进制取值，由于P类型的数据存储方式是半个字节存储一个数字，所以需要在前后加其它的字母补齐空位。）

Q, 好吧, 太麻烦了, 还不如将入口定义为char, 然后内部转换为number呢.
 FMT H  HKeywords++++++++++++++++++++++++++++++
        *************** Beginning of data *****
0001.00 H DFTACTGRP(*NO)                       
0002.00 DRPG23            PR                   
0003.00 D PARM1                          7P 0  
0004.00 D PARM2                          6S 2  
0005.00 DRPG23            PI                   
0006.00 D PARM1                          7P 0  
0007.00 D PARM2                          6S 2  
0008.00  /free                                 
0009.00   Dsply ('the Parm1 is '+%char(parm1));
0010.00   Dsply ('the Parm2 is '+%char(parm2));
0011.00   Eval *inlr=*on;                      
0012.00   Return;                              
0013.00  /end-free                             
        ****************** End of data ********

参考: