[ 
|../../index.htm#lansa/open_e.htm]
現在地:
7.93.3 OPEN の使用例
例1：最初の画面対話処理中に顧客マスター・ファイルCUSTMSTを開きます。
OPEN FILE(CUSTMST)
または
OPEN FILE(CUSTMST) USE_OPTION(*FIRSTSCREEN)
例2：「必要に応じて」開かれる顧客マスター・ファイルを除くすべてのファイルを直ちに開きます。
OPEN FILE(*ALL) USE_OPTION(*IMMEDIATE) OPEN FILE(CUSTMST) USE_OPTION(*ONDEMAND)
例3：ファイルSTATESを開き、すべてのレコードを作業リスト#WRK_LISTにロードしてから、ファイルSTATESを閉じます。
OPEN FILE(STATES) USE_OPTION(*IMMEDIATE) SELECT FIELDS(#WRK_LIST) FROM_FILE(STATES) ADD_ENTRY TO_LIST(#WRK_LIST) ENDSELECT CLOSE FILE(STATES)
例4：ファイルSTATESを開き、すべてのレコードを州名(STATNM)順に作業リスト#WRK_LISTにロードしてから、ファイルSTATESを閉じます。
OPEN FILE(STATES) USE_OPTION(*OPNQRYF) KEYFLD('STATNM') SELECT FIELDS(#WRK_LIST) FROM_FILE(STATES) ADD_ENTRY TO_LIST(#WRK_LIST) ENDSELECT CLOSE FILE(STATES)
例5：ファイルSTATESを開き、すべてのレコードを州名(STATNM)順に作業リスト#WRK_LISTにロードします。次に、郵便番号(POSTCD)が2000～3999のレコードのみを選択し、ファイルSTATESを閉じます。
OPEN FILE(STATES) USE_OPTION(*OPNQRYF) KEYFLD('STATNM') QRYSLT('(POSTCD *GE 2000) *AND (POSTCD *LE 3999)') SELECT FIELDS(#WRK_LIST) FROM_FILE(STATES) ADD_ENTRY TO_LIST(#WRK_LIST) ENDSELECT CLOSE FILE(STATES)
例6：名前および住所のクエリー要求についてのみ応答する、完全なユーザー駆動型の名前/住所レポートを作成します。名前/住所ファイルの名前はNAMESです。
DEFINE FIELD(#SELECTION) TYPE(*CHAR) LENGTH(100) LABEL('Select :') DEFINE FIELD(#ORDER_BY) TYPE(*CHAR) LENGTH(100) LABEL('Sort :') DEF_LINE NAME(#LINE1) FIELDS(#CUSTNO #NAME #ADDR1 #ADDR2 #ADDR3 #POSTCD #CRTDATE) L1: REQUEST FIELDS(#SELECTION #ORDER_BY) OPEN FILE(NAMES) USE_OPTION(*OPNQRYF) IO_ERROR(L1) QRYSLT(#SELECTION) KEYFLD(#ORDER_BY) SELECT FIELDS(#LINE1) FROM_FILE(NAMES) PRINT LINE(#LINE1) ENDSELECT CLOSE FILE(NAMES)
例7：ユーザーが名前/住所ファイルの住所行3行で地区名をスキャンすることのできるレポートを作成します。要求された地区を含むすべての顧客の詳細を印刷します。
DEFINE FIELD(#SRCHSUB) TYPE(*CHAR) LENGTH(20) LABEL('Suburb :') DEFINE FIELD(#SELECT) TYPE(*CHAR) LENGTH(256) DEF_LINE NAME(#LINE1) FIELDS(#CUSTNO #NAME #ADDR1 #ADDR2 #ADDR3 #POSTCD #CRTDATE) REQUEST FIELDS(#SRCHSUB) USE BUILTIN(TCONCAT) WITH_ARGS('''(ADDR1 *CT "''' #SRCHSUB '''")''') TO_GET(#SELECT) USE BUILTIN(TCONCAT) WITH_ARGS(#SELECT ''' *OR (ADDR2 *CT "''' #SRCHSUB '''")''') TO_GET(#SELECT) USE BUILTIN(TCONCAT) WITH_ARGS(#SELECT ''' *OR (ADDR3 *CT "''' #SRCHSUB '''")''') TO_GET(#SELECT) OPEN FILE(NAMES) USE_OPTION(*OPNQRYF) QRYSLT(#SELECT) KEYFLD(*FILE) SELECT FIELDS(#LINE1) FROM_FILE(NAMES) PRINT LINE(#LINE1) ENDSELECT CLOSE FILE(NAMES)
例8：ファイルSTATESを開き、すべてのレコードをブラウズ・リスト#BROWSELにロードし、州が'NSW'および'QLD'、郵便番号が2000～4999のレコードのみを選択します。
DEFINE FIELD(#FIELDA) TYPE(*CHAR) LENGTH(256) DEFINE FIELD(#FIELDB) TYPE(*CHAR) LENGTH(256) CHANGE FIELD(#FIELDA) TO('(DEPTMENT *EQ "ADM") *OR (DEPTMENT *EQ "MNT") OR ') CHANGE FIELD(#FIELDB) TO('(DEPTMENT *EQ "FLT") *OR (DEPTMENT *EQ "MIS")') EXCHANGE FIELDS(#FIELDA) EXCHANGE FIELDS(#FIELDB) OPEN FILE(STATES) USE_OPTION(*OPNQRYF) QRYSLT('=EXCHANGE') SELECT FIELDS((#BROWSEL)) FROM_FILE(STATES) ADD_ENTRY TO_LIST(#BROWSEL) ENDSELECT
[ |../../index.htm#lansa/open_e.htm]