rpg怎么取得一个变量的位数

liangtongrui

rt

fxf_china

*..1....+....2....+....3....+....4....+....5....+....6....+....7...+....
D*Name++++++++++ETDsFrom+++To/L+++IDc.Keywords+++++++++++++++++++++++++
D num1 S 7P 2
D NUM1_LEN C %len(num1)
D NUM1_DECPOS C %decpos(num1)
D num2 S 5S 1
D num3 S 5I 0 inz(2)
D chr1 S 10A inz(’Toronto ’)
D chr2 S 10A inz(’Munich ’)
D ptr S *
* Numeric expressions:
/FREE
num1 = %len(num1); // 7
num1 = %decpos(num2); // 1
num1 = %len(num1*num2); // 12
num1 = %decpos(num1*num2); // 3
// Character expressions:
num1 = %len(chr1); // 10
num1 = %len(chr1+chr2); // 20
num1 = %len(%trim(chr1)); // 7
num1 = %len(%subst(chr1:1:num3) + ’ ’ + %trim(chr2));// 9
// %len and %decpos can be useful with other built-in functions:
// Although this division is performed in float, the result is
// converted to the same precision as the result of the eval:
// Note: %LEN and %DECPOS cannot be used directly with %DEC
// and %DECH, but they can be used as named constants
num1 = 27 + %dec (%float(num1)/num3 : NUM1_LEN : NUM1_DECPOS);
// Allocate sufficient space to hold the result of the catenation
// (plus an extra byte for a trailing null character):
num3 = %len (chr1 + chr2) + 1;
ptr = %alloc (num3);
%str (ptr: num3) = chr1 + chr2;
/END-FREE


COPY FROM "ILE RPG Reference"  自己去下载

liangtongrui

谢谢
我想问的是在RPG里

roden

1.确定变量类型;
2.如果是字符型,要确定是左对齐,还是右对齐;
3.使用CHECK
(1)如果是数字型,先赋给一个字符变量W#CHAR
        '0'        CHECK         W#CHAR            I      
  I为数字型,是第一个非0的位置(从左到右)
(2)如果是字符型,右对齐
        ' '        CHECK         W#CHAR            I      
  I为数字型,是第一个非空的位置(从左到右)
   如果是字符型,左对齐
        ' '        CHECKR         W#CHAR            I      
  I为数字型,是第一个非空的位置(从右到左)
4.剩下的很好计算了