PC |
[FILE ] work-file-number [ONCE ]
|
||||||||||||||
WORK |
|||||||||||||||
RECORD
|
operand1 | ||||||||||||||
[AND ]
|
[SELECT ]
|
OFFSET n |
operand2 | ||||||||||||
FILLER nX |
|||||||||||||||
[GIVING LENGTH operand3]
|
|||||||||||||||
AT [END ] [OF ] [FILE ]
|
|||||||||||||||
statement | |||||||||||||||
END-ENDFILE |
|||||||||||||||
statement | |||||||||||||||
END-WORK |
PC |
[FILE ] work-file-number [ONCE ]
|
||||||||||
WORK |
|||||||||||
RECORD {operand1 [FILLER nX ]}
|
|||||||||||
[AND ] [SELECT ]
|
OFFSET n |
operand2 | |||||||||
FILLER nX |
|||||||||||
[GIVING LENGTH operand3]
|
|||||||||||
AT [END ] [OF ] [FILE ]
|
statement | ||||||||||
DO statement DOEND
|
|||||||||||
statement | |||||||||||
[LOOP ]
|
このドキュメントでは、次のトピックについて説明します。
構文図で使用されている記号については、「構文記号」を参照してください。
関連ステートメント:CLOSE PC FILE | DOWNLOAD PC FILE | READ WORK FILE
関連機能グループ:「ワークファイル/PC ファイルの制御」
UPLOAD PC FILE
ステートメントは、PC からメインフレーム プラットフォームにデータを転送するために使用します。
以下の項目も参照してください。
『Natural Connection』および『Entire Connection』ドキュメント
READ WORK FILE
ステートメントの構文説明
オペランド定義テーブル:
オペランド | 構文要素 | フォーマット | ステートメント参照 | ダイナミック定義 | ||||||||||||||
---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|
operand1 | S | A | G | A | U | N | P | I | F | B | D | T | L | C | 可 | 可 | ||
operand2 | S | A | G | A | U | N | P | I | F | B | D | T | L | C | 可 | 可 | ||
operand3 | S | I | 可 | 可 |
フォーマット C は Natural Connection では無効です。
構文要素の説明:
work-file-number | 使用するワークファイルの番号です。 この番号は、Natural に対する定義に従って、PC のワークファイル番号の 1 つに対応している必要があります。 |
---|---|
operand1-2 |
フィールド指定:
operand1 およびoperand2 では、PC からアップロードするフィールドを指定します。 データベースフィールドまたはユーザー定義変数を指定できます。 |
statement | UPLOAD PC FILE 処理で I/O ステートメントを指定することはできません。
|
ONCE、SELECT、GIVING LENGTH
RECORD |
オプション:
PC ワークファイルには、 データをアップロードするときにフィルタを定義する場合、標準のフィルタ表記の代わりにダミー変数を使用する必要があります。 |
END-WORK | UPLOAD PC FILE ステートメントを終了するには、Natural 予約キーワード END-WORK を使用する必要があります。
|
次のプログラムでは、UPLOAD PC FILE
ステートメントの使用方法を例示しています。 データは最初に PC からアップロードされ、その後でメインフレームで処理されます。
** Example 'PCUPEX1': UPLOAD PC FILE ** ** NOTE: Example requires that Natural Connection is installed. ** CAUTION: Executing this example will modify the database records! ************************************************************************ DEFINE DATA LOCAL 01 EMPL VIEW OF EMPLOYEES 02 PERSONNEL-ID 02 INCOME 03 SALARY (1) * 01 #PID (A8) /* Personnel ID on PC 01 #NEW-INCREASE (N4) /* Increase for salary END-DEFINE * UPLOAD PC FILE 7 #PID #NEW-INCREASE /* Data upload * FIND EMPL WITH PERSONNEL-ID = #PID /* Data selection ADD #NEW-INCREASE TO SALARY (1) /* Data update on host UPDATE END TRANSACTION ESCAPE BOTTOM END-FIND * END-WORK END
プログラムを実行するとウィンドウが開くので、そこでアップロードするデータが含まれている PC ファイルの名前を指定します。 その後、データが PC からアップロードされます。