Application Development and Automation 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: 
Read only

Write INPUT ON

Murali_Shanmu
SAP Champion
SAP Champion
0 Likes
1,030

Hi

I am using INPUT ON addition for a write statement. When i change the values and click on menu button, the changed values are not reflecting. Below is the source code.The previous MARA table values are only getting printed again. My changed values are not getting printed.

REPORT ZINPUT.

DATA : IT_MARA TYPE TABLE OF MARA,

WA_MARA LIKE LINE OF IT_MARA.

set pf-status 'GUI'.

SELECT * FROM MARA UP TO 1 ROWS INTO WA_MARA.

ENDSELECT.

WRITE:/ 'Material Number :'.

WRITE: WA_MARA-MATNR INPUT ON.

WRITE:/ 'Material UOM :'.

WRITE: WA_MARA-MEINS INPUT ON.

WRITE:/ 'Material Type :'.

WRITE: WA_MARA-MTART INPUT ON.

AT USER-COMMAND.

IF SY-UCOMM = 'CLICK'.

WRITE:/ WA_MARA-MATNR.

WRITE:/ WA_MARA-MEINS.

WRITE:/ WA_MARA-MTART.

ENDIF.

3 REPLIES 3
Read only

Murali_Shanmu
SAP Champion
SAP Champion
0 Likes
647

Can this be achieved using 'READ LINE line' option ??

Read only

0 Likes
647

You need to read from the screen after the changes are made. plz look into the correct code below.

DATA : it_mara TYPE TABLE OF mara,

wa_mara LIKE LINE OF it_mara.

START-OF-SELECTION.

SELECT * FROM mara UP TO 1 ROWS INTO wa_mara.

ENDSELECT.

END-OF-SELECTION.

SET PF-STATUS 'GUI'.

WRITE:/ 'Material Number :'.

WRITE: wa_mara-matnr INPUT ON.

WRITE:/ 'Material UOM :'.

WRITE: wa_mara-meins INPUT ON.

WRITE:/ 'Material Type :'.

WRITE: wa_mara-mtart INPUT ON.

AT USER-COMMAND.

IF sy-ucomm = 'NEXT'.

READ LINE 1 OF CURRENT PAGE FIELD VALUE wa_mara-matnr.

IF sy-subrc EQ 0.

READ LINE 2 OF CURRENT PAGE FIELD VALUE wa_mara-meins.

IF sy-subrc EQ 0.

READ LINE 3 OF CURRENT PAGE FIELD VALUE wa_mara-mtart.

ENDIF.

ENDIF.

ENDIF.

WRITE: wa_mara-matnr,wa_mara-MEINS,wa_mara-MTART.

Read only

0 Likes
647

You need to read from the screen after the changes are made. plz look into the correct code below.

DATA : it_mara TYPE TABLE OF mara,

wa_mara LIKE LINE OF it_mara.

START-OF-SELECTION.

SELECT * FROM mara UP TO 1 ROWS INTO wa_mara.

ENDSELECT.

END-OF-SELECTION.

SET PF-STATUS 'GUI'.

WRITE:/ 'Material Number :'.

WRITE: wa_mara-matnr INPUT ON.

WRITE:/ 'Material UOM :'.

WRITE: wa_mara-meins INPUT ON.

WRITE:/ 'Material Type :'.

WRITE: wa_mara-mtart INPUT ON.

AT USER-COMMAND.

IF sy-ucomm = 'NEXT'.

READ LINE 1 OF CURRENT PAGE FIELD VALUE wa_mara-matnr.

IF sy-subrc EQ 0.

READ LINE 2 OF CURRENT PAGE FIELD VALUE wa_mara-meins.

IF sy-subrc EQ 0.

READ LINE 3 OF CURRENT PAGE FIELD VALUE wa_mara-mtart.

ENDIF.

ENDIF.

ENDIF.

WRITE: wa_mara-matnr,wa_mara-MEINS,wa_mara-MTART.