COBOL子串在两个有限点之间

Question

我知道string_variable(start:length)可以用来获得给定起点和子串长度的字符串的子串,但是,我发现我经常需要在'start'和'end'点之间得到一个子串.

虽然我知道我总能做到这一点:

SUBTRACT start FROM end GIVING len
string(start:len)

每次我编写经常使用此功能的程序时,必须这样做是很麻烦的.是否有更快/内置的方法来实现这一目标？

Answer 1

怎么样？

    move str (start-pos : end-pos - start-pos + 1) to ...

您可以从最后一个减去第一个,但您需要添加1才能获得正确的长度.

STRING是一个语句的名字,因为是START和END被保留.LENGTH是一个函数名称.我避免那些看起来像代码的东西.