[Attilio Travascio]

Hola buenas tardes, no se si te sirve aun la respuesta, este es el codigo que colocaste:
/: DEFINE: &SOCIO& = &SADR-SORT2&
/: DEFINE: &VALUE& = &REGUH-ADRNR&
/: PERFORM GET_N_SOCIO IN PROGRAM ZRFFOUS_C_NSOCIO
/: USING &VALUE&CHANGING &SOCIO&
/: ENDPERFORM

si esta de esta manera, el error podria estar en que el changing debe ir en una linea sola
/: DEFINE: &SOCIO& = &SADR-SORT2&
/: DEFINE: &VALUE& = &REGUH-ADRNR&
/: PERFORM GET_N_SOCIO IN PROGRAM ZRFFOUS_C_NSOCIO
/: USING &VALUE&
/: CHANGING &SOCIO&
/: ENDPERFORM
de esta manera, de no ser asi, avisame y te mando una rutina en el programa de apoyo para que te leea el registro.