Scribd
Upload
47 views4 pages

ZLP Itab Vbap

Uploaded by

naveen441
Copyright
© © All Rights Reserved
We take content rights seriously. If you suspect this is your content, claim it here.
Available Formats
Download as TXT, PDF, TXT or read online on Scribd
47 views4 pages

ZLP Itab Vbap

Uploaded by

naveen441
Copyright
© © All Rights Reserved
We take content rights seriously. If you suspect this is your content, claim it here.
Available Formats
Download as TXT, PDF, TXT or read online on Scribd
You are on page 1/ 4

*&---------------------------------------------------------------------*

*& Report ZLP_ITAB_VBAP


*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*

REPORT zlp_itab_vbap.

TYPES : BEGIN OF t_vbap,


vbeln TYPE vbeln_va,
posnr TYPE posnr_va,
matnr TYPE matnr,
arktx TYPE arktx,
kwmeng TYPE kwmeng,
netwr TYPE netwr_ap,
END OF t_vbap.

TYPES : tt_vbap TYPE standard table of t_vbap.

DATA : lw_vbap TYPE t_vbap,


lt_vbap TYPE tt_vbap.

* Populating Data

lw_vbap-vbeln = '11' .
* sales document char 10
lw_vbap-posnr = '11' .
* sales document item numc 6
lw_vbap-matnr = '11' .
* material number char 18
lw_vbap-arktx = 'Sony'.
* short text for sales order item char 40
lw_vbap-kwmeng = 1.
*order quantity quan 15
lw_vbap-netwr = '11'.
* net value of order item curr 15

APPEND lw_vbap TO lt_vbap.


CLEAR lw_vbap.

lw_vbap-vbeln = '12' .
* sales document char 10
lw_vbap-posnr = '12' .
* sales document item numc 6
lw_vbap-matnr = '12' .
* material number char 18
lw_vbap-arktx = 'Sony'.
* short text for sales order item char 40
lw_vbap-kwmeng = 2.
*order quantity quan 15
lw_vbap-netwr = '12'.
* net value of order item curr 15

APPEND lw_vbap TO lt_vbap.


CLEAR lw_vbap.

lw_vbap-vbeln = '13' .
* sales document char 10
lw_vbap-posnr = '13' .
* sales document item numc 6
lw_vbap-matnr = '13' .
* material number char 18
lw_vbap-arktx = 'Sony'.
* short text for sales order item char 40
lw_vbap-kwmeng = 3.
*order quantity quan 15
lw_vbap-netwr = '13'.
* net value of order item curr 15

APPEND lw_vbap TO lt_vbap.


CLEAR lw_vbap.

lw_vbap-vbeln = '14' .
* sales document char 10
lw_vbap-posnr = '14' .
* sales document item numc 6
lw_vbap-matnr = '14' .
* material number char 18
lw_vbap-arktx = 'Sony'.
* short text for sales order item char 40
lw_vbap-kwmeng = 4.
*order quantity quan 15
lw_vbap-netwr = '14'.
* net value of order item curr 15

APPEND lw_vbap TO lt_vbap.


CLEAR lw_vbap.

lw_vbap-vbeln = '15' .
* sales document char 10
lw_vbap-posnr = '15' .
* sales document item numc 6
lw_vbap-matnr = '15' .
* material number char 18
lw_vbap-arktx = 'Sony'.
* short text for sales order item char 40
lw_vbap-kwmeng = 5.
*order quantity quan 15
lw_vbap-netwr = '15'.
* net value of order item curr 15

APPEND lw_vbap TO lt_vbap.


CLEAR lw_vbap.

*Displaying Data

LOOP AT lt_vbap into lw_vbap.


WRITE : / lw_vbap-vbeln, lw_vbap-posnr, lw_vbap-matnr, lw_vbap-arktx, lw_vbap-
kwmeng, lw_vbap-netwr.
CLEAR lw_vbap.
ENDLOOP.
SKIP 2.

* Insertion

lw_vbap-vbeln = '16' .
* sales document char 10
lw_vbap-posnr = '16' .
* sales document item numc 6
lw_vbap-matnr = '16' .
* material number char 18
lw_vbap-arktx = 'Sony'.
* short text for sales order item char 40
lw_vbap-kwmeng = 6.
*order quantity quan 15
lw_vbap-netwr = '16'.
* net value of order item curr 15

Insert lw_vbap inTO lt_vbap index 3.


CLEAR lw_vbap.

*Displaying Data

LOOP AT lt_vbap into lw_vbap.


WRITE : / lw_vbap-vbeln, lw_vbap-posnr, lw_vbap-matnr, lw_vbap-arktx, lw_vbap-
kwmeng, lw_vbap-netwr.
CLEAR lw_vbap.
ENDLOOP.

SKIP 2.

*Modifying Data

lw_vbap-vbeln = '16' .
* sales document char 10
lw_vbap-posnr = '13' .
* sales document item numc 6
lw_vbap-matnr = '16' .
* material number char 18
lw_vbap-arktx = 'Sony'.
* short text for sales order item char 40
lw_vbap-kwmeng = 6.
*order quantity quan 15
lw_vbap-netwr = '16'.
* net value of order item curr 15

modify lt_vbap from lw_vbap index 3.


clear lw_vbap.

*Displaying Data

LOOP AT lt_vbap into lw_vbap.


WRITE : / lw_vbap-vbeln, lw_vbap-posnr, lw_vbap-matnr, lw_vbap-arktx, lw_vbap-
kwmeng, lw_vbap-netwr.
CLEAR lw_vbap.
ENDLOOP.
SKIP 2.

* Deletion

delete lt_vbap index 3.

*Displaying Data

LOOP AT lt_vbap into lw_vbap.


WRITE : / lw_vbap-vbeln, lw_vbap-posnr, lw_vbap-matnr, lw_vbap-arktx, lw_vbap-
kwmeng, lw_vbap-netwr.
CLEAR lw_vbap.
ENDLOOP.

You might also like

pFad - Phonifier reborn

Pfad - The Proxy pFad of © 2024 Garber Painting. All rights reserved.

Note: This service is not intended for secure transactions such as banking, social media, email, or purchasing. Use at your own risk. We assume no liability whatsoever for broken pages.


Alternative Proxies:

Alternative Proxy

pFad Proxy

pFad v3 Proxy

pFad v4 Proxy