Cara Menulis File Excel dari Program COBOL

Kekuatan utama bahasa pemrograman COBOL adalah kemampuannya untuk menulis berbagai file data yang berguna untuk bisnis kecil, termasuk Microsoft Excel. Mengatur file sebagai nilai yang dipisahkan koma, atau CSV, menyederhanakan tugas pemrograman. Dengan CSV, Anda mengatur struktur file dasar di Bagian File Divisi Data program COBOL Anda, lalu memindahkan nilai ke dalam struktur di Divisi Prosedur. Excel membuka file ini sebagai buku kerja dasar yang berisi baris dan kolom sederhana.

1.

Buat entri Pilih di bagian Input-Output dari Divisi Lingkungan program COBOL Anda. Ini adalah nama file dan di mana Anda ingin berada di direktori file hard drive Anda. COBOL berikut menggambarkan pernyataan Select:

DIVISI LINGKUNGAN. BAGIAN INPUT-OUTPUT. PENGENDALIAN FILE. SELECT EXCEL-OUTPUT-FILE DENGAN TANDA KE "C: \ WORKSHEET.CSV" ORGANISASI ADALAH GARIS GARIS.

2.

Tetapkan catatan di Bagian File Divisi Data sebagai pengganti yang memiliki ukuran baris yang Anda inginkan untuk spreadsheet. Siapkan nilai kolom spreadsheet di Bagian Penyimpanan-Kerja Divisi Data sebagai menampilkan tipe data yang dipisahkan oleh koma. Akhiri setiap rekaman dengan karakter carriage-return dan feed line seperti pada contoh berikut:

DIVISI DATA. BAGIAN FILE. FD DATA-REPEL-OUTPUT-FILE-RECORD ADALAH SPREADSHEET-RECORD. 01 SPREADSHEET-RECORD PIC X (14).

BAGIAN PENYIMPANAN KERJA. 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 '.

Perhatikan bahwa X'0D25 'mewakili carriage-return, umpan baris dalam heksadesimal. Dua karakter ini menandai akhir dari setiap catatan dalam file CSV.

3.

Pindahkan data ke elemen data penyimpanan kerja 05 tingkat, lalu pindahkan label penyimpanan kerja 01 tingkat ke file output Anda di Divisi Prosedur program Anda. Tulis catatan yang Anda buat dalam definisi file, atau FD. Kode COBOL yang mengikuti membuat dan menulis satu baris ke file output CSV Anda:

DIVISI PROSEDUR. OPEN OUTPUT EXCEL-OUTPUT-FILE. PINDAHKAN PENJUALAN-NILAI KE WS-PENJUALAN-JUMLAH. PINDAHKAN SALES-QTY KE WS-SALES-QTY. PINDAHKAN WS-SPREADSHEET-ROW KE SPREADSHEET-RECORD. MENULIS SPREADSHEET-RECORD. TUTUP EXCEL-OUTPUT-FILE.

Tip

• Di Divisi Prosedur, atur pernyataan MOVE dan WRITE dalam paragraf mereka sendiri. Panggil paragraf dari loop yang dieksekusi sebanyak jumlah baris dalam spreadsheet Anda, lalu tutup file.