topic Re: script error in Application Development and Automation Discussions

script error

Former Member — Fri, 20 Jun 2008 02:00:43 GMT

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.

Re: script error

Former Member — Fri, 20 Jun 2008 03:47:18 GMT

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*************&

Re: script error

Former Member — Fri, 20 Jun 2008 04:01:46 GMT

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

Re: script error

Former Member — Fri, 20 Jun 2008 04:46:36 GMT

hi,

plz put the ENDIF after the second write form.

then it will work..

please reward me if helpful.

gupta pullipudi