Skip to Content
0
Former Member
Dec 22, 2007 at 07:50 AM

urgent..help regarding query

37 Views

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.