Programmeren in COBOL/Appendix B: file status

Wanneer je met bestanden werkt is de kans groot dat er iets misloopt. De bestanden kunnen niet worden gevonden of er gaat iets mis bij bewerkingen. Hiervoor dient de FILE STATUS in COBOL. Wanneer er iets misloopt, kun je aan de hand van de FILE STATUS zien wat er precies is fout gegaan. Je kunt dan je programma ook zodanig programmeren dat de gebruiker een foutbericht krijgt.

Naast fouten kan de FILE STATUS ook extra informatie geven, zoals bijvoorbeeld dat je aan het einde van een bestand bent gekomen of gewoonweg dat het openen van het bestand gelukt is. FILE STATUS bestaat uit 2 tekens(PIC XX). Het eerste teken staat voor het soort van FILE STATUS. In totaal zijn er 5 verschillende soorten.

0	INPUT/OUPUT operatie was succesvol
1	Het bestand is aan zijn einde gekomen
2	De sleutel is ongeldig
3	Permanente INPUT/OUTPUT fout
4	Logische fout

Hieronder vind je een lijst van alle mogelijke inhoud van de FILE STATUS.

FILE STATUS	Omschrijving
00	Succesvol uitgevoerd.
04	De lengte van de record die wordt gelezen komt niet overeen met de lengte die werd omschreven in de FILE SECTION van de DATA DIVISION.
06	U heeft geprobeerd iets weg te schrijven in een bestand dat geopend is als input.
08	U heeft geprobeerd iets te lezen in een bestand dat geopend is als output.
09	Geen plaats in die map, of de map bestaat gewoonweg niet.
10	De volgende record is niet gevonden. U bent aan het einde van uw bestand aangekomen.
12	U heeft geprobeerd een bestand te openen die al open is.
13	Bestand is niet gevonden.
23	Er werd geen record gevonden die werd gezocht m.b.v. een sleutel.
24	Het programma probeert een record te schrijven naar een schijf die vol is.
35	Het programma probeert een niet-bestaand bestand te openen voor INPUT, I-O of EXTEND.
44	Het programma probeert een record te schrijven of herschrijven met een foute lengte.
47	Er werd geprobeerd iets te lezen uit een bestand met READ of START dat niet geopend is met INPUT of I-O(INPUT-OUTPUT).
48	Er werd geprobeerd iets te schrijven in een bestand dat niet geopend is met OUTPUT, I-O(INPUT-OUTPUT) of EXTEND.
49	Er werd geprobeerd iets te verwijderen(DELETE) of te herschrijven(REWRITE) in een bestand dat niet is geopend als I-O(INPUT-OUTPUT).