Re: Material Master with Outserts...

Former Member — Thu, 12 Jan 2006 17:27:24 GMT

Hi Rich,

Thanks for the reply.......

I have a diffrent thing to work on ........

Have a look on the existing code....

To that I have to add a field - OUTSERT (STPO-IDNRK)...

Let me know if anything is unclear....

REPORT Z2.

Table definitions ----------------------------------------------------

TABLES: AUSP, " Characteristic Values

CABN, " Characteristic

CAWN, " Characteristic values

CAWNT, " Value Texts

LFA1, " Vendor master (general section)

MAKT, " Material Descriptions

MARA, " Material Master: General Data

MARM, " Units of Measure

MBEW, " Material Valuation

MVKE, " Material Master: Sales Data

TVMST, " Materials: SD Status: Texts

TVM3T, " Material pricing group 3: Description

TVM5T, " Material pricing group 5: Description

KOTD001, " Conditions: Substitution - Sample Structure

KONDD. " Material Substitution - Data Division

*----

SELECTION-SCREEN BEGIN OF BLOCK B1 WITH FRAME TITLE TITLE1.

SELECT-OPTIONS: S_BWKEY FOR MBEW-BWKEY

MEMORY ID DEFAULT_BWKEY OBLIGATORY

No-Extension No Intervals.

SELECTION-SCREEN END OF BLOCK B1.

PARAMETERS:

MATLFILE(100) LOWER CASE OBLIGATORY

DEFAULT '/sapinterface/ebus/mfile'.

Constants ------------------------------------------------------------

CONSTANTS:

ZERO_DEC_3 TYPE P DECIMALS 3 VALUE 0,

ZEROS(9) TYPE N VALUE 0,

REC_TYPE(2) VALUE 'MM',

DELIMETER_QUOTE VALUE '"',

BEGIN OF DEFAULTS,

BWTAR LIKE MBEW-BWTAR VALUE SPACE,

VKORG LIKE MVKE-VKORG VALUE '1000',

VTWEG LIKE MVKE-VTWEG VALUE '10',

END OF DEFAULTS.

constants:

c_uncpath_material(43)

value '/sapinterface/unconverted/zvppo102_matlfile',

c_final_path(44)

value '/sapinterface/ebusiness/' ,

c_uncpath(26)

value '/sapinterface/unconverted/' .

*----

Data Elements --------------------------------------------------------

DATA: PROGNAME LIKE SY-REPID,

PROG_START_DATE LIKE SY-DATUM,

PROG_START_TIME LIKE SY-UZEIT,

WRITE_COUNT TYPE I,

OUTFILE(100),

WK_STPRS LIKE MBEW-STPRS,

WK_AUSP LIKE AUSP,

WK_CABN LIKE CABN,

WK_MARA LIKE MARA,

WK_MARM LIKE MARM.

DATA: BEGIN OF MATERIAL_DATA,

DELIMITER_START,

REC_TYPE LIKE REC_TYPE,

MATNR LIKE MARA-MATNR,

MAKTX LIKE MAKT-MAKTX,

SMATN LIKE KONDD-SMATN,

SMATN_START LIKE KOTD001-DATAB,

SMATN_END LIKE KOTD001-DATBI,

VMSTA LIKE MVKE-VMSTA,

VMSTB LIKE TVMST-VMSTB,

LAEDA LIKE MARA-LAEDA,

AENAM LIKE MARA-AENAM,

VENDOR_NUM LIKE MARA-MFRNR,

VENDOR_NM LIKE LFA1-NAME1,

PROD_LINE_CD LIKE MVKE-MVGR5,

PROD_LINE_DSC(20),

DEA_SCH_ID LIKE MVKE-MVGR3,

DEA_SCH_DSC(20),

NORMT LIKE MARA-NORMT,

STPRS(13),

LOGO_DESC(30),

PRESCRIPT_FLAG(1),

THER_CLASS(5),

THER_CLASS_DSC(30),

THER_SUB_CLASS(5),

THER_SUB_CLASS_DSC(30),

THER_EQUIV(2),

ITEM_PACKAGE_SIZE(10),

ITEM_PACKAGE_TYPE(2),

DOSAGE_FORM(3),

DOSAGE_FORM_DSC(30),

DOSE_ADMIN(3),

DOSE_ADMIN_DSC(30),

BOTTLE_SIZE(6),

BRAND_NAME(25),

BRAND_DISTR(20),

BRAND_COLOR(20),

BRAND_SHAPE(15),

ANDA_DATE LIKE SY-DATUM,

ANDA_NUMBER(9),

BIO_STUDY,

DESI_INDICATOR,

DRUG_TERM_DT LIKE SY-DATUM,

FDA_APPRV_DT LIKE SY-DATUM,

ITEM_REG_NM(30),

MARKET_DT LIKE SY-DATUM,

PRODUCT_COLOR(20),

PRODUCT_FLAVOR(15),

PRODUCT_SHAPE(15),

PRODUCT_STRENGTH(18),

MEINS LIKE MARA-MEINS,

BEGIN OF BASE_MEASURES,

WEIGHT(15), "* like mara-brgew

WT_UNIT LIKE MARA-GEWEI,

VOLUM(15), "* like mara-volum,

VOL_UNIT LIKE MARA-VOLEH,

PKG_LENGTH(15), "* like mara-laeng

PKG_WIDTH(15), "* like mara-breit

PKG_HEIGHT(15), "* like mara-hoehe

DIM_UNIT LIKE MARA-MEABM,

END OF BASE_MEASURES,

INR_CRTN_COUNT(6), "* like marm-umrez

INR_CRTN_MEASURES LIKE MATERIAL_DATA-BASE_MEASURES,

CASE_COUNT(6), "* like marm-umrez

CASE_MEASURES LIKE MATERIAL_DATA-BASE_MEASURES,

ITEM_NOTE(500),

DELIMITER_END,

END OF MATERIAL_DATA.

DATA : F_M_uncFILE(100) . " Material file(unconverted)

DATA: W_BRM(3) Value 'SVG'.

*----

INITIALIZATION.

*----

*--- Initialize text fields for selection screen.

TITLE1 = 'Set Default'.

SET PARAMETER ID 'DEFAULT_BWKEY' FIELD W_SVG.

START-OF-SELECTION.

*----

PERFORM INITIAL_STUFF.

PERFORM MAIN_SELECT.

PERFORM WRAPUP.

*----

Select all material master records for finished products.

*----

FORM MAIN_SELECT.

SELECT MATNR

BISMT

LAEDA

AENAM

MEINS

BRGEW

GEWEI

VOLUM

VOLEH

LAENG

BREIT

HOEHE

MEABM

NORMT

INTO (MATERIAL_DATA-MATNR,

MATERIAL_DATA-SMATN,

MATERIAL_DATA-LAEDA,

MATERIAL_DATA-AENAM,

MATERIAL_DATA-MEINS,

WK_MARA-BRGEW,

MATERIAL_DATA-BASE_MEASURES-WT_UNIT,

WK_MARA-VOLUM,

MATERIAL_DATA-BASE_MEASURES-VOL_UNIT,

WK_MARA-LAENG,

WK_MARA-BREIT,

WK_MARA-HOEHE,

MATERIAL_DATA-BASE_MEASURES-DIM_UNIT,

MATERIAL_DATA-NORMT)

FROM MARA

WHERE MTART = 'FERT' "* Finished product

OR MTART = 'HAWA' "NIELSSA1 01/25/00

ORDER BY MATNR.

Assign default values for fields which may not be available.

PERFORM ASSIGN_DEFAULTS.

Get related data from other tables.

PERFORM GET_MATERIAL_DESCRIPTION.

PERFORM GET_STANDARD_PRICE.

PERFORM GET_MVKE.

PERFORM GET_MARM.

PERFORM GET_AUSP.

PERFORM GET_SUBSTITUTE_MATNR.

PERFORM GET_BASIC_DATA_TEXT.

PERFORM GET_VENDOR_NAME.

Check for double quotation, Replace the double quotation with a space

SEARCH MATERIAL_DATA FOR '"'.

IF SY-SUBRC = 0.

REPLACE '"' WITH ' ' INTO MATERIAL_DATA.

ENDIF.

MATERIAL_DATA-DELIMITER_START = DELIMETER_QUOTE.

MATERIAL_DATA-DELIMITER_END = DELIMETER_QUOTE.

Write output record.

ADD 1 TO WRITE_COUNT.

TRANSFER MATERIAL_DATA TO F_M_UNCFILE .

Reinitialize work variables.

CLEAR: MATERIAL_DATA,

WK_STPRS,

WK_AUSP,

WK_CABN,

WK_MARA,

WK_MARM.

ENDSELECT.

ENDFORM. " main_select

*----

Assign numeric fields to character fields for output.

*----

FORM ASSIGN_DEFAULTS.

MATERIAL_DATA-REC_TYPE = REC_TYPE.

MATERIAL_DATA-BASE_MEASURES-WEIGHT = WK_MARA-BRGEW.

MATERIAL_DATA-BASE_MEASURES-VOLUM = WK_MARA-VOLUM.

MATERIAL_DATA-BASE_MEASURES-PKG_LENGTH = WK_MARA-LAENG.

MATERIAL_DATA-BASE_MEASURES-PKG_WIDTH = WK_MARA-BREIT.

MATERIAL_DATA-BASE_MEASURES-PKG_HEIGHT = WK_MARA-HOEHE.

Set character fields to 0 in case not found on DB.

MATERIAL_DATA-ANDA_NUMBER = ZEROS. "* ???

MATERIAL_DATA-ITEM_PACKAGE_SIZE = 0.

MATERIAL_DATA-INR_CRTN_COUNT = 0.

MATERIAL_DATA-CASE_COUNT = 0.

MATERIAL_DATA-INR_CRTN_MEASURES-WEIGHT = ZERO_DEC_3.

MATERIAL_DATA-INR_CRTN_MEASURES-VOLUM = ZERO_DEC_3.

MATERIAL_DATA-INR_CRTN_MEASURES-PKG_LENGTH = ZERO_DEC_3.

MATERIAL_DATA-INR_CRTN_MEASURES-PKG_WIDTH = ZERO_DEC_3.

MATERIAL_DATA-INR_CRTN_MEASURES-PKG_HEIGHT = ZERO_DEC_3.

MOVE-CORRESPONDING MATERIAL_DATA-INR_CRTN_MEASURES

TO MATERIAL_DATA-CASE_MEASURES.

ENDFORM. " assign_defaults

*----

FORM GET_VENDOR_NAME.

SELECT SINGLE NAME1

INTO MATERIAL_DATA-VENDOR_NM

FROM LFA1

WHERE LIFNR = MATERIAL_DATA-VENDOR_NUM.

ENDFORM. " get_vendor_name

*----

FORM GET_MATERIAL_DESCRIPTION.

SELECT SINGLE MAKTX

INTO MATERIAL_DATA-MAKTX

FROM MAKT

WHERE MATNR = MATERIAL_DATA-MATNR

AND SPRAS = SY-LANGU.

ENDFORM. " get_material_description

*----

FORM GET_STANDARD_PRICE.

data: l_vprsv like mbew-vprsv,

l_verpr like mbew-verpr.

clear: l_Vprsv, l_verpr.

SELECT SINGLE VPRSV VERPR stprs

into (l_vprsv, l_verpr, WK_stprs)

FROM MBEW

WHERE MATNR = MATERIAL_DATA-MATNR

AND BWKEY IN S_BWKEY

AND BWTAR = DEFAULTS-BWTAR.

IF L_VPRSV = 'V'.

WK_STPRS = L_VERPR.

ENDIF.

MATERIAL_DATA-STPRS = WK_STPRS.

ENDFORM. " get_standard_price

*----

FORM GET_MVKE.

SELECT SINGLE MVGR3

VMSTA

MVGR5

INTO (MATERIAL_DATA-DEA_SCH_ID,

MATERIAL_DATA-VMSTA,

MATERIAL_DATA-PROD_LINE_CD)

FROM MVKE

WHERE MATNR = MATERIAL_DATA-MATNR

AND VKORG = DEFAULTS-VKORG

AND VTWEG = DEFAULTS-VTWEG.

IF SY-SUBRC = 0.

PERFORM GET_DEA_ID_DSC.

PERFORM GET_PROD_LINE_DSC.

PERFORM GET_VMSTB.

ENDIF.

ENDFORM. " get_mvke

*----

FORM GET_DEA_ID_DSC.

SELECT SINGLE BEZEI

INTO MATERIAL_DATA-DEA_SCH_DSC

FROM TVM3T

WHERE SPRAS = SY-LANGU

AND MVGR3 = MATERIAL_DATA-DEA_SCH_ID.

ENDFORM. " get_dea_id_dsc

*----

FORM GET_PROD_LINE_DSC.

SELECT SINGLE BEZEI

INTO MATERIAL_DATA-PROD_LINE_DSC

FROM TVM5T

WHERE SPRAS = SY-LANGU

AND MVGR5 = MATERIAL_DATA-PROD_LINE_CD.

ENDFORM. " form get_prod_line_dsc

*----

FORM GET_VMSTB.

SELECT SINGLE VMSTB

INTO MATERIAL_DATA-VMSTB

FROM TVMST

WHERE SPRAS = SY-LANGU

AND VMSTA = MATERIAL_DATA-VMSTA.

ENDFORM. " form get_vmstb

*----

Get measurements, etc. for inner carton and case from the MARM table.

*----

FORM GET_MARM.

SELECT MEINH " alternative unit of measure for stockkeeping unit

UMREZ " numerator for conversion to base units of measure

LAENG " length

BREIT " width

HOEHE " height

MEABM " unit of dimension for length/width/height

VOLUM " volume

VOLEH " volume unit

BRGEW " gross weight

GEWEI " unit of weight

INTO (WK_MARM-MEINH,

WK_MARM-UMREZ,

WK_MARM-LAENG,

WK_MARM-BREIT,

WK_MARM-HOEHE,

WK_MARM-MEABM,

WK_MARM-VOLUM,

WK_MARM-VOLEH,

WK_MARM-BRGEW,

WK_MARM-GEWEI)

FROM MARM

WHERE MATNR = MATERIAL_DATA-MATNR

AND MEINH IN ('CS', 'PAK').

PERFORM EVALUATE_MEINH.

CLEAR WK_MARM.

ENDSELECT.

ENDFORM. " get_marm

*----

Populate output record fields based on alternative unit of measure.

*----

FORM EVALUATE_MEINH.

CASE WK_MARM-MEINH.

WHEN 'CS'.

MATERIAL_DATA-CASE_COUNT = WK_MARM-UMREZ.

MATERIAL_DATA-CASE_MEASURES-WEIGHT = WK_MARM-BRGEW.

MATERIAL_DATA-CASE_MEASURES-WT_UNIT = WK_MARM-GEWEI.

MATERIAL_DATA-CASE_MEASURES-VOLUM = WK_MARM-VOLUM.

MATERIAL_DATA-CASE_MEASURES-VOL_UNIT = WK_MARM-VOLEH.

MATERIAL_DATA-CASE_MEASURES-PKG_LENGTH = WK_MARM-LAENG.

MATERIAL_DATA-CASE_MEASURES-PKG_WIDTH = WK_MARM-BREIT.

MATERIAL_DATA-CASE_MEASURES-PKG_HEIGHT = WK_MARM-HOEHE.

MATERIAL_DATA-CASE_MEASURES-DIM_UNIT = WK_MARM-MEABM.

WHEN 'PAK'.

MATERIAL_DATA-INR_CRTN_COUNT = WK_MARM-UMREZ.

MATERIAL_DATA-INR_CRTN_MEASURES-WEIGHT = WK_MARM-BRGEW.

MATERIAL_DATA-INR_CRTN_MEASURES-WT_UNIT = WK_MARM-GEWEI.

MATERIAL_DATA-INR_CRTN_MEASURES-VOLUM = WK_MARM-VOLUM.

MATERIAL_DATA-INR_CRTN_MEASURES-VOL_UNIT = WK_MARM-VOLEH.

MATERIAL_DATA-INR_CRTN_MEASURES-PKG_LENGTH = WK_MARM-LAENG.

MATERIAL_DATA-INR_CRTN_MEASURES-PKG_WIDTH = WK_MARM-BREIT.

MATERIAL_DATA-INR_CRTN_MEASURES-PKG_HEIGHT = WK_MARM-HOEHE.

MATERIAL_DATA-INR_CRTN_MEASURES-DIM_UNIT = WK_MARM-MEABM.

ENDCASE.

ENDFORM. " evaluate_meinh

*----

Get characterics from the AUSP & CABN tables.

*----

FORM GET_AUSP.

*--- Get object number for classification lookup.

data: l_objek like ausp-objek.

clear l_objek.

select cuobj into l_objek from inob up to 1 rows

where klart = '001'

and obtab = 'MARA'

and objek = material_data-matnr.

endselect.

SELECT A~ATINN " internal characteristic

A~ATWRT " characteristic value

A~ATAWE " unit of measurement

A~ATAW1 " unit of measurement

A~ATFLV " internal floating point from (value if date)

C~ATNAM " characteristic name

INTO (WK_AUSP-ATINN,

WK_AUSP-ATWRT,

WK_AUSP-ATAWE,

WK_AUSP-ATAW1,

WK_AUSP-ATFLV,

WK_CABN-ATNAM)

FROM AUSP AS A INNER JOIN

CABN AS C ON A_{ATINN = C}ATINN

where a~objek = l_objek

AND C~ATNAM LIKE 'MM_%'

AND A~LKENZ = SPACE.

PERFORM EVALUATE_CHARACTERISTIC.

ENDSELECT.

ENDFORM. " get_ausp

*----

Populate output record fields based on characteristic type.

*----

FORM EVALUATE_CHARACTERISTIC.

DATA: SIZE_TEMP TYPE I. "NIELSSA1 01/31/00

CASE WK_CABN-ATNAM.

when 'MM_BOTTLE_SIZE'.

MATERIAL_DATA-BOTTLE_SIZE = WK_AUSP-ATWRT.

when 'MM_BRAND_COLOR'.

MATERIAL_DATA-BRAND_COLOR = WK_AUSP-ATWRT.

when 'MM_BRAND_DISTR'.

WHEN 'MM_BRAND_DISTRIBUTOR'. "NIELSSA1 01/25/00

MATERIAL_DATA-BRAND_DISTR = WK_AUSP-ATWRT.

when 'MM_BRAND_NAME'.

MATERIAL_DATA-BRAND_NAME = WK_AUSP-ATWRT.

when 'MM_BRAND_SHAPE'.

MATERIAL_DATA-BRAND_SHAPE = WK_AUSP-ATWRT.

WHEN 'MM_DOSAGE_FORM'.

MATERIAL_DATA-DOSAGE_FORM = WK_AUSP-ATWRT.

PERFORM GET_CHARACTERISTIC_DSC

USING WK_AUSP-ATINN

WK_AUSP-ATWRT

CHANGING MATERIAL_DATA-DOSAGE_FORM_DSC.

when 'MM_DOSE_ADMINISTRATION'.

MATERIAL_DATA-DOSE_ADMIN = WK_AUSP-ATWRT.

PERFORM GET_CHARACTERISTIC_DSC

USING WK_AUSP-ATINN

WK_AUSP-ATWRT

CHANGING MATERIAL_DATA-DOSE_ADMIN_DSC.

WHEN 'MM_ITEM_PACKAGE_SIZE'.

SIZE_TEMP = WK_AUSP-ATFLV.

MATERIAL_DATA-ITEM_PACKAGE_SIZE = SIZE_TEMP.

WHEN 'MM_ITEM_PACKAGE_TYPE'.

MATERIAL_DATA-ITEM_PACKAGE_TYPE = WK_AUSP-ATWRT.

when 'MM_LOGO_DESC'.

MATERIAL_DATA-LOGO_DESC = WK_AUSP-ATWRT.

when 'MM_PRESCRIPTION_FLAG'.

MATERIAL_DATA-PRESCRIPT_FLAG = WK_AUSP-ATWRT.

when 'MM_THERAPEUTIC_CLASS'.

MATERIAL_DATA-THER_CLASS = WK_AUSP-ATWRT.

PERFORM GET_CHARACTERISTIC_DSC

USING WK_AUSP-ATINN

WK_AUSP-ATWRT

CHANGING MATERIAL_DATA-THER_CLASS_DSC.

when 'MM_THERAPEUTIC_SUB_CLASS'.

MATERIAL_DATA-THER_SUB_CLASS = WK_AUSP-ATWRT.

PERFORM GET_CHARACTERISTIC_DSC

USING WK_AUSP-ATINN

WK_AUSP-ATWRT

CHANGING MATERIAL_DATA-THER_SUB_CLASS_DSC.

WHEN 'MM_THERAPEUTIC_RATING'.

MATERIAL_DATA-THER_EQUIV = WK_AUSP-ATWRT.

when 'MM_ANDA_DATE'.

PERFORM CONVERT_TO_DATE USING WK_AUSP-ATFLV

CHANGING MATERIAL_DATA-ANDA_DATE.

when 'MM_ANDA_NUMBER'.

MATERIAL_DATA-ANDA_NUMBER = WK_AUSP-ATWRT.

when 'MM_BIO_STUDY'.

MATERIAL_DATA-BIO_STUDY = WK_AUSP-ATWRT.

when 'MM_DESI_INDICATOR'.

MATERIAL_DATA-DESI_INDICATOR = WK_AUSP-ATWRT.

when 'MM_DRUG_TERMINATION_DATE'.

PERFORM CONVERT_TO_DATE USING WK_AUSP-ATFLV

CHANGING MATERIAL_DATA-DRUG_TERM_DT.

when 'MM_FDA_APPROVAL_DATE'.

PERFORM CONVERT_TO_DATE USING WK_AUSP-ATFLV

CHANGING MATERIAL_DATA-FDA_APPRV_DT.

when 'MM_ITEM_REGULATORY_NAME'.

MATERIAL_DATA-ITEM_REG_NM = WK_AUSP-ATWRT.

when 'MM_MARKET_DATE'.

PERFORM CONVERT_TO_DATE USING WK_AUSP-ATFLV

CHANGING MATERIAL_DATA-MARKET_DT.

when 'MM_PRODUCT_COLOR'.

MATERIAL_DATA-PRODUCT_COLOR = WK_AUSP-ATWRT.

when 'MM_PRODUCT_FLAVOR'.

MATERIAL_DATA-PRODUCT_FLAVOR = WK_AUSP-ATWRT.

when 'MM_PRODUCT_SHAPE'.

MATERIAL_DATA-PRODUCT_SHAPE = WK_AUSP-ATWRT.

when 'MM_PRODUCT_STRENGTH'.

MATERIAL_DATA-PRODUCT_STRENGTH = WK_AUSP-ATWRT.

WHEN 'MM_VENDOR'.

MATERIAL_DATA-VENDOR_NUM = WK_AUSP-ATWRT.

ENDCASE.

CLEAR SIZE_TEMP.

ENDFORM. " evaluate_characteristic

*----

Get descriptive text from CAWN & CAWNT for characteristics.

*----

FORM GET_CHARACTERISTIC_DSC USING PARM_ATINN

PARM_ATWRT

CHANGING PARM_DSC_TEXT.

CLEAR PARM_DSC_TEXT.

SELECT SINGLE ATWTB

INTO PARM_DSC_TEXT

FROM CAWN AS C1 INNER JOIN

CAWNT AS C2 ON C1_{ATINN = C2}ATINN

AND C1_{ATZHL = C2}ATZHL

WHERE C1~ATINN = PARM_ATINN

AND C1~ATWRT = PARM_ATWRT

AND C2~SPRAS = SY-LANGU

AND C2~ADZHL = 0.

ENDFORM. " get_characteristic_dsc

*----

Call function CTCV_CONVERT_FLOAT_TO_DATE to convert floating point
number to a date in yyyymmdd format.

*----

form convert_to_date using date

changing conv_date.

clear conv_date.

data: wrk_date(30) type c."Format YYYYMMDD changing it to MMDDYYYY

call function 'CTCV_CONVERT_FLOAT_TO_DATE'

EXPORTING

float = date

IMPORTING

date = wrk_date

EXCEPTIONS

others = 1.

CONV_DATE = WRK_DATE.

ENDFORM. " convert_to_date

*----

Get substitute material number.

*----

FORM GET_SUBSTITUTE_MATNR.

SELECT SINGLE SMATN

DATAB

DATBI

INTO (MATERIAL_DATA-SMATN,

MATERIAL_DATA-SMATN_START,

MATERIAL_DATA-SMATN_END)

FROM KOTD001 INNER JOIN

KONDD ON KOTD001~KNUMH = KONDD~KNUMH

WHERE KAPPL = 'V' "* Sales/Distribution

AND KSCHL = 'A001' "* Material Entered

AND MATWA = MATERIAL_DATA-MATNR

AND DATBI >= SY-DATUM

AND DATAB <= SY-DATUM

AND SUGRD = SPACE.

ENDFORM. " get_substitute_matnr.

*----

Get basic data text for material item note.
If this is longer than 500 bytes, it will be truncated at 500.

*----

FORM GET_BASIC_DATA_TEXT.

DATA: BEGIN OF TEXT_HEADER.

INCLUDE STRUCTURE THEAD. "* SAPscript: Text Header

DATA: END OF TEXT_HEADER.

DATA: BEGIN OF TEXT_LINES OCCURS 100.

INCLUDE STRUCTURE TLINE. "* SAPscript: text lines

DATA: END OF TEXT_LINES.

DATA: ITEM_NOTE_LENGTH TYPE I.

Set up text header for call to READ_TEXT.

TEXT_HEADER-TDOBJECT = 'MATERIAL'.

TEXT_HEADER-TDNAME = MATERIAL_DATA-MATNR.

TEXT_HEADER-TDID = 'GRUN'. "* Basic data text

TEXT_HEADER-TDSPRAS = SY-LANGU.

CALL FUNCTION 'READ_TEXT'

EXPORTING

CLIENT = SY-MANDT

ID = TEXT_HEADER-TDID

LANGUAGE = TEXT_HEADER-TDSPRAS

NAME = TEXT_HEADER-TDNAME

OBJECT = TEXT_HEADER-TDOBJECT

ARCHIVE_HANDLE = 0
IMPORTING
HEADER =

TABLES

LINES = TEXT_LINES

EXCEPTIONS

ID = 1

LANGUAGE = 2

NAME = 3

NOT_FOUND = 4

OBJECT = 5

REFERENCE_CHECK = 6

WRONG_ACCESS_TO_ARCHIVE = 7

OTHERS = 8.

CASE SY-SUBRC.

WHEN 0.

LOOP AT TEXT_LINES.

IF SY-TABIX = 1.

MATERIAL_DATA-ITEM_NOTE = TEXT_LINES-TDLINE.

ELSE.

Pass up to 500 bytes to Siebel.

ITEM_NOTE_LENGTH = STRLEN( MATERIAL_DATA-ITEM_NOTE ).

IF ITEM_NOTE_LENGTH > 498.

EXIT.

ELSE.

CONCATENATE MATERIAL_DATA-ITEM_NOTE

TEXT_LINES-TDLINE

INTO MATERIAL_DATA-ITEM_NOTE

SEPARATED BY SPACE.

ENDIF.

ENDLOOP.

WHEN 4.

Not found; this is normal if no text was entered.

WHEN OTHERS.

MESSAGE E000(38) WITH 'Bad call to function READ_TEXT'.

ENDCASE.

ENDFORM. " get_substitute_matnr

*----

Open files, set initial conditions, etc.

*----

FORM INITIAL_STUFF.

data : w_length type i . " MUDIGAN1 DEVK991428

PROGNAME = SY-REPID.

WRITE: / 'Program: ', PROGNAME.

WRITE: / 'Execution start date: ', SY-DATUM.

WRITE: / 'Execution start time: ', SY-UZEIT.

WRITE: / .

CALL FUNCTION 'Z_SET_INTERFACE_FILENAME'

EXPORTING

INTERFACE_NAME = MATLFILE

DATE_TIME_SW = 'X'

EXTENSION_TYPE = 'txt'

IMPORTING

PATHNAME = OUTFILE

EXCEPTIONS

OTHERS = 1.

----

f_m_uncfile = outfile .

clear w_length.

w_length = strlen( matlfile ).

replace matlfile with c_uncpath_material into F_M_UNCFILE length

w_length .

open dataset F_m_UNCFILE for output in text mode .

if sy-subrc <> 0 .

MESSAGE E000(38) WITH 'Unable to open file ' F_m_UNCFILE.

endif.

ENDFORM. " initial_stuff.

*----

Close files, etc.

*----

FORM WRAPUP.

CLOSE DATASET F_M_UNCFILE.

PERFORM CONVERT_FILE.

WRITE: / 'Material interface file name: ', OUTFILE,

/ 'Number of records written to material file: ', WRITE_COUNT.

endform.

*----

This form is included for testing and is performed if the test_rec
checkbox is checked.

*----

FORM WRITE_FORMATTED_TEST_RECORD.

WRITE: /,

/ 'Beginning of new record :',

/ 'Start Delimiter :|' NO-GAP,

MATERIAL_DATA-DELIMITER_START NO-GAP, '|',

/ 'Record Type :|' NO-GAP,

MATERIAL_DATA-REC_TYPE NO-GAP, '|',

/ 'Material Number :|' NO-GAP,

MATERIAL_DATA-MATNR NO-GAP USING NO EDIT MASK, '|',

/ 'Material Description :|' NO-GAP,

MATERIAL_DATA-MAKTX NO-GAP, '|',

/ 'Substitute Material Number :|' NO-GAP,

MATERIAL_DATA-SMATN NO-GAP, '|',

/ 'Substitute Start Date :|' NO-GAP,

MATERIAL_DATA-SMATN_START NO-GAP, '|',

/ 'Substitute End Date :|' NO-GAP,

MATERIAL_DATA-SMATN_END NO-GAP, '|',

/ 'Status Code :|' NO-GAP,

MATERIAL_DATA-VMSTA NO-GAP, '|',

/ 'Status Description :|' NO-GAP,

MATERIAL_DATA-VMSTB NO-GAP, '|',

/ 'Date of last change :|' NO-GAP,

MATERIAL_DATA-LAEDA NO-GAP, '|',

/ 'User who changed record :|' NO-GAP,

MATERIAL_DATA-AENAM NO-GAP, '|',

/ 'Manufacturer Number :|' NO-GAP,

MATERIAL_DATA-VENDOR_NUM NO-GAP, '|',

/ 'Vendor Name :|' NO-GAP,

MATERIAL_DATA-VENDOR_NM NO-GAP, '|',

/ 'Product Line Code :|' NO-GAP,

MATERIAL_DATA-PROD_LINE_CD NO-GAP, '|',

/ 'Product Line Description :|' NO-GAP,

MATERIAL_DATA-PROD_LINE_DSC NO-GAP, '|',

/ 'DEA Schedule ID :|' NO-GAP,

MATERIAL_DATA-DEA_SCH_ID NO-GAP, '|',

/ 'DEA Schedule Description :|' NO-GAP,

MATERIAL_DATA-DEA_SCH_DSC NO-GAP, '|',

/ 'Labeller Code :|' NO-GAP,

MATERIAL_DATA-NORMT NO-GAP, '|',

/ 'Standard Price :|' NO-GAP,

MATERIAL_DATA-STPRS NO-GAP, '|',

/ 'Logo Description :|' NO-GAP,

MATERIAL_DATA-LOGO_DESC NO-GAP, '|',

/ 'Prescription Flag :|' NO-GAP,

MATERIAL_DATA-PRESCRIPT_FLAG NO-GAP, '|',

/ 'Therapeutic Class :|' NO-GAP,

MATERIAL_DATA-THER_CLASS NO-GAP, '|',

/ 'Therapeutic Class Description :|' NO-GAP,

MATERIAL_DATA-THER_CLASS_DSC NO-GAP, '|',

/ 'Therapeutic Subclass :|' NO-GAP,

MATERIAL_DATA-THER_SUB_CLASS NO-GAP, '|',

/ 'Therapeutic Subclass Description:|' NO-GAP,

MATERIAL_DATA-THER_SUB_CLASS_DSC NO-GAP, '|',

/ 'Therapeutic Equivalence :|' NO-GAP,

MATERIAL_DATA-THER_EQUIV NO-GAP, '|',

/ 'Item Package Size :|' NO-GAP,

MATERIAL_DATA-ITEM_PACKAGE_SIZE NO-GAP, '|',

/ 'Item Package Type :|' NO-GAP,

MATERIAL_DATA-ITEM_PACKAGE_TYPE NO-GAP, '|',

/ 'Dosage Form :|' NO-GAP,

MATERIAL_DATA-DOSAGE_FORM NO-GAP, '|',

/ 'Dosage Form Description :|' NO-GAP,

MATERIAL_DATA-DOSAGE_FORM_DSC NO-GAP, '|',

/ 'Dose Administration :|' NO-GAP,

MATERIAL_DATA-DOSE_ADMIN NO-GAP, '|',

/ 'Dose Administration Description :|' NO-GAP,

MATERIAL_DATA-DOSE_ADMIN_DSC NO-GAP, '|',

/ 'Bottle Size :|' NO-GAP,

MATERIAL_DATA-BOTTLE_SIZE NO-GAP, '|',

/ 'Brand Name :|' NO-GAP,

MATERIAL_DATA-BRAND_NAME NO-GAP, '|',

/ 'Brand Distributor :|' NO-GAP,

MATERIAL_DATA-BRAND_DISTR NO-GAP, '|',

/ 'Brand Color :|' NO-GAP,

MATERIAL_DATA-BRAND_COLOR NO-GAP, '|',

/ 'Brand Shape :|' NO-GAP,

MATERIAL_DATA-BRAND_SHAPE NO-GAP, '|',

/ 'ANDA Date :|' NO-GAP,

MATERIAL_DATA-ANDA_DATE NO-GAP, '|',

/ 'ANDA Number :|' NO-GAP,

MATERIAL_DATA-ANDA_NUMBER NO-GAP, '|',

/ 'Bio Study :|' NO-GAP,

MATERIAL_DATA-BIO_STUDY NO-GAP, '|',

/ 'DESI Indicator :|' NO-GAP,

MATERIAL_DATA-DESI_INDICATOR NO-GAP, '|',

/ 'Drug Term Date :|' NO-GAP,

MATERIAL_DATA-DRUG_TERM_DT NO-GAP, '|',

/ 'FDA Approval Date :|' NO-GAP,

MATERIAL_DATA-FDA_APPRV_DT NO-GAP, '|',

/ 'Item Regulatory Name :|' NO-GAP,

MATERIAL_DATA-ITEM_REG_NM NO-GAP, '|',

/ 'Market Date :|' NO-GAP,

MATERIAL_DATA-MARKET_DT NO-GAP, '|',

/ 'Product Color :|' NO-GAP,

MATERIAL_DATA-PRODUCT_COLOR NO-GAP, '|',

/ 'Product Flavor :|' NO-GAP,

MATERIAL_DATA-PRODUCT_FLAVOR NO-GAP, '|',

/ 'Product Shape :|' NO-GAP,

MATERIAL_DATA-PRODUCT_SHAPE NO-GAP, '|',

/ 'Product Strength :|' NO-GAP,

MATERIAL_DATA-PRODUCT_STRENGTH NO-GAP, '|',

/ 'Base Unit of Measure :|' NO-GAP,

MATERIAL_DATA-MEINS NO-GAP, '|',

/ 'Base Weight :|' NO-GAP,

MATERIAL_DATA-BASE_MEASURES-WEIGHT NO-GAP, '|',

/ 'Base Weight Unit :|' NO-GAP,

MATERIAL_DATA-BASE_MEASURES-WT_UNIT NO-GAP, '|',

/ 'Base Volume :|' NO-GAP,

MATERIAL_DATA-BASE_MEASURES-VOLUM NO-GAP, '|',

/ 'Base Volume Unit :|' NO-GAP,

MATERIAL_DATA-BASE_MEASURES-VOL_UNIT NO-GAP, '|',

/ 'Base Package Length :|' NO-GAP,

MATERIAL_DATA-BASE_MEASURES-PKG_LENGTH NO-GAP, '|',

/ 'Base Package Width :|' NO-GAP,

MATERIAL_DATA-BASE_MEASURES-PKG_WIDTH NO-GAP, '|',

/ 'Base Package Height :|' NO-GAP,

MATERIAL_DATA-BASE_MEASURES-PKG_HEIGHT NO-GAP, '|',

/ 'Base Dimension Unit :|' NO-GAP,

MATERIAL_DATA-BASE_MEASURES-DIM_UNIT NO-GAP, '|',

/ 'Inner Carton Count :|' NO-GAP,

MATERIAL_DATA-INR_CRTN_COUNT NO-GAP, '|',

/ 'Inner Carton Weight :|' NO-GAP,

MATERIAL_DATA-INR_CRTN_MEASURES-WEIGHT NO-GAP, '|',

/ 'Inner Carton Weight Unit :|' NO-GAP,

MATERIAL_DATA-INR_CRTN_MEASURES-WT_UNIT NO-GAP, '|',

/ 'Inner Carton Volume :|' NO-GAP,

MATERIAL_DATA-INR_CRTN_MEASURES-VOLUM NO-GAP, '|',

/ 'Inner Carton Volume Unit :|' NO-GAP,

MATERIAL_DATA-INR_CRTN_MEASURES-VOL_UNIT NO-GAP, '|',

/ 'Inner Carton Package Length :|' NO-GAP,

MATERIAL_DATA-INR_CRTN_MEASURES-PKG_LENGTH NO-GAP, '|',

/ 'Inner Carton Package Width :|' NO-GAP,

MATERIAL_DATA-INR_CRTN_MEASURES-PKG_WIDTH NO-GAP, '|',

/ 'Inner Carton Package Height :|' NO-GAP,

MATERIAL_DATA-INR_CRTN_MEASURES-PKG_HEIGHT NO-GAP, '|',

/ 'Inner Carton Dimension Unit :|' NO-GAP,

MATERIAL_DATA-INR_CRTN_MEASURES-DIM_UNIT NO-GAP, '|',

/ 'Case Count :|' NO-GAP,

MATERIAL_DATA-CASE_COUNT NO-GAP, '|',

/ 'Case Weight :|' NO-GAP,

MATERIAL_DATA-CASE_MEASURES-WEIGHT NO-GAP, '|',

/ 'Case Weight Unit :|' NO-GAP,

MATERIAL_DATA-CASE_MEASURES-WT_UNIT NO-GAP, '|',

/ 'Case Volume :|' NO-GAP,

MATERIAL_DATA-CASE_MEASURES-VOLUM NO-GAP, '|',

/ 'Case Volume Unit :|' NO-GAP,

MATERIAL_DATA-CASE_MEASURES-VOL_UNIT NO-GAP, '|',

/ 'Case Length :|' NO-GAP,

MATERIAL_DATA-CASE_MEASURES-PKG_LENGTH NO-GAP, '|',

/ 'Case Width :|' NO-GAP,

MATERIAL_DATA-CASE_MEASURES-PKG_WIDTH NO-GAP, '|',

/ 'Case Height :|' NO-GAP,

MATERIAL_DATA-CASE_MEASURES-PKG_HEIGHT NO-GAP, '|',

/ 'Case Dimension Unit :|' NO-GAP,

MATERIAL_DATA-CASE_MEASURES-DIM_UNIT NO-GAP, '|',

/ 'Item Note :|' NO-GAP,

MATERIAL_DATA-ITEM_NOTE NO-GAP, '|',

/ 'End Delimiter :|' NO-GAP,

MATERIAL_DATA-DELIMITER_END NO-GAP, '|',

ENDFORM. " write_formatted_test_record

*----

Copy the output files to the appropriate archive folder.

*----

FORM COPY_TO_ARCHIVE USING C_FILE.

DATA:

ARCHFILE(100),

COPYFILES(255),

ITAB LIKE BTCXPM OCCURS 0 WITH HEADER LINE,

W_LENGTH TYPE I , " MUDIGAN1 DEVK991428

W_INFILE(100), " MUDIGAN1 DEVK991428

W_OUTFILE(100). " MUDIGAN1 DEVK991428

PERFORM BUILD_ARCHIVE_NAME USING C_FILE

CHANGING ARCHFILE.

CONCATENATE C_FILE C_UNCPATH INTO COPYFILES SEPARATED BY SPACE .

CALL FUNCTION 'SXPG_COMMAND_EXECUTE'

EXPORTING

COMMANDNAME = 'ZUNIXCOPY'

ADDITIONAL_PARAMETERS = COPYFILES

OPERATINGSYSTEM = SY-OPSYS

STDOUT = 'X'

STDERR = 'X'

TERMINATIONWAIT = 'X'

TABLES

EXEC_PROTOCOL = ITAB

EXCEPTIONS

NO_PERMISSION = 1

COMMAND_NOT_FOUND = 2

PARAMETERS_TOO_LONG = 3

SECURITY_RISK = 4

WRONG_CHECK_CALL_INTERFACE = 5

PROGRAM_START_ERROR = 6

PROGRAM_TERMINATION_ERROR = 7

X_ERROR = 8

PARAMETER_EXPECTED = 9

TOO_MANY_PARAMETERS = 10

ILLEGAL_COMMAND = 11

WRONG_ASYNCHRONOUS_PARAMETERS = 12

CANT_ENQ_TBTCO_ENTRY = 13

JOBCOUNT_GENERATION_ERROR = 14

OTHERS = 15.

w_length = strlen( c_final_path ).

replace c_final_path with ' ' into c_file length w_length.

shift c_file left deleting leading space .

concatenate c_uncpath c_file into w_infile .

concatenate archfile c_file into w_outfile .

CALL FUNCTION 'Z_CONVERT_UNIX2DOS'

EXPORTING

INFILE = w_infile

OUTFILE = w_outfile

EXCEPTIONS

ERROR = 1

IDENTICAL_FILENAMES = 2

NO_INPUT_FILE = 3

OTHERS = 4.

IF SY-SUBRC = 0.

SKIP.

WRITE: / C_FILE, 'copied to', ARCHFILE.

ELSE.

MESSAGE E000(38) WITH 'Archive file copy failed.'.

ENDIF.

ENDFORM. " copy_to_archive.

*----

Build Archive file pathnames.

*----

FORM BUILD_ARCHIVE_NAME USING P_PATH

CHANGING P_ARCH.

DATA:

NODECOUNT TYPE I,

LASTNODE TYPE I,

BEGIN OF NODES OCCURS 25,

NODENAME(100),

END OF NODES.

SPLIT P_PATH AT '/' INTO TABLE NODES.

DESCRIBE TABLE NODES LINES NODECOUNT.

CLEAR P_ARCH.

LASTNODE = NODECOUNT - 1.

LOOP AT NODES.

CASE SY-TABIX.

WHEN LASTNODE.

CONCATENATE P_ARCH NODES-NODENAME '/archive/' INTO P_ARCH.

WHEN NODECOUNT.

WHEN OTHERS.

CONCATENATE P_ARCH NODES-NODENAME '/' INTO P_ARCH.

ENDCASE.

ENDLOOP.

ENDFORM. " build_archive_name

&----

*& Form CONVERT_FILE

&----

Move output files from unconverted directory to final destination
directory and convert from UNIX to DOS format in the process.

----

FORM CONVERT_FILE.

CONCATENATE MATLFILE '.txt' INTO OUTFILE.

Convert customer file from Unix to DOS

CALL FUNCTION 'Z_CONVERT_UNIX2DOS'

EXPORTING

INFILE = F_M_UNCFILE

OUTFILE = outFILE

EXCEPTIONS

ERROR = 1

IDENTICAL_FILENAMES = 2

NO_INPUT_FILE = 3

OTHERS = 4.

IF SY-SUBRC <> 0.

write: /'Error converting file. Input file: ', F_M_UNCFILE.

write: /' Output file: ', outFILE.

ENDIF.

ENDFORM. " CONVERT_FILE

thnks,

topic Re: Material Master with Outserts... in Application Development and Automation Discussions

Material Master with Outserts...

Re: Material Master with Outserts...

Re: Material Master with Outserts...