CLOSE PC FILE

#### Search Results

Search

# CLOSE PC FILE

`CLOSE` |  | `PC` |  | [`FILE`] work-file-number
`WORK`

Dieses Dokument behandelt folgende Themen:

- Funktion CLOSE PC FILE

- Syntax-Beschreibung CLOSE PC FILE

- Beispiel für CLOSE PC FILE-Statement

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

## Syntax-Beschreibung CLOSE PC FILE

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 für CLOSE PC FILE-Statement

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.

### On this page

- Funktion CLOSE PC FILE
- Syntax-Beschreibung CLOSE PC FILE
- Beispiel für CLOSE PC FILE-Statement