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 in this format: isCOBOL release yyyyR9 build#999.99-yyyymmdd-99999 |