Re: PRT Tools

Former Member — Wed, 28 May 2008 05:56:51 GMT

hi,

check this code .

***********************************************************

this program extracts prt data for material master mm01 *

***********************************************************

TABLES : MARC, CRVM_B,CRFH.

DATA : BEGIN OF GI_MARC OCCURS 0,

MATNR LIKE MARA-MATNR,

WERKS LIKE MARC-WERKS,

mmsta like marc-mmsta,

mmstd like marc-mmstd,

ausme like marc-ausme,

END OF GI_MARC.

DATA : BEGIN OF GI_MAKT OCCURS 0,

MATNR LIKE MARA-MATNR,

MAKTX LIKE MAKT-MAKTX,

END OF GI_MAKT.

DATA : BEGIN OF GI_CRFH OCCURS 0.

INCLUDE STRUCTURE CRFH.

DATA : END OF GI_CRFH.

DATA : BEGIN OF GI_CRVM_B OCCURS 0.

INCLUDE STRUCTURE CRVM_B.

DATA : END OF GI_CRVM_B.

DATA : BEGIN OF GI_FINAL OCCURS 0,

MATNR LIKE MARA-MATNR,

WERKS LIKE MARC-WERKS,

MAKTX LIKE MAKT-MAKTX,

mmsta like marc-mmsta,

mmstd like marc-mmstd,

ausme like marc-ausme.

INCLUDE STRUCTURE CRFH.

DATA : END OF GI_FINAL.

DATA : BEGIN OF FIELDNAMES OCCURS 0,

FIELD(120),

END OF FIELDNAMES.

SELECTION-SCREEN : BEGIN OF BLOCK B1 WITH FRAME TITLE TEXT-102.

SELECTION-SCREEN : SKIP.

PARAMETER : PFNAME LIKE RLGRAP-FILENAME OBLIGATORY .

SELECTION-SCREEN : SKIP.

SELECTION-SCREEN : END OF BLOCK B1.

AT SELECTION-SCREEN ON VALUE-REQUEST FOR PFNAME.

PERFORM SEARCH.

START-OF-SELECTION.

PERFORM FETCH_DATA.

PERFORM PROCESS.

PERFORM DOWNLOAD.

----

FORM FETCH_DATA *

----

........ *

----

FORM FETCH_DATA.

SELECT MATNR WERKS mmsta mmstd ausme

FROM MARC INTO TABLE

GI_MARC WHERE PSTAT LIKE '%F%'.

SORT GI_MARC BY MATNR WERKS.

IF NOT GI_MARC[] IS INITIAL.

SELECT MATNR MAKTX

FROM MAKT INTO TABLE

GI_MAKT FOR ALL ENTRIES IN GI_MARC

WHERE MATNR = GI_MARC-MATNR

AND SPRAS = 'EN'.

SELECT * FROM CRVM_B INTO

CORRESPONDING FIELDS OF

TABLE GI_CRVM_B FOR ALL ENTRIES IN GI_MARC

WHERE MATNR = GI_MARC-MATNR

AND WERKS = GI_MARC-WERKS.

IF NOT GI_CRVM_B[] IS INITIAL.

SELECT * FROM CRFH INTO

CORRESPONDING FIELDS OF

TABLE GI_CRFH FOR ALL ENTRIES IN GI_CRVM_B

WHERE OBJTY = GI_CRVM_B-OBJTY

AND OBJID = GI_CRVM_B-OBJID

AND ZAEHL = '0000000'.

ENDIF.

ENDFORM.

----

FORM PROCESS *

----

........ *

----

FORM PROCESS.

IF NOT GI_CRFH[] IS INITIAL.

SORT GI_MAKT BY MATNR .

SORT GI_CRVM_B BY MATNR WERKS OBJTY OBJID.

SORT GI_CRFH BY OBJTY OBJID ZAEHL.

LOOP AT GI_MARC.

MOVE GI_MARC-MATNR TO GI_FINAL-MATNR.

MOVE GI_MARC-WERKS TO GI_FINAL-WERKS.

MOVE GI_MARC-mmsta TO GI_FINAL-mmsta.

MOVE GI_MARC-mmstd TO GI_FINAL-mmstd.

MOVE GI_MARC-ausme TO GI_FINAL-ausme.

READ TABLE GI_MAKT WITH KEY MATNR = GI_MARC-MATNR.

IF SY-SUBRC = 0.

MOVE GI_MAKT-MAKTX TO GI_FINAL-MAKTX.

ENDIF.

READ TABLE GI_CRVM_B WITH KEY MATNR = GI_MARC-MATNR

WERKS = GI_MARC-WERKS.

IF SY-SUBRC = 0.

READ TABLE GI_CRFH WITH KEY OBJTY = GI_CRVM_B-OBJTY

OBJID = GI_CRVM_B-OBJID

ZAEHL = '0000000'.

IF SY-SUBRC = 0.

MOVE-CORRESPONDING GI_CRFH TO GI_FINAL.

ENDIF.

APPEND GI_FINAL.

CLEAR GI_FINAL.

ENDLOOP.

ENDIF.

ENDFORM.

----

FORM DOWNLOAD *

----

........ *

----

FORM DOWNLOAD.

perFORM SALES_PLANT_FIELDNAMES.

CALL FUNCTION 'WS_DOWNLOAD'

EXPORTING

BIN_FILESIZE = ' '
CODEPAGE = ' '

FILENAME = PFNAME

FILETYPE = 'DAT'

MODE = ' '
WK1_N_FORMAT = ' '
WK1_N_SIZE = ' '
WK1_T_FORMAT = ' '
WK1_T_SIZE = ' '
COL_SELECT = ' '
COL_SELECTMASK = ' '
NO_AUTH_CHECK = ' '
IMPORTING
FILELENGTH =

TABLES

DATA_TAB = GI_FINAL

FIELDNAMES = fieldnames

EXCEPTIONS
FILE_OPEN_ERROR = 1
FILE_WRITE_ERROR = 2
INVALID_FILESIZE = 3
INVALID_TYPE = 4
NO_BATCH = 5
UNKNOWN_ERROR = 6
INVALID_TABLE_WIDTH = 7
GUI_REFUSE_FILETRANSFER = 8
CUSTOMER_ERROR = 9
OTHERS = 10

IF SY-SUBRC = 0.

WRITE : /10 'DOWN LOADED SUCCESSFULLY'.

MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.

ENDIF.

ENDFORM.

FORM SEARCH.

CALL FUNCTION 'KD_GET_FILENAME_ON_F4'

EXPORTING

STATIC = 'X'

CHANGING

FILE_NAME = PFNAME.

ENDFORM. "search

FORM SALES_PLANT_FIELDNAMES.

FIELDNAMES-FIELD = 'Material Number'.

APPEND FIELDNAMES.

CLEAR FIELDNAMES.

FIELDNAMES-FIELD = 'Material Description'.

APPEND FIELDNAMES.

CLEAR FIELDNAMES.

FIELDNAMES-FIELD = 'PLANT.'.

APPEND FIELDNAMES.

CLEAR FIELDNAMES.

FIELDNAMES-FIELD = 'Plant-Specific Material Status.'.

APPEND FIELDNAMES.

CLEAR FIELDNAMES.

FIELDNAMES-FIELD = 'Date from which plant-spec mat status is valid'.

APPEND FIELDNAMES.

CLEAR FIELDNAMES.

FIELDNAMES-FIELD = 'unit of issue'.

APPEND FIELDNAMES.

CLEAR FIELDNAMES.

FIELDNAMES-FIELD = 'CLIENT '.

APPEND FIELDNAMES.

CLEAR FIELDNAMES.

FIELDNAMES-FIELD = ' OBJECT ID'.

APPEND FIELDNAMES.

CLEAR FIELDNAMES.

FIELDNAMES-FIELD = 'Object ID of the resource '.

APPEND FIELDNAMES.

CLEAR FIELDNAMES.

FIELDNAMES-FIELD = 'Internal counter '.

APPEND FIELDNAMES.

CLEAR FIELDNAMES.

FIELDNAMES-FIELD = 'Production resources/tools category '.

APPEND FIELDNAMES.

CLEAR FIELDNAMES.

FIELDNAMES-FIELD = 'Object types of the CIM resource '.

APPEND FIELDNAMES.

CLEAR FIELDNAMES.

FIELDNAMES-FIELD = 'Object ID of the resource '.

APPEND FIELDNAMES.

CLEAR FIELDNAMES.

FIELDNAMES-FIELD = 'Deletion indicator master '.

APPEND FIELDNAMES.

CLEAR FIELDNAMES.

FIELDNAMES-FIELD = 'Valid-from date '.

APPEND FIELDNAMES.

CLEAR FIELDNAMES.

FIELDNAMES-FIELD = 'Valid-to date '.

APPEND FIELDNAMES.

CLEAR FIELDNAMES.

FIELDNAMES-FIELD = 'Change number '.

APPEND FIELDNAMES.

CLEAR FIELDNAMES.

FIELDNAMES-FIELD = 'User who created record '.

APPEND FIELDNAMES.

CLEAR FIELDNAMES.

FIELDNAMES-FIELD = 'Date record created on '.

APPEND FIELDNAMES.

CLEAR FIELDNAMES.

FIELDNAMES-FIELD = 'Name of person who changed object '.

APPEND FIELDNAMES.

CLEAR FIELDNAMES.

FIELDNAMES-FIELD = 'Last changed on '.

APPEND FIELDNAMES.

CLEAR FIELDNAMES.

FIELDNAMES-FIELD = 'Authorization group '.

APPEND FIELDNAMES.

CLEAR FIELDNAMES.

FIELDNAMES-FIELD = 'Production resources/tools master: Status '.

APPEND FIELDNAMES.

CLEAR FIELDNAMES.

FIELDNAMES-FIELD = 'Indi Create load records for prd resources/tools '.

APPEND FIELDNAMES.

CLEAR FIELDNAMES.

FIELDNAMES-FIELD = 'Plant location of the production resource/tool '.

APPEND FIELDNAMES.

CLEAR FIELDNAMES.

FIELDNAMES-FIELD = 'Location of a production resource or tool '.

APPEND FIELDNAMES.

CLEAR FIELDNAMES.

FIELDNAMES-FIELD = 'Base unit of measure for prod resources/tools '.

APPEND FIELDNAMES.

CLEAR FIELDNAMES.

FIELDNAMES-FIELD = 'Control key for managt of prod resources/tools '.

APPEND FIELDNAMES.

CLEAR FIELDNAMES.

FIELDNAMES-FIELD = 'Control key cannot be changed '.

APPEND FIELDNAMES.

CLEAR FIELDNAMES.

FIELDNAMES-FIELD = 'Grouping key 1 for production resources/tools '.

APPEND FIELDNAMES.

CLEAR FIELDNAMES.

FIELDNAMES-FIELD = ' Grouping key 2 for production resources/tools '.

APPEND FIELDNAMES.

CLEAR FIELDNAMES.

FIELDNAMES-FIELD = 'Production resource/tool usage '.

APPEND FIELDNAMES.

CLEAR FIELDNAMES.

FIELDNAMES-FIELD = 'Standard text key for production resources/tools '.

APPEND FIELDNAMES.

CLEAR FIELDNAMES.

FIELDNAMES-FIELD = 'Reference key cannot be changed. '.

APPEND FIELDNAMES.

CLEAR FIELDNAMES.

FIELDNAMES-FIELD = ' Reference date to start prod resource/tool usage '.

APPEND FIELDNAMES.

CLEAR FIELDNAMES.

FIELDNAMES-FIELD = ' Start reference date cannot be changed '.

APPEND FIELDNAMES.

CLEAR FIELDNAMES.

FIELDNAMES-FIELD = ' Offset to start of production resource/tool usage'.

APPEND FIELDNAMES.

CLEAR FIELDNAMES.

FIELDNAMES-FIELD = 'Offset unit for start of prod resource/tool usage '.

APPEND FIELDNAMES.

CLEAR FIELDNAMES.

FIELDNAMES-FIELD = ' Offset to start cannot be changed '.

APPEND FIELDNAMES.

CLEAR FIELDNAMES.

FIELDNAMES-FIELD = ' Ref date for end of prod resource/tool usage '.

APPEND FIELDNAMES.

CLEAR FIELDNAMES.

FIELDNAMES-FIELD = ' End reference date cannot be changed '.

APPEND FIELDNAMES.

CLEAR FIELDNAMES.

FIELDNAMES-FIELD = 'Offset to finish of prod resource/tool usage '.

APPEND FIELDNAMES.

CLEAR FIELDNAMES.

FIELDNAMES-FIELD = ' Offset unit for end of prod resource/tool usage '.

APPEND FIELDNAMES.

CLEAR FIELDNAMES.

FIELDNAMES-FIELD = ' Offset to end cannot be changed '.

APPEND FIELDNAMES.

CLEAR FIELDNAMES.

FIELDNAMES-FIELD = ' Formula for calculating total quantity of PRT '.

APPEND FIELDNAMES.

CLEAR FIELDNAMES.

FIELDNAMES-FIELD = ' Formul calcul the total quantity cannot changed '.

APPEND FIELDNAMES.

CLEAR FIELDNAMES.

FIELDNAMES-FIELD = ' Formula for calcul the total usage value of PRT '.

APPEND FIELDNAMES.

CLEAR FIELDNAMES.

FIELDNAMES-FIELD = 'Formula to calcul usage value cannot be changed '.

APPEND FIELDNAMES.

CLEAR FIELDNAMES.

FIELDNAMES-FIELD = ' First parameter (for formulas) '.

APPEND FIELDNAMES.

CLEAR FIELDNAMES.

FIELDNAMES-FIELD = 'Second parameter (for formulas) '.

APPEND FIELDNAMES.

CLEAR FIELDNAMES.

FIELDNAMES-FIELD = 'Third parameter (for formulas) '.

APPEND FIELDNAMES.

CLEAR FIELDNAMES.

FIELDNAMES-FIELD = ' Fourth parameter (for formulas) '.

APPEND FIELDNAMES.

CLEAR FIELDNAMES.

FIELDNAMES-FIELD = ' Fifth parameter (for formulas) '.

APPEND FIELDNAMES.

CLEAR FIELDNAMES.

FIELDNAMES-FIELD = 'Sixth parameter (for formulas) '.

APPEND FIELDNAMES.

CLEAR FIELDNAMES.

endform.

regards

siva

topic Re: PRT Tools in Application Development and Automation Discussions

PRT Tools

Re: PRT Tools

Re: PRT Tools

Re: PRT Tools

Re: PRT Tools