topic Re: script in Application Development and Automation Discussions

script

Former Member — Mon, 23 Apr 2007 07:15:55 GMT

hi all

i hav an a script in which i need 2 put fields name1 city1 city2 city_code from the table ADRC so i used an perform statement and now in the se38 code i should access the values through the select statement which should be equal to T001-ADRNR...please help...if possible please post the code..am also giving the code in se38 below biut am getting some errors..please help....

REPORT ZF140.

TABLES: ADRC ,T001.

FORM ADDR.

SELECT NAME_1 CITY1 CITY2 CITY_CODE FROM ADRC WHERE ITAB-adrnr EQ ADRC-ADDRNUMBER.

ENDSELECT.

ENDFORM.

with regards

vijay

Re: script

Former Member — Mon, 23 Apr 2007 07:45:21 GMT

hi vijay...

Try the this code......

REPORT ZF140.

TABLES: ADRC ,T001.

FORM ADDR.

SELECT NAME1 CITY1 CITY2 CITY_CODE

FROM ADRC INTO CORRESPONDING FIELDS OF ADRC

UP TO 1 ROWS

WHERE ADDRNUMBER EQ T001-ADRNR..

ENDSELECT.

ENDFORM.

regards....

Suresh....

Re: script

Former Member — Mon, 23 Apr 2007 09:54:14 GMT

Hai Vijay Krishna,

Select the result into an ITAB and loop at that itab to pass these address info tio from as the select query may return more than ione row.

REPORT ZF140.

TABLES: ADRC ,T001.

FORM ADDR.

SELECT NAME_1

CITY1

CITY2

CITY_CODE

FROM ADRC

INTO ITAB

WHERE ITAB-adrnr EQ ADRC-ADDRNUMBER..

IF SY-SUBRC EQ 0.

LOOP AT ITAB.

DO the form oprations here.

ENDLOOP.

ELSE.

MESSAGE 'No such Address info.Exist' TYPE 'E'.

ENDIF.

ENDFORM.

Hope you got it.

Reward points if it helps you.

Regds,

Rama chary.Pammi

Re: script

Former Member — Mon, 23 Apr 2007 17:15:33 GMT

Hi Vijay,

Please find the below code, definatly it will help you.

Definition in the SAPscript form:

/: PERFORM GET_BARCODE IN PROGRAM QCJPERFO

/: USING &PAGE&

/: USING &NEXTPAGE&

/: CHANGING &BARCODE&

/: ENDPERFORM

/ &BARCODE&

Coding of the calling ABAP program:

REPORT QCJPERFO.

FORM GET_BARCODE TABLES IN_PAR STUCTURE ITCSY

OUT_PAR STRUCTURE ITCSY.

DATA: PAGNUM LIKE SY-TABIX, "page number

NEXTPAGE LIKE SY-TABIX. "number of next page

READ TABLE IN_PAR WITH KEY ‘PAGE’.

CHECK SY-SUBRC = 0.

PAGNUM = IN_PAR-VALUE.

READ TABLE IN_PAR WITH KEY ‘NEXTPAGE’.

CHECK SY-SUBRC = 0.

NEXTPAGE = IN_PAR-VALUE.

READ TABLE OUT_PAR WITH KEY ‘BARCODE’.

CHECK SY-SUBRC = 0.

IF PAGNUM = 1.

OUT_PAR-VALUE = ‘|’. "First page

ELSE.

OUT_PAR-VALUE = ‘||’. "Next page

ENDIF.

IF NEXTPAGE = 0.

OUT_PAR-VALUE+2 = ‘L’. "Flag: last page

ENDIF.

MODIFY OUT_PAR INDEX SY-TABIX.

ENDFORM.

cheers,

Bhasha

Re: script

Former Member — Mon, 23 Apr 2007 18:43:54 GMT

Hi Vijay,

U have to send the variables to script from report.

/: PERFORM ADDR IN PROGRAM ZF140

/: USING &T001-ADRNR&

/: CHANGING &NAME_1&

/: CHANGING &CITY_1&

/: CHANGING &CITY_2&

/: CHANGING &CITY_CODE&

/: ENDPERFORM

PR &NAME_1&

PR &CITY_1&

PR &CITY_2&

PR &CITY_CODE&

in Report Program........

TABLES: ADRC ,T001.

DATA: ADRNR LIKE T001-ADRNR,

NAME LIKE ADRC-NAME_1,

CITY1 LIKE ADRC-CITY_1,

CITY2 LIKE ADRC-CITY_2,

CODE LIKE ADRC-CITY_CODE.

FORM ADDR TABLES in_par STRUCTURE itcsy

out_par STRUCTURE itcsy.

READ TABLE in_par WITH KEY 'T001-ADRNR'.

CHECK sy-subrc = 0.

ADRNR = in_par-value.

SELECT NAME_1 CITY1 CITY2 CITY_CODE FROM ADRC INTO ( NAME CITY1 CITY2 CODE )WHERE ADDRNUMBER = ADRNR.

READ TABLE out_par WITH KEY 'NAME_1'.

CHECK sy-subrc = 0.

out_par-value = NAME.

MODIFY out_par INDEX sy-tabix.

READ TABLE out_par WITH KEY 'CITY_1'.

CHECK sy-subrc = 0.

out_par-value = CITY1.

MODIFY out_par INDEX sy-tabix.

READ TABLE out_par WITH KEY 'CITY_2'.

CHECK sy-subrc = 0.

out_par-value = CITY2.

MODIFY out_par INDEX sy-tabix.

READ TABLE out_par WITH KEY 'CITY_CODE'.

CHECK sy-subrc = 0.

out_par-value = CODE.

MODIFY out_par INDEX sy-tabix.

CLEAR: ADRNR, NAME, CITY1, CITY2, CODE.

ENDFORM.

Reward if it helpful.......

Regards

SAB

Re: script

Former Member — Thu, 10 May 2007 06:19:05 GMT