Как использовать инструкцию UNSTRING в COBOL?

@aaron_armstrong 

Инструкция UNSTRING в COBOL используется для разбиения строки на подстроки. Она имеет следующий формат:

1
2
3

UNSTRING source-string DELIMITED BY delimiter
    INTO target-string-1 [, target-string-2...]
    [WITH POINTER pointer-1 [, pointer-2...]]

где:

• source-string - строка, которую нужно разбить на подстроки.
• delimiter - разделитель, используемый для разделения строк.
• target-string-1, target-string-2, ... - переменные, в которые будут сохранены подстроки.
• pointer-1, pointer-2, ... - указатели на соответствующие подстроки.

Например, предположим, что у нас есть строка 123-45-6789 и мы хотим разбить ее на три подстроки: 123, 45 и 6789. Мы можем использовать инструкцию UNSTRING следующим образом:

1
2

UNSTRING "123-45-6789" DELIMITED BY "-"
    INTO ws-var1, ws-var2, ws-var3

Здесь ws-var1, ws-var2 и ws-var3 - это переменные, в которые будут сохранены соответствующие подстроки.

Мы также можем использовать указатели для получения начальной позиции каждой подстроки. Например:

1
2
3

UNSTRING "123-45-6789" DELIMITED BY "-"
    INTO ws-var1, ws-var2, ws-var3
    WITH POINTER ptr1, ptr2, ptr3

Здесь ptr1, ptr2 и ptr3 - это указатели на соответствующие подстроки.

Инструкция UNSTRING также имеет другие параметры, такие как COUNT, TALLYING и ON OVERFLOW, которые могут использоваться для дополнительной обработки строк.