how to create SAPScript program? step-by-step process?

[former_member198357]

Hi everybody

Can anybody please provide some information on how to create SAP Script program?

Please provide step-by-step process if possible as examples given in abap certification program

thanks

[Former Member]

SAPScripts

http://esnips.com/doc/1ff9f8e8-0a4c-42a7-8819-6e3ff9e7ab44/sapscripts.pdf

http://esnips.com/doc/1e487f0c-8009-4ae1-9f9c-c07bd953dbfa/script-command.pdf

http://esnips.com/doc/64d4eccb-e09b-48e1-9be9-e2818d73f074/faqss.pdf

http://esnips.com/doc/cb7e39b4-3161-437f-bfc6-21e6a50e1b39/sscript.pdf

http://esnips.com/doc/fced4d36-ba52-4df9-ab35-b3d194830bbf/symbols-in-scripts.pdf

http://esnips.com/doc/b57e8989-ccf0-40d0-8992-8183be831030/sapscript-how-to-calculate-totals-and-sub...

SAP SCRIPT FIELDS

http://help.sap.com/saphelp_erp2005vp/helpdata/en/d1/8033ea454211d189710000e8322d00/content.htm

scripts easy material

http://www.allsaplinks.com/sap_script_made_easy.html

Regards

Prabhu

[Former Member]

Hello,

Check this link. Its a good one. It explains SAP Script step by step.

http://www.supinfo-projects.com/fr/2005/forms_sapscript_en/introduction/

Regards,

Shehryar Dahar

[Former Member]

declare internal table according to script .

use fms

open_form

start_form

close_form

end_form

pass necessary parametrs to the fms .

regards

padma

[Former Member]

Hi

here is the sample program for SAP SCRIPTS

&----

---

*& Report ZHMR_POANNEX *

----

---

• MODULE Materials Management

*----

---

• Objective :Calling program for ANNEXURE FOR P.O

• text ................................................

• text ................................................

• text ................................................

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

REPORT ZHMR_POANNEX .

TABLES :EKKO,STXH.

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

• PARAMETERS

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

SELECTION-SCREEN BEGIN OF BLOCK BLK WITH FRAME TITLE text-001.

PARAMETERS : P_EBELN LIKE EKKO-EBELN.

SELECTION-SCREEN END OF BLOCK BLK.

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

• DATA DECLARATION

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

DATA : V_LIFNR LIKE EKKO-LIFNR,

V_AEDAT LIKE EKKO-AEDAT,

V_NAME LIKE LFA1-NAME1,

V_ADRNR LIKE LFA1-ADRNR,

V_BSTYP LIKE EKKO-BSTYP.

DATA : BEGIN OF IT_ADRC OCCURS 0,

NAME1 LIKE ADRC-NAME1,

STREET LIKE ADRC-STREET,

CITY1 LIKE ADRC-CITY1,

POST_CODE1 LIKE ADRC-POST_CODE1,

COUNTRY LIKE ADRC-COUNTRY,

END OF IT_ADRC.

DATA : IT_TEXT LIKE TLINE OCCURS 0 WITH HEADER LINE,

IT_NOTE LIKE TLINE OCCURS 0 WITH HEADER LINE,

IT_DEL LIKE TLINE OCCURS 0 WITH HEADER LINE,

IT_SHIP LIKE TLINE OCCURS 0 WITH HEADER LINE.

DATA : V_ID LIKE THEAD-TDID ,

V_LAN LIKE THEAD-TDSPRAS,

V_NAME1 LIKE THEAD-TDNAME ,

V_OBJ LIKE THEAD-TDOBJECT VALUE 'EKKO',

N1 TYPE I,N2 TYPE I,N3 TYPE I ,N4 TYPE I.

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

CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'

EXPORTING

INPUT = P_EBELN

IMPORTING

OUTPUT = P_EBELN.

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

• TO GET VENDOR NAME ,,PO DATE

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

SELECT SINGLE

LIFNR

AEDAT

BSTYP

FROM EKKO

INTO (V_LIFNR, V_AEDAT,V_BSTYP)

WHERE EBELN EQ P_EBELN.

IF SY-SUBRC EQ 0.

SELECT SINGLE NAME1 ADRNR

FROM LFA1

INTO (V_NAME,V_ADRNR)

WHERE LIFNR EQ V_LIFNR.

IF SY-SUBRC EQ 0.

SELECT NAME1

STREET

CITY1

POST_CODE1

COUNTRY

FROM ADRC

INTO CORRESPONDING FIELDS OF TABLE IT_ADRC

WHERE ADDRNUMBER EQ V_ADRNR.

IF SY-SUBRC NE 0.

ENDIF.

ENDIF.

ENDIF.

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

*TO GET HEADER TEXT

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

IF V_BSTYP = 'L'.

V_ID = 'L01'.

ELSEIF V_BSTYP = 'F'.

V_ID = 'F01'.

ENDIF.

V_NAME1 = P_EBELN.

SELECT SINGLE TDID INTO V_ID FROM STXH WHERE TDOBJECT EQ V_OBJ AND

TDNAME EQ V_NAME1 AND

TDID EQ V_ID .

IF SY-SUBRC EQ 0.

CALL FUNCTION 'READ_TEXT'

EXPORTING

CLIENT = SY-MANDT

ID = V_ID

LANGUAGE = SY-LANGU

NAME = V_NAME1

OBJECT = V_OBJ

TABLES

LINES = IT_TEXT.

ENDIF.

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

*TO GET HEADER NOTE

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

IF V_BSTYP = 'L'.

V_ID = 'L02'.

ELSEIF V_BSTYP = 'F'.

V_ID = 'F02'.

ENDIF.

SELECT SINGLE TDID INTO V_ID FROM STXH WHERE TDOBJECT EQ V_OBJ AND

TDNAME EQ V_NAME1 AND

TDID EQ V_ID .

IF SY-SUBRC EQ 0.

CALL FUNCTION 'READ_TEXT'

EXPORTING

CLIENT = SY-MANDT

ID = V_ID

LANGUAGE = SY-LANGU

NAME = V_NAME1

OBJECT = V_OBJ

TABLES

LINES = IT_NOTE.

ENDIF.

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

*TO GET TERMS OF DELIVERY

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

IF V_BSTYP = 'L'.

V_ID = 'L05'.

ELSEIF V_BSTYP = 'F'.

V_ID = 'F05'.

ENDIF.

SELECT SINGLE TDID INTO V_ID FROM STXH WHERE TDOBJECT EQ V_OBJ AND

TDNAME EQ V_NAME1 AND

TDID EQ V_ID .

IF SY-SUBRC EQ 0.

CALL FUNCTION 'READ_TEXT'

EXPORTING

CLIENT = SY-MANDT

ID = V_ID

LANGUAGE = SY-LANGU

NAME = V_NAME1

OBJECT = V_OBJ

TABLES

LINES = IT_DEL.

ENDIF.

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

*TO GET SHIPPING INSTRUCTIONS

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

IF V_BSTYP = 'L'.

V_ID = 'L06'.

ELSEIF V_BSTYP = 'F'.

V_ID = 'F06'.

ENDIF.

SELECT SINGLE TDID INTO V_ID FROM STXH WHERE TDOBJECT EQ V_OBJ AND

TDNAME EQ V_NAME1 AND

TDID EQ V_ID .

IF SY-SUBRC EQ 0.

CALL FUNCTION 'READ_TEXT'

EXPORTING

CLIENT = SY-MANDT

ID = V_ID

LANGUAGE = SY-LANGU

NAME = V_NAME1

OBJECT = V_OBJ

TABLES

LINES = IT_SHIP.

ENDIF.

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

• OPEN FORM

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

DESCRIBE TABLE IT_TEXT LINES N1.

DESCRIBE TABLE IT_NOTE LINES N2.

DESCRIBE TABLE IT_DEL LINES N3.

DESCRIBE TABLE IT_SHIP LINES N4.

IF NOT ( N1 = 0 AND N2 = 0 AND N3 = 0 AND N4 = 0 ).

CALL FUNCTION 'OPEN_FORM'

EXPORTING

FORM = 'ZHML001_POANNEX'

LANGUAGE = SY-LANGU.

else.

message 'For This P.O no annexure is maintained.' type 'I'.

endif.

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

• WRITE FORM

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

LOOP AT IT_ADRC.

CALL FUNCTION 'WRITE_FORM'

EXPORTING

ELEMENT = 'HEADER'

WINDOW = 'HEADER'.

ENDLOOP.

CALL FUNCTION 'WRITE_FORM'

EXPORTING

ELEMENT = 'FOTTER'

WINDOW = 'FOTTER'.

IF NOT IT_TEXT[] IS INITIAL.

CALL FUNCTION 'WRITE_FORM'

EXPORTING

ELEMENT = 'TEXT1'

WINDOW = 'MAIN'.

LOOP AT IT_TEXT.

CALL FUNCTION 'WRITE_FORM'

EXPORTING

ELEMENT = 'TEXT'

WINDOW = 'MAIN'.

ENDLOOP.

ENDIF.

IF NOT IT_NOTE[] IS INITIAL.

CALL FUNCTION 'WRITE_FORM'

EXPORTING

ELEMENT = 'NOTE1'

WINDOW = 'MAIN'.

LOOP AT IT_NOTE.

CALL FUNCTION 'WRITE_FORM'

EXPORTING

ELEMENT = 'NOTE'

WINDOW = 'MAIN'.

ENDLOOP.

ENDIF.

IF NOT IT_DEL[] IS INITIAL.

CALL FUNCTION 'WRITE_FORM'

EXPORTING

ELEMENT = 'DEL1'

WINDOW = 'MAIN'.

LOOP AT IT_DEL.

CALL FUNCTION 'WRITE_FORM'

EXPORTING

ELEMENT = 'DEL'

WINDOW = 'MAIN'.

ENDLOOP.

ENDIF.

IF NOT IT_SHIP[] IS INITIAL.

CALL FUNCTION 'WRITE_FORM'

EXPORTING

ELEMENT = 'SHIP1'

WINDOW = 'MAIN'.

LOOP AT IT_SHIP.

CALL FUNCTION 'WRITE_FORM'

EXPORTING

ELEMENT = 'SHIP'

WINDOW = 'MAIN'.

ENDLOOP.

ENDIF.

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

• CLOSE FORM

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

CALL FUNCTION 'CLOSE_FORM'.

Reward if it is helpful.

Regards,

Sangeetha.A

[former_member198357]

Hi everybody

I want some examples where step-by-step process of creating that example is also given

It is easy to learn

thanks

[Former Member]

Hello,

The link i gave you in my thread contains step by step example.

Kindly close the thread if you have got your answer.

Regards,

Shehryar Dahar