Jak napisać plik Excela z programu COBOL

Głównym atutem języka programowania COBOL jest umiejętność pisania szerokiej gamy plików danych przydatnych dla małych firm, w tym Microsoft Excel. Porządkowanie pliku jako wartości rozdzielanej przecinkami (CSV) upraszcza zadanie programowania. Za pomocą CSV możesz ustawić podstawową strukturę plików w sekcji plików w segmencie danych programu COBOL, a następnie przenieść wartości do struktury w obszarze Procedura. Program Excel otwiera ten plik jako podstawowy skoroszyt zawierający proste wiersze i kolumny.

1.

Utwórz pozycję Select w sekcji Input-Output w dziale Environment programu COBOL. Jest to nazwa pliku i miejsce, w którym ma się znajdować w katalogu plików dysku twardego. Poniższy COBOL ilustruje instrukcję Select:

ODDZIAŁ ŚRODOWISKOWY. SEKCJA WEJŚCIA-WYJŚCIA. FILE-CONTROL. WYBIERZ ZGŁOSZENIE WYJŚCIA EXCEL-FILE DO ORGANIZACJI "C: \ WORKSHEET.CSV" JEST LINIĄ SEKWENCYJNĄ.

2.

Zdefiniuj rekord w Sekcji plików Dywizji Danych jako symbol zastępczy o rozmiarze wiersza, którego chcesz użyć w arkuszu kalkulacyjnym. Skonfiguruj wartości kolumn w arkuszu kalkulacyjnym w dziale Working-Storage sekcji danych jako typy danych wyświetlania oddzielone przecinkami. Zakończ każdy rekord znakami powrotu karetki i znaków końca wiersza, tak jak w poniższym przykładzie:

PODZIAŁ DANYCH. SEKCJA PLIKÓW. FD EXCEL-OUTPUT-FILE DATA-RECORD TO SPREADSHEET-RECORD. 01 PIONOWO-REKORDOWE PIC X (14).

SEKCJA PRACY PRZECHOWYWANIA. 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 '.

Zauważ, że X'0D25 'reprezentuje powrót karetki, a wiersz jest podawany w systemie szesnastkowym. Te dwa znaki oznaczają koniec każdego rekordu w pliku CSV.

3.

Przenieś dane do elementów danych na poziomie roboczym pamięci 05, a następnie przenieś etykietę roboczej roboczej na poziomie 01 do pliku wyjściowego w Oddziale procedur programu. Zapisz zapis utworzony w definicji pliku lub FD. Poniższy kod języka COBOL tworzy i zapisuje pojedynczy wiersz do pliku wyjściowego CSV:

PROCEDURA PODZIAŁ. OPEN OUTPUT EXCEL-OUTPUT-FILE. PRZENIEŚ WARTOŚĆ SPRZEDAŻY DO WS-SALES-AMOUNT. PRZENIEŚ SPRZEDAŻ-QTY DO WS-SALES-QTY. PRZESUŃ WS-SPREADSHEET-ROW DO SPREAD-RECORD. WRITE SPREADSHEET-RECORD. ZAMKNIJ PLIK WYJŚCIA EXCEL.

Wskazówka

• W Oddziale Procedur ustaw instrukcje MOVE i WRITE w swoim własnym akapicie. Wywołaj akapit z pętli, która jest wykonywana tyle razy, ile liczba wierszy w arkuszu kalkulacyjnym, a następnie zamknij plik.