FORM PUT_SPFLI.
  DATA L_WHERE TYPE RSDS_WHERE.
  DATA L_TAB_FIELDS TYPE RSFS_TAB_FIELDS.
* Dynamic selections for tables SPFLI
  MOVE 'SPFLI' TO L_WHERE-TABLENAME.
  READ TABLE DYN_SEL-CLAUSES WITH KEY L_WHERE-TABLENAME INTO L_WHERE.
* Field selection for node SPFLI
  MOVE 'SPFLI' TO L_TAB_FIELDS-TABLENAME.
  READ TABLE SELECT_FIELDS WITH KEY L_TAB_FIELDS-TABLENAME INTO L_TAB_FIELDS.
* Data retrieval
  SELECT (L_TAB_FIELDS-FIELDS)
    INTO CORRESPONDING FIELDS OF SPFLI FROM SPFLI
      WHERE CARRID     IN  CARRID
        AND AIRPFROM   IN  AIRP_FR
        AND AIRPTO     IN  AIRP_TO
        AND (L_WHERE-WHERE_TAB) ORDER BY PRIMARY KEY.
    PUT SPFLI.
  ENDSELECT.
ENDFORM.                              

FORM PUT_SFLIGHT.
  DATA L_TAB_FIELDS TYPE RSFS_TAB_FIELDS.
* Field selection for node SFLIGHT
  MOVE 'SFLIGHT' TO L_TAB_FIELDS-TABLENAME.
  READ TABLE SELECT_FIELDS WITH KEY L_TAB_FIELDS-TABLENAME INTO L_TAB_FIELDS.
SELECT (L_TAB_FIELDS-FIELDS)
    INTO CORRESPONDING FIELDS OF SFLIGHT FROM SFLIGHT
      WHERE CARRID   =  SPFLI-CARRID  AND CONNID  =  SPFLI-CONNID
         AND FLDATE   IN  FLDATE ORDER BY PRIMARY KEY.
    PUT SFLIGHT.
  ENDSELECT.
ENDFORM.                               "PUT_SFLIGHT


FORM PUT_SBOOK.
  CONSTANTS MARK VALUE 'X'.
  DATA L_TAB_FIELDS TYPE RSFS_TAB_FIELDS.
MOVE 'SBOOK' TO L_TAB_FIELDS-TABLENAME.
  READ TABLE SELECT_FIELDS WITH KEY L_TAB_FIELDS-TABLENAME INTO L_TAB_FIELDS.
CASE PA_CANC.
    WHEN MARK.
      SELECT (L_TAB_FIELDS-FIELDS)
        INTO CORRESPONDING FIELDS OF SBOOK FROM SBOOK
           WHERE CARRID   =  SFLIGHT-CARRID
             AND CONNID   =  SFLIGHT-CONNID  AND FLDATE   =  SFLIGHT-FLDATE
             AND BOOKID   IN BOOKID.
         PUT SBOOK.
      ENDSELECT.
    WHEN SPACE.
      SELECT (L_TAB_FIELDS-FIELDS)
        INTO CORRESPONDING FIELDS OF SBOOK FROM SBOOK
           WHERE CARRID   =  SFLIGHT-CARRID
             AND CONNID   =  SFLIGHT-CONNID   AND FLDATE   =  SFLIGHT-FLDATE
             AND CANCELLED = ' '   AND BOOKID   IN BOOKID.
        PUT SBOOK.
     ENDSELECT.
  ENDCASE.
ENDFORM.                               "PUT_SBOOK