REPORT  Z10_001   .

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.