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

UNIX: Reserved; set to zero.

Windows: Country code. See your operating system documentation for an explanation of country codes.

cblte-osi-code-page

UNIX: Reserved; set to zero.

Windows: Code page. See your operating system documentation for an explanation of code page codes.

cblte-osi-process-type

UNIX: Reserved; undefined.

Windows: Process type:

0	Process is running in a full screen session
3	Process is running as a true graphical application

cblte-osi-rts-capabilities

Characteristics of run-time system. Set as follows:

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-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.0, 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

Product service pack level, for example, for Server Express 4.0 Service Pack 1, this field would be set to 1

cblte-osi-fixpack

On Windows this field indicates the RTS fixpack version, for example, for the COBOL development system 4.0 RTS09N40 FixPack, this field would be set to 9. On UNIX, where individual component fixpacks are not provided, this field indicates the product fixpack version.