KEISEN2

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

Syntax:

CALL "KEISEN2" USING KEISEN2                  GIVING returnCode

Parameters:

KEISEN2

Group Item

Structure defined in iskeisen.def.   01 KEISEN2.   02 KEI2-CMD        PIC 9(1) COMP-X.   02 KEI2-START-LINE PIC 9(2) COMP-X.   02 KEI2-START-COL  PIC 9(2) COMP-X.   02 KEI2-END-LINE   PIC 9(2) COMP-X.   02 KEI2-END-COL    PIC 9(2) COMP-X.   02 KEI2-PRN        PIC 9(2) COMP-X.   02 KEI2-COLOR      PIC 9(2) COMP-X.   KEI2-CMD: 0 - default 1 - clear screen 2 - Line 3 - Boxes 9 - Termination KEI2-START-LINE: opening lines, values range: 1 to 24 KEI2-START-COL: start column, values range: 1 to 80 KEI2-END-LINE: line termination, values range: 1 to 24 KEI2-END-COL column end, values range: 1 to 80   KEI2-PRN: linetype 1 - solid 2 - dashed 3 - dotted line 4 - dashed line 5 - two-dot chain KEI2-COLOR: 0 - black 1 - blue 2 - green 3 - blue, green 4 - red 5 - scarlet 6 - brown 7 - white

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.