How can I pass the values to the variable by using INPUT ON from output

Question

HI,
    In this code I printed  s_number by using INPUT ON .
In the out put I want to give the some new values to that field s_number.
That new value I  pass to the another prgroam ZMAT_LABEL_FIRST .
      How could I pass this new  content to this program.  I wrote like this but I am not getting new content what I entered in the output.
REPORT  ZMAT_LABEL_SCREEN_V1    NO STANDARD PAGE HEADING                    .
PARAMETERS S_MBLNR TYPE MSEG-MBLNR.
DATA C .
DATA CNT TYPE I.
DATA   S_NUMBER(3) TYPE C.
DATA : BEGIN OF IT_MBELN OCCURS 0,
        MBLNR TYPE  MSEG-MBLNR,
        END OF IT_MBELN.
DATA :  BEGIN OF IT_MSEG OCCURS 0,
        ZEILE TYPE MSEG-ZEILE,
        MBLNR TYPE MSEG-MBLNR,
        MEINS TYPE MSEG-MEINS,
        BPMNG TYPE MSEG-BPMNG,
        MAKTX TYPE MAKT-MAKTX,
        END OF IT_MSEG.
DATA IT_FINAL LIKE IT_MSEG .
data: it_ret like ddshretval occurs 0 with header line.
AT SELECTION-SCREEN ON VALUE-REQUEST FOR S_MBLNR.
SELECT MBLNR
       FROM MSEG
       INTO TABLE IT_MBELN.
       CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'
         EXPORTING
         DDIC_STRUCTURE         = ' '
           retfield               =  'MBLNR'
          PVALKEY                = ' '
         DYNPPROG               = ' '
         DYNPNR                 = ' '
         DYNPROFIELD            = ' '
         STEPL                  = 0
         WINDOW_TITLE           =
         VALUE                  = ' '
          VALUE_ORG              = 'S'
         MULTIPLE_CHOICE        = ' '
         DISPLAY                = ' '
          CALLBACK_PROGRAM       = 'ZMAT_LABEL_SCREEN '
         CALLBACK_FORM          = ' '
         MARK_TAB               =
       IMPORTING
         USER_RESET             =
         tables
           value_tab              =  IT_MBELN
         FIELD_TAB              =
          RETURN_TAB             =  IT_RET
         DYNPFLD_MAPPING        =
       EXCEPTIONS
         PARAMETER_ERROR        = 1
         NO_VALUES_FOUND        = 2
         OTHERS                 = 3
       IF sy-subrc <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
        WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
       ENDIF.
IF SY-SUBRC = 0.
read table it_ret index 1.
move it_ret-fieldval to S_MBLNR.
ENDIF.
START-OF-SELECTION.
SELECT A~ZEILE
       A~MBLNR
       A~MEINS
       A~BPMNG
       B~MAKTX
       INTO CORRESPONDING FIELDS OF TABLE IT_MSEG
       FROM MSEG AS A INNER JOIN MAKT AS B
       ON AMATNR = BMATNR
       WHERE MBLNR = S_MBLNR.
****FINDING THE NUMBER OF RECORDS IN THE TABLE
DESCRIBE TABLE IT_MSEG LINES CNT.
at line-selection.
DO CNT TIMES.
READ LINE SY-INDEX FIELD VALUE C.
IF C = 'X'.
READ TABLE IT_MSEG INDEX SY-INDEX .
***HERE READ THE S_NUMBER(WHAT I ENTERED IN THE OUTPUT)  AND PASS TO THIS PROGRAM
submit   ZMAT_LABEL_FIRST with p_mblnr = IT_MSEG-mblnr
                          with number =  S_NUMBER
                          WITH S_ZEILE =  IT_MSEG-ZEILE and return.
CLEAR IT_MSEG.
ENDIF.
ENDDO.
**********ALL ITEMS CORRESPODNING TO THE DOCUMENT NUMBER DISPLAY
END-OF-SELECTION.
LOOP AT IT_MSEG.
WRITE : /10 C as  CHECKBOX,IT_MSEG-ZEILE,IT_MSEG-MAKTX,IT_MSEG-BPMNG,IT_MSEG-MEINS, S_NUMBER COLOR 5 INPUT ON.
ENDLOOP.
Regards,
Surya

Answer 1

Hi Surya..
Change it like this ...
START-OF-SELECTION.
SELECT A~ZEILE
A~MBLNR
A~MEINS
A~BPMNG
B~MAKTX
INTO CORRESPONDING FIELDS OF TABLE IT_MSEG
FROM MSEG AS A INNER JOIN MAKT AS B
ON AMATNR = BMATNR
WHERE MBLNR = S_MBLNR.
****FINDING THE NUMBER OF RECORDS IN THE TABLE
DESCRIBE TABLE IT_MSEG LINES CNT.
at line-selection.
<b>DO. </b>
READ LINE SY-INDEX FIELD VALUE C
                                  <b>FIELD VALUE IT_MSEG-ZEILE.</b>
<b>if sy-subrc ne 0.
  EXIT.
ENDIF.</b>
IF C = 'X'.
***HERE READ THE S_NUMBER(WHAT I ENTERED IN THE OUTPUT) AND **PASS TO THIS PROGRAM
<b>CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'
  exporting
    INPUT = IT_MSEG-ZEILE
  IMPORTING
    OUTPUT = IT_MSEG-ZEILE .</b>
submit ZMAT_LABEL_FIRST with p_mblnr = IT_MSEG-mblnr
with number = S_NUMBER
WITH S_ZEILE = IT_MSEG-ZEILE and return.
CLEAR IT_MSEG.
ENDIF.
ENDDO.
**********ALL ITEMS CORRESPODNING TO THE DOCUMENT NUMBER DISPLAY
END-OF-SELECTION.
LOOP AT IT_MSEG.
WRITE : /10 C as CHECKBOX,IT_MSEG-ZEILE,IT_MSEG-MAKTX,IT_MSEG-BPMNG,IT_MSEG-MEINS, S_NUMBER COLOR 5 INPUT ON.
ENDLOOP.
<b>Reward if Helpful.</b>