Espero te ayude:
1.-Segun a mi entender no necesitas definir &SOCIO& dentro del script, solo lo mandas a llamar.
2.- Si estas utilizando la estructura itcsy cuando mandes tu campo de salida tiene que ser en tipo caracter .....otro no deja.
Te dejo parte de mi codigo que use hace poco para calular campos para un Script:
FORM obten_descrip TABLES in_par STRUCTURE itcsy
out_par STRUCTURE itcsy.
DATA: b_ebeln LIKE ekpo-ebeln,
b_ebelp LIKE ekpo-ebelp,
b_txz01(70) TYPE c,
v_desc(70) TYPE c,
v_desc2 TYPE string.
CLEAR: in_par, b_ebeln, b_ebelp, b_txz01.
READ TABLE in_par INDEX 1.
IF sy-subrc = 0.
b_ebeln = in_par-value.
ENDIF.
READ TABLE in_par INDEX 2.
IF sy-subrc = 0.
b_ebelp = in_par-value.
ENDIF.
CLEAR: b_txz01, v_desc, v_desc2.
SELECT SINGLE txz01 FROM ekpo
INTO b_txz01
WHERE ebeln = b_ebeln
AND ebelp = b_ebelp.
CONDENSE b_txz01.
MOVE b_txz01 TO v_desc2.
CLEAR out_par.
READ TABLE out_par WITH KEY name = 'DESC'.
out_par-value = v_desc2.
MODIFY out_par INDEX sy-tabix.
ENDFORM. "obten_descrip
en mi script se encuentra como:
PERFORM OBTEN_DESCRIP IN PROGRAM ZTOTAL_MEDRUCK
USING &EKPO-EBELN&
USING &EKPO-EBELP&
CHANGING &DESC&
ENDPERFORM
Espero te pueda servir de algo.....
Nos vemos.
|