*----------------------------------------------------------------------
* Program Name: Z_DELETE_RFC_CALLS
* Author      : Michael Watson
* Description : Lists (and optionally deletes) RFC calls from the queue
*----------------------------------------------------------------------
REPORT Z_DELETE_RFC_CALLS.

TABLES: arfcsstate.

SELECT-OPTIONS:
  p_uname FOR arfcsstate-arfcuser default sy-uname,
  p_fname FOR arfcsstate-arfcfnam.

PARAMETERS:
  p_test as checkbox DEFAULT 'X'.


SELECT * FROM arfcsstate
  WHERE arfcuser IN p_uname
    AND arfcfnam IN p_fname.

  WRITE: / arfcsstate-arfcfnam, arfcsstate-arfcdatum, arfcsstate-arfcuzeit.

ENDSELECT.

IF p_test = ' '.
  DELETE FROM arfcsstate
    WHERE arfcuser IN p_uname
      AND arfcfnam IN p_fname.

  WRITE: / 'deleted'.
ENDIF.