help urgent

Former Member · ‎2008 May 19

HI ALL,

I WANT TO KNOW THE INPUT FILE STRUCTURE FOR THE BELOW PROGRAM.

ITS TRUELY URGENT.

*--Constant

CONSTANTS : c_maint(1) value 'M'.

*data from the Excel is picked up into this internal table

DATA : BEGIN OF ITAB OCCURS 0,

FIELD1(200),

FIELD2(20),

FIELD3(20),

FIELD4(30),

FIELD5(50),

FIELD6(50),

FIELD7(50),

FIELD8(50),

FIELD9(50),

FIELD10(50),

END OF ITAB.

Data:

MESSTAB LIKE BDCMSGCOLL OCCURS 0 WITH HEADER LINE,

E_GROUP_OPENED,

P_BDCNM LIKE APQI-GROUPID VALUE 'TRA_ORD_ERRORS'.

*--Header information for sales order is stored in this table

DATA : BEGIN OF IVBAK,

auart like vbak-auart, "Order type

VBELN LIKE VBAK-VBELN, "Sales Order number

VKORG LIKE VBAK-VKORG, "Sales Organisation

VTWEG LIKE VBAK-VTWEG, "Distribution channel 10

SPART LIKE VBAK-SPART, "Division 10

SOLD_TO LIKE KNA1-KUNNR, "Sold to party

SHIP_CONT LIKE KNA1-NAME2, "SHIP to contact

SHIP_TO LIKE KNA1-KUNNR, "Ship to party

INSTALL_TO LIKE KNA1-KUNNR, "Install to party

BILL_TO LIKE KNA1-KUNNR, "Bill to Party

BILL_CONT LIKE KNA1-NAME2, "Bill to contact

payer like KNA1-kunnr, "Payer

SUBMI LIKE VBAK-SUBMI, "Collective number for RFQs

ZTERM LIKE VBKD-ZTERM, "Payment terms

BSTNK LIKE VBAK-BSTNK, "Purchase order number

AUDAT(10), "Booking date

bstdk(10), "PO Date

SA LIKE KNA1-KUNNR, "Sales rep

CE LIKE KNA1-KUNNR,

SR LIKE KNA1-KUNNR,

waerk like VBAK-WAERK,

belnr like bkpf-belnr, "FI Document

desc(1),

END OF IVBAK.

*---Item level data is stored in this table

DATA : BEGIN OF IVBAP OCCURS 0,

POSNR LIKE VBAP-POSNR, "Item number in spread sheet

MATNR LIKE VBAP-MATNR, "Material number

ZMENG(14) TYPE C , "Quantity

VENDAT LIKE VEDA-VENDDAT, "Cycle end date

MWERT1 LIKE RCTMS-MWERT, "Relase number

KBETR(15) TYPE C, "AMount

WBS(24) TYPE C, "WBS element

text(1) type c,

END OF IVBAP.

*--Use for call function to display message

DATA BEGIN OF MSG OCCURS 0.

INCLUDE STRUCTURE FIMSG.

DATA END OF MSG.

*--bdc table

DATA : BEGIN OF BDC_TAB OCCURS 0.

INCLUDE STRUCTURE BDCDATA .

DATA : END OF BDC_TAB.

*--Capture the errors in the transaction

DATA : BEGIN OF ERR_MSG OCCURS 100 .

INCLUDE STRUCTURE BDCMSGCOLL .

DATA : END OF ERR_MSG.

DATA: BEGIN OF SUBSTRINGS OCCURS 10,

LINE(72) TYPE C,

END OF SUBSTRINGS.

Table for splitting incoming line texts into multiple 72 char length
strings to be inserted in line long text field.

DATA: BEGIN OF line_texts OCCURS 10,

line_no type i,

seq_no type i,

text(72) TYPE C,

END OF line_texts.

*--Function key Exclude table

DATA : BEGIN OF PFKEY OCCURS 2,

FCODE(4),

END OF PFKEY.

*--BDC loop field declaration

DATA : MATERIAL(13) VALUE 'VBAP-MATNR( )',

QUANTITY(15) VALUE 'RV45A-KWMENG( )',

Item_cat(13) VALUE 'VBAP-PSTYV( )',

SELECTION(29) VALUE 'RV45A-VBAP_SELKZ( )',

BILL_DATE(13) VALUE 'FPLT-AFDAT( )',

BILL_QTY(13) VALUE 'FPLT-FAKWR( )',

COUNTE(1) TYPE N,

INDEX(1) TYPE N.

data tab_idx type i.

*--Flag and temerary variables

data: ERRORS, "Error message

V_VBELN LIKE VBAK-VBELN. "Document number hold

data: line_no type i.

data: seq_no type i.

data: txt_fld(2040) type c.

*--File name

SELECTION-SCREEN BEGIN OF BLOCK BK1 WITH FRAME TITLE TEXT-001.

Sales Org

parameters: p_vkorg like vbak-vkorg obligatory.

*--File name

PARAMETERS : P_FILENM LIKE IBIPPARMS-PATH

DEFAULT 'C:\MY document\FAM2.TXT' obligatory.

SELECTION-SCREEN END OF BLOCK BK1.

*--File name display

AT SELECTION-SCREEN ON VALUE-REQUEST FOR P_FILENM.

CALL FUNCTION 'F4_FILENAME'

IMPORTING

FILE_NAME = P_FILENM

EXCEPTIONS

OTHERS = 1.

*--User command

AT USER-COMMAND.

*--Display the documents when there is no error in updating sales order

*--Variable is set after the call transaction

IF ERRORS = ' '.

*--Variable V_vbeln is set after the sales order updated from the error

*--Message table depending on the error message number

SET PARAMETER ID 'AUN' FIELD V_VBELN.

CASE SY-UCOMM.

WHEN 'DISP'.

*--Display sales order

PERFORM DISPLAY_SALES_ORDER.

WHEN 'CHAN'.

*--Change the sales order

PERFORM CHANGE_SALES_ORDER.

ENDCASE.

ENDIF.

START-OF-SELECTION.

*--Initialis the messages

CALL FUNCTION 'FI_MESSAGE_INIT'.

*--Perform the Excel file

PERFORM UPLOAD_EXCEL_FILE.

IF ERRORS = 'X'.

message e000 with 'Error while uploading the input file'.

ENDIF.

*--Update the header data from first 3 rows

PERFORM UPDATE_HEADER.

*--update the item data and billing plan.

PERFORM UPDATE_ITEMS.

*----Update bdc table

PERFORM UPDATE_BDC.

*--Call transaction

PERFORM CALL_VA01.

&----

*& Form UPLOAD_EXCEL_FILE

&----

Upload the data from excel file

----

FORM UPLOAD_EXCEL_FILE.

data : v_filenm like RLGRAP-FILENAMe.

clear v_filenm.

move p_filenm to v_filenm.

*--uploade the excel file.

CALL FUNCTION 'WS_UPLOAD'

EXPORTING

FILENAME = v_FILENM

FILETYPE = 'DAT'

TABLES

DATA_TAB = ITAB

EXCEPTIONS

CONVERSION_ERROR = 1

FILE_OPEN_ERROR = 2

FILE_READ_ERROR = 3

INVALID_TABLE_WIDTH = 4

INVALID_TYPE = 5

NO_BATCH = 6

UNKNOWN_ERROR = 7

OTHERS = 8.

IF SY-SUBRC NE 0.

*--Fill messages

PERFORM FILL_MSG USING 'ZZ' 'E' '920' P_FILENM SPACE SPACE SPACE.

*--Collect it

PERFORM COLLECT_MSG.

ERRORS = 'X'.

ENDIF.

read table itab index 1.

if sy-subrc <> 0 or ( itab-field1 = space and itab-field2 = space and

itab-field3 = space and itab-field4 = space ).

ERRORS = 'X'.

endif.

ENDFORM. " UPLOAD_EXCEL_FILE

----

FORM FILL_MSG *

----

This subroutine fills data into internal structure, MSG, which *
stores relevant error message information. *

----

--> MSGNO - Message no. *
--> MSGV1 - Message variable 1 *
--> MSGV2 - Message variable 2 *
--> MSGV3 - Message variable 3 *
--> MSGV4 - Message variable 4 *

----

FORM FILL_MSG USING MSGID MSGTY MSGNO MSGV1 MSGV2 MSGV3 MSGV4.

MSG-MSORT = '1'.

MSG-MSGID = MSGID.

MSG-MSGTY = MSGTY.

MSG-MSGNO = MSGNO.

MSG-MSGV1 = MSGV1.

MSG-MSGV2 = MSGV2.

MSG-MSGV3 = MSGV3.

MSG-MSGV4 = MSGV4.

ENDFORM.

----

FORM COLLECT_MSG *

----

This subroutine logs all errors occur during the execution of *
BDC *

----

FORM COLLECT_MSG.

CALL FUNCTION 'FI_MESSAGE_COLLECT'

EXPORTING

I_FIMSG = MSG

EXCEPTIONS

MSGID_MISSING = 1

MSGNO_MISSING = 2

MSGTY_MISSING = 3

OTHERS = 4.

ENDFORM.

&----

*& Form UPDATE_HEADER

&----

Update the data at the header level of the sales order

----

FORM UPDATE_HEADER.

*--third line will be the header information

READ TABLE ITAB INDEX 3.

ivbak-auart = 'OR'.

IVBAK-VKORG = p_vkorg.

IVBAK-VTWEG = '10'.

IVBAK-SPART = '10'.

IVBAK-SOLD_TO = ITAB-FIELD4.

IVBAK-INSTALL_TO = ITAB-FIELD4.

read table itab index 5. "Booking date

ivbak-audat = itab-field10.

IF IVBAK-AUDAT = SPACE. "System date if book date = ' '.

write sy-datum to IVBAK-AUDAT.

ENDIF.

read table itab index 7. "PO Number

write itab-field6 to ivbak-bstnk right-justified.

IVBAK-BSTDK = ITAB-FIELD10.

read table itab index 11. "RFQ

IVBAK-SUBMI = ITAB-FIELD6.

read table itab index 9. "Bill to and Sales Rep

IVBAK-BILL_TO = ITAB-FIELD4.

IVBAK-Payer = IVBAK-BILL_TO.

IVBAK-SA = ITAB-FIELD6.

IVBAK-CE = ITAB-FIELD6.

IVBAK-SR = ITAB-FIELD6.

read table itab index 15. "Bill to contact

concatenate itab-field3 itab-field4 into ivbak-bill_cont separated by

space.

read table itab index 16. "Ship to

IVBAK-SHIP_TO = ITAB-FIELD4.

read table itab index 21. "Payment terms

ivbak-zterm = itab-field10.

read table itab index 23.

concatenate itab-field3 itab-field4 into ivbak-ship_cont

separated by space. "Ship to contact

iVBAK-WAERK = itab-field10.

*--Get header text

tab_idx = 26.

READ TABLE ITAB index tab_idx.

line_no = 0.

seq_no = 0.

while itab-field1 ns 'Training Line Item Information'.

concatenate itab-field1 itab-field2 itab-field3

itab-field4 itab-field5 itab-field6 itab-field7

itab-field8 itab-field9 itab-field10

into txt_fld SEPARATED by space.

if txt_fld <> space.

ivbak-desc = 'Y'.

perform parse_text_n using txt_fld.

loop at substrings.

seq_no = seq_no + 1.

line_texts-line_no = line_no.

line_texts-seq_no = seq_no.

line_texts-text = substrings-line.

append line_texts.

endloop.

refresh substrings.

clear txt_fld.

endif.

tab_idx = tab_idx + 1.

read table itab index tab_idx.

endwhile.

ENDFORM. " UPDATE_HEADER

&----

*& Form UPDATE_ITEMS

&----

Update the item data into IVBAP and Billing plan bill_plan table

----

FORM UPDATE_ITEMS.

*--The item data start from line 5

Do.

tab_idx = tab_idx + 1.

read table itab index tab_idx.

Item line column headings

if ( itab-field1 = space and itab-field2 CS 'Course No.' and

itab-field3 = 'Business Unit' and itab-field4 = 'WBS Element' ) or

( itab-field1 = space and itab-field2 = space and

itab-field3 = space and itab-field4 = space ).

continue.

elseif itab-field1 co '0123456789 ' and itab-field2 <> space and

itab-field4 <> space and itab-field10 co '0123456789.," '.

perform fill_item_data.

elseif itab-field7 <> 'Currency'.

exit. "End of line items.

ENDIF.

ENDDO.

*--Rearrange the internal tables

DELETE IVBAP WHERE ( MATNR = '0' or matnr = ' ' ).

SORT IVBAP BY POSNR.

ENDFORM. " UPDATE_ITEMS

&----

*& Form UPDATE_BDC

&----

Update the BDC table

----

FORM UPDATE_BDC.

*--Update header information

PERFORM UPDATE_HEADER_INFO.

*--Update item information

PERFORM UPDATE_ITEM_INFO.

*--Save document

PERFORM SAVE_SALES_ORDER.

ENDFORM. " UPDATE_BDC

PERFORM DYNPRO USING :

'X' 'SAPMV45A' '0101', "Initial screen

' ' 'VBAK-AUART' ivbak-auart, "Order type ZVC

' ' 'VBAK-VKORG' IVBAK-VKORG, "Sales organisation

' ' 'VBAK-VTWEG' IVBAK-VTWEG, "Distribution channel

' ' 'VBAK-SPART' IVBAK-SPART, "Division

' ' 'BDC_OKCODE' '=ENT2'.

PERFORM DYNPRO USING:

'X' 'SAPMV45A' '4001', "Overview screen

' ' 'KUAGV-KUNNR' IVBAK-SOLD_TO, "Sold to

' ' 'VBKD-BSTKD' IVBAK-BSTNK, "Purchase order number

' ' 'VBKD-BSTDK' IVBAK-BSTDK, "PO DATE

' ' 'VBKD-ZTERM' IVBAK-ZTERM, "Payment terms

' ' 'BDC_OKCODE' 'KBES'.

PERFORM DYNPRO USING:

'X' 'SAPMV45A' '4002', "Header business data

' ' 'VBAK-SUBMI' IVBAK-SUBMI, "RFQ#

' ' 'BDC_SUBSCR' 'SAPMV45A',

' ' 'BDC_OKCODE' '=T\01',

'X' 'SAPMV45A' '4002',

' ' 'VBAK-AUDAT' IVBAK-AUDAT, "Document date

' ' 'BDC_OKCODE' '=T\10'.

if not ivbak-waerk is initial.

PERFORM DYNPRO USING :

' ' 'VBAK-WAERK' IVBAK-WAERK. "Currency

endif.

PERFORM DYNPRO USING :

' ' 'BDC_OKCODE' '/EBACK'.

PERFORM DYNPRO USING :

' ' 'BDC_OKCODE' '=BACK',

'X' 'SAPMV45A' '4001', "Overview screen

' ' 'BDC_OKCODE' 'ZSRS', "Sales rep

'X' 'SAPLZSSR' '9000', "Sales rep popup screen

' ' 'SZORS-KUNNRSR(3)' IVBAK-SR, "Sales rep

' ' 'BDC_OKCODE' 'CONT',

'X' 'SAPMV45A' '4001'. "Overview screen

PERFORM DYNPRO USING :

' ' 'BDC_OKCODE' 'KPAR',

'X' 'SAPDV02P' '6924', "Header partnrs

' ' 'RV02P-KUNDE(2)' IVBAK-INSTALL_TO, "Install-at party (IN)

' ' 'RV02P-SELKZ(3)' 'X',

' ' 'RV02P-KUNDE(3)' IVBAK-BILL_to, "Bill to party

' ' 'BDC_OKCODE' '=S\PICK',

*Start Comment Lokesh

'X' 'SAPDV02P' '0644',
' ' 'VBADR-NAME2' IVBAK-bill_CONT,

*End Comment Lokesh

*Start Lokesh

'X' 'SAPLV09C' '5000',

' ' 'ADDR1_DATA-NAME2' IVBAK-bill_CONT,

*End Lokesh

Start venkatp
' ' 'BDC_OKCODE' '=BACK',

' ' 'BDC_OKCODE' 'ENT1',

End venkatp

'X' 'SAPDV02P' '6924'. "Header partnrs

if not IVBAK-payer is initial.

PERFORM DYNPRO USING :

' ' 'RV02P-KUNDE(4)' IVBAK-payer. "Payer (BP)

endif.

PERFORM DYNPRO USING :

' ' 'RV02P-SELKZ(5)' 'X',

' ' 'RV02P-KUNDE(5)' IVBAK-SHIP_TO, "Ship to party

' ' 'BDC_OKCODE' '=S\PICK',

*Start Comment Lokesh

'X' 'SAPDV02P' '0644',
' ' 'VBADR-NAME2' IVBAK-SHIP_CONT,

*End Comment Lokesh

*Start Lokesh

'X' 'SAPLV09C' '5000',

' ' 'ADDR1_DATA-NAME2' IVBAK-SHIP_CONT,

*End Lokesh

Start venkatp
' ' 'BDC_OKCODE' '=BACK',

' ' 'BDC_OKCODE' 'ENT1',

End venkatp

'X' 'SAPDV02P' '6924', "Header partnrs

' ' 'BDC_OKCODE' '=S\BACK',

'X' 'SAPMV45A' '4001'. "Overview screen

IF IVBAK-DESC <> SPACE.

*-Long text.

PERFORM DYNPRO USING :

' ' 'BDC_OKCODE' 'KTEX',

'X' 'SAPMV45A' '4002',

' ' 'RTEXT-SPRAS(3)' 'EN',

' ' 'RTEXT-SELKZ(3)' 'X',

' ' 'BDC_OKCODE' '/2',

'X' 'SAPLSTXX' '1100'.

perform input_long_texts using 0.

PERFORM DYNPRO USING :

'X' 'SAPMV45A' '4002',

' ' 'BDC_OKCODE' '=BACK'.

PERFORM DYNPRO USING :

'X' 'SAPMV45A' '4001'.

endif.

PERFORM DYNPRO USING :

' ' MATERIAL IVBAP-MATNR, "Material number

' ' QUANTITY IVBAP-ZMENG, "Quantityt

' ' ITEM_CAT 'ZOR5'. "item category

IF IVBAK-AUART = 'OR'.

PERFORM DYNPRO USING :

' ' 'BDC_OKCODE' '=ENT1', "Material Config

'X' 'SAPLCEI0' '0109', "Config screen

' ' 'RCTMS-MNAME(1)' 'RELEASE', "Release

' ' 'RCTMS-MWERT(1)' IVBAP-MWERT1, "Release #

' ' 'BDC_OKCODE' '=BACK'.

ENDIF.

Chages Lokesh Ecc 5.0

PERFORM DYNPRO USING :

'X' 'SAPMV45A' '4001', "Overview screen

' ' SELECTION 'X',

' ' 'BDC_OKCODE' 'PKON', "Material Pricing screen

' ' 'BDC_OKCODE' 'PKAU', "Material Pricing screen

'X' 'SAPMV45A' '4003',

' ' 'BDC_OKCODE' 'PEIN', "Material Pricing screen

' ' 'BDC_OKCODE' 'T\06', "Material Pricing screen

'X' 'SAPMV45A' '5003', "Overview screen

'X' 'SAPMV61A' '6200',

' ' 'BDC_OKCODE' 'V69A_KOAN', "Add new pricing

'X' 'SAPMV61A' '6200', "Material pricing screen

'X' 'SAPMV45A' '5003', "Overview screen

'X' 'SAPLV69A' '6201', "Material pricing screen

' ' 'KOMV-KSCHL(02)' 'ZPR0', "Condition type

' ' 'KOMV-KBETR(02)' IVBAP-KBETR. "Condition Amount

IF IVBAK-AUART = 'OR'.

PERFORM DYNPRO USING :

' ' 'BDC_SUBSCR' 'SAPMV45A', "Account Assignment

' ' 'BDC_OKCODE' '=T\07',

'X' 'SAPMV45A' '4003',

' ' 'BDC_OKCODE' '=BACK',

'X' 'SAPLKACB' '0002',

' ' 'COBL-PS_PSP_PNR' IVBAP-WBS,

' ' 'BDC_OKCODE' '=ENTE'.

else.

PERFORM DYNPRO USING :

' ' 'BDC_OKCODE' '=BACK'.

ENDIF.

Input long texts

PERFORM DYNPRO USING :

'X' 'SAPMV45A' '4001',"Overview screen

' ' SELECTION 'X',

' ' 'BDC_OKCODE' '=PTEX',

'X' 'SAPMV45A' '4003',

' ' 'RTEXT-SPRAS(2)' 'EN',

' ' 'RTEXT-SELKZ(2)' 'X',

' ' 'BDC_OKCODE' '/2',

'X' 'SAPLSTXX' '1100'.

perform parse_text_n using ivbap-text. "Load header texts

perform input_long_texts using ivbap-posnr.

PERFORM DYNPRO USING :

'X' 'SAPMV45A' '4003',

' ' 'BDC_OKCODE' '=BACK',

'X' 'SAPMV45A' '4001'.

ENDLOOP.

Former Member · ‎2008 May 19

DATA : BEGIN OF ITAB OCCURS 0,

FIELD1(200),

FIELD2(20),

FIELD3(20),

FIELD4(30),

FIELD5(50),

FIELD6(50),

FIELD7(50),

FIELD8(50),

FIELD9(50),

FIELD10(50),

END OF ITAB.

This is the upload structure with TAB delimeted.

Regards,

Madan.

Former Member · ‎2008 May 19

HI

There are following 10 fields .

FIELD1(200),

FIELD2(20),

FIELD3(20),

FIELD4(30),

FIELD5(50),

FIELD6(50),

FIELD7(50),

FIELD8(50),

FIELD9(50),

FIELD10(50),

FIELD1(200), means its a filed with 200 characters.

Reward if helpful

By Category

Related Content

Activity Groups

Industry Groups

Influence and Feedback Groups

Interest Groups

Location Groups

Customer Only Groups

Forums

Related Resources

Products

Learning and Support

About

My SAP Profile

My SAP Profile

help urgent