CLOSE WORK [FILE]  work-file-number

Dieser Abschnitt behandelt folgende Themen:

• Funktion CLOSE WORK FILE

• Syntax-Beschreibung CLOSE WORK FILE

• Beispiel für CLOSE WORK FILE-Statement

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

Verwandte Statements: DEFINE WORK FILE | READ WORK FILE | WRITE WORK FILE

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

---

Funktion CLOSE WORK FILE

Das Statement CLOSE WORK FILE dient dazu, eine bestimmte Arbeitsdatei zu schließen. Es erlaubt Ihnen, in einem Programm explizit anzugeben, dass eine Arbeitsdatei geschlossen werden soll.

Eine Arbeitsdatei schließt sich auch automatisch,

• wenn der Kommando-Modus erreicht ist;

• wenn eine Dateiende-Bedingung bei Ausführung eines READ WORK FILE-Statements auftritt;

• bevor ein DEFINE WORK FILE-Statement ausgeführt wird, das der betreffenden Arbeitsdateinummer ein anderes Dataset zuweist;

• entsprechend dem Schlüsselwortparameter CLOSE des Profilparameters WORK.

CLOSE WORK FILE wird für Arbeitsdateien ignoriert, für die im Profilparameter WORK CLOSE=FIN angegeben ist.

Syntax-Beschreibung CLOSE WORK FILE

Syntax-Element-Beschreibung:

Syntax-Element	Beschreibung
work-file-number	Arbeitsdateinummer: Gibt die für Natural definierte Nummer der Arbeitsdatei an, die gelesen werden soll. Die Nummer der Arbeitsdatei ist entweder eine numerische Konstante im Wertebereich 1:32 oder eine mit der Klausel CONSTANT definierte numerische Variable im Format B/N/P/I, die einen Wert im Bereich 1:32 zuweist. Dezimalstellen bei den Formaten (N/P) sind nicht erlaubt.

Beispiel für CLOSE WORK FILE-Statement

** Example 'CWFEX1': CLOSE WORK FILE                                    
************************************************************************
DEFINE DATA LOCAL                                                       
1 W-DAT   (A20)                                                         
1 REC-NUM (N3)                                                          
1 I       (P3)                                                          
END-DEFINE                                                              
*                                                                       
REPEAT                                                                  
  READ WORK FILE 1 ONCE W-DAT  /* READ MASTER RECORD                    
  /*                                                                    
  AT END OF FILE                                                        
    ESCAPE BOTTOM                                                       
  END-ENDFILE                                                           
  INPUT 'PROCESSING FILE' W-DAT (AD=O)                                  
      / 'ENTER RECORDNUMBER TO DISPLAY' REC-NUM                         
  IF REC-NUM = 0                                                        
    STOP                                                                
  END-IF
    FOR I = 1 TO REC-NUM                              
    /*                                              
    READ WORK FILE 1 ONCE W-DAT                     
    /*                                              
    AT END OF FILE                                  
      WRITE 'RECORD-NUMBER TOO HIGH, LAST RECORD IS'
      ESCAPE BOTTOM                                 
    END-ENDFILE                                     
  END-FOR                                           
  I := I - 1                                        
  WRITE 'RECORD' I ':' W-DAT                        
  /*                                                
  CLOSE WORK FILE 1                          
  /*                                                
END-REPEAT                                          
END