NO me inserta campo SADR-SORT2 mediante PERFORM

[Jonathan Barrio Rodriguez]

Hola, Buenas,

Necesito imprimir en un Talón ZF110 el campo ADRC-SORT2 (concepto de busqueda 2) que tambi'en viene en muchas otras tablas, SADR x ejempl.
En la REGUH (tabla de datos que se insertan en el formulario) existe el SORT1, pero no el SORT2, as'i que he decidido hacer una llamada a un perform desde el Formulario... ya que la clave para la tabla (ADRNR) si
la tengo en el Formulario...y he insertado un c'odigo que no me funciona... a pesar que veo que todo est'a correcto...

/: DEFINE: &SOCIO& = &SADR-SORT2&
/: DEFINE: &VALUE& = &REGUH-ADRNR&
/: PERFORM GET_N_SOCIO IN PROGRAM ZRFFOUS_C_NSOCIO
/: USING &VALUE&CHANGING &SOCIO&
/: ENDPERFORM
T1 &SOCIO&

Y he creado un programa con su respectivo perform...

--------------------------------------------------
FORM get_n_socio TABLES INPUT_TABLE STRUCTURE ITCSY OUTPUT_TABLE STRUCTURE ITCSY.

LOOP AT INPUT_TABLE.
VALUE = INPUT_TABLE-VALUE.
SELECT SINGLE * FROM adrc WHERE ADdrnumber = VALUE.
socio= adrc-sort2.

ENDLOOP.

LOOP AT OUTPUT_TABLE.

OUTPUT_TABLE-VALUE = socio.

MODIFY OUTPUT_TABLE.

ENDLOOP.

ENDFORM.
--------------------------------------

Y con muchas pruebas, y sin ver nada incorrecto... no funciona.<>*

Alguien tuvo algo Parecido?? Saben si cometo alg'un erro??

Muchas Gracias