Pasar un rango a una subrutina

para ello utiliza los define.
*----------------------------------------------------------------------*
* DEFINE load_sel *
*----------------------------------------------------------------------*
DEFINE load_sel.
* Clear header
clear: &1.
* Fields initialize
&1-sign = &2.
&1-option = &3.
&1-low = &4.
&1-high = &5.
* Append...
append &1.
END-OF-DEFINITION. "load_sel.


y como lo llamas desde tu programa facil
EJEMPLO 1
load_sel ZT_RAN33 'I' 'EQ' 'KD' ' '.
load_sel ZT_RAN33 'I' 'EQ' 'KE' ' '.
load_sel ZT_RAN33 'I' 'EQ' 'KG' ' '.
EJEMPLO 2
LOAD_SEL: R_BLART 'I' 'EQ' 'VR' ' ',
R_BLART 'I' 'EQ' 'KR' ' ',
R_BLART 'I' 'EQ' 'VG' ' ',
R_BLART 'I' 'EQ' 'KG' ' ',
R_BLART 'I' 'EQ' 'VD' ' '.

EJEMPLO 3

SELECT BLART INTO VBLARTA
FROM ZTSRICLA
WHERE GRUPO IN S_GRUPO
AND BLART IN S_BLART.
LOAD_SEL R_BLART 'I' 'EQ' VBLARTA ' '.
ENDSELECT.