remove space

[Former Member]

hi every one,

I am giving some code just check it first...it is displaying transparent and standard tables

with some space,actually standard tables displaying first later transparent tables.

my requirement is to display both transparent and standard tables side by side with out any space ...

TYPES:BEGIN OF TYPES_TA,

TABNAME TYPE DD02L-TABNAME,

TABCLASS TYPE DD02L-TABCLASS,

END OF TYPES_TA.

DATA: WA TYPE TYPES_TA,

ITAB TYPE TABLE OF TYPES_TA.

SELECT TABNAME TABCLASS FROM DD02L INTO TABLE ITAB.

write:/2(30) 'TRANSPARENT TABLES'.

write:/35(30) 'STANDARD TABLES'.

LOOP AT itab INTO wa.

IF wa-tabclass = 'TRANSP' AND wa-tabname BETWEEN 'Z' AND 'ZZZ'.

WRITE:/2 wa-tabname.

ENDIF.

IF wa-tabclass = 'TRANSP' AND wa-tabname NOT BETWEEN 'Y' AND 'ZZZ'.

WRITE:/35 wa-tabname.

ENDIF.

ENDLOOP.

[Sandeep_Panghal]

Find the offset for transparent table length and while writing the standard table name use this offset to start writing.

e.g" Transparent table name : MARA - lv_length : 4

so start write :lv_legthstandardtable.

[Former Member]

would u say elaborately ... if i do like this ...i have to write each and every table name ...here just i am displaying all standard and transparent table list...these lists are not displaying side by side ...but i want side by side...

10q 4 adv...

Edited by: sudeeshboddu on May 13, 2010 1:44 PM

[Former Member]

try

write:/2(20) 'TRANSPARENT TABLES'.

write:/25(30) 'STANDARD TABLES'.

[Former Member]

thanku for response ....

i have done like this too friend .... empty space is showing .......is there any alternative

[Former Member]

Hello

TYPES:BEGIN OF TYPES_TA,
TABNAME TYPE DD02L-TABNAME,
END OF TYPES_TA.

DATA: WA1 TYPE TYPES_TA,
      WA2 TYPE TYPES_TA,
      ITAB1 TYPE TABLE OF TYPES_TA,
      ITAB2 TYPE TABLE OF TYPES_TA.

SELECT TABNAME FROM DD02L INTO TABLE ITAB1 WHERE TABCLASS = 'TRANSP'.

write:  2(30) 'TRANSPARENT TABLES'.
write: 35(30) 'STANDARD TABLES'.
NEW-LINE.

ITAB2[] = ITAB1[].

DELETE ITAB1 WHERE TABNAME BETWEEN 'Z*' AND 'ZZZ*'.
DELETE ITAB2 WHERE ( NOT TABNAME BETWEEN 'Z*' AND 'ZZZ*' ).
SORT: ITAB1, ITAB2.

LOOP AT ITAB1 INTO WA1.
  READ TABLE ITAB2 INTO WA2 INDEX SY-TABIX.
  IF SY-SUBRC = 0.
    WRITE: 2 WA2-TABNAME.
  ENDIF.
  WRITE: 35 WA1-TABNAME.
  NEW-LINE.
ENDLOOP.

[Former Member]

This message was moderated.

[Former Member]

Thanku very much my friends..........

[Former Member]

Hi ,

Please note the changes done to your code , to achieve your requirement.

TYPES:BEGIN OF TYPES_TA,

TABNAME TYPE DD02L-TABNAME,

TABCLASS TYPE DD02L-TABCLASS,

END OF TYPES_TA.

DATA: WA TYPE TYPES_TA,

ITAB TYPE TABLE OF TYPES_TA.

SELECT TABNAME TABCLASS FROM DD02L INTO TABLE ITAB.

write:/2(30) 'TRANSPARENT TABLES' ,

35(30) 'STANDARD TABLES'. " Here I modified by removing the /

skip. " Here I modified to enter a blank line

LOOP AT itab INTO wa.

IF wa-tabclass = 'TRANSP' AND wa-tabname BETWEEN 'Z' AND 'ZZZ'.

WRITE:/2(30) wa-tabname.

ENDIF.

IF wa-tabclass = 'TRANSP' AND wa-tabname NOT BETWEEN 'Y' AND 'ZZZ'.

WRITE: 35(30) wa-tabname. " Here I modified by removing the /

ENDIF.

ENDLOOP.

Regards,

Smart