CLOSE
|
|
PC
|
|
[FILE]
work-file-number
|
WORK
|
Dieses Dokument behandelt folgende Themen:
Eine Erläuterung der in dem Syntax-Diagramm verwendeten Symbole entnehmen Sie dem Abschnitt Syntax-Symbole.
Verwandte Statements: DOWNLOAD PC FILE | UPLOAD PC FILE
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
| 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). |
|---|
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.