77家的会客厅²⁰¹⁰

设程序 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'F001573E') 

总结： 

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

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

---------------------以上转自 chinaunix 论坛--------------------------

另外，在RPGLE里定义数值型变量的时候，如果不指定为S型，而留空的话，定义的变量 就是P型的。

不管是在D表定义还是在C表定义（不过貌似C表不能指定类型，所以只能定义成P型）。

如果想用S型，在D表定义的时候，一定要加上“S”