Código COBOL:
ENVIRONMENT DIVISION.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 WS-HWND PIC S9(9) COMP-5.
01 WM_CUT PIC S9(9) COMP-5 VALUE H"0300".
01 WM_COPY PIC S9(9) COMP-5 VALUE H"0301".
01 WM_PASTE PIC S9(9) COMP-5 VALUE H"0302".
PROCEDURE DIVISION.
MOVE POW-MP-WAIT TO "MousePointer" OF POW-SELF
*>--------------------------------------------
MOVE "hwnd" OF RichTextBox1 TO WS-HWND
CALL "SendMessageA" WITH STDCALL USING BY VALUE WS-HWND
BY VALUE WM_COPY
BY VALUE 0
BY VALUE 0
CANCEL "SendMessageA"
*>--------------------------------------------
MOVE POW-MP-DEFAULT TO "MousePointer" OF POW-SELF