Scribd
Upload
114 views3 pages

ZMM r000 Material Details

This document describes an IBM report program called ZMM_R000_MATERIAL_DETAILS that displays material details including the corresponding plant and storage location. The program retrieves data from various tables including MARA, MAKT, MARC, and MARD, performs validation on the material number and plant fields, and outputs the material details to a final internal table for display. It is used to display material details and related information for a given plant.

Uploaded by

MrconfusionSap
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
114 views3 pages

ZMM r000 Material Details

This document describes an IBM report program called ZMM_R000_MATERIAL_DETAILS that displays material details including the corresponding plant and storage location. The program retrieves data from various tables including MARA, MAKT, MARC, and MARD, performs validation on the material number and plant fields, and outputs the material details to a final internal table for display. It is used to display material details and related information for a given plant.

Uploaded by

MrconfusionSap
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/ 3

*---------------------------------------------------------------------*

*Program Name
: ZMM_R000_MATERIAL_DETAILS
*
*Program Type
: Report
*
*Vendor
: IBM
*
*Developer
: Naresh Babu Karlakunta
*
*---------------------------------------------------------------------*
*TR
| Date
|Developer
| Version
*
*---------------------------------------------------------------------*
*ECCK900016 | 13 Jun 2010 | SIBM046
| Initial
*
*---------------------------------------------------------------------*
*Description : This report is used to display material orresponding *
*
corresponding plant and storage location details
*
*
*
*---------------------------------------------------------------------*
REPORT ZMM_R000_MATERIAL_DETAILS MESSAGE-ID zmsg.
include ZMM_R000_MATERIAL_DETAILS_top.
include ZMM_R000_MATERIAL_DETAILS_sel.
include ZMM_R000_MATERIAL_DETAILS_form.
*---------------------------------------------------------------------*
* I N I T I A L I Z A T I O N
E V E N T
*
*---------------------------------------------------------------------*
INITIALIZATION.
*Intialise the global data
perform f_initialise_data.
*---------------------------------------------------------------------*
* A T S E L E C T I O N - S C R E E N
E V E N T
*
*---------------------------------------------------------------------*
at SELECTION-SCREEN .
SELECT MARA~MATNR
MARA~MTART
MAKT~MAKTX
INTO TABLE IT_VALUE_TAB
FROM MARA INNER JOIN MAKT
ON MARA~MATNR = MAKT~MATNR.
WA_FIELD_TAB-FIELDNAME
APPEND WA_FIELD_TAB TO
WA_FIELD_TAB-FIELDNAME
APPEND WA_FIELD_TAB TO
WA_FIELD_TAB-FIELDNAME
APPEND WA_FIELD_TAB TO

= 'MATNR'.
IT_FIELD_TAB.
= 'MTART'.
IT_FIELD_TAB.
= 'MAKTX'.
IT_FIELD_TAB.

*at selection-screen on VALUE-request.


*CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'
* EXPORTING
** DDIC_STRUCTURE
= ' '
*
RETFIELD
= S_MATNR
** PVALKEY
= ' '

** DYNPPROG
= ' '
** DYNPNR
= ' '
** DYNPROFIELD
= ' '
** STEPL
= 0
** WINDOW_TITLE
= LC_WINDOW
** VALUE
= ' '
* VALUE_ORG
= 'S'
** MULTIPLE_CHOICE
= ' '
** DISPLAY
= ' '
** CALLBACK_PROGRAM
= ' '
** CALLBACK_FORM
= ' '
** MARK_TAB
=
** IMPORTING
** USER_RESET
=
* TABLES
*
VALUE_TAB
= IT_VALUE_TAB
* FIELD_TAB
= IT_FIELD_TAB
** RETURN_TAB
= IT_RETURN_TAB
** DYNPFLD_MAPPING
=
** EXCEPTIONS
** PARAMETER_ERROR
= 1
** NO_VALUES_FOUND
= 2
** OTHERS
= 3
*
.
*IF SY-SUBRC <> 0.
** MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
**
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
*ENDIF.
*validate the sales document number (VBELN)
perform f_validate_matnr .
perform f_validate_werks .

*---------------------------------------------------------------------*
* S T A R T - O F - S E L E C T I O N
E V E N T
*
*---------------------------------------------------------------------*
START-OF-SELECTION.
*fetch the records from MARA
perform f_fetch_mara CHANGING it_mara.
*fetch the data from MAKT
perform f_fetch_makt using it_mara
CHANGING it_makt.
*fetch the data from MARC
perform f_fetch_marc using it_mara
CHANGING it_marc.
*fetch the data from MARD
perform f_fetch_mard using it_mara
CHANGING it_mard.
* fetch the data from FINAL
perform f_populate_final using it_mara
it_makt
it_marc

it_mard
CHANGING it_FINAL.
*FILL THE FIELDCAT INTERNAL TABLE
PERFORM F_FILL_FIELDCAT USING: '1'
'2'
'3'
'4'
'5'
'6'
'7'
'8'

'MATNR'
'MATKL'
'MEINS'
'MAKTX'
'WERKS'
'EKGRP'
'LGORT'
'LABST'

'MATERIAL NUMBER',
'Material Group',
'Base Unit of Measure',
'Material Description',
'Plant',
'Purchasing Group',
'Storage Location',
'stock with USE'.

*---------------------------------------------------------------------*
* T O P - O F - P A G E
E V E N T
*
*---------------------------------------------------------------------*
top-of-page.
write:/ ' ZMM_R000_MATERIAL_DETAILS REPORT' .
write:/ 'Plant : ', s_werks .
write:/ 'material number from ', s_matnr-low, ' to ', s_matnr-high.
*uline.
*write:/1 'material-number',
*
18 'group',
*
28 'units',
*
35 'Material-Description',
*
77 'plant',
*
85 'pur-grp',
*
93 'st loc',
*
109 'stock with use'.
*uline.

*---------------------------------------------------------------------*
*
E N D - O F - S E L E C T I O N
E V E N T
*
*---------------------------------------------------------------------*
end-of-selection.
* display the data for FINAL output
perform f_display_final using it_final.

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