Error in ABAP code whield efining structures

Hello,
I am getting following error when I run ABAP code.
Tables: ZROLE_OWNER, ZROLEMAP, AGR_1251, AGR_USERS.
DATA: BEGIN OF I_ROLE occurs 0,
      ROLE LIKE ZROLE_OWNER-ROLE,
      END OF I_ROLE.
DATA: BEGIN OF I_RATT occurs 0,
      ROLENAME LIKE AGR_1251-AGR_NAME,
      OBJECT LIKE AGR_1251-OBJECT,
      FIELD LIKE AGR_1251-FIELD,
      LOW LIKE AGR_1251-LOW,
      HIGH LIKE AGR_1251-HIGH,
      END OF I_RATT.
DATA: WA_RATT LIKE I_RATT occurs 0.
SELECT ROLE from ZROLE_OWNER into table I_ROLE
            where SFLAG = ''.
LOOP AT I_ROLE.
*This will append all the values for above condition in WA-RATT.
SELECT AGR_NAME OBJECT FIELD LOW HIGH FROM AGR_1251
             INTO TABLE WA_RATT
             WHERE AGR_NAME = I_ROLE-ROLE.
APPEND WA_RATT TO I_RATT.
ENDLOOP.
I am getting error that WA_RATT cannot be converted to line type I_RATT.

hi,
Tables: ZROLE_OWNER, ZROLEMAP, AGR_1251, AGR_USERS.
DATA: BEGIN OF I_ROLE occurs 0,
ROLE LIKE ZROLE_OWNER-ROLE,
END OF I_ROLE.
DATA: BEGIN OF I_RATT occurs 0,
ROLENAME LIKE AGR_1251-AGR_NAME,
OBJECT LIKE AGR_1251-OBJECT,
FIELD LIKE AGR_1251-FIELD,
LOW LIKE AGR_1251-LOW,
HIGH LIKE AGR_1251-HIGH,
END OF I_RATT.
DATA: WA_RATT LIKE line of I_RATT .
SELECT ROLE from ZROLE_OWNER into table I_ROLE
where SFLAG = ''.
LOOP AT I_ROLE.
*This will append all the values for above condition in WA-RATT.
SELECT AGR_NAME OBJECT FIELD LOW HIGH FROM AGR_1251
INTO WA_RATT
   up to 1 rows
WHERE AGR_NAME = I_ROLE-ROLE.
endselect.
APPEND WA_RATT TO I_RATT.
ENDLOOP.
Thanks,
Rajinikanth.

Similar Messages

  • Error in ABAP code generation?

    Hi,
    I am using OWB 10.1 to generate ABAP code for SAP-Data-Extraction. For extracting date values there are two APAB lines which (want to) produce one line in the result SQLLDR-Script. ABAP will accept only around 73 characters per line and this is the reason for the two lines.
    But ABAP does not accept a line break inside a string and thus this code runs into an ABAP-error.
    This all seems to be standard - has anyone a solution?
    generated ABAP-lines:
    Line1: TRANSFER ',ERDAT_DATUM_AN_DEM_DER_SATZ_HI DATE ''yyyymmdd'' NULLIF
    Line2: ERDAT_DATUM_AN_DEM_DER_SATZ_HI=''00000000''' TO DATAFILENAME.
    many thanks

    Hello Jean-Pierre,
    many thanks for your answer. Not the expected solution but it works. Another solution we found is to put an ampersand behind the first line, which tells ABAP that this is a line break. But also here manually work is necessary and also changing generated code.
    Cheers
    Stefan

  • LKM SAP BW to Oracle (SQLLDR) generates sintax error in ABAP code.

    Hi Experts,
    We are installing a SAP BW KM's in ODI 11g.
    Actually, we are able to make reverse ingeneering succesfully.
    Now we want to use the LKM in order to extract SAP data.
    The KM fails, in step Generate ABAP Code. The code is uploaded to SAP system but with sintaxis errors.
    That's the beginning of the SAPAbapExecuteOpenTool_8001_7001.log.
    +##################################################+
    +############ Open Tool Logger ####################+
    +##################################################+
    +############ Upload value: 1+
    +############ Execute value: 1+
    +############ BASE RKM FLAG: 0+
    +############ ZRFC_RUN_INSTALL: 1+
    +############ Abap Function Name: ZODI_8001_7001+
    +############ Sap Host Name: XXXXXXXX+
    +############ Sap User Name: XXXX+
    +############ Sap password: ********+
    +############ Sap Client: 100+
    +############ Sap language: ES+
    +############ Sap system no: 00+
    +############ Sap Connection Pool Name: SAP_ODI_LKM_POOL_GLOBAL+
    +############ Sap Connection Pool Size: 10+
    +############ Sap Function group name: ZODIBW_LKM_FGRP+
    +############ File Delimiter:+
    +############ File Name: ZODI_8001_7001.txt+
    +############ FTP Host: XXXXXXXXX+
    +############ FTP User: ftpbi+
    +############ FTP Password: ********+
    +############ FTP Passive Mode: 1+
    +############ FTP Transfer Time out: 100000+
    +############ User abap parameter names: IV_DELIMITER,CHAR1;IV_FILENAME,CHAR255;IV_USER,CHAR35;IV_PWD,CHAR35;IV_HOST,CHAR35;IV_HASHVALUE,CHAR35;IV_PATH,CHAR35;IV_REQUID_L,RSSID;IV_REQUID_H,RSSID+
    +############ Abap rfc table parameters: RETURN,BAPIRETURN;ET_FILE_RETURN,BAPIRET2+
    +############ Log File Name: /tmp/SAPAbapExecuteOpenTool_8001_7001.log+
    +############ OpenHub Path: /tmp/+
    +############ Delta Extraction First Request ID : 0+
    +############ Delta Extraction Last Request ID : 0+
    +############ SAP Development Class : ZODIBW_PCKG+
    +############ Max Row Count :+
    +############ Fetch Batch Size :+
    +############ Hash Value Marker: HVM+
    +############ Generated Program:+
    *** ODS DSO extraction
    TYPES: BEGIN OF ty_final,
    +/BIC/AZOFI_UTE00_/BIC/ZFI_SOCOR+
    TYPE
    +/BIC/AZOFI_UTE00-/BIC/ZFI_SOCOR,+
    +/BIC/AZOFI_UTE00_SOURSYSTEM+
    TYPE
    +/BIC/AZOFI_UTE00-SOURSYSTEM,+
    END OF ty_final.
    In the SAP GUI shows a sintaxis error.
    Functions Module ZODI_8001_7001. line 25
    The name "/BIC/AZOFI_UTE00_/BIC/ZFI_SOCOR" is longer that allowed.
    +30 characters.+
    Really the TYPE "/BIC/AZOFI_UTE00_/BIC/ZFI_SOCOR" has 31 characters.
    The sufix "/BIC/" is the "NAMESPACE", a SAP grouping concept.
    AZOFI_UTE00 is a table name.
    ZFI_SOCOR is a column name.
    Are this sufix correct in the APAP code?
    Has anyone had that problem?
    Any comment will be wellcome.
    Thank's in advance.

    Hi Somchai,
    r U able to resolve ur issue ..........i'm also struck there at the same point.
    I am using shared folder for file transfer and my error message is
    java.lang.RuntimeException: Error occured in open tool execute method...Error in executing ABAP program...Error in executing ABAP program...Error occurred when creating dataset\\<hostname>\bi-interface$\ZODI_11001_12001_GLOBAL.txt
    Thanks.
    Edited by: Drona on Mar 26, 2012 7:25 AM

  • Error in Abap code - Unknown column name

    Hi
    I have this error in my code.
    Unknown column name "SUM(EKBE-MENGE)" field list. field list. field
    My code
    *Select sum(ekbe-menge)
           into MCSTRUCT-ZQuant
          from ekbe*
    How do I resolve this.
    thanks

    Hi,
    Try the following statement:
    Select sum( menge )
    into MCSTRUCT-ZQuant
    from ekbe.
    hope it helps...
    regards,
    Raju

  • Error in Abap code when combining data from two tables

    Hi,
    I got error in my code when  i try to select data based on two tables
    error message Unknown column name "(" field list. field list. field list. field list.
    select ( WLK1~ARTNR )
              into ZOXE1D0041-ZZPROMO
              from WLK1 INNER JOIN T001W
              ON WLK1FILIA = T001WKUNNR.
              where WLK1-PFLKN NE 'P' AND
              WLK1-QUELL NE '2'.
    Table 1 WLK1
    ARTNR   FILIA       PFLKN                  QUELL
    001         C001        P                           2
    002         C001        A                          1
    Table 2  T001W
    KUNNR                WERKS
    C001                    P001
    My requirement is to extract from article number from table WLK1 where the customer number (FILIA) matches with Customer number from (T001W) and plant (WERKS).
    In conclusion I like to have this only this row
    ARTNR   FILIA       PFLKN                  QUELL
    002         C001        A                          1

    Hi
    You need to append every article number after each select is performed
    is this an intermal table ZOXE1D0041 with header line ? if yes
    then do this way
    select WLK1~ARTNR
    into ZZARTICLE
    from WLK1 INNER JOIN T001W
    ON WLK1FILIA = T001WKUNNR
    where WLK1~PFLKN NE 'P' AND
    WLK1~PFLKN NE 'S' AND
    WLK1~QUELL NE '2'.
    ZOXE1D0041-ZZLISTARTICLE = ZZARTICLE.
    Append ZOXE1D0041.  " <edited>
    endselect.
    then ZOXE1D0041 will have all article numbers.
    Edited by: Sonal Patel on Sep 5, 2009 10:27 AM

  • Lead Creation Error thro ABAP Code

    Hi CRM ABAP Experts,
    I have written a code for lead creation by referring SDN Code. when i execute code , lead is created and transaction get saved in to system. but atlast one error comes. plz help me.  when i pass testrun = 'X'  then i am not getting error but lead trasaction is not created. and when i passedtestrun = blank then lead is created but gives below error.Below error i am facing.
    Short text
        An exception occurred that was not caught.
    What happened?
        The exception 'CX_OS_OBJECT_NOT_FOUND' was raised, but it was not caught
         anywhere along
        the call hierarchy.
        Since exceptions represent error situations and this error was not
        adequately responded to, the running ABAP program
         'CL_METHODCALL_PPF=============CP' has to be
        terminated.
    Error analysis
        An exception occurred that is explained in detail below.
        The exception, which is assigned to class 'CX_OS_OBJECT_NOT_FOUND', was not
         caught in
        procedure "IF_MEDIUM_PPF~EXECUTE" "(METHOD)", nor was it propagated by a
         RAISING clause.
        Since the caller of the procedure could not have anticipated that the
        exception would occur, the current program is terminated.
        The reason for the exception is:
        Could not find the referenced object with the OID
        "00000000000000000000000000000000" (instance GUID) and
    My Code is as follows
    DATA: it_HEADER type standard table of  BAPIBUS2000108_HEADER_INS.
    DATA: wa_HEADER  like line of it_HEADER.
    DATA:it_ORGANISATION TYPE STANDARD TABLE OF     BAPIBUS20001_ORGMAN_INS,
         wa_ORGANISATION LIKE LINE OF it_ORGANISATION.
    DATA: it_partner type table of BAPIBUS20001_PARTNER_INS.
    DATA: wa_partner like line of it_partner.
    DATA:HEADERX TYPE STANDARD TABLE OF     BAPIBUS2000108_HEADER_INSX,
         st_headerx TYPE bapibus2000108_header_insx,
         PARTNERX TYPE STANDARD TABLE OF BAPIBUS20001_PARTNER_INSX,
         st_partnerx TYPE bapibus20001_partner_insx,
         i_orgx  TYPE STANDARD TABLE OF BAPIBUS20001_ORGMAN_INSX,
         st_orgx TYPE bapibus20001_orgman_insx,
         i_save TYPE TABLE OF bapibus20001_object_id,
         i_return TYPE TABLE OF bapiret2,
         DATEX  TYPE STANDARD TABLE OF BAPIBUS20001_APPOINTMENT_INSX.
    DATA:i_itemx TYPE TABLE OF bapibus20001_item_insx,
         i_item TYPE TABLE OF bapibus20001_item,
         st_itemx TYPE bapibus20001_item_insx,
         st_item TYPE bapibus20001_item,
         i_schedulex TYPE TABLE OF bapibus20001_schedlinx,
         i_schedule TYPE TABLE OF bapibus20001_schedlin,
         st_schedulex TYPE bapibus20001_schedlinx,
         st_schedule TYPE bapibus20001_schedlin.
    DATA :c_x TYPE char01 VALUE 'X',
          TESTRUN type BAPIFLAG-BAPIFLAG.
    data i_input TYPE TABLE OF bapibus20001_input_fields.
    data st_input TYPE bapibus20001_input_fields.
    DATA:ORG_NO TYPE OBJEKTID,
         PARTNER_NO1 TYPE BU_PARTNER,
         CUST_BP TYPE BU_PARTNER,
         SALE_OFF TYPE CRMT_SALES_ORG_RESP.
    DATA:msg TYPE ZRETURN_ERROR.
    DATA:w_item TYPE CRMT_ITEM_NO,
         w_handle TYPE CRMT_HANDLE.
    CLEAR:st_headerx.
    st_headerx-handle = c_x.
    st_headerx-process_type = c_x.
    st_headerx-DESCR_LANGUAGE = c_x.
    st_headerx-POSTING_DATE = c_x.
    st_headerx-lead_type = c_x.
    st_headerx-importance = c_x.
    st_headerx-source = c_x.
    APPEND st_headerx TO headerx.
    CLEAR wa_header.
    wa_HEADER-HANDLE = '0000000001'.
    wa_HEADER-PROCESS_TYPE = 'ZCDL'.
    wa_HEADER-DESCR_LANGUAGE = 'EN'.
    wa_HEADER-POSTING_DATE = '20100603'.
    wa_HEADER-IMPORTANCE = '5'.
    wa_HEADER-SOURCE = '019'.
    wa_HEADER-LEAD_TYPE = '0016'.
    APPEND WA_HEADER TO IT_HEADER.
    CLEAR:st_input.
    st_input-ref_handle = '0000000001'.
    st_input-ref_kind = 'A'.
    st_input-objectname = 'ORDERADM_H'.
    st_input-fieldname = 'PROCESS_TYPE'.
    APPEND st_input TO i_input.
    CLEAR st_input.
    st_input-ref_handle = '0000000001'.
    st_input-ref_kind = 'A'.
    st_input-objectname = 'LEAD_H'.
    st_input-fieldname = 'SOURCE'.
    APPEND st_input TO i_input.
    st_input-fieldname = 'IMPORTANCE'.
    APPEND st_input TO i_input.
    st_input-fieldname = 'LEAD_TYPE'.
    APPEND st_input TO i_input.
    *To fill the Organization X Structure
    CLEAR:st_orgx.
    st_orgx-ref_handle = c_x.
    st_orgx-ref_kind = c_x.
    st_orgx-dis_channel = c_x.
    st_orgx-sales_org_resp = c_x.
    APPEND st_orgx TO i_orgx.
    *To fill the Organization Structure
    CLEAR:wa_ORGANISATION.
    wa_ORGANISATION-ref_handle = '0000000001'.
    wa_ORGANISATION-ref_kind = 'A'.
    wa_ORGANISATION-dis_channel = '01'.
    wa_ORGANISATION-sales_org_resp = 'O 50000041'.
    APPEND wa_ORGANISATION TO it_ORGANISATION.
    *Fill input fields for Organization data
    CLEAR st_input.
    st_input-ref_handle = '0000000001'.
    st_input-ref_kind = 'A'.
    st_input-objectname = 'ORGMAN'.
    st_input-fieldname = 'DIS_CHANNEL'.
    APPEND st_input TO i_input.
    st_input-fieldname = 'SALES_ORG'.
    APPEND st_input TO i_input.
    *To fill the Partner X Structure
    st_partnerx-ref_handle = c_x.
    st_partnerx-ref_kind = c_x.
    st_partnerx-ref_partner_handle = c_x.
    st_partnerx-kind_of_entry = c_x.
    st_partnerx-partner_no = c_x.
    st_partnerx-partner_fct = c_x.
    st_partnerx-no_type = c_x.
    st_partnerx-display_type = c_x.
    st_partnerx-MAINPARTNER = c_x.
    APPEND st_partnerx TO partnerx.
    *To fill the Partner Structure
    *CLEAR:wa_partner.
    *wa_partner-ref_handle = '0000000001'.
    *wa_partner-ref_kind = 'A'.
    *wa_partner-ref_partner_handle = '0001'.
    *wa_partner-kind_of_entry = 'C'.           """""""A
    *wa_partner-partner_no = '62563'.
    *wa_partner-partner_fct = '00000022'.
    *wa_partner-no_type = 'BP'.
    *wa_partner-display_type = 'BP'.
    *wa_partner-MAINPARTNER = 'X'.
    *APPEND wa_partner TO it_partner.
    CLEAR:wa_partner.
    wa_partner-ref_handle = '0000000001'.
    wa_partner-ref_kind = 'A'.
    wa_partner-ref_partner_handle = '0001'.
    wa_partner-kind_of_entry = 'C'.         """""""A
    wa_partner-partner_no = '62564'.
    wa_partner-partner_fct = '00000021'.
    wa_partner-no_type = 'BP'.
    wa_partner-display_type = 'BP'.
    wa_partner-MAINPARTNER = 'X'.
    APPEND wa_partner TO it_partner.
    CLEAR:wa_partner.
    wa_partner-ref_handle = '0000000001'.
    wa_partner-ref_kind = 'A'.
    wa_partner-ref_partner_handle = '0001'.
    wa_partner-kind_of_entry = 'C'.    """"""""A
    wa_partner-partner_no = '71024'.
    wa_partner-partner_fct = 'ZCDLSM'.
    wa_partner-no_type = 'BP'.
    wa_partner-display_type = 'BP'.
    wa_partner-MAINPARTNER = 'X'.
    APPEND wa_partner TO it_partner.
    *Fill input fields for Partner data
    CLEAR st_input.
    st_input-ref_handle = '0000000001'.
    st_input-ref_kind = 'A'.
    st_input-objectname = 'PARTNER'.
    *st_input-logical_key = w_logickey_partner.
    st_input-fieldname = 'DISPLAY_TYPE'.
    APPEND st_input TO i_input.
    st_input-fieldname = 'KIND_OF_ENTRY'.
    APPEND st_input TO i_input.
    st_input-fieldname = 'NO_TYPE'.
    APPEND st_input TO i_input.
    st_input-fieldname = 'PARTNER_FCT'.
    APPEND st_input TO i_input.
    st_input-fieldname = 'PARTNER_NO'.
    APPEND st_input TO i_input.
    st_input-fieldname = 'MAINPARTNER'.
    APPEND st_input TO i_input.
    *To fill the Item X Structure
    st_itemx-handle = c_x.
    st_itemx-header_handle = c_x.
    st_itemx-ordered_prod = c_x.
    st_itemx-number_int = c_x.
    st_item-mode = c_x.
    APPEND st_itemx TO i_itemx.
    *To fill Schedule line X Structure
      st_schedulex-item_handle = c_x.
      st_schedulex-handle = c_x.
      st_schedulex-quantity = c_x.
      st_schedulex-logical_key = c_x.
    APPEND st_schedulex TO i_schedulex.
    CLEAR: w_item, w_handle.
    w_item = '0000000010'.
    *To fill the Item Structure
    w_handle = 1.
    st_item-handle = w_handle.
    st_item-header_handle = '0000000001'.
    st_item-ordered_prod = '400000120' .
    st_item-number_int = w_item.
    st_item-mode = 'A'.
    APPEND st_item TO i_item.
    *To fill Schedule line Structure
    DATA:qty TYPE CRMT_SCHEDLIN_QUAN VALUE '1'.
      st_schedule-item_handle = w_handle.
      st_schedule-quantity = qty.
    APPEND st_schedule TO i_schedule.
    *Fill input fields for Item data
    CLEAR st_input.
    st_input-ref_handle = w_handle.
    st_input-ref_kind = 'B'.
    st_input-objectname = 'ORDERADM_I'.
    st_input-fieldname = 'MODE'.
    APPEND st_input TO i_input.
    st_input-fieldname = 'NUMBER_INT'.
    APPEND st_input TO i_input.
    st_input-fieldname = 'ORDERED_PROD'.
    APPEND st_input TO i_input.
    Fill input fields for schedule line data
    CLEAR st_input.
    st_input-ref_handle = w_handle.
    st_input-ref_kind = 'B'.
    st_input-objectname = 'SCHEDLIN'.
    st_input-fieldname = 'LOGICAL_KEY'.
    APPEND st_input TO i_input.
    st_input-fieldname = 'QUANTITY'.
    APPEND st_input TO i_input.
    CLEAR testrun.
    *Testrun = 'X'.
    CALL FUNCTION 'BAPI_LEAD_CREATEMULTI'
    EXPORTING
       TESTRUN            = Testrun
    TABLES
       HEADERX            = headerx
       PARTNERX           = partnerx
       ORGANISATIONX      = i_orgx
       itemx              = i_itemx
       sched_linx         = i_schedulex
       HEADER             = it_header
       ORGANISATION       = it_ORGANISATION
       PARTNER            = it_partner
       item               = i_item
       SCHED_LIN          = i_schedule
       INPUT_FIELDS       = i_input
       RETURN             = i_return
       SAVED_PROCESS      = i_save  .
    CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'
    EXPORTING
       WAIT          = 'x'.
    IF SY-SUBRC = 0.
      IF sy-subrc = 0.
      ENDIF.
    ENDIF.

    Hi,
    Look at the post. No one will be able to understand anything out of this. Kindly Repaste code using  markup.
    Regards,
    Harsh.
    Edited by: Harsh Saxena on Aug 28, 2010 11:40 AM

  • Error in ABAP code

    Hi experts..
    There is one one routine in BI which is written in ABAP..
    When I try to compile that code.. it gives me following error :
    E:Field "/BI0/APP_O0100" is unknown. It is neither in one of the specified tables nor defined by a "DATA" statement. "DATA" statement.
    Can you please tell me what is the reason of this error.
    Regards
    Swati Phadtare

    Hi,
    This i think is because you have not activated the DSO 0PP_O01..... Please check in your AWB whether this object exits. If it exists then please activate this DSO again.
    If it does not exist then please install it from your BI content.
    If it exists and you need to find the related DB tables
    Go to SE12
    Give * PP_O01 * and press F4, If the DSO has been created you will get some search results.
    From there please select the active table.
    Regards,
    Pramod
    Edited by: Pramod Manjunath on Oct 6, 2008 3:39 PM

  • Some Error in ABAP Code

    Hello,
    I have the below code which gives the error message "In the OO context either an INTO or an ASSIGNING specification or the addition "TRANSPORTING NO FIELDS" must be used. addition "TRANSPORTING NO FIELDS" must be used."
    Any suggestion is appreciated.
    *-- CODE:
    DATA: it_dates TYPE STANDARD TABLE OF /BIC/AZDDINVDT00,
               hold_month(2) type c,
               hold_day(2) type c,
               hold_year(4) type c,
               hold_date TYPE /BIC/OIZOCBEGDAT.
        CLEAR : it_dates.
    SELECT *
              FROM /BIC/AZDDINVDT00
              INTO TABLE it_dates
              WHERE /BIC/ZOCDLDTYP = 'B'.
          CHECK sy-subrc = 0.
          read table it_dates index 1.
          hold_month = it_dates-/bic/zocbegdat+4(2).
          hold_day = it_dates-/bic/zocbegdat+6(2).
          hold_year = it_dates-/bic/zocbegdat+0(4).
          concatenate hold_year hold_month hold_day into hold_date.
          <source_fields>-/BIC/ZOCBEGDAT = hold_date.}

    Jerry,
    I made the changes but still having a small problem running the code. Below is my code & the error that it displays.
    DATA: it_dates TYPE STANDARD TABLE OF /BIC/AZDDINVDT00,
              wa_dates TYPE /BIC/AZDDINVDT00,
              hold_month(2) type c,
              hold_day(2) type c,
              hold_year(4) type c,
              hold_date TYPE /BIC/OIZOCBEGDAT.
    CLEAR : it_dates.
    SELECT *
              FROM /BIC/AZDDINVDT00
              INTO TABLE it_dates
              WHERE /BIC/ZOCDLDTYP = 'B'.
          CHECK sy-subrc = 0.
          read table it_dates INTO wa_dates index 1.
          hold_month = it_dates-/bic/zocbegdat+4(2).
          hold_day = it_dates-/bic/zocbegdat+6(2).
          hold_year = it_dates-/bic/zocbegdat+0(4).
          concatenate hold_year hold_month hold_day into hold_date.
         <source_fields>-/BIC/ZOCBEGDAT = hold_date.
    Error is: "IT_DATES" is a table without a header line and therefore has no component called "/BIC/ZOCBEGDAT".
    Please suggest.
    Thanks.

  • Errors in abap code!!

    Hi gurus,
    iam getting errors like
    1) l_biw_marc_s–matnr is unknown..
    2) l_tabix is unkown ..etc..
    code is :
    TABLES: BIW_MARC_S.
    DATA: l_biw_marc_s LIKE biw_marc_s,
    v_zzstprs LIKE mbew-stprs.
    CASE i_datasource.
    WHEN '0MAT_PLANT_ATTR'(001).
    LOOP AT i_t_data INTO l_biw_marc_s.
    l_tabix = sy-tabix.
    clear v_zzstprs.
    SELECT SINGLE stprs FROM mbew INTO v_zzstprs
    where matnr = l_biw_marc_s–matnr and
    bwkey = l_biw_marc_s – WERKS.
    IF sy-subrc = 0.
    l_biw_marc_s-zzstprs = v_zzstprs.
    ENDIF.
    MODIFY i_t_data FROM l_biw_mvke_s INDEX l_tabix.
    ENDLOOP.
    ENDCASE.
    pls help me out!!
    reply shall be appriciated! as iam not technical bw guy!!
    Regards,
    Jay

    Hi,
    add a statement
    data: l_tabix type i.
    to your code. That should solve one error. The other one might be a spelling issue. Check if you spelled it correctly in your code.
    regards
    Siggi

  • Error in the ABAP code

    Hello all,
    I am getting error in ABAP code .
    The error is:Field "0" is unknown. It is neither in one of the specified tables nor defined by a "DATA" statement.
    I have statement as calmonth = sy-datum + 0(6).
    Any ideas are always welcome
    Thanks,
    JB

    Thanks every body.
    eliminating blanks worked.
    AS I am new to ABAP,I have one more error saying
    Unable to interpret "IT_YEAR". Possible causes of error: Incorrect spelling or comma error.The error occured at the staement:
    <b>read it_year with key /BIC/LESS = calmonth+0(4) binary search.</b>
    IT_YEAR is an internal table
    data: it_year like /BIC/PZ_JB occurs 0 with header line.
    Any ideas!!
    JB

  • How To Create ABAP Code For HR Context Sensitive Structural Authorization

    Hello,
    We have created a HR Custom Program which IS NOT built off the PCH or PNP Logical Database. As a result, we need to manually create ABAP code for HR Context Sensitive Structural Authorization Check in our custom HR program. Via HR Context Sensitive Structural Authorizations, we are restricting access to personnel numbers and the underlying HRP* tables.
    Any assistance would be greatly appreciated with the identification of the SAP standard function modules (Ex. RH_STRU_AUTHORITY_CHECK, HR_CHECK_AUTHORITY_INFTY, HR_CHECK_AUTHORITY_INFTY , etc) used in HR Context Sensitive Structural Authorization Check, how they are used to control HR Structural authorization (P_ORGINCON), and some sample code.
    Thank you in advance for all your assistance,
    Ken Bowers

    Hello Ken
    You can use the interface methods IF_EX_HRPAD00AUTH_CHECK to get the same structural authorization as you can see in PA20/PA30. You need to use the methods set_org_assignment and check_authorization for this purpose. For more information you can refer to include FP50PE21 from line 237 onwards till 270.
    Regards
    Ranganath

  • Error in determining Paper Format for Printout triggering from ABAP Code

    Hi Experts,
    I am trying to trigger a printout from my ABAP code using "NEW-PAGE PRINT ON ...... NEW-PAGE PRINT OFF" statement.
    I am passing the Print Parameters using the FM "GET_PRINT_PARAMETERS" as below:
        CALL FUNCTION 'GET_PRINT_PARAMETERS'
          EXPORTING
            destination    = ls_options-tddest
            copies         = 1
            list_name      = 'Notification'
            list_text      = 'ERROR NOTIFICATION'
            immediately    = 'X'
            release        = 'X'
            new_list_id    = ' '
    *        expiration     =
            line_size      = 79
            line_count     = 23
            layout         = 'X_65_80'
            sap_cover_page = ' '
            receiver       = 'SAP*'
            department     = 'System'
            no_dialog      = 'X'
          IMPORTING
            out_parameters = lv_params.
    But I am facing a problem. Though I am passing X_65_80 to the LAYOUT in the Function Module, it is trying to print in LETTER format. But the specified printer as the printer supports only A4 paper format and as a result, I am not getting any printout.
    Kindly help me with your suggestions to resolve this.
    Thanks in advance.
    Regards,
    Keerthi

    Hi,
    I just found that this problem is even stranger.
    I am able to print the said message on my local printer but when I try to print the same message on a different printer located at a different location, the printout does not get triggered. I am not getting any error messages also in this case.
    What could be the possible reason for this?
    Kindly share your views/experience with me on this one.
    Thank you.
    Regards,
    Keerthi

  • Need help in ABAP code to Enhance the Extract Structure ?????

    Hi all,
        I want to enhance the extract structure to get KBETR & KBRUE fields of KONP table since it didn’t allow me to add those fields while creating the generic extractor because of currency key problems. I want to read all KONP records into internal table with KNUMH (Key). Next, I want to fill them into ZZKBETR & ZZKBRUE of Extract Structure ZOXUR40065 in loop.
    DATA:
      i_t_zrebate like ZOXUR40065 occurs 0 with header line,
      reb_tabix like sy-tabix.
    TABLES: KONP.
      Could you please help me in completing the ABAP code?
    Thanks,
    Venkat.

    Hello Manga,
        I have included the following code in ZXRSAU01:
    WHEN 'ZREBATE'.
    PERFORM ZREBATE_EXIT TABLES C_T_DATA.
    After Double click on ZREBATE_EXIT on perform statement, it created ZXRSAF01 include and the following code is added in it:
    FORM ZREBATE_EXIT TABLES FP_C_T_DATA STRUCTURE ZOXUR40065.
    DATA:
    i_t_zrebate like ZOXUR40065 occurs 0 with header line,
    reb_tabix like sy-tabix.
    FIELD-SYMBOLS: <l_c_t_data> TYPE ZOXUR40065.
    LOOP AT fp_c_t_data ASSIGNING <l_c_t_data>.
    reb_tabix = sy-tabix.
    select single KBETR KBRUE
    into (<l_c_t_data>-ZZKBETR,
    <l_c_t_data>-ZZKBRUE,
    from KONP
    where KNUMH eq <l_c_t_data>-KNUMH.
    if sy-subrc eq 0.
    MODIFY fp_c_t_data FROM <l_c_t_data> INDEX reb_tabix.
    endif.
    CLEAR:reb_tabix.
    ENDLOOP.
    ENDFORM.
    When I tried to Activate this ZXRSAF01 include, it fails with 'The FORM "ZREBATE_EXIT" does not exist'.
      Should it be FP_C_T  or P_C_T? I found P_C_T in ZXRSAF01 include.
      What is wrong with it, please ?
       Can't I add this whole code in main include ZXRSAU01itself?
      The Extractor ZREBATE is based on KONA, KONH & KONP tables. This Extractor and KONA table have the same 4000 records and KONP has 13000 records. I want to extract KBERT & KBRUE from KONP.
       Thanks in advance.
    Regards,
    Venkat

  • Structure of abap code in fi module

    Hi all
    I joined like fresher could you help me how to write the abap code
    structure of the abap code

    CHECK THIS
    I HOPE IT WILL HELP YOU.
    *& Report  ZDTK_FI_CRDB
    *& DESCRIPTION : CREDIT DEBIT NOTE FOR CUSTOMER OR VENDOR.
    REPORT  ZDTK_FI_CRDB NO STANDARD PAGE HEADING
                                LINE-COUNT 65(5)
                                LINE-SIZE 80
                                MESSAGE-ID ZTAR_FI
    *&       STRUCTURE DECLARATION
    TYPES : BEGIN OF TY_ADDR,
                    BUKRS TYPE BUKRS,          "COMPANY CODE
                    LIFNR TYPE LIFNR,          "VENDOR NO
                    KUNNR TYPE KUNNR,          "CUSTOMJER NO
                    NAME1 TYPE NAME1,          "NAME1
                    NAME2 TYPE NAME2,          "NAME2
                    ORT01 TYPE ORT01,          "CITY
                    ORT02 TYPE ORT02,
                    PSTLZ TYPE PSTLZ,          "POSTAL CODE
                    STRAS TYPE STRAS,          "STREET
                    ADRNR TYPE ADRNR,          "ADDRESS NO
                    TELF1 TYPE TELF1,          "TELEFHONE NO
                    TELF2 TYPE TELF2,          "TELEFHONE NO 2
                    TELFX TYPE TELFX,          "FAX
             END OF TY_ADDR,
          BEGIN OF TY_LFA1,
                   KUNNR TYPE KUNNR,          "CUSTOMJER NO
                   NAME1 TYPE NAME1,          "NAME1
                   NAME2 TYPE NAME2,          "NAME2
                   ORT01 TYPE ORT01,          "CITY
                   ORT02 TYPE ORT02,
                   PSTLZ TYPE PSTLZ,          "POSTAL CODE
                   STRAS TYPE STRAS,          "STREET
                   ADRNR TYPE ADRNR,          "ADDRESS NO
                   TELF1 TYPE TELF1,          "TELEFHONE NO
                   TELF2 TYPE TELF2,          "TELEFHONE NO 2
                   TELFX TYPE TELFX,          "FAX
            END OF TY_LFA1,
           BEGIN OF TY_DOCM,
                    GJAHR TYPE GJAHR,
                    BELNR TYPE BELNR_D,
                    BUDAT TYPE BUDAT,
                    BLDAT TYPE BLDAT,
                    BLART TYPE BLART,
                    BSCHL TYPE BSCHL,
                    SHKZG TYPE SHKZG,
                    XBLNR TYPE XBLNR,
                    DMBTR TYPE DMBTR,
                    SGTXT TYPE SGTXT,
                    REBZG TYPE REBZG,
                    REBZJ TYPE REBZJ,
                    KUNNR TYPE KUNNR,
                    LIFNR TYPE LIFNR,
             END OF TY_DOCM.
    *&       TABLE DECLARATION
    DATA : T_ADDR TYPE STANDARD TABLE OF TY_ADDR,
    *&       WORK AREA  DECLARATION
           W_ADDR TYPE TY_ADDR,
           W_DOCM TYPE TY_DOCM,
          W_LFA1 TYPE TY_LFA1,
    *&       GLOBLE VARIABLE DECLARATION
           G_KUNNR TYPE KUNNR,
           G_LIFNR TYPE LIFNR,
           DCAMT TYPE DMBTR.
    *&       INITIALIZATION
    INITIALIZATION.
    CLEAR :
    *REFRESH :
    *&       SELECTION SCREEN DECLARATION
    SELECTION-SCREEN: BEGIN OF BLOCK B1 WITH FRAME TITLE TEXT-001.
    SELECTION-SCREEN SKIP 1.
    PARAMETERS : S_BUKRS TYPE BSID-BUKRS OBLIGATORY DEFAULT '1000'.
    PARAMETERS : S_BELNR TYPE BELNR_D OBLIGATORY DEFAULT '1600000070'.
    PARAMETERS : S_GJAHR TYPE GJAHR OBLIGATORY DEFAULT '2008'.
    PARAMETERS : ASON TYPE BUDAT OBLIGATORY DEFAULT SY-DATUM.
    PARAMETERS : S_KUNNR TYPE KUNNR MODIF ID GP1.
    PARAMETERS : S_LIFNR TYPE LIFNR MODIF ID GP2.
    SELECTION-SCREEN SKIP 1.
    SELECTION-SCREEN : END OF BLOCK B1.
    SELECTION-SCREEN BEGIN OF BLOCK B2 WITH FRAME TITLE TEXT-002.
    SELECTION-SCREEN SKIP 1.
    SELECTION-SCREEN BEGIN OF LINE.
    PARAMETERS R1  RADIOBUTTON GROUP RAO DEFAULT 'X' USER-COMMAND hit.
    SELECTION-SCREEN COMMENT (50) TEXT-003 FOR FIELD R1.
    PARAMETERS R2  RADIOBUTTON GROUP RAO.
    SELECTION-SCREEN COMMENT (50) TEXT-004 FOR FIELD R2.
    SELECTION-SCREEN END OF LINE.
    SELECTION-SCREEN SKIP 1.
    SELECTION-SCREEN END OF BLOCK B2.
    *SELECTION-SCREEN: BEGIN OF BLOCK B3 WITH FRAME TITLE TEXT-005.
    *SELECTION-SCREEN SKIP 1.
    *SELECTION-SCREEN BEGIN OF LINE.
    *PARAMETERS R3  RADIOBUTTON GROUP RAJ DEFAULT 'X' USER-COMMAND hit.
    *SELECTION-SCREEN COMMENT (50) TEXT-006 FOR FIELD R1.
    *PARAMETERS R4  RADIOBUTTON GROUP RAJ.
    *SELECTION-SCREEN COMMENT (50) TEXT-007 FOR FIELD R2.
    *SELECTION-SCREEN END OF LINE.
    *SELECTION-SCREEN SKIP 1.
    *SELECTION-SCREEN : END OF BLOCK B3.
    *&       AT SELECTION SCREEN
    AT SELECTION-SCREEN.
           PERFORM VALIDATE_SELECTION.
    *&       AT SELECTION SCREEN OUTPUT
    AT SELECTION-SCREEN OUTPUT.
           PERFORM SCREEN_OUTPUT.
    *&       START OF SELECTION
    START-OF-SELECTION.
    IF R1 = 'X'.
            PERFORM GET_DOCUMENT_L.
    ELSEIF R2 = 'X'.
            PERFORM GET_DOCUMENT_K.
    ENDIF.
    *&       END OF SELECTION
    END-OF-SELECTION.
    PERFORM DISPLAY.
    *&       TOP OF PAGE
    *TOP-OF-PAGE.
          PERFORM PAGE_HEADER.
    *&      Form  VALIDATE_SELECTION
          text
    form VALIDATE_SELECTION .
    DATA : L_BUKRS TYPE BSID-BUKRS.
    SELECT SINGLE BUKRS FROM KNB1
                        INTO L_BUKRS
                       WHERE BUKRS = S_BUKRS.
    *IF SY-SUBRC <> 0.
    *MESSAGE E001.
    *LEAVE LIST-PROCESSING.
    *ENDIF.
    DATA : L_KUNNR TYPE BSID-KUNNR.
    SELECT SINGLE KUNNR FROM BSID
                        INTO L_KUNNR
                       WHERE KUNNR = S_KUNNR.
    *IF SY-SUBRC <> 0.
    *MESSAGE E002.
    *LEAVE LIST-PROCESSING.
    *ENDIF.
    endform.                    " VALIDATE_SELECTION
    *&      Form  SCREEN_OUTPUT
          text
    form SCREEN_OUTPUT .
        IF R1 = 'X'.
          LOOP AT SCREEN.
            if screen-group1 = 'GP1'.
              SCREEN-active = '0'.
    *SCREEN-INTENSIFIED = '0'.
              MODIFY SCREEN.
            ENDIF.
          ENDLOOP.
        ELSE.
          LOOP AT SCREEN.
            IF SCREEN-group1 = 'GP2'.
              SCREEN-active = '0'.
    *SCREEN-INTENSIFIED = '1'.
              MODIFY SCREEN.
            ENDIF.
          ENDLOOP.
        ENDIF.
    endform.                    " SCREEN_OUTPUT
    *&      Form  GET_DOCUMENT_L
          text
    FORM GET_DOCUMENT_L .
    DATA : MESSG(60).
    SELECT SINGLE BUKRS
                  LIFNR
                  GJAHR
                  BELNR
                  BUDAT
                  BLDAT
                  BLART
                  BSCHL
                  SHKZG
                  DMBTR
                  SGTXT
                  REBZG
                  REBZJ FROM BSIK
                        INTO CORRESPONDING FIELDS OF W_DOCM
                       WHERE BUKRS = S_BUKRS AND
                             GJAHR = S_GJAHR AND
                             BELNR = S_BELNR.
    SELECT SINGLE DMBTR FROM BSIK INTO DCAMT
                       WHERE BELNR = W_DOCM-REBZG AND
                             GJAHR = W_DOCM-REBZJ.
    IF NOT W_DOCM IS INITIAL.
            PERFORM GET_LFA1.
    ELSE.
    SELECT SINGLE BUKRS
                  LIFNR
                  GJAHR
                  BELNR
                  BUDAT
                  BLDAT
                  BLART
                  BSCHL
                  SHKZG
                  DMBTR
                  SGTXT
                  REBZG
                  REBZJ FROM BSAK
                        INTO CORRESPONDING FIELDS OF W_DOCM
                       WHERE BUKRS = S_BUKRS AND
                             GJAHR = S_GJAHR AND
                             BELNR = S_BELNR.
    SELECT SINGLE DMBTR FROM BSAK INTO DCAMT
                       WHERE BELNR = W_DOCM-REBZG AND
                             GJAHR = W_DOCM-REBZJ.
          IF NOT W_DOCM IS INITIAL.
                  PERFORM GET_LFA1.
          ELSE.
          CONCATENATE 'THERE IS NO DOCUMENT NO' S_BELNR S_GJAHR 'FOR VENDOR' INTO  MESSG
                       SEPARATED BY SPACE.
          MESSAGE I011 WITH MESSG.
          LEAVE LIST-PROCESSING.
          ENDIF.
    ENDIF.
    ENDFORM.                    " GET_DOCUMENT_L
    *&      Form  GET_LFA1
          text
    FORM GET_LFA1 .
    SELECT SINGLE LIFNR
                  NAME1
                  NAME2
                  ORT01
                  ORT02
                  PSTLZ
                  STRAS
                  ADRNR
                  TELF1
                  TELF2
                  TELFX FROM LFA1 INTO CORRESPONDING FIELDS OF W_ADDR
                          WHERE LIFNR = W_DOCM-LIFNR.
    ENDFORM.                    " GET_LFA1
    *&      Form  GET_DOCUMENT_K
          text
    FORM GET_DOCUMENT_K .
    DATA : MESSG(60).
    SELECT SINGLE BUKRS
                  KUNNR
                 LIFNR
                  GJAHR
                  BELNR
                  BUDAT
                  BLDAT
                  BLART
                  BSCHL
                  SHKZG
                  DMBTR
                  SGTXT
                  REBZG
                  REBZJ FROM BSID
                        INTO CORRESPONDING FIELDS OF W_DOCM
                       WHERE  BUKRS = S_BUKRS AND
                              GJAHR = S_GJAHR AND
                              BELNR = S_BELNR.
    SELECT SINGLE DMBTR FROM BSID INTO DCAMT
                       WHERE BELNR = W_DOCM-REBZG AND
                             GJAHR = W_DOCM-REBZJ.
    IF NOT W_DOCM IS INITIAL.
            PERFORM GET_KNA1.
    ELSE.
    SELECT SINGLE BUKRS
                  KUNNR
                 LIFNR
                  GJAHR
                  BELNR
                  BUDAT
                  BLDAT
                  BLART
                  BSCHL
                  SHKZG
                  DMBTR
                  SGTXT
                  REBZG
                  REBZJ FROM BSAD
                        INTO CORRESPONDING FIELDS OF W_DOCM
                       WHERE  BUKRS = S_BUKRS AND
                              GJAHR = S_GJAHR AND
                              BELNR = S_BELNR.
    SELECT SINGLE DMBTR FROM BSAD INTO DCAMT
                       WHERE BELNR = W_DOCM-REBZG AND
                             GJAHR = W_DOCM-REBZJ.
          IF NOT W_DOCM IS INITIAL.
                  PERFORM GET_KNA1.
          ELSE.
          CONCATENATE 'THERE IS NO DOCUMENT NO' S_BELNR S_GJAHR 'FOR CUSTOMER' INTO  MESSG
                       SEPARATED BY SPACE.
          MESSAGE I011 WITH MESSG.
          LEAVE LIST-PROCESSING.
          ENDIF.
    ENDIF.
    ENDFORM.                    " GET_DOCUMENT_K
    *&      Form  GET_KNA1
          text
    FORM GET_KNA1 .
    SELECT SINGLE KUNNR
                  NAME1
                  NAME2
                  ORT01
                  ORT02
                  PSTLZ
                  STRAS
                  ADRNR
                  TELF1
                  TELF2
                  TELFX FROM KNA1 INTO CORRESPONDING FIELDS OF W_ADDR
                          WHERE KUNNR = W_DOCM-KUNNR.
    ENDFORM.                    " GET_KNA1
    *&      Form  DISPLAY
          text
    FORM DISPLAY .
    LONG TEXT *************************
    *DATA : BEGIN OF inline OCCURS 0,
    *END OF inline.
    *TYPES: BEGIN OF TY_LONGT,
                   tdformat TYPE tdformat,
                   tdline TYPE tdline,
          END OF TY_LONGT.
    *DATA : TLONGT TYPE STANDARD TABLE OF TY_LONGT,
          WLONGT TYPE TY_LONGT.
    DATA: BEGIN OF DTEXT OCCURS 50.
    *DATA: MATNR LIKE PBIM-MATNR.
    INCLUDE STRUCTURE TLINE.
    DATA: END OF DTEXT.
    DATA: BEGIN OF HTEXT.
    INCLUDE STRUCTURE THEAD.
    DATA: END OF HTEXT.
    DATA: BEGIN OF LTEXT OCCURS 50.
    INCLUDE STRUCTURE TLINE.
    DATA: END OF LTEXT.
    DATA: TNAME LIKE THEAD-TDNAME.
    CONCATENATE S_BUKRS W_DOCM-BELNR S_GJAHR '002' INTO  TNAME.
    *SEPARATED BY SPACE.
    DATA : W_STXL TYPE STXL.
    SELECT SINGLE * FROM STXL INTO W_STXL
                             WHERE TDNAME = TNAME.
    IF NOT W_STXL IS INITIAL.
    *SELECT * FROM PBIM WHERE WERKS IN S_WERKS.
    *MOVE PBIM-BDZEI TO TNAME.
    CALL FUNCTION 'READ_TEXT'
      EXPORTING
        CLIENT                        = SY-MANDT
        ID                            = W_STXL-TDID
        LANGUAGE                      = W_STXL-TDSPRAS
        NAME                          = TNAME
        OBJECT                        = W_STXL-TDOBJECT
      ARCHIVE_HANDLE                = 0
      LOCAL_CAT                     = ' '
    IMPORTING
        HEADER                        = HTEXT
      TABLES
        LINES                         = LTEXT
    EXCEPTIONS
      ID                            = 1
      LANGUAGE                      = 2
      NAME                          = 3
      NOT_FOUND                     = 4
      OBJECT                        = 5
      REFERENCE_CHECK               = 6
      WRONG_ACCESS_TO_ARCHIVE       = 7
      OTHERS                        = 8
    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 LTEXT.
    IF LTEXT-TDLINE NE ''.
    MOVE LTEXT-TDLINE TO DTEXT-TDLINE.
    APPEND DTEXT.
    ENDIF.
    ENDLOOP.
    ENDIF.
    LONG TEXT *************************
    CUSTOMER / VENDOR NO *************************
    DATA : CUVE(10).
    IF R1 = 'X'.
    CUVE = W_ADDR-LIFNR.
    ELSEIF R2 = 'X'.
    CUVE = W_ADDR-KUNNR.
    ENDIF.
    CUSTOMER / VENDOR NO *************************
    CR / DR DATA *************************
    IF DCAMT IS INITIAL.
    SELECT SINGLE DMBTR FROM BSIS INTO DCAMT
                       WHERE BELNR = W_DOCM-REBZG AND
                             GJAHR = W_DOCM-REBZJ .
                          ( KOART = 'D' OR KOART = 'K' ).
    ENDIF.
    CR / DR DATA *************************
    DATA: CNAME TYPE BUTXT.
    SELECT SINGLE BUTXT FROM T001 INTO CNAME
                       WHERE BUKRS = S_BUKRS.
    DATA : NAME(60),
           STREET(60),
           TELFX(60).
    CONCATENATE W_ADDR-NAME1 W_ADDR-NAME2 INTO  NAME
    SEPARATED BY SPACE.
    CONCATENATE W_ADDR-ORT01 W_ADDR-ORT02 'POSTAL CODE :' W_ADDR-PSTLZ INTO  STREET
    SEPARATED BY SPACE.
    CONCATENATE 'Tel No.:' W_ADDR-TELF1 W_ADDR-TELF2 'FAX :' W_ADDR-TELFX INTO  TELFX
    SEPARATED BY SPACE.
    DATA : CRDB(20),
           CRDBA(16),
           BALC TYPE DMBTR.
    IF W_DOCM-SHKZG = 'S'.
    CRDB = 'Debit Note No. :'.
    CRDBA = 'DEBIT'.
    BALC = DCAMT + W_DOCM-DMBTR.
    ELSEIF W_DOCM-SHKZG = 'H'.
    CRDB = 'Credit Note No. :'.
    CRDBA = 'CREDIT'.
    BALC = DCAMT - W_DOCM-DMBTR.
    ENDIF.
    SKIP 5.
    *FORMAT INVERSE.
                ULINE 03(77).
    WRITE : 03 SY-VLINE, 80 '|',
            /03 SY-VLINE, NAME, 54 'Party No.:' COLOR 7, CUVE COLOR 7, 80 '|',
            /03 SY-VLINE, W_ADDR-STRAS, 80 '|',
            /03 SY-VLINE, STREET, 80 '|',
            /03 SY-VLINE, TELFX, 80 '|',
            /03 SY-VLINE, 80 '|',
            /03 SY-VLINE, 80 '|',
            /03 SY-VLINE, 80 '|',
            /03 SY-VLINE, 05 CNAME COLOR 2,  80 '|',
            /03 SY-VLINE, 36 CRDB RIGHT-JUSTIFIED, 59 W_DOCM-BELNR, 71 W_DOCM-GJAHR, 80 '|',
            /03 SY-VLINE, 58 'DATE :', W_DOCM-BUDAT, 80 '|',
            /03 SY-VLINE, 80 '|'. ULINE 03(77).
    WRITE : /03 SY-VLINE, 80 '|'.
    IF NOT DTEXT IS INITIAL.
    LOOP AT DTEXT.
    WRITE : /03 SY-VLINE, 05 DTEXT-TDLINE COLOR 1, 80 '|'.
    ENDLOOP.
    ELSEIF W_DOCM-SGTXT NE ''.
    WRITE : /03 SY-VLINE, 05 W_DOCM-SGTXT COLOR 1, 80 '|'.
    ELSE.
    WRITE : /03 SY-VLINE, 80 '|'.
    ENDIF.
    WRITE : /03 SY-VLINE, 80 '|',
    *WRITE : /03 SY-VLINE, TNAME, 80 '|',
           /03 SY-VLINE, 80 '|',
            /03 SY-VLINE, 80 '|',
            /03 SY-VLINE, 80 '|',
            /03 SY-VLINE, 08 'WORKING OF INTEREST CALCULATION AS ON                                   ' COLOR 4,
             47 ASON COLOR 4, '  [ 360 DAYS BASIS ]' COLOR 4, 80 '|',
            /03 SY-VLINE, 80 '|'. ULINE 03(77).
    WRITE : /03 SY-VLINE, 11 'DATE', 23 'INVOICE', 41 CRDBA, 55 'BALANCE', 64 'DAYS', 70 'INTEREST', 80 '|',
            /03 SY-VLINE, 23 ' AMOUNT', 41 'AMOUNT', 55' AMOUNT', 70 ' @ 8.00% ', 80 '|',
            /03 SY-VLINE, 80 '|'. ULINE 03(77).
    WRITE : /03 SY-VLINE, 80 '|',
            /03 SY-VLINE, 06 W_DOCM-BUDAT, 15 DCAMT, 32 W_DOCM-DMBTR, 47 BALC, 80 '|',
            /03 SY-VLINE, 80 '|',
            /03 SY-VLINE, 80 '|',
            /03 SY-VLINE, 80 '|',
            /03 SY-VLINE, 80 '|',
            /03 SY-VLINE, 80 '|',
            /03 SY-VLINE, 80 '|',
            /03 SY-VLINE, 80 '|',
            /03 SY-VLINE, 80 '|',
            /03 SY-VLINE, 80 '|',
            /03 SY-VLINE, 80 '|'. ULINE 03(77).
    WRITE : /03 SY-VLINE, 80 '|',
            /03 SY-VLINE, 80 '|',
            /03 SY-VLINE, 80 '|',
            /03 SY-VLINE, 10 'PREPARED BY', 35 'ACCOUNTANT', 60 'MANAGER', 80 '|',
            /03 SY-VLINE, 80 '|',
            /03 SY-VLINE, 80 '|'. ULINE 03(77).
    ENDFORM.                    " DISPLAY

  • HTTP Error with Status code 403 when using ABAP Server Proxies

    Hi All,
    I have been working on ABAP Client and Server proxies in my project. The weblogs by Ravikumar, Prateek Shah,  Siva Maranani & VijayaKumari were very helpful and thank them all for just helpful and guiding postings.
    Interfaces using Client proxies are working fine and have been tested successfully. But I'm facing bit problems with Server Proxies. The scenario is of File to SAP system via XI. Data is coming correct up to Technical routing in pipeline but at call adapter(for Server Proxy to SAP)in XI pipeline I receive Error:
    HTTP response contains status code 403 with the description Business Server Page (BSP) Error Error when sending by HTTP (error code: 403, error text: Business Server Page (BSP) Error)
    Previously I was receiving authentication and authorization related error of status code 401 and then in communication channel I replaced user profile with a user id having role SAP_XI_APPL_SERV_USER. The basis peron has created new user id with role SAP_XI_APPL_SERV_USER  only and that I'm using. I've tried creating a HTTP destination with the created user id and in test connection too receive same error message.
    Please help me out with your inputs and understanding on the topic.
    Thanks and Best Regards
    Prashant Rajani

    Hi Prashant,
    Please take a look at these threads..They deal with the same problem, and they have been resolved here.
    BSP Authorization error
    Service cannot be reached .  error code 403 the reason forbiddn
    403 Error when accessing the server
    Hope your issue gets resolved.
    cheers,
    Prashanth
    P.S Please mark helpful answers

Maybe you are looking for

  • HT3258 how to uninstall the installed incompatible  third party application?

    have install the incompatible application named "asphalt 6". but it doesn't remove from my machine. do you please tell me how to uninstall that type of application?

  • Enjoy purchase order transaction

    Hi All, Can anybody tell me how get idea on Enjoy Purchase Order. ie, how to update it ie, using bapi. Can anybody explain it in detail. regards, phaneendra.

  • Basic questions about NWDI structure

    Hello All, I have read some materials about the Java development process within SAP J2EE engine. Here I just want to confirm with you some knowledge points and ask some questions about the configuration of NWDI before proceeding Java development. 1.

  • Georaster metadata in Mapviewer

    I've loaded a grayscale tif into Georaster and can view in Mapviewer (10.1.2). I'm manipulating the Georaster appearance by updating its metadata through SDO_GEOR.setGrayScale. I can see the change when viewed in the standalone GeorasterViewer, but M

  • Tech support UK.

    How come, not only is my phone going Mental and shutting itself and apps down,that everytime i phone tech support an get through to a advisor that they ask for my name an then can't hear me an hang-up? So not only do I have a huge problem on my only