https://ruclips.ru/en/watch/lzmLaI5AWDM/string-manipulation-in-cobol-part-1