CLOSE |
|
PC |
|
[FILE] work-file-number |
WORK |
このドキュメントでは、次のトピックについて説明します。
構文図で使用されている記号については、「構文記号」を参照してください。
関連ステートメント：DOWNLOAD PC FILE | UPLOAD PC FILE
関連機能グループ：「ワークファイル／PC ファイルの制御」
CLOSE PC FILE ステートメントは、特定の PC ワークファイルをクローズします。 これにより、クローズする PC ワークファイルをプログラム内で指定できます。
また、コマンドモードになった場合は、ワークファイルが自動的にクローズされます。
NTWORK マクロの設定が適用されます。
詳細については、『Natural Connection』ドキュメントと『Entire Connection』ドキュメントを参照してください。
| work-file-number |
work-file-number は、クローズする PC ワークファイルの番号です。 この番号は、Natural に対する定義に従って、PC のワークファイル番号の 1 つに対応している必要があります。 |
|---|
次のプログラムは、CLOSE PC FILE ステートメントの使用方法を示しています。
** Example 'PCCLEX1': CLOSE PC FILE
**
** NOTE: Example requires that Natural Connection is installed.
************************************************************************
DEFINE DATA LOCAL
01 W-DAT (A40)
01 REC-NUM (N3)
01 I (P3)
END-DEFINE
*
REPEAT
UPLOAD PC FILE 7 ONCE W-DAT /* Data upload
AT END OF FILE
ESCAPE BOTTOM
END-ENDFILE
INPUT 'Processing file' W-DAT (AD=O)
/ 'Enter record number to display' REC-NUM
IF REC-NUM = 0
STOP
END-IF
FOR I = 1 TO REC-NUM
UPLOAD PC FILE 7 ONCE W-DAT
AT END OF FILE
WRITE 'Max. record number reached, last record is'
ESCAPE BOTTOM
END-ENDFILE
END-FOR
I := I - 1
WRITE 'Record' I ':' W-DAT
CLOSE PC FILE 7 /* Close PC file 7
END-REPEAT
END プログラムを実行するとウィンドウが開くので、そこでアップロードするデータが含まれている PC ファイルの名前を指定します。 その後、データが PC からアップロードされます。 各ループの最後で、PC ワークファイルがクローズされます。