PC_PRINTER_SET_PEN

Restriction:

This routine is not supported on UNIX platforms.
This routine is not supported when CHARSET"EBCDIC" is in effect.

Set the width, style and colour for lines and rectangles when drawn using a printer.

Syntax:

call "PC_PRINTER_SET_PEN" using
                          Printer-Handle
                          by value Pen-Width
                          by value Pen-Style
                          by value Pen-red
                          by value Pen-blue
                          by value Pen-green
end-call

Parameters:

	Using call prototype (see Key)	Picture
`pen-width`	cblt-x4-comp5	pic x(4) comp-5.
`pen-width`	cblt-x4-comp5	pic x(4) comp-5.
`pen-red`	cblt-x	pic x
`pen-blue`	cblt-x	pic x
`pen-green`	cblt-x	pic x

On Entry:

	Value	Meaning
`pen-style`	0	solid line
	1	dash
	2	dot
	3	dash, Dot
	4	dash, dot, dot
	5	invisible
`pen-width`		width of line when drawing lines or rectangles
`pen-red`	Value between 0 and 255	intensity of red
`pen-green`	Value between 0 and 255	intensity of green
`pen-blue`	Value between 0 and 255	intensity of blue

On Exit:

status-code

Printer Handling Routines Return Codes