topic Re: Problem with Read Line in Application Development and Automation Discussions

Problem with Read Line

Former Member — Mon, 18 Aug 2008 16:11:15 GMT

Hi friends,

i have internal table with header line.

displaying them on the screen with check box defaulted under certain conditions.

From the screen user want to uncheck certain records. so i have quoted as below. it is working if user unchecks the records other than the last record.

if user unchecks the last record still the last record is picking.

any one give me reson why? is it becasue i haven't cleared the itab before DO? am bit puzzled..

at user-Command.

case sy-ucomm.

when 'exec'.

DO.

read line sy-index field value itab-check.

IF sy-subrc NE 0.

EXIT.

ENDIF.

CHECK itab-check = 'X'.

MODIFY itab INDEX sy-index TRANSPORTING check.

ENDDO.

Re: Problem with Read Line

naimesh_patel — Mon, 18 Aug 2008 16:15:17 GMT

You must update the CHECK field if the user un-selects that.

This Statment must be like:


* CHECK itab-check = 'X'.
* MODIFY itab INDEX sy-index TRANSPORTING check.

MODIFY ITAB INDEX SY-INDEX TRANSPORTING CHECK.

Regards,

Naimesh Patel

Re: Problem with Read Line

former_member194669 — Mon, 18 Aug 2008 16:20:45 GMT

May be try this way



start-of-selection.
   perform f_write_output.
   v_lines = sy-linno.  "<-----

at user-Command.
case sy-ucomm.
when 'exec'.
DO v_lines times.       "<-----
read line sy-index field value itab-check.
IF sy-subrc NE 0.
EXIT.
ENDIF.
CHECK itab-check = 'X'.
MODIFY itab INDEX sy-index TRANSPORTING check.
ENDDO.

a®

Re: Problem with Read Line

Former Member — Mon, 18 Aug 2008 16:21:12 GMT

Thanks for prompt reply.

But why this peculiarity happening if only the last record from itab unchecked..

If the previous records unchecked, no issue with them..

Re: Problem with Read Line

naimesh_patel — Mon, 18 Aug 2008 16:31:15 GMT

May be somewhere else in the code, it is getting cleared.

Regards,

Naimesh Patel

Re: Problem with Read Line

Former Member — Tue, 19 Aug 2008 15:52:01 GMT

FYI

Issue resolved with the following code:

DATA: LINENO TYPE I.

lineno = 0.

DO.

lineno = lineno + 1.

READ LINE lineno FIELD VALUE itab-check.

To check the endpoint

IF SY-SUBRC NE 0.

EXIT.

ENDIF.

IF itab-check = 'X'.

READ CURRENT LINE

FIELD VALUE itab-belnr INTO itab1-belnr.

APPEND itab1.

CLEAR itab1.

ENDIF.

Enddo