Passing from FM to Prog.?

Question

Hi,
I need to pass the S_CUST of 10000 from FM to Prog. and there i wanna to use it as input. So,
I am using syntax as,
submit my_prog. USING SELECTION-SET 'SS_STATS' and return.
The error is thrwing as NO VARIANT is available as SS_CUST!
But not working?
What is the correct one?
thanq.
Message was edited by:
        Sridhar

Answer 1

Hello Srikhar,
X is other report program
SUBMIT X
WITH <b>s_auart</b> IN <b>s_auart</b> - this is your passing from ur program
            other Report program selection-screen field
WITH s_aufnr IN s_aufnr
AND RETURN.
See the example program and i am passing values from one program to MMPV Transaction( Here MMPV is Transaction and which is like report program only and it has selection-screen.
TABLES: marv,
        t001.
                         DATA DECLARATION                            *
DATA: wa_lfmon LIKE rm03q-nperi,
      wa_lfgja LIKE rm03q-lfgja,
      wa_xcomp LIKE rm03q-xcomp,
      wa_vmmon LIKE rm03q-nperi,
      wa_vmgja LIKE rm03q-lfgja.
DATA: t_param LIKE rsparams OCCURS 10 WITH HEADER LINE.
DATA: wa_today     LIKE sy-datum.
DATA: wa_lastday   LIKE sy-datum.
DATA: wa_newperiod LIKE sy-datum.
DATA: wa_marv      LIKE marv.
DATA: wa_variant(12) TYPE c  VALUE 'MM_PRD_CLOSE'.
DATA: wa_lines     TYPE i.
DATA: wa_try       TYPE i.
                              RANGES                                 *
RANGES: wa_messg FOR soli-line.
Start of change   Seshu  02/27/2007
ranges : r_bukrs for t001-bukrs.
End of change     Seshu  02/27/2007
                              CONSTANTS                              *
CONSTANTS: w_subject_nc(132) TYPE c VALUE
                                  'Attention MM Period was not Closed!'.
CONSTANTS: w_subject_c(132) TYPE c VALUE
                                  'MM Period is Closed Successfully!'.
                           INCLUDES                                  *
                          INITIALIZATION                             *
wa_today = sy-datum.
                           TOP OF PAGE                               *
                          SELECTION SCREEN                           *
SELECTION-SCREEN: BEGIN OF BLOCK b1 WITH FRAME TITLE text-001.
SELECTION-SCREEN: SKIP 1.
SELECT-OPTIONS:   s_bukrs FOR t001-bukrs OBLIGATORY NO INTERVALS.
PARAMETERS    :   p_try   TYPE i.
SELECTION-SCREEN: END OF BLOCK b1.
                         START OF SELECTION                          *
START-OF-SELECTION.
clear wa_try.
loop at s_bukrs.
WA_TRY  =  WA_TRY + p_try.
endloop.
clear r_bukrs.
refresh r_bukrs.
Start of change   Seshu 02/27/2007
          move s_bukrs to r_bukrs.
          append r_bukrs.
End  of change   Seshu 02/27/2007
  wa_try  =  p_try.
*--Get the system date and check whether the period to be closed.
*--Usually last of each month.
  CALL FUNCTION 'SG_PS_GET_LAST_DAY_OF_MONTH'
       EXPORTING
            day_in            = wa_today
       IMPORTING
            last_day_of_month = wa_lastday
       EXCEPTIONS
            day_in_not_valid  = 1
            OTHERS            = 2.
  IF sy-subrc <> 0.
    MESSAGE e000(zwave) WITH text-002 .
  ENDIF.
*-- IMP!! We should  NOT execute the program if the day is not the last
*-- day of the month
  IF sy-datum NE wa_lastday.
    LEAVE PROGRAM.
  ENDIF.
**-- New Period is the next day (Get only the month & year)
  CLEAR: wa_newperiod, wa_lfmon, wa_lfgja.
  wa_newperiod = wa_lastday + 1.
  MOVE wa_newperiod+0(4) TO wa_lfgja.
  MOVE wa_newperiod+4(2) TO wa_lfmon.
  wa_xcomp = 'X'.
  CLEAR: wa_vmgja, wa_vmmon.
*-- Move the current date for cross checking..
  MOVE wa_today+0(4) TO wa_vmgja.
  MOVE wa_today+4(2) TO wa_vmmon.
  DO wa_try TIMES.
    LOOP AT s_bukrs.
*-- Build Selection Screen value for RMMMPERI (MMPV)
*-- Company Code
      t_param-selname = 'I_VBUKR'. t_param-kind = 'P'.
      t_param-low  = s_bukrs-low.
      APPEND t_param.
*-- Period
      t_param-selname = 'I_LFMON'. t_param-kind = 'P'.
      t_param-low  = wa_lfmon.
      APPEND t_param.
*-- Fiscal Year
      t_param-selname = 'I_LFGJA'. t_param-kind = 'P'.
      t_param-low  = wa_lfgja.
      APPEND t_param.
*-- Check and close period (Default 'X')
      t_param-selname = 'I_XCOMP'. t_param-kind = 'P'.
      t_param-low  = wa_xcomp.
      APPEND t_param.
*-- Check once again whether the selected period is OK
      SUBMIT rmmmperi VIA SELECTION-SCREEN
                          WITH SELECTION-TABLE t_param
                          AND RETURN.
      WAIT UP TO 2 SECONDS.
      CLEAR wa_marv.
      SELECT SINGLE * FROM marv INTO wa_marv WHERE bukrs = s_bukrs-low.
      IF sy-subrc = 0.
        IF wa_marv-lfgja = wa_lfgja  AND
           wa_marv-lfmon = wa_lfmon  AND
           wa_marv-vmgja = wa_vmgja  AND
           wa_marv-vmmon = wa_vmmon.
*-- Come out of the loop
*-- Since the period is closed for the given company code
*-- Remove it from the list (internal Table)
          DELETE s_bukrs.
          EXIT.
        ENDIF.
      ELSE.
        MESSAGE e000(zwave) WITH text-003.
      ENDIF.
      WAIT UP TO 300 SECONDS.
    ENDLOOP.
  ENDDO.
                         END OF SELECTION                            *
END-OF-SELECTION.
*-- After trying 10 times and waiting for 15 mins in each loop, if the
*-- period is not closed then send email to the respective users.
  CLEAR s_bukrs.
  clear r_bukrs.
Start of change   Seshu  02/27/2007
Used r_bukrs instead of s_bukrs
  LOOP AT r_bukrs.
    CLEAR wa_marv.
    SELECT SINGLE * FROM marv INTO wa_marv WHERE bukrs = r_bukrs-low.
    IF sy-subrc = 0.
      IF wa_marv-lfgja = wa_lfgja  AND
         wa_marv-lfmon = wa_lfmon  AND
         wa_marv-vmgja = wa_vmgja  AND
         wa_marv-vmmon = wa_vmmon.
*-- Come out of the loop and period is closed
*-- Enter all the information for period closed
        wa_messg-sign   = 'I'.
        wa_messg-option = 'EQ'.
        wa_messg-low    = text-006.
        APPEND wa_messg.
        CLEAR wa_messg.
        wa_messg-sign   = 'I'.
        wa_messg-option = 'EQ'.
        CONCATENATE 'For Company Code - '  r_bukrs-low INTO
        wa_messg-low SEPARATED BY space.
        APPEND wa_messg.
        CLEAR wa_messg.
        wa_messg-sign   = 'I'.
        wa_messg-option = 'EQ'.
        CONCATENATE 'For Period  - ' wa_lfmon 'and year - '
                     wa_lfgja INTO wa_messg-low SEPARATED BY space.
        APPEND wa_messg.
        CLEAR wa_messg.
        wa_messg-sign   = 'I'.
        wa_messg-option = 'EQ'.
        wa_messg-low = text-005.
        APPEND wa_messg.
        CLEAR wa_messg.
        CLEAR wa_lines.
        DESCRIBE TABLE wa_messg LINES wa_lines.
        IF wa_lines > 0.
          SUBMIT z_notify_user USING SELECTION-SET wa_variant
                              WITH  text1      IN wa_messg
                              WITH  sub_line   EQ w_subject_c
                              AND   RETURN.
        ENDIF.
      ELSE.
*-- Enter all the information for error in closing
        wa_messg-sign   = 'I'.
        wa_messg-option = 'EQ'.
        wa_messg-low    = text-004.
        APPEND wa_messg.
        CLEAR wa_messg.
        wa_messg-sign   = 'I'.
        wa_messg-option = 'EQ'.
        CONCATENATE 'For Company Code - ' r_bukrs-low INTO
        wa_messg-low SEPARATED BY space.
        APPEND wa_messg.
        CLEAR wa_messg.
        wa_messg-sign   = 'I'.
        wa_messg-option = 'EQ'.
        CONCATENATE 'For Period  - ' wa_lfmon 'and year - '
                     wa_lfgja INTO wa_messg-low SEPARATED BY space.
        APPEND wa_messg.
        CLEAR wa_messg.
        wa_messg-sign   = 'I'.
        wa_messg-option = 'EQ'.
        wa_messg-low = text-005.
        APPEND wa_messg.
        CLEAR wa_messg.
        CLEAR wa_lines.
        DESCRIBE TABLE wa_messg LINES wa_lines.
        IF wa_lines > 0.
          SUBMIT z_notify_user USING SELECTION-SET wa_variant
                              WITH  text1      IN wa_messg
                              WITH  sub_line   EQ w_subject_nc
                              AND   RETURN.
        ENDIF.
      ENDIF.
    ELSE.
      MESSAGE e000(zwave) WITH text-003.
    ENDIF.
  ENDLOOP.
  End of change seshu 02/27/2007
Clear wa_lines.
describe table wa_messg lines wa_lines.
if wa_lines > 0.
   SUBMIT z_notify_user USING SELECTION-SET WA_VARIANT
                       WITH  text1      IN wa_messg
                       WITH  sub_line   EQ w_subject
                       AND   RETURN.
endif.