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 |
Reserved; set to zero.
Reserved; set to zero.
Reserved; undefined.
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. |
8 | Indicates whether this is a single bit-ism native platform |
9 | MFDBFH is available for this platform |
10-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 | Enterprise Developer |