cobol问题：x型数据怎么判断是否“都是”数字？

另外，同一类型问题：x型数据怎么判断是否“有”数字？

2024-12-14 09:57:38

推荐回答（3个）

回答1：

01 PIC CHAR X(01).

IF CHAR IS NUMERIC
THEN ...
ELSE
...
END-IF.

numeric就是判断是否是数字的函数

回答2：

DATA DIVISION中的FILE SECTION里定义文件的field时，把相应的字段定义为数字型的就可以了。

比如FILE SAMPFILE中一个RECORD的长度是40，想把前五位读成数字型:

DATA DIIVISION.
FILE SECTION.

FD SAMPFILE.
01 SAMPFILE-REC.
05 SAMPFILE-NUM PIC 9(8).
05 FILLER PIC X(32).

回答3：

是不是可以用捕捉错误的方法：把它传给一个9型如果报错就不是如果不报错就都是数字