7.1 CBL_GET_OS

This routine acquires information about the operating system.

Specification

Parameter data definition

01  parameter-block.
    02  parameter-size            PIC 9(4) BINARY value 14.
    02  operating-system-type     PIC 9(4) BINARY.
    02  operating-system-version  PIC 9(9) BINARY.
    02  DBCS-support              PIC 9(4) BINARY.
    02  character-code            PIC 9(4) BINARY.
    02  country-ID                PIC 9(4) BINARY.
    02  code-page                 PIC 9(4) BINARY.
    02  processing-type           PIC 9(9) BINARY.
01  status-code                   PIC S9(4) COMP-5.

Calling format

CALL "CBL_GET_OS_INFO"
    USING parameter-block
    RETURNING status-code.

Interface

operating-system-type

Specifies the area to store the type of operating system. The information to be stored is as follows:

128=UNIX
131=Windows

operating-system-version

Specifies the area to store the version of the operating system.

DBCS-support

Specifies the area to store DBCS support information. The information to be stored is as follows:

Bit 0

ON: DBCS validity check is supported.
OFF: DBCS validity check is not supported.

Bit 1

ON: Micro Focus PIC N is supported.
OFF: Micro Focus PIC N is not supported.

This subroutine always returns OFF to Bit1.

character-code

Specifies the area to store character code information. The information to be stored is as follows:

0: ASCII
1: Shift JIS
2: EUC

country-ID: Reserved area

code-page: Reserved area

processing-type

Specifies the area to store processing type information. The information to be stored is as follows:

0: Processing is executed as a full-screen session.
1: Processing is executed in a compatible box.
2: Processing is executed in a graphic character screen emulation window.
3: Processing is executed as a true graphical application.
4: Processing is executed independently.
5: Processing is executed independently in non-interactive mode.

This subroutine always returns 0.

Return code

The return code is set in the status-code specified in the RETURNING clause.

status-code

0: Successful
Other than 0: Failure

7.1 CBL_GET_OS_INFO