Outputting sy-tabix value in serial number.

Dear expert,
I have all the data stored in the internal table. I need to output it in the same serial number as it is in internal table along with the serial number (sy-tabix value) against this internal table data in report output display.
Thanks in advance.

Hi,
Loop at itab.
Itab-serialnum = sy-tabix.
Modify Itab.
endlloop.
Naxt call alv display by passing the serial num filed catalog.
Prabhudas

Similar Messages

  • BAPI_PO_CHANGE - Account assignment serial number issue

    Hi,
    I am modifying Service PO with BAPI_PO_CHANGE.
    I am passign A/c Assignment with WBS_Element value and serial number '01' for individual line.
    PO has A/c Assignment catagory P(Project).
    But the existing PO which i want to modify, had Serial number '02' for A/c assignemnt serial number.
    So it is giving Short dump with raising exception for the class of Account assignnment handler.
    What need to dofor such A/c assignment catagory in Service PO Case.?
    Regards,
    Manoj

    Hi,
    Please try to change the serial number manually in mE22N and see.
    Regards,
    Nagaraj

  • In base component when user change the serial number we need to set date time in Extra attribute filed

    HI Team,
    In ibase component when user change the serial number we need to set date time in Extra attribute filed..if we click edit ,User change serial number after save we need to set date time in  Extra Attribute 4 field .
    Component - PRDGENSET
    In this component there is no attributes,so where we need to implement and how to implement please help.
    Thanks
    kalpana

    Hi Abi,
    Thanks for your reply..see i debugged..i have put break point in method SET_S_STRUCT method if press enter in serial number ,debuggeris triggered..in SET_S_STRUCT method value getting serial number..so how to write the logic here...
    In GET_S_STRUCT method iam getting all attributes  but serial number is not filled..So could you please help here what to do..
    in set_S_STRCUT method value iam gettin serial number...in collection wrapper iam geting zrealtions if i open attributes_ref -if i pass Attribute value in run time its getting displayed.so how to write the logic based on serial  number please help some coding.
    Thanks
    kalpana

  • CS6 existing serial number holder. Am I eligible to join creative cloud?

    Hi,
    I have purchased Adobe CS6 Master collection student suit from Adobe site recently, now I am thinking to join the CREATIVE CLOUD.
    I have tried to join threw the plan for the individuls -  ' Existing CS Customers special offer ' button. it leads to pick a plan. I have picked and try to join -  complete for cs6.
    When I click this button, it leads me to the join creative cloud page. When I try to sign in their with my user name and password, Its saying you are not qualified.
    I don't know why, I have a valued CS6 SERIAL NUMBER WITH ME and its already registerd.
    Could you advice me to get the proper steps to join the Cloud threw the existing CS Customer offer!.
    Thanks

    Edu versions don't  qualify for an extra discount because you already got them at a considerably lower price. If you are stil la student, use the the S&T version of CC, otherwise you will need to join CC without any further discounts.
    Mylenium

  • MIGO Exit  -- get the serial number

    Hello, everyone
    When push the Enter button or save button in MIGO,I'd like to get the serial number using exit.
    But I think that it is impossible to get the serial number in MIGO Exit.
    Because, they are not IMPORT Parameter which can get serial number.
    Anyone knows if we can get the serial number in MIGO Exit?
    Soma

    Hi,
    Even I have a similar requirement to get the value of serial number in runtime in MIGO tcode, I searched and dint find any FM or BAPI to fetch it. So I used the following code.
    *field-symbols declarations
        field-symbols: <it_goserial>       type STANDARD TABLE,
                       <wa_goserial>       type any,
                       <lv_searial_number> type any.
    *for retreiving the serial number
                ASSIGN ('(SAPLMIGO)OREF_DETAIL->T_GOSERIAL') TO <it_goserial>.
                if sy-subrc = 0.
    *Get the serial numbers entered
                  READ TABLE <it_goserial> INDEX 1 ASSIGNING <wa_goserial>.
                  if sy-subrc = 0.
    *serial number is the second component of the wa_goserial structure (cannot use the component name 'serialno' b/c the component is NOT defined in the Data Dictionary - it's defined in program LMIGOKE1)
                    ASSIGN COMPONENT 2 OF STRUCTURE <wa_goserial> TO <lv_searial_number>.
    endif.
    endif.
    <lv_searial_number> contains the derial number value at runtime.

  • Find Machine Bios Serial Number

    Hi,
    Need to find out the machine bios serial number in SCCM Hardware inventory.
    Check in the SQL database SQL database views V_GS_PC_Bios, the value for serial number showing NULL.
    Do we have to enable or create the custom class to get the bios serial number?
    Regards,
    Milind Dhuri.

    You may find that some make/models of hardware may store the serial number in slightly varying classes in WMI.
    In some, it might be in Win32_BIOS. In others, Win32_ComputerSystem, or Win32_ComputerSystemProduct, Win32_BaseBoard, etc.
    Yes, it *might* be necessary to enable some additional classes in HINV, but I usually find that the data is already being inventoried, just that I am looking in the wrong place :)
    Sometimes, there is no serial number stored in SMBIOS at all. (typically with smaller suppliers)
    A quick and easy way to check if you have make/model variation as the cause of this dilemma, is to use Resource explorer in the ConfigMgr console.
    https://technet.microsoft.com/en-us/library/gg712311.aspx
    Don
    (Please take a moment to "Vote as Helpful" and/or "Mark as Answer", where applicable.
    This helps the community, keeps the forums tidy, and recognises useful contributions. Thanks!)

  • Displaying serial number in the report output

    Hi everyone
    may i know hw can we display serial number inthe report output.

    hi,
    Assuming that you wanted to print the entries of internal table record by record ... do this way ...
    loop at itab.
    write : sy-tabix.  " Record Position
    endloop.
    Regards,
    Santosh

  • How to output serial number in wwi template from the production order

    Dear Experts ,
    Has Sap defined report symbol to output serial number in sap glm

    Dear S P
    there are "lots" of threads discussing this.
    GLM - Serial Number Hide
    EHS GLM how to define serial numbers out of a list
    Bar Code in SAP GLM
    New changes for GLM in EHP7.0 and ERP 6.0
    GLM - Serial Number Hide
    Sap GLM Serial NUmber printing
    Please check them
    C.B.

  • How to get Serial Number value which is under T-CODE IW33

    Hi Experts,
    During my developing, I dont know how to catch the Serial Number value (SERNR) which is under T-CODE IW33, Please help me? Thnks a bunch~
    Quentin

    Thank u two for ur so quickly replies,
    After my check from frontend, i found the field AFPO-SERNR is not the one i said, because the length is diffirent and frontend has value but AFPO-SERNR has no value
    Gautham,
    I found the value serial number in EQUI is my need, but  i dont know equipment number, what i know is only Repair Service Order Number, do u have any further advice?
    Thanks~
    Quen

  • My output loop tunnel value is "#1". What does this number signify.

    I am a new Labview person. I have a While Loop containing a Fract/Exp String to Number fuction. The output goes directly to a loop tunnel whose value is 8 using a probe but when running in highlight mode the value displayed on the tunnel is "#1". What is the significance of this value.

    It means you are not dealing with a scalar value, but with an array. The #1 means that the array size is one element. For arrays, it does not show the values, but the number of elements. A wise choice, because arrays can be huge. ;-)
    LabVIEW Champion . Do more with less code and in less time .

  • How to output serial number from production order in GLM ?

    how to pull serial number from production order in wwi template for GLM ?

    Hi,
    Please have a look to this thread:
    BAPI/RFC to get serial numbers for a production order
    Hope it helps,
    Kr,
    m.

  • Help: How to add serial number data into Delivery Order document

    Dear Gurus,
    I am creating an interface program and I have problem in attaching the serial number data to the corresponding material code for a certain delivery order document in R/3 4.6C SP22 system.
    The serial number can be attached either during the creation of the Delivery Order itself or in the subsequent step after creating the Delivery Order (i.e.: create the D/O document first, and then update the D/O data).
    The BAPI_OUTB_DELIVERY_CONFIRM_DEC FM does not provide any input parameter to let me put the serial number in this R/3 version.
    By tracing in SE30 the standard program VL02N --> Menu --> Extras --> Serial Number --> Continue (Enter) --> Save (Ctrl+S), I found out that the serial attachment 'might' be done during sub-routine SERIAL_LISTE_POST_LS in program SAPLIPW1. It will in turn executes FM SERIAL_LISTE_POST_LS. The commit to database table will be done in update task by FM OBJK_POST_UPDATE_N and SERIAL_POST_UPDATE_LS.
    <b>My question:</b>
    ============
    1. Is FM SERNR_ADD_TO_LS can be used to attach the serial number to D/O?
    If yes, how to do it please because I already tried it I can not see the serial information in VL02N after that. There is no any insert or update to database in this function module. Should I call other FM after this? I want to try to call FM OBJK_POST_UPDATE_N and SERIAL_POST_UPDATE_LS but I do not know how I can retrieve the global object such as XOBJK_ALL that is necessary for the input parameter.
    2. If SERNR_ADD_TO_LS can not be used, what other FM can I use? Can I call SERIAL_LISTE_POST_LS instead? Is there any reliable way to generate the import parameter for this FM, such as XSER00, XSER01, XOBJK_ALL and XEQUI?
    Thank you in advanced for your kind assistance.
    Best Regards,
    Hiroshi

    Try something similar to this below...
    Afterwards you should do a call transaction to VL02N and immediately SAVE. This is sufficient to ensure the status on the serial numbers is updated correctly.
    FUNCTION z_mob_serialnr_update_ls.
    ""Local interface:
    *" IMPORTING
    *" VALUE(VBELN_I) LIKE LIKP-VBELN
    *" TABLES
    *" SERNO_TAB STRUCTURE RISERLS
    *" YSER00 STRUCTURE SER00 OPTIONAL
    *" YSER01 STRUCTURE RSERXX OPTIONAL
    *" YOBJK_ALL STRUCTURE RIPW0 OPTIONAL
    *" YEQUI STRUCTURE RIEQUI OPTIONAL
    *" YMASE STRUCTURE MASE OPTIONAL
    *" EXCEPTIONS
    *" NO_EQUIPMENT_FOUND
    The modified/confirmed table of serial numbers is supplied in
    SERNO_TAB.
    These are updated in the SAP tables
    YSER00 - General Header Table for Serial Number Management
    YSER01 - Document Header for Serial Numbers for Delivery
    YOBJK_ALL - Internal Table for Object List Editing/Serial Numbers
    YEQUI - Internal Structure for IEQUI
    local data
    DATA: BEGIN OF del_wa,
    vbeln LIKE likp-vbeln,
    posnr LIKE lips-posnr,
    matnr LIKE lips-matnr,
    lfimg LIKE lips-lfimg.
    DATA: END OF del_wa.
    DATA: del_tab LIKE del_wa OCCURS 0.
    DATA: _ct TYPE i.
    DATA: lastobknr LIKE objk-obknr.
    DATA: _debug.
    CLEAR: yser00, yser01, yobjk_all, yequi, ymase.
    REFRESH: yser00, yser01, yobjk_all, yequi, ymase.
    GET PARAMETER ID 'ZEDI_DEBUG' FIELD _debug.
    OBJECT KEYS
    read the delivery items with serial numbers to be processed
    SELECT * INTO CORRESPONDING FIELDS OF TABLE del_tab
    FROM lips
    WHERE vbeln = vbeln_i
    AND serail NE space.
    if nothing is relevant for serial numbers bailout
    DESCRIBE TABLE del_tab LINES _ct.
    IF _ct IS INITIAL.
    EXIT.
    ENDIF.
    ==== read the existing object keys for delivery items
    SELECT * INTO CORRESPONDING FIELDS OF TABLE yser01
    FROM ser01
    WHERE lief_nr = vbeln_i.
    IF sy-subrc = 0.
    yser01-dbknz = 'X'. "entry exists in db
    MODIFY yser01 TRANSPORTING dbknz WHERE dbknz = space.
    ENDIF.
    == check if there is a header entry for the delivery item
    LOOP AT del_tab INTO del_wa.
    READ TABLE yser01 WITH KEY lief_nr = del_wa-vbeln
    posnr = del_wa-posnr.
    IF sy-subrc NE 0.
    create one
    CALL FUNCTION 'OBJECTLIST_NUMBER'
    IMPORTING
    obknr = yser01-obknr.
    yser00-mandt = sy-mandt.
    yser00-obknr = yser01-obknr.
    APPEND yser00.
    SELECT SINGLE kunnr INTO (yser01-kunde)
    FROM likp
    WHERE vbeln = vbeln_i.
    yser01-mandt = sy-mandt.
    yser01-lief_nr = del_wa-vbeln.
    yser01-posnr = del_wa-posnr.
    yser01-vorgang = 'SDLS'.
    yser01-vbtyp = 'J'.
    yser01-bwart = '601'.
    yser01-dbknz = space. "not in db
    yser01-loknz = space. "do not delete
    APPEND yser01.
    ENDIF.
    ENDLOOP.
    check if any entries should be deleted
    LOOP AT yser01.
    READ TABLE serno_tab WITH KEY vbeln = yser01-lief_nr
    posnr = yser01-posnr.
    IF sy-subrc NE 0.
    yser01-loknz = 'X'. "mark for delete
    MODIFY yser01.
    ENDIF.
    ENDLOOP.
    collect all the object keys for the delivery item with s/n's
    LOOP AT yser01.
    READ TABLE serno_tab WITH KEY vbeln = yser01-lief_nr
    posnr = yser01-posnr.
    IF sy-subrc = 0.
    READ TABLE yser00 WITH KEY obknr = yser01-obknr.
    IF sy-subrc NE 0.
    yser00-mandt = yser01-mandt.
    yser00-obknr = yser01-obknr.
    APPEND yser00.
    ENDIF.
    ENDIF.
    ENDLOOP.
    IF NOT _debug IS INITIAL. BREAK-POINT. ENDIF.
    SERIAL NO OBJECTS
    ==== read the existing serial numbers from the database
    via object number into YOBJK_ALL
    LOOP AT yser00.
    SELECT * APPENDING CORRESPONDING FIELDS OF TABLE yobjk_all
    FROM objk
    WHERE obknr = yser00-obknr.
    ENDLOOP.
    yobjk_all-dbknz = 'X'.
    MODIFY yobjk_all TRANSPORTING dbknz WHERE dbknz = space.
    === add any new serial numbers
    LOOP AT serno_tab.
    READ TABLE yser01 WITH KEY lief_nr = serno_tab-vbeln
    posnr = serno_tab-posnr.
    READ TABLE yobjk_all WITH KEY sernr = serno_tab-sernr
    matnr = del_wa-matnr.
    IF sy-subrc NE 0.
    this is a new serial number
    yobjk_all-mandt = sy-mandt.
    yobjk_all-obknr = yser01-obknr.
    yobjk_all-obzae = 0.
    yobjk_all-equnr = yequi-equnr.
    yobjk_all-objvw = 'S'.
    yobjk_all-sernr = serno_tab-sernr.
    yobjk_all-matnr = del_wa-matnr.
    yobjk_all-datum = sy-datum.
    yobjk_all-taser = 'SER01'.
    yobjk_all-equpd = 'X'.
    yobjk_all-objnr = yequi-objnr.
    yobjk_all-dbknz = space.
    yobjk_all-loknz = space.
    APPEND yobjk_all.
    ENDIF.
    ENDLOOP.
    === mark any which are no longer confirmed as deleted
    LOOP AT yobjk_all.
    READ TABLE yser01 WITH KEY obknr = yobjk_all-obknr.
    READ TABLE serno_tab WITH KEY vbeln = yser01-lief_nr
    posnr = yser01-posnr
    sernr = yobjk_all-sernr.
    IF sy-subrc NE 0.
    yobjk_all-loknz = 'X'.
    MODIFY yobjk_all TRANSPORTING loknz.
    ENDIF.
    ENDLOOP.
    EQUIPMENT RECORDS
    == get the equipment records
    LOOP AT yobjk_all.
    SELECT SINGLE * INTO CORRESPONDING FIELDS OF yequi
    FROM equi
    WHERE sernr = yobjk_all-sernr
    AND matnr = yobjk_all-matnr.
    IF sy-subrc NE 0.
    CONTINUE.
    ENDIF.
    IF yobjk_all-dbknz = space AND
    yobjk_all-loknz = space.
    yequi-dbknz = 'X'.
    yequi-obknr = yobjk_all-obknr.
    yequi-j_vorgang = 'PMS3'. "add to delivery
    yequi-matnr_old = yequi-matnr.
    APPEND yequi.
    yobjk_all-equnr = yequi-equnr.
    MODIFY yobjk_all TRANSPORTING equnr.
    CONTINUE.
    ENDIF.
    IF yobjk_all-dbknz = 'X' AND
    yobjk_all-loknz = 'X'.
    yequi-dbknz = 'X'.
    yequi-j_vorgang = 'PMSA'. "delete from delivery
    yequi-matnr_old = yequi-matnr.
    APPEND yequi.
    CONTINUE.
    ENDIF.
    ENDLOOP.
    remove any Equipment records that do not need to be processed
    DELETE yequi WHERE j_vorgang IS initial.
    IF NOT _debug IS INITIAL. BREAK-POINT. ENDIF.
    fill the object counter
    LOOP AT del_tab INTO del_wa.
    READ TABLE yser01 WITH KEY lief_nr = del_wa-vbeln
    posnr = del_wa-posnr.
    DO del_wa-lfimg TIMES.
    READ TABLE yobjk_all WITH KEY obknr = yser01-obknr
    obzae = sy-index.
    IF sy-subrc NE 0.
    READ TABLE yobjk_all WITH KEY obknr = yser01-obknr
    obzae = 0.
    IF sy-subrc = 0.
    yobjk_all-obzae = sy-index.
    MODIFY yobjk_all INDEX sy-tabix TRANSPORTING obzae.
    ENDIF.
    ENDIF.
    ENDDO.
    ENDLOOP.
    IF NOT _debug IS INITIAL. BREAK-POINT. ENDIF.
    ===========================================
    update the delivery
    ===========================================
    CALL FUNCTION 'SERIAL_LISTE_POST_LS'
    TABLES
    xser00 = yser00
    xser01 = yser01
    xobjk_all = yobjk_all
    xequi = yequi
    xmase = ymase.
    TAB_CUOBJ =
    XSER03 =
    CALL FUNCTION 'STATUS_BUFFER_EXPORT_TO_MEMORY'
    EXPORTING
    i_memory_id = memid_status.
    COMMIT WORK AND WAIT.
    CALL FUNCTION 'Z_MOB_SERIALNR_REFRESH_LS'
    EXPORTING
    ctu = 'X'
    mode = 'N'
    UPDATE = 'L'
    GROUP =
    USER =
    KEEP =
    HOLDDATE =
    NODATA = '/'
    vbeln_i = vbeln_i.
    IMPORTING
    SUBRC =
    TABLES
    MESSTAB =
    ENDFUNCTION.
    FUNCTION z_mob_serialnr_refresh_ls.
    ""Local interface:
    *" IMPORTING
    *" VALUE(CTU) LIKE APQI-PUTACTIVE DEFAULT 'X'
    *" VALUE(MODE) LIKE APQI-PUTACTIVE DEFAULT 'N'
    *" VALUE(UPDATE) LIKE APQI-PUTACTIVE DEFAULT 'L'
    *" VALUE(GROUP) LIKE APQI-GROUPID OPTIONAL
    *" VALUE(USER) LIKE APQI-USERID OPTIONAL
    *" VALUE(KEEP) LIKE APQI-QERASE OPTIONAL
    *" VALUE(HOLDDATE) LIKE APQI-STARTDATE OPTIONAL
    *" VALUE(NODATA) LIKE APQI-PUTACTIVE DEFAULT '/'
    *" VALUE(VBELN_I) LIKE LIKP-VBELN
    *" EXPORTING
    *" VALUE(SUBRC) LIKE SYST-SUBRC
    *" TABLES
    *" MESSTAB STRUCTURE BDCMSGCOLL OPTIONAL
    DATA: vbeln_001 LIKE bdcdata-fval.
    vbeln_001 = vbeln_i.
    subrc = 0.
    PERFORM bdc_nodata USING nodata.
    PERFORM open_group USING group user keep holddate ctu.
    PERFORM bdc_dynpro USING 'SAPMV50A' '4004'.
    PERFORM bdc_field USING 'BDC_CURSOR'
    'LIKP-VBELN'.
    PERFORM bdc_field USING 'BDC_OKCODE'
    '/00'.
    PERFORM bdc_field USING 'LIKP-VBELN'
    vbeln_001.
    PERFORM bdc_dynpro USING 'SAPMV50A' '1000'.
    PERFORM bdc_field USING 'BDC_OKCODE'
    '=PSER_T'.
    PERFORM bdc_field USING 'BDC_CURSOR'
    'LIPS-POSNR(01)'.
    PERFORM bdc_dynpro USING 'SAPLIPW1' '0200'.
    PERFORM bdc_field USING 'BDC_CURSOR'
    'RIPW0-SERNR(01)'.
    PERFORM bdc_field USING 'BDC_OKCODE'
    '=RWS'.
    PERFORM bdc_dynpro USING 'SAPMV50A' '1000'.
    PERFORM bdc_field USING 'BDC_OKCODE'
    '=SICH_T'.
    PERFORM bdc_field USING 'BDC_CURSOR'
    'LIPS-MATNR(02)'.
    PERFORM bdc_transaction TABLES messtab
    USING 'VL02N'
    ctu
    mode
    update.
    IF sy-subrc <> 0.
    subrc = sy-subrc.
    EXIT.
    ENDIF.
    PERFORM close_group USING ctu.
    ENDFUNCTION.
    INCLUDE bdcrecxy.

  • To add serial number column

    Dear Experts,
                        I herewith attachedc my  codings i waht to add serial number how to do that i have done something but it is giving all zero values.,.,.,
    *& Report  ZAPPRAISAL_LAG
    REPORT  ZAPPRAISAL.
    *Declaration of type-pools
    TYPE-POOLS SLIS.
    *Declaration of tables
    TABLES : PA0025, PA0001.
    DATA : LV_VALUE TYPE I.
    *Declaration of work area
    DATA: BEGIN OF WA_PA0025,
            PERNR TYPE PA0025-PERNR,
            ENDDA TYPE PA0025-ENDDA,
            BEGDA TYPE PA0025-BEGDA,
            AEDTM TYPE PA0025-AEDTM,
            BWNAM TYPE PA0025-BWNAM,
            DAT25 TYPE PA0025-DAT25,
            GRPNR TYPE PA0025-GRPNR,
            ENAME TYPE EMNAM,
            BUKRS TYPE PA0001-BUKRS,
            number type i,
          END OF WA_PA0025,
           WA_FCAT TYPE SLIS_T_FIELDCAT_ALV WITH HEADER LINE,
           wa_sort  TYPE SLIS_SORTINFO_ALV,
           WA_EVENTS TYPE SLIS_T_EVENT WITH HEADER LINE.
    DATA: row_number type i.
    *Declaration of internal tables
    DATA : IT_PA0025 LIKE TABLE OF WA_PA0025,
           IT_FCAT TYPE SLIS_T_FIELDCAT_ALV,
           I_SORT  TYPE STANDARD TABLE OF SLIS_SORTINFO_ALV,
           IT_EVENTS TYPE SLIS_T_EVENT.
    *selection screen
    SELECTION-SCREEN BEGIN OF BLOCK FF WITH FRAME TITLE TEXT-001.
    *SELECT-OPTIONS S_DATE FOR PA0025-DAT25.
    parameters : p_date type pa0025-dat25.
    parameters : p_date1 type pa0025-dat25.
    SELECT-OPTIONS S_BUKRS FOR PA0001-BUKRS NO INTERVALS.
    SELECTION-SCREEN END OF BLOCK FF.
    *ALV EVENTS
    WA_EVENTS-FORM    = 'HEADER'.
    WA_EVENTS-NAME    = 'TOP_OF_PAGE'.
    APPEND WA_EVENTS TO IT_EVENTS.
    CLEAR : WA_EVENTS.
    *start-of-selection event.
    START-OF-SELECTION.
      SELECT DISTINCT
            A~PERNR
            A~ENDDA
            A~BEGDA
            A~AEDTM
            A~BWNAM
            A~DAT25
            A~GRPNR
            B~ENAME
            B~BUKRS
            INTO TABLE IT_PA0025
            FROM PA0025 AS A
            INNER JOIN PA0001 AS B
            ON BPERNR = APERNR
            WHERE A~DAT25
           between p_date and p_date1
           AND B~BUKRS IN S_BUKRS.
      SORT IT_PA0025 by pernr.
      DESCRIBE TABLE IT_PA0025 LINES LV_VALUE.
    loop at it_pa0025 into wa_pa0025.
    row_number = row_number + 1 .
    WA_PA0025-number   =  row_number.
    *append wa_pa0025 to IT_PA0025.
    endloop.
      perform fcat using '1'  'NUMBER' 'S.no' '12' '' 'C410' 'C'.
      PERFORM FCAT USING '2'  'PERNR' 'Personnel number'    '16'  'X' 'C410' 'C'.
      PERFORM FCAT USING '3'  'ENAME' 'Employee name'       '26'  ''  '' ''.
      PERFORM FCAT USING '4'  'BUKRS' 'Company code'        '15'  ''  '' 'C'.
      PERFORM FCAT USING '5'  'BEGDA' 'Start date'          '11'  ''  '' ''.
      PERFORM FCAT USING '6'  'ENDDA' 'End date'            '10'  ''  '' ''.
      PERFORM FCAT USING '7'  'AEDTM' 'Changed date'        '13'  ''  '' ''.
      PERFORM FCAT USING '8'  'BWNAM' 'Appraiser'           '18'  ''  '' ''.
      PERFORM FCAT USING '9'  'DAT25' 'Appraised date'      '15'  ''  '' ''.
    CLEAR wa_sort.
    wa_sort-fieldname = 'PERNR'.
    wa_sort-up = 'X'.
    APPEND wa_sort TO i_sort.
      CLEAR wa_sort.
      wa_sort-FIELDNAME = 'DAT25'.
      wa_sort-UP = 'X'.
      APPEND wa_sort TO I_SORT.
      CLEAR wa_sort.
      wa_sort-FIELDNAME = 'BUKRS'.
      wa_sort-UP = 'X'.
      APPEND wa_sort TO I_SORT.
      CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
        EXPORTING
          I_CALLBACK_PROGRAM      = SY-CPROG
          I_CALLBACK_USER_COMMAND = 'USER_COMMAND'
          IT_SORT                 = I_SORT
          I_GRID_TITLE            = 'Report'
          IT_FIELDCAT             = IT_FCAT
          IT_EVENTS               = IT_EVENTS
        TABLES
          T_OUTTAB                = IT_PA0025.
    *&      Form  USER_COMMAND
          text
    -->  p1        text
    <--  p2        text
    FORM USER_COMMAND USING U_UCOMM TYPE SY-UCOMM
                            US_SELF_FIELD TYPE SLIS_SELFIELD.
      CASE U_UCOMM.
        WHEN '&IC1'.
          READ TABLE IT_PA0025 INTO WA_PA0025 INDEX US_SELF_FIELD-TABINDEX.
          CASE US_SELF_FIELD-FIELDNAME.
            WHEN 'PERNR'.
              SET PARAMETER ID : 'PER' FIELD WA_PA0025-PERNR.
              CALL TRANSACTION 'PA30'.
          ENDCASE.
      ENDCASE.
    ENDFORM.                    " USER_COMMAND
    FORM FCAT  USING    FP_COL_POS
                        FP_FIELDNAME
                        FP_SELTXT_M
                        FP_OUTPOUTLEN
                        FP_HOTSPOT
                        FP_EMPHASIZE
                        FP_JUST.
      WA_FCAT-COL_POS    =  FP_COL_POS.
      WA_FCAT-FIELDNAME  = FP_FIELDNAME.
      WA_FCAT-SELTEXT_M  = FP_SELTXT_M.
      WA_FCAT-OUTPUTLEN  = FP_OUTPOUTLEN.
      WA_FCAT-HOTSPOT    = FP_HOTSPOT.
      WA_FCAT-EMPHASIZE  = FP_EMPHASIZE.
      WA_FCAT-JUST       = FP_JUST.
      APPEND WA_FCAT TO IT_FCAT.
      CLEAR : WA_FCAT.
    ENDFORM.                    " FCAT
    *&      Form  HEADER
          text
    -->  p1        text
    <--  p2        text
    FORM HEADER .                                               "#EC CALLED
      DATA :     IT_HEADER TYPE SLIS_T_LISTHEADER,
                 WA_HEADER LIKE LINE OF IT_HEADER.
      WA_HEADER-TYP  = 'H'.
      WA_HEADER-INFO = TEXT-006.
      APPEND WA_HEADER TO IT_HEADER.
      CLEAR WA_HEADER.
      WA_HEADER-TYP  = 'S'.
      WA_HEADER-KEY  = TEXT-007.
      CONCATENATE  SY-DATUM+6(2) '.'
                   SY-DATUM+4(2) '.'
                   SY-DATUM(4) INTO WA_HEADER-INFO.   "Current date
      APPEND WA_HEADER TO IT_HEADER.
      CLEAR WA_HEADER.
      WA_HEADER-TYP  = 'S'.
      WA_HEADER-KEY = TEXT-012.
      MOVE LV_VALUE TO WA_HEADER-INFO.
      APPEND WA_HEADER TO IT_HEADER.
      CLEAR WA_HEADER.
      CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'
        EXPORTING
          IT_LIST_COMMENTARY = IT_HEADER.
      CLEAR : IT_HEADER[], WA_HEADER.
    ENDFORM.                    " HEADER
    Thanks and Regards,
    Thirukumaran. R

    hi
    LOOP AT it_pa0025 INTO wa_pa0025.
        row_number = row_number + 1 .
        wa_pa0025-number = row_number.
    " Add this statement here
        MODIFY it_pa0025 INDEX sy-tabix FROM wa_pa0025 TRANSPORTING number.
      ENDLOOP.
    Thanks & Regards

  • BAPI to get inbound delivery from material serial number

    BAPI to get inbound delivery number from material serial number?
    input---material serial number.
    output--inbound delivery number.

    Perhaps instead of using a BAPI you can code it like this.
    DATA:serial(10) TYPE n VALUE '0000340078',
    pos TYPE i VALUE 1.
    START-OF-SELECTION.
      WHILE pos <= 10 AND serial+pos(1) = 0.
        pos = pos + 1.
      ENDWHILE.
      REPLACE ALL OCCURRENCES OF '0' IN serial(pos) WITH space.
      WRITE serial.

  • SERIAL number in ALV

    Hi experts,
    iam doing alv report. iam having sl.no. filed in the internal table.
    for output depending on different options, it is not showing the sl.no. in proper order.
    for each input or requirement it is taking the same sl.no. series and the output is correct we r getting but sl.no order is not correct.
    ex:option 1.
    output:
    sl.no.
    1
    2
    3......
    ex:option 2. (according to option this values only we require but, the serial number should be 1,2,3, in this order)
    output:
    sl.no.
    12
    21
    32
    33....
    right answers can be rewarded......................
    Message was edited by:
            dasr r

    actually..........
    if i go for normal reporting......
    if i do not give procurement type e or f............it will fetch all the records belong to
    e and f. sl.no coming is 1,2,....................100...............correct iam getting.
    if i give procurement type e or f............it will fetch some records which belongs to e or f     that records only it will fetch but the sl.no. sequence is notlike 1,2,3,..........100. it is giving 1,3,5,6, ...........50.

Maybe you are looking for