Returns information about the operating system environment.
call "CBL_GET_OS_INFO" using parameter-block
returning status-code
01 cblt-os-info-params typedef. 03 cblte-osi-length cblt-x2-compx. *> pic x(2) comp-x value 28. 03 cblte-osi-os-type cblt-x1-compx. *> pic x comp-x. 03 cblte-osi-os-version cblt-x4-compx. *> pic x(4) comp-x. 03 cblte-osi-dbcs-support cblt-x1-compx. *> pic x comp-x. 03 cblte-osi-char-coding cblt-x1-compx. *> pic x comp-x. 03 cblte-osi-country-id cblt-x2-compx. *> pic x(2) comp-x. 03 cblte-osi-code-page cblt-x2-compx. *> pic x(2) comp-x. 03 cblte-osi-process-type cblt-x1-compx. *> pic x comp-x. 03 cblte-osi-rts-capabilities cblt-x4-compx. *> pic x(4) comp-x. 03 cblte-osi-product cblt-x2-compx. *> pic x(2) comp-x. 03 cblte-osi-product-version cblt-x2-compx. *> pic x(2) comp-x. 03 cblte-osi-product-revision cblt-x2-compx. *> pic x(2) comp-x. 03 cblte-osi-product-sp cblt-x2-compx. *> pic x(2) comp-x. 03 cblte-osi-fixpack cblt-x2-compx. *> pic x(2) comp-x.
| 0 | if DBCS validation unsupported |
| 1 | if DBCS validation supported |
| 0 | if PIC N data-type unsupported |
| 1 | if PIC N data-type supported |
| 0 | ASCII |
| 1 | Shift-JIS |
| 2 | EUC Japan |
| 3 | BIG-5 (Traditional Chinese) |
| 4 | 5550 (Traditional Chinese) |
| 5 | GB (Simplified Chinese) |
| 6 | KS-CODE (Korean) |
| 7 | PC-CODE (Korean) |
| 8 | EUC Taiwan |
| 9 | Other EUC locales |
UNIX: Reserved; set to zero.
Windows: Country code. See your operating system documentation for an explanation of country codes.
UNIX: Reserved; set to zero.
Windows: Code page. See your operating system documentation for an explanation of code page codes.
UNIX: Reserved; undefined.
| 0 | Process is running in a full screen session |
| 3 | Process is running as a true graphical application |
| Bit | Description |
|---|---|
| 0 |
multi-threading multi-threaded rts |
| 1 | Mainframe offloading capabilities, namely mainframe pointer emulation |
| 2 | 64-bit capability; the run-time system supports the running of 64-bit applications |
| 3 | Indicates whether the program is running under the control of Enterprise Server |
| 4 | Indicates that the run-time system is running in Enterprise Server mode |
| 5 | Indicates whether the program is running under the CLR (Common Language Runtime) |
| 6 | Indicates whether the program is running under a JVM (Java Virtual Machine) |
| 7 | Indicates whether the program is running within a Docker container.
Restriction: This bit is not applicable to
JVM COBOL programs.
|
| 8 | Indicates whether this is a single bit-ism native platform |
| 9-23 | Reserved for future use and will be set to 0 by this routine |
| 24 | Indicates whether the program is running in Microsoft SQL Server (.NET only) |
| 25 | Indicates whether the program is running in Microsoft Azure (.NET only) |
| 26 | Indicates whether the program is running in an Enterprise Java Bean (JVM only) |
| 27-31 | Reserved for future use and will be set to 0 by this routine |
| 0 | Unknown (backward compatibility) |
| 1 | Server Express |
| 2 | Net Express |
| 3 | Mainframe Express (up to V3.0) |
| 4 | Mainframe Express (V3.01 or later) |
| 5 | Visual COBOL |