CLOSE PC FILE

CLOSE

PC

[FILE] work-file-number
WORK

このドキュメントでは、次のトピックについて説明します。

構文図で使用されている記号については、「構文記号」を参照してください。

関連ステートメント：DOWNLOAD PC FILE | UPLOAD PC FILE

関連機能グループ：ワークファイル／PC ファイルの制御

関数

CLOSE PC FILE ステートメントは、特定の PC ワークファイルをクローズします。これにより、クローズする PC ワークファイルをプログラム内で指定できます。

また、コマンドモードになった場合は、ワークファイルが自動的にクローズされます。

詳細については、『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

プログラム PCCLEX1 の出力：

プログラムを実行するとウィンドウが開くので、そこでアップロードするデータが含まれている PC ファイルの名前を指定します。その後、データが PC からアップロードされます。各ループの最後で、PC ワークファイルがクローズされます。