COBOL - Pengaturan Lingkungan

Cobalah Opsi Online

Kami telah menyiapkan lingkungan Pemrograman COBOL secara online, sehingga Anda dapat mengumpulkan dan menjalankan semua contoh yang tersedia secara online. Ini memberi Anda keyakinan pada apa yang Anda baca dan memungkinkan Anda untuk memverifikasi program dengan opsi yang berbeda. Jangan ragu untuk memodifikasi contoh apa pun dan menjalankannya secara online.

Coba contoh berikut menggunakan kompiler online kami yang tersedia di CodingGround
IDENTIFICATION DIVISION.
PROGRAM-ID. HELLO.

PROCEDURE DIVISION.
   DISPLAY 'Hello World'.
STOP RUN.
Untuk sebagian besar contoh yang diberikan dalam tutorial ini, Anda akan menemukan opsi Coba di bagian kode situs web kami di pojok kanan atas yang akan membawa Anda ke kompiler online. Jadi manfaatkan saja dan nikmati pembelajaran Anda.

Menginstal COBOL di Windows / Linux

Ada banyak Emulator Mainframe Gratis yang tersedia untuk Windows yang dapat digunakan untuk menulis dan mempelajari program COBOL sederhana.

Salah satu emulator tersebut adalah Hercules, yang dapat dengan mudah diinstal di Windows dengan mengikuti beberapa langkah sederhana seperti yang diberikan di bawah ini -

Unduh dan instal emulator Hercules, yang tersedia dari situs beranda Hercules: www.hercules-390.eu
Setelah Anda menginstal paket pada mesin Windows, itu akan membuat folder seperti C:/hercules/mvs/cobol.
Jalankan Command Prompt (CMD) dan buka direktori C: / hercules / mvs / cobol di CMD.
Panduan lengkap tentang berbagai perintah untuk menulis dan menjalankan program JCL dan COBOL dapat ditemukan di:

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

Hercules adalah implementasi perangkat lunak sumber terbuka dari arsitektur Sistem mainframe / 370 dan ESA / 390, selain dari 64-bit z / Arsitektur terbaru. Hercules berjalan di Linux, Windows, Solaris, FreeBSD, dan Mac OS X.

Seorang pengguna dapat terhubung ke server mainframe dengan beberapa cara seperti thin client, dummy terminal, Virtual Client System (VCS), atau Virtual Desktop System (VDS). Setiap pengguna yang valid diberikan ID login untuk masuk ke antarmuka Z / OS (TSO / E atau ISPF).

Mengompilasi Program COBOL

Untuk menjalankan program COBOL dalam mode batch menggunakan JCL, program perlu dikompilasi, dan modul beban dibuat dengan semua sub-program. JCL menggunakan modul beban dan bukan program sebenarnya pada saat eksekusi. Pustaka beban digabungkan dan diberikan ke JCL pada saat eksekusi menggunakanJCLLIB atau STEPLIB.

Ada banyak utilitas kompilator mainframe yang tersedia untuk mengkompilasi program COBOL. Beberapa perusahaan korporat menggunakan alat Manajemen Perubahan sepertiEndevor, yang mengumpulkan dan menyimpan setiap versi program. Ini berguna untuk melacak perubahan yang dibuat pada program.

//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 adalah utilitas kompiler COBOL IBM. Opsi kompilator diteruskan menggunakan parameter PARM. Dalam contoh di atas, RMODE menginstruksikan kompilator untuk menggunakan mode pengalamatan relatif dalam program. Program COBOL diteruskan menggunakan parameter SYSIN. Copybook adalah perpustakaan yang digunakan oleh program di SYSLIB.

Menjalankan Program COBOL

Diberikan di bawah ini adalah contoh JCL di mana program MYPROG dijalankan menggunakan file input MYDATA.URMI.INPUT dan menghasilkan dua file output yang ditulis ke spool.

//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
/*

Modul beban MYPROG terletak di MYDATA.URMI.LOADLIB. Ini penting untuk dicatat bahwa JCL di atas hanya dapat digunakan untuk modul COBOL non-DB2.

Menjalankan program COBOL-DB2

Untuk menjalankan program COBOL-DB2, utilitas IBM khusus digunakan dalam JCL dan program; Wilayah DB2 dan parameter yang diperlukan diteruskan sebagai masukan ke utilitas.

Langkah-langkah yang diikuti dalam menjalankan program COBOL-DB2 adalah sebagai berikut -

Ketika program COBOL-DB2 dikompilasi, DBRM (Database Request Module) dibuat bersama dengan modul beban. DBRM berisi pernyataan SQL dari program COBOL dengan sintaksnya diperiksa agar benar.
DBRM terikat ke wilayah DB2 (lingkungan) di mana COBOL akan berjalan. Ini dapat dilakukan dengan menggunakan utilitas IKJEFT01 di JCL.
Setelah langkah mengikat, program COBOL-DB2 dijalankan menggunakan IKJEFT01 (lagi) dengan pustaka beban dan pustaka DBRM sebagai input ke 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
/*

Pada contoh di atas, MYCOBB adalah program COBOL-DB2 yang dijalankan menggunakan IKJEFT01. Harap dicatat bahwa nama program, DB2 Sub-Sistem Id (SSID), dan nama Rencana DB2 diteruskan dalam pernyataan SYSTSIN DD. Perpustakaan DBRM ditentukan di STEPLIB.