isCOBOL Evolve : Appendices : Library Routines : KEISEN
KEISEN
The KEISEN routine allows you to draw a line in a Japanese character-based program. It invokes KEISEN1 or KEISEN2 depending on the value of iscobol.keisen.method.
Syntax:
 CALL "KEISEN" USING { KEISEN  }
                     { KEISEN2 }
              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.
 
Use this structure if you set iscobol.keisen.method to 1 or you didn’t set the property to any value. Refer to KEISEN1 documentation for details about the meaning of these data items.
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.
 
Use this structure if you set iscobol.keisen.method to 2. Refer to KEISEN2 documentation for details about the meaning of these data items.
Return Code
returnCode can be any signed numeric data item and provides additional information:
-1
Operation failed.
0
Operation successful.
Examples:
Example - Draw a rectangle with KEISEN1 or KEISEN2
       program-id. keisen_sample.
 
       working-storage section.
       copy "isgui.def".
       copy "iscrt.def".
       copy "iskeisen.def".
       77  crt-status              special-names crt status pic 9(5).
       77  hwin                    handle of window.       
       77  close-win               pic 9 value 0.  
       77  k-method                pic 9.
       77  lk-method               pic 9.
 
 
       procedure division chaining lk-method.
       main.         
           display independent graphical window                   
                   color  65793
                   with   system menu
                   title  "KEISEN Routines"
                   handle hwin
                   event  win-evt
           display window erase.
 
           perform draw-keisen
           
                 
           destroy hwin
           goback
           .
 
       draw-keisen.           
           if lk-method = 1 or lk-method = 2
              move lk-method to kei-param
              call "keisen_select" using kei-param
           end-if
           accept k-method from environment "keisen.method"
              on  exception
                  move 1 to k-method
           end-accept
           evaluate k-method
           when 1
                perform keisen1
           when 2              
                perform keisen2
           end-evaluate
           .
 
 
       keisen1.
           move 5  to kei-cmd
           move 3  to kei-line 
           move 3  to kei-col
           move 70 to kei-lng1
           move 20 to kei-lng2
           move 2  to kei-color
           move 4  to kei-ptn
           call "keisen" using keisen
           display message 
           "The lines on the screen have been drawn with KEISEN"         
           .
 
       keisen2.
           move 5  to kei2-cmd
           move 3  to kei2-start-line 
           move 3  to kei2-start-col
           move 70 to kei2-end-col
           move 20 to kei2-end-line
           move 2  to kei2-color
           move 4  to kei2-prn
           call "keisen2" using keisen2
           display message 
           "The lines on the screen have been drawn with KEISEN2"         
           .  
                  
       win-evt.
           if event-type = cmd-close   
              move 1 to close-win
           end-if
           .