MODULE - 1 | ABAP BASICS ( OPEN SQL.PDF )

 QUESTION - 01

REPORT ZTM20382363_OSQL_Q1.
PARAMETERS: DOC TYPE VBELN DEFAULT '0010000031'.
SELECT SINGLE ERDAT, ERNAM, ERZET
  FROM VBAP
  INTO @DATA(LS_VBAP)
  WHERE VBELN = @DOC.
WRITE: / 'CREATED ON: ', LS_VBAP-ERDAT,
       / 'CREATED BY: ', LS_VBAP-ERNAM,
       / 'TIME: ', LS_VBAP-ERZET.

QUESTION - 02

REPORT ZTM20382363_OSQL_Q2.
PARAMETERS: DOC TYPE VBELN.
SELECT SINGLE
   MATNR, ARKTX, PSTYV
  FROM VBAP
  INTO @DATA(LS_VBAP)
  WHERE VBELN = @DOC.
WRITE: / 'MATERIAL NUMBER: ', LS_VBAP-MATNR,
       / 'MATERIAL DESCRIPTION: ', LS_VBAP-ARKTX,
       / 'ITEM CATEGORY: ', LS_VBAP-PSTYV.

QUESTION - 03

REPORT ZTM20382363_OSQL_03.
PARAMETERS: MATNO TYPE VBAP-VBELN.
PARAMETERS: CAT TYPE VBAP-PSTYV.
SELECT SINGLE VBELN, MATNR, ARKTX, ABDAT, MEINS
  FROM VBAP
  INTO @DATA(LS_VBAP)
  WHERE MATNR = @MATNO AND PSTYV = @CAT.
WRITE: / LS_VBAP-VBELN, LS_VBAP-MATNR, LS_VBAP-ARKTX, LS_VBAP-ABDAT, LS_VBAP-MEINS.

QUESTION - 04

REPORT ZTM20382363_OSQL_Q4.
SELECT * FROM BKPF
  INTO TABLE @DATA(LT_BKPF)
  WHERE BLART = 'WE' AND BLDAT = '19950703'.
LOOP AT LT_BKPF INTO DATA(LS_BKPF).
  WRITE: / LS_BKPF-WAERS, LS_BKPF-BLART, LS_BKPF-BLDAT, LS_BKPF-BELNR.
  AT LAST.
    WRITE: / 'TOTAL RECORDS: ', SY-DBCNT.
  ENDAT.
ENDLOOP.

QUESTION - 05

REPORT ZTM20382363_OSQL_Q5.
DATA LV_BLART TYPE BLART.
SELECT-OPTIONS: DOCTYPE FOR LV_BLART.
SELECT * FROM BKPF
  INTO TABLE @DATA(LT_BKPF)
  WHERE BLART IN @DOCTYPE.
IF SY-SUBRC <> 0.
  MESSAGE 'RECORD NOT FOUND' TYPE 'E'.
ENDIF.
LOOP AT LT_BKPF INTO DATA(LS_BKPF).
  AT FIRST.
    WRITE: / 'COMPANY CODE', 15 'DOC. NUMBER', 30 'ACC. TYPE', 45 'TAX CODE'.
    SKIP.
  ENDAT.
  WRITE: / LS_BKPF-BUKRS, 15 LS_BKPF-BELNR, 30 LS_BKPF-BLART, 45 LS_BKPF-XMWST.
AT LAST.
  skip.
  uline.
  WRITE: / 'TITLE: ', SY-TITLE.
  ULINE.
ENDAT.
ENDLOOP.

QUESTION - 06

REPORT ZTM20382363_OSQL_Q6.
PARAMETERS: DOCNO TYPE BKPF-BELNR.
SELECT * FROM BKPF
  INTO TABLE @DATA(LT_BKPF)
  WHERE BELNR = @DOCNO.
IF SY-SUBRC <> 0.
  MESSAGE 'RECORD NOT FOUND' TYPE 'E'.
ENDIF.
LOOP AT LT_BKPF INTO DATA(LS_BKPF).
  AT FIRST.
    WRITE: / 'DOC. NUMBER', 15 'DOC. STATUS', 30 'DATE OF DOC.', 45 'DOC. TYPE'.
    SKIP.
  ENDAT.
  WRITE: / LS_BKPF-BELNR, 15 LS_BKPF-BSTAT, 30 LS_BKPF-BLDAT, 45 LS_BKPF-BLART.
ENDLOOP.

QUESTION - 07

REPORT ZTM20382363_OSQL_Q7.
SELECT SINGLE * FROM BKPF
  INTO @DATA(LS_BKPF)
  WHERE BLDAT = '19950703' AND BLART = 'WE' AND BELNR BETWEEN '0000000001' AND '0000010009'.
IF SY-SUBRC <> 0.
  MESSAGE 'RECORD NOT FOUND' TYPE 'E'.
ENDIF.
WRITE: / LS_BKPF-BUKRS, 10 LS_BKPF-BELNR, 20 LS_BKPF-BLART, 30 LS_BKPF-BLDAT.

QUESTION - 08

REPORT ZTM20382363_OSQL_Q8.
PARAMETERS: PLANT TYPE EKPO-WERKS.
SELECT * FROM EKPO
  INTO TABLE @DATA(LT_EKPO)
  WHERE WERKS = @PLANT.
IF SY-SUBRC <> 0.
  MESSAGE 'RECORD NOT FOUND' TYPE 'E'.
ENDIF.
LOOP AT LT_EKPO INTO DATA(LS_EKPO).
  AT FIRST.
  WRITE: / 'PURCHASE DOC NUMBER', 15 'DOC STATUS', 30 'DOC. DATE', 45 'QUANTITY'.
  SKIP.
  ENDAT.
  WRITE: / LS_EKPO-EBELN, 15 LS_EKPO-STATU, 30 LS_EKPO-AEDAT, 45 LS_EKPO-MENGE.
ENDLOOP.