11.10 CBL_GET_SCR_LINE

This routine returns a table drawn by using ruled-line characters consisting of a combination of no lines, single thick lines, double lines, and extended lines (thick lines), or returns a specified ruled-line character.

Specification

Parameter data definition

For function-code 0

01 function-code  PIC 9(4) BINARY.
01 line-drawing-table.
   02 line-drawing-code            PIC 1(8) BIT.
   02 DBCS-line-drawing-character  PIC X occurs 256 times.
01 status-code                     PIC S9(4) COMP-5.

For function-code 1

01 function-code  PIC 9(4) BINARY.
01 line-drawing-table.
   02 line-drawing-code            PIC 1(8) BIT.
   02 DBCS-line-drawing-character  PIC X(2) occurs 256 times.
01 status-code                     PIC S9(4) COMP-5.

For function-code 2

01 function-code  PIC 9(4) BINARY.
01 line-drawing-table.
   02 line-drawing-code            PIC 1(8) BIT.
   02 DBCS-line-drawing-character  PIC X.
01 status-code                     PIC S9(4) COMP-5.

For function-code 3

01 function-code  PIC 9(4) BINARY.
01 line-drawing-table.
   02 line-drawing-code            PIC 1(8) BIT.
   02 DBCS-line-drawing-character  PIC X(2).
01 status-code                     PIC S9(4) COMP-5.

Calling format

CALL "CBL_GET_SCR_LINE_DRAW"
     USING function-code
           line-drawing-table
     RETURNING status-code.

Interface

function-code

Specifies the function code as follows:

0: One-byte line-drawing table is returned.
1: Two-byte line-drawing table is returned.
2: One-byte line-drawing code is returned.
3: Two-byte line-drawing code is returned.

line-drawing-code

Specifies the line drawing code. (This parameter is valid only when function-code is 2 or 3.)

This parameter also indicates the line type that cannot be returned as follows:

Bit 0: Single thick line
Bit 1: Double line
Bit 2: Extended line
Bits 3 to 7: Reserved

DBCS-line-drawing-character

Specifies the area to set the line-drawing character to be set as follows:

For function-code 0: One-byte line-drawing table
For function-code 1: Two-byte line-drawing table
For function-code 2: One-byte line-drawing code
For function-code 3: Two-byte line-drawing code

Return code

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

status-code

0: Successful
Other than 0: Failure

Note

The graphic character gotten by this subroutine displays using Terminal Fonts.

There are graphic characters, which are not able to get, causing different operating system or locale of operating system.

On the operating system, which supports DBCS, one byte graphic character may not be gotten without Japan.

11.10 CBL_GET_SCR_LINE_DRAW