REPORT  Z21_01   .

NODES: SPFLI, SFLIGHT, SBOOK.

START-OF-SELECTION.

  WRITE 'Test Program for LDB'.

GET SPFLI.

  SKIP.

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

           'TO  :', SPFLI-CITYTO.

GET SFLIGHT.

  SKIP.

  WRITE: / 'Airline Code :', SFLIGHT-CARRID,

           'Connection No:', SFLIGHT-CONNID.

  ULINE.

GET SBOOK.

  WRITE: / 'Flight date:',    SFLIGHT-FLDATE,

           'Bookid:',         SBOOK-BOOKID.

ULINE.