SAP_Lab4

REPORT ZLAB4_5627.

*CONSTANTS COLNO1 TYPE I VALUE 2.
*CONSTANTS COLNO2 TYPE I VALUE 28.
*CONSTANTS COLNO3 TYPE I VALUE 60.
*
*WRITE: AT COLNO1 'DATE :',SY-DATUM.
*WRITE: AT COLNO2 'Customers Listing'.
*WRITE: AT COLNO3 'TIME :',SY-UZEIT.
*FORMAT COLOR 1.
*WRITE /1(72) SY-ULINE.
*WRITE: / SY-VLINE,AT COLNO1(16) 'Customers ID', 18 SY-VLINE, AT COLNO2(24)'Name' CENTERED,52 SY-VLINE,AT COLNO3(10)'CITY', 72 SY-VLINE.
*WRITE /1(72) SY-ULINE.
*FORMAT COLOR OFF.
*WRITE: / SY-VLINE,AT COLNO1(16) '5510405627', 18 SY-VLINE, AT COLNO2(24)'Tanatip I.' CENTERED,52 SY-VLINE,AT COLNO3(10)'Bangkok', 72 SY-VLINE.
*WRITE: / SY-VLINE,AT COLNO1(16) '5510450096', 18 SY-VLINE, AT COLNO2(24)'Nattadecha L.' CENTERED,52 SY-VLINE,AT COLNO3(10)'Nonthaburi', 72 SY-VLINE.
*WRITE: / SY-VLINE,AT COLNO1(16) '5510450169', 18 SY-VLINE, AT COLNO2(24)'Nattanon L.' CENTERED,52 SY-VLINE,AT COLNO3(10)'Bangkok', 72 SY-VLINE.
*WRITE /1(72) SY-ULINE.

*TABLES KNA1.
*SELECT * FROM KNA1
*  WHERE KUNNR LIKE '%1'.
*  WRITE: / KNA1-KUNNR,KNA1-NAME1.
* ENDSELECT.
*IF SY-SUBRC <> 0.
*   WRITE / 'NO DATA FOUND'.
*ENDIF.

*TABLES: SCARR,SPFLI.
*SELECT SPFLI~CARRID SCARR~CARRNAME SPFLI~CONNID
*  INTO (SPFLI-CARRID, SCARR-CARRNAME, SPFLI-CONNID)
*  FROM SPFLI JOIN SCARR
*  ON SPFLI~CARRID = SCARR~CARRID
*  ORDER BY SCARR~CARRNAME DESCENDING.
*  WRITE: / SPFLI-CARRID,SCARR-CARRNAME,SPFLI-CONNID.
*ENDSELECT.

CONSTANTS COLNO01 TYPE I VALUE 2.
CONSTANTS COLNO02 TYPE I VALUE 16.
CONSTANTS COLNO03 TYPE I VALUE 54.
CONSTANTS COLNO04 TYPE I VALUE 92.
FORMAT COLOR 7.
WRITE /1(103) SY-ULINE.
WRITE: / SY-VLINE,AT COLNO01(3) 'No.', 14 SY-VLINE, AT COLNO02(4)'Name' CENTERED,52 SY-VLINE,AT COLNO03(10)'Address',90 SY-VLINE,AT COLNO04(11)'Postal Code', 103 SY-VLINE.
WRITE /1(103) SY-ULINE.
FORMAT COLOR OFF.
TABLES KNA1.
SELECT KUNNR NAME1 ORT01 PSTLZ
  into (KNA1-KUNNR, KNA1-NAME1, KNA1-ORT01, KNA1-PSTLZ)
  from kna1.
*SELECT * FROM KNA1.
  WRITE: / SY-VLINE,KNA1-KUNNR,SY-VLINE.
  WRITE: KNA1-NAME1,SY-VLINE.
  WRITE: KNA1-ORT01,SY-VLINE.
  WRITE: KNA1-PSTLZ,SY-VLINE.
  WRITE SY-ULINE(103).
ENDSELECT.
*WRITE /1(103) SY-ULINE.