System fields V
-
Program code
-
-
REPORT ZBCTCB93 NO STANDARD PAGE HEADING.
-
PARAMETERS: TEST.
-
DATA: SESSION TYPE I.
-
DATA: BEGIN OF T_TSTCT OCCURS 10.
-
DATA: END OF T_TSTCT.
-
DETAIL.
-
SESSION = SY-MODNO + 1.
-
SET MARGIN 5 3.
-
* The report must have a selection screen and
from there execute+print
-
* should be called the SET MARGIN to take effect.
-
WRITE: / 'Number of this session:', SESSION.
-
WRITE: / 'List starts from the ', SY-MACOL,
',', SY-MAROW, 'upper-left corner.'.
-
SKIP.
-
WRITE: / 'This is the', SY-FDAYW, '. workday
of the week.'.
-
APPEND T_TSTCT.
-
APPEND T_TSTCT.
-
APPEND T_TSTCT.
-
DESCRIBE TABLE T_TSTCT.
-
WRITE: / 'Line width of internal table: 1 (lang) + 4 (tcode) + 36 (text)
=', SY-TLENG.
-
WRITE: / 'OCCURS parameter:', SY-TOCCU.
-
WRITE: / 'Number of entries in internal table:', SY-TFILL.
Bence Toth