KEISEN1

The KEISEN1 routine allows to draw a line of type 1 in a Japanese character-based program.

Syntax:

CALL "KEISEN1" USING KEISEN                GIVING returnCode

Parameters:

KEISEN

Group Item

Structure defined in iskeisen.def.   01 KEISEN.   02 KEI-CMD   PIC 9(1) COMP-X.   02 KEI-LINE  PIC 9(2) COMP-X.   02 KEI-COL   PIC 9(2) COMP-X.   02 KEI-LNG1  PIC 9(2) COMP-X.   02 KEI-LNG2  PIC 9(2) COMP-X.   02 KEI-COLOR PIC 9(2) COMP-X.   02 KEI-PTN   PIC 9(2) COMP-X.   KEI-CMD: 0 - default (clear screen) 1 - underline (bottom) 2 - over the line (top) 3 - batikarurain (left) 4 - batikarurain (right) 5 - box 6 - vertical (left) and underline (below) 9 - termination KEI-LINE: opening lines, values range: 1 to 24 KEI-COL: start column, values range: 1 to 80 KEI-LNG1: wire, if KEI-CMD is 1,2 or 5 (Horizontal), values from 1 to 80 are allowed. if KEI-CMD is 3 or 4 (Vertical), values from 1 to 24 are allowed. KEI-LNG2: wire, if KEI-CMD is 5, values from 1 to 24 are allowed. KEI-COLOR: 0 - black 1 - blue 2 - green 3 - blue, green 4 - red 5 - scarlet 6 - brown 7 - white   KEI-PTN: linetype 1 - solid 2 - dashed 3 - dotted line 4 - dashed line 5 - two-dot chain

Return Code

returnCode can be any signed numeric data item and provides additional information:

-1	Operation failed.
0	Operation successful.

Examples:

See KEISEN for examples.