prt master data

Former Member — Thu, 24 Jan 2008 07:38:18 GMT

hi all,

i want to exteact prt (product resource tool ) related data from mateial master data ( mat type fhmi ).

my input consists of material and plant , and i need to extract other details.

can any body help me in this regard.

rgds

siva

Re: prt master data

Former Member — Thu, 24 Jan 2008 07:40:16 GMT

Hope this code will help you.

reward if help.

REPORT zmm_longtext

NO STANDARD PAGE HEADING

LINE-SIZE 255.

Internal Table for Upload of Long Texts Data

DATA: BEGIN OF itab1 OCCURS 0,

matnr LIKE mara-matnr, " Material

text LIKE tline-tdline, " Long Text

END OF itab1.

Internal Table for Upload of Long Texts Data

DATA: BEGIN OF itab OCCURS 0,

matnr LIKE mara-matnr, " Material

text LIKE tline-tdline, " Long Text

END OF itab.

To create Long Text lines for CREATE_TEXT function module

DATA:BEGIN OF dt_lines OCCURS 0.

INCLUDE STRUCTURE tline. " Long Text

DATA:END OF dt_lines.

Variable declarations for CREATE_TEXT function module

DATA : dl_name TYPE thead-tdname, " Object Name

dl_lan TYPE thead-tdspras, " Language

gv_matnr TYPE matnr.

Constants

CONSTANTS:

Object ID for Long Text of Material Basic Data 1

c_best TYPE thead-tdid VALUE 'GRUN',

c_material TYPE thead-tdobject VALUE 'MATERIAL'. " Object

Parameters

PARAMETERS p_file LIKE rlgrap-filename.

At selection-screen on Value Request for file Name

AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_file.

Get the F4 Values for the File

CALL FUNCTION 'F4_FILENAME'

EXPORTING

program_name = syst-cprog

dynpro_number = syst-dynnr

IMPORTING

file_name = p_file.

Start Of Selection

START-OF-SELECTION.

*To Upload Flat file

CALL FUNCTION 'UPLOAD'

EXPORTING

filename = p_file

filetype = 'DAT'

TABLES

data_tab = itab1

EXCEPTIONS

conversion_error = 1

invalid_table_width = 2

invalid_type = 3

no_batch = 4

unknown_error = 5

gui_refuse_filetransfer = 6

OTHERS = 7.

SORT itab1 BY matnr.

LOOP AT itab1.

CLEAR gv_matnr.

SELECT SINGLE matnr INTO gv_matnr

FROM mara WHERE bismt = itab1-matnr.

IF itab1-text NE ' '.

itab-matnr = gv_matnr.

itab-text = itab1-text.

APPEND itab.

ENDIF.

CLEAR itab.

ENDLOOP.

DELETE itab WHERE matnr EQ ' '.

Upload the Texts

SORT itab BY matnr.

LOOP AT itab.

dt_lines-tdformat = 'ST'.

dt_lines-tdline = itab-text.

APPEND dt_lines.

dl_lan = sy-langu.

dl_name = itab-matnr.

Call the Function Module to Create Text

CALL FUNCTION 'CREATE_TEXT'

EXPORTING

fid = c_best

flanguage = dl_lan

fname = dl_name

fobject = c_material

save_direct = 'X'

fformat = '*'

TABLES

flines = dt_lines

EXCEPTIONS

no_init = 1

no_save = 2

OTHERS = 3.

IF sy-subrc <> 0.

WRITE:/ 'Long Text Creation failed for Material'(001),

itab-matnr.

ELSE.

WRITE:/ 'Long Text Created Successfully for Material'(002),

itab-matnr.

ENDIF.

AT END OF matnr.

REFRESH dt_lines.

ENDAT.

ENDLOOP.

Re: prt master data

Former Member — Thu, 24 Jan 2008 08:01:37 GMT

hi deepak,

thanks for reply,

i want the data base tables, that is link to extract data from plfh

table by giving matnr and plank

topic prt master data in Application Development and Automation Discussions

prt master data

Re: prt master data

Re: prt master data