isCOBOL Evolve : Appendices : Library Routines : KEISEN1
KEISEN1
The KEISEN1 routine allows you 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.