我在调用CALCULADOR程序时收到MCH1202消息。
但我尝试过更改类型数据的精度，但仍然保持不变。
我是cobol和IBMi的新手，我不知道如何得到这个错误，因为WRKSPLF中没有出现。
这是我的代码：
Columns . . . : 1 71 Browse REINALDO1/MODTLCOBOL
SEU==> CALCULADOR
FMT CB ......-A+++B+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
*************** Beginning of data *************************************
0001.00 IDENTIFICATION DIVISION.
0002.00 PROGRAM-ID. CALCULADOR.
0003.00 ENVIRONMENT DIVISION.
0004.00 DATA DIVISION.
0005.00 WORKING-STORAGE SECTION.
0006.00 77 WKS-NUM-1 PIC 9(5)V99.
0007.00 77 WKS-NUM-2 PIC 9(5)V99.
0008.00 77 WKS-RESULTADO PIC 9(5)V99.
0009.00 77 WKS-RESULTADO2 PIC 9(5)V99.
0010.00 ***********************************************************
0011.00 *******CUERPO DEL PROGRAMA *
0012.00 ***********************************************************
0013.00 PROCEDURE DIVISION.
0014.00 DISPLAY "CALCULADORA".
0015.00 DISPLAY "INGRESE EL NUMERO 1:".
0016.00 ACCEPT WKS-NUM-1.
0017.00 DISPLAY "INGRESE EL NUMERO 2:".
0018.00 ACCEPT WKS-NUM-2.
0019.00 ADD WKS-NUM-1 TO WKS-NUM-2 GIVING WKS-RESULTADO.
0020.00 DISPLAY WKS-RESULTADO.
0021.00 SUBTRACT WKS-NUM-1 FROM WKS-NUM-2 GIVING WKS-RESULTADO.
0022.00 MULTIPLY WKS-NUM-1 BY WKS-NUM-2 GIVING WKS-RESULTADO.
0023.00 DISPLAY WKS-RESULTADO.
0024.00 DIVIDE WKS-NUM-1 INTO WKS-NUM-2 GIVING WKS-RESULTADO.
0025.00 DISPLAY WKS-RESULTADO.
0026.00 MOVE WKS-NUM-1 TO WKS-RESULTADO2.
0027.00 MOVE 15 TO WKS-RESULTADO.
0028.00 DISPLAY WKS-RESULTADO.
0029.00 DISPLAY WKS-RESULTADO2.
0030.00 STOP RUN.
****************** End of data ****************************************
F3=Exit F5=Refresh F9=Retrieve F10=Cursor F11=Toggle F12=Cancel
F16=Repeat find F24=More keys
这是执行消息：
Display Program Messages
Job 294321/REINALDO/QPAD124020 changed by JOBMANAGER.
Job 294321/REINALDO/QPAD124020 changed by JOBMANAGER.
Job 294321/REINALDO/QPAD124020 changed by JOBMANAGER.
Job 294321/REINALDO/QPAD124020 changed by JOBMANAGER.
Job 294321/REINALDO/QPAD124020 changed by JOBMANAGER.
Job 294321/REINALDO/QPAD124020 changed by JOBMANAGER.
Job 294321/REINALDO/QPAD124020 changed by JOBMANAGER.
CALCULADORA
INGRESE EL NUMERO 1:
CALCULADOR awaiting reply for position(s) 1 - 7.
1
INGRESE EL NUMERO 2:
CALCULADOR awaiting reply for position(s) 1 - 7.
2
Message MCH1202 in CALCULADOR in REINALDO1 (C D F G).
Type reply, press Enter.
Reply . . .
F3=Exit F12=Cancel
按压"；G〃；返回相同的消息。如何调试此错误？
MCH1202-十进制数据错误。。。
这意味着你有字符数据(可能是空格x'40'(，应该是一个数字列(或者在你的情况下是变量(。
如果您在调试中查看变量，您会看到'1 '->x'F140404040'
我使用COBOL已经20年了，而且我从未在AS/400…上使用过
但我认为问题在于，您接受直接输入到数字变量中的输入。如果您使用00100，因为您的变量是用小数点后两位定义的，那么它可能会很好地工作。在十六进制中，您将看到x'F0F0F1F0F0'。
或者，将输入读取为字符变量并转换为数字。
当将基于字符的输入分配给我认为是分区十进制数据类型时，可以使用TRIM函数。
77 WKS-CH1 PIC X(7).
77 WKS-CH2 PIC X(7).
77 WKS-NUM-1 PIC 9(5)V99.
77 WKS-NUM-2 PIC 9(5)V99.
77 WKS-RESULTADO PIC 9(5)V99.
77 WKS-RESULTADO2 PIC 9(5)V99.
PROCEDURE DIVISION.
DISPLAY "CALCULADORA".
DISPLAY "INGRESE EL NUMERO 1:".
ACCEPT WKS-CH1.
DISPLAY "INGRESE EL NUMERO 2:".
ACCEPT WKS-CH2.
MOVE FUNCTION TRIM(WKS-CH1) TO WKS-NUM-1.
MOVE FUNCTION TRIM(WKS-CH2) TO WKS-NUM-2.
ADD WKS-NUM-1 TO WKS-NUM-2 GIVING WKS-RESULTADO.
最佳解决方案是使用ILE COBOL，这是STRSEU命令中的CBLLE类型。这种类型接受sintaxis中的TRIM功能关键字为"TRIM"；功能微调(可变("；。