Skip to Content
0

Getting Short Dump in smart form driver program.

Jun 30, 2017 at 11:02 AM

55

avatar image
Former Member
SPAN {
font-family: "Courier New";
font-size: 10pt;
color: #000000;
background: #FFFFFF;
}
.L0S31 {
font-style: italic;
color: #808080;
}
.L0S32 {
color: #3399FF;
}
.L0S33 {
color: #4DA619;
}
.L0S52 {
color: #0000FF;
}
.L0S55 {
color: #800080;
}
.L0S70 {
color: #808080;
}

REPORT zr_voucher_fi.



TABLES: bkpf, bseg, kna1,t005u,mvkt,bset.



SELECTION-SCREEN : BEGIN OF BLOCK b1.



PARAMETERS:     kunnr TYPE kna1-kunnr OBLIGATORY,

                bukrs TYPE bkpf-bukrs OBLIGATORY,

                gjahr TYPE bkpf-gjahr OBLIGATORY,

                umskz TYPE bseg-umskz.



SELECTION-SCREEN : END OF BLOCK b1.



TYPES: BEGIN OF ty_bset,



         hwbas   TYPE bset-hwbas,

         kbetr   TYPE bset-kbetr,

         hwste   TYPE bset-hwste,

         kschl   TYPE bset-kschl,

         s_hwste TYPE bset-hwste,

         p_hwste TYPE bset-hwste,

         p_kbetr TYPE bset-kbetr,

         s_kbetr TYPE bset-kbetr,





       END OF ty_bset.



DATA: it_bset TYPE STANDARD TABLE OF ty_bset WITH HEADER LINE,

      wa_bset TYPE ty_bset.



TYPES: BEGIN OF ty_bseg,

         belnr   TYPE bseg-belnr,

         bukrs   TYPE bseg-bukrs,

         gjahr   TYPE bseg-gjahr,

         umskz   TYPE bseg-umskz,

         plc_sup TYPE bseg-plc_sup,

         hsn_sac TYPE bseg-hsn_sac,

         dmbtr   TYPE bseg-dmbtr,

       END OF ty_bseg.



DATA: it_bseg TYPE STANDARD TABLE OF ty_bseg WITH HEADER LINE,

      wa_bseg TYPE ty_bseg.



TYPES: BEGIN OF ty_kna1,



         name1 TYPE kna1-name1,

         ort01 TYPE kna1-ort01,

         kunnr TYPE kna1-kunnr,

         stras TYPE kna1-stras,

         adrnr TYPE kna1-adrnr,

         mcod3 TYPE kna1-mcod3,

         stcd3 TYPE kna1-stcd3,

         regio TYPE kna1-regio,



       END OF ty_kna1.



DATA: it_kna1 TYPE STANDARD TABLE OF ty_kna1 WITH HEADER LINE,

      wa_kna1 TYPE ty_kna1.



TYPES: BEGIN OF ty_final,

         belnr   TYPE bseg-belnr,

         name1   TYPE kna1-name1,

         ort01   TYPE kna1-ort01,

         kunnr   TYPE kna1-kunnr,

         stras   TYPE kna1-stras,

         adrnr   TYPE kna1-adrnr,

         mcod3   TYPE kna1-mcod3,

         stcd3   TYPE kna1-stcd3,

         regio   TYPE kna1-regio,

         bland   TYPE t005u-bland,

         matnr   TYPE mvkt-matnr,

         hwbas   TYPE bset-hwbas,

         kbetr   TYPE bset-kbetr,

         s_kbetr TYPE bset-kbetr,

         s_ktosl TYPE bset-ktosl,

         hwste   TYPE bset-hwste,

         s_hwste TYPE bset-hwste,

         p_hwste TYPE bset-hwste,

         p_kbetr TYPE bset-kbetr,

         plc_sup TYPE bseg-plc_sup,

         hsn_sac TYPE bseg-hsn_sac,

         dmbtr   TYPE bseg-dmbtr,

       END OF ty_final.



DATA : fm_name         TYPE rs38l_fnam,             " Name of the Function Module

       fp_docparams    TYPE sfpdocparams,

       fp_outputparams TYPE sfpoutputparams.





DATA: it_final TYPE STANDARD TABLE OF ty_final WITH HEADER LINE,

      wa_final TYPE ty_final.



DATA: it_t005u TYPE STANDARD TABLE OF t005u WITH HEADER LINE,

      wa_t005u TYPE t005u.

DATA: it_mvkt TYPE STANDARD TABLE OF mvkt WITH HEADER LINE,

      wa_mvkt TYPE mvkt.



START-OF-SELECTION.



  SELECT  belnr

          plc_sup

          hsn_sac

          dmbtr

          kunnr

    FROM bseg INTO CORRESPONDING FIELDS OF TABLE it_bseg

    WHERE kunnr EQ kunnr AND

          bukrs EQ bukrs AND

          gjahr EQ gjahr.



  IF it_bseg[] IS NOT INITIAL.



    SELECT  hwbas

            kbetr

            hwste

       FROM bset INTO CORRESPONDING FIELDS OF TABLE it_bset

       FOR ALL ENTRIES IN it_bseg

       WHERE belnr = it_bseg-belnr.



    SELECT name1

           ort01

           stras

           adrnr

           mcod3

           stcd3

           regio

      FROM kna1 INTO CORRESPONDING FIELDS OF TABLE it_kna1

     WHERE kunnr EQ kunnr.



    SELECT SINGLE bland FROM t005u INTO wa_t005u.



    SELECT SINGLE matnr FROM mvkt INTO wa_mvkt.







    READ TABLE it_bset INTO wa_bset WITH KEY kschl = ' JISG '.



    wa_bset-hwste = wa_bset-hwste.  " CGST

    wa_bset-kbetr = wa_bset-kbetr.



    READ TABLE it_bset INTO wa_bset WITH KEY kschl = ' JICG '.



    wa_bset-s_hwste = wa_bset-hwste. "sgst

    wa_bset-s_kbetr = wa_bset-kbetr.



    READ TABLE it_bset INTO wa_bset WITH KEY kschl = ' JIIG '.



    wa_bset-p_hwste = wa_bset-hwste.  "igst

    wa_bset-p_kbetr = wa_bset-kbetr.





    APPEND: wa_bset TO it_bset.



    CLEAR: wa_bset.

  ENDIF.



  CALL FUNCTION 'SSF_FUNCTION_MODULE_NAME'

    EXPORTING

      formname           = 'ZR_VOUCHER_FI'

*     VARIANT            = ' '

*     DIRECT_CALL        = ' '

    IMPORTING

      fm_name            = fm_name

    EXCEPTIONS

      no_form            = 1

      no_function_module = 2

      OTHERS             = 3.

  IF sy-subrc <> 0.

* Implement suitable error handling here

  ENDIF.



CALL FUNCTION fm_name

  EXPORTING

*   ARCHIVE_INDEX              =

*   ARCHIVE_INDEX_TAB          =

*   ARCHIVE_PARAMETERS         =

*   CONTROL_PARAMETERS         =

*   MAIL_APPL_OBJ              =

*   MAIL_RECIPIENT             =

*   MAIL_SENDER                =

*   OUTPUT_OPTIONS             =

*   USER_SETTINGS              = 'X'

    mm_it_bset                 =  it_bset

    mm_it_bseg                 =  it_bseg

    mm_it_kna1                 =  it_kna1

    mm_wa_t005u                =  wa_t005u

    mm_wa_mvkt                 =  wa_mvkt

* IMPORTING

*   DOCUMENT_OUTPUT_INFO       =

*   JOB_OUTPUT_INFO            =

*   JOB_OUTPUT_OPTIONS         =

* EXCEPTIONS

*   FORMATTING_ERROR           = 1

*   INTERNAL_ERROR             = 2

*   SEND_ERROR                 = 3

*   USER_CANCELED              = 4

*   OTHERS                     = 5

          .

IF sy-subrc <> 0.

* Implement suitable error handling here

ENDIF.
SPAN {
font-family: "Courier New";
font-size: 10pt;
color: #000000;
background: #FFFFFF;
}
.L0S31 {
font-style: italic;
color: #808080;
}
.L0S32 {
color: #3399FF;
}
.L0S33 {
color: #4DA619;
}
.L0S52 {
color: #0000FF;
}
.L0S55 {
color: #800080;
}
.L0S70 {
color: #808080;
}

REPORT zr_voucher_fi.



TABLES: bkpf, bseg, kna1,t005u,mvkt,bset.



SELECTION-SCREEN : BEGIN OF BLOCK b1.



PARAMETERS:     kunnr TYPE kna1-kunnr OBLIGATORY,

                bukrs TYPE bkpf-bukrs OBLIGATORY,

                gjahr TYPE bkpf-gjahr OBLIGATORY,

                umskz TYPE bseg-umskz.



SELECTION-SCREEN : END OF BLOCK b1.



TYPES: BEGIN OF ty_bset,



         hwbas   TYPE bset-hwbas,

         kbetr   TYPE bset-kbetr,

         hwste   TYPE bset-hwste,

         kschl   TYPE bset-kschl,

         s_hwste TYPE bset-hwste,

         p_hwste TYPE bset-hwste,

         p_kbetr TYPE bset-kbetr,

         s_kbetr TYPE bset-kbetr,





       END OF ty_bset.



DATA: it_bset TYPE STANDARD TABLE OF ty_bset WITH HEADER LINE,

      wa_bset TYPE ty_bset.



TYPES: BEGIN OF ty_bseg,

         belnr   TYPE bseg-belnr,

         bukrs   TYPE bseg-bukrs,

         gjahr   TYPE bseg-gjahr,

         umskz   TYPE bseg-umskz,

         plc_sup TYPE bseg-plc_sup,

         hsn_sac TYPE bseg-hsn_sac,

         dmbtr   TYPE bseg-dmbtr,

       END OF ty_bseg.



DATA: it_bseg TYPE STANDARD TABLE OF ty_bseg WITH HEADER LINE,

      wa_bseg TYPE ty_bseg.



TYPES: BEGIN OF ty_kna1,



         name1 TYPE kna1-name1,

         ort01 TYPE kna1-ort01,

         kunnr TYPE kna1-kunnr,

         stras TYPE kna1-stras,

         adrnr TYPE kna1-adrnr,

         mcod3 TYPE kna1-mcod3,

         stcd3 TYPE kna1-stcd3,

         regio TYPE kna1-regio,



       END OF ty_kna1.



DATA: it_kna1 TYPE STANDARD TABLE OF ty_kna1 WITH HEADER LINE,

      wa_kna1 TYPE ty_kna1.



TYPES: BEGIN OF ty_final,

         belnr   TYPE bseg-belnr,

         name1   TYPE kna1-name1,

         ort01   TYPE kna1-ort01,

         kunnr   TYPE kna1-kunnr,

         stras   TYPE kna1-stras,

         adrnr   TYPE kna1-adrnr,

         mcod3   TYPE kna1-mcod3,

         stcd3   TYPE kna1-stcd3,

         regio   TYPE kna1-regio,

         bland   TYPE t005u-bland,

         matnr   TYPE mvkt-matnr,

         hwbas   TYPE bset-hwbas,

         kbetr   TYPE bset-kbetr,

         s_kbetr TYPE bset-kbetr,

         s_ktosl TYPE bset-ktosl,

         hwste   TYPE bset-hwste,

         s_hwste TYPE bset-hwste,

         p_hwste TYPE bset-hwste,

         p_kbetr TYPE bset-kbetr,

         plc_sup TYPE bseg-plc_sup,

         hsn_sac TYPE bseg-hsn_sac,

         dmbtr   TYPE bseg-dmbtr,

       END OF ty_final.



DATA : fm_name         TYPE rs38l_fnam,             " Name of the Function Module

       fp_docparams    TYPE sfpdocparams,

       fp_outputparams TYPE sfpoutputparams.





DATA: it_final TYPE STANDARD TABLE OF ty_final WITH HEADER LINE,

      wa_final TYPE ty_final.



DATA: it_t005u TYPE STANDARD TABLE OF t005u WITH HEADER LINE,

      wa_t005u TYPE t005u.

DATA: it_mvkt TYPE STANDARD TABLE OF mvkt WITH HEADER LINE,

      wa_mvkt TYPE mvkt.



START-OF-SELECTION.



  SELECT  belnr

          plc_sup

          hsn_sac

          dmbtr

          kunnr

    FROM bseg INTO CORRESPONDING FIELDS OF TABLE it_bseg

    WHERE kunnr EQ kunnr AND

          bukrs EQ bukrs AND

          gjahr EQ gjahr.



  IF it_bseg[] IS NOT INITIAL.



    SELECT  hwbas

            kbetr

            hwste

       FROM bset INTO CORRESPONDING FIELDS OF TABLE it_bset

       FOR ALL ENTRIES IN it_bseg

       WHERE belnr = it_bseg-belnr.



    SELECT name1

           ort01

           stras

           adrnr

           mcod3

           stcd3

           regio

      FROM kna1 INTO CORRESPONDING FIELDS OF TABLE it_kna1

     WHERE kunnr EQ kunnr.



    SELECT SINGLE bland FROM t005u INTO wa_t005u.



    SELECT SINGLE matnr FROM mvkt INTO wa_mvkt.







    READ TABLE it_bset INTO wa_bset WITH KEY kschl = ' JISG '.



    wa_bset-hwste = wa_bset-hwste.  " CGST

    wa_bset-kbetr = wa_bset-kbetr.



    READ TABLE it_bset INTO wa_bset WITH KEY kschl = ' JICG '.



    wa_bset-s_hwste = wa_bset-hwste. "sgst

    wa_bset-s_kbetr = wa_bset-kbetr.



    READ TABLE it_bset INTO wa_bset WITH KEY kschl = ' JIIG '.



    wa_bset-p_hwste = wa_bset-hwste.  "igst

    wa_bset-p_kbetr = wa_bset-kbetr.





    APPEND: wa_bset TO it_bset.



    CLEAR: wa_bset.

  ENDIF.



  CALL FUNCTION 'SSF_FUNCTION_MODULE_NAME'

    EXPORTING

      formname           = 'ZR_VOUCHER_FI'

*     VARIANT            = ' '

*     DIRECT_CALL        = ' '

    IMPORTING

      fm_name            = fm_name

    EXCEPTIONS

      no_form            = 1

      no_function_module = 2

      OTHERS             = 3.

  IF sy-subrc <> 0.

* Implement suitable error handling here

  ENDIF.



CALL FUNCTION fm_name

  EXPORTING

*   ARCHIVE_INDEX              =

*   ARCHIVE_INDEX_TAB          =

*   ARCHIVE_PARAMETERS         =

*   CONTROL_PARAMETERS         =

*   MAIL_APPL_OBJ              =

*   MAIL_RECIPIENT             =

*   MAIL_SENDER                =

*   OUTPUT_OPTIONS             =

*   USER_SETTINGS              = 'X'

    mm_it_bset                 =  it_bset

    mm_it_bseg                 =  it_bseg

    mm_it_kna1                 =  it_kna1

    mm_wa_t005u                =  wa_t005u

    mm_wa_mvkt                 =  wa_mvkt

* IMPORTING

*   DOCUMENT_OUTPUT_INFO       =

*   JOB_OUTPUT_INFO            =

*   JOB_OUTPUT_OPTIONS         =

* EXCEPTIONS

*   FORMATTING_ERROR           = 1

*   INTERNAL_ERROR             = 2

*   SEND_ERROR                 = 3

*   USER_CANCELED              = 4

*   OTHERS                     = 5

          .

IF sy-subrc <> 0.

* Implement suitable error handling here

ENDIF.
capture.png (27.4 kB)
10 |10000 characters needed characters left characters exceeded
* Please Login or Register to Answer, Follow or Comment.

1 Answer

Best Answer
antoine foucault Jul 10, 2017 at 07:05 PM
0

More or less useless to paste all your coding without the actual dump.... ¿?¿? What is it we are supposed to do?

Show 1 Share
10 |10000 characters needed characters left characters exceeded
Former Member

Hi Antoine,

I was pasted that code only for reference purpose and even though you can get the actual dump snapshot in below attached png's file but now error has been resolved.

Thanks for your suggestion.

Regards

Ashok

0