*&---------------------------------------------------------------------*
*& 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_HEADING, sy-vline,(20)
'PROCESSING TIME' COLOR COL_HEADING, sy-vline,(30)
'DATE' COLOR COL_HEADING, sy-vline.
LOOP AT gt_saplane INTO gs_saplane.
WRITE: /1 sy-vline,
gs_saplane-ERSDA COLOR COL_HEADING, sy-vline,
(20) gs_saplane-STATUS COLOR COL_HEADING, sy-vline,
(30) gs_saplane-WORKDATE COLOR COL_HEADING, sy-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
*& 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_HEADING, sy-vline,(20)
'PROCESSING TIME' COLOR COL_HEADING, sy-vline,(30)
'DATE' COLOR COL_HEADING, sy-vline.
LOOP AT gt_saplane INTO gs_saplane.
WRITE: /1 sy-vline,
gs_saplane-ERSDA COLOR COL_HEADING, sy-vline,
(20) gs_saplane-STATUS COLOR COL_HEADING, sy-vline,
(30) gs_saplane-WORKDATE COLOR COL_HEADING, sy-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