topic Re: remove space in Application Development and Automation Discussions

remove space

Former Member — Thu, 13 May 2010 08:36:58 GMT

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.

Re: remove space

Sandeep_Panghal — Thu, 13 May 2010 09:26:19 GMT

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.

Re: remove space

Former Member — Thu, 13 May 2010 09:41:54 GMT

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

Re: remove space

Former Member — Thu, 13 May 2010 11:51:55 GMT

try

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

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

Re: remove space

Former Member — Thu, 13 May 2010 11:54:11 GMT

thanku for response ....

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

Re: remove space

Former Member — Thu, 13 May 2010 11:59:56 GMT

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.

Re: remove space

Former Member — Thu, 13 May 2010 12:01:16 GMT

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

Re: remove space

Former Member — Thu, 13 May 2010 12:05:19 GMT

This message was moderated.

Re: remove space

Former Member — Thu, 13 May 2010 12:16:08 GMT

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