BOM Creation (CS01) in LSMW

Question

Hi I am doing the DI input method of LSMW (OBJECT: 0030, METHOD: 0001). I created 2 source structures and 2 files: HEADER  and ITEM.
After execute the  13th step, ‘Create Batch session’  I am  getting the the following message ' <i><b>E29   811 Transaction will not support'</b></i> and stopping the process. It is not creating an Session.
In the step: <b>'Specify file'</b>, It is asking the logical path, I had given some name. Then it is created the logical path. The name is available in AL11 tcode.
Does we need to create the same logical path name in the Unix system with the help of Basis guys.
Could you please advise how to resolve the issue.
Thanks & Regards
Madhu

Answer 1

Hi,
go through the Code used for BOM upload using Direct Input and modify to your requirements.
ABAP Name   : ZSDBDCP
Description : Bill of Material (direct input)
REPORT ZPPBDCP_BOM
        line-size 150.
                              Tables
Tables: BIKSSK,BIAUSP,MARA.
                           Internal Tables
*-- Internal Table to hold bom data
data : begin of it_class occurs 0,
*KLART(4),
OBJEK(50),
CLASS(18),
ATNAM(30),
ATWRT(30),
       end of it_class.
                     Start of selection
Start-of-selection.
  clear   it_class.
  refresh it_class.
*To Upload Flat file from presentation server
  CALL FUNCTION 'UPLOAD'
       EXPORTING
            filename                = 'C:\WINDOWS\Desktop\class.txt'
            filetype                = 'DAT'
       TABLES
            data_tab                = it_class
       EXCEPTIONS
            conversion_error        = 1
            invalid_table_width     = 2
            invalid_type            = 3
            no_batch                = 4
            unknown_error           = 5
            gui_refuse_filetransfer = 6
            OTHERS                  = 7.
*--Open File on Application Server
  open dataset 'class.txt' FOR OUTPUT IN TEXT MODE.
  loop at it_class.
    IF IT_CLASS-class NE ' '.
         CLEAR MARA-MATNR.
         SELECT SINGLE MATNR INTO MARA-MATNR
                 FROM MARA
                 WHERE BISMT EQ IT_CLASS-OBJEK.
         if sy-subrc ne 0.
          WRITE:/ 'Invalid Old Material',IT_CLASS-OBJEK.
         endif.
      perform popu_BIKSSK.
      transfer BIKSSK  to 'class.txt'.
    ENDIF.
    perform popu_BIAUSP.
    transfer BIAUSP  to 'class.txt'.
  ENDLOOP.
*&      Form  popu_BIKSSK
      text
-->  p1        text
<--  p2        text
FORM popu_BIKSSK.
  BIKSSK-STYPE = 1.
  BIKSSK-TCODE = 'CL20'.
  BIKSSK-MAFID = 'O'.
  BIKSSK-KLART = '001'.
  BIKSSK-OBJEK = mara-matnr.
  BIKSSK-CLASS = IT_CLASS-CLASS.
  BIKSSK-OBTAB = 'MARA'.
ENDFORM.                    " popu_BIKSSK
*&      Form  popu_BIAUSP
      text
-->  p1        text
<--  p2        text
FORM popu_BIAUSP.
  BIAUSP-STYPE = 2.
  BIAUSP-ATNAM = IT_CLASS-ATNAM.
  BIAUSP-ATWRT = IT_CLASS-ATWRT.
ENDFORM.                    " popu_BIAUSP
Regards,
Anji