CLOSE		PC		[FILE] work-file-number
		WORK

Dieses Dokument behandelt folgende Themen:

• Funktion

• Syntax-Beschreibung

• Beispiel

Eine Erläuterung der in dem Syntax-Diagramm verwendeten Symbole entnehmen Sie dem Abschnitt Syntax-Symbole.

Verwandte Statements: DOWNLOAD PC FILE | UPLOAD PC FILE

---

Funktion

Das Statement CLOSE PC FILE dient dazu, eine bestimmte PC-Arbeitsdatei zu schließen. Es ermöglicht Ihnen, explizit in einem Programm anzugeben, dass eine PC-Arbeitsdatei geschlossen werden soll.

Eine Arbeitsdatei wird auch automatisch geschlossen, wenn der Kommandomodus erreicht ist.

Es gelten die Einstellungen im NTWORK-Makro.

Weitere Einzelheiten siehe Natural Connection- und Entire Connection-Dokumentation.

Gehört zur Funktionsgruppe: Verarbeitung von Arbeitsdateien/PC-Dateien

Syntax-Beschreibung

Syntax-Element-Beschreibung:

Syntax-Element	Beschreibung
work-file-number	Als work-file-number geben Sie die Nummer der zu schließenden PC-Arbeitsdatei an. Diese Nummer muss einer der Arbeitsdateinummern für den PC entsprechen (wie für Natural definiert).

Beispiel

Das folgende Programm veranschaulicht die Benutzung des CLOSE PC FILE-Statements.

** 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                                                           

Ausgabe des Programms PCCLEX1:

Wenn Sie das Programm starten, erscheint ein Fenster, in dem Sie den Namen der PC-Datei angeben, von der die Daten hochgeladen werden sollen. Die Daten werden dann vom PC hochgeladen. Am Ende jeder Schleife wird die PC-Datei geschlossen.