從列表調用屏幕

*&---------------------------------------------------------------------*
*& Report YTEST00A
*&---------------------------------------------------------------------*
*&Violin 2021/3/10
*&---------------------------------------------------------------------*
REPORT ytest00a.

*第六章 實戰屏幕SCREEN設計---------------------------------------------------------------------*
*6.12.2從列表調用屏幕
TABLES SPFLI.

START-OF-SELECTION.
  SELECT * FROM SPFLI.
    WRITE: / SPFLI-CARRID,(15) SPFLI-CONNID,(15) SPFLI-COUNTRYTO,(15) SPFLI-CITYFROM,(15) SPFLI-AIRPFROM.
    HIDE:SPFLI-CARRID,SPFLI-CONNID,SPFLI-COUNTRYFR,
          SPFLI-CITYFROM,SPFLI-AIRPFROM,SPFLI-COUNTRYTO,SPFLI-CITYTO,SPFLI-AIRPTO.
  ENDSELECT.

AT LINE-SELECTION.
  CHECK NOT SPFLI-CARRID IS INITIAL.
  CALL SCREEN 540.


MODULE CANCEL INPUT.
  LEAVE PROGRAM.
ENDMODULE.