COBOL - Thiết lập môi trường

Dùng thử Tùy chọn trực tuyến

Chúng tôi đã thiết lập môi trường Lập trình COBOL trực tuyến để bạn có thể biên dịch và thực thi tất cả các ví dụ có sẵn trực tuyến. Nó mang lại cho bạn niềm tin vào những gì bạn đang đọc và cho phép bạn xác minh các chương trình bằng các tùy chọn khác nhau. Hãy sửa đổi bất kỳ ví dụ nào và thực hiện trực tuyến.

Hãy thử ví dụ sau bằng trình biên dịch trực tuyến của chúng tôi có sẵn tại CodingGround

IDENTIFICATION DIVISION.
PROGRAM-ID. HELLO.

PROCEDURE DIVISION.
   DISPLAY 'Hello World'.
STOP RUN.

Đối với hầu hết các ví dụ được đưa ra trong hướng dẫn này, bạn sẽ tìm thấy tùy chọn Dùng thử trong phần mã trang web của chúng tôi ở góc trên cùng bên phải sẽ đưa bạn đến trình biên dịch trực tuyến. Vì vậy, chỉ cần tận dụng nó và tận hưởng việc học của bạn.

Cài đặt COBOL trên Windows / Linux

Có rất nhiều Trình mô phỏng máy tính lớn miễn phí có sẵn cho Windows có thể được sử dụng để viết và học các chương trình COBOL đơn giản.

Một trong những trình giả lập như vậy là Hercules, có thể dễ dàng cài đặt trên Windows bằng cách làm theo một số bước đơn giản như dưới đây:

  • Tải xuống và cài đặt trình giả lập Hercules, có sẵn từ trang chủ của Hercules: www.hercules-390.eu

  • Khi bạn đã cài đặt gói trên máy Windows, nó sẽ tạo một thư mục như C:/hercules/mvs/cobol.

  • Chạy Command Prompt (CMD) và truy cập thư mục C: / hercules / mvs / cobol trên CMD.

  • Bạn có thể tìm thấy hướng dẫn đầy đủ về các lệnh khác nhau để viết và thực thi chương trình JCL và COBOL tại:

    www.jaymoseley.com/hercules/installmvs/instmvs2.htm

Hercules là phần mềm mã nguồn mở triển khai các kiến ​​trúc Hệ thống / 370 và ESA / 390 của máy tính lớn, ngoài kiến ​​trúc z / Architecture 64-bit mới nhất. Hercules chạy trên Linux, Windows, Solaris, FreeBSD và Mac OS X.

Người dùng có thể kết nối với máy chủ mainframe theo một số cách như máy khách mỏng, thiết bị đầu cuối giả, Hệ thống máy khách ảo (VCS) hoặc Hệ thống máy tính để bàn ảo (VDS). Mỗi người dùng hợp lệ được cấp một id đăng nhập để truy cập vào giao diện Z / OS (TSO / E hoặc ISPF).

Biên soạn các chương trình COBOL

Để thực thi chương trình COBOL ở chế độ hàng loạt bằng JCL, chương trình cần được biên dịch và mô-đun tải được tạo với tất cả các chương trình con. JCL sử dụng mô-đun tải chứ không phải chương trình thực tại thời điểm thực thi. Các thư viện tải được nối và cấp cho JCL tại thời điểm thực thi bằng cách sử dụngJCLLIB hoặc là STEPLIB.

Có nhiều tiện ích trình biên dịch máy tính lớn có sẵn để biên dịch chương trình COBOL. Một số công ty doanh nghiệp sử dụng các công cụ Quản lý Thay đổi nhưEndevor, biên dịch và lưu trữ mọi phiên bản của chương trình. Điều này rất hữu ích trong việc theo dõi các thay đổi được thực hiện đối với chương trình.

//COMPILE   JOB ,CLASS=6,MSGCLASS=X,NOTIFY=&SYSUID             
//*            
//STEP1     EXEC IGYCRCTL,PARM=RMODE,DYNAM,SSRANGE
//SYSIN     DD DSN=MYDATA.URMI.SOURCES(MYCOBB),DISP=SHR
//SYSLIB    DD DSN=MYDATA.URMI.COPYBOOK(MYCOPY),DISP=SHR
//SYSLMOD   DD DSN=MYDATA.URMI.LOAD(MYCOBB),DISP=SHR
//SYSPRINT  DD SYSOUT=*
//*

IGYCRCTL là một tiện ích trình biên dịch COBOL của IBM. Các tùy chọn trình biên dịch được chuyển bằng cách sử dụng tham số PARM. Trong ví dụ trên, RMODE hướng dẫn trình biên dịch sử dụng chế độ định địa chỉ tương đối trong chương trình. Chương trình COBOL được truyền bằng cách sử dụng tham số SYSIN. Copybook là thư viện được chương trình sử dụng trong SYSLIB.

Thực thi các chương trình COBOL

Dưới đây là một ví dụ JCL trong đó chương trình MYPROG được thực thi bằng cách sử dụng tệp đầu vào MYDATA.URMI.INPUT và tạo ra hai tệp đầu ra được ghi vào ống đệm.

//COBBSTEP  JOB CLASS=6,NOTIFY=&SYSUID
//
//STEP10    EXEC PGM=MYPROG,PARM=ACCT5000
//STEPLIB   DD DSN=MYDATA.URMI.LOADLIB,DISP=SHR
//INPUT1    DD DSN=MYDATA.URMI.INPUT,DISP=SHR
//OUT1      DD SYSOUT=*
//OUT2      DD SYSOUT=*
//SYSIN     DD *
//CUST1     1000
//CUST2     1001
/*

Mô-đun tải của MYPROG nằm trong MYDATA.URMI.LOADLIB. Điều quan trọng cần lưu ý là JCL ở trên chỉ có thể được sử dụng cho một mô-đun COBOL không phải DB2.

Thực thi các chương trình COBOL-DB2

Để chạy chương trình COBOL-DB2, một tiện ích IBM chuyên biệt được sử dụng trong JCL và chương trình; Vùng DB2 và các tham số bắt buộc được chuyển làm đầu vào cho tiện ích.

Các bước tiếp theo khi chạy chương trình COBOL-DB2 như sau:

  • Khi chương trình COBOL-DB2 được biên dịch, một DBRM (Mô-đun yêu cầu cơ sở dữ liệu) được tạo cùng với mô-đun tải. DBRM chứa các câu lệnh SQL của chương trình COBOL với cú pháp của nó được kiểm tra là đúng.

  • DBRM được liên kết với vùng DB2 (môi trường) mà COBOL sẽ chạy. Điều này có thể được thực hiện bằng cách sử dụng tiện ích IKJEFT01 trong JCL.

  • Sau bước liên kết, chương trình COBOL-DB2 được chạy bằng IKJEFT01 (một lần nữa) với thư viện tải và thư viện DBRM làm đầu vào cho JCL.

//STEP001  EXEC PGM=IKJEFT01
//*
//STEPLIB  DD DSN=MYDATA.URMI.DBRMLIB,DISP=SHR
//*
//input files
//output files
//SYSPRINT DD SYSOUT=*
//SYSABOUT DD SYSOUT=*
//SYSDBOUT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//DISPLAY  DD SYSOUT=*
//SYSOUT   DD SYSOUT=*
//SYSTSPRT DD SYSOUT=*
//SYSTSIN  DD *
   DSN SYSTEM(SSID)
   RUN PROGRAM(MYCOBB) PLAN(PLANNAME) PARM(parameters to cobol program) -
   LIB('MYDATA.URMI.LOADLIB')
   END
/*

Trong ví dụ trên, MYCOBB là chương trình COBOL-DB2 chạy bằng IKJEFT01. Xin lưu ý rằng tên chương trình, Id hệ thống con DB2 (SSID) và tên gói DB2 được chuyển trong câu lệnh SYSTSIN DD. Thư viện DBRM được chỉ định trong STEPLIB.