Skip to Content
avatar image
Former Member

QM notification RAISE_EXCEPTION error

While notification creation I am getting a dump when I click on the save button.

The error is :

RAISE_EXCEPTION

Exception condition "OTHERS" raised.

Program                     SAPLIQS1

Include                       LIQS1F10

Row                           306

Module type               (FORM)

Module name             MSG_STORE

In this the function module ISQ1_MSG_STORE returns sy-subrc = 4 which raises the Exception.

Add comment
10|10000 characters needed characters exceeded

  • Get RSS Feed

5 Answers

  • avatar image
    Former Member
    Dec 30, 2014 at 05:06 AM

    Contact you QM consultant for the same. Program is standard.

    Add comment
    10|10000 characters needed characters exceeded

  • avatar image
    Former Member
    Dec 31, 2014 at 05:45 AM

    method IF_EX_NOTIF_EVENT_SAVE~CHANGE_DATA_AT_SAVE.

    IF SY-TCODE = 'QM01' OR SY-TCODE = 'QM02' OR SY-TCODE = 'QE01'.

    DATA : MATTEXT TYPE MAKTX,

           CHALLAN TYPE XBLNR,

           NAME1 TYPE NAME1_GP,

           NAME3 TYPE NAME3_GP,

           ORT01 TYPE ORT01_GP,

           PSTLZ TYPE PSTLZ,

           STRAS TYPE STRAS_GP,

           SNO(5)  TYPE C,

           G_ANZAHL TYPE I.

    DATA : TABLE1 TYPE STANDARD TABLE OF TAB_WQMFE,

           WA1 TYPE WQMFE,

           WA2 TYPE WQMFE.

    DATA : I_FINAL TYPE STANDARD TABLE OF WQMFE.

    DATA : W_FINAL TYPE WQMFE.

    DATA : ITAB_QALS TYPE STANDARD TABLE OF QALS,

           WA_QALS TYPE QALS.

    DATA : IT_QASE TYPE STANDARD TABLE OF QASE,

           WA_QASE TYPE QASE.

    DATA : W_QAMV TYPE QAMV.

    DATA : TOLERAN TYPE CHAR20.

    DATA : TOLEZUB TYPE CHAR20.

    DATA : WA_LFA1 TYPE LFA1.

    DATA : WA_QAVE TYPE QAVE.

    DATA : WA_QPCT TYPE QPCT.

    DATA: OUTPUT type ssfcompop.

    DATA: CONTROL type SSFCTRLOP.

    DATA : v_form_name TYPE rs38l_fnam.

    DATA : st_document_output_info  TYPE ssfcrespd.

    DATA : DECISION TYPE CHAR50.

    DATA : JOB_OUTPUT_INFO type ssfcrescl.

    DATA : JOB_OUTPUT_OPTIONS type SSFCRESOP.

    DATA : v_bin_filesize TYPE i.

    DATA : it_otf      TYPE STANDARD TABLE OF itcoo,

           it_docs     TYPE STANDARD TABLE OF docs,

           it_lines    TYPE STANDARD TABLE OF tline.

    DATA : WA_LINES TYPE TLINE.

    DATA : bin_filesize TYPE i.

    DATA : i_tline TYPE TABLE OF tline.

    DATA : P_MAIL type string.

    DATA : ITAB_QAMKR TYPE STANDARD TABLE OF QAMKR.

    DATA : WA_QAMKR TYPE QAMKR.

    DATA : MGEIN TYPE MGEIN.

      DATA : W_SENT_ALL(1) TYPE C.

      data : dec2 type p decimals 2.

      data : adrnr1 type string.

      DATA:   T_PACKING_LIST TYPE TABLE OF SOPCKLSTI1,

              LD_ATTFILENAME TYPE  SO_OBJ_DES.

      DATA:   IT_MESS_ATT TYPE TABLE OF SOLISTI1,

              T_ATTACHMENT TYPE TABLE OF SOLISTI1.

      DATA : W_ATT2 TYPE SOLISTI1.

      DATA :  T_RECEIVERS TYPE TABLE OF SOMLRECI1,

              IT_MESS TYPE STRING,

              W_DOC_DATA TYPE SODOCCHGI1,

              W_CNT TYPE I.

      DATA:   TB_PDF255 TYPE SO_TEXT255 ,

              GD_SUBJECT   TYPE SODOCCHGI1-OBJ_DESCR.

      DATA :T_BUFFER TYPE STRING.

      DATA: T_OTFDATA  TYPE SSFCRESCL.

      DATA: T_OTF      TYPE ITCOO ,

            GD_BUFFER  TYPE STRING,

            time1(8),

            subdat(10),

            currdate(10),

            IT_MESS_BOD TYPE TABLE OF SOLISTI1 .

      DATA : CUST_MAIL TYPE STRING.

      DATA : CC_MAIL TYPE STRING.

      DATA : CC_MAIL2 TYPE STRING.

      DATA : CC_MAIL3 TYPE STRING.

      DATA : W_PACKING_LIST TYPE SOPCKLSTI1.

      DATA : W_MESS_ATT TYPE SOLISTI1.

      DATA : W_ATTACHMENT TYPE SOLISTI1.

      DATA : W_RECEIVERS TYPE SOMLRECI1.

      DATA : W_MESS_BOD TYPE SOLISTI1.

      data : obid type SOFOLENTI1-OBJECT_ID.

      DATA : M_NO TYPE string,

           OBJECT_TYP TYPE STRING,

           OBJECT_YEAR(2),

           OBJECT_ID TYPE STRING,

           FLAG,

           lcam type string.

    DATA : SOST TYPE STANDARD TABLE OF SOST, WA_SOST TYPE SOST.

      

    DATA : ADRNR TYPE KNA1-ADRNR.

    DATA : PERSNO TYPE USR21-PERSNUMBER.

    DATA : ADRNR2 TYPE KNA1-ADRNR.

    DATA : FULL_PATH TYPE STRING.

    DATA : file_size TYPE i.

    DATA : REMARKS TYPE STRING.

    DATA : CHAR_REQUIREMENTS TYPE STANDARD TABLE OF BAPI2045D1,

           WA_REQUIREMENTS TYPE BAPI2045D1.

    DATA : CHAR_RESULTS TYPE STANDARD TABLE OF BAPI2045D2,

           WA_CRESULTS TYPE   BAPI2045D2.

    DATA : SINGLE_RESULTS TYPE STANDARD TABLE OF BAPI2045D4,

           WA_SRESULTS TYPE BAPI2045D4.

    DATA : QM_LINES TYPE TABLE OF TLINE,

           WAQM_LN TYPE TLINE.

    DATA : QMNUM TYPE THEAD-TDNAME.

    DATA : P_SENDER TYPE SOMLRECI1-RECEIVER VALUE 'd.raval@texspin.com'.

    DATA : LOG1 TYPE STANDARD TABLE OF ZLOG, WA_LOG1 TYPE ZLOG.

    DATA : GT_PDF  TYPE TABLE OF SOLISTI1.

    data: LT_CONTENTS_BIN TYPE TABLE OF SOLISTI1.

    DATA : v_lines_txt TYPE I.

    *---------------------------------------------------------------------------------------------------------------------------------------------------------

    **********************************************************************************************************************************************************

    CLEAR SNO.

    SELECT SINGLE MAKTX FROM MAKT INTO MATTEXT WHERE MATNR = CS_VIQMEL-MATNR.

      SELECT SINGLE XBLNR FROM MKPF INTO CHALLAN WHERE MBLNR = CS_VIQMEL-MBLNR.

         SELECT SINGLE NAME1 NAME3 ORT01 PSTLZ STRAS FROM LFA1 INTO (NAME1,NAME3,ORT01,PSTLZ,STRAS) WHERE LIFNR = CS_VIQMEL-LIFNUM.

            SELECT * FROM QASE INTO TABLE IT_QASE WHERE PRUEFLOS = CS_VIQMEL-PRUEFLOS AND MBEWERTG = 'R'.  """ Inspection Lot Characteristics Results for Sample

    "Fetch customer Data

              SELECT SINGLE * FROM LFA1 INTO WA_LFA1 WHERE LIFNR = CS_VIQMEL-LIFNUM.

    " Fetch Decision Data

                SELECT SINGLE * FROM QAVE INTO WA_QAVE WHERE PRUEFLOS = CS_VIQMEL-PRUEFLOS.

                   IF SY-SUBRC = 0.

                        SELECT SINGLE * FROM QPCT INTO WA_QPCT WHERE CODE = WA_QAVE-VCODE

                                  AND SPRACHE = 'EN'.

                   ENDIF.

              CS_VIQMEL-RGMNG = CS_VIQMEL-BZMNG - CS_VIQMEL-RKMNG.

                        MGEIN = CS_VIQMEL-MGEIN.

      IF NOT WA_QPCT-KURZTEXT IS INITIAL.

               CONCATENATE WA_QPCT-CODE WA_QPCT-KURZTEXT INTO DECISION separated by space.

      ENDIF.

    QMNUM = CS_VIQMEL-QMNUM.

      CALL FUNCTION 'READ_TEXT'

      EXPORTING

       CLIENT                        = SY-MANDT

        ID                            = 'LTQM'

        LANGUAGE                      = SY-LANGU

        NAME                          = QMNUM

        OBJECT                        = 'QMEL'

    *   ARCHIVE_HANDLE                = 0

    *   LOCAL_CAT                     = ' '

    * IMPORTING

    *   HEADER                        =

    *   OLD_LINE_COUNTER              =

      TABLES

        LINES                         = QM_LINES

    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 QM_LINES INTO WAQM_LN.

      CONCATENATE REMARKS WAQM_LN-TDLINE INTO REMARKS.

    ENDLOOP.

    CALL FUNCTION 'BAPI_INSPOPER_GETDETAIL'

      EXPORTING

        INSPLOT                            = CS_VIQMEL-PRUEFLOS

        INSPOPER                           = '0010'

    *   READ_INSPPOINTS                    = ' '

       READ_CHAR_REQUIREMENTS             = 'X'

       READ_CHAR_RESULTS                  = 'X'

    *   READ_SAMPLE_RESULTS                = ' '

       READ_SINGLE_RESULTS                = 'X'

    *   READ_CHARS_WITH_CLASSES            = ' '

    *   READ_CHARS_WITHOUT_RECORDING       = ' '

    *   RES_ORG                            = ' '

    *   CHAR_FILTER_NO                     = '1   '

    *   CHAR_FILTER_TCODE                  = 'QE11'

    *   MAX_INSPPOINTS                     = 100

    *   INSPPOINT_FROM                     = 0

    *   HANDHELD_APPLICATION               = ' '

    * IMPORTING

    *   OPERATION                          =

    *   INSPPOINT_REQUIREMENTS             =

    *   RETURN                             =

    TABLES

    *   INSPPOINTS                         =

       CHAR_REQUIREMENTS                  = CHAR_REQUIREMENTS

       CHAR_RESULTS                       = CHAR_RESULTS

    *   SAMPLE_RESULTS                     =

       SINGLE_RESULTS                     = SINGLE_RESULTS

              .

               DESCRIBE TABLE CT_IWQMFE LINES G_ANZAHL.

             IF G_ANZAHL GT 0.

      LOOP AT CT_IWQMFE INTO WA1 WHERE KZLOESCH = SPACE.

               MOVE-CORRESPONDING WA1 TO WA2.

    *           IF SY-TABIX > 1.

    **           PERFORM SKIP_AUSFUEHREN.

    *           ENDIF.

              CALL FUNCTION 'QPK1_CODE_TEXT'

                EXPORTING

                  I_KATALOGART            = IS_TQ80-FEKAT

                  I_CODEGRUPPE            = WA2-FEGRP

                  I_CODE                  = WA2-FECOD

                  I_SPRACHE               = SY-LANGU

               IMPORTING

                  E_TEXT                  = WA2-TXTCDGR

    *             E_GROUPTEXT             =

               EXCEPTIONS

                 NO_MATCH_IN_RANGE       = 1

                 OTHERS                  = 2

                        .

              IF SY-SUBRC <> 0.

              " MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.

              ENDIF.

    IF WA2-MERKNR IS NOT INITIAL.

            SNO = SNO + 1.

          W_FINAL-FENUM = SNO.                         " Serial number

          W_FINAL-TXTCD = WA2-TXTCD.                 " Name of defects

    READ TABLE CHAR_REQUIREMENTS INTO WA_REQUIREMENTS WITH KEY INSPOPER = '0010'

                                                               INSPCHAR = WA2-MERKNR.

    CONCATENATE WA_REQUIREMENTS-CHAR_DESCR W_FINAL-TXTCD  INTO W_FINAL-TXTCDGROT separated by '/'.

    CONDENSE : WA_REQUIREMENTS-LW_TOL_LMT, WA_REQUIREMENTS-UP_TOL_LMT.

    CONCATENATE WA_REQUIREMENTS-LW_TOL_LMT WA_REQUIREMENTS-UP_TOL_LMT INTO W_FINAL-EBORT separated by '-'. " Specs of characteristics

    *CLEAR WA_REQUIREMENTS.

    READ TABLE CHAR_RESULTS INTO WA_CRESULTS WITH KEY INSPOPER = '0010'

                                                      INSPCHAR = WA2-MERKNR.

          W_FINAL-FETXT = WA_CRESULTS-MEAN_VALUE.  " Result for characteristics

          W_FINAL-ANZFEHLER = WA2-ANZFEHLER.         " Number of defects

          APPEND W_FINAL TO I_FINAL.

          CLEAR : W_FINAL, WA_REQUIREMENTS.

    ELSE.

          SNO = SNO + 1.

          W_FINAL-FENUM = SNO.

          W_FINAL-TXTCDGROT = WA2-TXTCD.

    *      WA-FETXT = WQMFE-FETXT.

          W_FINAL-ANZFEHLER = WA2-ANZFEHLER.

          APPEND W_FINAL TO I_FINAL.

          CLEAR W_FINAL.

    ENDIF.

    ENDLOOP.

         ENDIF.

      output-tddest    = 'LP01'.             "Spool: Output device

      output-tdimmed   = 'X'.               "Print Immediately

      output-tddelete  = space.            "Delete After Printing

      output-tdnewid   = 'X'.                 "New Spool Request

      control-device    = 'PRINTER'.

      control-GETOTF = 'X'.

      control-no_dialog = 'X'.

      control-langu     = sy-langu.

      control-preview = 'X'.

    CALL FUNCTION  'SSF_FUNCTION_MODULE_NAME'             "commented by gaurav

      EXPORTING

        FORMNAME                 = 'ZNOTIF_EMAIL'

    *   VARIANT                  = ' '

    *   DIRECT_CALL              = ' '

    IMPORTING

       FM_NAME                  = v_form_name

    EXCEPTIONS

       NO_FORM                  = 1

       NO_FUNCTION_MODULE       = 2

       OTHERS                   = 3

              .

    IF SY-SUBRC <> 0.

    * MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO

    *         WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.

    ENDIF.

    SELECT SINGLE * FROM QALS INTO WA_QALS WHERE PRUEFLOS = CS_VIQMEL-PRUEFLOS.

    CALL FUNCTION v_form_name       "Commented by gaurav

    EXPORTING

         CONTROL_PARAMETERS = CONTROL

         output_options     = OUTPUT

         SUP_CODE           = CS_VIQMEL-LIFNUM

         NAME1              = WA_LFA1-NAME1"

         NAME3              = WA_LFA1-NAME3

         ORT01              = WA_LFA1-ORT01

         STRAS              = WA_LFA1-STRAS

         PSTLZ              = WA_LFA1-PSTLZ

         QMNUM              = CS_VIQMEL-QMNUM

         ERDAT              = CS_VIQMEL-ERDAT

         MATNR              = CS_VIQMEL-MATNR

         MATTEXT            = MATTEXT

         CHALLAN            = CHALLAN

         GRRNO              = CS_VIQMEL-MBLNR

         INSLOT             = CS_VIQMEL-PRUEFLOS

         DECISION           = DECISION

         RECIEVED           = CS_VIQMEL-BZMNG

         ACCEPTED           = CS_VIQMEL-RGMNG

         REJECTED           = CS_VIQMEL-RKMNG

         MGEIN              = MGEIN

         REMARKS            = REMARKS

         USER_SETTINGS      = ' '

    IMPORTING

       DOCUMENT_OUTPUT_INFO       = st_document_output_info

       JOB_OUTPUT_INFO            = JOB_OUTPUT_INFO

       JOB_OUTPUT_OPTIONS         = JOB_OUTPUT_OPTIONS

    TABLES

      I_FINAL                        = I_FINAL

    EXCEPTIONS

       FORMATTING_ERROR             = 1

       INTERNAL_ERROR               = 2

       SEND_ERROR                   = 3

       USER_CANCELED                = 4

       OTHERS                       = 5

              .

    IF SY-SUBRC <> 0.

    * MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO

    *         WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.

    *ELSEIF SY-SUBRC = 0.

    *  SUPP = 2.

    ENDIF.

    IT_OTF[] = JOB_OUTPUT_INFO-otfdata[].

    data : pdf_bin TYPE xstring   ,

             pdf_content TYPE solix_tab .

    CALL FUNCTION 'CONVERT_OTF'

        EXPORTING

          format                = 'PDF'

          max_linewidth         = 132

        IMPORTING

          bin_filesize          = BIN_filesize

          bin_file              = pdf_bin

        TABLES

          otf                   = IT_otf

          lines                 = it_lines

        EXCEPTIONS

          err_max_linewidth     = 1

          err_format            = 2

          err_conv_not_possible = 3

          OTHERS                = 4.

    pdf_content = cl_document_bcs=>xstring_to_solix( pdf_bin ).

    DATA : WA_BUFFER TYPE STRING.

    LOOP AT IT_LINES INTO WA_LINES.

      TRANSLATE WA_LINES USING '~'.

      CONCATENATE WA_BUFFER WA_LINES INTO WA_BUFFER.

    ENDLOOP.

    TRANSLATE WA_BUFFER USING '~'.

    DO.

      W_ATTACHMENT = WA_BUFFER.

      APPEND W_ATTACHMENT TO LT_CONTENTS_BIN.

      CLEAR W_ATTACHMENT.

      SHIFT WA_BUFFER LEFT BY 255 PLACES.

      IF WA_BUFFER IS INITIAL.

        EXIT.

      ENDIF.

    ENDDO.     "" commented conversion of file to binary.

    W_MESS_BOD = 'Dear Sir,'.

      APPEND W_MESS_BOD TO IT_MESS_BOD.

    W_MESS_BOD = space.

      APPEND W_MESS_BOD TO IT_MESS_BOD.

    W_MESS_BOD = 'The lot dispatched by you is having Quality issues.'.

      APPEND W_MESS_BOD TO IT_MESS_BOD.

    W_MESS_BOD = 'Pl. take necessary Corrective and Preventive actions immediately at your end & confirm us.'.

      APPEND W_MESS_BOD TO IT_MESS_BOD.

    W_MESS_BOD = space.

      APPEND W_MESS_BOD TO IT_MESS_BOD.

    W_MESS_BOD = 'For any queries pl. contact to Receipt QA at phone no..'.

      APPEND W_MESS_BOD TO IT_MESS_BOD.

    W_MESS_BOD = space.

      APPEND W_MESS_BOD TO IT_MESS_BOD.

    W_MESS_BOD = 'Sincerely'.

      APPEND W_MESS_BOD TO IT_MESS_BOD.

    W_MESS_BOD = 'XYZ Companies Ltd.'.

      APPEND W_MESS_BOD TO IT_MESS_BOD.

    CLEAR W_PACKING_LIST.

    DESCRIBE TABLE IT_MESS_BOD LINES v_lines_txt .

      W_PACKING_LIST-TRANSF_BIN = SPACE.       "mail body parameters

    *  W_PACKING_LIST-TRANSF_BIN = 'X'.

      W_PACKING_LIST-BODY_NUM = v_lines_txt.

      W_PACKING_LIST-HEAD_START = 1.

      W_PACKING_LIST-HEAD_NUM   = 0.

      W_PACKING_LIST-BODY_START = 1.

      W_PACKING_LIST-DOC_TYPE = 'RAW'.

      APPEND W_PACKING_LIST TO T_PACKING_LIST.

      CLEAR W_PACKING_LIST.

      DATA : notifnum type string.

      notifnum = CS_VIQMEL-QMNUM.

      CONCATENATE 'SNCR_' notifnum into notifnum.

    *  DESCRIBE TABLE LT_CONTENTS_BIN LINES W_PACKING_LIST-BODY_NUM.

    DESCRIBE TABLE pdf_content LINES W_PACKING_LIST-BODY_NUM.

        W_PACKING_LIST-transf_bin = 'X'.

        W_PACKING_LIST-head_start = 1.

        W_PACKING_LIST-head_num = 0.

        W_PACKING_LIST-body_start = 1.

        W_PACKING_LIST-doc_type = 'PDF'.

        W_PACKING_LIST-obj_name   = 'ATTACHMENT'.

        W_PACKING_LIST-obj_descr  = notifnum.""""

    *    W_PACKING_LIST-doc_size = ( v_lines_bin - 1 ) * 255 + STRLEN( W_ATT2 ).

         W_PACKING_LIST-doc_size = W_PACKING_LIST-BODY_NUM * 255.

        APPEND W_PACKING_LIST TO T_PACKING_LIST.

        CLEAR W_PACKING_LIST.

        CLEAR W_ATT2.

    CLEAR W_ATTACHMENT.

    *DESCRIBE TABLE LT_CONTENTS_BIN LINES W_CNT.

    *READ TABLE LT_CONTENTS_BIN INTO W_ATTACHMENT INDEX v_lines_txt .

    *W_DOC_DATA-doc_size = v_lines_txt * 255.

    W_DOC_DATA-doc_size = 1.

    *  W_DOC_DATA-doc_size = ( v_lines_txt - 1 ) * 255 + STRLEN( w_ATTACHMENT ).

      w_doc_data-obj_langu  = sy-langu.

      w_doc_data-obj_name   = 'SAPRPT'.

      W_DOC_DATA-obj_descr   = 'Non Conformance Report'.

      W_DOC_DATA-SENSITIVTY = 'F'.

    *            SELECT SINGLE ADRNR FROM LFA1 INTO ADRNR WHERE LIFNR = CS_VIQMEL-LIFNUM.

    *               SELECT SINGLE SMTP_ADDR FROM ADR6 INTO CUST_MAIL WHERE ADDRNUMBER = ADRNR.

    *

    *            SELECT SINGLE PERSNUMBER ADDRNUMBER FROM USR21 INTO (PERSNO, ADRNR2) WHERE BNAME = SY-UNAME.

    *               SELECT SINGLE SMTP_ADDR FROM ADR6 INTO CC_MAIL WHERE PERSNUMBER = PERSNO

    *                                                                  AND ADDRNUMBER = ADRNR2.

          IF CUST_MAIL IS INITIAL.

    ********

    *        CUST_MAIL = 'XXXXXXXXXXXXXXXXXXXXXX'.

            CUST_MAIL = 'XXXXXXXXXXXXXXXXXXXXXXX'.

            CC_MAIL = 'XXXXXXXXXXXXXXXXXXXXXXXX'.

            CC_MAIL2 = 'XXXXXXXXXXXXXXXXXXXXXXXX'.

            CC_MAIL3 = 'XXXXXXXXXXXXXXXXXXXXXXXX'.

          ENDIF.

      CLEAR W_RECEIVERS.

      REFRESH T_RECEIVERS.

      W_RECEIVERS-RECEIVER =  cust_mail.                 "reciever's info

      W_RECEIVERS-REC_TYPE = 'U'.

      W_RECEIVERS-COM_TYPE = 'INT'.

      W_RECEIVERS-NOTIF_DEL = 'X'.

      W_RECEIVERS-COPY      = ''.

      W_RECEIVERS-NOTIF_NDEL = 'X'.

      APPEND W_RECEIVERS TO T_RECEIVERS.

      W_RECEIVERS-RECEIVER = cc_mail.

      W_RECEIVERS-REC_TYPE = 'U'.

      W_RECEIVERS-COPY = 'X' . "                          this will send the receiver as cc

       APPEND W_RECEIVERS TO T_RECEIVERS.

      W_RECEIVERS-RECEIVER = cc_mail2.

      W_RECEIVERS-REC_TYPE = 'U'.

      W_RECEIVERS-COPY = 'X' . "                          this will send the receiver as cc

       APPEND W_RECEIVERS TO T_RECEIVERS.

      W_RECEIVERS-RECEIVER = cc_mail3.

      W_RECEIVERS-REC_TYPE = 'U'.

      W_RECEIVERS-COPY = 'X' . "                          this will send the receiver as cc

       APPEND W_RECEIVERS TO T_RECEIVERS.

    CALL FUNCTION 'SO_NEW_DOCUMENT_ATT_SEND_API1'

      EXPORTING

       DOCUMENT_DATA                    = W_DOC_DATA

    *   PUT_IN_OUTBOX                    = 'X'

       COMMIT_WORK                      = 'X'

    IMPORTING

       SENT_TO_ALL                      = W_SENT_ALL

       NEW_OBJECT_ID                    = OBID

      TABLES

        PACKING_LIST                     = T_PACKING_LIST

    *   OBJECT_HEADER                    =

    *   CONTENTS_BIN                     = LT_CONTENTS_BIN

       CONTENTS_TXT                     = IT_MESS_BOD

       CONTENTS_HEX                     = pdf_content

    *   OBJECT_PARA                      =

    *   OBJECT_PARB                      =

        RECEIVERS                        = T_RECEIVERS

    EXCEPTIONS

       TOO_MANY_RECEIVERS               = 1

       DOCUMENT_NOT_SENT                = 2

       DOCUMENT_TYPE_NOT_EXIST          = 3

       OPERATION_NO_AUTHORIZATION       = 4

       PARAMETER_ERROR                  = 5

       X_ERROR                          = 6

       ENQUEUE_ERROR                    = 7

       OTHERS                           = 8.

      wait up to 2 seconds.

      SUBMIT rsconn01 WITH mode = 'INT'

                      AND RETURN.

    ENDIF.

    endmethod.


    Due to this code in the BADI, the standard internal tables ITAB_JEST and ITAB_JSTO get cleared.


    This gives the above mentioned dump.


    While debugging the standard process, the code in BADI gets executed successfully once and the standard program execution is carried on


    THE FUNCTION MODULE "BAPI_INSPOPER_GETDETAIL" GETS CALLED IN THE SOMEWHERE IN THE STANDARD AND COMES OUT INSIDE THE BADI CODE AT THE END OF THIS FUNCTION MODULE.

    AS SOON AS THIS HAPPENS THE INTERNAL TABLE ITAB_JEST AND ITAB_JSTO GET CLEARED.

    Add comment
    10|10000 characters needed characters exceeded

  • avatar image
    Former Member
    Dec 31, 2014 at 10:29 AM

    This message was moderated.

    Add comment
    10|10000 characters needed characters exceeded

  • avatar image
    Former Member
    Dec 31, 2014 at 11:11 AM

    These tables are not there in the method parameters , these are present in the standard program. and while debugging I found that the problem is due to these tables getting cleared.

    I executed the entire process after deactivating the Badi Implementation, I dont get a dump then.

    <removed>

    Message was edited by: Matthew Billingham - "urgent" "asap" etc. are not permitted, and can result in your message being rejected.

    Add comment
    10|10000 characters needed characters exceeded

  • avatar image
    Former Member
    Jan 02, 2015 at 08:46 AM

    These tables are not there in the method parameters , these are present in the standard program. and while debugging I found that the problem is due to these tables getting cleared.

    I executed the entire process after deactivating the Badi Implementation, I dont get a dump then.

    Add comment
    10|10000 characters needed characters exceeded

    • Former Member

      I tried to remove the function module BAPI_INSPOPER_GETDETAIL and use select queries instead.

      Even that doesnt help. I am getting the same dump.

      The badi code gets successfully the first time and then continues to the standard program.

      In this standard program it encounters the function module BAPI_INSPOPER_GETDETAIL and goes in and comes out inside the badi code at the line

                 DESCRIBE TABLE CT_IWQMFE LINES G_ANZAHL.

               IF G_ANZAHL GT 0.