Program 1
OPEN cursor
FETCH record 1
Cali second program passing cursor yariable
CLOSE cursor
FETCH record 2
FETCH record 3
Return to first program