GET |
[IN] [FILE] view-name |
||||||||
[PASSWORD=operand1]
|
|||||||||
[CIPHER=operand2]
|
|||||||||
|
|
|
[RECORD]
|
|
|
|
operand3 |
|
operand4  |
|
[RECORDS]
|
*ISN [(r)]
|
||||||||
このドキュメントでは、次のトピックについて説明します。
構文図で使用されている記号については、「構文記号」を参照してください。
関連ステートメント：ACCEPT/REJECT | AT BREAK | AT START OF DATA | AT END OF DATA | BACKOUT TRANSACTION | BEFORE BREAK PROCESSING | DELETE | END TRANSACTION | FIND | GET SAME | GET TRANSACTION | HISTOGRAM | LIMIT | PASSW | PERFORM BREAK PROCESSING | READ | RETRY | STORE | UPDATE
関連機能グループ：「データベースへのアクセスと更新」
GET ステートメントは、Adabas ISN（内部シーケンス番号）を指定してレコードを読み込みます。
GET ステートメントで処理ループは発生しません。
DL/I および SQL データベースに対して GET ステートメントは使用できません。
Entire System Server では、GET ステートメントを使用できません。
オペランド定義テーブル：
| オペランド | 構文要素 | フォーマット | ステートメント参照 | ダイナミック定義 | |||||||||||||||
|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|
| operand1 | C | S | A | 可 | 不可 | ||||||||||||||
| operand2 | C | S | N | 不可 | 不可 | ||||||||||||||
| operand3 | C | S | N | N | P | I | B * | 可 | 不可 | ||||||||||
| operand4 | S | A | A | N | P | I | F | B | D | T | L | 可 | 可 | ||||||
*operand3 のフォーマット B は、4 以下の長さでのみ使用できます。
構文要素の説明：
| view-name |
ビュー名：
レポーティングモードでは、view-name を DDM の名前にすることもできます。 |
|---|---|
| PASSWORD=operand1 |
Adabas または VSAM データベースにのみ適用できます。
|
| CIPHER=operand2 | |
| *ISN / operand3 |
内部シーケンス番号：
ISN は、数値定数、ユーザー定義変数（operand3）の形式、または Natural システム変数 注意: |
| (r) |
ステートメント参照：
表記
|
| operand4 |
データベースフィールドの参照：
operand4 は、ストラクチャードモードでは使用できません。 |
** Example 'GETEX1': GET
************************************************************************
DEFINE DATA LOCAL
1 PERSONS VIEW OF EMPLOYEES
2 PERSONNEL-ID
2 NAME
2 FIRST-NAME
1 SALARY-INFO VIEW OF EMPLOYEES
2 NAME
2 CURR-CODE (1:1)
2 SALARY (1:1)
*
1 #ISN-ARRAY (B4/1:10)
1 #LINE-NR (N2)
END-DEFINE
*
FORMAT PS=16
LIMIT 10
READ PERSONS BY NAME
MOVE *COUNTER TO #LINE-NR
MOVE *ISN TO #ISN-ARRAY (#LINE-NR)
DISPLAY #LINE-NR PERSONNEL-ID NAME FIRST-NAME
/*
AT END OF PAGE
INPUT / 'PLEASE SELECT LINE-NR FOR SALARY INFORMATION:' #LINE-NR
IF #LINE-NR = 1 THRU 10
GET SALARY-INFO #ISN-ARRAY (#LINE-NR)
WRITE / SALARY-INFO.NAME
SALARY-INFO.SALARY (1)
SALARY-INFO.CURR-CODE (1)
END-IF
END-ENDPAGE
/*
END-READ
END Page 1 05-01-13 13:17:42
#LINE-NR PERSONNEL NAME FIRST-NAME
ID
-------- --------- -------------------- --------------------
1 60008339 ABELLAN KEPA
2 30000231 ACHIESON ROBERT
3 50005800 ADAM SIMONE
4 20008800 ADKINSON JEFF
5 20009800 ADKINSON PHYLLIS
6 20012700 ADKINSON HAZEL
7 20013800 ADKINSON DAVID
8 20019600 ADKINSON CHARLIE
9 20008600 ADKINSON MARTHA
10 20005700 ADKINSON TIMMIE
PLEASE SELECT LINE-NR FOR SALARY INFORMATION: 1
ABELLAN 1450000 PTA