admin 管理员组

文章数量: 887412


2024年1月14日发(作者:borderstyle设置边框样式的属性有哪些)

了解COBOL语言的字符串操作模式

COBOL语言中常用的字符串操作模式是什么?

什么是COBOL语言的字符串操作?

COBOL(cobol)语言的程序对输入的数据进行某种编辑处理,然后将结果输出到屏幕或文件中,这是处理的基础。这次介绍的字符串操作经常被用作编辑处理。

在这里,我们将首先介绍如何编写COBOL语言字符串操作的基本字符串的一部分并将其显示在屏幕上的过程,因此让我们了解如何编写和使用它。

如何写:

数据项(起始字符位置:[长度])

使用例:

使用示例是从WK-MOJI这一数据项的第1位中取出3个字符,并在屏幕上显示结果的程序。如本示例所示,如果您使用提取某个字符串的一部分的过程,例如,如果字符串由代码值和名称组成,您将能够仅提取代码值并将其用于下一个过程。

実行结果:

COBOL(cobol)语言中的一种字符串操作模式

既然您已经了解了如何编写COBOL语言的基本字符串操作,接下来我们将介绍字符串操作的模式。

COBOL语言的字符串操作主要分为四种模式: 1.字符串初始化,2.字符串分割,3.字符串连接,4.使用集体项目进行字符串操作。让我们按顺序来看看它的写法和使用方法。

怎么写1:初始化字符串

INITIALIZE数据项

使用例1:

使用示例是初始化“123456”的初始值设定的WK-MOJI的数据项的值,并在屏幕上显示结果的程序。在使用数据项进行编辑处理时,为了防止程序发生故障,通常也会像本使用例那样明确地初始化数据项。

実行结果1:

如何编写2:分割字符串

利用前面介绍的“字符串的一部分和检索处理”

使用例2:

使用示例是这样的程序:从WK-MOJI这一数据项的第1位中取出3个字符,从第4位中取出3个字符,并在屏幕上显示结果。在COBOL(cobol)语言中,可以很容易地实现这样一个数据项的分割和使用。

実行结果2:

如何编写3:连接字符串

STRING数据项1、数据项2・・DELIMITED BY SIZE

INTO数据项3[WITH POINT ER起始字符位置]

[结束字符串]

使用例3:

使用示例是将WK-MOJI 1、WK-MOJI 2这些字符串连接起来,存储在WK-MOJI中,然后在屏幕上显示结果的程序。通过COBOL(cobol)语言可以很容易地实现将多个数据项连接起来使用的方法。

実行结果3:

写法4:利用集体项目的字符串操作

01 集団项目

03 基本项目1

03 基本项目2 ・・

使用例4:

一个使用示例是一个程序,它将先前字符串的连接更改为使用组项。如本示例所示,COBOL语言允许您使用称为组项的数据。如果您知道某个数据是由多个数据项组成的,您可以通过这样定义组项来更容易地实现字符串操作,例如连接和分割字符串。

実行结果4:

COBOL(cobol)语言中字符串操作的基本事项和注意事项

关于取出部分字符的“数据项(开始字符位置:[长度])”的描述

字符之间的空白和换行,可以自由设置。

“起始字符位置”和“长度”必须大于或等于1。此外,“长度”可以省略,但省略时将被

视为指定到数据的末尾。

长度必须在数据项长度范围内。如果超出范围,则在运行时可能会出现意外错误。

关于连接字符串的“STRING数据项目1、数据项目2... DELIMITED BY SIZE INTO数据项目3[WITH POINT ER开始字符位置][END-STRING]”

字符之间的空白和换行,可以自由设置。

字符连接到数据项3的顺序是数据项1、数据项2...。此外,字符串只在字符适合数据项3的范围内连接。

[WITH POINT ER开始字符位置][END-STRING]可以省略。当[WITH POINT ER开始字符位置]被省略时,开始字符位置被视为指定了1。

字符串操作的COBOL程序的使用方法

您了解COBOL语言中字符串操作的基本编写和示例吗?最后,我将介绍字符串比较处理,它经常与重复处理结合使用。

如果您了解到目前为止介绍的写作模式,我认为这并不难。我们希望您加深理解,以便您可以将其用于自己的程序。

示例程序:

SQL

IDENTIFICATION DIVISION.

PROGRAM-ID. MOJI_SAMPLE06.

ENVIRONMENT DIVISION.

DATA DIVISION.

WORKING-STORAGE SECTION.

01 WK-MOJI PIC X(07) VALUE '123,456'.

01 WK-SUJI PIC 9.

PROCEDURE DIVISION.

PERFORM VARYING WK-SUJI FROM 1 BY 1

UNTIL WK-MOJI(WK-SUJI:1) = ','

END-PERFORM.

DISPLAY WK-MOJI(1:WK-SUJI - 1).

DISPLAY WK-MOJI(WK-SUJI + 1:).

STOP RUN.

END PROGRAM MOJI_SAMPLE06.

実行结果:

你觉得呢?在COBOL语言业务程序中经常使用对某些数据操作字符串的过程。特别是

使用集体项目的处理,在其他编程语言中并不常见,但在COBOL(cobol)语言中是经常使用的书写方式,希望大家一定要记住。

此外,如果这次介绍的处理模式可以组合使用,编程范围将扩大。我们希望您学习各种处理和模式,并将其应用于创建可以通过各种组合完成的程序。


本文标签: 字符串 使用 操作 数据项 字符