http://dot.net.vn/Desktop.aspx/Threads/Thung-Rac/ Thùng rác công cộng là nơi chưa các chủ đề vớ vẫn, những thứ linh tinh, xoá đi thì sợ thành viên kêu ca, cho vào đây là tốt nhất! Vietnam .NET Community vi-VN automail-noreply@dot.net.vn automail-noreply@dot.net.vn Copyright 2005-2008 Vietnam .NET Community Fri, 21 Nov 2008 00:01:53 GMT Thông tin khác 60 http://cyber.law.harvard.edu/rss/rss.html VIE Portal RSS Generator - Version 5.6.3183.28143 - http://www.vieportal.vn/ http://dot.net.vn/Desktop.aspx/Threads/Thung-Rac/website_du_lich_dang_tin_cay_cua_ban/ <P style="MARGIN: 0px">Bạn muốn đi du lịch ở đâu? Bạn đã lập kế hoạch chưa? Bạn đang phân vân chưa biết đi đâu, đi [URL="http://www.dulichag.com/Du_lich_trong_nuoc.asp"]du lịch trong nước[/URL] hay đi [URL="http://www.dulichag.com/Du_lich_nuoc_ngoai.asp"]du lịch nước ngoài[/URL]? Hãy để các chuyên gia của chúng tôi tư vấn miễn phí:</P> <P style="MARGIN: 0px">Nếu đi du lịch trong nước, bạn có thể chọn [URL="http://www.dulichag.com/Du_lich_Ha_long.asp"]tour du lịch Hạ Long[/URL], [URL="http://www.dulichag.com/Ha_Long_Cat_Ba.asp"]tour du lịch Cát Bà[/URL], [URL="http://www.dulichag.com/Sa_Pa_bang_tau_hoa.asp"]tour du lịch Sapa[/URL], [URL="http://www.dulichag.com/Du_lich_xuyen_Viet.asp"]tour du lịch xuyên việt[/URL], tour du lịch Nha Trang - Đà Lạt, [URL="http://www.dulichag.com/Du_lich_mien_Nam.asp"]tour du lịch miền Nam[/URL]...</P> <P style="MARGIN: 0px">Nếu đi du lịch nước ngoài, bạn hãy chọn [URL="http://www.dulichag.com/Du_lich_Trung_Quoc.asp"]tour du lịch Trung Quốc[/URL], [URL="http://www.dulichag.com/Du_lich_Thai_Lan.asp"]tour du lịch Thái Lan[/URL], [URL="http://www.dulichag.com/Du_lich_Campuchia.asp"]tour du lịch Campuchia[/URL], [URL="http://www.dulichag.com/hongkong_diseyland.asp"]tour du lịch Hồng Kông[/URL], [URL="http://www.dulichag.com/singapore_sentosa.asp"]tour du lịch Malaysia - Singapore[/URL], [URL="http://www.dulichag.com/Chuong_trinh_Du_lich_xuyen_bien_gioi_Viet_Nam_Lao_Thai_Lan.asp"]tour du lịch Việt Nam - Lào - Thái Lan [/URL]bằng đường bộ.</P> <P style="MARGIN: 0px">Hoặc nếu ngân sách của bạn rủng rỉnh, bạn có thể chọn [URL="http://www.dulichag.com/chau_au.asp"]tour du lịch châu Âu[/URL], [URL="http://www.dulichag.com/Han_Quoc_Kham_pha_chon_thien_duong.asp"]tour du lịch Hàn Quốc[/URL], [URL="http://www.dulichag.com/Du_lich_An_Do.asp"]Tour du lịch Ấn Độ[/URL]...</P> <P style="MARGIN: 0px">Hãy để chúng tôi tư vấn miến phí, bạn sẽ cảm thấy hài lòng.</P> <P style="MARGIN: 0px">Chúng tôi luôn mang đến cho khách hàng những giây phút nghỉ ngơi tuyệt vời đúng như phương châm: vui hơn, rẻ hơn, được nhiều hơn.</P> automail-noreply@dot.net.vn http://dot.net.vn/Desktop.aspx/Threads/Thung-Rac/website_du_lich_dang_tin_cay_cua_ban/1.viePortal Sat, 15 Nov 2008 11:29:57 GMT http://dot.net.vn/Desktop.aspx/Threads/Thung-Rac/ Thùng rác công cộng http://dot.net.vn/Desktop.aspx/Threads/Thung-Rac/GIOI_THIEU_VE_COBOL/ <p class="MsoNormal" style="text-align: justify;">COBOL là một ngôn ngữ lập trình thế hệ thứ ba và là một trong những ngôn ngữ lập trình lâu nhất còn được sử dụng. <b>COBOL</b> được lấy từ các chữ cái đầu của từ <b>CO</b>mmon <b>B</b>usiness-<b>O</b>riented <b>L</b>anguage. Mục đích ban đầu của nó là hướng đến thương mại, tài chính và các hệ quản lý của các công ty và chính phủ.</p> <p class="MsoNormal" style="text-align: justify;">COBOL được phát triển từ hội nghị Conference on Data Systems Languages (CODASYL), năm 1959. Một năm sau thì mới có trình biên dịch cho ngôn ngữ COBOL nhưng vẫn chưa được chuẩn hóa. Tổ chức American National Standards Institute (ANSI) đã chuẩn hóa COBOL phiên bản đầu tiên vào năm 1968. Ngôn ngữ này đã được ANSI chỉnh sữa và cập nhật vào những năm 1974 và 1985. Những chuẩn này còn được gọi là chuẩn COBOL hay <b>COBOL-68</b>, <b>COBOL-74</b>, hoặc <b style="">COBOL-85</b>. Hầu hết các trình biên dịch hiện nay đều hỗ trợ chuẩn <b>COBOL-85</b>, nhưng vẫn còn một số trình biên dịch hỗ trợ chuẩn COBOL-74. Hiện nay, chuẩn COBOL mới nhất là <b>COBOL-OO</b> là chuẩn hỗ trợ lập trình hướng đối tượng và các tính năng lập trình hiện đại khác.</p><p class="MsoNormal" style="text-align: justify;"><o p=""></o></p> <p class="MsoNormal" style="text-align: justify;">Các chương trình COBOL có thể được phát triển với các trình biên dịch COBOL như Micro Focus COBOL, Micro Focus Personal COBOL, LPI COBOL, ACUCOBOL trên hệ điều hành UNIX hoặc MS-DOS; và VAX COBOL trên máy VAX VMS. Ngoài ra còn có IBM COBOL với máy AIX, RM COBOL, Realia COBOL, Microsoft COBOL và Fujitsu COBOL, Fujitsu COBOL for .NET.</p> <p class="MsoNormal" style="text-align: justify;">Trong những trình biên dịch trên thì bộ công cụ Fujitsu COBOL được cập nhật liên tục. Hiện nay đã có Fujitsu COBOL for .NET để dùng phát triển ứng dụng COBOL trên nền tảng .NET framework. Trình biên dịch Fujitsu COBOL for .NET được nhúng vào bộ công cụ lập trình Visual Studio .NET 2003 và Visual Studio .NET 2005.</p><p class="MsoNormal" style="text-align: justify;"><br></p><br><span class="Header01"><span style="font-size: 14pt;"><span style="">1.<span style="font-family: &quot;Times New Roman&quot;; font-style: normal; font-variant: normal; font-weight: normal; font-size: 7pt; line-height: normal; font-size-adjust: none; font-stretch: normal;">&nbsp;&nbsp;&nbsp; </span></span></span></span><!--[endif]--><span class="Header01"><span style="font-size: 14pt;">Cấu trúc chương trình COBOL<o:p></o:p></span></span> <p class="MsoNormal" style="margin-left: 0in; text-align: justify; text-indent: 0in;"><!--[if !supportLists]--><span class="Header0101"><span style=""><span style="">1.1.<span style="font-family: &quot;Times New Roman&quot;; font-style: normal; font-variant: normal; font-weight: normal; font-size: 7pt; line-height: normal; font-size-adjust: none; font-stretch: normal;">&nbsp;&nbsp;&nbsp;&nbsp; </span></span></span></span><!--[endif]--><span class="Header0101"><span style="">COBOL là gì?<o:p></o:p></span></span></p> <p class="MsoNormal" style="text-align: justify;"><span class="GramE">COBOL là một ngôn ngữ lập trình thế hệ thứ ba và là một trong những ngôn ngữ lập trình lâu nhất còn được sử dụng.</span> <span class="GramE"><b>COBOL</b> được lấy từ các chữ cái đầu của từ <b>CO</b>mmon <b>B</b>usiness-<b>O</b>riented <b>L</b>anguage.</span> Mục đích ban đầu của nó là hướng đến thương mại, tài chính và các hệ quản lý của các công ty và chính phủ.</p> <p class="MsoNormal" style="text-align: justify;"><span class="GramE">COBOL được phát triển từ hội nghị Conference on Data Systems Languages (CODASYL), năm 1959.</span> <span class="GramE">Một năm sau thì mới có trình biên dịch cho ngôn ngữ COBOL nhưng vẫn chưa được chuẩn hóa.</span> <span class="GramE">Tổ chức American National Standards Institute (ANSI) đã chuẩn hóa COBOL phiên bản đầu tiên vào năm 1968.</span> <span class="GramE">Ngôn ngữ này đã được ANSI chỉnh sữa và cập nhật vào những năm 1974 và 1985.</span> Những chuẩn này còn được gọi là chuẩn COBOL hay <b>COBOL-68</b>, <b>COBOL-74</b>, <span class="GramE">hoặc</span> <b style="">COBOL-85</b>. <span class="GramE">Hầu hết các trình biên dịch hiện nay đều hỗ trợ chuẩn <b>COBOL-85</b>, nhưng vẫn còn một số trình biên dịch hỗ trợ chuẩn COBOL-74.</span> <span class="GramE">Hiện nay, chuẩn COBOL mới nhất là <b>COBOL-OO</b> là chuẩn hỗ trợ lập trình hướng đối tượng và các tính năng lập trình hiện đại khác.</span></p> <p class="MsoNormal" style="text-align: justify;">Các chương trình COBOL có thể được phát triển với các trình biên dịch COBOL như Micro Focus COBOL, Micro Focus Personal COBOL, LPI COBOL, ACUCOBOL trên hệ điều hành UNIX hoặc MS-DOS; và VAX COBOL trên máy VAX VMS. Ngoài ra còn có IBM COBOL với máy AIX, RM COBOL, Realia COBOL, Microsoft COBOL và Fujitsu COBOL, Fujitsu COBOL for .NET.</p> <p class="MsoNormal" style="text-align: justify;"><span class="GramE">Trong những trình biên dịch trên thì bộ công cụ Fujitsu COBOL được cập nhật liên tục.</span> <span class="GramE">Hiện nay đã có Fujitsu COBOL for .NET để dùng phát triển ứng dụng COBOL trên nền tảng .NET framework.</span> <span class="GramE">Trình biên dịch Fujitsu COBOL for .NET được nhúng vào bộ công cụ lập trình Visual Studio .NET 2003 và Visual Studio .NET 2005.</span></p> <h4 style="text-align: justify;"><span style="font-family: Arial; color: maroon;">Phạm <span class="GramE">vi</span> sử dụng của COBOL? </span></h4> <p class="MsoNormal" style="text-align: justify;">Trải qua 4 thời kỳ phát triển COBOL đã có đội <span class="GramE">ngũ</span> lập trình viên quan tâm rất lớn đặc biệt là trog lĩnh vực kinh doanh. <span class="GramE">Tại thời điểm đó đã có những cuộc thi giữa các ngôn ngữ với nhau như PL1, Algol68, Pascal, Modula, <st1:place w:st="on"><st1:city w:st="on">Ada</st1:city></st1:place>, C, C++.</span> <span class="GramE">Tất cả những ngôn ngữ này đều có những điểm mạnh của nó nhưng không có phải là đối thủ của COBOL.</span> <span class="GramE">Hai cuộc thi gần đây thì nổi lên với hai ngôn ngữ Java và Visual Basic được xem như là đối thủ đáng quan tâm nhất.</span></p> <p class="MsoNormal" style="text-align: justify;">Năm 1997 họ đã ước tính được rằng có khoảng 300 tỉ dòng lệnh trên máy tính được sử dụng trong máy tính thì đến khoảng 80% (240 tỉ dòng) là của COBOL và 20% (60tỉ dòng lệnh) là được viết bởi ngôn ngữ khác [<span style="font-size: 10pt;"><a href="file:///D:%5CPrograming%5CCOBOL%5Cworkspace%5Ccsis%5Cwww.csis.ul.ie%5Ccobol%5CCourse%5CCOBOLIntro2.part1.htm#brown">Brown</a></span>]. </p> <p class="MsoNormal" style="text-align: justify;">Đến năm 1999 họ ước tính rằng đã có khoảng 50% ứng dụng COBOL được xây dựng bằng COBOL và những đánh giá trong năm 2004-2005 thì khoảng 15% các ứng dụng mới (5 tỉ dòng lệnh) được tạo ra với ngôn ngữ COBOL. </p> <p class="MsoNormal" style="text-align: justify;">Gartner cũng thống kê vào năm 2002 có khoảng 2 triệu (million) lập trình viên COBOL trên toàn thế giới so với khoảng 1 triệu lập trình viên Java và 1 triệu lập trình viên C++.</p> <h4 style="text-align: justify;"><span style="font-family: Arial; color: maroon;">Một số đặc trưng của ứng dụng COBOL<o:p></o:p></span></h4> <p class="MsoNormal" style="text-align: justify;"><span class="GramE">Ứng dụng COBOL thường rất lớn.</span> <span class="GramE">Nhiều ứng dụng COBOL bao gồm nhiều triệu (1,000,000 lines) dòng lệnh – với khoảng 6,000,000+ dòng ứng dụng.</span></p> <p class="MsoNormal" style="text-align: justify;">Ứng dụng COBOLcũng có <span class="GramE">chu</span> kỳ sống rất dài. <span class="GramE">Sự đầu tư khổng lồ để tạo ra các ứng dụng hàng triện dòng lệnh COBOL cũng đồng nghĩa rằng không dễ dàng để có thể xây dựng ngôn ngữ mới hoặc các kỹ thuật mới xuất hiện.</span> </p> <p class="MsoNormal" style="text-align: justify;">Các ứng dụng COBOL thường chạy trong môi trường thương mại.Ví dụ như, khoảng trên 95% các dữ liệu tài chính-bảo hiểm được xử lý với COBOL [<span style="font-size: 10pt;"><a href="file:///D:%5CPrograming%5CCOBOL%5Cworkspace%5Ccsis%5Cwww.csis.ul.ie%5Ccobol%5CCourse%5CCOBOLIntro2.part1.htm#arranga">In Cobol’s Defense</a>].</span></p> <p class="MsoNormal" style="text-align: justify;">Mục đích bản thiết kế COBOL là để tạo những chương trình mà những người không phải là lập trình viên COBOL như quản trị, quản lý và người <span class="GramE">dùng<span style="">&nbsp; </span>có</span> thể đọc và hiểu được các dòng lệnh COBOL. <span class="GramE">Và kết quả, COBOL đã là một ngôn ngữ có các dòng lệnh, thành phần cấu trúc giống với tiếng Anh như verbs, clauses, sentences, sections and divisions.</span> </p> <p class="MsoNormal" style="text-align: justify;"><span class="GramE">Như chúng ta đã trình bày ở trên, COBOL là một ngôn ngữ đơn giản với các chức năng giới hạn.</span> <span class="GramE">Bên cạnh đó COBOL đã hỗ trợ lập trình hướng đối tượng với chuẩn OO-COBOL.</span> OO-COBOL giữ lại tất cả những đặc trưng thuận lợi của các phiên bản trước đó bao gồm:</p> <p class="MsoNormal" style="margin-left: 1in; text-align: justify; text-indent: -0.25in;"><!--[if !supportLists]--><span style="font-family: Symbol;"><span style="">·<span style="font-family: &quot;Times New Roman&quot;; font-style: normal; font-variant: normal; font-weight: normal; font-size: 7pt; line-height: normal; font-size-adjust: none; font-stretch: normal;">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; </span></span></span><!--[endif]-->Các chức năng được người dùng định nghĩa </p> <p class="MsoNormal" style="margin-left: 1in; text-align: justify; text-indent: -0.25in;"><!--[if !supportLists]--><span style="font-family: Symbol;"><span style="">·<span style="font-family: &quot;Times New Roman&quot;; font-style: normal; font-variant: normal; font-weight: normal; font-size: 7pt; line-height: normal; font-size-adjust: none; font-stretch: normal;">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; </span></span></span><!--[endif]-->Lập trình hướng đối tượng </p> <p class="MsoNormal" style="margin-left: 1in; text-align: justify; text-indent: -0.25in;"><!--[if !supportLists]--><span style="font-family: Symbol;"><span style="">·<span style="font-family: &quot;Times New Roman&quot;; font-style: normal; font-variant: normal; font-weight: normal; font-size: 7pt; line-height: normal; font-size-adjust: none; font-stretch: normal;">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; </span></span></span><!--[endif]-->Bộ ký tự đa ngôn ngữ với bảng mã Unicode </p> <p class="MsoNormal" style="margin-left: 1in; text-align: justify; text-indent: -0.25in;"><!--[if !supportLists]--><span style="font-family: Symbol;"><span style="">·<span style="font-family: &quot;Times New Roman&quot;; font-style: normal; font-variant: normal; font-weight: normal; font-size: 7pt; line-height: normal; font-size-adjust: none; font-stretch: normal;">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; </span></span></span><!--[endif]-->Hỗ trợ nhiều ký hiệu tiền tệ </p> <p class="MsoNormal" style="margin-left: 1in; text-align: justify; text-indent: -0.25in;"><!--[if !supportLists]--><span style="font-family: Symbol;"><span style="">·<span style="font-family: &quot;Times New Roman&quot;; font-style: normal; font-variant: normal; font-weight: normal; font-size: 7pt; line-height: normal; font-size-adjust: none; font-stretch: normal;">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; </span></span></span><!--[endif]-->Hỗ trợ bộ nhớ động (con trỏ) </p> <p class="MsoNormal" style="margin-left: 1in; text-align: justify; text-indent: -0.25in;"><!--[if !supportLists]--><span style="font-family: Symbol;"><span style="">·<span style="font-family: &quot;Times New Roman&quot;; font-style: normal; font-variant: normal; font-weight: normal; font-size: 7pt; line-height: normal; font-size-adjust: none; font-stretch: normal;">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; </span></span></span><!--[endif]-->Khả năng kiểm tra tính đúng đắn của dữ liệu</p> <p class="MsoNormal" style="margin-left: 1in; text-align: justify; text-indent: -0.25in;"><!--[if !supportLists]--><span style="font-family: Symbol;"><span style="">·<span style="font-family: &quot;Times New Roman&quot;; font-style: normal; font-variant: normal; font-weight: normal; font-size: 7pt; line-height: normal; font-size-adjust: none; font-stretch: normal;">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; </span></span></span><!--[endif]-->Kiểu dữ liệu nhị phân và dấu chấm động </p> <p class="MsoNormal" style="margin-left: 1in; text-align: justify; text-indent: -0.25in;"><!--[if !supportLists]--><span style="font-family: Symbol;"><span style="">·<span style="font-family: &quot;Times New Roman&quot;; font-style: normal; font-variant: normal; font-weight: normal; font-size: 7pt; line-height: normal; font-size-adjust: none; font-stretch: normal;">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; </span></span></span><!--[endif]-->Kiểu dữ liệu do người dùng tự định nghĩa </p> <p class="MsoNormal" style="margin-left: 1in; text-align: justify; text-indent: -0.25in;"><!--[if !supportLists]--><span style="font-family: Symbol;"><span style="">·<span style="font-family: &quot;Times New Roman&quot;; font-style: normal; font-variant: normal; font-weight: normal; font-size: 7pt; line-height: normal; font-size-adjust: none; font-stretch: normal;">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; </span></span></span><!--[endif]-->COBOL không độc quyền</p> <p class="MsoNormal" style="margin-left: 0.5in; text-align: justify;"><o:p>&nbsp;</o:p></p> <p class="MsoNormal" style="margin-left: 0in; text-align: justify; text-indent: 0in;"><!--[if !supportLists]--><span class="Header0101"><span style=""><span style="">1.2.<span style="font-family: &quot;Times New Roman&quot;; font-style: normal; font-variant: normal; font-weight: normal; font-size: 7pt; line-height: normal; font-size-adjust: none; font-stretch: normal;">&nbsp;&nbsp; </span></span></span></span><!--[endif]--><span class="Header0101"><span style="">Giới thiệu về lập trình<o:p></o:p></span></span></p> <p class="MsoNormal" style="text-align: justify;"><span class="GramE">Trong phần này giới thiệu tổng quan quá trình lập trình và các thành phần của lập trình COBOL.</span> Sau đó chúng ta có thể tiến hành viết những chương trình COBOL đơn giản, chẳng hạn như chương trình “Hello World”, hay các chương trình nhập xuất đơn giản.</p> <p class="MsoNormal" style="text-align: justify;"><b><span style="font-family: Arial; color: maroon;"><o:p>&nbsp;</o:p></span></b></p> <p class="MsoNormal" style="text-align: justify;"><b><span style="font-family: Arial; color: maroon;">Viết một chương trình</span></b> </p> <p class="MsoNormal" style="text-align: justify;">Một chương trình là tập hợp các lệnh viết <span class="GramE">theo</span> ngôn ngữ máy tính để máy tính có thể hiểu được. Một máy tính thực thi các lệnh chương trình <span class="GramE">theo</span> một thứ tự từ lệnh này đến lệnh khác cho đến khi không còn lệnh nào trong chương trình cần được gọi thực hiện.</p> <p class="MsoNormal" style="text-align: justify;">Các nhà khoa học máy tính đã thể hiện được rằng tất cả các chương trình đều có thể viết bằng 3 dạng cấu trúc lệnh chính;</p> <p style="margin-left: 0.75in; text-align: justify; text-indent: -0.25in;"><!--[if !supportLists]--><span style="font-family: Symbol; color: rgb(0, 0, 153);"><span style="">·<span style="font-family: &quot;Times New Roman&quot;; font-style: normal; font-variant: normal; font-weight: normal; font-size: 7pt; line-height: normal; font-size-adjust: none; font-stretch: normal;">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; </span></span></span><!--[endif]--><b><span style="color: rgb(0, 0, 153);">Sequence - Xử lý tuần tự<o:p></o:p></span></b></p> <p style="margin-left: 0.75in; text-align: justify; text-indent: -0.25in;"><!--[if !supportLists]--><span style="font-family: Symbol; color: rgb(0, 0, 153);"><span style="">·<span style="font-family: &quot;Times New Roman&quot;; font-style: normal; font-variant: normal; font-weight: normal; font-size: 7pt; line-height: normal; font-size-adjust: none; font-stretch: normal;">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; </span></span></span><!--[endif]--><b><span style="color: rgb(0, 0, 153);">Selection - Lệnh điều kiện<o:p></o:p></span></b></p> <p style="margin-left: 0.75in; text-align: justify; text-indent: -0.25in;"><!--[if !supportLists]--><span style="font-family: Symbol; color: rgb(0, 0, 153);"><span style="">·<span style="font-family: &quot;Times New Roman&quot;; font-style: normal; font-variant: normal; font-weight: normal; font-size: 7pt; line-height: normal; font-size-adjust: none; font-stretch: normal;">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; </span></span></span><!--[endif]--><b><span style="color: rgb(0, 0, 153);">Iteration - Lệnh lặp<o:p></o:p></span></b></p> <p class="MsoNormal" style="text-align: justify;">Phần này giới thiệu một chương trình COBOL bằng cách viết một chương trình COBOL đơn giản sử dụng một 3 cấu trúc trên.</p> <h4 style="text-align: justify;"><span style="font-family: Arial; color: maroon;">Đặc điểm chương trình tuần tự</span></h4> <p class="MsoNormal" style="text-align: justify;">Chúng ta muốn viết một chương trình để nhập 2 số từ bàn phím và xuất kết quả nhân hai số đó lên màn hình.</p> <p class="MsoNormal" style="text-align: justify;">Bất cứ một chương trình máy tính nào cũng cần 3 thứ;</p> <ol start="1" type="1"><li class="MsoNormal" style="text-align: justify;">Các lệnh máy tính cần để thực hiện các công việc</li><li class="MsoNormal" style="text-align: justify;">Khai báo dữ liệu cho các lệnh thực hiện.</li><li class="MsoNormal" style="text-align: justify;">Một thuật toán, là sắp xếp trình tự thực hiện các lệnh trên máy tính để thực hiện yêu cầu bài toán.</li></ol> <h4 style="text-align: justify;"><span style="font-family: Arial; color: maroon;">Chương trình và dữ liệu </span></h4> <p class="MsoNormal" style="text-align: justify;"><span class="GramE">Các lệnh chương trình COBOL nào cần để thực hiện công việc ở trên và các thành phần dữ liệu là gì và truy cập chúng như thế nào?</span></p> <p class="MsoNormal" style="text-align: justify;">Chúng ta cần nhập số thứ nhất và lưu chúng vào bộ nhớ (lưu bằng biến) - cụ thể là biến Num1<b><span style="font-size: 13.5pt; font-family: &quot;Courier New&quot;;"><br> &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;ACCEPT Num1.</span></b></p> <p class="MsoNormal" style="text-align: justify;">Chúng ta cần nhập số thứ hai và lưu chúng vào bộ nhớ (lưu bằng biến) - cụ thể là biến Num2<b><span style="font-size: 13.5pt; font-family: &quot;Courier New&quot;;"><br> &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;ACCEPT Num2.</span></b></p> <p class="MsoNormal" style="text-align: justify;">Chúng ta cần lệnh nhân hai số với nhau và lưu kết quả vào biến Result<b><span style="font-size: 13.5pt;"><br> </span></b><b><span style="font-size: 13.5pt; font-family: &quot;Courier New&quot;;">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;MULTIPLY Num1 BY Num2 GIVING Result.</span></b></p> <p class="MsoNormal" style="text-align: justify;">Chúng ta cần hiển thị giá trị trong vùng nhớ của biến có tên "<b>Result</b>" lên màn hình máy tính<br> <b><span style="font-size: 13.5pt; font-family: &quot;Courier New&quot;;">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;DISPLAY "Result is = ", Result.</span></b> </p> <p class="MsoNormal" style="margin-left: 0in; text-align: justify; text-indent: 0in;"><!--[if !supportLists]--><span class="Header0101"><span style=""><span style="">1.3.<span style="font-family: &quot;Times New Roman&quot;; font-style: normal; font-variant: normal; font-weight: normal; font-size: 7pt; line-height: normal; font-size-adjust: none; font-stretch: normal;">&nbsp;&nbsp; </span></span></span></span><!--[endif]--><span class="Header0101"><span style="">COBOL cơ bản<o:p></o:p></span></span></p> <p class="MsoNormal" style="text-align: justify;"><span class="GramE">Phần này trình bày về những vấn đề cơ bản để xây dựng một chương trình COBOL từ cú pháp COBOL và những quy định trong quá trình lập trình COBOL.</span> <span class="GramE">Chẳng hạn như quy định về tên người dùng tự định nghĩa được đặt như thế nào và các ví dụ về cấu trúc một chương trình COBOL.</span> </p> <h4 style="text-align: justify;"><span style="font-family: Arial; color: maroon;">Những đặc tính của COBOL</span></h4> <p class="MsoNormal" style="text-align: justify;"><span class="GramE">COBOL là một ngôn ngữ lâu đời nhất được sử dụng.</span></p> <p class="MsoNormal" style="text-align: justify;"><span class="GramE">Khi COBOL được phát triển (khoảng cuối thập niên 1950's), mục địch thiết kế là tạo ra một ngôn ngữ lập trình nhưng giống với tiếng Anh.</span> <span class="GramE">Và kết quả, COBOL sử dụng cấu trúc khái niệm thông thường sử dụng trong tiếng Anh để đưa vào ngôn ngữ lập trình như division, section, paragraph và sentence.</span> <span class="GramE">Nó cũng mở rộng danh sách từ với khoảng 300 mục từ.</span> Các chương trình COBOL được quan tâm một cách đặc biệt khi mà so sánh với ngôn <span class="GramE">ngư</span> như C.</p> <p class="MsoNormal" style="text-align: justify;"><span class="GramE">Mặc dù COBOL hiện đại (COBOL 85 và OO-COBOL) giới thiệu nhiều cấu trúc được yêu cầu để xây dựng các chương trình tốt hơn, nhưng nó vẫn giữ nét đặc trưng của các thành phần cơ bản trong chương trình COBOL.</span> </p> <h4 style="text-align: justify;"><span style="font-family: Arial; color: maroon;">Cú pháp COBOL</span></h4> <p class="MsoNormal" style="text-align: justify;"><span class="GramE">Cú pháp COBOL sử dụng ngôn ngữ MetaLanguage COBOL để định nghĩa.</span> <span class="GramE">Các từ được viết ở dạng chữ hoa.</span> <span class="GramE">Các từ được gạch chân là các từ bắt buộc, còn các từ không có gạch chân là những từ trong mệnh đề tùy chọn.</span> <span class="GramE">Bởi vì các mệnh đề của COBOL được cho là đọc như câu tiếng tiếng anh thì sẽ có nhiều từ "nhiễu".</span></p> <p class="MsoNormal" style="text-align: justify;"><span class="GramE">Khi sử dụng cặp ngoặc nhọn <b>{ }</b>, một chọn lựa có thể được tạo ra từ những tùy chọn này.</span> <span class="GramE">Nếu chỉ có một tùy chọn thì mục dữ liệu đó là bắt buộc.</span> <span class="GramE">Cặp ngoặc vuông <b>[ ]</b> sử dụng thể hiện tính tùy chọn của mệnh đề / phát biểu bên trong.</span> <span class="GramE">Ký hiệu này dùng để biểu diễn các tùy chọn trong cú pháp.</span></p> <p class="MsoNormal" style="text-align: justify;"><span class="GramE">Dấu 3 chấm <b>...</b> được sử dụng để lược bỏ bớt thành phần trong quá trình trình bày.</span> <span class="GramE">Thay thế cho dấu … chính là những thành phần tương tự với các tham số trước đó.</span> <span class="GramE">Phần này có thể được thay thế bằng các mô tả chi tiết của lập trình viên.</span></p> <h4 style="text-align: justify;"><span style="font-family: Arial; color: maroon;">Một số lưu ý trong cú pháp COBOL</span></h4> <p class="MsoNormal" style="text-align: justify;">Để đơn giản hóa cấu trúc, cú pháp và giảm bới số luật cần phải trình bày, trong một số lược đồ chúng ta sử dụng một số quy định trong cách trình bày (đây không phải là quy định trong chuẩn COBOL). </p> <p style="text-align: justify;">Những ký hiệu sử dụng trong các biểu diễn cú pháp lệnh với ngữ nghĩa tương ứng:</p> <table class="MsoNormalTable" style="width: 97.64%; margin-left: 5.2pt;" width="97%" border="1" cellpadding="0" cellspacing="1"> <tbody><tr style=""> <td style="padding: 3.75pt;"> <p class="MsoNormal" style="text-align: justify;"><span class="Header0101"><span style="">$i <o:p></o:p></span></span></p> </td> <td style="padding: 3.75pt; width: 90.62%;" width="90%"> <p class="MsoNormal" style="text-align: justify;">Sử dụng dữ liệu alphanumeric</p> </td> </tr> <tr style=""> <td style="padding: 3.75pt;"> <p class="MsoNormal" style="text-align: justify;"><span class="Header0101"><span style="">$il<o:p></o:p></span></span></p> </td> <td style="padding: 3.75pt; width: 90.62%;" width="90%"> <p class="MsoNormal" style="text-align: justify;">Sử dụng dữ liệu alphanumeric hoặc string literal</p> </td> </tr> <tr style=""> <td style="padding: 3.75pt;"> <p class="MsoNormal" style="text-align: justify;"><span class="Header0101"><span style="">#i<o:p></o:p></span></span></p> </td> <td style="padding: 3.75pt; width: 90.62%;" width="90%"> <p class="MsoNormal" style="text-align: justify;">Sử dụng dữ liệu numeric</p> </td> </tr> <tr style=""> <td style="padding: 3.75pt;"> <p class="MsoNormal" style="text-align: justify;"><span class="Header0101"><span style="">#il <o:p></o:p></span></span></p> </td> <td style="padding: 3.75pt; width: 90.62%;" width="90%"> <p class="MsoNormal" style="text-align: justify;">Sử dụng dữ liệu numeric hoặc numeric literal </p> </td> </tr> <tr style=""> <td style="padding: 3.75pt;"> <p class="MsoNormal" style="text-align: justify;"><span class="Header0101"><span style="">$#i<o:p></o:p></span></span></p> </td> <td style="padding: 3.75pt; width: 90.62%;" width="90%"> <p class="MsoNormal" style="text-align: justify;">Sử dụng dữ liệu numeric hoặc alphanumeric data-item</p> </td> </tr> </tbody></table> <p style="text-align: justify;">&nbsp;Ví dụ về cú pháp COBOL</p> <p class="MsoNormal" style="text-align: justify;">Trong COBOL, việc tính toán một biểu thức số học và gán giá trị trả về cho một biến dữ liệu được sử dụng với câu lệnh COMPUTE. Ví dụ cú pháp của lệnh COMPUTE như sau:</p> <p style="text-align: justify; text-indent: 0.5in;"><!--[if gte vml 1]><v:shapetype id="_x0000_t75" coordsize="21600,21600" o:spt="75" o:preferrelative="t" path="m@4@5l@4@11@9@11@9@5xe" filled="f" stroked="f"> <v:stroke joinstyle="miter"/> <v:formulas> <v:f eqn="if lineDrawn pixelLineWidth 0"/> <v:f eqn="sum @0 1 0"/> <v:f eqn="sum 0 0 @1"/> <v:f eqn="prod @2 1 2"/> <v:f eqn="prod @3 21600 pixelWidth"/> <v:f eqn="prod @3 21600 pixelHeight"/> <v:f eqn="sum @0 0 1"/> <v:f eqn="prod @6 1 2"/> <v:f eqn="prod @7 21600 pixelWidth"/> <v:f eqn="sum @8 21600 0"/> <v:f eqn="prod @7 21600 pixelHeight"/> <v:f eqn="sum @10 21600 0"/> </v:formulas> <v:path o:extrusionok="f" gradientshapeok="t" o:connecttype="rect"/> <o:lock v:ext="edit" aspectratio="t"/> </v:shapetype><v:shape id="_x0000_i1026" type="#_x0000_t75" alt="" style='width:381.75pt; height:57.75pt'> <v:imagedata src="Lap%20trinh%20COBOL%20-%20Phan%201_files/image001.gif" o:href="file:///D:\Programing\COBOL\workspace\csis\www.csis.ul.ie\cobol\Course\Resources\pics\Compute.gif"/> </v:shape><![endif]--><!--[if !vml]--><img src="http://ngo.2uoc.hung.googlepages.com/Lap%20trinh%20COBOL%20-%20Phan%201_files/image001.gif" v:shapes="_x0000_i1026" width="509" border="0" height="77"><!--[endif]--></p> <p style="text-align: justify;">Cú pháp này có thể giải thích như sau:</p> <p class="MsoNormal" style="margin-bottom: 12pt; margin-left: 0.5in; text-align: justify; text-indent: -0.25in;"><!--[if !supportLists]--><span style="font-family: Symbol;"><span style="">-<span style="font-family: &quot;Times New Roman&quot;; font-style: normal; font-variant: normal; font-weight: normal; font-size: 7pt; line-height: normal; font-size-adjust: none; font-stretch: normal;">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; </span></span></span><!--[endif]-->Chúng ta phải có một phát biểu <span style="font-size: 10pt;">COMPUTE</span> với từ khóa <span style="font-size: 10pt;">COMPUTE</span>. </p> <p class="MsoNormal" style="margin-bottom: 12pt; margin-left: 0.5in; text-align: justify; text-indent: -0.25in;"><!--[if !supportLists]--><span style="font-family: Symbol;"><span style="">-<span style="font-family: &quot;Times New Roman&quot;; font-style: normal; font-variant: normal; font-weight: normal; font-size: 7pt; line-height: normal; font-size-adjust: none; font-stretch: normal;">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; </span></span></span><!--[endif]-->Chúng ta phải <span class="GramE">theo</span> từ khóa với tên của biến dữ liệu được sử dụng để nhận giá trị kết quả của biểu thức. Hậu tố #i sau từ <b>Result</b> ngụ ý là kiểu dữ liệu của biến này phải là kiểu dữ liệu số.</p> <p class="MsoNormal" style="margin-bottom: 12pt; margin-left: 0.5in; text-align: justify; text-indent: -0.25in;"><!--[if !supportLists]--><span style="font-family: Symbol;"><span style="">-<span style="font-family: &quot;Times New Roman&quot;; font-style: normal; font-variant: normal; font-weight: normal; font-size: 7pt; line-height: normal; font-size-adjust: none; font-stretch: normal;">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; </span></span></span><!--[endif]-->Chúng ta có thể sử dụng lệnh <span style="font-size: 10pt;">COMPUTE</span> ở dạng như sau:</p> <p class="MsoNormal" style="margin-left: 1.25in; text-align: justify;">COMPUTE Result1 ROUNDED, Result2 = ((9*9<span class="GramE">)+</span>8)/5</p> <p class="MsoNormal" style="margin-left: 0.5in; text-align: justify;"><span class="GramE">trong</span> đó Result1 được gán giá trị đã làm tròn là 18 và Result2 được gán giá trị là 17.8.</p> <p class="MsoNormal" style="margin-bottom: 12pt; margin-left: 0.5in; text-align: justify; text-indent: -0.25in;"><!--[if !supportLists]--><span style="font-family: Symbol;"><span style="">-<span style="font-family: &quot;Times New Roman&quot;; font-style: normal; font-variant: normal; font-weight: normal; font-size: 7pt; line-height: normal; font-size-adjust: none; font-stretch: normal;">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; </span></span></span><!--[endif]-->Cặp ngoặc vuông sau biểu thức toán học <i style="">Arithmetic Expression</i> cho thấy các mệnh đề đi <span class="GramE">theo</span> là tùy chọn, có thể có hoạc không. Nhưng nếu sử dụng thì chúng ta phải chọn một trong 2 mệnh đề, hoặc là mệnh đề <span style="font-size: 10pt;">ON SIZE ERROR</span> hoặc là mệnh đề <span style="font-size: 10pt;">NOT ON SIZE ERROR</span>.</p> <p class="MsoNormal" style="margin-bottom: 12pt; margin-left: 0.5in; text-align: justify; text-indent: -0.25in;"><!--[if !supportLists]--><span style="font-family: Symbol;"><span style="">-<span style="font-family: &quot;Times New Roman&quot;; font-style: normal; font-variant: normal; font-weight: normal; font-size: 7pt; line-height: normal; font-size-adjust: none; font-stretch: normal;">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; </span></span></span><!--[endif]-->Bởi bì <span style="font-size: 10pt;">END-COMPUTE</span> nằm trong cặp dấu ngoặc vuông cho nên nó chỉ được sử dụng khi có mệnh đề <span style="font-size: 10pt;">SIZE ERROR</span> hoặc <span style="font-size: 10pt;">NOT SIZE ERROR</span> sử dụng.</p> <h4 style="text-align: justify;"><span style="font-family: Arial; color: maroon;">Quy định đặt tên</span></h4> <p style="text-align: justify;">Tất cả các tên do người dùng định nghĩa, như tên dữ liệu, tên đoạn, tên vùng, tên biến phải được đặt tên tuân thủ quy tắc sau:</p> <p style="margin-left: 0.5in; text-align: justify; text-indent: -0.25in;"><!--[if !supportLists]--><span style="">1.<span style="font-family: &quot;Times New Roman&quot;; font-style: normal; font-variant: normal; font-weight: normal; font-size: 7pt; line-height: normal; font-size-adjust: none; font-stretch: normal;">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; </span></span><!--[endif]-->Có tối thiểu 1 ký tự và tối đa 30 ký tự. </p> <p style="margin-left: 0.5in; text-align: justify; text-indent: -0.25in;"><!--[if !supportLists]--><span style="">2.<span style="font-family: &quot;Times New Roman&quot;; font-style: normal; font-variant: normal; font-weight: normal; font-size: 7pt; line-height: normal; font-size-adjust: none; font-stretch: normal;">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; </span></span><!--[endif]-->Sử dụng các ký tự alphabet viết hoa A đến Z, các số 0 đến 9 và dấu trừ "-" </p> <p style="margin-left: 0.5in; text-align: justify; text-indent: -0.25in;"><!--[if !supportLists]--><span style="">3.<span style="font-family: &quot;Times New Roman&quot;; font-style: normal; font-variant: normal; font-weight: normal; font-size: 7pt; line-height: normal; font-size-adjust: none; font-stretch: normal;">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; </span></span><!--[endif]-->Không bắt đầu và kết thúc bằng dấu trừ "-". </p> <p style="margin-left: 0.5in; text-align: justify; text-indent: -0.25in;"><!--[if !supportLists]--><span style="">4.<span style="font-family: &quot;Times New Roman&quot;; font-style: normal; font-variant: normal; font-weight: normal; font-size: 7pt; line-height: normal; font-size-adjust: none; font-stretch: normal;">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; </span></span><!--[endif]-->Không có khoảng trắng.</p> <div align="center"> <table class="MsoTableGrid" style="border: medium none ; margin-left: 0.25in; border-collapse: collapse;" border="1" cellpadding="0" cellspacing="0"> <tbody><tr style=""> <td style="border: 1pt solid windowtext; padding: 0in 5.4pt; background: rgb(179, 179, 179) none repeat scroll 0% 0%; width: 142pt; -moz-background-clip: -moz-initial; -moz-background-origin: -moz-initial; -moz-background-inline-policy: -moz-initial;" valign="top" width="189"> <p style="margin: 6pt 0in; text-align: justify;"><b style="">Tên hợp lệ<o:p></o:p></b></p> </td> <td style="border-style: solid solid solid none; border-color: windowtext windowtext windowtext -moz-use-text-color; border-width: 1pt 1pt 1pt medium; padding: 0in 5.4pt; background: rgb(179, 179, 179) none repeat scroll 0% 0%; width: 142.55pt; -moz-background-clip: -moz-initial; -moz-background-origin: -moz-initial; -moz-background-inline-policy: -moz-initial;" valign="top" width="190"> <p style="margin: 6pt 0in; text-align: justify;"><b style="">Tên không hợp lệ<o:p></o:p></b></p> </td> <td style="border-style: solid solid solid none; border-color: windowtext windowtext windowtext -moz-use-text-color; border-width: 1pt 1pt 1pt medium; padding: 0in 5.4pt; background: rgb(179, 179, 179) none repeat scroll 0% 0%; width: 140.25pt; -moz-background-clip: -moz-initial; -moz-background-origin: -moz-initial; -moz-background-inline-policy: -moz-initial;" valign="top" width="187"> <p style="margin: 6pt 0in; text-align: justify;"><b style="">Giải thích<o:p></o:p></b></p> </td> </tr> <tr style=""> <td style="border-style: none solid solid; border-color: -moz-use-text-color windowtext windowtext; border-width: medium 1pt 1pt; padding: 0in 5.4pt; width: 142pt;" valign="top" width="189"> <p style="margin: 3pt 0in; text-align: justify;">TOTAL-DOLLARS</p> </td> <td style="border-style: none solid solid none; border-color: -moz-use-text-color windowtext windowtext -moz-use-text-color; border-width: medium 1pt 1pt medium; padding: 0in 5.4pt; width: 142.55pt;" valign="top" width="190"> <p style="margin: 3pt 0in; text-align: justify;">TOTAL-$</p> </td> <td style="border-style: none solid solid none; border-color: -moz-use-text-color windowtext windowtext -moz-use-text-color; border-width: medium 1pt 1pt medium; padding: 0in 5.4pt; width: 140.25pt;" valign="top" width="187"> <p style="margin: 3pt 0in; text-align: justify;">Không sử dụng dấu $ </p> </td> </tr> <tr style=""> <td style="border-style: none solid solid; border-color: -moz-use-text-color windowtext windowtext; border-width: medium 1pt 1pt; padding: 0in 5.4pt; width: 142pt;" valign="top" width="189"> <p style="margin: 3pt 0in; text-align: justify;">SUM-OF-COLUMNS</p> </td> <td style="border-style: none solid solid none; border-color: -moz-use-text-color windowtext windowtext -moz-use-text-color; border-width: medium 1pt 1pt medium; padding: 0in 5.4pt; width: 142.55pt;" valign="top" width="190"> <p style="margin: 3pt 0in; text-align: justify;">sum-of-columns</p> </td> <td style="border-style: none solid solid none; border-color: -moz-use-text-color windowtext windowtext -moz-use-text-color; border-width: medium 1pt 1pt medium; padding: 0in 5.4pt; width: 140.25pt;" valign="top" width="187"> <p style="margin: 3pt 0in; text-align: justify;">Không sử dụng ký tự viết thường</p> </td> </tr> <tr style=""> <td style="border-style: none solid solid; border-color: -moz-use-text-color windowtext windowtext; border-width: medium 1pt 1pt; padding: 0in 5.4pt; width: 142pt;" valign="top" width="189"> <p style="margin: 3pt 0in; text-align: justify;">7-BY-5</p> </td> <td style="border-style: none solid solid none; border-color: -moz-use-text-color windowtext windowtext -moz-use-text-color; border-width: medium 1pt 1pt medium; padding: 0in 5.4pt; width: 142.55pt;" valign="top" width="190"> <p style="margin: 3pt 0in; text-align: justify;">7_BY_5</p> </td> <td style="border-style: none solid solid none; border-color: -moz-use-text-color windowtext windowtext -moz-use-text-color; border-width: medium 1pt 1pt medium; padding: 0in 5.4pt; width: 140.25pt;" valign="top" width="187"> <p style="margin: 3pt 0in; text-align: justify;">Không sử dụng ký tự gạch chân _</p> </td> </tr> <tr style=""> <td style="border-style: none solid solid; border-color: -moz-use-text-color windowtext windowtext; border-width: medium 1pt 1pt; padding: 0in 5.4pt; width: 142pt;" valign="top" width="189"> <p style="margin: 3pt 0in; text-align: justify;">MINUS-RESULT</p> </td> <td style="border-style: none solid solid none; border-color: -moz-use-text-color windowtext windowtext -moz-use-text-color; border-width: medium 1pt 1pt medium; padding: 0in 5.4pt; width: 142.55pt;" valign="top" width="190"> <p style="margin: 3pt 0in; text-align: justify;">-RESULT</p> </td> <td style="border-style: none solid solid none; border-color: -moz-use-text-color windowtext windowtext -moz-use-text-color; border-width: medium 1pt 1pt medium; padding: 0in 5.4pt; width: 140.25pt;" valign="top" width="187"> <p style="margin: 3pt 0in; text-align: justify;">Không được bắt đầu bằng dấu trừ</p> </td> </tr> <tr style=""> <td style="border-style: none solid solid; border-color: -moz-use-text-color windowtext windowtext; border-width: medium 1pt 1pt; padding: 0in 5.4pt; width: 142pt;" valign="top" width="189"> <p style="margin: 3pt 0in; text-align: justify;">BOEING-707-SEATS</p> </td> <td style="border-style: none solid solid none; border-color: -moz-use-text-color windowtext windowtext -moz-use-text-color; border-width: medium 1pt 1pt medium; padding: 0in 5.4pt; width: 142.55pt;" valign="top" width="190"> <p style="margin: 3pt 0in; text-align: justify;">BOEING-707-MAXIMUM- SEATING-CAPACITY</p> </td> <td style="border-style: none solid solid none; border-color: -moz-use-text-color windowtext windowtext -moz-use-text-color; border-width: medium 1pt 1pt medium; padding: 0in 5.4pt; width: 140.25pt;" valign="top" width="187"> <p style="margin: 3pt 0in; text-align: justify;">Không vượt quá 30 ký tự</p> </td> </tr> </tbody></table> </div> <p style="text-align: justify;"><b style="">Bảng: Tên biến hợp lệ và không hợp lệ.<o:p></o:p></b></p> <h4 style="text-align: justify;"><span style="font-family: Arial; color: maroon;">Cấu trúc chương trình COBOL</span></h4> <p class="MsoNormal" style="text-align: justify;"><span class="GramE">Các chương trình COBOL là một chương trình có cấu trúc.</span> <span class="GramE">Mỗi thành phần của cấu trúc bao gồm một hoặc nhiều thành phân con.</span> </p> <p class="MsoNormal" style="text-align: justify;"><span class="GramE">Kiến trúc này bao gồm các <b>phân vùng</b> (Division), <b>vùng </b>(Section), <b>đoạn lệnh </b>(Paragraph), <b>câu lệnh </b>(Sentence) và <b>phát biểu</b> (Statement).</span> </p> <p class="MsoNormal" style="text-align: justify;"><span class="GramE">Một phân vùng bao gồm một hoặc nhiều vùng, một vùng bao gồm một hoặc nhiều đoạn lệnh, một đoạn lệnh bao gồm một hoặc nhiều câu lệnh và một câu lệnh bao gồm một hoặc nhiều phát biểu / mệnh đề.</span> </p> <p class="MsoNormal" style="text-align: justify;">Chúng ta có thể biểu diễn kiến trúc của một chương trình COBOL bằng cách sử dụng ngôn ngữ đặc tả như sau:</p> <p style="text-align: center;" align="center"><!--[if gte vml 1]><v:shape id="_x0000_i1027" type="#_x0000_t75" alt="" style='width:350.25pt;height:152.25pt'> <v:imagedata src="Lap%20trinh%20COBOL%20-%20Phan%201_files/image002.gif" o:href="file:///D:\Programing\COBOL\workspace\csis\www.csis.ul.ie\cobol\Course\Resources\pics\CobolStructure.gif"/> </v:shape><![endif]--><!--[if !vml]--><img src="http://ngo.2uoc.hung.googlepages.com/Lap%20trinh%20COBOL%20-%20Phan%201_files/image002.gif" v:shapes="_x0000_i1027" width="467" border="0" height="203"><!--[endif]--></p> <p class="MsoNormal" style="text-align: justify;"><b><span style="font-family: Arial;">Divisions</span></b><br> Một phân vùng là một khối mã lệnh, thông thường bao gồm một hoặc nhiều vùng, trong đó vị trí bắt đầu là vị trí sau tên gọi phân vùng và vị trí kết thúc là điểm bắt đầu một phân vùng tiếp <span class="GramE">theo</span> hoặc kết thúc chương trình. </p> <p class="MsoNormal" style="text-align: justify;"><b><span style="font-family: Arial;"><o:p>&nbsp;</o:p></span></b></p> <p class="MsoNormal" style="text-align: justify;"><span class="GramE"><b><span style="font-family: Arial;">Sections</span></b><br> Một vùng cũng là một khối mã lệnh (nhưng nhỏ hơn phân vùng) thường bao gồm một hoặc nhiều đoạn.</span> Một vùng bắt đầu bằng tên vùng và kết thúc tại vị trí bắt đầu vùng tiếp <span class="GramE">theo</span> hoặc hoặc kết thúc chương trình. </p> <p class="MsoNormal" style="text-align: justify;">Tên vùng có thể do lập trình viên tự đặt tên, hoặc đã được ngôn ngữ COBOL định nghĩa sẵn. Một tên vùng <span class="GramE">theo</span> sau là từ khóa <span class="COBOLkeywords"><span style="font-size: 10pt;">SECTION</span></span> và dấu chấm.<span style="">&nbsp; </span>Ví dụ:</p> <div style="border: 1pt solid windowtext; padding: 1pt 0in 1pt 4pt; background: honeydew none repeat scroll 0% 0%; -moz-background-clip: -moz-initial; -moz-background-origin: -moz-initial; -moz-background-inline-policy: -moz-initial; margin-left: 0.25in; margin-right: 0.25in;"> <p class="COBOLExample" style="border: medium none ; margin: 3pt 0in 0.0001pt; padding: 0in; background: honeydew none repeat scroll 0% 0%; text-align: justify; -moz-background-clip: -moz-initial; -moz-background-origin: -moz-initial; -moz-background-inline-policy: -moz-initial;"><span style="font-size: 2pt;" lang="EN"><o:p>&nbsp;</o:p></span></p> <p class="COBOLExample" style="margin: 0px;"><span style="" lang="EN">SelectUnpaidBills SECTION.<br> FILE SECTION.</span><span style="font-size: 4pt;" lang="EN"> <o:p></o:p></span></p> <p class="COBOLExample" style="border: medium none ; margin: 3pt 0in 0.0001pt; padding: 0in; background: honeydew none repeat scroll 0% 0%; text-align: justify; -moz-background-clip: -moz-initial; -moz-background-origin: -moz-initial; -moz-background-inline-policy: -moz-initial;"><span style="font-size: 1pt;" lang="EN"><o:p>&nbsp;</o:p></span></p> </div> <p class="MsoNormal" style="text-align: justify;"><b><span style="font-family: Arial;"><o:p>&nbsp;</o:p></span></b></p> <p class="MsoNormal" style="text-align: justify;"><b><span style="font-family: Arial;">Paragraphs</span></b></p> <p class="MsoNormal" style="text-align: justify;"><span class="GramE">Một đoạn là một khối mã lệnh thường bao gồm một hoặc nhiều câu lệnh.</span> Một đoạn bắt đầu từ tên đoạn và kế thúc bằng đoạn tiếp <span class="GramE">theo</span> hoặc vị trí kết thúc của chương trình. </p> <p class="MsoNormal" style="text-align: justify;">Tên đoạn có thể do lập trình viên tự đặt hoặc được ngôn ngữ định nghĩa sẵn<span class="GramE">,<span style="">&nbsp; </span>và</span> theo sau nó là một dấu chấm. Ví dụ:</p> <div style="border: 1pt solid windowtext; padding: 1pt 4pt; background: honeydew none repeat scroll 0% 0%; -moz-background-clip: -moz-initial; -moz-background-origin: -moz-initial; -moz-background-inline-policy: -moz-initial; margin-left: 0.25in; margin-right: 0.25in;"> <p class="COBOLExample" style="margin: 3pt 0in 0.0001pt; background: honeydew none repeat scroll 0% 0%; text-align: justify; -moz-background-clip: -moz-initial; -moz-background-origin: -moz-initial; -moz-background-inline-policy: -moz-initial;"><span style="font-size: 4pt;" lang="EN"><o:p>&nbsp;</o:p></span></p> <p class="COBOLExample" style="margin: 0px;"><span class="GramE"><span style="" lang="EN">PrintFinalTotals.</span></span><span style="" lang="EN"><br> <span class="GramE">PROGRAM-ID.</span><o:p></o:p></span></p> <p class="COBOLExample" style="margin: 0px;"><span style="font-size: 3pt;" lang="EN"><o:p>&nbsp;</o:p></span></p> </div> <p class="MsoNormal" style="text-align: justify;"><b><span style="font-family: Arial;"><o:p>&nbsp;</o:p></span></b></p> <p class="MsoNormal" style="text-align: justify;"><b><span style="font-family: Arial;">Sentences and statements</span></b></p> <p class="MsoNormal" style="text-align: justify;"><span class="GramE">Câu lệnh bao gồm một hoặc nhiều mệnh đề và kết thúc bằng một dấu chấm.</span> Ví dụ:</p> <div style="border: 1pt solid windowtext; padding: 1pt 4pt; background: honeydew none repeat scroll 0% 0%; -moz-background-clip: -moz-initial; -moz-background-origin: -moz-initial; -moz-background-inline-policy: -moz-initial; margin-left: 0.25in; margin-right: 0.25in;"> <p class="COBOLExample" style="margin: 3pt 0in 0.0001pt; background: honeydew none repeat scroll 0% 0%; -moz-background-clip: -moz-initial; -moz-background-origin: -moz-initial; -moz-background-inline-policy: -moz-initial;"><span style="font-size: 4pt;" lang="EN"><o:p>&nbsp;</o:p></span></p> <p class="COBOLExample" style="margin: 0px;"><span style="" lang="EN">MOVE .21 TO VatRate<br> &nbsp;&nbsp;&nbsp;MOVE 1235.76 TO ProductCost<br> &nbsp;&nbsp;&nbsp;COMPUTE VatAmount = ProductCost * VatRate.<o:p></o:p></span></p> <p class="COBOLExample" style="margin: 0px;"><span style="font-size: 3pt;" lang="EN"><o:p>&nbsp;</o:p></span></p> </div> <p style="text-align: justify;"><span class="GramE">Một mệnh đề bao gồm một động từ / lệnh COBOL và một hoặc nhiều operand.</span> Ví dụ:</p> <div style="border: 1pt solid windowtext; padding: 1pt 4pt; background: honeydew none repeat scroll 0% 0%; -moz-background-clip: -moz-initial; -moz-background-origin: -moz-initial; -moz-background-inline-policy: -moz-initial; margin-left: 0.25in; margin-right: 0.25in;"> <p class="COBOLExample" style="margin: 0px;"><span style="font-size: 5pt;" lang="EN"><o:p>&nbsp;</o:p></span></p> <p class="COBOLExample" style="margin: 0px;"><span style="" lang="EN">SUBTRACT Tax FROM GrossPay GIVING NetPay<o:p></o:p></span></p> <p class="COBOLExample" style="margin: 0px;"><span style="font-size: 4pt;" lang="EN"><o:p>&nbsp;</o:p></span></p> </div> <p class="MsoNormal" style="margin: 12pt 0in 0.0001pt; text-align: justify; text-indent: 0in;"><!--[if !supportLists]--><span class="Header0101"><span style=""><span style="">1.4.<span style="font-family: &quot;Times New Roman&quot;; font-style: normal; font-variant: normal; font-weight: normal; font-size: 7pt; line-height: normal; font-size-adjust: none; font-stretch: normal;">&nbsp;&nbsp; </span></span></span></span><!--[endif]--><span class="Header0101"><span style="">Cấu trúc chương trình COBOL<o:p></o:p></span></span></p> <p class="MsoNormal" style="text-align: justify;"><span class="GramE">Kiến trúc một chương trình COBOL bao gồm 4 phân vùng (division).</span> Mặc dù một số phân vùng có thể lược bỏ nhưng thứ tự của chúng là không thể đảo lộn<span class="GramE">,<span style="">&nbsp; </span>và</span> chúng phải theo thứ tự như sau:</p> <p style="text-align: center;" align="center"><span class="GramE"><b><span style="font-size: 13.5pt; font-family: Arial;">IDENTIFICATION DIVISION.</span></b></span><br> Bao gồm các thông tin về chương trình</p> <p style="text-align: center;" align="center"><span class="GramE"><b><span style="font-size: 13.5pt; font-family: Arial;">ENVIRONMENT DIVISION.</span></b></span><br> Bao gồm các thông tin về môi trường</p> <p style="text-align: center;" align="center"><span class="GramE"><b><span style="font-size: 13.5pt; font-family: Arial;">DATA DIVISION.</span></b></span><br> Bao gồm các thông tin khai báo biến dữ liệu</p> <p style="text-align: center;" align="center"><span class="GramE"><b><span style="font-size: 13.5pt; font-family: Arial;">PROCEDURE DIVISION.</span></b></span><br> Bao gồm các thuật toán xử lý của chương trình</p> <h4 style="text-align: justify;"><span style="font-size: 11pt; font-family: Arial; color: maroon;">IDENTIFICATION DIVISION</span></h4> <p class="MsoNormal" style="text-align: justify;"><span class="GramE">Phân vùng<span style="font-size: 10pt;"> </span><span class="COBOLkeywords"><span style="font-size: 10pt;">IDENTIFICATION DIVISION</span></span> cung cấp thông tin về chương trình cho lặp trình viên và trình biên dịch.</span> </p> <p class="MsoNormal" style="text-align: justify;">Hầu hết các từ, tên trong phân vùng <span class="COBOLkeywords"><span style="font-size: 10pt;">IDENTIFICATION DIVISION</span></span><span style="font-size: 10pt;"> </span>đều do lập trình viên xác định. <span class="GramE">Trình biên dịch xem nó như là những chú thích thêm cho chương trình.</span></p> <p class="MsoNormal" style="text-align: justify;"><span class="GramE">Nhưng mệnh đề<span style="font-size: 10pt;"> </span><span class="COBOLkeywords"><span style="font-size: 10pt;">PROGRAM-ID</span></span><span style="font-size: 10pt;"> </span>là một ngoại lệ.</span> <span class="GramE">Mọi chương trình COBOL đều phải có một mệnh đề <span style="font-size: 10pt;">PROGRAM-ID</span> bởi vì tên chỉ định sau mệnh đề này được sử dụng để liên kết khi liên kết với một số chương trình con bằng câu lệnh <span class="COBOLkeywords"><span style="font-size: 10pt;">CALL</span></span>.</span></p> <p class="MsoNormal" style="text-align: justify;">Phân<span style="font-size: 10pt;"> </span>vùng<span style="font-size: 10pt;"> </span><span class="COBOLkeywords"><span style="font-size: 10pt;">IDENTIFICATION DIVISION</span></span><span style="font-size: 10pt;"> </span>có cấu trúc như sau:</p> <p style="text-align: center;" align="center"><span class="GramE"><b><span style="font-family: &quot;Courier New&quot;;">IDENTIFICATION DIVISION<br> PROGRAM-ID.</span></b></span><b><span style="font-family: &quot;Courier New&quot;;"> <span class="GramE">NameOfProgram.</span><br> <span class="GramE">[AUTHOR.</span> <span class="GramE">YourName.]</span><br> <span class="GramE">other</span> entries here</span></b></p> <p class="MsoNormal" style="text-align: justify;"><span class="GramE">Từ khóa<span style="font-size: 10pt;"> </span><span class="COBOLkeywords"><span style="font-size: 10pt;">IDENTIFICATION DIVISION</span></span> biểu diễn phần bắt đầu của phân vùng.</span> <span class="GramE"><span class="COBOLkeywords"><span style="font-size: 10pt;">PROGRAM-ID</span></span> là một tên đoạn và phải được đặt ngay sau khi bắt đầu phân vùng.</span> <span class="COBOLkeywords"><span style="font-size: 10pt;">NameOfProgram</span></span> là một tên do lập trình viên tự đặt<span class="GramE">,và</span> nó phải thỏa mãn quy định đặt tên của COBOL.</p> <p class="MsoNormal" style="text-align: justify;">Đây là một ví dụ tiêu biểu của phân vùng này:</p> <div style="border: 1pt solid windowtext; padding: 1pt 4pt; background: honeydew none repeat scroll 0% 0%; -moz-background-clip: -moz-initial; -moz-background-origin: -moz-initial; -moz-background-inline-policy: -moz-initial; margin-left: 0.25in; margin-right: 0.25in;"> <p class="COBOLExample" style="margin: 0px;"><span style="font-size: 7pt;"><o:p>&nbsp;</o:p></span></p> <p class="COBOLExample" style="margin: 0px;"><span class="GramE">IDENTIFICATION DIVISION.</span><br> <span class="GramE">PROGRAM-ID.</span> <span class="GramE">SequenceProgram.</span><br> <span class="GramE">AUTHOR.</span> Michael Coughlan.</p> <p class="COBOLExample" style="margin: 0px;"><span style="font-size: 4pt;"><o:p>&nbsp;</o:p></span></p> </div> <h4 style="text-align: justify;"><span style="font-size: 11pt; font-family: Arial; color: maroon;">ENVIRONMENT DIVISION</span></h4> <p class="MsoNormal" style="text-align: justify;"><span class="GramE">Phân vùng<span style="font-size: 10pt;"> </span><span class="COBOLkeywords"><span style="font-size: 10pt;">ENVIRONMENT DIVISION</span></span> được sử dụng để mô tả môi trường của chương trìnhlúc thực thi.</span> <span class="GramE">Mục đích của phân vùng<span style="font-size: 10pt;"> </span><span class="COBOLkeywords"><span style="font-size: 10pt;">ENVIRONMENT DIVISION</span></span> là để cô lập chương trình với môi trường từ đó có thể tạo ra các chương trình chạy độc lập với môi trường cũng như thiệt bị.</span></p> <p class="MsoNormal" style="text-align: justify;">Trong phân vùng<span style="font-size: 10pt;"> </span><span class="COBOLkeywords"><span style="font-size: 10pt;">ENVIRONMENT DIVISION</span></span>, các tên hiệu/bí danh được gán cho các thiết bị mở rộng, file hay các chuỗi lệnh. <span class="GramE">Các chi tiết môi trường khác như chuỗi kiễm tra, ký hiện tiền tệ, ký hiệu dấu chấm thập phâncó thể được định nghĩa ỏ đây.</span></p> <p class="MsoNormal" style="margin-top: 6pt; text-align: justify;"><b><span style="font-family: Arial; color: maroon;">DATA DIVISION</span></b></p> <p class="MsoNormal" style="text-align: justify;"><span class="GramE">Phân vùng<span style="font-size: 10pt;"> </span><span class="COBOLkeywords"><span style="font-size: 10pt;">DATA DIVISION</span></span> cung cấp các thành phần dữ liệu cho chương trình.</span> </p> <p class="MsoNormal" style="text-align: justify;"><span class="GramE">Phân vùng <span class="COBOLkeywords"><span style="font-size: 10pt;">DATA DIVISION</span></span> bao gồm các phát biểu mô tả thành phần dữ liệu được sử dụng trong chương trình.</span> <span class="GramE">Trong ngôn ngữ COBOL, mọi biến chứa dữ liệu đều phải được khai báo trước, và phải được khai báo trong vùng <span class="COBOLkeywords"><span style="font-size: 10pt;">DATA DIVISION</span></span>.</span> <span class="GramE">Đây chính là vùng khai báo biến của chương trình, cũng như vùng VAR khai dùng để báo biến trong ngôn ngữ lập trình PASCAL.</span> <span class="GramE">Phân vùng <span class="COBOLkeywords"><span style="font-size: 10pt;">DATA DIVISION</span></span> và <span class="COBOLkeywords"><span style="font-size: 10pt;">PROCEDURE DIVISION</span></span> là hai vùng quan trọng của một chương trình COBOL.</span></p> <p class="MsoNormal" style="text-align: justify;">Phân vùng<span style="font-size: 10pt;"> </span><span class="COBOLkeywords"><span style="font-size: 10pt;">DATA DIVISION</span></span> có hai vùng chính: <span class="COBOLkeywords"><span style="font-size: 10pt;">FILE SECTION</span></span> và <span class="COBOLkeywords"><span style="font-size: 10pt;">WORKING-STORAGE</span></span><span style="font-size: 10pt;"> </span><span class="COBOLkeywords"><span style="font-size: 10pt;">SECTION</span></span>. <span class="GramE">Ngoài ra còn có <span class="COBOLkeywords"><span style="font-size: 10pt;">LINKAGE</span></span><span style="font-size: 10pt;"> </span><span class="COBOLkeywords"><span style="font-size: 10pt;">SECTION</span></span> (sử dụng trong chương trình con) và <span class="COBOLkeywords"><span style="font-size: 10pt;">REPORT</span></span><span style="font-size: 10pt;"> </span><span class="COBOLkeywords"><span style="font-size: 10pt;">SECTION</span></span> (sử dụng trong các chương trình Report Writer) có thể được sử dụng.</span></p> <p class="MsoNormal" style="text-align: justify;">Vùng <span class="COBOLkeywords"><span style="font-size: 10pt;">FILE SECTION</span></span> được sử dụng để mô tả quá trình làm việc giữa dữ liệu trong bộ nhớ và thiết bị ngoại <span class="GramE">vi</span>. <span class="GramE">Còn vùng <span class="COBOLkeywords"><span style="font-size: 10pt;">WORKING-STORAGE SECTION</span></span> được sử dụng để mô tả các biến sử dụng trong chương trình.</span></p> <p class="MsoNormal" style="text-align: justify;">Phân vùng <span class="COBOLkeywords"><span style="font-size: 10pt;">DATA DIVISION</span></span><span style="font-size: 10pt;"> </span>có cấu trúc cú pháp như sau:</p> <p style="text-align: center;" align="center"><!--[if gte vml 1]><v:shape id="_x0000_i1028" type="#_x0000_t75" alt="" style='width:223.5pt;height:108.75pt'> <v:imagedata src="Lap%20trinh%20COBOL%20-%20Phan%201_files/image003.png" o:href="file:///D:\Programing\COBOL\workspace\csis\www.csis.ul.ie\cobol\Course\Resources\pics\DataDiv.gif"/> </v:shape><![endif]--><!--[if !vml]--><img src="http://ngo.2uoc.hung.googlepages.com/Lap%20trinh%20COBOL%20-%20Phan%201_files/image017.jpg" v:shapes="_x0000_i1028" width="298" border="0" height="145"><!--[endif]--></p> <p style="text-align: justify;">Dưới đây là ví dụ về phân vùng này:</p> <div style="border: 1pt solid windowtext; padding: 1pt 4pt; background: honeydew none repeat scroll 0% 0%; -moz-background-clip: -moz-initial; -moz-background-origin: -moz-initial; -moz-background-inline-policy: -moz-initial; margin-left: 0.25in; margin-right: 0.25in;"> <p class="COBOLExample" style="margin: 0px;"><span class="GramE"><span style="" lang="EN">IDENTIFICATION DIVISION.</span></span><span style="" lang="EN"><br> <span class="GramE">PROGRAM-ID.</span> <span class="GramE">SequenceProgram.</span><br> <span class="GramE">AUTHOR.</span> Michael Coughlan.<o:p></o:p></span></p> <p class="COBOLExample" style="margin: 0px;"><span style="" lang="EN"><br> <span class="GramE"><b style="">DATA DIVISION.</b></span><b style=""><br> <span class="GramE">WORKING-STORAGE SECTION.</span><br> <span class="GramE">01<span style="">&nbsp; </span>Num1</span><span style="">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; </span>PIC 9<span style="">&nbsp; </span>VALUE ZEROS.<br> <span class="GramE">01<span style="">&nbsp; </span>Num2</span><span style="">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; </span>PIC 9<span style="">&nbsp; </span>VALUE ZEROS.<br> <span class="GramE">01<span style="">&nbsp; </span>Result</span><span style="">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; </span>PIC 99 VALUE ZEROS.</b></span><b style=""><o:p></o:p></b></p> </div> <h4 style="text-align: justify;"><span style="font-family: Arial; color: maroon;">PROCEDURE DIVISION</span></h4> <p class="MsoNormal" style="text-align: justify;"><span class="GramE">Phân vùng <span class="COBOLkeywords"><span style="font-size: 10pt;">PROCEDURE</span></span><span style="font-size: 10pt;"> </span><span class="COBOLkeywords"><span style="font-size: 10pt;">DIVISION</span></span> bao gồm các mã lệnh sử dụng dùng để thao tác trên các thành phần dữ liệu đã được khai báo trong <span class="COBOLkeywords"><span style="font-size: 10pt;">DATA</span></span><span style="font-size: 10pt;"> </span><span class="COBOLkeywords"><span style="font-size: 10pt;">DIVISION</span></span>.</span> It is here that the programmer describes his algorithm.</p> <p class="MsoNormal" style="text-align: justify;">Vùng <tt><span style="font-size: 10pt; color: blue;">PROCEDURE DIVISION</span></tt> bao gồm các phát biểu hay các lệnh được thực thi trong một chương trình COBOL. <span class="GramE">Vùng này chính là vùng xử lý chính của chương trình, không có vùng <tt><span style="font-size: 10pt;">PROCEDURE DIVISION</span></tt> thì chúng ta không có chương trình, bởi vì tất cả những vùng khác chỉ nhằm mục đích tạo môi trường và dữ liệu cho vùng <tt><span style="font-size: 10pt;">PROCEDURE DIVISION</span></tt> trong chương trình hoạt động và thực hiện một/nhiều công việc nào đó.</span></p> <p style="text-align: justify;">Tên các đoạn, các vùng sử dụng trong phân vùng <span class="COBOLkeywords"><span style="font-size: 10pt;">PROCEDURE DIVISION</span></span> do lập trình viên tự chọn và phải thỏa mãn quy định đặt tên của COBOL.</p> <p style="text-align: justify;">Chương trình ví dụ:</p> <div style="border: 1pt solid windowtext; padding: 1pt 4pt; background: honeydew none repeat scroll 0% 0%; -moz-background-clip: -moz-initial; -moz-background-origin: -moz-initial; -moz-background-inline-policy: -moz-initial; margin-left: 0.25in; margin-right: 0.25in;"> <p class="COBOLExample" style="margin: 0px;"><span class="GramE"><span style="" lang="EN">IDENTIFICATION DIVISION.</span></span><span style="" lang="EN"><o:p></o:p></span></p> <p class="COBOLExample" style="margin: 0px;"><span class="GramE"><span style="" lang="EN">PROGRAM-ID.</span></span><span style="" lang="EN"> <span class="GramE">SequenceProgram.</span><o:p></o:p></span></p> <p class="COBOLExample" style="margin: 0px;"><span class="GramE"><span style="" lang="EN">AUTHOR.</span></span><span style="" lang="EN"> Michael Coughlan.<span style="">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; </span><o:p></o:p></span></p> <p class="COBOLExample" style="margin: 0px;"><span class="GramE"><span style="" lang="EN">DATA DIVISION.</span></span><span style="" lang="EN"><o:p></o:p></span></p> <p class="COBOLExample" style="margin: 0px;"><span class="GramE"><span style="" lang="EN">WORKING-STORAGE SECTION.</span></span><span style="" lang="EN"><o:p></o:p></span></p> <p class="COBOLExample" style="margin: 0px;"><span style="" lang="EN">01 Num1 PIC 9 VALUE ZEROS.<o:p></o:p></span></p> <p class="COBOLExample" style="margin: 0px;"><span style="" lang="EN">01 Num2 PIC 9 VALUE ZEROS.<o:p></o:p></span></p> <p class="COBOLExample" style="margin: 0px;"><span style="" lang="EN">01 Result PIC 99 VALUE ZEROS.<o:p></o:p></span></p> <p class="COBOLExample" style="margin: 0px;"><span style="" lang="EN"><o:p>&nbsp;</o:p></span></p> <p class="COBOLExample" style="margin: 0px;"><span class="GramE"><span style="" lang="EN">PROCEDURE DIVISION.</span></span><span style="" lang="EN"><o:p></o:p></span></p> <p class="COBOLExample" style="margin: 0px;"><span class="GramE"><span style="" lang="EN">CalculateResult.</span></span><span style="" lang="EN"><o:p></o:p></span></p> <p class="COBOLExample" style="margin: 0px;"><span style="" lang="EN"><span style="">&nbsp;&nbsp; </span>ACCEPT Num1.<o:p></o:p></span></p> <p class="COBOLExample" style="margin: 0px;"><span style="" lang="EN"><span style="">&nbsp;&nbsp; </span>ACCEPT Num2.<o:p></o:p></span></p> <p class="COBOLExample" style="margin: 0px;"><span style="" lang="EN"><span style="">&nbsp;&nbsp; </span>MULTIPLY Num1 BY Num2 GIVING Result.<o:p></o:p></span></p> <p class="COBOLExample" style="margin: 0px;"><span style="" lang="EN"><span style="">&nbsp;&nbsp; </span>DISPLAY "Result is = ", Result.<o:p></o:p></span></p> <p class="COBOLExample" style="margin: 0px;"><span style="" lang="EN"><span style="">&nbsp;&nbsp; </span>STOP RUN.<span style="">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; </span><o:p></o:p></span></p> </div> <p class="MsoNormal" style="text-align: justify;"><span class="GramE">Một số trình biên dịch COBOL yêu cầu đầy đủ các phân vùng <span class="COBOLkeywords"><span style="font-size: 10pt;">IDENTIFICATION DIVISION</span></span> và <span class="COBOLkeywords"><span style="font-size: 10pt;">PROCEDURE DIVISION</span></span>.</span> Như vậy một chương trình ở dạng đơn giản tối thiểu sẽ có dạng như chương trình bên dưới (sử dụng trình biên dịch Microfocus NetExpress).</p> <p style="text-align: justify;"><b>Chương trình COBOL đơn giản<o:p></o:p></b></p> <div style="border: 1pt solid windowtext; padding: 1pt 4pt; background: honeydew none repeat scroll 0% 0%; -moz-background-clip: -moz-initial; -moz-background-origin: -moz-initial; -moz-background-inline-policy: -moz-initial; margin-left: 0.25in; margin-right: 0.25in;"> <p class="COBOLExample" style="margin: 0px;"><span class="GramE">IDENTIFICATION DIVISION.</span><br> <span class="GramE">PROGRAM-ID.</span><span style="">&nbsp; </span><span class="GramE">SmallestProgram.</span></p> <p class="COBOLExample" style="margin: 0px;"><span class="GramE">PROCEDURE DIVISION.</span></p> <p class="COBOLExample" style="margin: 0px;"><span class="GramE">DisplayGreeting.</span></p> <p class="COBOLExample" style="margin: 0px;"><span style="">&nbsp;&nbsp; </span>DISPLAY "Hello world".</p> <p class="COBOLExample" style="margin: 0px;"><span style="">&nbsp;&nbsp; </span>STOP RUN.</p> <p class="COBOLExample" style="margin: 0px;"><span style="">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; </span></p> </div> <p style="margin: 0px;"><o:p>&nbsp;</o:p></p> <p class="MsoNormal" style="margin: 6pt 0in 0.0001pt; text-align: justify; text-indent: 0in;"><!--[if !supportLists]--><span class="Header0101"><span style=""><span style="">1.5.<span style="font-family: &quot;Times New Roman&quot;; font-style: normal; font-variant: normal; font-weight: normal; font-size: 7pt; line-height: normal; font-size-adjust: none; font-stretch: normal;">&nbsp;&nbsp; </span></span></span></span><!--[endif]--><span class="Header0101"><span style="">Cấu trúc dòng mã lệnh COBOL<o:p></o:p></span></span></p> <p style="text-align: justify;">Trước khi bắt đầu viết một chương trình COBOL, chúng ta nên biết về một số quy định trong trình bày file mã chương trình COBOL. Một file mã chương trình COBOL có 5 vùng khác nhau, mở rộng từ trái sang phải: </p> <p style="margin-left: 0.5in; text-align: justify; text-indent: -0.25in;"><!--[if !supportLists]--><span style="font-family: Symbol;"><span style="">·<span style="font-family: &quot;Times New Roman&quot;; font-style: normal; font-variant: normal; font-weight: normal; font-size: 7pt; line-height: normal; font-size-adjust: none; font-stretch: normal;">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; </span></span></span><!--[endif]-->Vùng đánh số dòng (<i style="">line numbers</i> <i style="">area</i><span class="GramE">) :</span> gồm 6 ký tự (cột) đầu tiên của mỗi dòng trong chương trình được sử dụng để đánh số thứ tự các dòng code của chương trình. </p> <p style="margin-left: 0.5in; text-align: justify; text-indent: -0.25in;"><!--[if !supportLists]--><span style="font-family: Symbol;"><span style="">·<span style="font-family: &quot;Times New Roman&quot;; font-style: normal; font-variant: normal; font-weight: normal; font-size: 7pt; line-height: normal; font-size-adjust: none; font-stretch: normal;">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; </span></span></span><!--[endif]-->Vùng chỉ thị (<i>indicator area</i><span class="GramE">) :</span> nằm ở ký tự thứ 7 luôn luôn được bỏ trắng, trường hợp dòng mã là một dòng chú thích thì ký tự tại vị trí này là dấu sao (<span style="font-size: 10pt; font-family: &quot;Courier New&quot;; color: maroon;">'</span> *<span style="font-size: 10pt; font-family: &quot;Courier New&quot;; color: maroon;">'</span>). </p> <p style="margin-left: 0.5in; text-align: justify; text-indent: -0.25in;"><!--[if !supportLists]--><span style="font-family: Symbol;"><span style="">·<span style="font-family: &quot;Times New Roman&quot;; font-style: normal; font-variant: normal; font-weight: normal; font-size: 7pt; line-height: normal; font-size-adjust: none; font-stretch: normal;">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; </span></span></span><!--[endif]-->Vùng A (<i>Area A</i><span class="GramE">) :</span> gồm 4 ký tự tiếp theo từ vị trí thứ 8 đến 11 được gọi là. Các phân vùng <tt><span style="font-size: 10pt;">DIVISION</span></tt> và các đoạn (<tt><span style="font-size: 10pt;">SECTION</span></tt>s) phải bắt đầu từ vùng này. Thông thường vị trí bắt đầu tốt cho phân vùng này là bắt đầu từ cột thứ 8 thay vì các vị trí khác trong vùng A. </p> <p style="margin-left: 0.5in; text-align: justify; text-indent: -0.25in;"><!--[if !supportLists]--><span style="font-family: Symbol;"><span style="">·<span style="font-family: &quot;Times New Roman&quot;; font-style: normal; font-variant: normal; font-weight: normal; font-size: 7pt; line-height: normal; font-size-adjust: none; font-stretch: normal;">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; </span></span></span><!--[endif]-->Vùng B (<i>Area B</i><span style="">): gồm </span>các ký tự có vị trí từ 12 đến 72. Các câu lệnh phải bắt đầu và kết thúc trong vùng B này. </p> <p style="margin-left: 0.5in; text-align: justify; text-indent: -0.25in;"><!--[if !supportLists]--><span style="font-family: Symbol;"><span style="">·<span style="font-family: &quot;Times New Roman&quot;; font-style: normal; font-variant: normal; font-weight: normal; font-size: 7pt; line-height: normal; font-size-adjust: none; font-stretch: normal;">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; </span></span></span><!--[endif]-->Vùng không chỉ định: bao gồm các ký tự từ vị trí 73. Những ký tự này sẽ không được xét trong chương trình.</p> <p style="text-align: justify;">Ví dụ với file mã chương trình <i style="">comment.cbl</i>: </p> <div style="border: 1pt solid windowtext; padding: 1pt 4pt; background: honeydew none repeat scroll 0% 0%; -moz-background-clip: -moz-initial; -moz-background-origin: -moz-initial; -moz-background-inline-policy: -moz-initial; margin-left: 0.25in; margin-right: 23.25pt;"><pre style="border: medium none ; padding: 0in; background: honeydew none repeat scroll 0% 0%; text-align: justify; -moz-background-clip: -moz-initial; -moz-background-origin: -moz-initial; -moz-background-inline-policy: -moz-initial;"><strong><span style="font-family: &quot;Courier New&quot;; color: red;">-------| Vùng A</span></strong></pre><pre style="border: medium none ; padding: 0in; background: honeydew none repeat scroll 0% 0%; text-align: justify; -moz-background-clip: -moz-initial; -moz-background-origin: -moz-initial; -moz-background-inline-policy: -moz-initial;"><tt><span style="color: rgb(0, 102, 255);">000100 </span></tt><strong><span style="font-family: &quot;Courier New&quot;; color: rgb(0, 102, 255);">IDENTIFICATION <span class="GramE">DIVISION</span>.</span></strong><tt><span style="color: rgb(0, 102, 255);"><span style="">&nbsp; </span><o:p></o:p></span></tt></pre><pre style="border: medium none ; padding: 0in; background: honeydew none repeat scroll 0% 0%; text-align: justify; -moz-background-clip: -moz-initial; -moz-background-origin: -moz-initial; -moz-background-inline-policy: -moz-initial;"><tt><span style="color: rgb(0, 102, 255);">000200 </span></tt><span class="GramE"><strong><span style="font-family: &quot;Courier New&quot;; color: rgb(0, 102, 255);">PROGRAM-ID.</span></strong></span><strong><span style="font-family: &quot;Courier New&quot;; color: rgb(0, 102, 255);"> <span class="GramE">COMMENT.</span></span></strong><tt><span style="color: rgb(0, 102, 255);"><span style="">&nbsp; </span><o:p></o:p></span></tt></pre><pre style="border: medium none ; padding: 0in; background: honeydew none repeat scroll 0% 0%; text-align: justify; -moz-background-clip: -moz-initial; -moz-background-origin: -moz-initial; -moz-background-inline-policy: -moz-initial;"><tt><span style="color: rgb(0, 102, 255);">000300 </span></tt><strong><span style="font-family: &quot;Courier New&quot;; color: rgb(0, 102, 255);">ENVIRONMENT <span class="GramE">DIVISION</span>.</span></strong><tt><span style="color: rgb(0, 102, 255);"><span style="">&nbsp; </span><o:p></o:p></span></tt></pre><pre style="border: medium none ; padding: 0in; background: honeydew none repeat scroll 0% 0%; text-align: justify; -moz-background-clip: -moz-initial; -moz-background-origin: -moz-initial; -moz-background-inline-policy: -moz-initial;"><span class="GramE"><tt><span style="color: rgb(0, 102, 255);">000400 </span></tt><strong><span style="font-family: &quot;Courier New&quot;; color: rgb(0, 102, 255);">DATA DIVISION.</span></strong></span><tt><span style="color: rgb(0, 102, 255);"><span style="">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; </span><o:p></o:p></span></tt></pre><pre style="border: medium none ; padding: 0in; background: honeydew none repeat scroll 0% 0%; text-align: justify; -moz-background-clip: -moz-initial; -moz-background-origin: -moz-initial; -moz-background-inline-policy: -moz-initial;"><tt><span style="color: rgb(0, 102, 255);">000500 </span></tt><strong><span style="font-family: &quot;Courier New&quot;; color: rgb(0, 102, 255);">PROCEDURE <span class="GramE">DIVISION</span>.</span></strong><tt><span style="color: rgb(0, 102, 255);"><span style="">&nbsp; </span><o:p></o:p></span></tt></pre><pre style="border: medium none ; padding: 0in; background: honeydew none repeat scroll 0% 0%; text-align: justify; -moz-background-clip: -moz-initial; -moz-background-origin: -moz-initial; -moz-background-inline-policy: -moz-initial;"><tt><span style="color: rgb(0, 102, 255);">000600<o:p></o:p></span></tt></pre><pre style="border: medium none ; padding: 0in; background: honeydew none repeat scroll 0% 0%; text-align: justify; -moz-background-clip: -moz-initial; -moz-background-origin: -moz-initial; -moz-background-inline-policy: -moz-initial;"><tt><span style="color: rgb(0, 102, 255);">000700* <span class="GramE">This</span> is a comment.<o:p></o:p></span></tt></pre><pre style="border: medium none ; padding: 0in; background: honeydew none repeat scroll 0% 0%; text-align: justify; -moz-background-clip: -moz-initial; -moz-background-origin: -moz-initial; -moz-background-inline-policy: -moz-initial;"><tt><span style="color: rgb(0, 102, 255);">000800* <span class="GramE">This</span> paragraph displays information about the program.<o:p></o:p></span></tt></pre><pre style="border: medium none ; padding: 0in; background: honeydew none repeat scroll 0% 0%; text-align: justify; -moz-background-clip: -moz-initial; -moz-background-origin: -moz-initial; -moz-background-inline-policy: -moz-initial;"><span class="GramE"><tt><span style="color: rgb(0, 102, 255);">000900 </span></tt><strong><span style="font-family: &quot;Courier New&quot;; color: rgb(0, 102, 255);">PROGRAM-BEGIN.</span></strong></span><tt><span style="color: rgb(0, 102, 255);"> <o:p></o:p></span></tt></pre><pre style="border: medium none ; padding: 0in; background: honeydew none repeat scroll 0% 0%; text-align: justify; -moz-background-clip: -moz-initial; -moz-background-origin: -moz-initial; -moz-background-inline-policy: -moz-initial;"><strong><span style="font-family: &quot;Courier New&quot;; color: red;">----------| Vùng B</span></strong><tt><span style="color: rgb(0, 102, 255);"><span style="">&nbsp; </span><o:p></o:p></span></tt></pre><pre style="border: medium none ; padding: 0in; background: honeydew none repeat scroll 0% 0%; text-align: justify; -moz-background-clip: -moz-initial; -moz-background-origin: -moz-initial; -moz-background-inline-policy: -moz-initial;"><tt><span style="color: rgb(0, 102, 255);">003700</span></tt><tt><span style="font-size: 7.5pt; color: black;"><span style="">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; </span></span></tt><strong><span style="font-family: &quot;Courier New&quot;; color: darkblue;">DISPLAY "This program contains four DIVISIONS,<span class="GramE">".</span></span></strong><tt><span style="color: rgb(0, 102, 255);"><o:p></o:p></span></tt></pre><pre style="border: medium none ; padding: 0in; background: honeydew none repeat scroll 0% 0%; text-align: justify; -moz-background-clip: -moz-initial; -moz-background-origin: -moz-initial; -moz-background-inline-policy: -moz-initial;"><tt><span style="color: rgb(0, 102, 255);">003800</span></tt><tt><span style="font-size: 7.5pt; color: black;"><span style="">&nbsp;&nbsp;&nbsp;&nbsp; </span><span style="">&nbsp;</span></span></tt><strong><span style="font-family: &quot;Courier New&quot;; color: darkblue;">DISPLAY "three PARAGRAPHS".</span></strong><tt><span style="color: rgb(0, 102, 255);"><o:p></o:p></span></tt></pre><pre style="border: medium none ; padding: 0in; background: honeydew none repeat scroll 0% 0%; text-align: justify; -moz-background-clip: -moz-initial; -moz-background-origin: -moz-initial; -moz-background-inline-policy: -moz-initial;"><tt><span style="color: rgb(0, 102, 255);">001000</span></tt><tt><span style="font-size: 7.5pt; color: black;"><span style="">&nbsp;&nbsp;&nbsp;&nbsp; </span><span style="">&nbsp;</span></span></tt><strong><span style="font-family: &quot;Courier New&quot;; color: darkblue;">DISPLAY "and four SENTENCES".</span></strong><tt><span style="color: rgb(0, 102, 255);"><o:p></o:p></span></tt></pre><pre style="border: medium none ; padding: 0in; background: honeydew none repeat scroll 0% 0%; text-align: justify; -moz-background-clip: -moz-initial; -moz-background-origin: -moz-initial; -moz-background-inline-policy: -moz-initial;"><strong><span style="font-family: &quot;Courier New&quot;; color: red;">-------| Vùng A</span></strong><tt><span style="color: rgb(0, 102, 255);"><span style="">&nbsp; </span><o:p></o:p></span></tt></pre><pre style="border: medium none ; padding: 0in; background: honeydew none repeat scroll 0% 0%; text-align: justify; -moz-background-clip: -moz-initial; -moz-background-origin: -moz-initial; -moz-background-inline-policy: -moz-initial;"><tt><span style="color: rgb(0, 102, 255);">001100 </span></tt><span class="GramE"><strong><span style="font-family: &quot;Courier New&quot;; color: rgb(0, 102, 255);">PROGRAM-</span></strong></span><strong><span style="font-family: &quot;Courier New&quot;; color: rgb(0, 102, 255);">DONE.</span></strong><tt><span style="color: rgb(0, 102, 255);"> <o:p></o:p></span></tt></pre><pre style="border: medium none ; padding: 0in; background: honeydew none repeat scroll 0% 0%; text-align: justify; -moz-background-clip: -moz-initial; -moz-background-origin: -moz-initial; -moz-background-inline-policy: -moz-initial;"><strong><span style="font-family: &quot;Courier New&quot;; color: red;">----------| Vùng B<span style="">&nbsp; </span><o:p></o:p></span></strong></pre><pre style="border: medium none ; padding: 0in; background: honeydew none repeat scroll 0% 0%; text-align: justify; -moz-background-clip: -moz-initial; -moz-background-origin: -moz-initial; -moz-background-inline-policy: -moz-initial;"><tt><span style="color: rgb(0, 102, 255);">001200</span></tt><tt><span style="font-size: 7.5pt; color: black;"><span style="">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; </span></span><b><span style="color: rgb(0, 102, 255);">STOP RUN.</span></b></tt><strong><span style="font-family: &quot;Courier New&quot;; color: rgb(0, 102, 255); font-weight: normal;"><o:p></o:p></span></strong></pre></div> <p style="text-align: justify;">Các trình soạn thảo như Micro Focus Personal COBOL sẽ bỏ qua các vị trí từ ký tự thứ 1 đến ký tự thứ 7 và đặt con trỏ tại vị trí số 8. <span class="GramE">Hầu hết các hệ thống lớn sẽ sử dụng đến số dòng nhưng hầu hết đền bỏ qua và không yêu cầu phải có số dòng, như với trình biên dịch PC COBOL, Fujitsu COBOL.</span></p> <p class="MsoNormal" style="margin: 6pt 0in 0.0001pt; text-align: justify; text-indent: 0in;"><!--[if !supportLists]--><span class="Header0101"><span style=""><span style="">1.6.<span style="font-family: &quot;Times New Roman&quot;; font-style: normal; font-variant: normal; font-weight: normal; font-size: 7pt; line-height: normal; font-size-adjust: none; font-stretch: normal;">&nbsp;&nbsp; </span></span></span></span><!--[endif]--><span class="Header0101"><span style="">Chương trình<span style="">&nbsp; </span>"Hello World" <o:p></o:p></span></span></p> <p style="text-align: justify;"><span class="GramE">Chương trình "Hello world" đã trở thành một chương trình thông dụng đầu tiên đối với hầu hết các lập trình viên khi bắt đầu học một ngôn ngữ mới.</span> <span class="GramE">Chương trình này sẽ thực hiện in ra dòng chữ <tt><span style="font-size: 10pt;">"Hello world"</span></tt> trên màn hình.</span> Mã chương trình được thể hiện như sau:</p> <div style="border: 1pt solid windowtext; padding: 1pt 4pt; background: honeydew none repeat scroll 0% 0%; -moz-background-clip: -moz-initial; -moz-background-origin: -moz-initial; -moz-background-inline-policy: -moz-initial; margin-left: 0.25in; margin-right: 0.25in;"> <p class="COBOLExample" style="margin: 0px;"><span style="" lang="EN">000100 IDENTIFICATION <span class="GramE">DIVISION</span>.<o:p></o:p></span></p> <p class="COBOLExample" style="margin: 0px;"><span style="" lang="EN">000200 <span class="GramE">PROGRAM-ID.</span> HELLO.<o:p></o:p></span></p> <p class="COBOLExample" style="margin: 0px;"><span style="" lang="EN">000300 ENVIRONMENT <span class="GramE">DIVISION</span>.<o:p></o:p></span></p> <p class="COBOLExample" style="margin: 0px;"><span class="GramE"><span style="" lang="EN">000400 DATA DIVISION.</span></span><span style="" lang="EN"><o:p></o:p></span></p> <p class="COBOLExample" style="margin: 0px;"><span style="" lang="EN">000500 PROCEDURE <span class="GramE">DIVISION</span>.<o:p></o:p></span></p> <p class="COBOLExample" style="margin: 0px;"><span style="" lang="EN">000600<o:p></o:p></span></p> <p class="COBOLExample" style="margin: 0px;"><span class="GramE"><span style="" lang="EN">000700 PROGRAM-BEGIN.</span></span><span style="" lang="EN"><o:p></o:p></span></p> <p class="COBOLExample" style="margin: 0px;"><span style="" lang="EN">000800<span style="">&nbsp;&nbsp;&nbsp;&nbsp; </span>DISPLAY "Hello world".<o:p></o:p></span></p> <p class="COBOLExample" style="margin: 0px;"><span style="" lang="EN">000900<o:p></o:p></span></p> <p class="COBOLExample" style="margin: 0px;"><span style="" lang="EN">001000 <span class="GramE">PROGRAM-</span>DONE.<o:p></o:p></span></p> <p class="COBOLExample" style="margin: 0px;"><span style="" lang="EN">001100<span style="">&nbsp;&nbsp;&nbsp;&nbsp; </span>STOP RUN.<o:p></o:p></span></p> </div> <p style="text-align: justify;"><span class="GramE">Trong ví dụ này, dòng <tt><span style="font-size: 10pt;">000100</span></tt> và <tt><span style="font-size: 10pt;">000200</span></tt> là của phân vùng <tt><span style="font-size: 10pt;">IDENTIFICATION DIVISION</span></tt>.</span> <span class="GramE">Phần này dùng để nhận diện những thông tin cơ bản về chương trình, ở đây nó chỉ bao gồm <tt><span style="font-size: 10pt;">PROGRAM-ID</span></tt>, <tt><span style="font-size: 10pt;">HELLO</span></tt>.</span></p> <p style="text-align: justify;"><span class="GramE">Dòng <tt><span style="font-size: 10pt;">000300</span></tt> là vùng <tt><span style="font-size: 10pt;">ENVIRONMENT DIVISION</span></tt> được dụng để nhận diện môi trường khi chương trình được thực thi.</span> <span class="GramE">Lưu ý rằng COBOL có thể chạy được trên nhiều nền tảng, trên nhiều loại máy khác nhau, và vùng này thường dùng để điều khiển và kiểm soát sự khác nhau giữa những loại máy đó.</span> <span class="GramE">Trong trường hợp này, chương trình không chỉ ra yêu cầu của một loại máy cụ thể nào với trường hợp vùng <tt><span style="font-size: 10pt;">ENVIRONMENT DIVISION</span></tt> được bỏ trống.</span></p> <p style="text-align: justify;"><span class="GramE">Dòng <tt><span style="font-size: 10pt;">000400</span></tt> là vùng dữ liệu <tt><span style="font-size: 10pt;">DATA DIVISION</span></tt> bao gồm những dữ liệu của chương trình.</span> <span class="GramE">Chương trình này không có dữ liệu nêu vùng <tt><span style="font-size: 10pt;">DATA DIVISION</span></tt> được bỏ trống.</span></p> <p style="text-align: justify;"><span class="GramE">Dòng <tt><span style="font-size: 10pt;">000500</span></tt> đến dòng <tt><span style="font-size: 10pt;">001100</span></tt> là các dòng trong vùng <tt><span style="font-size: 10pt;">PROCEDURE DIVISION</span></tt>.</span> <span class="GramE">Vùng <tt><span style="font-size: 10pt;">PROCEDURE DIVISION</span></tt> bao gồm hai đoạn (<i>paragraph</i>) từ dòng <tt><span style="font-size: 10pt;">000700</span></tt> (<tt><span style="font-size: 10pt;">PROGRAM-BEGIN</span></tt>) và từ dòng <tt><span style="font-size: 10pt;">001000</span></tt> (<tt><span style="font-size: 10pt;">PROGRAM-DONE</span></tt>).</span> Thuật ngữ <i>paragraph</i> có một định nghĩa chỉ định trong COBOL, nó có ý nghĩa gần như là một hàm hay chương trình con trong một số ngôn ngữ lập trình khác. <span class="GramE">Tất các những công việc thực sự của chương trình là thực hiện câu lệnh ở dòng <tt><span style="font-size: 10pt;">000800</span></tt>.</span></p> <p style="text-align: justify;">Nếu bạn sử dụng Micro Focus Personal COBOL, hãy bắt đầu viết những dòng lệnh cho chương trình Hello World bằng câu lệnh:</p> <pre style="margin-left: 0.25in; text-align: justify;"><span class="GramE"><tt><span style="color: rgb(0, 102, 255);">pcobol</span></tt></span><tt><span style="color: rgb(0, 102, 255);"> hello.cbl</span></tt><span style="color: rgb(0, 102, 255);"><o:p></o:p></span></pre> <p style="text-align: justify;"><span class="GramE">Mở rộng <tt><span style="font-size: 10pt;">.cbl</span></tt> là mở rộng mặc định đối với một số trình biên dịch COBOL trên môi trùng MS-DOS.</span> <span class="GramE">Trên máy tính VAX, hay đối với trình biên dịch Fujitsu COBOL thì mặc định này là <tt><span style="font-size: 10pt;">.COB</span></tt>.</span></p> <p style="text-align: justify;">Trường hợp ví dụ đơn giản nhất của một chương trình COBOL: Khai báo đầy đủ 4 phân vùng nhưng không thực hiện bất cứ dòng lệnh nào cả ngoại trừ lệnh STOP RUN dùng để gọi kết thúc chương trình. Mã lệnh ví dụ như sau:</p> <div style="border: 1pt solid windowtext; padding: 1pt 4pt; background: honeydew none repeat scroll 0% 0%; -moz-background-clip: -moz-initial; -moz-background-origin: -moz-initial; -moz-background-inline-policy: -moz-initial; margin-left: 0.25in; margin-right: 0.25in;"><pre style="border: medium none ; padding: 0in; background: honeydew none repeat scroll 0% 0%; text-align: justify; -moz-background-clip: -moz-initial; -moz-background-origin: -moz-initial; -moz-background-inline-policy: -moz-initial;"><span style="color: blue;" lang="EN">000100 IDENTIFICATION <span class="GramE">DIVISION</span>.<o:p></o:p></span></pre> <p class="COBOLExample" style="margin: 0px;"><span style="" lang="EN">000200 <span class="GramE">PROGRAM-ID.</span> <span class="GramE">MINIMUM.</span><o:p></o:p></span></p> <pre style="border: medium none ; padding: 0in; background: honeydew none repeat scroll 0% 0%; text-align: justify; -moz-background-clip: -moz-initial; -moz-background-origin: -moz-initial; -moz-background-inline-policy: -moz-initial;"><span style="color: blue;" lang="EN">000300 ENVIRONMENT <span class="GramE">DIVISION</span>.<o:p></o:p></span></pre><pre style="border: medium none ; padding: 0in; background: honeydew none repeat scroll 0% 0%; text-align: justify; -moz-background-clip: -moz-initial; -moz-background-origin: -moz-initial; -moz-background-inline-policy: -moz-initial;"><span class="GramE"><span style="color: blue;" lang="EN">000400 DATA DIVISION.</span></span><span style="color: blue;" lang="EN"><o:p></o:p></span></pre><pre style="border: medium none ; padding: 0in; background: honeydew none repeat scroll 0% 0%; text-align: justify; -moz-background-clip: -moz-initial; -moz-background-origin: -moz-initial; -moz-background-inline-policy: -moz-initial;"><span style="color: blue;" lang="EN">000500 PROCEDURE <span class="GramE">DIVISION</span>.<o:p></o:p></span></pre> <p class="COBOLExample" style="margin: 0px;"><span style="" lang="EN">000600<o:p></o:p></span></p> <p class="COBOLExample" style="margin: 0px;"><span style="" lang="EN">000700 <span class="GramE">PROGRAM-</span>DONE.<o:p></o:p></span></p> <p class="COBOLExample" style="margin: 0px;"><span style="" lang="EN">000800<span style="">&nbsp;&nbsp;&nbsp;&nbsp; </span>STOP RUN.<o:p></o:p></span></p> </div> <p style="text-align: justify;"><b><span style="color: rgb(0, 0, 119);">Kết quả:</span></b></p> <p style="text-align: justify;"><i>Nothing!</i></p> <p class="MsoNormal" style="margin-left: 0in; text-align: justify; text-indent: 0in;"><!--[if !supportLists]--><span class="Header01"><span style="font-size: 14pt;"><span style="">2.<span style="font-family: &quot;Times New Roman&quot;; font-style: normal; font-variant: normal; font-weight: normal; font-size: 7pt; line-height: normal; font-size-adjust: none; font-stretch: normal;"> </span></span></span></span><!--[endif]--><span class="Header01"><span style="font-size: 14pt;">Khai báo dữ liệu <o:p></o:p></span></span></p> <p class="MsoNormal" style="margin-left: 0in; text-align: justify; text-indent: 0in;"><!--[if !supportLists]--><span class="Header0101"><span style=""><span style="">2.1.<span style="font-family: &quot;Times New Roman&quot;; font-style: normal; font-variant: normal; font-weight: normal; font-size: 7pt; line-height: normal; font-size-adjust: none; font-stretch: normal;">&nbsp;&nbsp; </span></span></span></span><!--[endif]--><span class="Header0101"><span style="">Các loại dữ liệu cơ bản<o:p></o:p></span></span></p> <p style="text-align: justify;">Có 3 loại thành phần chứa dữ liệu trong các chương trình COBOL: </p> <ul type="disc"><ul type="circle"><li class="MsoNormal" style="text-align: justify;">Biến.</li><li class="MsoNormal" style="text-align: justify;">Hằng.</li><li class="MsoNormal" style="text-align: justify;">Hằng tiền định. </li></ul></ul> <h4 style="text-align: justify;"><span style="font-family: Arial; color: maroon;">Biến</span></h4> <p class="MsoNormal" style="text-align: justify;"><span class="GramE">Các biến trong bộ nhớ dùng để lưu dữ liệu cho chương trình, các biến trong quá trình sử dụng cần phải được đặt tên.</span> <span class="GramE">Biến trong bộ nhớ có thể được nhập dữ liệu vào hoặc có thể được gán giá trị qua quá trình tính toán của chương trình.</span> </p> <p class="MsoNormal" style="text-align: justify;"><span class="GramE">Mọi biến sử dụng trong chương trình COBOL đều phải được khai báo trong phân vùng <span class="COBOLkeywords"><span style="font-size: 10pt;">DATA DIVISION</span></span>.</span> Tên biến được lập trình viên định nghĩa và phải thỏa mãn yêu cầu đặt tên của COBOL, đồng thời khi biến được khai báo thì cũng phải quy định kiểu dữ liệu mà nó có thể lưu trữ, đó gọi là kiểu dữ liệu biến.</p> <h4 style="text-align: justify;"><span style="font-family: Arial; color: maroon;">Kiểu dữ liệu biến</span></h4> <p class="MsoNormal" style="text-align: justify;"><span class="GramE">Một số ngôn ngữ như Pascal hoặc <st1:place w:st="on"><st1:city w:st="on">Ada</st1:city></st1:place> định nghĩa sẵn nhiều kiểu dữ liệu mạnh.</span> Trong những ngôn ngữ này có nhiều kiểu dữ liệu khác nhau với những ràng buộc biên dịch khác nhau. <span class="GramE">Chẵng hạn như, cùng có nhiều kiểu dữ liệu số khác nhau với các thao tác xử lý khác nhau.</span> </p> <p style="text-align: justify;">Trong COBOL, có 3 loại dữ liệu cơ bản, nhưng thực chất loại dữ liệu của biến được thể hiện dưới 2 dạng:</p> <p style="margin-left: 0.5in; text-align: justify; text-indent: -0.25in;"><!--[if !supportLists]--><tt><span style="font-size: 10pt; font-family: Symbol;"><span style="">·<span style="font-family: &quot;Times New Roman&quot;; font-style: normal; font-variant: normal; font-weight: normal; font-size: 7pt; line-height: normal; font-size-adjust: none; font-stretch: normal;">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; </span></span></span></tt><!--[endif]--><b style="">Giá trị số:</b> được thể hiện bằng các ký số 9. Ví dụ như <tt><span style="font-size: 10pt; color: rgb(0, 102, 255);">PIC 9999</span></tt> dùng để khai báo biến số có khả năng biểu diễn các số từ 0 đến 9,999. Trường hợp cần biểu diễn các số thập phân từ 000.00 đến 999.99 thì có thể sử dụng biểu diễn <tt><span style="font-size: 10pt; color: rgb(0, 102, 255);">PIC 999V99.</span></tt><tt><span style="font-size: 10pt;"><o:p></o:p></span></tt></p> <p style="margin-left: 0.5in; text-align: justify; text-indent: -0.25in;"><!--[if !supportLists]--><span style="font-family: Symbol;"><span style="">·<span style="font-family: &quot;Times New Roman&quot;; font-style: normal; font-variant: normal; font-weight: normal; font-size: 7pt; line-height: normal; font-size-adjust: none; font-stretch: normal;">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; </span></span></span><!--[endif]--><b style="">Chuỗi ký tự:</b> được thể hiện bằng các ký số X. Ví dụ như <tt><span style="font-size: 10pt; color: rgb(0, 102, 255);">PIC XXXX</span></tt> dùng để khai báo biến chuỗi có chiều dài là 4 ký tự.</p> <h4 style="text-align: justify;"><span style="font-family: Arial; color: maroon;">Hằng</span></h4> <p class="MsoNormal" style="text-align: justify;"><span class="GramE">Hằng là một dạng thành phần dữ liệu đã hàm chứa giá trị.</span> <span class="GramE">Nó không cần được định nghĩa thông qua tên.</span> Có 2 loại hành tiêu <span class="GramE">biểu :</span> </p> <ul type="disc"><li class="MsoNormal" style="text-align: justify;">Hằng chuỗi, là các hằng được đặt trong cặp dấu nháy kép. ví dụ như "Michael Ryan", "-123", "123.45"</li><li class="MsoNormal" style="text-align: justify;">Hằng số, ví dụ như 123, 123.45, -256, +2987</li></ul> <h4 style="text-align: justify;"><span style="font-family: Arial; color: maroon;">Hằng tiền định</span></h4> <p class="MsoNormal" style="text-align: justify;"><span class="GramE">Không giống như các ngôn ngữ khác, COBOL cung cấp một số hằng được định nghĩa trước.</span> <span class="GramE">Các hằng này không cần người dùng phải định nghĩa lại.</span> <span class="GramE">Hằng tiền định này có thể xuất hiện trong các mệnh đề nhằm thay thế giá trị hằng mà nó chứa.</span></p> <p style="text-align: justify;">Danh sách các hằng tiền định: </p> <div align="center"> <table class="MsoNormalTable" style="background: rgb(225, 255, 225) none repeat scroll 0% 0%; width: 357.15pt; margin-left: -33.35pt; -moz-background-clip: -moz-initial; -moz-background-origin: -moz-initial; -moz-background-inline-policy: -moz-initial;" width="476" border="1" cellpadding="0" cellspacing="0"> <tbody><tr style=""> <td style="padding: 3.75pt; width: 51.14%;" valign="top" width="51%"> <p class="MsoNormal" style="text-align: justify;"><b><span style="font-size: 10pt;">SPACE</span></b> hoặc <b><span style="font-size: 10pt;">SPACES</span></b></p> </td> <td style="padding: 3.75pt; width: 48.86%;" valign="top" width="48%"> <p class="MsoNormal" style="text-align: justify;">Khoảng trắng</p> </td> </tr> <tr style=""> <td style="padding: 3.75pt; width: 51.14%;" valign="top" width="51%"> <p class="MsoNormal" style="text-align: justify;"><b><span style="font-size: 10pt;">ZERO</span></b> hoặc<b><span style="font-size: 10pt;"> ZEROS</span></b> hoặc<b><span style="font-size: 10pt;"> ZEROES</span></b></p> </td> <td style="padding: 3.75pt; width: 48.86%;" valign="top" width="48%"> <p class="MsoNormal" style="text-align: justify;">Giá trị Zero / 0</p> </td> </tr> <tr style=""> <td style="padding: 3.75pt; width: 51.14%;" valign="top" width="51%"> <p class="MsoNormal" style="text-align: justify;"><b><span style="font-size: 10pt;">QUOTE</span></b> hoặc<b><span style="font-size: 10pt;"> QUOTES</span></b></p> </td> <td style="padding: 3.75pt; width: 48.86%;" valign="top" width="48%"> <p class="MsoNormal" style="text-align: justify;">Sử dụng dấu nháy kép</p> </td> </tr> <tr style=""> <td style="padding: 3.75pt; width: 51.14%;" valign="top" width="51%"> <p class="MsoNormal" style="text-align: justify;"><b><span style="font-size: 10pt;">HIGH-VALUE</span></b> hoặc<b><span style="font-size: 10pt;"> HIGH-VALUES</span></b></p> </td> <td style="padding: 3.75pt; width: 48.86%;" valign="top" width="48%"> <p class="MsoNormal" style="text-align: justify;">Sử dụng giá trị lớn nhất có thể</p> </td> </tr> <tr style=""> <td style="padding: 3.75pt; width: 51.14%;" valign="top" width="51%"> <p class="MsoNormal" style="text-align: justify;"><b><span style="font-size: 10pt;">LOW-VALUE</span></b> hoặc<b><span style="font-size: 10pt;"> LOW-VALUES</span></b></p> </td> <td style="padding: 3.75pt; width: 48.86%;" valign="top" width="48%"> <p class="MsoNormal" style="text-align: justify;">Sử dụng giá trị nhỏ nhất có thể</p> </td> </tr> </tbody></table> </div> <p class="MsoNormal" style="margin-left: 0in; text-align: justify; text-indent: 0in;"><!--[if !supportLists]--><span class="Header0101"><span style=""><span style="">2.2.<span style="font-family: &quot;Times New Roman&quot;; font-style: normal; font-variant: normal; font-weight: normal; font-size: 7pt; line-height: normal; font-size-adjust: none; font-stretch: normal;">&nbsp;&nbsp; </span></span></span></span><!--[endif]--><span class="Header0101"><span style="">Khai báo dữ liệu <o:p></o:p></span></span></p> <p class="MsoNormal" style="text-align: justify;"><span class="GramE">Ví dụ bên dưới là một định nghĩa biến số trong ngôn ngữ COBOL.</span> Tên biến sử dụng cững như tên sử dụng cho các vùng và đoạn: <tt><span style="font-size: 10pt;">A</span></tt> đến <tt><span style="font-size: 10pt;">Z</span></tt>, <tt><span style="font-size: 10pt;">0</span></tt> đến <tt><span style="font-size: 10pt;">9</span></tt>, và dấu trừ (<tt><span style="font-size: 10pt;">-</span></tt>).</p> <div style="border: 1pt solid windowtext; padding: 1pt 4pt; background: honeydew none repeat scroll 0% 0%; -moz-background-clip: -moz-initial; -moz-background-origin: -moz-initial; -moz-background-inline-policy: -moz-initial; margin-left: 0.25in; margin-right: 0.25in;"><pre style="border: medium none ; padding: 0in; background: honeydew none repeat scroll 0% 0%; margin-top: 6pt; text-align: justify; -moz-background-clip: -moz-initial; -moz-background-origin: -moz-initial; -moz-background-inline-policy: -moz-initial;"><span style="color: black;" lang="EN">001400 <span class="GramE">01<span style="">&nbsp; </span>THE</span>-NUMBER<span style="">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; </span>PIC IS 9999.<o:p></o:p></span></pre><pre style="border: medium none ; padding: 0in; background: honeydew none repeat scroll 0% 0%; text-align: justify; -moz-background-clip: -moz-initial; -moz-background-origin: -moz-initial; -moz-background-inline-policy: -moz-initial;"><span style="color: black;" lang="EN">000800 <span class="GramE">01<span style="">&nbsp; </span>THE</span>-MESSAGE-1<span style="">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; </span>PIC X(30).<o:p></o:p></span></pre><pre style="border: medium none ; padding: 0in; background: honeydew none repeat scroll 0% 0%; text-align: justify; -moz-background-clip: -moz-initial; -moz-background-origin: -moz-initial; -moz-background-inline-policy: -moz-initial;"><span style="color: black;" lang="EN">000800 <span class="GramE">01<span style="">&nbsp; </span>THE</span>-MESSAGE-2<span style="">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; </span>PIC XXXXXXXXXXXXXXXXXXXXXXXXXXXXXX.<o:p></o:p></span></pre></div> <p style="margin-bottom: 0.0001pt; text-align: justify;">Định nghĩa một biến COBOL bao gồm một dòng trong phân vùng <span style="font-size: 10pt;">DATA DIVISION</span> với ít nhất 3 phần: </p> <ul style="margin-top: 0in;" type="