FETCH NEXT CURSOR C INTO WA

TABLES SBOOK.
DATA: C TYPE CURSOR,
WA LIKE SBOOK.
OPEN CURSOR C FOR SELECT * FROM SBOOK
WHERE
CARRID = 'AA' AND
CONNID = '017' AND
BOOKID = '00000053'
ORDER BY PRIMARY KEY.
DO.
FETCH NEXT CURSOR C INTO WA.
IF SY-SUBRC <> 0.
CLOSE CURSOR C. EXIT.
ENDIF.
WRITE: / WA-BOOKID, WA-CUSTOMID, WA-CUSTTYPE,
WA-SMOKER, WA-LUGGWEIGHT, WA-WUNIT,
WA-INVOICE.
ENDDO.

TRAE DATOS UY LOS DEJA EN LA VARIABLE C Y DESPUES LOS PASA AL WA