topic Re: Calculating Record Size in Application Development and Automation Discussions

Calculating Record Size

Former Member — Thu, 27 Mar 2008 15:05:32 GMT

Is there a way to programmatically calculate the record size of a given table? Better yet, is this information stored in some table that an ABAP program can read and not even have to calculate it.

For example given tables, VBAK, BSEG, VBRK, etc., I need to know the record lengths of these tables. (I need this information for about 200 tables... so a manual calculation would be rather labor intensive).

Re: Calculating Record Size

Former Member — Thu, 27 Mar 2008 15:07:40 GMT

Hi,

use system variable SY-DBCNT

Regards,

V.Balaji

Reward if Usefull...

Re: Calculating Record Size

rainer_hbenthal — Thu, 27 Mar 2008 15:13:36 GMT

What is a record size?

Re: Calculating Record Size

Former Member — Thu, 27 Mar 2008 15:15:34 GMT

By record size I mean the following:

Suppose we have a table with this definition

MANDT

VBELN

NETWR

....

...

I want to know how wide this record definition is, i.e. 4(MANDT) + 10(VBELN) + .... etc

Re: Calculating Record Size

franois_henrotte — Thu, 27 Mar 2008 15:26:00 GMT

no no

the field LENGTH is in SY-TLENG

or you can use the DESCRIBE FIELD ... LENGTH ... statement

Re: Calculating Record Size

Former Member — Thu, 27 Mar 2008 15:27:01 GMT

hi check this ...

tables:pa0000.

data: begin of itab occurs 0.

include structure pa0000.

data: end of itab.

data: i type i.

data:string type string.

select * from pa0000 into table itab .

i = strlen( itab ).

loop at itab.

write:/ i.

endloop.

regards,

venkat.

Re: Calculating Record Size

Former Member — Thu, 27 Mar 2008 15:31:59 GMT

I guess there are lots of ways to do it. Here is one way.

REPORT zjc_temp.

DATA:  BEGIN OF g_s_ddic,
  tabname TYPE dd02l-tabname,
  intlen  TYPE dd03l-intlen.
DATA:  END OF g_s_ddic.

DATA:
   g_t_ddic LIKE TABLE OF  g_s_ddic,
   g_v_len  TYPE i.



SELECT t~tabname f~intlen
INTO CORRESPONDING FIELDS OF TABLE g_t_ddic
FROM dd02l AS t
  INNER JOIN dd03l AS f
     ON  f~tabname = t~tabname
     AND f~as4local = t~as4local
     AND f~as4vers = t~as4vers
WHERE t~tabclass = 'TRANSP'
AND t~tabname in ('BSEG')'
  ORDER BY t~tabname.


LOOP AT g_t_ddic INTO g_s_ddic.
  g_v_len = g_v_len + g_s_ddic-intlen.
  AT END OF tabname.
    WRITE:/ g_s_ddic-tabname, g_v_len.
    g_v_len = 0.
  ENDAT.
ENDLOOP.