isCOBOL Evolve : Appendices : Library Routines : WIN$PRINTER : WINPRINT-SET-CURSOR
WINPRINT-SET-CURSOR
The WINPRINT-SET-CURSOR function changes the cursor position in the current report page.
The subsequent WRITE statement must specify the WITH NO CONTROL clause.
Syntax:
 CALL "WIN$PRINTER" USING WINPRINT-SET-CURSOR
                          WINPRINT-DATA
                   GIVING returnCode
Parameters:
WINPRINT-SET-CURSOR
Constant
 
WINPRINT-DATA
Group Item
Structure that contains the cursor position to be set and returns the previous cursor position. This group item, defined in isprint.def, has the following structure:
 
01  winprint-data.
    03 wprtdata-draw.
       05 wprtdata-draw-start-x     pic 9(7)v99 comp-5.
       05 wprtdata-draw-start-y     pic 9(7)v99 comp-5.
       05 wprtdata-draw-stop-x      pic 9(7)v99 comp-5.
       05 wprtdata-draw-stop-y      pic 9(7)v99 comp-5.
       05 wprtdata-draw-units       unsigned-short.
       05 wprtdata-draw-shape       unsigned-short.
wprtdata-draw-start-x
Specifies the horizontal coordinate of the cursor location. The position refers to the physical left margin.
wprtdata-draw-start-y
Specifies the vertical coordinate of the cursor location. The position refers to the physical top margin.
wprtdata-draw-stop-x
It returns the horizontal coordinate of the current cursor location. The position refers to the physical left margin.
wprtdata-draw-stop-y
It returns the vertical coordinate of the current cursor location. The position refers to the physical top margin.
wprtdata-draw-units
Specifies the unit of measure for the coordinates. Valid values are:
WPRTUNITS-CELLS
Values are expressed in cells.
WPRTUNITS-INCHES
Values are expressed in inches.
WPRTUNITS-CENTIMETERS
Values are expressed in centimeters.
WPRTUNITS-PIXELS
Values are expressed in pixels.
wprtdata-draw-shape
It is a flag that specifies if the cursor position must be changed or not.
 
When it is set to zero, the function will change the cursor position.
 
When it is set to a non-zero value, the function will not change the cursor position. Use this setting to retrieve the current cursor location.
Return code:
returnCode can be any signed numeric data item and provides additional information:
1
Operation successful.
WPRTERR-UNSUPPORTED
The WIN$PRINTER library routine is not supported.
WPRTERR-BAD-ARG
The WIN$PRINTER library routine has been called with bad parameters.