请问RPG有无可判断一个字符串是否由数字组成的函数？

pbabc

请问RPG有无可判断一个字符串是否由数字组成的函数？
有这个类似 int isnumber(char *) 功能吗？  

rudy5

testn

pbabc

to rudy5: 我试了试，好像不行啊！


movel  '123123' wwtest           
testn                  wwtest           717273

movel  '12*123' wwtest2         
testn                  wwtest           747576

那几个指示器都是 OFF 啊！

有无办法测试 wwtest 是否全由数字组成呢？？

hsiang_wang

可以用0-9去扫描字符串！

magket

楼上的，服了。

hsiang_wang

是罗嗦点，但也是一种方法！

winner_530

好像是没有什么比较省事儿的好方法！不行就，如果是PF就在字段定义时设置成S或P型，要是在现实文件中就干脆定义成3、6、9这样不就只能输入数字了吗？！

pjqq

暗暗

pjqq

可以把它move 给一个数字变量
加个指示灯

╰●-●╯

*...1....+....2....+....3....+....4....+....5....+....6....+....7...
     CL0N01N02N03Factor1+++OpcdeFactor2+++ResultLenDHHiLoEqComments++++++
     C*
     C*  The field values are FLDA = 123, FLDB = 1X4, FLDC = 004,
     C*  FLDD = bbb, FLDE = b1b3, and FLDF = b12.
     C*
     C*  Indicator 21 is set on because FLDA contains all numeric
     C*  characters.
     C                     TESTN          FLDA       21
     C*  Indicator 22 is set on because FLDA contains all numeric
     C*  characters.  Indicators 23 and 24 remain off.
     C                     TESTN          FLDA       222324
     C*  All indicators are off because FLDB does not contain valid
     C*  numeric data.
     C                     TESTN          FLDB       252627
     C*  Indicator 28 is set on because FLDC contains valid numeric data.
     C*  Indicators 29 and 30 remain off.
     C                     TESTN          FLDC       282930
     C*  Indicator 33 is set on because FLDD contains all blanks.
     C*  Indicators 31 and 32 remain off.
     C                     TESTN          FLDD       313233
     C*  Indicators 34, 35, and 36 remain off.  Indicator 35 remains off
     C*  off because FLDE contains a blank after a digit.
     C                     TESTN          FLDE       343536
     C*  Indicator 38 is set on because FLDF contains leading blanks and
     C*  low order digits.  Indicators 37 and 39 remain off.
     C                     TESTN          FLDF       373839


應該可以，再試試看唄！