https://vivu.tv/what-does-pic-x-mean-in-cobol/