Tuesday, April 16, 2013

Formatting ABAP Table Display

*&---------------------------------------------------------------------*
*& Report  ZTWO
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*

REPORT  ZTWO.
*NESTED LOOP
DATA:
  gs_saplane TYPE CATSDB,
  gt_saplane TYPE TABLE OF CATSDB.
WRITE:/20 'NORMAL CATSDB TABLE'.  "(10) makes field take up 10 chars
WRITE:/20 sy-uline(19).
skip 1.
SELECT FROM CATSDB INTO TABLE gt_saplane.
WRITE:/1  sy-vline,
'CREATED ON' COLOR COL_HEADINGsy-vline,(20)
'PROCESSING TIME' COLOR COL_HEADINGsy-vline,(30)
'DATE' COLOR COL_HEADINGsy-vline.
LOOP AT gt_saplane INTO gs_saplane.
  WRITE/1 sy-vline,
  gs_saplane-ERSDA COLOR COL_HEADINGsy-vline,
    (20gs_saplane-STATUS COLOR COL_HEADINGsy-vline,
  (30gs_saplane-WORKDATE COLOR COL_HEADINGsy-vline.
ENDLOOP.
ULINE.
skip 2.
SELECT FROM CATSDB INTO TABLE gt_saplane.
WRITE:/30 'LOOP ON CATS DB TABLE'.
WRITE:/1 'Created On ' color 5,
(30'Processing Time' color 5.
*LOOP SHOW PROCESS UNDER 20
LOOP AT gt_saplane INTO gs_saplane WHERE STATUS 20.
  WRITE/1 gs_saplane-ERSDA,(20)
    gs_saplane-STATUS.
ENDLOOP.
EXIT.


OUTPUT




No comments:

Post a Comment