READコマンドは、EXECUTEコマンドで指定されたSQLステートメントから返される結果セットを読み込む場合に使用されます。このコマンドでは、オプションの COLUMN_LIST キーワード値、もしくは、SET PARAMETER(*MAP) コマンドにより提供されるフィールドと列のマッピングを使用します。
結果リストを受け取る作業リストがEXECUTEコマンドにない場合、EXECUTEコマンドはREADコマンドでアクセスするまでサーバー上に残ります。
予想されるレコードの数が作業リストのサイズや幅を超える場合、READコマンドを使用する必要があります。READ コマンドを使用して、サーバーから持ち出されるレコードの数をいつでも減らすことができます。例えば、SQL結果が20,000レコードを返す場合、そのレコードを1,000のセットで読み込み、割り当てられるリソースの量を減らすと便利になります。
また、RDML作業リストの最大幅が256文字の例もあります。文字幅300の結果セットが予想される場合、この結果セットをEXECUTEコマンドの一部として作業リストに返すことはできません。この場合、READコマンドを使用して、管理可能なチャンクでレコードを取り出します。必要に応じて、複数のREADを発行し、文字幅が256未満のリストに結果を配置できます。
構文：
コマンド | キーワード | 値 | 開発者用メモ |
|---|---|---|---|
READ | SCROLL | *YES | 任意。次の読み込み用に新しい行と古い行のどちらを選択するかを指定します。 |
*NO | リスト引数にデータが埋められますが、前方にはスクロールしません。 | ||
COLUMN_LIST | 値 | 任意。結果セットに存在するコンマで区切られた列リスト。 |
コメント/警告
READコマンドは、SET PARAMETER(*MAP)コマンドで提供されるフィールドと列のマッピングを使用して現在の結果セットを読み込みます。作業リストのフィールドは列にマッピングされ、これらの列のデータは作業リストのフィールドにマッピングされます。
上記のように、このREADコマンドの機能により、管理可能なチャンク単位で情報にアクセスできます。SCROLLキーワードでは、以降のREADで同じレコードの新しい列をこの現在の読み込みとして取得するか、あるいはレコードの次のセットの列を取得するかを決めることができます。以下のようになります。
- *YES - READで指定された列を選択する場合、次の読み込みで完全に新しいレコードのセットから列を取り出すように前方へスクロールします。
- *NO - READで列を選択する場合、次のREADで同じ行の新しい列を選択できるように前方へスクロールしません。
前方へスクロールするレコードの数は、作業リストのエントリー数として定義される数になります。
リストと変数
このコマンドでは、取得された値が返される際の作業リストを指定する必要があります。作業リストに定義された列は、この特定の READ で取得する列になります。これらのフィールドと、リモート・テーブルの実際のフィールドとの関係は、SET PARAMETER(*MAP)コマンドで設定されます。
この機能については以下の例を参照してください。
例
SQLServiceサービスのSET、EXECUTE、READの各コマンドは、それぞれ緊密に関連しています。
RDML
* JSM コマンドおよびメッセージ・フィールドの定義DEFINE FIELD(#JSMSTS) TYPE(*CHAR) LENGTH(020)DEFINE FIELD(#JSMMSG) TYPE(*CHAR) LENGTH(256)DEFINE FIELD(#JSMCMD) TYPE(*CHAR) LENGTH(256)
*フィールドとリストを定義して、フィールド／列のマッピングを示すDEFINE FIELD(#FIELD) TYPE(*CHAR) LENGTH(010)DEFINE FIELD(#COLUMN) TYPE(*CHAR) LENGTH(030)DEF_LIST NAME(#MAPLST) FIELDS(#FIELD #COLUMN) TYPE(*WORKING)
*クエリ・データが返されるフィールドとリストの定義DEFINE FIELD(#COL1) TYPE(*CHAR) LENGTH(010)DEFINE FIELD(#COL2) TYPE(*CHAR) LENGTH(020)DEFINE FIELD(#COL3) TYPE(*DEC) LENGTH(008) DECIMALS(0)DEFINE FIELD(#COL4) TYPE(*DEC) LENGTH(012) DECIMALS(2)DEF_LIST NAME(#WRKLST1) FIELDS(#COL1 #COL3) TYPE(*WORKING)DEF_LIST NAME(#WRKLST2) FIELDS(#COL1 #COL2 #COL4) TYPE(*WORKING)
*マッピングの定義CHANGE FIELD(#FIELD) TO(COL1)CHANGE FIELD(#COLUMN) TO(ID)ADD_ENTRY TO_LIST(#MAPLST)CHANGE FIELD(#FIELD) TO(COL2)CHANGE FIELD(#COLUMN) TO(NAME)ADD_ENTRY TO_LIST(#MAPLST)CHANGE FIELD(#FIELD) TO(COL3)CHANGE FIELD(#COLUMN) TO(AGE)ADD_ENTRY TO_LIST(#MAPLST)CHANGE FIELD(#FIELD) TO(COL4)CHANGE FIELD(#COLUMN) TO(SALARY)ADD_ENTRY TO_LIST(#MAPLST) CHANGE FIELD(#JSMCMD) TO('SET PARAMETER(*MAP) SERVICE_LIST(FIELD,COLUMN)')USE BUILTIN(JSM_COMMAND) WITH_ARGS(#JSMCMD) TO_GET(#JSMSTS #JSMMSG #MAPLST) CHANGE FIELD(#JSMCMD) TO('EXECUTE QUERY(SELECT ID,NAME,AGE,SALARY FROM TBLNAME)')USE BUILTIN(JSM_COMMAND) WITH_ARGS(#JSMCMD) TO_GET(#JSMSTS #JSMMSG) USE BUILTIN(JSM_COMMAND) WITH_ARGS('READ SERVICE_LIST(COL1,COL3) SCROLL(*NO)') TO_GET(#JSMSTS #JSMMSG #WRKLST1) USE BUILTIN(JSM_COMMAND) WITH_ARGS('READ SERVICE_LIST(COL1,COL2,COL4)') TO_GET(#JSMSTS #JSMMSG #WRKLST2)
RDMLX
* JSM コマンドおよびメッセージ・フィールドの定義Define Field(#JSMSTS) Type(*CHAR) Length(020)Define Field(#JSMMSG) Type(*CHAR) Length(256)Define Field(#JSMCMD) Type(*CHAR) Length(256)Define Field(#JSMHND) Type(*Char) Length(4)
* フィールドとリストを定義して、フィールド／列のマッピングを示すDefine Field(#FIELD) Type(*Char) Length(010)Define Field(#COLUMN) Type(*Char) Length(030)Def_List Name(#MAPLST) Fields(#FIELD #COLUMN) Type(*Working)
* クエリ・データが返されるフィールドとリストの定義Define Field(#COL1) Type(*Char) Length(010)Define Field(#COL2) Type(*Char) Length(020)Define Field(#COL3) Type(*Dec) Length(008) Decimals(0)Define Field(#COL4) Type(*Dec) Length(012) Decimals(2)Def_List Name(#WRKLST1) Fields(#COL1 #COL3) Type(*Working)Def_List Name(#WRKLST2) Fields(#COL1 #COL2 #COL4) Type(*Working)
* マッピングの定義#FIELD := COL1#COLUMN := IDAdd_Entry To_List(#MAPLST)#FIELD := COL2#COLUMN := NAMEAdd_Entry To_List(#MAPLST)#FIELD := COL3#COLUMN := AGEAdd_Entry To_List(#MAPLST)#FIELD := COL4#COLUMN := SALARYAdd_Entry To_List(#MAPLST) #JSMCMD := 'Set Parameter(*Map)'Use Builtin(JSMX_COMMAND) With_Args(#JSMHND #JSMCMD) To_Get(#JSMSTS #JSMMSG #MAPLST)
* クエリ実行#JSMCMD := 'Execute Query(Select ID,NAME,AGE,SALARY From TBLNAME)'Use Builtin(JSMX_COMMAND) With_Args(#JSMHND #JSMCMD) To_Get(#JSMSTS #JSMMSG)
* 列 1 & 3 (ID と年齢) の読み込みUse Builtin(JSMX_COMMAND) With_Args(#JSMHND 'Read Scroll(*NO)') To_Get(#JSMSTS #JSMMSG #WRKLST1)
* 列 1, 2, & 4 (ID、名前、給与) の読み込みUse Builtin(JSMX_COMMAND) With_Args(#JSMHND 'Read Scroll(*NO)') To_get(#JSMSTS #JSMMSG #WRKLST2)