RUN ADECOMM/_setcurs.p("wait"). /* hourglass pointer */
or
  SESSION:SET-WAIT-STATE("GENERAL").

  PROCESS EVENTS.

  RUN ADECOMM/_setcurs.p(""). /* remove hourglass pointer */
or
  SESSION:SET-WAIT-STATE("").