script error

[Former Member]

hi,

I am getting only one record for one page.

pls check this code where i did the mistake.

TABLES :KNA1.

SELECT-OPTIONS : S_KUNNR FOR KNA1-KUNNR.

TYPES : BEGIN OF TY_KNA1,

KUNNR TYPE KUNNR,

LAND1 TYPE LAND1_GP,

NAME1 TYPE NAME1_GP,

ORT01 TYPE ORT01_GP,

END OF TY_KNA1.

DATA : WA_KNA1 TYPE TY_KNA1,

IT_KNA1 TYPE TABLE OF TY_KNA1.

SELECT KUNNR

LAND1

NAME1

ORT01

INTO TABLE IT_KNA1

FROM KNA1 WHERE KUNNR IN S_KUNNR.

CALL FUNCTION 'OPEN_FORM'

EXPORTING

FORM = 'ZSREE_SCRIPT1'

LANGUAGE = SY-LANGU.

CALL FUNCTION 'START_FORM'

EXPORTING

• ARCHIVE_INDEX =

FORM = 'ZSREE_SCRIPT1'

• LANGUAGE = ' '

• STARTPAGE = ' '

PROGRAM = 'ZSREE_SCRIPTS1'

• MAIL_APPL_OBJECT =

• IMPORTING

• LANGUAGE =

• EXCEPTIONS

• FORM = 1

• FORMAT = 2

• UNENDED = 3

• UNOPENED = 4

• UNUSED = 5

• SPOOL_ERROR = 6

• CODEPAGE = 7

• OTHERS = 8

.

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 = 'CUSTOMER'

• FUNCTION = 'SET'

• TYPE = 'BODY'

WINDOW = 'MAIN'.

LOOP AT IT_KNA1 INTO WA_KNA1.

CALL FUNCTION 'WRITE_FORM'

EXPORTING

ELEMENT = 'CUSTOMER'

FUNCTION = 'SET'

TYPE = 'BODY'

WINDOW = 'ADDRESS'.

ENDLOOP.

CALL FUNCTION 'END_FORM'

• IMPORTING

• RESULT =

• EXCEPTIONS

• UNOPENED = 1

• BAD_PAGEFORMAT_FOR_PRINT = 2

• SPOOL_ERROR = 3

• CODEPAGE = 4

• OTHERS = 5

.

IF SY-SUBRC <> 0.

• MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO

• WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.

ENDIF.

IN Script Form Text element in address window is:

P1 : CUSTOMERNO LAND1 NAME1 CITY

/E : CUSTOMER

P1: &WA_KNA1-KUNNR& &WA_KNA1-LAND1& &WA_KNA1-NAME1& &WA_KNA1-ORT01&

Where p1 is paragraph , /E is text element.

[Former Member]

Hi Sreekant,

Please check the layou of the main window. I think the window size is not fit. Just increate the height of hte main page...

&**********Reward Point if helpful*************&

[Former Member]

Hi Sreekanth,

Please try this...

TABLES :KNA1.

SELECT-OPTIONS : S_KUNNR FOR KNA1-KUNNR.
TYPES : BEGIN OF TY_KNA1,
KUNNR TYPE KUNNR,
LAND1 TYPE LAND1_GP,
NAME1 TYPE NAME1_GP,
ORT01 TYPE ORT01_GP,
END OF TY_KNA1.

DATA : WA_KNA1 TYPE TY_KNA1,
IT_KNA1 TYPE TABLE OF TY_KNA1.

SELECT KUNNR
LAND1
NAME1
ORT01
INTO TABLE IT_KNA1
FROM KNA1 WHERE KUNNR IN S_KUNNR.



CALL FUNCTION 'OPEN_FORM'
EXPORTING
FORM = 'ZSREE_SCRIPT1'
LANGUAGE = SY-LANGU.

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 = 'CUSTOMER'
*FUNCTION = 'SET' 
*TYPE = 'BODY' 
WINDOW = 'MAIN'.


LOOP AT IT_KNA1 INTO WA_KNA1.
CALL FUNCTION 'WRITE_FORM'
EXPORTING
ELEMENT = 'CUSTOMER'
FUNCTION = 'SET'
TYPE = 'BODY'
WINDOW = 'ADDRESS'.
ENDLOOP.


CALL FUNCTION 'CLOSE_FORM'.

IF SY-SUBRC 0.

*MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO 
*WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4. 
ENDIF.

IN Script Form Text element in address window is:

P1 : CUSTOMERNO LAND1 NAME1 CITY

/E : CUSTOMER

P1: &WA_KNA1-KUNNR& &WA_KNA1-LAND1& &WA_KNA1-NAME1& &WA_KNA1-ORT01&

Best regards,

raam

[Former Member]

hi,

plz put the ENDIF after the second write form.

then it will work..

please reward me if helpful.

gupta pullipudi