Storage Type and storage bin in MB26 pick list

Hi,
We want to print a pick list using MB26. The pick list should contain the warehouse number , storage type and storage bin. I have found that in the layout of MB26 pick list, we can pull these fields. However, the values of these fields are not getting pulled in the list.
Can you please help me to understand if I need to do some setting/config so that warehouse number, storage type and storage bin can be pulled in the MB26 report.
Thanks,
Shekhar

if it is a standard output if you go to the output type you can see what are the standard fields included in the pick list but if it is a custom one please contact your functional consultant who designed or look at the spec to see the design/mapping of fields.
Please let me know if thhis helps.

Similar Messages

  • How to distribute HU items in to diffrent storage types and diffrent BINS

    Hi
    I have one handling unit and I have done empty all 4 items in it  HU02
    As a result one material document created
    But How can I distribute all items in to diffrent storage types and diffrent BINS
    No TR and Posting change created at material doc
    What is the config settings to cretae TR ot Posting change notice and Movement types
    Kindly Help

    yes LT10

  • MB26 pick list issue

    Hi,
    Against production order reservation number we are doing goods issue in MB26. We do GI for few components and the remaining later. I posted say 10 out of 25 components, when i try to post the remaining components (15) against the same reservation number, i am getting the error message " no goods movement can be selected".
    Cross checked the production order. for the issued materials final issue is checked.
    Still for the remaining components, the quantity are open. could anyone suggest how to approach for this issue?

    The material with backflush tick does not comes in Picklist report. This material will get issue when you do the confirmation. Click on Goods movement screen in confirmation scree you will see all this 10 materials there. If you want to issue this material through Pick list you have to remove the Backflush Indicator. Remove it from Production Order & then check MB26

  • Bin Location In Pick List - Cannot select batch/serial number after pick list created

    Hi,
    When i set up the item master as "Issued Primarily By Bin Location". There are no way for me to assign batch/serial in back end. In contrary, when item set up as "Issue Primarly By Batch/Serial Number", SAP prompt to pre-select the batch/serial no. during creating pick list.

    Hi,
    Please check this thread for the reason why system information is not correct.
    Variables - Sap business one
    Thanks & Regards,
    Nagarajan

  • WM BIN to BIN transfer order and picking list

    Hi Guys
    I have a scenario where I need to print BIN to BIN transfers details
    After completing the transfer to destination BIN Ineed to print
    Which Interim storage type(Like 9 sereis 901----999) I need to link print code and printer
    what config settings required for this
    and also another similar scenario
    Picking list from warehouse against the sales order
    which interim storage type we need to link the printer
    we have already satnadalone storage types availble(100,120,1....)
    Kindly suggest a solution ,thanks in advance

    Dear Friend,
    Print determination is WM is done in transaction OMLV. Major steps include
    1. Define spool request.--> Here you define spools and how it should be configured like new spool request, delete after spool out put.
    2.Definition of Print code--> Here you assign form to each print code
    3. Assign Print code to movement type--> For each mvt type assign print code. In automatic determination of printer, system checks whether any print code is assigned to each mvt type in a warehouse.
    4.Assign Printer to Warehouse--> Once form and other information is determined in above steps, system checks for printer for a warehouse in this configuration.If no printer is assigned, then it will proceed to next step that is step 5 here below
    5.Assign printer to picking area--> Assignment of printer to picking area.If this paramter is not maintained then it will go to next step. That is step 6 here
    6.Assign printer to Storage type--> It will fetch printer if nothing is mentioned in step 4 & 5 above.
    7.Print Report--> Assign print program to ware house. This the last step in config.
    I hope this helps.

  • To add storage bin field in MB52

    hi everyone,
       I have a scenario like adding the field Storage bin (LGPBE) in the list output of MB52.
       I have copied the standard program RSWOGIND as z program and added the field LGPBE in the internal table 'collector'.
       In the corresponding select statement i have mentioned the field for populating the values.
       In the field catalog i have defined it for output. But still i am not getting it in the list output and also in layout option.
    Thanks in advance!!!

    It could be fieldcatalog issue or it may be at hidden fields in output,try to look at ALV Layout one more time.
    Thanks
    Seshu

  • Two pick list output types

    Hi,
    I have a requirement related to pick list output types. A pick list output type is already configured and assigned to shipping point and is used for taking pick list for SD customer delivery.
    I want to create another pick list output type which is to be assigned to same shipping point for subcon delivery alone.
    How can I configure it?
    Your inputs please.
    Regards,
    Siva

    No feedback

  • Infoview pick list values and CR parameter values are not the same

    Hello All
    We have created created Crystal Reports based upon BW Query using Static Parameters as recomended by SAP. When we run the query in InfoView the Pick List is dynamically updated and returns the correct data for selection. When The Crystal Report opens and you wish to navigate through the report using the parameter selection the selection criteria has not been maintained by BW and does not match the Pick List.
    Can you please advise if there is any way to make this work?
    We ar using Crystal Reports 2008 version 12.3.1.684
    on BOBJ XI 3.1
    Any help would be appreciated,
    Phillip

    Hello Ingo
    What is strange that in InfoView the pick list is only dynamic the Parameters when the document is open (in InfoView) are not dynamic. An example would be Searching on Material. In Info view the pick list provides all the materials to select from. Once though the report is open the parameter list on the left hand side could be seen as blank as it refers to the static list that is not manually maintained within Crystal Reports or provide a list of details that has no reference to the dynamic selection as returned from BW as it is a static list that was loaded with Crystal Reports Designer on creation.
    What we are wanting to achieve is that Info View Pick List is Dynamic and the Parameter list that can be used to navigate within the document once opened is dynamically refreshed to be the same as the Pick List provided by BW and InfoView.
    Is this possible?
    With CR Designer if we use Do Not Show, Info View no longer provides this parameter on the left hand side.
    If we use Editable the list provided in InfoView is equal to the static list as maintained within CR Designer.
    We have not tested Read Only Yet so I am not sure if this could be the solution or not.
    Any ideas would be of great benefit
    Phillip
    Edited by: Phillip L on Nov 26, 2010 5:22 PM
    Edited by: Phillip L on Nov 26, 2010 5:23 PM

  • Re-print Pick list

    hi -
    I had a Pick List printed. But the document got accidently destroyed before the Picking could take place.
    I used VL02n and under output for Picking, i tried to run the Output again, but the area is greayed out and i am unable to put the condition type EK00 to re-print the pick list.
    Is there any other way in Standard SAP to reprint the Pick list.
    Any suggestions or recommendations !!!

    Hi,
    *If you have configured LL01 report in your system* you can take print out of pick list for the inconfirmed transfer orders. In report you have to set up layout to take bin details.
    Hope this meet your requirment.
    Regards,
    Prashant

  • Pick List Creation Released quantity exceeds open quantity

    Hi all,
    I'm getting the following error when trying to create pick lists through the SAPB1 DI:
    "Released quantity exceeds open quantity "
    Every time, the stock quantity in the warehouse that the code concerns is by far enough when compared to the released quantity.
    I cannot turn off the warehouse setting recommended on another post on here.
    Any ideas?
    Thanks
    Cal.

    Hi, sorry for my delayed response!
    This is still an issue, I already have a condition to check against the warehouse's current stock, this is being successful but still generates the above error when we get to PLIST.add()
    Here's the SQL I'm using to gather my data:
    select distinct t3.docnum,t4.listName as'Price List',(select isnull(sum(1),0) from pkl1 S99 where S99.orderentry = T0.docentry
    and S99.orderline = T0.linenum) as 'cupid',t0.DocEntry, t3.Confirmed, DATEDIFF(DAY,GETDATE(),t3.DocDueDate)
    as 'DateDifference' from rdr1 t0 inner join oitm t2 on t0.ItemCode = t2.ItemCode inner join ORDR t3
    on t3.DocEntry = t0.DocEntry inner join OCRD t1 on t3.CardCode = t1.cardcode inner join OPLN t4
    on t1.listnum = t4.listNum where T0.[WhsCode] = 'xxx' and  T2.[OnHand] > 0 and  T0.[OpenQty] > 0 and T2.InvntItem = 'y'
    and t3.Confirmed = 'y' and (select isnull(sum(1),0) from pkl1 S99 where S99.orderentry = T0.docentry and S99.orderline = T0.linenum) = 0
    and t4.ListName <> 'EconoSupplies Sales' and t4.ListName <> 'EconoSupplies Sales (EUR)'
    and DATEDIFF(DAY,GETDATE(),t3.DocDueDate) < case when datepart(WEEKDAY,getdate()) = 6 then 4 else 2 end group by t3.docnum,t0.docEntry,
    t3.Confirmed , t0.LineNum, t4.listname, DATEDIFF(DAY,GETDATE(),t3.DocDueDate) order by t0.DocEntry
    This returns a list of all the picks that I am interested in. I have changed the warehouse code for privacy.
    Next, we loop through each pick and extract the data:
    SELECT T1.[DocNum], T1.[DocEntry],T0.[LineNum],  T1.[CardCode],T0.[ItemCode], T0.[Dscription], T0.[OpenQty], (SELECT sum(s99
    .[OpenQty]) FROM RDR1 s99 WHERE s99.[DocEntry] = T0.[DocEntry] and  s99.[ItemCode] = T0.[ItemCode]) as 'TotalQty',T3.
    [OnHand] FROM RDR1 T0 INNER JOIN ORDR T1 ON T0.DocEntry = T1.DocEntry INNER JOIN OITM T2 ON T0.ItemCode = T2.ItemCode INNER
    JOIN OITW T3 ON T0.ItemCode = T3.ItemCode and T0.WhsCode = T3.WhsCode WHERE T0.[WhsCode] = 'DSV' and  T3.[OnHand] > 0 and 
    T0.[OpenQty] > 0 and T2.InvntItem = 'y' and t0.docEntry =  <<<VB VARIABLE HERE>>>
    ORDER BY T1.[DocEntry], T0.[LineNum]
    These two sql commands are stored in a table and called from the VB code, for soft code re-usability.
    The SQL returns the results I am expecting, and I don't think the problem lies here.
    Here's the VB code:
            Dim PLIST As SAPbobsCOM.PickLists
            PLIST = GetDIConnection.GetBusinessObject(SAPbobsCOM.BoObjectTypes.oPickLists)
            Dim RS, RS1, RS2, RS12 As SAPbobsCOM.Recordset
            Dim i, ii As Integer
            RS = GetDIConnection.GetBusinessObject(SAPbobsCOM.BoObjectTypes.BoRecordset)
            RS1 = GetDIConnection.GetBusinessObject(SAPbobsCOM.BoObjectTypes.BoRecordset)
            RS12 = GetDIConnection.GetBusinessObject(SAPbobsCOM.BoObjectTypes.BoRecordset)
            Dim WhsCode As String = GetCompanyNamedConfigValue("xxxxx", "xx")
            Dim SQLText As String
            Dim nErr, errMsg As String
            Dim DocDate As Date = Now
            Dim tempI As Integer = 1
            Dim executeBody As Boolean = True
            Dim ExecuteHead As Boolean = True
            Dim picklistcheck, picklistcheck1 As String
            Dim Type As String
            'CJB---- AUTO GENERATE PICK LIST-------------------------------------
            Dim OCHAPPCFGValue As String = GetAPPCFGEntry("GeneratePicks")
            If OCHAPPCFGValue = "Y" The
                Dim DocEntry, qty, docnum As Integer 'SO docentry & line qty
                Dim ItemCode As String ' Itemcode for SO line
                Dim price As Double
                Dim LineNum As Integer
                Dim OrderRs, ORderRs1 As SAPbobsCOM.Recordset
                Dim HashTable As New Hashtable
                Dim HashArray(2) As String
                OrderRs = GetDIConnection.GetBusinessObject(SAPbobsCOM.BoObjectTypes.BoRecordset)
                ORderRs1 = GetDIConnection.GetBusinessObject(SAPbobsCOM.BoObjectTypes.BoRecordset)
                Dim sqlstring1 As String = GetAPPCFGEntry("SQLSTRING1SOWMS03")
                Echo("Debug, sqlstring1: " & sqlstring1)
                OrderRs.DoQuery(sqlstring1) ' just assume the SQL brings back what I need
                Dim Attemptcount As Integer = 1
                'We now have the docEntries we need, so we loop through each docEntry and extract the lines
                Do Until OrderRs.EoF
                    DocEntry = OrderRs.Fields.Item("DocEntry").Value
                    EchoBanner("NEW RECORD, attempt count: " & Attemptcount)
                    Echo("DocEntry: " & DocEntry)
                    Dim sqlstringPart1, SqlStringPart2 As String
                    sqlstringPart1 = GetAPPCFGEntry("SQLSTRINGSOWMS03P1")
                    SqlStringPart2 = GetAPPCFGEntry("SQLSTRINGSOWMS03P2")
                    Dim sqlstring As String = sqlstringPart1 & " '" & DocEntry & "' " & SqlStringPart2
                    Echo("Debug: SOFT CODED SQL STRING FROM OCHAPPCFG FOR PICK LIST SELECTION CRITERIA:")
                    Echo(sqlstring)
                    ORderRs1.DoQuery(sqlstring)
                    If ORderRs1.RecordCount = 0 Then
                        'Error!
                        EchoBanner("No records found under docEntry: " & DocEntry)
                    End If
                    PLIST.PickDate = Today
                    PLIST.Name = "DSV Interface"
                    PLIST.OwnerCode = 1
                    Dim icount As Integer = 0
                    Dim onHand, TotalQty As Integer
                    Dim LineAdded As Boolean = False
                    Do Until ORderRs1.EoF
                        docnum = ORderRs1.Fields.Item("DocNum").Value
                        'PLIST.Lines.SetCurrentLine(icount)
                        ItemCode = ORderRs1.Fields.Item("ItemCode").Value
                        ' price = OrderRs1.Fields.Item("Price").Value
                        onHand = CInt(ORderRs1.Fields.Item("onHand").Value)
                        TotalQty = CInt(ORderRs1.Fields.Item("TotalQty").Value)
                        Echo("DocNum: " & docnum)
                        Echo("Debug: Onhand: " & onHand)
                        Echo("Debug: TotalQty: " & TotalQty)
                        If TotalQty > onHand Then
                            'WE CANNOT RAISE THIS PICK LIST, MORE REQUESTED THAN IN STOCK!
                            Echo("Unable to generate Pick List, not enough stock for item: " & ItemCode)
                            Exit Do
                        End If
                        PLIST.Lines.SetCurrentLine(icount)
                        Echo("Line set to " & icount)
                        PLIST.Lines.BaseObjectType = SAPbobsCOM.BoObjectTypes.oOrders
                        PLIST.Lines.OrderEntry = DocEntry
                        'CJB
                        LineNum = ORderRs1.Fields.Item("LineNum").Value
                        PLIST.Lines.OrderRowID = LineNum
                        'PLIST.Lines.ReleasedQuantity = OrderRs1.RecordCount ' quantity from the line in SO - OpenLineQty
                        PLIST.Lines.ReleasedQuantity = ORderRs1.Fields.Item("OpenQty").Value
                        '  PLIST.Lines.TaxCode = OrderRs1.Fields.Item("VatGroup").Value
                        Echo("Record count : " & ORderRs1.RecordCount)
                        Echo("Icount: " & icount)
                        Echo("Details...")
                        Echo("Debug: LineNum: " & LineNum)
                        Echo("Debug: DocNum: " & docnum)
                        Echo("Debug: ItemCode: " & ItemCode)
                        Echo("Debug: Released Quantity: " & PLIST.Lines.ReleasedQuantity)
                        Echo("Debug: Picked Quantity: " & PLIST.Lines.PickedQuantity)
                        Echo("Debug: OnHand: " & onHand)
                        Echo("Debug: PickDate: " & PLIST.PickDate)
                        PLIST.Lines.Add()
                        Echo("Pick List line added!")
                        icount += 1
                        ORderRs1.MoveNext()
                        LineAdded = True
                    Loop
                    ' OrderRs.DoQuery("select t0.absentry, t0.pickentry, t0.orderEntry, t1.DocEntry, t0.PickQtty from pkl1 t0 inner join ordr t1 on t0.OrderEntry = t1.DocEntry where t1.DocEntry = '" & DocEntry & "'"
                    ' If OrderRs.RecordCount = 0 Then
                    If LineAdded = True Then
                        Echo("Adding Pick List...")
                        Dim lretcode As Integer = PLIST.Add()
                        If lretcode = 0 Then
                            'success!
                            EchoBanner("Success")
                            Dim LastPickEntry As String = GetDIConnection.GetNewObjectKey()
                            Echo("Enitre Pick List created! See Pick & Pack -> Pick List in SAPB1")
                            Echo("Pick Entry: " & LastPickEntry)
                        Else
                            EchoBanner("ERROR! UNABLE TO GENERATE PICKLIST!!   " & GetDIConnection.GetLastErrorDescription)
                        End If
                    Else
                        Echo("NO LINES FOUND TO ADD TO THE PICK LIST!")
                        ' Err.Raise(vbObjectError, "SOWMS03, generate picklist", "Error creating PickList!  Error Description:  " & GetDIConnection.GetLastErrorDescription & "    Error Code: " & GetDIConnection.GetLastErrorCode)
                        'need a way of logging this error without jumping out of the loop.
                    End If
                    OrderRs.MoveNext()
                    Attemptcount += 1
                Loop

  • Pick list

    when i confirm TO , i got two printouts , pick list and TO,
    how to block pick list from printing.

    Dear,
    Check the settings in OMLV by unchecking Print immediately and Release after output settings. Try these settings.
    Regards,
    Syed Hussain.

  • CO27 is showing blank values in Warehouse,Storage Type and Storage Bin

    Hi Gurus,
    I am using CO27 to generate pick-list for a production order. The pick-list is being used by Warehouse team to Goods Issue for the Production Order.
    However, the problem that I am facing is that in the pick-list generated from CO27 is showing blank values in Warehouse,Storage type and Storage bin.
    So, it is becoming difficult for the Warehouse to do the picking based on this pick-list.
    Could you please advice how the fields Warehouse,Storage Type and Storage bin can be populated in the Production Order pcik-list.
    Is these values are fetched from Material Master data or any other place?
    Thanks & Regards
    Subhasis

    Hello
    You should implement the following note:
    384427 - CO27/COIK: Storage bin is not displayed
    BR
    Caetano

  • Storage Bin and Storage Type

    Hi,
    Please elaborate on what is Storage Bin, Storage Type, Bin Position, Stock Category and Special Stock, and their function. Also, if there is a link were I can find the definition of these terms, please mention.
    Thanks

    Hi ,
    Here are links
    [Storage Type|http://help.sap.com/saphelp_46c/helpdata/en/c6/f838f94afa11d182b90000e829fbfe/frameset.htm][Storage Bin]|http://help.sap.com/saphelp_46c/helpdata/en/c6/f838f94afa11d182b90000e829fbfe/frameset.htm]
    Storage Section |http://help.sap.com/saphelp_46c/helpdata/en/c6/f838f94afa11d182b90000e829fbfe/frameset.htm]
    Go to Help.sap.com
    Go to Logistics Execution->WareHouse Management -> Basic Functions  you will get everything.

  • Storage bin type and storage unit type.

    Hi,
    Can anyone explain what is the differnce between the staorage bin type which is maintaine for storage bins and the storage unit type which is maintained in material master.
    Can any one correct me that My material storage unit type is maintained in TT and the storage bin for put awayis maintained in PC (storage bin type).
    is this the right way to be adapted.
    Sunil

    Hi,
    THe storage unit type is a description of how the material is stroed in the storage bin.
    Some bins may not able to allow a full pallet due to height restrictions,but a half-pallet may fit.so warehouse can define a storage unit type that defines a half-pallet and qty of the material that can fit on that half-pallet.
    Configuration menu path:IMG-logistics Execution-Warehouse Management-master data-material-define storage unit type.
    where as storage bin is the lowest level of storage defined in the warehouse.
    With Regards,
    Jaheer.

  • LT04 - User exit to add storage type and storage bin

    Hi!
    I am looking for a user exit to populate the destination storage type and storage bin (Fields-LTAP-nltyp and LTAP-NLPLA). The user uses tcode LT04 to createt transfer orders from transfer requirements.
    The program name is SAPML03T.
    Please let me know if anyone has any clue.
    Thanks in advance,
    Manasa
    Message was edited by:
            manasa

    I don't the exact User-Exit...And there are like 104 of them...So why don't you use this report (Not mine) and find out yourself -:)
    REPORT zdummy_atg_2.
    TABLES : TSTC,
    TADIR,
    MODSAPT,
    MODACT,
    TRDIR,
    TFDIR,
    ENLFDIR,
    SXS_ATTRT ,
    TSTCT.
    DATA : JTAB LIKE TADIR OCCURS 0 WITH HEADER LINE.
    DATA : FIELD1(30).
    DATA : V_DEVCLASS LIKE TADIR-DEVCLASS.
    PARAMETERS : P_TCODE LIKE TSTC-TCODE,
    P_PGMNA LIKE TSTC-PGMNA .
    DATA WA_TADIR TYPE TADIR.
    START-OF-SELECTION.
      IF NOT P_TCODE IS INITIAL.
        SELECT SINGLE * FROM TSTC WHERE TCODE EQ P_TCODE.
      ELSEIF NOT P_PGMNA IS INITIAL.
        TSTC-PGMNA = P_PGMNA.
      ENDIF.
      IF SY-SUBRC EQ 0.
        SELECT SINGLE * FROM TADIR
        WHERE PGMID = 'R3TR'
        AND OBJECT = 'PROG'
        AND OBJ_NAME = TSTC-PGMNA.
        MOVE : TADIR-DEVCLASS TO V_DEVCLASS.
        IF SY-SUBRC NE 0.
          SELECT SINGLE * FROM TRDIR
          WHERE NAME = TSTC-PGMNA.
          IF TRDIR-SUBC EQ 'F'.
            SELECT SINGLE * FROM TFDIR
            WHERE PNAME = TSTC-PGMNA.
            SELECT SINGLE * FROM ENLFDIR
            WHERE FUNCNAME = TFDIR-FUNCNAME.
            SELECT SINGLE * FROM TADIR
            WHERE PGMID = 'R3TR'
            AND OBJECT = 'FUGR'
            AND OBJ_NAME EQ ENLFDIR-AREA.
            MOVE : TADIR-DEVCLASS TO V_DEVCLASS.
          ENDIF.
        ENDIF.
        SELECT * FROM TADIR INTO TABLE JTAB
        WHERE PGMID = 'R3TR'
        AND OBJECT IN ('SMOD', 'SXSD')
        AND DEVCLASS = V_DEVCLASS.
        SELECT SINGLE * FROM TSTCT
        WHERE SPRSL EQ SY-LANGU
        AND TCODE EQ P_TCODE.
        FORMAT COLOR COL_POSITIVE INTENSIFIED OFF.
        WRITE:/(19) 'Transaction Code - ',
        20(20) P_TCODE,
        45(50) TSTCT-TTEXT.
        SKIP.
        IF NOT JTAB[] IS INITIAL.
          WRITE:/(105) SY-ULINE.
          FORMAT COLOR COL_HEADING INTENSIFIED ON.
    * Sorting the internal Table
          SORT JTAB BY OBJECT.
          DATA : WF_TXT(60) TYPE C,
          WF_SMOD TYPE I ,
          WF_BADI TYPE I ,
          WF_OBJECT2(30) TYPE C.
          CLEAR : WF_SMOD, WF_BADI , WF_OBJECT2.
    * Get the total SMOD.
          LOOP AT JTAB INTO WA_TADIR.
            AT FIRST.
              FORMAT COLOR COL_HEADING INTENSIFIED ON.
              WRITE:/1 SY-VLINE,
              2 'Enhancement/ Business Add-in',
              41 SY-VLINE ,
              42 'Description',
              105 SY-VLINE.
              WRITE:/(105) SY-ULINE.
            ENDAT.
            CLEAR WF_TXT.
            AT NEW OBJECT.
              IF WA_TADIR-OBJECT = 'SMOD'.
                WF_OBJECT2 = 'Enhancement' .
              ELSEIF WA_TADIR-OBJECT = 'SXSD'.
                WF_OBJECT2 = ' Business Add-in'.
              ENDIF.
              FORMAT COLOR COL_GROUP INTENSIFIED ON.
              WRITE:/1 SY-VLINE,
              2 WF_OBJECT2,
              105 SY-VLINE.
            ENDAT.
            CASE WA_TADIR-OBJECT.
              WHEN 'SMOD'.
                WF_SMOD = WF_SMOD + 1.
                SELECT SINGLE MODTEXT INTO WF_TXT
                FROM MODSAPT
                WHERE SPRSL = SY-LANGU
                AND NAME = WA_TADIR-OBJ_NAME.
                FORMAT COLOR COL_NORMAL INTENSIFIED OFF.
              WHEN 'SXSD'.
    * For BADis
                WF_BADI = WF_BADI + 1 .
                SELECT SINGLE TEXT INTO WF_TXT
                FROM SXS_ATTRT
                WHERE SPRSL = SY-LANGU
                AND EXIT_NAME = WA_TADIR-OBJ_NAME.
                FORMAT COLOR COL_NORMAL INTENSIFIED ON.
            ENDCASE.
            WRITE:/1 SY-VLINE,
            2 WA_TADIR-OBJ_NAME HOTSPOT ON,
            41 SY-VLINE ,
            42 WF_TXT,
            105 SY-VLINE.
            AT END OF OBJECT.
              WRITE : /(105) SY-ULINE.
            ENDAT.
          ENDLOOP.
          WRITE:/(105) SY-ULINE.
          SKIP.
          FORMAT COLOR COL_TOTAL INTENSIFIED ON.
          WRITE:/ 'No.of Exits:' , WF_SMOD.
          WRITE:/ 'No.of BADis:' , WF_BADI.
        ELSE.
          FORMAT COLOR COL_NEGATIVE INTENSIFIED ON.
          WRITE:/(105) 'No userexits or BADis exist'.
        ENDIF.
      ELSE.
        FORMAT COLOR COL_NEGATIVE INTENSIFIED ON.
        WRITE:/(105) 'Transaction does not exist'.
      ENDIF.
    AT LINE-SELECTION.
      DATA : WF_OBJECT TYPE TADIR-OBJECT.
      CLEAR WF_OBJECT.
      GET CURSOR FIELD FIELD1.
      CHECK FIELD1(8) EQ 'WA_TADIR'.
      READ TABLE JTAB WITH KEY OBJ_NAME = SY-LISEL+1(20).
      MOVE JTAB-OBJECT TO WF_OBJECT.
      CASE WF_OBJECT.
        WHEN 'SMOD'.
          SET PARAMETER ID 'MON' FIELD SY-LISEL+1(10).
          CALL TRANSACTION 'SMOD' AND SKIP FIRST SCREEN.
        WHEN 'SXSD'.
          SET PARAMETER ID 'EXN' FIELD SY-LISEL+1(20).
          CALL TRANSACTION 'SE18' AND SKIP FIRST SCREEN.
      ENDCASE.
    Greetings,
    Blag.

Maybe you are looking for