Application Development Discussions
Join the discussions or start your own on all things application development, including tools and APIs, programming models, and keeping your skills sharp.
cancel
Showing results for 
Search instead for 
Did you mean: 

submit program with select-options

rthoodi
Active Participant
0 Kudos

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.....

1 ACCEPTED SOLUTION

Former Member

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

5 REPLIES 5

Former Member

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

0 Kudos

This message was moderated.

Former Member
0 Kudos

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.

0 Kudos

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

rthoodi
Active Participant
0 Kudos

This message was moderated.