on getting test data for running SAP script

[Former Member]

Hi,

I am new to ABAP programming,

So, i need help on getting test data for testing sap script.

the print program is RFKORD00 for a Payment advice

and RFKORD50 for a debit memo.

Please tell me how and where do i create test data for running the scripts.

Thanks and Regards,

Ravindra

[rahulkavuri]

May be this simple pgm can help u

*&---------------------------------------------------------------------*
*& Report  ZSH_TEST_SCRIPTS                                            *
*&                                                                     *
*&---------------------------------------------------------------------*
*&                                                                     *
*&                                                                     *
*&---------------------------------------------------------------------*

REPORT  ZSH_TEST_SCRIPTS                        .


TABLES : MARA .

DATA : BEGIN OF IT_TAB OCCURS 0,
          MATNR LIKE MARA-MATNR,
          MAKTX LIKE MAKT-MAKTX,
       END OF IT_TAB.

       SELECT-OPTIONS : S_MATNR FOR MARA-MATNR .


       START-OF-SELECTION.


       SELECT P~MATNR
              Q~MAKTX
              INTO TABLE IT_TAB
              FROM MARA AS P INNER JOIN MAKT AS Q ON P~MATNR = Q~MATNR
              WHERE P~MATNR IN S_MATNR.
END-OF-SELECTION.



       CALL FUNCTION 'OPEN_FORM'
        EXPORTING
*          APPLICATION                       = 'TX'
*          ARCHIVE_INDEX                     =
*          ARCHIVE_PARAMS                    =
*          DEVICE                            = 'PRINTER'
*          DIALOG                            = 'X'
          FORM                              = 'zsh_test_script'
*          LANGUAGE                          = SY-LANGU
*          OPTIONS                           =
*          MAIL_SENDER                       =
*          MAIL_RECIPIENT                    =
*          MAIL_APPL_OBJECT                  =
*          RAW_DATA_INTERFACE                = '*'
*          SPONUMIV                          =
*        IMPORTING
*          LANGUAGE                          =
*          NEW_ARCHIVE_PARAMS                =
*          RESULT                            =
*        EXCEPTIONS
*          CANCELED                          = 1
*          DEVICE                            = 2
*          FORM                              = 3
*          OPTIONS                           = 4
*          UNCLOSED                          = 5
*          MAIL_OPTIONS                      = 6
*          ARCHIVE_ERROR                     = 7
*          INVALID_FAX_NUMBER                = 8
*          MORE_PARAMS_NEEDED_IN_BATCH       = 9
*          SPOOL_ERROR                       = 10
*          CODEPAGE                          = 11
*          OTHERS                            = 12
                 .
       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 IT_TAB.
 CALL FUNCTION 'WRITE_FORM'
  EXPORTING
    ELEMENT                        = 'TXTELE'
    FUNCTION                       = 'SET'
    TYPE                           = 'BODY'
    WINDOW                         = 'MAIN'
*  IMPORTING
*    PENDING_LINES                  =
*  EXCEPTIONS
*    ELEMENT                        = 1
*    FUNCTION                       = 2
*    TYPE                           = 3
*    UNOPENED                       = 4
*    UNSTARTED                      = 5
*    WINDOW                         = 6
*    BAD_PAGEFORMAT_FOR_PRINT       = 7
*    SPOOL_ERROR                    = 8
*    CODEPAGE                       = 9
*    OTHERS                         = 10
           .
 IF SY-SUBRC <> 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
*         WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
 ENDIF.

 CALL FUNCTION 'CLOSE_FORM'
*  IMPORTING
*    RESULT                         =
*    RDI_RESULT                     =
*  TABLES
*    OTFDATA                        =
  EXCEPTIONS
    UNOPENED                       = 1
    BAD_PAGEFORMAT_FOR_PRINT       = 2
    SEND_ERROR                     = 3
    SPOOL_ERROR                    = 4
    CODEPAGE                       = 5
    OTHERS                         = 6
           .
 IF SY-SUBRC <> 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
*         WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
 ENDIF.

 ENDLOOP.

[Former Member]

Ravindra,

Please go and ask your FI consultant to generate test data. It is that person's job. To generate a payment advice you need to have done quite a few business transactions in AR.

Rahul: Please donot give such answers as Ravindra is not asking for a sample program to call Z sapscript. It doesn't make any sense at all. your answer is totally irrelevant.

Deepak