REPORT  Z09_010                                                     .
NODES: SPFLI, SFLIGHT, SBOOK.

START-OF-SELECTION.

  WRITE 'Test Program for GET'.
GET SPFLI.

  SKIP.

  WRITE: / 'From:', SPFLI-CITYFROM,

           'TO  :', SPFLI-CITYTO.
GET SFLIGHT.

  SKIP.

  WRITE: / 'Carrid:', SFLIGHT-CARRID,

           'Connid:', SFLIGHT-CONNID.

  ULINE.
GET SBOOK.

  WRITE: / 'Fldate:',    SFLIGHT-FLDATE,

           'Bookid:',    SBOOK-BOOKID,

           'Luggweight', SBOOK-LUGGWEIGHT.

  ULINE.