CALL "C$VERSION" USING version |
version | PIC X(n) | After this routine has been called this data item contains the isCOBOL version framework. |
ACCEPT version FROM ENVIRONMENT "runtime.version" |
*> define str1 as pic x(n) call "c$version" using str1 *> the value of str1 will be like: isCOBOL release 2019 R1 build#977.10-20190516-27629 |