Page History
[ 
|../../index.htm#lansa/endselect_e.htm]
現在地:
...
7.50.2 ENDSELECT の使用例
...
例1：明細行ファイル内で受注番号がフィールド#ODRNUMの指定と一致するレコードのフィールド#ORDLIN、#PRODUCT、#QUANTITY、および#PRICEを選択して印刷します。
| Code Block |
|---|
SELECT FIELDS(#ORDLIN #PRODUCT #QUANTITY #PRICE) FROM_FILE(ORDLIN) |
...
WITH_KEY(#ORDNUM) |
...
UPRINT FIELDS(#ORDLIN #PRODUCT #QUANTITY #PRICE)
ENDSELECT |
または、以下のように指定しても同じです。
| Code Block |
|---|
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例2：明細行ファイル内で#QUANTITY値が10より大きいか#PRICE値が49.99未満のレコードのフィールド#ORDLIN、#PRODUCT、#QUANTITY、および#PRICEフィールドを選択して印刷します。 SELECT FIELDS(#ORDLIN #PRODUCT #QUANTITY #PRICE) FROM
| Code Block |
|---|
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 |
または、以下のように指定しても同じです。
| Code Block |
|---|
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例3：#ORDERLINEというリストの、「変更された」項目をすべて処理します。リストおよびリスト処理の詳細については、DEF_LISTコマンドのセクションを参照してください。 SELECTLIST NAMED
| Code Block |
|---|
SELECTLIST NAMED(#ORDERLINE) |
...
GET_ENTRYS(*ALTERED) |
...
* << Commands to process the list >>
* << Commands to process the list >>
* << Commands to process the list >>
ENDSELECT |