Star Program Modification

my code currently is this
public class Stars
   //  Prints a triangle shape using asterisks (stars)
   public static void main (String[] args)
      final int MAX_ROWS = 10;
//when the number of rows is less than 10 (the max number of rows) then add another row
      for (int row = 1; row <= MAX_ROWS; row++)
           //if the number of stars is greater than the rows, substract a star
         for (int star = 10; star >= row; star--)
            System.out.print ("*");
         System.out.println();
}this gives an output that looks like this
now i also need to find a way to make codes so that the outputs are these
         *(this next one is supposed to look like a diamond)
    *Message was edited by:
Chiptar
Message was edited by:
Chiptar

it just has to be hardcoded
and our teacher told us to use resources such as internet forums because she wants us to study and understand the code and not just waste time struggling with it. (dont ask why she didn't just give us the code then -_-")                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                   

Similar Messages

  • Field Service - STAR program is completing with Error message

    Hi
    Synchronize Territory Assignment Rules (STAR) program is getting completed with following error message:
    Parameters used were 'Service' with a Run mode as 'Total Refresh'. It errors out with 'No data found' error message. (Log file appended below)
    Can someone help to find out root cause?
    Regards,
    CRM Foundation: Version : 12.0.0
    Copyright (c) 1979, 1999, Oracle Corporation. All rights reserved.
    JTY_STAR module: Synchronize Territory Assignment Rules
    Current system time is 29-APR-2011 15:01:48
    **Starts**29-APR-2011 15:01:48
    **Ends**29-APR-2011 15:01:55
    100 : ORA-01403: no data found
    Start of log messages from FND_FILE
    End of log messages from FND_FILE
    Executing request completion options...
    Finished executing request completion options.
    Concurrent request completed
    Current system time is 29-APR-2011 15:01:55
    P.S. Reposting - It looks like I had posted in wrong category earlier. Sorry!. Re-posting again with CRM category for Field service this time.

    As per the SR we had to laod all the old rates, as this was the beginning of a new fiscal year.

  • Running STAR program in Date Effective mode

    Hi All,
    How the date effective mode of Synchronize Territory Assignment rule concurrent will work? Will it sync all the active territories in that date range? For example if I run the STAR program from 01-Mar-2010 to 31-Mar-2010, will it sync all the territories which are all active in this date range? Will it pick up the territory which has start date as 01-Feb-2010 and end date as 30-Apr-2010?
    Please advice..
    Thanks,
    Suresh.

    The only emulator for running Classic apps I know of is SheepShaver, and from what I've read (though not confirmed) it doesn't work under Snow Leopard (not surprising; SheepShaver hasn't been update in over three years, from what I can see). It also requires the ROM image from an older Mac, and if someone had access to an older Mac to get the image, they could just run the app on that older Mac.
    So I think that the ability to run Classic apps is now completely dead as of Snow Leopard.

  • Spotify Community Rock Star Program

     
    Hello Spotify lovers!
    Have you ever shown a friend how to sync a playlist? Ever explained how Spotify works to a group of people? At Spotify, we know users helping users is something special.
    That’s why we’ve created the Spotify Rock Star Program to recognize awesome contributors. Program members have already received:
    Premium Codes
    Official Spotify Gear
    Early Access to New Versions of Spotify
    Calls with Spotify Staff for Q&A Sessions
    Invitations to visit Spotify Headquarters in Stockholm
    And More!!!
    The Spotify Community is a place to get help, help others, and talk about music. So if you know answers to your fellow Spotify music lover's questions, why not help out?  
    We look forward to you joining our band. Check out the PDF below for more info (updated November 2014). If you'd like to join the RSP just let us know in a private message or by posting in this thread.
    See you around!
    The Spotify Community Team
     

    ktinamk188 wrote:
    This is great. I'm constantly telling people that Spotify is the best $10 I spend a month!!
    Haha, yes. I relate. My teacher listens to her iTunes radio, but it is ridden with ads now. I told her about Spotify, and I pay for "no ads," plus an unilimited access to music. It's so much better than any iTunes or online radio that I know. I hesitated to tell her how much I pay: $5/month (I'm a poor college student, that's a LOT for me! Haha). She said, "that's all?!" She knew Spotify when it was still only in the UK. Well, it's change a lot since then - and for the better. 
    I enjoy telling people that it's only $5/month for unlimited access with ZERO ADVERTISEMENTS, and I listen to music via Spotify at work, school and home. Of course, it's $10/month for the extra-extra features, like carrying Spotify with you on an MP3 player, etc. But I am very happy with $5/month for the service I use! And always new music added!!
    Anyway, I'll stop rambling. :)  Thanks for the great service, Spotify team!! I am speaking, of course, of the software AND the friendly and helpful community!
    katsumii

  • The Spotify Community Rock Star Program

     
    Hello Spotify lovers!
    Have you ever shown a friend how to sync a playlist? Ever explained how Spotify works to a group of people? At Spotify, we know users helping users is something special.
    That’s why we’ve created the Spotify Rock Star Program to recognize awesome contributors. Program members may receive: 
    Premium Codes
    Official Spotify Gear
    Early Access to New Versions of Spotify
    Invites to Spotify Staff Q&A Sessions
    And More!!!
    The Spotify Community is a place to get help, help others, and talk about music. So if you know answers to your fellow Spotify music lover's questions, why not help out?  
    We look forward to you joining our band. Check out the attached PDF for more info.
    See you around!
    The Spotify Community Team

    ktinamk188 wrote:
    This is great. I'm constantly telling people that Spotify is the best $10 I spend a month!!
    Haha, yes. I relate. My teacher listens to her iTunes radio, but it is ridden with ads now. I told her about Spotify, and I pay for "no ads," plus an unilimited access to music. It's so much better than any iTunes or online radio that I know. I hesitated to tell her how much I pay: $5/month (I'm a poor college student, that's a LOT for me! Haha). She said, "that's all?!" She knew Spotify when it was still only in the UK. Well, it's change a lot since then - and for the better. 
    I enjoy telling people that it's only $5/month for unlimited access with ZERO ADVERTISEMENTS, and I listen to music via Spotify at work, school and home. Of course, it's $10/month for the extra-extra features, like carrying Spotify with you on an MP3 player, etc. But I am very happy with $5/month for the service I use! And always new music added!!
    Anyway, I'll stop rambling. :)  Thanks for the great service, Spotify team!! I am speaking, of course, of the software AND the friendly and helpful community!
    katsumii

  • Program Modification

    hello experts
    I have the following ALV report, (ZBB Program) <b>Material Document Listing Report</b>
    Currently this  report let us  drill down to some transaction where we would see standard costs(Drill down fields are Customer and Mterial number) Now, we would like to create
    a similar Report (ZBBn) that will not let us drill down to any transaction where we would see standard costs. we would like to make this avaialable to sales administrative assistants,  
    The Report should display the fields with no drill down features, Please check ZBB program below, i would appreciate if anybody could modify the program in such a way it is executable. Please highlight the chaged code.
    Thanks in adavance
    Mohan
    Global data declaration
    TYPE-POOLS: slis.
    TABLES:
       msku , " Special Stocks with Customer
       makt , " Material Descriptions
       mara , " General Material Data
       lfa1,
       mbew , " Material Valuation
       ser01 , " Document Header for Serial Numbers for Delivery
       lips , " SD document: Delivery: Item data
       vbak , " Sales Document: Header Data
       likp , " SD Document: Delivery Header Data
       t001w , " Plants/Branches
       kna1 , " General Data in Customer Master
       eqbs , " Serial Number Stock Segment
       bhdgd , " Common data area batch heading routine
       objk , " Plant Maintenance Object List
       mkpf,
       vbpa,
       vbap,
       pa0001,
       mseg,
       ekbe,"                                                          CH03+
       t157e,"                                                         CH05+
       vbfa,
       t156t,
       tbsgt,"                                                         VS01+
       ekpo,"                                                          VS01
       ekko,"                                                          CH06+
       eket,"                                                          CH06+
       marc."                                                          CH07+
    data  z_equnr like equi-equnr."                                    CH06+
    SELECTION-SCREEN: BEGIN OF BLOCK dba WITH FRAME TITLE text-001.
    SELECT-OPTIONS s_matnr FOR mseg-matnr MEMORY ID mat.
    SELECT-OPTIONS s_werks FOR mseg-werks MEMORY ID wrk.
    SELECT-OPTIONS s_lgort FOR mseg-lgort MEMORY ID lag.
    SELECT-OPTIONS s_charg FOR mseg-charg MEMORY ID cha.
    SELECT-OPTIONS s_lifnr FOR mseg-lifnr MEMORY ID lif.
    SELECT-OPTIONS s_kunnr FOR mseg-kunnr MEMORY ID kun.
    SELECT-OPTIONS s_bwart FOR mseg-bwart MEMORY ID bwa.
    SELECT-OPTIONS s_sobkz FOR mseg-sobkz.
    SELECT-OPTIONS s_aufnr FOR mseg-aufnr."                            CH04+
    SELECTION-SCREEN END OF BLOCK dba.
    SELECTION-SCREEN BEGIN OF BLOCK mkpf WITH FRAME TITLE text-002.
    SELECT-OPTIONS s_budat FOR mkpf-budat.
    SELECT-OPTIONS s_usnam FOR mkpf-usnam MEMORY ID usr.
    SELECT-OPTIONS s_vgart FOR mkpf-vgart.
    SELECT-OPTIONS s_xblnr FOR mkpf-xblnr.
    SELECTION-SCREEN END OF BLOCK mkpf.
    PARAMETERS: p_vari LIKE disvariant-variant.
    TYPES : BEGIN OF i_material_doc,
            mblnr TYPE mseg-mblnr,
            urzei TYPE mseg-urzei,
            mjahr TYPE mseg-mjahr,
            gjahr TYPE bkpf-gjahr,
            lgort TYPE mseg-lgort,
            matnr TYPE msku-matnr,
            usnam TYPE mkpf-usnam,
            xblnr TYPE mkpf-xblnr,
            werks TYPE mseg-werks,
            belnr TYPE bkpf-belnr,
            beln2 TYPE  bkpf-belnr,
            vgart TYPE mkpf-vgart,
            bwart TYPE mseg-bwart,
            charg TYPE mseg-charg,
            sernr TYPE equi-sernr,
            shkzg TYPE mseg-shkzg,
            erdat TYPE vbak-erdat,
            shday TYPE zalv-shday,
            budat TYPE mkpf-budat,
            exdat TYPE zalv-exdat,
            stprs TYPE mbew-stprs,
            kdauf TYPE mseg-kdauf,
            ebeln TYPE mseg-ebeln,
            maktx TYPE makt-maktx,
            kunnr TYPE msku-kunnr,
            lifnr TYPE mseg-lifnr,
            soname TYPE zalv-soname,
            vdname TYPE zalv-shname,
            sobkz TYPE msku-sobkz,
            dmbtr TYPE mseg-dmbtr,
            menge TYPE mseg-menge,
            ebelp TYPE mseg-ebelp,"                                    CH02+
            bualt TYPE mseg-bualt,"                                    CH02+
            erfmg TYPE mseg-erfmg,"                                    CH03+
            waers TYPE mseg-waers,"                                    CH03+
            unit_amt TYPE mseg-bualt,"                                 CH03+
            unit_amt_lc TYPE mseg-bualt,"                              CH03+
            aufnr TYPE mseg-aufnr,"                                    CH04+
            btext TYPE t156t-btext,"                                   EC01+
            bezei TYPE tbsgt-bezei,"                                   VS01+
            grund TYPE mseg-grund,"                                    CH05+
            grtxt TYPE t157e-grtxt,"                                   CH05+
            issdt type sy-datum,"                                      CH06+
            ekgrp type ekko-ekgrp,"                                    CH06+
            eindt type eket-eindt,"                                    CH06+
         END OF i_material_doc.
    DATA:gt_fieldcat TYPE slis_t_fieldcat_alv.
    DATA: i_object_numbers TYPE objk OCCURS 0 WITH HEADER LINE.
    DATA: gt_material_doc TYPE i_material_doc OCCURS 0 WITH HEADER LINE.
    DATA: i_material_doca TYPE i_material_doc OCCURS 0 WITH HEADER LINE.
    DATA: BEGIN OF i_serial OCCURS 0,
            mblnr TYPE mseg-mblnr,
            zeile TYPE mseg-zeile,
            gjahr TYPE mseg-gjahr,
            matnr TYPE msku-matnr,
            b_werk TYPE mseg-werks,
            b_charge TYPE mseg-charg,
            kunnr TYPE msku-kunnr,
            kunwe TYPE msku-kunnr,
            objnr TYPE equi-objnr,
            sernr TYPE equi-sernr,
          END OF i_serial.
    DATA:   g_repid LIKE sy-repid,
            g_count LIKE sy-tabix,
            g_record_found(1) TYPE c,
            g_total_kulab LIKE mseg-menge,
            g_item LIKE lips-posnr,
            g_delivery LIKE lips-vbeln,
            g_delivery_item LIKE lips-posnr,
            g_indicator LIKE scal-indicator,
            g_calender_id LIKE scal-fcalid,
            g_15days  LIKE sy-index,
            g_datum LIKE sy-datum,
            l_account(1),
            g_expected_date LIKE sy-datum.
    DATA:   g_save(1) TYPE c,
            g_exit(1) TYPE c,
            gx_variant LIKE disvariant,
            g_variant LIKE disvariant.
    DATA : BEGIN OF i_account_document OCCURS 0,
             belnr TYPE bkpf-belnr,
             gjahr TYPE bkpf-gjahr,
         END OF i_account_document.
    Initialization fieldcatalog
    INITIALIZATION.
      g_repid = sy-repid.
      g_save = 'A'.
      PERFORM variant_init.
    Get default variant
      gx_variant = g_variant.
      CALL FUNCTION 'REUSE_ALV_VARIANT_DEFAULT_GET'
           EXPORTING
                i_save     = g_save
           CHANGING
                cs_variant = gx_variant
           EXCEPTIONS
                not_found  = 2.
      IF sy-subrc = 0.
        p_vari = gx_variant-variant.
      ENDIF.
    AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_vari.
      PERFORM f4_for_variant.
    AT SELECTION-SCREEN.
      PERFORM pai_of_selection_screen.
      PERFORM auth_check.              "<------   AUTH CHECK
      CALL FUNCTION 'MMIM_ENTRYCHECK_MAIN'
           TABLES
                it_matnr = s_matnr
                it_werks = s_werks
                it_kunnr = s_kunnr.
    START-OF-SELECTION.
      SELECT SINGLE * FROM t001w WHERE werks IN s_werks.
      IF sy-subrc EQ 0.
        g_calender_id = t001w-fabkl.
      ENDIF.
    Data selection
      PERFORM select_data TABLES gt_material_doc.
      PERFORM fieldcat_init USING gt_fieldcat[].
    END-OF-SELECTION.
    Display list
      CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
           EXPORTING
                i_callback_user_command = 'USER_COMMAND'
                i_callback_program      = g_repid
                it_fieldcat             = gt_fieldcat[]
                is_variant              = g_variant
                i_save                  = g_save
           TABLES
                t_outtab                = gt_material_doc.
    FORM select_data TABLES i_material_doc LIKE gt_material_doc[].
      DATA: l_status LIKE risa0-statusline,
            l_zeile LIKE vbfa-posnn,
            l_uepos LIKE vbap-uepos,
            l_awkey LIKE bkpf-awkey,
            l_record_not_found(1).
    Read Material Docs For the Selection
      SELECT DISTINCT hxblnr dmblnr durzei hmjahr dmatnr dwerks
                      dkunnr dlifnr  dcharg dshkzg  dmenge dbwart
                      hbudat dshkzg dlgort dsobkz h~usnam
                      hvgart  dkdauf d~ebeln
                      debelp dbualt "                                CH02+
                      derfmg ddmbtr d~waers"                         CH03+
                      d~aufnr"                                         CH04+
                      d~grund"                                         CH05+
             FROM  mkpf AS h INNER JOIN mseg AS d
                                  ON hmandt = dmandt
                                  AND hmblnr = dmblnr
                                  AND hmjahr = dmjahr
                 APPENDING CORRESPONDING FIELDS OF TABLE i_material_doc
                         WHERE d~matnr  IN s_matnr
                              AND d~werks IN s_werks
                              AND h~budat IN s_budat
                              AND h~vgart IN s_vgart
                              AND h~xblnr IN s_xblnr
                              AND h~usnam IN s_usnam
                              AND d~lgort IN s_lgort
                              AND d~sobkz IN s_sobkz
                              AND d~charg IN s_charg
                              AND d~lifnr IN s_lifnr
                              AND d~kunnr IN s_kunnr
                              AND d~bwart IN s_bwart
                              AND d~aufnr IN s_aufnr."                 CH04+
      SORT i_material_doc BY mblnr urzei.
    Read Material Document to help in  accessing the Serial Number
      SELECT  hmatnr hsernr dmblnr dmjahr d~zeile
                       FROM ser03 AS d INNER JOIN objk AS h
                       ON hobknr = dobknr
                   APPENDING CORRESPONDING FIELDS OF TABLE  i_serial
                                  FOR ALL ENTRIES IN i_material_doc
                   WHERE h~matnr  = i_material_doc-matnr
                   AND  d~mblnr   = i_material_doc-mblnr
                   AND d~werk     = i_material_doc-werks
                   AND d~zeile    = i_material_doc-urzei
                   AND h~objvw    = 'S'
                   AND h~taser    = 'SER03'.
      SORT i_serial BY mblnr zeile.
      LOOP AT  i_material_doc.
        CLEAR: l_record_not_found.
       CONCATENATE i_material_doc-mblnr  i_material_doc-mjahr  INTO l_awkey.
        CLEAR: i_account_document[].
        SELECT  belnr gjahr INTO TABLE  i_account_document
                                   FROM bkpf
                                        WHERE awtyp EQ 'MKPF'
                                        AND   awkey EQ l_awkey.
        READ TABLE i_account_document INDEX 1.
        IF sy-subrc EQ 0.
          MOVE: i_account_document-belnr TO i_material_doc-belnr.
        ENDIF.
        READ TABLE i_account_document INDEX 2.
        IF sy-subrc EQ 0.
          MOVE: i_account_document-belnr TO i_material_doc-beln2.
          l_account  = 'X'.
        ENDIF.
        i_material_doca =  i_material_doc.
        CLEAR: i_material_doca-sernr.
        LOOP AT i_serial WHERE mblnr = i_material_doc-mblnr
                         AND   zeile = i_material_doc-urzei.
          MOVE: i_serial-sernr TO i_material_doca-sernr.
          MOVE   '1.000'       TO  i_material_doca-menge.
    *Begin CH06 Get Issuing date from classification
         select single equnr
                      into z_equnr
                      from equi
                      where sernr = i_material_doca-sernr
                      and   matnr = i_material_doca-matnr.
         perform get_class_data using
                             z_equnr
                             'ISSUING_DATE'
                             i_material_doca-issdt.
         clear z_equnr.
    *End CH06
          APPEND i_material_doca.
          l_record_not_found = 'X'.
        ENDLOOP.
        IF l_record_not_found EQ space.
          APPEND i_material_doca.
        ENDIF.
      ENDLOOP.
      CLEAR: i_material_doc[].
      DELETE i_material_doca WHERE menge EQ 0
                               AND erfmg EQ 0."                        CH03+
      LOOP AT i_material_doca.
        i_material_doca-unit_amt = "                                   CH03+
            i_material_doca-bualt / i_material_doca-erfmg."            CH03+
        i_material_doca-unit_amt_lc = "                                CH03+
            i_material_doca-dmbtr / i_material_doca-erfmg."            CH03+
        IF i_material_doca-shkzg EQ 'H'.
          MULTIPLY i_material_doca-menge BY -1.
          MULTIPLY i_material_doca-erfmg BY -1."                       CH03+
          MULTIPLY i_material_doca-bualt BY -1."                       CH03+
          MULTIPLY i_material_doca-dmbtr BY -1."                       CH03+
          MULTIPLY i_material_doca-unit_amt BY -1."                    CH03+
          MULTIPLY i_material_doca-unit_amt_lc BY -1."                 CH03+
        ENDIF.
    *CH04 Show unit amts instead of total amts when SN's are displyed
    *individually
        IF i_material_doca-erfmg <> i_material_doca-menge "            CH04+
           AND i_material_doca-sernr <> ''"                            CH04+
           AND i_material_doca-menge = 1."                             CH04+
          i_material_doca-bualt = i_material_doca-unit_amt."           CH04+
          i_material_doca-dmbtr = i_material_doca-unit_amt_lc.  "      CH04+
        ENDIF."                                                        CH04+
    Read Reason for movement
       SELECT SINGLE * FROM t157e WHERE bwart = i_material_doca-bwart" CH05+
                                  AND   grund = i_material_doca-grund" CH05+
                                  AND   spras = 'EN'."                 CH05+
       i_material_doca-grtxt =  t157e-grtxt."                          CH05+
    Read Customer Name
        CLEAR: kna1, i_material_doca-soname.
        SELECT SINGLE name1 INTO i_material_doca-soname
                      FROM kna1 WHERE kunnr EQ i_material_doca-kunnr.
        CLEAR: i_material_doca-maktx.
        SELECT SINGLE maktx INTO i_material_doca-maktx
                      FROM makt WHERE spras EQ sy-langu
                                AND matnr EQ i_material_doca-matnr.
    Read Vendor Name
        CLEAR: kna1, i_material_doca-vdname.
        SELECT SINGLE name1 INTO i_material_doca-vdname
                      FROM lfa1 WHERE lifnr EQ i_material_doca-lifnr.
    PO item reason for order                                       VS01+
        CLEAR: ekpo, i_material_doca-bezei."                         VS01+
        IF NOT i_material_doca-ebeln IS INITIAL."                    VS01+
          SELECT SINGLE * FROM ekpo  "                                 VS01+
                        WHERE ebeln EQ i_material_doca-ebeln"          VS01+
                        AND ebelp EQ i_material_doca-ebelp "           VS01+
                        AND bsgru NE ' '    "                          VS01+
                        AND loekz EQ ' '.   "                          VS01+
          IF sy-subrc EQ 0."                                         VS01+
            SELECT SINGLE bezei INTO i_material_doca-bezei"          VS01+
                      FROM tbsgt WHERE spras EQ sy-langu "           VS01+
                      AND bsgru EQ ekpo-bsgru."                      VS01+
          ENDIF."                                                    VS01+
        ENDIF."                                                      VS01+
    *CH07 Removed lines, getting Buyer code from Marc instead
    Read PO header for Buyer Code
       CLEAR: ekko, i_material_doca-ekgrp."                         CH06+
       IF NOT i_material_doca-ebeln IS INITIAL."                    CH06+
         SELECT single ekgrp into i_material_doca-ekgrp"            CH06+
         FROM ekko  "                                               CH06+
         WHERE ebeln EQ i_material_doca-ebeln."                     CH06+
       ENDIF."                                                      CH06+
        CLEAR: marc, i_material_doca-ekgrp."                          CH07+
        SELECT single ekgrp into i_material_doca-ekgrp"               CH07+
          FROM marc  "                                                CH07+
          WHERE matnr EQ i_material_doca-matnr "                      CH07+
            AND werks EQ i_material_doca-werks."                      CH07+
    Read PO schedule line for delivery dt
        CLEAR: eket, i_material_doca-eindt."                         CH06+
        IF NOT i_material_doca-ebeln IS INITIAL."                    CH06+
          SELECT single eindt into i_material_doca-eindt"            CH06+
          FROM eket  "                                               CH06+
          WHERE ebeln EQ i_material_doca-ebeln"                      CH06+
            AND ebelp EQ i_material_doca-ebelp."                     CH06+
        ENDIF."                                                      CH06+
        APPEND i_material_doca TO i_material_doc.
      ENDLOOP.
      LOOP AT i_material_doc.
        SELECT SINGLE btext FROM t156t INTO i_material_doc-btext
        WHERE bwart = i_material_doc-bwart AND spras = 'EN'.
        MODIFY i_material_doc.
        CLEAR: i_material_doc.
      ENDLOOP.
    ENDFORM.                              "  FORM
    Initialization fieldcatalog
    FORM fieldcat_init
          USING rt_fieldcat TYPE slis_t_fieldcat_alv.
      DATA: ls_fieldcat TYPE slis_fieldcat_alv.
      DATA: pos TYPE i VALUE 1.
      IF sy-langu = 'E'.
        ls_fieldcat-col_pos       =  pos.
        ls_fieldcat-fieldname     = 'WERKS'.
        ls_fieldcat-seltext_s      = 'Plant '.
        ls_fieldcat-seltext_m      = 'Plant'.
        ls_fieldcat-seltext_l      = 'Plant'.
        APPEND ls_fieldcat TO rt_fieldcat.
        CLEAR ls_fieldcat.
        pos = pos + 1.
        ls_fieldcat-col_pos       =  pos.
        ls_fieldcat-fieldname     = 'LGORT'.
        ls_fieldcat-seltext_s      = 'Storage Loc'.
        ls_fieldcat-seltext_m      = 'Storage Loc'.
        ls_fieldcat-seltext_l      = 'Storage Loc'.
        APPEND ls_fieldcat TO rt_fieldcat.
        CLEAR ls_fieldcat.
        pos = pos + 1.
        ls_fieldcat-col_pos       =  pos.
        ls_fieldcat-fieldname     = 'BWART'.
        ls_fieldcat-seltext_s      = 'Mov Type'.
        ls_fieldcat-seltext_m      = 'Mov Type'.
        ls_fieldcat-seltext_l      = 'Movement Type'.
        APPEND ls_fieldcat TO rt_fieldcat.
        CLEAR ls_fieldcat.
        pos = pos + 1.
        ls_fieldcat-col_pos       =  pos.
        ls_fieldcat-fieldname     = 'BTEXT'.
        ls_fieldcat-seltext_s      = 'Text-Mov Type'.
        ls_fieldcat-seltext_m      = 'Text-Mov Type'.
        ls_fieldcat-seltext_l      = 'Text-Movement Type'.
        APPEND ls_fieldcat TO rt_fieldcat.
        CLEAR ls_fieldcat.
        pos = pos + 1.
        ls_fieldcat-col_pos       =  pos.
        ls_fieldcat-fieldname     = 'XBLNR'.
        ls_fieldcat-seltext_s      = 'Ref Doc'.
        ls_fieldcat-seltext_m      = 'Reference Doc'.
        ls_fieldcat-seltext_l      = 'Reference Doc Number'.
        APPEND ls_fieldcat TO rt_fieldcat.
        CLEAR ls_fieldcat.
        pos = pos + 1.
        ls_fieldcat-col_pos       =  pos.
        ls_fieldcat-fieldname     = 'BUDAT'.
        ls_fieldcat-seltext_s      = 'Posting Date'.
        ls_fieldcat-seltext_m      = 'Posting Date'.
        ls_fieldcat-seltext_l      = 'Posting Date'.
        APPEND ls_fieldcat TO rt_fieldcat.
        CLEAR ls_fieldcat.
        pos = pos + 1.
        ls_fieldcat-col_pos       =  pos.
        ls_fieldcat-fieldname     = 'SOBKZ'.
        ls_fieldcat-seltext_s      = 'Special Stock'.
        ls_fieldcat-seltext_m      = 'Special Stock'.
        ls_fieldcat-seltext_l      = 'Special Stock'.
        APPEND ls_fieldcat TO rt_fieldcat.
        CLEAR ls_fieldcat.
        pos = pos + 1.
        ls_fieldcat-col_pos       =  pos.
        ls_fieldcat-fieldname     = 'MBLNR'.
        ls_fieldcat-seltext_s      = 'Material Doc'.
        ls_fieldcat-seltext_m      = 'Material Doc'.
        ls_fieldcat-seltext_l      = 'Material Doc Number'.
        APPEND ls_fieldcat TO rt_fieldcat.
        CLEAR ls_fieldcat.
        pos = pos + 1.
        ls_fieldcat-col_pos       =  pos.
        ls_fieldcat-fieldname     = 'URZEI'.
        ls_fieldcat-seltext_s      = 'Item'.
        ls_fieldcat-seltext_m      = 'Item'.
        ls_fieldcat-seltext_l      = 'Material Document Item'.
        APPEND ls_fieldcat TO rt_fieldcat.
        CLEAR ls_fieldcat.
        pos = pos + 1.
        ls_fieldcat-col_pos       =  pos.
        ls_fieldcat-fieldname     = 'MATNR'.
        ls_fieldcat-seltext_s      = 'Material'.
        ls_fieldcat-seltext_m      = 'Material No'.
    ls_fieldcat-seltext_l      = 'Material Numner'.
      ls_fieldcat-seltext_l      = 'Material Number'."                 CH01+
        APPEND ls_fieldcat TO rt_fieldcat.
        CLEAR ls_fieldcat.
        pos = pos + 1.
        ls_fieldcat-col_pos       =  pos.
        ls_fieldcat-fieldname     = 'MAKTX'.
        ls_fieldcat-seltext_s      = 'Description'.
        ls_fieldcat-seltext_m      = 'Material Description'.
        ls_fieldcat-seltext_l      = 'Material Description'.
        ls_fieldcat-no_out          = 'X'.
        APPEND ls_fieldcat TO rt_fieldcat.
        CLEAR ls_fieldcat.
        pos = pos + 1.
        ls_fieldcat-col_pos       =  pos.
        ls_fieldcat-fieldname     = 'USNAM'.
        ls_fieldcat-seltext_s      = 'User'.
        ls_fieldcat-seltext_m      = 'Created By'.
        ls_fieldcat-seltext_l      = 'Created By'.
        APPEND ls_fieldcat TO rt_fieldcat.
        CLEAR ls_fieldcat.
        pos = pos + 1.
        ls_fieldcat-col_pos       =  pos.
        ls_fieldcat-fieldname     = 'CHARG'.
        ls_fieldcat-seltext_s      = 'Batch'.
        ls_fieldcat-seltext_m      = 'Batch No'.
        ls_fieldcat-seltext_l      = 'Batch Number'.
        APPEND ls_fieldcat TO rt_fieldcat.
        CLEAR ls_fieldcat.
        pos = pos + 1.
        ls_fieldcat-col_pos       =  pos.
        ls_fieldcat-fieldname     = 'KUNNR'.
        ls_fieldcat-seltext_s      = 'Customer'.
        ls_fieldcat-seltext_m      = 'Customer'.
        ls_fieldcat-seltext_l      = 'Customer'.
        APPEND ls_fieldcat TO rt_fieldcat.
        CLEAR ls_fieldcat.
        pos = pos + 1.
        ls_fieldcat-col_pos       =  pos.
        ls_fieldcat-fieldname     = 'SONAME'.
        ls_fieldcat-seltext_s      = 'Customer Name '.
        ls_fieldcat-seltext_m      = 'Customer Name'.
        ls_fieldcat-seltext_l      = 'Customer Name'.
        ls_fieldcat-no_out          = 'X'.
        APPEND ls_fieldcat TO rt_fieldcat.
        CLEAR ls_fieldcat.
        pos = pos + 1.
        ls_fieldcat-col_pos       =  pos.
        ls_fieldcat-fieldname     = 'LIFNR'.
        ls_fieldcat-seltext_s      = 'Vendor'.
        ls_fieldcat-seltext_m      = 'Vendor'.
        ls_fieldcat-seltext_l      = 'Vendor'..
        APPEND ls_fieldcat TO rt_fieldcat.
        CLEAR ls_fieldcat.
        pos = pos + 1.
        ls_fieldcat-col_pos       =  pos.
        ls_fieldcat-fieldname     = 'VDNAME'.
        ls_fieldcat-seltext_s      = 'Vendor Name '.
        ls_fieldcat-seltext_m      = 'Vendor Name'.
        ls_fieldcat-seltext_l      = 'Vendor Name'.
        ls_fieldcat-no_out          = 'X'.
        APPEND ls_fieldcat TO rt_fieldcat.
        CLEAR ls_fieldcat.
        pos = pos + 1.
        ls_fieldcat-col_pos       =  pos.
        ls_fieldcat-fieldname     = 'SERNR'.
        ls_fieldcat-ref_fieldname     = 'SERNR'.
        ls_fieldcat-outputlen     = '18'.
        ls_fieldcat-seltext_s      = 'Serial Number'.
        ls_fieldcat-seltext_m      = 'Serial Number'.
        ls_fieldcat-seltext_l      = 'Serial Number'.
        APPEND ls_fieldcat TO rt_fieldcat.
        CLEAR ls_fieldcat.
        pos = pos + 1.
        ls_fieldcat-col_pos       =  pos.
        ls_fieldcat-fieldname     = 'BELNR'.
        ls_fieldcat-seltext_s      = 'Account Doc'.
        ls_fieldcat-seltext_m      = 'Accounting Doc'.
        ls_fieldcat-seltext_l      = 'Accounting Document'.
        APPEND ls_fieldcat TO rt_fieldcat.
        CLEAR ls_fieldcat.
        IF l_account = 'X'.
          pos = pos + 1.
          ls_fieldcat-col_pos       =  pos.
          ls_fieldcat-fieldname     = 'BELN2'.
          ls_fieldcat-seltext_s      = 'Account Doc2'.
          ls_fieldcat-seltext_m      = 'Accounting Doc2'.
          ls_fieldcat-seltext_l      = 'Accounting Document2'.
          APPEND ls_fieldcat TO rt_fieldcat.
          CLEAR ls_fieldcat.
        ENDIF.
        pos = pos + 1.
        ls_fieldcat-col_pos       =  pos.
        ls_fieldcat-fieldname     = 'KDAUF'.
        ls_fieldcat-seltext_s      = 'Sales Order'.
        ls_fieldcat-seltext_m      = 'Sales Order '.
        ls_fieldcat-seltext_l      = 'Sales Order Number'.
        APPEND ls_fieldcat TO rt_fieldcat.
        CLEAR ls_fieldcat.
        pos = pos + 1.
        ls_fieldcat-col_pos       =  pos.
        ls_fieldcat-fieldname     = 'EBELN'.
        ls_fieldcat-seltext_s      = 'Purchase Ord'.
        ls_fieldcat-seltext_m      = 'Purchase Order '.
        ls_fieldcat-seltext_l      = 'Purchase Order Number'.
        APPEND ls_fieldcat TO rt_fieldcat.
        CLEAR ls_fieldcat.
      pos = pos + 1."                                                  CH02+
      ls_fieldcat-col_pos       =  pos."                               CH02+
      ls_fieldcat-fieldname     = 'EBELP'."                            CH02+
      ls_fieldcat-seltext_s      = 'PO Line'."                         CH02+
      ls_fieldcat-seltext_m      = 'PO Line'."                         CH02+
      ls_fieldcat-seltext_l      = 'PO Line'."                         CH02+
      APPEND ls_fieldcat TO rt_fieldcat."                              CH02+
      CLEAR ls_fieldcat."                                              CH02+
      pos = pos + 1."                                                  CH02+
      ls_fieldcat-col_pos       =  pos."                               CH02+
      ls_fieldcat-fieldname     = 'BUALT'."                            CH02+
      ls_fieldcat-seltext_s      = 'Amount'."                          CH02+
      ls_fieldcat-seltext_m      = 'Amount'."                          CH02+
      ls_fieldcat-seltext_l      = 'Amount'."                          CH02+
      ls_fieldcat-do_sum         = 'X'."                               CH02+
      ls_fieldcat-no_out         = 'X'."                               CH03+
      APPEND ls_fieldcat TO rt_fieldcat."                              CH02+
      CLEAR ls_fieldcat."                                              CH02+
      pos = pos + 1."                                                  CH03+
      ls_fieldcat-col_pos       =  pos."                               CH03+
      ls_fieldcat-fieldname     = 'DMBTR'."                            CH03+
      ls_fieldcat-seltext_s      = 'Amt LC'."                          CH03+
      ls_fieldcat-seltext_m      = 'Amt LCurr'."                       CH03+
      ls_fieldcat-seltext_l      = 'Amt Local Curr'."                  CH03+
      ls_fieldcat-do_sum       = 'X'."                                 CH03+
      ls_fieldcat-no_out         = 'X'."                               CH03+
      APPEND ls_fieldcat TO rt_fieldcat."                              CH03+
      CLEAR ls_fieldcat."                                              CH03+
      pos = pos + 1."                                                  CH03+
      ls_fieldcat-col_pos       =  pos."                               CH03+
      ls_fieldcat-fieldname     = 'UNIT_AMT'."                         CH03+
      ls_fieldcat-seltext_s      = 'Unit Amt'."                        CH03+
      ls_fieldcat-seltext_m      = 'Unit Amt'."                        CH03+
      ls_fieldcat-seltext_l      = 'Unit Amount'."                     CH03+
      ls_fieldcat-do_sum         = 'X'."                               CH03+
      ls_fieldcat-no_out         = 'X'."                               CH03+
      APPEND ls_fieldcat TO rt_fieldcat."                              CH03+
      CLEAR ls_fieldcat."                                              CH03+
      pos = pos + 1."                                                  CH03+
      ls_fieldcat-col_pos       =  pos."                               CH03+
      ls_fieldcat-fieldname     = 'UNIT_AMT_LC'."                      CH03+
      ls_fieldcat-seltext_s      = 'Unit Amt LC'."                     CH03+
      ls_fieldcat-seltext_m      = 'Unit Amt LC'."                     CH03+
      ls_fieldcat-seltext_l      = 'Unit Amount LC'."                  CH03+
      ls_fieldcat-do_sum         = 'X'."                               CH03+
      ls_fieldcat-no_out         = 'X'."                               CH03+
      APPEND ls_fieldcat TO rt_fieldcat."                              CH03+
      CLEAR ls_fieldcat."                                              CH03+
      pos = pos + 1."                                                  CH03+
      ls_fieldcat-col_pos       =  pos."                               CH03+
      ls_fieldcat-fieldname     = 'WAERS'."                            CH03+
      ls_fieldcat-seltext_s      = 'Curr'."                            CH03+
      ls_fieldcat-seltext_m      = 'Currency'."                        CH03+
      ls_fieldcat-seltext_l      = 'Currency'."                        CH03+
      ls_fieldcat-do_sum       = 'X'."                                 CH03+
      ls_fieldcat-no_out         = 'X'."                               CH03+
      APPEND ls_fieldcat TO rt_fieldcat."                              CH03+
      CLEAR ls_fieldcat."                                              CH03+
      pos = pos + 1."                                                  CH03+
      ls_fieldcat-col_pos       =  pos."                               CH03+
      ls_fieldcat-fieldname     = 'ERFMG'."                            CH03+
      ls_fieldcat-seltext_s      = 'Qty UnE'."                         CH03+
      ls_fieldcat-seltext_m      = 'Qty in UnE'."                      CH03+
      ls_fieldcat-seltext_l      = 'Qty in Unit Entry'."               CH03+
      ls_fieldcat-do_sum       = 'X'."                                 CH03+
      ls_fieldcat-no_out         = 'X'."                               CH03+
      APPEND ls_fieldcat TO rt_fieldcat."                              CH03+
      CLEAR ls_fieldcat."                                              CH03+
      pos = pos + 1."                                                  CH04+
      ls_fieldcat-col_pos       =  pos."                               CH04+
      ls_fieldcat-fieldname     = 'AUFNR'."                            CH04+
      ls_fieldcat-seltext_s      = 'Order'."                           CH04+
      ls_fieldcat-seltext_m      = 'Work Order'."                      CH04+
      ls_fieldcat-seltext_l      = 'Work Order'."                      CH04+
      ls_fieldcat-do_sum       = 'X'."                                 CH04+
      ls_fieldcat-no_out         = 'X'."                               CH04+
      APPEND ls_fieldcat TO rt_fieldcat."                              CH04+
      CLEAR ls_fieldcat."                                              CH04+
        pos = pos + 1.
        ls_fieldcat-col_pos       =  pos.
        ls_fieldcat-fieldname     = 'MENGE'.
        ls_fieldcat-seltext_s      = 'Inventory'.
        ls_fieldcat-seltext_m      = 'Inventory'.
        ls_fieldcat-seltext_l      = 'Inventory'.
        ls_fieldcat-do_sum       = 'X'.
        APPEND ls_fieldcat TO rt_fieldcat.
        CLEAR ls_fieldcat.
        pos = pos + 1."                                                VS01+
        ls_fieldcat-col_pos       =  pos."                             VS01+
        ls_fieldcat-fieldname     = 'BEZEI'."                          VS01+
        ls_fieldcat-seltext_s      = 'PO Reason for Order'."           VS01+
        ls_fieldcat-seltext_m      = 'PO Reason for Order'."           VS01+
        ls_fieldcat-seltext_l      = 'PO Reason for Order'."           VS01+
        APPEND ls_fieldcat TO rt_fieldcat."                            VS01+
        CLEAR ls_fieldcat."                                            VS01+
      pos = pos + 1."                                                  CH05+
      ls_fieldcat-col_pos       =  pos."                               CH05+
      ls_fieldcat-fieldname     = 'GRUND'."                            CH05+
      ls_fieldcat-seltext_s      = 'Reason Cd'."                       CH05+
      ls_fieldcat-seltext_m      = 'Reason Code'."                     CH05+
      ls_fieldcat-seltext_l      = 'Reason for Movement Cd'."          CH05+
      APPEND ls_fieldcat TO rt_fieldcat."                              CH05+
      CLEAR ls_fieldcat."                                              CH05+
      pos = pos + 1."                                                  CH05+
      ls_fieldcat-col_pos       =  pos."                               CH05+
      ls_fieldcat-fieldname     = 'GRTXT'."                            CH05+
      ls_fieldcat-seltext_s      = 'Reason Desc'."                     CH05+
      ls_fieldcat-seltext_m      = 'Reason Desc'."                     CH05+
      ls_fieldcat-seltext_l      = 'Reason for Movement Desc'."        CH05+
      APPEND ls_fieldcat TO rt_fieldcat."                              CH05+
      CLEAR ls_fieldcat."                                              CH05+
      pos = pos + 1."                                                  CH06+
      ls_fieldcat-col_pos       =  pos."                               CH06+
      ls_fieldcat-fieldname     = 'ISSDT'."                            CH06+
      ls_fieldcat-seltext_s      = 'Issuing Dt'."                      CH06+
      ls_fieldcat-seltext_m      = 'Issuing Date'."                    CH06+
      ls_fieldcat-seltext_l      = 'Issuing Date'."                    CH06+
      APPEND ls_fieldcat TO rt_fieldcat."                              CH06+
      CLEAR ls_fieldcat."                                              CH06+
      pos = pos + 1."                                                  CH06+
      ls_fieldcat-col_pos       =  pos."                               CH06+
      ls_fieldcat-fieldname     = 'EKGRP'."                            CH06+
      ls_fieldcat-seltext_s      = 'Buyer'."                           CH06+
      ls_fieldcat-seltext_m      = 'Buyer Cd'."                        CH06+
      ls_fieldcat-seltext_l      = 'Buyer Cd'."                        CH06+
      APPEND ls_fieldcat TO rt_fieldcat."                              CH06+
      CLEAR ls_fieldcat."                                              CH06+
      pos = pos + 1."                                                  CH06+
      ls_fieldcat-col_pos       =  pos."                               CH06+
      ls_fieldcat-fieldname     = 'EINDT'."                            CH06+
      ls_fieldcat-seltext_s      = 'Deliv Dt'."                        CH06+
      ls_fieldcat-seltext_m      = 'Delivery Dt'."                     CH06+
      ls_fieldcat-seltext_l      = 'Delivery Date'."                   CH06+
      APPEND ls_fieldcat TO rt_fieldcat."                              CH06+
      CLEAR ls_fieldcat."                                              CH06+
      ENDIF.
    *Espanol
      IF sy-langu = 'S'.
        ls_fieldcat-col_pos       =  pos.
        ls_fieldcat-fieldname     = 'WERKS'.
        ls_fieldcat-seltext_s      = 'Centro '.
        ls_fieldcat-seltext_m      = 'Centro'.
        ls_fieldcat-seltext_l      = 'Centro'.
        APPEND ls_fieldcat TO rt_fieldcat.
        CLEAR ls_fieldcat.
        pos = pos + 1.
        ls_fieldcat-col_pos       =  pos.
        ls_fieldcat-fieldname     = 'LGORT'.
        ls_fieldcat-seltext_s      = 'Almacén'.
        ls_fieldcat-seltext_m      = 'Almacén'.
        ls_fieldcat-seltext_l      = 'Almacén'.
        APPEND ls_fieldcat TO rt_fieldcat.
        CLEAR ls_fieldcat.
        pos = pos + 1.
        ls_fieldcat-col_pos       =  pos.
        ls_fieldcat-fieldname     = 'BWART'.
        ls_fieldcat-seltext_s      = 'Clase de movimiento'.
        ls_fieldcat-seltext_m      = 'Clase de movimiento'.
        ls_fieldcat-seltext_l      = 'Clase de movimiento'.
        APPEND ls_fieldcat TO rt_fieldcat.
        CLEAR ls_fieldcat.
        pos = pos + 1.
        ls_fieldcat-col_pos       =  pos.
        ls_fieldcat-fieldname     = 'BTEXT'.
        ls_fieldcat-seltext_s      = 'Texto-movimiento'.
        ls_fieldcat-seltext_m      = 'Texto-movimiento'.
        ls_fieldcat-seltext_l      = 'Texto-movimiento'.
        APPEND ls_fieldcat TO rt_fieldcat.
        CLEAR ls_fieldcat.
        pos = pos + 1.
        ls_fieldcat-col_pos       =  pos.
        ls_fieldcat-fieldname     = 'XBLNR'.
        ls_fieldcat-seltext_s      = 'Documento de referencia'.
        ls_fieldcat-seltext_m      = 'Documento de referencia'.
        ls_fieldcat-seltext_l      = 'Documento de referencia'.
        APPEND ls_fieldcat TO rt_fieldcat.
        CLEAR ls_fieldcat.
        pos = pos + 1.
        ls_fieldcat-col_pos       =  pos.
        ls_fieldcat-fieldname     = 'BUDAT'.
        ls_fieldcat-seltext_s      = 'Fijación De la Fecha '.
        ls_fieldcat-seltext_m      = 'Fijación De la Fecha '.
        ls_fieldcat-seltext_l      = 'Fijación De la Fecha '.
        APPEND ls_fieldcat TO rt_fieldcat.
        CLEAR ls_fieldcat.
        pos = pos + 1.
        ls_fieldcat-col_pos       =  pos.
        ls_fieldcat-fieldname     = 'SOBKZ'.
        ls_fieldcat-seltext_s      = 'Stock especial'.
        ls_fieldcat-seltext_m      = 'Stock especial'.
        ls_fieldcat-seltext_l      = 'Stock especial'.
        APPEND ls_fieldcat TO rt_fieldcat.
        CLEAR ls_fieldcat.
        pos = pos + 1.
        ls_fieldcat-col_pos       =  pos.
        ls_fieldcat-fieldname     = 'MBLNR'.
        ls_fieldcat-seltext_s      = 'Documento Material '.
        ls_fieldcat-seltext_m      = 'Documento Material '.
        ls_fieldcat-seltext_l      = 'Documento Material '.
        APPEND ls_fieldcat TO rt_fieldcat.
        CLEAR ls_fieldcat.
        pos = pos + 1.
        ls_fieldcat-col_pos       =  pos.
        ls_fieldcat-fieldname     = 'URZEI'.
        ls_fieldcat-seltext_s      = 'Artículo '.
        ls_fieldcat-seltext_m      = 'Artículo '.
        ls_fieldcat-seltext_l      = 'Artículo  Material'.
        APPEND ls_fieldcat TO rt_fieldcat.
        CLEAR ls_fieldcat.
        pos = pos + 1.
        ls_fieldcat-col_pos       =  pos.
        ls_fieldcat-fieldname     = 'MATNR'.
        ls_fieldcat-seltext_s      = 'Materiales'.
        ls_fieldcat-seltext_m      = 'Materiales'.
    ls_fieldcat-seltext_l      = 'Material Numner'.
        ls_fieldcat-seltext_l      = 'Materiales'."                 CH01+
        APPEND ls_fieldcat TO rt_fieldcat.
        CLEAR ls_fieldcat.
        pos = pos + 1.
        ls_fieldcat-col_pos       =  pos.
        ls_fieldcat-fieldname     = 'MAKTX'.
        ls_fieldcat-seltext_s      = 'Descripción Material '.
        ls_fieldcat-seltext_m      = 'Descripción Material '.
        ls_fieldcat-seltext_l      = 'Descripción Material '.
        ls_fieldcat-no_out          = 'X'.
        APPEND ls_fieldcat TO rt_fieldcat.
        CLEAR ls_fieldcat.
        pos = pos + 1.
        ls_fieldcat-col_pos       =  pos.
        ls_fieldcat-fieldname     = 'USNAM'.
        ls_fieldcat-seltext_s      = 'Usuario'.
        ls_fieldcat-seltext_m      = 'Creado Cerca'.
        ls_fieldcat-seltext_l      = 'Creado Cerca'.
        APPEND ls_fieldcat TO rt_fieldcat.
        CLEAR ls_fieldcat.
        pos = pos + 1.
        ls_fieldcat-col_pos       =  pos.
        ls_fieldcat-fieldname     = 'CHARG'.
        ls_fieldcat-seltext_s      = 'Lote'.
        ls_fieldcat-seltext_m      = 'Lote'.
        ls_fieldcat-seltext_l      = 'Lote'.
        APPEND ls_fieldcat TO rt_fieldcat.
        CLEAR ls_fieldcat.
        pos = pos + 1.
        ls_fieldcat-col_pos       =  pos.
        ls_fieldcat-fieldname     = 'KUNNR'.
        ls_fieldcat-seltext_s      = 'Cliente'.
        ls_fieldcat-seltext_m      = 'Cliente'.
        ls_fieldcat-seltext_l      = 'Cliente'.
        APPEND ls_fieldcat TO rt_fieldcat.
        CLEAR ls_fieldcat.
        pos = pos + 1.
        ls_fieldcat-col_pos       =  pos.
        ls_fieldcat-fieldname     = 'SONAME'.
        ls_fieldcat-seltext_s      = 'Nombre de Cliente'.
        ls_fieldcat-seltext_m      = 'Nombre de Cliente'.
        ls_fieldcat-seltext_l      = 'Nombre de Cliente'.
        ls_fieldcat-no_out          = 'X'.
        APPEND ls_fieldcat TO rt_fieldcat.
        CLEAR ls_fieldcat.
        pos = pos + 1.
        ls_fieldcat-col_pos       =  pos.
        ls_fieldcat-fieldname     = 'LIFNR'.
        ls_fieldcat-seltext_s      = 'Proveedor'.
        ls_fieldcat-seltext_m      = 'Proveedor'.
        ls_fieldcat-seltext_l      = 'Proveedor'..
        APPEND ls_fieldcat TO rt_fieldcat.
        CLEAR ls_fieldcat.
        pos = pos + 1.
        ls_fieldcat-col_pos       =  pos.
        ls_fieldcat-fieldname     = 'VDNAME'.
        ls_fieldcat-seltext_s      = 'Nombre de Proveedor'.
        ls_fieldcat-seltext_m      = 'Nombre de Proveedor'.
        ls_fieldcat-seltext_l      = 'Nombre de Proveedor'.
        ls_fieldcat-no_out          = 'X'.
        APPEND ls_fieldcat TO rt_fieldcat.
        CLEAR ls_fieldcat.
        pos = pos + 1.
        ls_fieldcat-col_pos       =  pos.
        ls_fieldcat-field

    Hi
      If i can understand correctly, i guess you can acheive the same by commenting the below highlighted line. Please check for the same.
    *& Form USER_COMMAND
    FORM user_command USING r_ucomm LIKE sy-ucomm
    rs_selfield TYPE slis_selfield.
    CASE r_ucomm.
    WHEN '&IC1'.
    <b>*PERFORM display_sales_order USING r_ucomm</b>rs_selfield.
    ENDCASE.
    ENDFORM.
    Also i guess you can use the same program, and place an authorization check for ppl to see or not see the later data.
    Hope this can help you.
    Kind Regards
    Eswar

  • Standard program modification logs

    Hi,
    Is there any way/transaction we can view or store logs from a modified standard program ?
    Something like the version management in the abap editor but it must display all the standard program that has been modified .
    The purpose is to easily keep track of all the changes, in case of system refresh/update.
    Thank you.

    version management will report changes for ALL ABAP objects, including those in SAP namespace.  is that what you're asking for?

  • Z* Program Modification

    Dear All,
    We are doing the OS/DB Migrartion in rehearsal pahase 1 -> Windows 2003/SQL2000  SAP 4.6C with (4.6D kernel)
    We have some add on programs, So we want  to modify middle of the systax of the Z* program like  change IP address and hostname etc.
    We already set the Prd client to change below.
    Client Independent Object changes -> Changes to repository and cross-Client Customizing allowed
    Please let me know how to modify the program.
    Thanks
    Malai

    Hi Matt,
    Thank you very mcuh..
    Yes we are currently changing at the rehearsal server1.
    1.Please confirm the below steps is ok to do.
    Se38->ZXXB0100_TMP-> Change -> Slect the line to change and click "Replace" button  to modify.
    2.IN rehearsal pahase 2.
    we are planning to use the Rehearsal 1 system as dev system temporarily.  In this case can we use the Same SID for Dev and PRD system.
    If yes is it possible to send the  transport request between two system with same SID ?.
    Dev System  SID is : FFP & Prd system SID is: FFP
    Thanks
    Malai

  • Module pool program modifications

    hi All,
    i want to modify a screen out of three screens in a modulepool program.
    Example:
    there are 3 screens 100,200,300.
    i want to modify in the 300 screen.
    in the main program the 300 screen is called like
    if sy-subrc = 0.
    call screen t019w-winnr
        starting at t019w-spvon t019w-zlvon
        ending   at t019w-spbis t019w-zlbis.
    else.
    i had already modified the changes required in 300 screen but not able to get the exact changes required.

    Hi,
    I think the third is a modal dialogue box. That is not a problem to show changes you made.
    Can you give me some clear idea about how the third screen has called?
    Regards,
    Dhanunjaya Reddy

  • Stars program problem

    Hi, I got Java running about 5 weeks ago to anyone that helped me thanks, but now I got a small problem:-
    When a user enters a number for example 6, I am trying to get it to output 6 lines of:
    please help I have 3 errors,
    public class stars1
    public static void main(String[]args);
         int counter1 = 1;
         int counter2 = 1;
         int table;
         System.out.print("Please enter an integer: ")
         table = EasyIn.getInt();
              do
                   do
                        System.out.print("*")
                        counter1++;
                   } while (counter1 <= table);
                   System.out.println();
                   counter1 = 1;
              } while (counter1 <= counter2);
    errors are:-C:\Java Code\stars1.java:10: <identifier> expected
         System.out.print("Please enter an integer: ")
    ^
    C:\Java Code\stars1.java:13: illegal start of type
              do
    ^
    C:\Java Code\stars1.java:25: <identifier> expected
              } while (counter1 <= counter2);
    ^
    3 errors
    Tool completed with exit code 1
    Thanks in advance

    Hi, I got Java running about 5 weeks ago to anyone
    that helped me thanks, but now I got a small
    problem:-
    When a user enters a number for example 6, I am
    trying to get it to output 6 lines of:
    please help I have 3 errors,
    public class stars1
    public static void main(String[]args);
         int counter1 = 1;
         int counter2 = 1;
         int table;
         System.out.print("Please enter an integer: ")
         table = EasyIn.getInt();
              do
                   do
                        System.out.print("*")
                        counter1++;
                   } while (counter1 <= table);
                   System.out.println();
                   counter1 = 1;
              } while (counter1 <= counter2);
    errors are:-C:\Java Code\stars1.java:10: <identifier>
    expected
         System.out.print("Please enter an integer: ")
    ^
    C:\Java Code\stars1.java:13: illegal start of type
              do
    ^
    C:\Java Code\stars1.java:25: <identifier> expected
              } while (counter1 <= counter2);
    3 errors
    Tool completed with exit code 1
    Thanks in advanceI think this would solve your problem,
    import java.io.*;
    public class program_name
        public static void main(String args[]) throws IOException
        String input_string;
        BufferedReader myInput = new BufferedReader(new InputStreamReader(System.in));//set up input
        System.out.print("Enter the number : ");   
        input_string = myInput.readLine();     //read in the input
        int number = Integer.parseInt(input_string);            
        for (int i = 1; i <= number; i++)
        int counter=1;
         while (counter<=number)
             System.out.print("*");
             counter++;
         System.out.println(); 
    }It a simple nested loop that asks for a number from the user, loop for that number and loop again within the outer loop!
    Hope it helps!

  • HT3523 i just bought a mac pro 15' 8 gigs 2.3 and the program star and quick time do not recognize my dvd disk that i feed  to be edited or do anything with it....no import etc ...what do i do?

    I have a mac pro with 15' screen 8 gigs and can not edit my dvd video from the star edit program that is included with the computer...i wonder if i need to download something???? it play the dvd and opens the star program but i can't import the dvd content into the program(star so i can star editing...what choices do i have

    If you are trying to edit a commercial (store bought ) video, it will not allow this due to copy protection on all commercial disks.  Here are some links for editing in iMovie:
    http://support.apple.com/kb/PH2209
    http://support.apple.com/kb/PH2208
    http://support.apple.com/kb/PH2212
    http://support.apple.com/kb/PH2235
    http://support.apple.com/kb/PH2315
    http://support.apple.com/kb/PH2292
    http://support.apple.com/kb/PH2283
    http://support.apple.com/kb/PH2258
    http://support.apple.com/kb/PH2308
    http://support.apple.com/kb/PH2201
    Hope some of these help, you can also go to HELP in iMovie, type in a question for information.
    All the best

  • How Do I get a startup program to automatically respond to the "Is it OK for this program to make changes to this computer" challenge?

    I want to add a program to the Windows 7 Startup.  Whenever I run this program manually I get a "Do you want to allow this program to make changes...." challenge.  How do I add this program to my startup file and get it to respond "Yes"
    to the challenge.  Thank you for any ideas or suggestions that you care to offer.................Phil Hoop
    Phil Hoop

    Task Scheduler will allow you to bypass UAC on startup (Basic Task > Star Program at Log On > Tick 'Highest Privileges')..
    Your other option is Microsoft Application Compatibility Toolkit.. It enables you to disable UAC for any application you choose to trust. The compatibility fix you need
    to select is RunAsInvoker.

  • Change in the program

    the following program modification has to be done such that  it takes input  from the  application server  and not from the   presentation server.
    *& Report  ZFI_OPENITEM5                                               *
    REPORT  ZFI_OPENITEM5  no standard page heading                       .
    DATA : BEGIN OF t_bdcdata OCCURS 0.
            INCLUDE STRUCTURE bdcdata.
    DATA : END OF t_bdcdata.
    DATA: BEGIN OF t_msgtab OCCURS 0.
            INCLUDE STRUCTURE bdcmsgcoll.
    DATA:        END OF t_msgtab.
    DATA: BEGIN OF ITAB OCCURS 0,
               BLDAT LIKE BKPF-BLDAT,
               BLART LIKE BKPF-BLART,
               BUKRS LIKE BKPF-BUKRS,
               BUDAT LIKE BKPF-BUDAT,
               MONAT LIKE BKPF-MONAT,
               WAERS LIKE BKPF-WAERS,
               NEWBS LIKE RF05A-NEWBS,
               NEWKO LIKE RF05A-NEWKO,
               WRBTR LIKE BSEG-WRBTR,
               ZTERM LIKE BSEG-ZTERM,
               ZFBDT LIKE BSEG-ZFBDT,
               VALUT LIKE BSEG-VALUT,
               PRCTR LIKE COBL-PRCTR,
           END OF ITAB.
    End generated data section ***
    uploading the file
    CALL FUNCTION 'GUI_UPLOAD'
      EXPORTING
    filename = 'C:\BDC1.txt'
       filetype                      = 'ASC'
       has_field_separator           = 'X'
      HEADER_LENGTH                 = 0
      READ_BY_LINE                  = 'X'
      DAT_MODE                      = ' '
      CODEPAGE                      = ' '
      IGNORE_CERR                   = ABAP_TRUE
      REPLACEMENT                   = '#'
      CHECK_BOM                     = ' '
    IMPORTING
      FILELENGTH                    =
      HEADER                        =
      TABLES
        data_tab                      = ITAB
    EXCEPTIONS
       file_open_error               = 1
       file_read_error               = 2
       no_batch                      = 3
       gui_refuse_filetransfer       = 4
       invalid_type                  = 5
       no_authority                  = 6
       unknown_error                 = 7
       bad_data_format               = 8
       header_not_allowed            = 9
       separator_not_allowed         = 10
       header_too_long               = 11
       unknown_dp_error              = 12
       access_denied                 = 13
       dp_out_of_memory              = 14
       disk_full                     = 15
       dp_timeout                    = 16
       OTHERS                        = 17
    IF sy-subrc <> 0.
    MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
            WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
    ENDIF.
    LOOP AT ITAB.
        PERFORM bdc_dynpro      USING 'SAPMSSY0' '0120'.
        PERFORM bdc_field       USING 'BDC_CURSOR' '09/65'.
        PERFORM bdc_field       USING 'BDC_OKCODE' '=PICK'.
        PERFORM bdc_dynpro      USING 'SAPMF05A' '100'.
        PERFORM bdc_field       USING 'BDC_CURSOR' 'RF05A-NEWKO'.
        PERFORM bdc_field       USING 'BDC_OKCODE' '/00'.
        PERFORM bdc_field       USING 'BKPF-BLDAT' ITAB-BLDAT.
        PERFORM bdc_field       USING 'BKPF-BLART' ITAB-BLART.
        PERFORM bdc_field       USING 'BKPF-BUKRS' ITAB-BUKRS.
        PERFORM bdc_field       USING 'BKPF-BUDAT' ITAB-BUDAT.
        PERFORM bdc_field       USING 'BKPF-MONAT' ITAB-MONAT.
        PERFORM bdc_field       USING 'BKPF-WAERS' ITAB-WAERS.
        PERFORM bdc_field       USING 'RF05A-NEWBS' ITAB-NEWBS.
        PERFORM bdc_field       USING 'RF05A-NEWKO' ITAB-NEWKO.
        PERFORM bdc_dynpro      USING 'SAPMF05A' '302'.
        PERFORM bdc_field       USING 'BDC_CURSOR' 'BSEG-ZFBDT'.
        PERFORM bdc_field       USING 'BDC_OKCODE' '=ZK'.
        PERFORM bdc_field       USING 'BSEG-WRBTR' ITAB-WRBTR.
        PERFORM bdc_field       USING 'BSEG-ZTERM' ITAB-ZTERM.
        PERFORM bdc_field       USING 'BSEG-ZFBDT' ITAB-ZFBDT.
        PERFORM bdc_dynpro      USING 'SAPMSSY0' '0120'.
        PERFORM bdc_field       USING 'BDC_CURSOR' '04/05'.
        PERFORM bdc_field       USING 'BDC_OKCODE' '=PICK'.
        PERFORM bdc_dynpro      USING 'SAPMF05A' '0332'.
        PERFORM bdc_field       USING 'BDC_CURSOR' 'RF05A-NEWKO'.
        PERFORM bdc_field       USING 'BDC_OKCODE' '/00'.
        PERFORM bdc_field       USING 'RF05A-NEWBS' ITAB-NEWBS.
        PERFORM bdc_field       USING 'RF05A-NEWKO' ITAB-NEWKO.
        PERFORM bdc_dynpro      USING 'SAPMF05A' '0300'.
        PERFORM bdc_field       USING 'BDC_CURSOR' 'BSEG-WRBTR'.
        PERFORM bdc_field       USING 'BDC_OKCODE' '/00'.
        PERFORM bdc_field       USING 'BSEG-WRBTR' ITAB-WRBTR.
        PERFORM bdc_field       USING 'BSEG-VALUT' ITAB-VALUT.
        PERFORM bdc_dynpro      USING 'SAPLKACB' '0002'.
        PERFORM bdc_field       USING 'BDC_CURSOR' 'COBL-PRCTR'.
        PERFORM bdc_field       USING 'BDC_OKCODE' '=ENTE'.
        PERFORM bdc_field       USING 'COBL-PRCTR' ITAB-PRCTR.
        PERFORM bdc_dynpro      USING 'SAPMF05A' '0300'.
        PERFORM bdc_field       USING 'BDC_CURSOR' 'BSEG-WRBTR'.
        PERFORM bdc_field       USING 'BDC_OKCODE' '=BU'.
        PERFORM bdc_field       USING 'BSEG-WRBTR' ITAB-WRBTR.
        PERFORM bdc_field       USING 'BSEG-VALUT' ITAB-VALUT.
        PERFORM bdc_dynpro      USING 'SAPLKACB' '0002'.
        PERFORM bdc_field       USING 'BDC_CURSOR' 'COBL-PRCTR'.
        PERFORM bdc_field       USING 'BDC_OKCODE' '=ENTE'.
        PERFORM bdc_field       USING 'COBL-PRCTR' ITAB-PRCTR.
        PERFORM bdc_transaction USING 'F-02'.
    ENDLOOP.
    PERFORM display_msg.
          bdc_dynpro                                              *
    FORM bdc_dynpro USING program dynpro.
      t_bdcdata-program  = program.
      t_bdcdata-dynpro   = dynpro.
      t_bdcdata-dynbegin = 'X'.
      APPEND t_bdcdata.
      CLEAR t_bdcdata.
    ENDFORM.                    "BDC_DYNPRO
           bdc_field                                                  *
    FORM bdc_field USING fnam fval.
      t_bdcdata-fnam = fnam.
      t_bdcdata-fval = fval.
      APPEND t_bdcdata.
      CLEAR t_bdcdata.
    ENDFORM.                    "BDC_FIELD
    *&      Form  bdc_transaction
    FORM bdc_transaction  USING    trans.
      CALL TRANSACTION trans
              USING t_bdcdata
              MODE  'E'
              MESSAGES INTO t_msgtab.
    ENDFORM.                    " bdc_transaction
    *&      Form  display_msg
    form display_msg .
    LOOP AT t_msgtab.
      WRITE: / t_msgtab-msgtyp,
               t_msgtab-msgv1.
    ENDLOOP.
    ENDFORM.                    " display_msg

    Hi ,
    To read data from the application server you need to use the
    OPEN DATASET statement .
    Please check the help on it and try to implemnet in your program in place of GUI_UPLOAD function.
    Regards
    Arun

  • List of modifiable programs & reports in a productive system

    Hi everyone,
    I am trying to determine what objects are modifiable in a system set as productive. I have identified about 50 users who are assigned authorization object S_DEVELOP (activity=02 & auth group=DEBUG) in the production system. However the SAP consultant says that this is not an issue because program modification is not allowed in a system which is set as productive. This makes sense but is it true?
    Is there a report or a table which can list system objects that are currently modifiable? From another forum a user suggested I check table OBJH. This was an excellent tip, however OBJH does not list ABAP programs or reports - just tables, views, etc. Any help will be greatly appreciated.
    Thanks,
    Martin

    Hi Martin,
    These settings are done at client level. Each client can be configured with below options
    We can also view client  details from SALE->sending and receiving systems->logical systems->assign client to logical system.
    <b>Client Role</b>
    Customizing
    Test
    Production
    Demo etc..
    <b>Changes and Transport for client-specific objects</b>
    options are :
    Changes without automatic recording
    Automatic recording of changes
    No changes allowed
    Changes w/o automatic recording, no transport allowed
    <b>Cross-Client Objects changes</b>
    Options are :
    Changes to repository and cross-client customizing allowed.
    No changes to cross-client customizing objects
    No changes to repository objects
    No changes to repository and cross-client customzing objs.
    And I don't think production system/client is allowed to do any changes to reports or dictionary objects. These must have to come from development system via quality system to production.
    Regards
    Manohar

  • Java Programming @ SAP - the poor cousin?

    Hi!
    Recently I' ve started a kind of poll in the Java forums asking if someone knew any enhancement possibilities for java-side development at SAP mentioning the ABAP customer exits, BADIs, customer includes and enhancement spots as example.
    Guess how many answer I received - from WDJ, Java Programming, NWDI and NW Java from: None! All the gurus who usually bubble over with wisdom remained wondrous silent. I also run over help pages searching for some hints regarding this - in my opinion fundamental - questions, with the same result.
    Has really nobody at SAP spent a thought about one of the most precious features SAP offers its customers - the possibility to enhance delivered standard-programs and thereby adapt them to their needs without modification?
    How are we as Java programmers then supposed to stand the mistrustful glances of our ABAP collegues who wonder why there has been so much noise about this Java thing in the recent years. Thinking about the disadvantages a developer working with Java at SAP has to bear compared to his ABAP collegue - no direct data access, no comfortable debugging possibilities, lots of standalone tools with strange UIs (SDM Remote GUI, Visual Admin - only to name the least glorious ones - he to manage and - last, not least - no chance to enhance SAP Standard programs modification free I have to agree upon one ABAPers opinion on Java: "The hype is over!".
    Regards from a very pessimistic Java Developer
    Thomas
    PS: Does anybody know a way to unbureaucraticly swap a Java certification against an ABAP one?

    I get the question - should I do my development in ABAP or Java - quite often. My answer has become "It Depends."  I getting pretty good at those ambiguous consulting answers, aren't I.
    In all seriousness I really do think the answer depends upon several things.  As a company or development group you should analyze the skills that you already have in house.  As you have seen the two development environments are quite close.  The advantages of one over the other will continue to vary over time.  ABAP will add nice features from Java and vise versa.  In the end it is more important that companies leverage their skill sets and existing infrastructure (Software Lifecycle Landscape) to their maximum. 
    If you are already a java shop then it makes sense to continue down that development path because your developers will still be very efficient even if they have to access ERP and other SAP application logic and data via RFC or Web Services. 
    On the other hand, ABAP certainly isn't as dead as some people claimed it would be by now. Thanks to Web Services ABAP has more flexibility than ever before.  It isn't nearly the closed box that it used to be.  Also the workbench team isn't going to stop innovating either. 
    The next question I get is what does SAP do internally when deciding on a language to use.  To a large extent they use the same criteria - what existing skill sets do I have to work with.  They also look at where the data is located. 
    That means products like Portal aren't about to change from Java to ABAP.  On the other hand ERP suite development is still heavily ABAP.  The new UIs coming from ERP will primarily be done in Web Dynpro ABAP. 
    Even in some newer products that haven't been released yet - the UI was done in Java or Visual Composer and the backend business logic was done in ABAP. It is all about taking advantage of the unique strengths of each environment and the skill sets you have in each.
    In the end I don't think Java is the poor cousin any more than ABAP is going to die.  Look at NetWeaver CE and the huge investment SAP has made on top of Java Development there.  At the same time our investment in Java has not come at the cost of the ABAP environment.  Innovations will continue to take place there as well.  I can assure you that within SAP it is the hope and goal to have two top notch development environments within NetWeaver.
    Now let me share a little story with you.  My background is obviously ABAP and I doubt I will ever lose my particular passion for the environment.  At the same time I have done a fair bit of NetWeaver Java development in the last year and half or so.  I'm not a super deep expert, but I can hold my own. 
    I recently had a requirement to build an MDM Application.  I only had two days in which to build it.  My choices were to use the Java API or the ABAP API.  They are quite similar and both meet all my interface requirements.  I was building a Web Dynpro UI, so the end user wouldn't be able to tell the difference.  Interfacing capabilities being the same and UI output being identical - my decision came down to the environment where I personally could be most efficient.  I could have completed the project in either environment.  But because I knew the ABAP Programming Environment (you know the stuff that goes beyond the basic syntax - the real knowledge that lets you squeeze every last drop of performance out of an application) so well I personally could build the best application in the shorter time in ABAP. 
    Now someone with a different background might well have taken the Java path and done just as well.  This is the advantage that SAP provides by continuing to support both ABAP and Java development.  Does every feature and function of both environements line up exactly - of course not.  I'm sure they never will.  But do these differences keep experts in either environment from being able to make any application do amazing things - certainly not.  Personally I feel less constrained in either ABAP or Java today than I have ever felt programming before.

Maybe you are looking for

  • Getting 500 Internal Server Error when opening GC page

    There was no change in configuration and all of a sudden, I can not connect to GC. I did notice that OC4J for OC4J_EM is down and I can't get it to go "Alive". Can someone run opmnctl status and print the output for me? I'm on Windows 2003/GC 10.1.0.

  • IPod will no restore shows unknown error has occured with code 1429, how do i fix this probem?

    Ipod classic 80G will not restore, says "An unknown error has occured, error code 1429" how do i fix this problem?

  • Useful Information to Share

    This is useful for people using Java(TM) Plug-in: Version 1.4.1_01. When I view my applets in Java(TM) Plug-in: Version 1.4.1_01 the tab key never worked. The setting in java plugin console was "hide console". In java plugin console when I change the

  • I can't manage file and storage services in server manager.

    I have a windows 2012 R2 server. I had turned on the file and storage services role and was able to configure a single share in server manager. A few days later I wanted to create another share but when I select file and storage services within serve

  • How to open the disk tray?

    Working with an old G4 tower, and OS9. No eject key on the keyboard, and the eject option in the menu at the top is greyed out. F12 doesn't work either. I can get it open by going via iTunes, but surely there should be a less convoluted way of doing