NetCOBOL V11.0 CBL Subroutines User's Guide

12.1 CBL_GET_MOUSE_MASK

This routine acquires a mouse event mask.

Specification

Parameter data definition

01 mouse-handle  PIC X(4).
01 event-mask    PIC 1(16) BIT.
01 status-code   PIC S9(4) COMP-5.

Calling format

CALL "CBL_GET_MOUSE_MASK"
    USING mouse-handle
          event-mask
    RETURNING status-code.

Interface

mouse-handle

Specifies the mouse-handle returned by CBL_INIT_MOUSE.

event-mask

Specifies the area used to store event mask information as follows:

• Bit 0: The mouse was moved.

• Bit 1: The left mouse button was pressed.

• Bit 2: The middle mouse button was pressed.

• Bit 3: The right mouse button was pressed.

Return code

The return code is set in the status-code specified in the RETURNING clause.

status-code

• 0: Successful

• Other than 0: Failure