sap script sample programs

[Former Member]

send me for sap script sample programs

[Former Member]

Hi,

Please check this post

http://idocguru.com/www5/cookbooks/sapscript/sapscript_1/example.htm

Please check this link

http://www.thespot4sap.com/articles/SAPscript_example_code.asp

http://idocguru.com/www5/cookbooks/sapscript/sapscript_8/example.htm

http://idocguru.com/www5/cookbooks/sapscript/sapscript_1/example.htm

Best regards,

raam

[Former Member]

Hi,

Here is a simple SAP script Program.

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

&----

---

*& Report Z94406_SAPSCR_NOTIF *& *

&----

---

*& *

*& *

&----

---

REPORT Z94406_SAPSCR_NOTIF .

TABLES: qmel,qmih,z94392_notif,iflot.

SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE text-t01.

PARAMETERS: N_NUMBER LIKE z94392_notif-QMNUM ,

N_TYPE LIKE z94392_notif-QMART ,

F_LOCA LIKE z94392_notif-btpln ,

NAME LIKE z94392_notif-QMNAM .

SELECTION-SCREEN END OF BLOCK b1.

SELECT SINGLE * FROM QMEL WHERE QMNUM = N_NUMBER AND QMART = N_TYPE AND

QMNAM = NAME.

SELECT SINGLE * FROM QMIH WHERE QMNUM = N_NUMBER AND BTPLN = F_LOCA.

CALL FUNCTION 'OPEN_FORM'

EXPORTING

• APPLICATION = 'TX'

• ARCHIVE_INDEX =

• ARCHIVE_PARAMS =

• DEVICE = 'PRINTER'

• DIALOG = 'X'

FORM = 'Z94406_SAPSCR_NOTIF'

LANGUAGE = SY-LANGU

• OPTIONS =

• MAIL_SENDER =

• MAIL_RECIPIENT =

• MAIL_APPL_OBJECT =

• RAW_DATA_INTERFACE = '*'

• 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.

CALL FUNCTION 'WRITE_FORM'

EXPORTING

ELEMENT = '100'

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.

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

Reward if helpful.