วิธีเขียนไฟล์ Excel จากโปรแกรมภาษาโคบอล

จุดแข็งหลักของภาษาโปรแกรมภาษาโคบอลคือความสามารถในการเขียนไฟล์ข้อมูลหลากหลายที่เป็นประโยชน์สำหรับธุรกิจขนาดเล็กรวมถึง Microsoft Excel การจัดระเบียบไฟล์เป็นค่าที่คั่นด้วยเครื่องหมายจุลภาคหรือ CSV ช่วยให้งานเขียนโปรแกรมง่ายขึ้น ด้วย CSV คุณสามารถตั้งค่าโครงสร้างไฟล์พื้นฐานในส่วนไฟล์ของแผนกข้อมูลของโปรแกรม COBOL จากนั้นย้ายค่าไปยังโครงสร้างในแผนกหารขั้นตอน Excel เปิดไฟล์นี้เป็นสมุดงานพื้นฐานที่มีแถวและคอลัมน์อย่างง่าย

1

สร้างรายการ Select ในส่วน Input-Output ของ Environment Division ของโปรแกรม COBOL นี่คือชื่อไฟล์และตำแหน่งที่คุณต้องการให้อยู่ในไดเรกทอรีไฟล์ของฮาร์ดไดรฟ์ COBOL ต่อไปนี้แสดงคำสั่ง Select:

กองสิ่งแวดล้อม ส่วนขาออก FILE-CONTROL เลือกการมอบหมายไฟล์ - เอาท์พุทที่ยอดเยี่ยมให้กับ "C: \ WORKSHEET.CSV" องค์กรเป็นลำดับของบรรทัด

2

กำหนดระเบียนในส่วนไฟล์ของแผนกข้อมูลเป็นตัวยึดตำแหน่งที่มีขนาดของแถวที่คุณต้องการสำหรับสเปรดชีต ตั้งค่าคอลัมน์ของสเปรดชีตในแผนกการจัดเก็บข้อมูลของแผนกข้อมูลเป็นประเภทข้อมูลที่แสดงคั่นด้วยเครื่องหมายจุลภาค สิ้นสุดแต่ละระเบียนด้วยอักขระปัดแคร่และป้อนบรรทัดเหมือนตัวอย่างต่อไปนี้:

กองข้อมูล ส่วนของไฟล์ FD EXCEL-OUTPUT-FILE DATA-RECORD คือ SPREADSHEET-RECORD 01 SPREADSHEET-RECORD PIC X (14)

ส่วนงานจัดเก็บ 01 WS-SPREADSHEET-ROW 05 WS-SALES-AMOUNT PIC 999.99 05 FILLER PIC X VALUE ', ' 05 WS-SALES-QTY PIC 99999 05 ฟิลเลอร์ PIC XX มูลค่า X'0D25 '

โปรดทราบว่า X'0D25 'แสดงถึงการขึ้นบรรทัดใหม่, การป้อนบรรทัดเป็นเลขฐานสิบหก อักขระสองตัวเหล่านี้ทำเครื่องหมายจุดสิ้นสุดของทุกระเบียนในไฟล์ CSV

3

ย้ายข้อมูลไปยังองค์ประกอบข้อมูลหน่วยเก็บข้อมูลที่ใช้งานระดับ 05 จากนั้นย้ายเลเบลหน่วยเก็บข้อมูลที่ทำงานระดับ 01 ไปยังไฟล์เอาต์พุตของคุณในส่วนของโปรแกรมของคุณ เขียนบันทึกที่คุณสร้างขึ้นในคำจำกัดความของไฟล์หรือ FD รหัส COBOL ที่ตามมาสร้างและเขียนแถวเดียวไปยังไฟล์เอาต์พุต CSV ของคุณ:

กองบังคับการ เปิดเอาท์พุท EXCEL-OUTPUT-FILE ย้ายการขาย - มูลค่าเป็น WS-SALES-AMOUNT ย้ายการขายจำนวนไปยัง WS-SALES-QTY ย้าย WS-SPREADSHEET-ROW ไปยัง SPREADSHEET-RECORD เขียนบันทึก SPREADSHEET ปิด EXCEL-OUTPUT-FILE

ปลาย

• ในส่วนของขั้นตอนตั้งค่าคำสั่ง MOVE และ WRITE ในย่อหน้าของตนเอง เรียกย่อหน้าจากลูปที่ดำเนินการหลายครั้งตามจำนวนแถวในสเปรดชีตของคุณจากนั้นปิดไฟล์