RSNAST00

Question

Hi friends,
What is RSNAST00 and in what reference we use this. In one of our old programs they were using this RSNAST00 to print out the report output. Now I am asked to add email functionality to it. Is there any option in RSNAST00 to do email attachment. So I have to attach the output as pdf file to send external email. Please help me in doing this.
SUBMIT RSNAST00 VIA SELECTION-SCREEN WITH S_KAPPL IN R_KAPPL
                                           WITH S_OBJKY IN R_OBJKY
                                           WITH S_KSCHL IN R_KSCHL
                                           WITH S_NACHA IN R_NACHA
                                           WITH P_AGAIN EQ ' '
                                           WITH P_PRINT EQ '4_A1'
                                               AND RETURN.
Thanks
Veni.

Answer 1

Hi Suresh,
Thank you for the information. After I select the output type as 'ZCOM' and Tranmission Medium '1' for print out and executed. I go to sp01 transaction to see the output. I know how to use function module 'SO_NEW_DOCUMENT_ATT_SEND_API1'.
But Can you please let me know how to create the spool request, as I donot have idea about it. I am attaching the code I have. Please help me.
Thanks
Veni.
REPORT ZSDRSHIP LINE-SIZE 248 LINE-COUNT 65 MESSAGE-ID ZV
                      NO STANDARD PAGE HEADING.
Data Declaration
*Tables
TABLES: VBRK,                          "Billing: Header Data
        ITCPO,                         "Sapscript Output Interface
        T001,                          "Company Codes
        SADR,                          "Address Management: Company Data
        VBPA,                          "Sales Document: Partner
        KNA1,                          "General Data in Customer Master
        LFA1,                          "Vendor master (general section)
        VBRP,                          "Billing: Item Data
        DNAST,                         "Output status, display fields
        T005T,                         "Country Names
        EIKP,                          "Export/Import header data
        T618T,                         "Modes of Transport: Descriptions
        ZMAT,                        "Classification of Material Numbers
        T001W,                         "Plants/Branches
        T005U,                         "Taxes: Region Key: Texts
        NAST.                          "Message status
selection screen for the program RSNAST00 run.
RANGES: R_KAPPL FOR DNAST-KAPPL,
        R_OBJKY FOR NAST-OBJKY,
        R_KSCHL FOR NAST-KSCHL,
        R_NACHA FOR NAST-NACHA,
        R_LDEST FOR NAST-LDEST.
Internal tables.
DATA: BEGIN OF ITAB_VBRK OCCURS 100,
      VBELN LIKE VBRK-VBELN,
      NETWR LIKE VBRK-NETWR,
      BUKRS LIKE VBRK-BUKRS,
      EXNUM LIKE VBRK-EXNUM,
      END OF ITAB_VBRK.
DATA: BEGIN OF ITAB_VBRP OCCURS 50,
      MATNR LIKE VBRP-MATNR,
      FKIMG LIKE VBRP-FKIMG,
      NETWR LIKE VBRP-NETWR,
      WERKS LIKE VBRP-WERKS,
      END OF ITAB_VBRP.
DATA: BEGIN OF ITAB_ZMAT OCCURS 10,
      ZMATNR LIKE ZMAT-ZMATNR,
      FKIMG LIKE VBRP-FKIMG,
      NETWR LIKE VBRP-NETWR,
      END OF ITAB_ZMAT.
DATA: BEGIN OF FTAB OCCURS 100,
      IND TYPE C,
      VBELN(10) TYPE N,
      NETWR LIKE VBRK-NETWR,
      BUKRS LIKE VBRK-BUKRS,
      EXNUM LIKE VBRK-EXNUM,
      END OF FTAB.
DATA: IND TYPE C,
      CNT1 TYPE I,
      IPAGE TYPE I,
      I_WERKS LIKE VBRP-WERKS VALUE ' '.
Program Selections
SELECT-OPTIONS: SDATE FOR VBRK-FKDAT.
Initialization
INITIALIZATION.
Initialization for the program RSNAST00 run.
  R_KAPPL-SIGN = 'I'.
  R_KAPPL-OPTION = 'EQ'.
  R_KAPPL-LOW = 'V3'.
  R_KAPPL-HIGH = ' '.
  APPEND R_KAPPL.
  CLEAR R_KAPPL.
  R_KSCHL-SIGN = 'I'.
  R_KSCHL-OPTION = 'EQ'.
  R_KSCHL-LOW = 'ZCOM'.
  R_KSCHL-HIGH = ' '.
  APPEND R_KSCHL.
  CLEAR R_KSCHL.
  R_NACHA-SIGN = 'I'.
  R_NACHA-OPTION = 'EQ'.
  R_NACHA-LOW = '1'.
  R_NACHA-HIGH = ' '.
  APPEND R_NACHA.
  CLEAR R_NACHA.
Start-of-selection
START-OF-SELECTION.
  SELECT VBELN NETWR BUKRS EXNUM FROM VBRK INTO TABLE ITAB_VBRK
                             WHERE FKART EQ 'F8'
                               AND FKDAT IN SDATE.
  COMMIT WORK.
  PERFORM OUTPUT.
AT USER-COMMAND.
  CASE SY-UCOMM.
    WHEN 'PRIN'.
      PERFORM READ_DATA.
      PERFORM PRINT_DATA.
    WHEN 'SELE'.
      PERFORM SELECT_DATA.
    WHEN 'DETA'.
      PERFORM READ_DATA.
      PERFORM DISPLAY_DATA.
  ENDCASE.
TOP-OF-PAGE
TOP-OF-PAGE.
  PERFORM HEADINGS.
TOP-OF-PAGE DURING LINE-SELECTION.
  CASE SY-UCOMM.
    WHEN 'SELE'.
      PERFORM HEADINGS.
    WHEN 'DETA'.
      PERFORM HEADINGS1.
  ENDCASE.
*&      Form  OUTPUT
      text
-->  p1        text
<--  p2        text
FORM OUTPUT.
  SET PF-STATUS 'NORM'.
  LOOP AT ITAB_VBRK.
    WRITE: /01 SY-VLINE,
            02 IND AS CHECKBOX,
            03 SY-VLINE,
            04 ITAB_VBRK-VBELN,
            15 SY-VLINE,
            16 ITAB_VBRK-NETWR,
            51 SY-VLINE.
  ENDLOOP.
  ULINE /(51).
ENDFORM.                               " OUTPUT
*&      Form  READ_DATA
      text
-->  p1        text
<--  p2        text
FORM READ_DATA.
  CNT1 = 6.
  IPAGE = 1.
  REFRESH FTAB.
  LOOP AT ITAB_VBRK.
    READ LINE CNT1 OF PAGE IPAGE FIELD VALUE IND INTO FTAB-IND.
    READ LINE CNT1 OF PAGE IPAGE FIELD VALUE
                               ITAB_VBRK-VBELN INTO FTAB-VBELN.
    FTAB-BUKRS = ITAB_VBRK-BUKRS.
    FTAB-NETWR = ITAB_VBRK-NETWR.
    FTAB-EXNUM = ITAB_VBRK-EXNUM.
    APPEND FTAB.
    CLEAR FTAB.
    CNT1 = CNT1 + 1.
    IF CNT1 > 65.
      IPAGE = IPAGE + 1.
      CNT1 = 6.                        "Vish - 10/03/00
    ENDIF.
  ENDLOOP.
ENDFORM.                               " READ_DATA
*&      Form  PRINT_DATA
      text
-->  p1        text
<--  p2        text
FORM PRINT_DATA.
  LOOP AT FTAB.
    IF FTAB-IND = 'X'.
      REFRESH R_OBJKY.
      R_OBJKY-SIGN = 'I'.
      R_OBJKY-OPTION = 'EQ'.
      R_OBJKY-LOW = FTAB-VBELN.
      R_OBJKY-HIGH = ' '.
      APPEND R_OBJKY.
      CLEAR R_OBJKY.
      SUBMIT RSNAST00 VIA SELECTION-SCREEN WITH S_KAPPL IN R_KAPPL
                                           WITH S_OBJKY IN R_OBJKY
                                           WITH S_KSCHL IN R_KSCHL
                                           WITH S_NACHA IN R_NACHA
                                           WITH P_AGAIN EQ ' '
                                           WITH P_PRINT EQ '4_A1'
                                               AND RETURN.
      IF FTAB-NETWR GE 2500.
        PERFORM GET_DATA.
        PERFORM PRINT_FORM.
      ENDIF.
    ENDIF.
  ENDLOOP.
ENDFORM.                               " PRINT_DATA
*&      Form  PRINT_FORM
      text
-->  p1        text
<--  p2        text
FORM PRINT_FORM.
  ITCPO-TDIMMED = 'X'.
  ITCPO-TDDELETE = 'X'.
  ITCPO-TDPROGRAM = SY-REPID.
  ITCPO-TDDEST = '5_A1'.
  CALL FUNCTION 'OPEN_FORM'
       EXPORTING
            FORM     = 'Z_SHIPPERS'
            LANGUAGE = SY-LANGU
            OPTIONS  = ITCPO
       EXCEPTIONS
            CANCELED = 1
            DEVICE   = 2
            FORM     = 3
            OPTIONS  = 4
            UNCLOSED = 5
            OTHERS   = 6.
  LOOP AT ITAB_ZMAT.
    CALL FUNCTION 'WRITE_FORM'
        EXPORTING
             ELEMENT       = 'ITEM_DATA'
             FUNCTION      = 'SET'
             TYPE          = 'BODY'
             WINDOW        = 'MAIN'
   IMPORTING
        PENDING_LINES =
         EXCEPTIONS
              ELEMENT       = 1
              FUNCTION      = 2
              TYPE          = 3
              UNOPENED      = 4
              UNSTARTED     = 5
              WINDOW        = 6
              OTHERS        = 7.
  ENDLOOP.
  CALL FUNCTION 'CLOSE_FORM'
       EXCEPTIONS
            UNOPENED = 1
            OTHERS   = 2.
  IF SY-SUBRC EQ 0.
    MESSAGE I355 WITH FTAB-VBELN.
  ENDIF.
ENDFORM.                               " PRINT_FORM
*&      Form  SELECT_DATA
      text
-->  p1        text
<--  p2        text
FORM SELECT_DATA.
  SY-LSIND = 0.
  IF IND = 'X'.
    IND = ' '.
  ELSEIF IND = ' '.
    IND = 'X'.
  ENDIF.
  PERFORM OUTPUT.
ENDFORM.                               " SELECT_DATA
*&      Form  GET_DATA
      text
-->  p1        text
<--  p2        text
FORM GET_DATA.
  CLEAR: T001, SADR, VBPA, LFA1, KNA1, T005T, EIKP, T618T, I_WERKS.
  REFRESH: ITAB_VBRP, ITAB_ZMAT.
  SELECT SINGLE ADRNR BUTXT FROM T001 INTO (T001-ADRNR, T001-BUTXT)
                      WHERE BUKRS EQ FTAB-BUKRS.
  SELECT SINGLE * FROM SADR WHERE ADRNR EQ T001-ADRNR
                              AND NATIO EQ SPACE.
  SELECT SINGLE LIFNR FROM VBPA INTO VBPA-LIFNR
                          WHERE VBELN EQ FTAB-VBELN
                              AND POSNR = '000000'
                              AND PARVW = 'SP'.
  SELECT SINGLE * FROM LFA1 WHERE LIFNR = VBPA-LIFNR.
  SELECT SINGLE KUNNR FROM VBPA INTO VBPA-KUNNR
                          WHERE VBELN EQ FTAB-VBELN
                              AND POSNR = '000000'
                              AND PARVW = 'WE'.
  SELECT SINGLE * FROM KNA1 WHERE KUNNR = VBPA-KUNNR.
  SELECT SINGLE * FROM T005T WHERE SPRAS = 'E'
                               AND LAND1 = KNA1-LAND1.
  SELECT SINGLE * FROM EIKP WHERE EXNUM = FTAB-EXNUM.
  SELECT SINGLE * FROM T618T WHERE SPRAS = 'E'
                               AND LAND1 = EIKP-ALAND
                               AND EXPVZ = EIKP-EXPVZ.
  SELECT MATNR FKIMG NETWR WERKS FROM VBRP INTO TABLE ITAB_VBRP
                               WHERE VBELN = FTAB-VBELN.
  LOOP AT ITAB_VBRP.
    IF I_WERKS EQ ' '.
      I_WERKS = ITAB_VBRP-WERKS.
      SELECT SINGLE * FROM T001W WHERE WERKS = I_WERKS.
      SELECT SINGLE * FROM T005U WHERE SPRAS = 'E'
                                   AND LAND1 = T001W-LAND1
                                   AND BLAND = T001W-REGIO.
    ENDIF.
    SELECT SINGLE ZMATNR FROM ZMAT INTO ZMAT-ZMATNR
                                   WHERE MATNR = ITAB_VBRP-MATNR.
    IF SY-SUBRC EQ 0.
      MOVE ZMAT-ZMATNR TO ITAB_ZMAT-ZMATNR.
      MOVE ITAB_VBRP-FKIMG TO ITAB_ZMAT-FKIMG.
      MOVE ITAB_VBRP-NETWR TO ITAB_ZMAT-NETWR.
      COLLECT ITAB_ZMAT.
      CLEAR ITAB_ZMAT.
    ELSE.
      MESSAGE I356 WITH ITAB_VBRP-MATNR.
    ENDIF.
  ENDLOOP.
ENDFORM.                               " GET_DATA
*&      Form  HEADINGS
      text
-->  p1        text
<--  p2        text
FORM HEADINGS.
  FORMAT COLOR COL_HEADING.
  WRITE: 'AMERICA, INC.',
         / 'List of Commercial Invoices'.
  ULINE /(51).
  FORMAT COLOR 2.
  WRITE: /01 SY-VLINE,
          03 SY-VLINE,
          04 TEXT-001,
          15 SY-VLINE,
          16 TEXT-002,
          51 SY-VLINE,
         52 '                                               ' COLOR OFF.
  ULINE /(51).
ENDFORM.                               " HEADINGS
*&      Form  DISPLAY_DATA
      text
-->  p1        text
<--  p2        text
FORM DISPLAY_DATA.
  SET PF-STATUS 'NORM1'.
  LOOP AT FTAB.
    IF FTAB-IND = 'X'.
      REFRESH ITAB_VBRP.
      SELECT MATNR FKIMG NETWR WERKS FROM VBRP INTO TABLE ITAB_VBRP
                                   WHERE VBELN = FTAB-VBELN.
    WRITE:/ 'Details of Commercial Invoice:'COLOR 4, FTAB-VBELN COLOR 4.
      ULINE /(56).
      LOOP AT ITAB_VBRP.
        WRITE: /01 SY-VLINE,
                02 ITAB_VBRP-MATNR,
                20 SY-VLINE,
                21 ITAB_VBRP-NETWR,
                56 SY-VLINE,
         57 '                                               ' COLOR OFF.
      ENDLOOP.
      ULINE /(56).
    ENDIF.
  ENDLOOP.
ENDFORM.                               " DISPLAY_DATA
*&      Form  HEADINGS1
      text
-->  p1        text
<--  p2        text
FORM HEADINGS1.
  FORMAT COLOR COL_HEADING.
  WRITE: 'AMERICA, INC.',
         / 'Commercial Invoice Details.'.
  ULINE /(56).
  FORMAT COLOR 2.
  WRITE: /01 SY-VLINE,
          02 TEXT-003,
          20 SY-VLINE,
          21 TEXT-004,
          56 SY-VLINE,
         57 '                                               ' COLOR OFF.
  ULINE /(56).
ENDFORM.                               " HEADINGS1