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