can anyone tell me what this code does..
REPORT Z_SD_Q_03 MESSAGE-ID Z_SD.
*----
PROGRAMA : Z_SD_Q_03
FECHA : 12-07-1999
AUTOR : MADASV
DESCRIPCION : Ejecutar query 03(SD)
*----
----
VARIABLES
----
DATA: WERKS LIKE LIKP-WERKS,
NOMBRE_REPORT LIKE AQADEF-PGNAME.
----
RANGES
----
RANGES CENTRO FOR LIKP-WERKS.
----
CONSTANTS
----
CONSTANTS: QUERY LIKE AQADEF-QUNAME VALUE '03',
USERGROUP LIKE AQADEF-BGNAME VALUE 'SD'.
----
START-OF-SELECTION
----
START-OF-SELECTION.
Centro
GET PARAMETER ID 'WR1' FIELD WERKS.
CENTRO-LOW = WERKS.
CENTRO-SIGN = 'I'.
CENTRO-OPTION = 'EQ'.
APPEND CENTRO.
CALL FUNCTION 'RSAQ_EXIST_QUERY'
EXPORTING
WORKSPACE = ' '
USERGROUP = USERGROUP
QUERY = QUERY
IMPORTING
REPORTNAME = NOMBRE_REPORT
EXCEPTIONS
NO_USERGROUP = 1
NO_QUERY = 2
OTHERS = 3
.
IF SY-SUBRC <> 0.
MESSAGE E100 WITH QUERY SY-MANDT.
ELSE.
SUBMIT (NOMBRE_REPORT)
WITH OFICI IN CENTRO
WITH SP$00001-LOW = SY-DATUM
VIA SELECTION-SCREEN.
ENDIF.