Hur man skriver en Excel-fil från COBOL-programmet

COBOLs programmeringsspråk är huvudstyrkan i att skriva en mängd olika datafiler som är användbara för småföretag, inklusive Microsoft Excel. Att organisera filen som ett kommaseparerat värde, eller CSV, förenklar programmeringsuppgiften. Med CSV skapar du en grundläggande filstruktur i filavsnittet i ditt COBOL-programs datadivision och flyttar sedan värden till strukturen i procedursektionen. Excel öppnar den här filen som en grundläggande arbetsbok som innehåller enkla rader och kolumner.

1.

Skapa en Select-post i avsnittet Input-Output i ditt COBOL-programs miljöavdelning. Det här är filens namn och var du vill ha det i din hårddisks filkatalog. Följande COBOL illustrerar Select-satsen:

MILJÖAVDELNING. INGÅNG UTGÅNG AVSNITT. FILE-CONTROL. VÄLJ EXCEL-OUTPUT-FILE ASSIGN TO "C: \ WORKSHEET.CSV" ORGANISATIONEN är LINE SEQUENTIAL.

2.

Definiera en post i datafivans filavdelning som en platshållare som har storleken på raden du vill ha för kalkylbladet. Ställ in kalkylbladets kolumnvärden i datadivisionens arbetsupplagringssektion som visningsdatatyper separerade med kommatecken. Avsluta varje post med vagnretur och linjematningstecken som i följande exempel:

DATA AVDELNING. FIL AVSNITT. FD EXCEL-OUTPUT-FILE DATA-RECORDEN är SPREADSHEET-RECORD. 01 SPREADSHEET-RECORD PIC X (14).

ARBETE-LAGRINGSAVSNITT. 01 WS-SPREADSHEET-ROW. 05 WS-SALES-AMOUNT PIC 999, 99. 05 FILLER PIC X VALUE ', '. 05 WS-SALES-QTY PIC 99999. 05 FILLER PIC XX VALUE X'0D25 '.

Observera att X'0D25 'representerar en vagnretur, linjematning i hexadecimal. Dessa två tecken markerar slutet på varje post i en CSV-fil.

3.

Flytta data till dataelementen för arbetslagringsdata på 05-nivå och flytta sedan etiketten på 01-nivå för arbetslagring till din utdatafil i ditt Programprojekt. Skriv den post som du skapade i fildefinitionen eller FD. COBOL-koden som följer skapar och skriver en enda rad till din CSV-utdatafil:

FÖRFARANDESDELNING. ÖPPEN UTGÅNG EXCEL-UTGÅNG-FIL. Flytta försäljningsvärdet till WS-SALES-AMOUNT. Flytta försäljningsgraden till WS-SALES-QTY. Flytta WS-SPREADSHEET-ROW TO SPREADSHEET-RECORD. WRITE SPREADSHEET-RECORD. CLOSE EXCEL-OUTPUT-FILE.

Tips

• I proceduravdelningen ställer du in MOVE- och WRITE-satsen i sin egen paragraf. Ring stycket från en slinga som körs så många gånger som antalet rader i kalkylbladet och stäng sedan filen.