Cách viết một tệp Excel từ chương trình COBOL

Thế mạnh chính của ngôn ngữ lập trình COBOL là khả năng viết nhiều loại dữ liệu hữu ích cho doanh nghiệp nhỏ, bao gồm cả Microsoft Excel. Tổ chức tệp dưới dạng giá trị được phân tách bằng dấu phẩy hoặc CSV, đơn giản hóa tác vụ lập trình. Với CSV, bạn thiết lập cấu trúc tệp cơ bản trong Phần tệp của Bộ phận dữ liệu của chương trình COBOL, sau đó di chuyển các giá trị vào cấu trúc trong Bộ phận thủ tục. Excel mở tệp này dưới dạng một sổ làm việc cơ bản chứa các hàng và cột đơn giản.

Tạo mục Chọn trong phần Đầu vào-Đầu ra của Bộ phận Môi trường của chương trình COBOL của bạn. Đây là tên của tệp và nơi bạn muốn đặt trong thư mục tệp của ổ cứng. COBOL sau đây minh họa cho câu lệnh Chọn:

MÔI TRƯỜNG MÔI TRƯỜNG. ĐẦU VÀO ĐẦU RA. KIỂM SOÁT TẬP TIN. CHỌN CHẤP NHẬN EXCEL-OUTPUT-FILE CHO "C: \ WORKSHEET.CSV" TỔ CHỨC LÀ TUYỆT VỜI.

Xác định một bản ghi trong Phần tệp của Bộ phận dữ liệu với tư cách là một trình giữ chỗ có kích thước của hàng bạn muốn cho bảng tính. Thiết lập các giá trị cột của bảng tính trong Phần lưu trữ làm việc của Bộ phận dữ liệu dưới dạng các kiểu dữ liệu được phân tách bằng dấu phẩy. Kết thúc mỗi bản ghi với các ký tự nguồn cấp dữ liệu và dòng trở lại như trong ví dụ sau:

PHÂN PHỐI DỮ LIỆU. PHẦN FILE. FD EXCEL-OUTPUT-FILE DATA-RECORD LÀ SPREADSHEET-RECORD. 01 SPREADSHEET-RECORD PIC X (14).

PHẦN LÀM VIỆC-BẢO QUẢN. 01 WS-SPREADSHEET-ROW. 05 WS-SALES-SỐ TIỀN PIC 999, 99. 05 FILLER PIC X GIÁ TRỊ ', '. 05 WS-SALES-QTY PIC 99999. 05 FILLER PIC XX GIÁ TRỊ X'0D25 '.

Lưu ý rằng X'0D25 'đại diện cho nguồn cấp dữ liệu trở lại, vận chuyển theo dòng thập lục phân. Hai ký tự này đánh dấu sự kết thúc của mọi bản ghi trong tệp CSV.

Di chuyển dữ liệu vào các thành phần dữ liệu lưu trữ làm việc cấp độ 05, sau đó di chuyển nhãn lưu trữ làm việc 01 cấp vào tệp đầu ra của bạn trong Bộ phận thủ tục của chương trình. Viết bản ghi bạn đã tạo trong định nghĩa tệp hoặc FD. Mã COBOL theo sau tạo và ghi một hàng vào tệp đầu ra CSV của bạn:

QUY TRÌNH PHÂN PHỐI. MỞ ĐẦU RA NGOÀI EXCEL-OUTPUT-FILE. DI CHUYỂN BÁN HÀNG-GIÁ TRỊ CHO WS-SALES-SỐ TIỀN. DI CHUYỂN BÁN HÀNG-QTY ĐẾN WS-SALES-QTY. DI CHUYỂN WS-SPREADSHEET-ROW ĐẾN SPREADSHEET-RECORD. VIẾT SPREADSHEET-RECORD. ĐÓNG EXCEL-OUTPUT-FILE.

tiền boa

Trong Bộ phận Thủ tục, thiết lập các câu lệnh M CHUYỂN và VIẾT trong đoạn riêng của chúng. Gọi đoạn văn từ một vòng lặp thực thi nhiều lần bằng số lượng hàng trong bảng tính của bạn, sau đó đóng tệp.