7.39.2 ENDSELECTの使用例

LANSA

7.39.2 ENDSELECTの使用例


例1:明細行ファイル内で受注番号がフィールド#ODRNUMの指定と一致するレコードのフィールド#ORDLIN、#PRODUCT、#QUANTITY、および#PRICEを選択して印刷します。

SELECT    FIELDS(#ORDLIN #PRODUCT #QUANTITY #PRICE) FROM_FILE(ORDLIN) WITH_KEY(#ORDNUM)
UPRINT    FIELDS(#ORDLIN #PRODUCT #QUANTITY #PRICE)
ENDSELECT
 

または、以下のように指定しても同じです。

GROUP_BY  NAME(#ORDERLINE) FIELDS(#ORDLIN #PRODUCT #QUANTITY #PRICE)
SELECT    FIELDS(#ORDERLINE) FROM_FILE(ORDLIN) WITH_KEY(#ORDNUM)
UPRINT    FIELDS(#ORDERLINE)
ENDSELECT
 

例2:明細行ファイル内で#QUANTITY値が10より大きいか#PRICE値が49.99未満のレコードのフィールド#ORDLIN、#PRODUCT、#QUANTITY、および#PRICEフィールドを選択して印刷します。

SELECT    FIELDS(#ORDLIN #PRODUCT #QUANTITY #PRICE) FROM_FILE(ORDLIN) WHERE('(#QUANTITY *GT 10) *OR (#PRICE *LT 49.99)')
UPRINT    FIELDS(#ORDLIN #PRODUCT #QUANTITY #PRICE)
ENDSELECT
 

または、以下のように指定しても同じです。

GROUP_BY  NAME(#ORDERLINE) FIELDS(#ORDLIN #PRODUCT #QUANTITY #PRICE)
SELECT    FIELDS(#ORDERLINE) FROM_FILE(ORDLIN) WHERE('(#QUANTITY *GT 10) *OR (#PRICE *LT 49.99)')
UPRINT    FIELDS(#ORDERLINE)
ENDSELECT
 

例3:#ORDERLINEというリストの、「変更された」項目をすべて処理します。リストおよびリスト処理の詳細については、DEF_LISTコマンドのセクションを参照してください。

SELECTLIST NAMED(#ORDERLINE) GET_ENTRYS(*ALTERED)
*      << Commands to process the list >>
*      << Commands to process the list >>
*      << Commands to process the list >>
ENDSELECT