Подстрока COBOL между двумя конечными точками

Question

Я понимаю, что string_variable(start:length) можно использовать для получения подстроки строки с заданной начальной точкой и длиной подстроки, однако я обнаружил, что мне часто нужно получить подстроку между «началом» и «концом»точка.

Хотя я знаю, что всегда мог бы сделать это:

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 - это имя функции.Я избегаю тех, которые похожи на код.