COBOL Programından bir Excel Dosyası Nasıl Yazılır

COBOL programlama dilinin temel gücü, Microsoft Excel de dahil olmak üzere küçük işletmeler için yararlı olan çok çeşitli veri dosyalarını yazma yeteneğidir. Dosyayı virgülle ayrılmış bir değer veya CSV olarak düzenlemek, programlama görevini basitleştirir. CSV ile COBOL programınızın Veri Bölümünün Dosya Bölümünde temel bir dosya yapısı kurar, ardından değerleri İşlem Bölümündeki yapıya taşır. Excel bu dosyayı basit satırlar ve sütunlar içeren temel bir çalışma kitabı olarak açar.

1.

COBOL programınızın Çevre Bölümünün Giriş-Çıkış bölümünde bir Seçim girişi oluşturun. Bu, dosyanın adı ve sabit diskinizin dosya dizininde olmasını istediğiniz yer. Aşağıdaki COBOL, Select deyimini gösterir:

ÇEVRE BÖLÜMÜ GİRİŞ-ÇIKIŞ BÖLÜMÜ. DOSYA-KONTROL. “C: \ WORKSHEET.CSV” ORGANİZASYONU ORTANİZASYON HATTI DİR.

2.

Veri Bölümünün Dosya Bölümündeki bir kaydı, elektronik tablo için istediğiniz satırın boyutuna sahip bir yer tutucu olarak tanımlayın. Elektronik tablonun sütun değerlerini Veri Bölümünün Çalışma Depolama Bölümünde virgüllerle ayrılmış veri türleri olarak ayarlayın. Her kaydı aşağıdaki örnekte olduğu gibi satır başı ve satır besleme karakterleriyle bitirin:

VERİ BÖLÜMÜ DOSYA BÖLÜMÜ. FD EXCEL-OUTPUT-FILE VERİ KAYDI, GENİŞLETME KAYDI. 01 SPREADSHEET-RECORD PIC X (14).

ÇALIŞMA-DEPOLAMA BÖLÜMÜ. 01 WS-SPREADSHEET-ROW. 05 WS-SATIŞ-MİKTAR PIC 999.99. 05 DOLGU PIC X DEĞER ', '. 05 WS-SATIŞ-QTY PIC 99999. 05 DOLGU PIC XX DEĞERİ X'0D25 '.

X'0D25 'in onaltılık bir satır başı satır başı beslemesini temsil ettiğini unutmayın. Bu iki karakter, bir CSV dosyasındaki her kaydın sonunu işaretler.

3.

Verileri 05 düzeyinde çalışma depolama veri öğelerine taşıyın, ardından 01 düzeyinde çalışma depolama etiketini programınızın Prosedür Bölümünde çıktı dosyanıza taşıyın. Oluşturduğunuz kaydı dosya tanımında veya FD'de yazın. Aşağıdaki COBOL kodu, CSV çıktı dosyanız için tek bir satır oluşturur ve yazar:

PROSEDÜR ABD ÇIKIŞ AÇILI MÜKEMMEL ÇIKIŞ DOSYASI. Satışları-Değerini WS-Satışları-Tutarına Taşı. WS-SATIŞ-QTY'E SATIŞ-MİKTARI TAŞIN. WS-SPREADSHEET-ROW'u SPEADSET-RECORD'a kaydırın. YAZI SPREADSHEET-RECORD. KAPALI EXCEL-OUTPUT-FILE.

Bahşiş

• Prosedür Bölümünde, MOVE ve WRITE ifadelerini kendi paragraflarında ayarlayın. Paragrafı e-tablonuzdaki satır sayısı kadar yürüten bir döngüden çağırıp dosyayı kapatın.