Dúvida COBOL - Percorrer STRING

[ds_2017]

Boa noite,

Tenho uma string com vários valores no seu comprimento, onde pretendo utilizar esses valores para concatenar numa variável auxiliar.

Por exemplo:

Tenho a string WS-STRING = 'AAABBBCCCDDDEEEFFF'

De que forma posso ler até ao fim esta string em Cobol , de modo a conseguir retirar o AAA, BBB, CCC, DDD, EEE e FFF ? Esta string pode variar em termos de comprimento, mas o conteúdo que pretendo retirar é sempre um valor de 3 caracteres (por exemplo AAA). Por cada valor que vai retirando o objetivo é ir concatenando na variável auxiliar, separando cada valor por ';' .


O resultado final esperado será:

WS-VARIAVEL-AUX = 'AAA; BBB; CCC; DDD; EEE; FFF.'

Qual a forma mais eficiente para este tipo de concatenação?