06-08-2007 4:02 PM
hi
i am new to abap i a requirement that my current program should call one standard program in that standard programe i have to pass values
ie it is select-options with no interval but i should pass values in multipleselections
so i can use submit program name then how i should pass values the values r in my select statemet with that select statement i should send one field value to standard program select-options with no interval when it accept the value i should directy display the output.....
06-08-2007 4:04 PM
Hello,
Do like this:
FORM GET_ZKOBERRICH.
DATA: SO_PROJ TYPE RANGE OF PROJ-PSPID,
WA_PROJ LIKE LINE OF SO_PROJ,
SO_POSID TYPE RANGE OF PRPS-POSID,
WA_POSID LIKE LINE OF SO_POSID.
DATA: LISTOBJECT LIKE ABAPLIST OCCURS 0 WITH HEADER LINE.
CLEAR: SO_PROJ,WA_PROJ,SO_POSID,WA_POSID.
REFRESH: SO_PROJ,SO_POSID.
LOOP AT G_T_STATUS.
WA_PROJ-SIGN = 'I'.
WA_PROJ-OPTION = 'EQ'.
CALL FUNCTION 'CONVERSION_EXIT_ABPSN_INPUT'
EXPORTING
INPUT = G_T_STATUS-PSPID
IMPORTING
OUTPUT = G_T_STATUS-PSPID.
WA_PROJ-LOW = G_T_STATUS-PSPID.
APPEND WA_PROJ TO SO_PROJ.
WA_POSID-SIGN = 'I'.
WA_POSID-OPTION = 'EQ'.
CALL FUNCTION 'CONVERSION_EXIT_ABPSN_INPUT'
EXPORTING
INPUT = G_T_STATUS-POSID
IMPORTING
OUTPUT = G_T_STATUS-POSID.
WA_POSID-LOW = G_T_STATUS-POSID.
APPEND WA_POSID TO SO_POSID.
CLEAR: WA_PROJ,WA_POSID.
ENDLOOP.
SORT SO_PROJ BY LOW.
DELETE ADJACENT DUPLICATES FROM SO_PROJ COMPARING LOW.
SORT SO_POSID BY LOW.
DELETE ADJACENT DUPLICATES FROM SO_POSID COMPARING LOW.
IF NOT SO_PROJ[] IS INITIAL AND NOT SO_POSID[] IS INITIAL.
CLEAR: G_F_FLAG.
G_F_FLAG = 'X'.
EXPORT G_F_FLAG TO MEMORY ID 'ZFEHLERKOSTEN'.
SUBMIT Z48R_PROJEKT_FEHLERKOSTEN WITH SO_PROJ IN SO_PROJ
WITH SO_PSP IN SO_POSID
WITH SO_PBUKR IN SO_PBUKR
WITH PA_JAHRV EQ PA_JAHRV
WITH PA_PERV EQ PA_PERV
WITH PA_JAHRB EQ PA_JAHRB
WITH PA_PERB EQ PA_PERB
WITH P_LIST EQ 'X'
EXPORTING LIST TO MEMORY
AND RETURN.
If useful reward.
Vasanth
06-08-2007 4:04 PM
Hello,
Do like this:
FORM GET_ZKOBERRICH.
DATA: SO_PROJ TYPE RANGE OF PROJ-PSPID,
WA_PROJ LIKE LINE OF SO_PROJ,
SO_POSID TYPE RANGE OF PRPS-POSID,
WA_POSID LIKE LINE OF SO_POSID.
DATA: LISTOBJECT LIKE ABAPLIST OCCURS 0 WITH HEADER LINE.
CLEAR: SO_PROJ,WA_PROJ,SO_POSID,WA_POSID.
REFRESH: SO_PROJ,SO_POSID.
LOOP AT G_T_STATUS.
WA_PROJ-SIGN = 'I'.
WA_PROJ-OPTION = 'EQ'.
CALL FUNCTION 'CONVERSION_EXIT_ABPSN_INPUT'
EXPORTING
INPUT = G_T_STATUS-PSPID
IMPORTING
OUTPUT = G_T_STATUS-PSPID.
WA_PROJ-LOW = G_T_STATUS-PSPID.
APPEND WA_PROJ TO SO_PROJ.
WA_POSID-SIGN = 'I'.
WA_POSID-OPTION = 'EQ'.
CALL FUNCTION 'CONVERSION_EXIT_ABPSN_INPUT'
EXPORTING
INPUT = G_T_STATUS-POSID
IMPORTING
OUTPUT = G_T_STATUS-POSID.
WA_POSID-LOW = G_T_STATUS-POSID.
APPEND WA_POSID TO SO_POSID.
CLEAR: WA_PROJ,WA_POSID.
ENDLOOP.
SORT SO_PROJ BY LOW.
DELETE ADJACENT DUPLICATES FROM SO_PROJ COMPARING LOW.
SORT SO_POSID BY LOW.
DELETE ADJACENT DUPLICATES FROM SO_POSID COMPARING LOW.
IF NOT SO_PROJ[] IS INITIAL AND NOT SO_POSID[] IS INITIAL.
CLEAR: G_F_FLAG.
G_F_FLAG = 'X'.
EXPORT G_F_FLAG TO MEMORY ID 'ZFEHLERKOSTEN'.
SUBMIT Z48R_PROJEKT_FEHLERKOSTEN WITH SO_PROJ IN SO_PROJ
WITH SO_PSP IN SO_POSID
WITH SO_PBUKR IN SO_PBUKR
WITH PA_JAHRV EQ PA_JAHRV
WITH PA_PERV EQ PA_PERV
WITH PA_JAHRB EQ PA_JAHRB
WITH PA_PERB EQ PA_PERB
WITH P_LIST EQ 'X'
EXPORTING LIST TO MEMORY
AND RETURN.
If useful reward.
Vasanth
02-21-2016 9:09 AM
06-08-2007 4:09 PM
DATA: t_param LIKE rsparams OCCURS 10 WITH HEADER LINE.
t_param-selname = 'called program selection-screen name'.
t_param-kind = 'P'. " here P is parameter s is select-option
t_param-low = pass value.
t_param-high = pass value
APPEND t_param.
SUBMIT programname VIA SELECTION-SCREEN
WITH SELECTION-TABLE t_param
AND RETURN.
10-22-2013 8:08 AM
I have declared select option as
data : g_blart type mhnd-blart.
types: t_blart like RANGE OF g_blart.
SELECT-OPTIONS: s_blart for g_blart. in Zprog.
and I want to call this using
SUBMIT programname VIA SELECTION-SCREEN
WITH SELECTION-TABLE ??
Can you please tell
06-16-2011 2:12 PM