CBL_GET_OS_INFO

Returns information about the operating system environment.

Syntax:

call "CBL_GET_OS_INFO" using     parameter-block
                       returning status-code

Parameters

parameter-block
Group predefined as cblt-os-info-params containing
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.
status-code
See Library Routines - Key.

On Entry:

cblte-osi-os-length
Length of the information expected to be returned.

On Exit:

cblte-osi-os-length
Length of the information returned; this can be less than or equal to the length on entry
cblte-osi-os-type
131 for Windows systems, 128 for COBOL systems on UNIX
cblte-osi-os-version
Use is specific to the operating system. Can include information such as chip type and the operating system version number. For Windows the third and fourth bytes contain the minor and major release operating system version numbers respectively.
cblte-osi-dbcs-support
DBCS support flag:
Bit 0
0 if DBCS validation unsupported
1 if DBCS validation supported
Bit 1
0 if PIC N data-type unsupported
1 if PIC N data-type supported
cblte-osi-char-coding
Character encoding:
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
cblte-osi-country-id

Reserved; set to zero.

cblte-osi-code-page

Reserved; set to zero.

cblte-osi-process-type

Reserved; undefined.

cblte-osi-rts-capabilities
Characteristics of run-time system. Set as follows:
Bit Description
0

multi-threaded rts

1 Mainframe offloading capabilities
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 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
cblte-osi-product
Product identifier:
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
cblte-osi-product-version
Product version, for example, for the COBOL development system 4.5, this field would be set to 4
cblte-osi-product-revision
Product revision, for example, for the COBOL development system 4.5, this field would be set to 5
cblte-osi-product-sp
This field is deprecated, and will always return 0 (zero)
cblte-osi-fixpack
This field is deprecated, and will always return 0 (zero)