SAP Script program to print customer addresses in Mass number for postage puposes.

[Former Member]

A power SAP Scirpt program to print customer address details for Postage purposes , generally which requires at the time of sending annual greetings/ news to customers in mass or bulk.

Below is the procedure for sample program to achieve this one.

1. Open Sap Script Tcode SE71. Create new scirpt.

2. Add one Main window and save it.

3. Go to page windows and add main window 12 times as below. You can add it graphically (settings->Formpainter->Checkmark the Graphical Form painter).

4. Select a PAGE Window and click on text elements (F9) to enter the our variable names here to print the data. In this case we are printing the Customer address data from Internal tables.

Then Activate the script.

5. Below is the report program code to fetch the customer address detail from database tables to internal tables and input that data to SAP Script to get the output. The code is as follows.

*&---------------------------------------------------------------------*

*&  Include           ZR_C101_CSD106_INC1

*&---------------------------------------------------------------------*

REPORT  ZR_C101_CSD106_1 MESSAGE-ID ZCSD106.

DATA: BEGIN OF IT_KNB1 OCCURS 0,

        KUNNR TYPE KNB1-KUNNR,

        BUKRS TYPE KNB1-BUKRS,

        END OF IT_KNB1.

DATA: BEGIN OF IT_KNA1 OCCURS 0,

        KUNNR TYPE KNA1-KUNNR,

        LAND1 TYPE KNA1-LAND1,

        NAME1 TYPE KNA1-NAME1,

        ORT01 TYPE KNA1-ORT01,

        PSTLZ TYPE KNA1-PSTLZ,

        REGIO TYPE KNA1-REGIO,

        STRAS TYPE KNA1-STRAS,

        TELF1 TYPE KNA1-TELF1,

      END OF IT_KNA1.

DATA: BEGIN OF IT_T005T OCCURS 0,

        LAND1 TYPE T005T-LAND1,

        LANDX TYPE T005T-LANDX,

      END OF IT_T005T.

DATA: BEGIN OF IT_T005U OCCURS 0,

        LAND1 TYPE T005U-LAND1,

        REGIO TYPE T005U-BLAND,

        BEZEI TYPE T005U-BEZEI,

      END OF IT_T005U.

** Select options declarations.

SELECTION-SCREEN BEGIN OF BLOCK B1 WITH FRAME TITLE TEXT-SS1.

SELECT-OPTIONS S_BUKRS FOR IT_KNB1-BUKRS NO INTERVALS NO-EXTENSION.

SELECTION-SCREEN END OF BLOCK B1.

START-OF-SELECTION.

*** Fetch the data from Database tables to internal tables based on the Company code entered in the Selection Screen.

  SELECT KUNNR

         BUKRS INTO TABLE IT_KNB1

               FROM KNB1

               WHERE BUKRS IN S_BUKRS.

  IF NOT IT_KNB1[] IS INITIAL.

    SORT IT_KNB1 BY KUNNR.

    SELECT KUNNR

           LAND1

           NAME1

           ORT01

           PSTLZ

           REGIO

           STRAS

           TELF1 INTO TABLE IT_KNA1

                 FROM KNA1

                 FOR ALL ENTRIES IN IT_KNB1

                 WHERE KUNNR = IT_KNB1-KUNNR.

    SORT IT_KNA1 BY LAND1.

    SELECT LAND1

           LANDX INTO TABLE IT_T005T

                 FROM T005T

                 FOR ALL ENTRIES IN IT_KNA1

                 WHERE LAND1 = IT_KNA1-LAND1

                 AND SPRAS = SY-LANGU.

    SELECT LAND1

           BLAND

           BEZEI INTO TABLE IT_T005U

                 FROM T005U

                 FOR ALL ENTRIES IN IT_KNA1

                 WHERE LAND1 = IT_KNA1-LAND1

                 AND BLAND = IT_KNA1-REGIO

                 AND SPRAS = SY-LANGU.

  ELSE.

    FORMAT COLOR 3.

    WRITE : 'Invalid Company code selected'.

  ENDIF.

END-OF-SELECTION.

** Sorting internal tables.

  SORT: IT_KNA1 BY KUNNR,

        IT_T005T BY LAND1,

        IT_T005U BY LAND1 REGIO.

** Opening the form  ( Open SAP Script form which we created above)

  CALL FUNCTION 'OPEN_FORM'

    EXPORTING

      FORM     = 'ZC101_CSD106'

      LANGUAGE = SY-LANGU.

** Start looping for printing on to the page windows.

  LOOP AT IT_KNA1.

    READ TABLE IT_T005T WITH KEY LAND1 = IT_KNA1-LAND1 BINARY SEARCH.

    READ TABLE IT_T005U WITH KEY LAND1 = IT_KNA1-LAND1 REGIO = IT_KNA1-REGIO.

    CALL FUNCTION 'WRITE_FORM'

      EXPORTING

        ELEMENT  = 'E1'

        FUNCTION = 'SET'

        TYPE     = 'BODY'

        WINDOW   = 'MAIN'.

    CLEAR: IT_KNA1,

           IT_T005T,

           IT_T005U.

  ENDLOOP.

** Closing the form.

  CALL FUNCTION 'CLOSE_FORM'.

And the finally output will be as below.