Help urgent

Question

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.

Answer 1

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