Mantıksal database

NODES : spfli, sflight.



START-OF-SELECTION.


GET spfli.

  WRITE: /     spfli-carrid COLOR COL_HEADING NO-GAP,
               spfli-connid COLOR COL_HEADING,
           /20 spfli-cityfrom COLOR COL_NORMAL INTENSIFIED ON,
               spfli-cityto   COLOR COL_NORMAL INTENSIFIED OFF,
         /(20) spfli-deptime UNDER spfli-cityfrom
               COLOR COL_NORMAL INTENSIFIED ON
               USING EDIT MASK '__:__',
          (20) spfli-arrtime UNDER spfli-cityto
               COLOR COL_NORMAL INTENSIFIED OFF
               USING EDIT MASK '__:__'.

GET spfli LATE.
  ULINE.

GET sflight.
  WRITE : / sflight-fldate.




END-OF-SELECTION.

  WRITE : / 'bitti'.