script

[Former Member]

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

[Former Member]

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

[Former Member]

Hai Vijay Krishna,

<b>Select the result into an ITAB and loop at that itab</b> 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

<b>INTO ITAB</b>

WHERE ITAB-adrnr EQ ADRC-ADDRNUMBER..

<b>IF SY-SUBRC EQ 0.

LOOP AT ITAB.

DO the form oprations here.

ENDLOOP.

ELSE.

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

ENDIF.</b>

ENDFORM.

Hope you got it.

<b>Reward points if it helps you.</b>

Regds,

Rama chary.Pammi

[Former Member]

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

[Former Member]

Hi Vijay,

U have to send the variables to script from report.

<b>/: 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&</b>

in Report Program........

<b>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.</b>

Reward if it helpful.......

Regards

SAB

[Former Member]

hh