cobol怎么截取字符串后4位-开发者知识库平台

cobol怎么截取字符串后4位

COBOL

915

2023/10/10 20:34:58

栏目: 编程语言

在COBOL中，你可以使用FUNCTION函数来截取字符串的后4位。下面是一个例子：

IDENTIFICATION DIVISION.
PROGRAM-ID. STRING-PROCESSING.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 INPUT-STRING       PIC X(10) VALUE 'HELLO WORLD'.
01 OUTPUT-STRING      PIC X(4).
PROCEDURE DIVISION.
MOVE FUNCTION REVERSE(INPUT-STRING) TO OUTPUT-STRING.
DISPLAY 'Original String: ' INPUT-STRING.
DISPLAY 'Last 4 characters: ' OUTPUT-STRING.
STOP RUN.

在上面的示例中，我们使用REVERSE函数将输入字符串反转，然后将反转后的字符串的前4个字符赋值给OUTPUT-STRING。最后，我们将原始字符串和截取后的字符串进行显示。

输出结果将是：

Original String: HELLO WORLD
Last 4 characters: DLRO

请注意，这只是一种截取后4位的方法之一。在实际开发过程中，你可以根据具体需求使用不同的方法。

辰迅云「云服务器」，即开即用、新一代英特尔至强铂金CPU、三副本存储NVMe SSD云盘，价格低至29元/月。点击查看>>

cobol怎么截取字符串后4位

最新知识库

相关标签