如何将长字符串移动到变量cobol
您好,我正在学习在线cobol(CICS)我想做的是在trans名称后获得5个数字,在前5个数字后获得5个数字,然后我必须添加、sub、mul、div并显示它 这是密码如何将长字符串移动到变量cobol,cobol,Cobol,您好,我正在学习在线cobol(CICS)我想做的是在trans名称后获得5个数字,在前5个数字后获得5个数字,然后我必须添加、sub、mul、div并显示它 这是密码 ******************************************************* DATA DIVISION. WORKING-STORAGE SECTION.
*******************************************************
DATA DIVISION.
WORKING-STORAGE SECTION.
01 INBOUND-MESSAGE PIC X(06).
01 OUTBOUND-MESSAGE PIC X(80).
01 WS-VARIABLE.
05 WS-NUM1 PIC 9(5).
05 WS-NUM2 PIC 9(5).
05 WS-ADD PIC 9(10).
05 WS-SUB PIC 9(10).
05 WS-MUL PIC 9(15).
05 WS-DIV PIC 9(15).
*******************************************************
PROCEDURE DIVISION.
****TERIMA DATA DARI LUAR ****
EXEC CICS RECEIVE
INTO (INBOUND-MESSAGE)
END-EXEC.
EXEC CICS RECEIVE
INTO (INBOUND-MESSAGE)
END-EXEC.
MOVE INBOUND-MESSAGE(5:5) TO WS-NUM1.
MOVE INBOUND-MESSAGE(10:5) TO WS-NUM2.
ADD WS-NUM1 TO WS-NUM2 GIVING WS-ADD.
SUBTRACT WS-NUM1 FROM WS-NUM2 GIVING WS-SUB.
MULTIPLY WS-NUM1 BY WS-NUM2 GIVING WS-MUL.
DIVIDE WS-NUM1 BY WS-NUM2 GIVING WS-DIV.
MOVE 'HASIL JUMLAH: ' WS-ADD ' HASIL KURANG: ' WS-SUB
' HASIL KALI: ' WS-MUL ' HASIL BAGI: ' WS-DIV
TO OUTBOUND-MESSAGE.
EXEC CICS SEND
FROM (OUTBOUND-MESSAGE)
ERASE
END-EXEC.
EXEC CICS RETURN
END-EXEC.
问题是我想做的是展示
Hasil jumlah : ....
Hasil kurang : ....
Hasil kali : ....
hasil bagi : ....
我犯了个错误
“MOVE”语句无效。应为“TO”,但找到“WS-ADD”。该声明被放弃
我该怎么修?谢谢只有一个来源,可能有多个目标。
您可能需要查找语句。好的,我已经完成了,我可以问一下如何添加新行吗?因为现在我被卡住了,因为所有的单词都变成了一行,我希望是四行。如果这个答案对你有效,请接受它作为答案。当您想要有多行时,您可以通过在字符串中添加一个换行符
'\n'
来解决这个问题,但更可能的情况是您想要一个不同的EXEC CICS
,(实际上这不是一个COBOL问题),并且如果您没有可用文档的答案,可以创建一个新问题。