Logika Pemograman
Identfication division merupakan divisi yang pertama dalam program COBOL yang paling sederhana.
PROGRAM-ID Sequential adalah merupakan divisi yang menjelaskan Program apa yang sedang dijalankan yaitu program file sequential
ENVIRONMENT DIVISION dalam program cobol peralatan dalam program yang mana. Berisi dokumen berbafai informasi peralatan yang dipakai
INPUT-OUTPUT SECTION.
Perintah untuk pengoperasian file.
FILE CONTROL.
Perintah untuk memodifikasi suatu file.
SELECT BARANG ASSIGN TO DISK
Untuk memilih file BARANG yang nantikan akan dibuat extention barang
ORGANIZATION IS LINE SEQUENTIAL
Yaitu baris pada datanya berbentuk sequential.
ACCESS MODE SEQUENTIAL.
Untuk mengubah menjadi mode sequential.
DATA DIVISION.
Untuk mendeskripsikan variabel-variabel serta tipe data yang digunakan.
FILE SECTION.
Perintah untuk mengakses suatu file.
FD BARANG.
Untuk memilih suatu file yaitu BARANG.
LABEL RECORD IS STANDARD
Mengubah tipe data dari record menjadi standard.
VALUE OF FILE-ID IS ‘BARANG.DAT’
Yaitu isi dari filenya tersebut terdapat database yang bernama BARANG.DAT
DATA RECORD IS RECBARANG.
Record dari database BARANG bernama RECBARANG
01 RECBARANG.
Yaitu keterangan pada level numer 01, yaitu RECBARANG.
02 NAMA-BARANG PIC A(25).
Yaitu keterangan dari sebuah level number 02, dengan variabel NAMA-BARANG yang bertipe data PIC A yaitu hanya menerima data berupa huruf dan angka dengan panjang karakter 25.
02 KODE-BARANG PIC 9(3).
Yaitu keterangan dari sebuah level number 02, dengan variabel KODE-BARANG yang bertipe data PIC 9 yaitu hanya menerima data berupa angka saja dengan panjang karakter 3.
02 ALAMAT-BARANG PIC X(25).
Yaitu keterangan dari sebuah level number 02, dengan variabel ALAMAT-BARANG yang bertipe data PIC A yaitu hanya menerima data berupa huruf saja dengan panjang karakter 25.
WORKING-STORAGE SECTION.
Sebagai pemesanan tempat untuk data proses & output.
01 TAMBAH-DATA PIC X.
Untuk mengawali suatu pendefinisian untuk menambahkan data dengan PIC X yaitu hanya menerima data dengan huruf saja.
02 YA VALUE ‘Y’, ‘y’.
Yaitu keterangan dari sebuah level number 02, apabila ingin TAMBAH-DATA masukkan huruf ‘Y’ atau ‘y’.
03 TIDAK VALUE ‘T’, ‘t’.
Yaitu keterangan dari sebuah level number 02, apabila tidak ingin TAMBAH-DATA masukkan huruf ‘T’, atau ‘t’.
SCREEN SECTION.
Untuk menunjukkan format dari layar, untuk menampilkan data.
01 HAPUS-LAYAR.
02 BLANK SCREEN.
Fungsi BLANK SCREEN digunakan untuk membersihkan layar, untuk memanggil fungsi BLANK SCREEN. Ketik perintah HAPUS-LAYAR terlebih dahulu.
INPUT-DATA.
Perintah untuk melakukan penginputan data.
Pada script yang berisi ‘NAMA BARANG : ‘.
Pada baris 2 kolom 8, akan menampilkan tulisan ‘NAMA BARANG :’.
Dan dalam script di TO NAMA-BARANG.
Yaitu pada kolom plus 2 berarti kolom 10, akan menginput pada variabel NAMA-BARANG dengan PIC A yaitu menerima data berupa huruf dan angka dengan panjang karakter 25
Selanjutnya kita liat dalam ss program yang line 7
Pada baris 7 kolom 8, akan menampilkan tulisan ‘KODE BARANG :’
Yaitu pada kolom plus 2 berarti kolom 10, akan menginput pada variabel KODE-BARANG dengan PIC X yaitu menerima data berupa angka saja dengan panjang karakter 3.
Sricpt pada ALAMAT TUJUAN : ‘.
di baris 9 kolom 8, akan menampilkan tulisan ‘ALAMAT TUJUAN :’.
Script pada TO ALAMAT-BARANG.
Yaitu pada kolom plus 2 berarti kolom 10, akan menginput pada variabel ALAMAT-BARANG dengan PIC X yaitu menerima data berupa huruf saja dengan panjang karakter 25.
PROCEDURE DIVISION.
Adalah divisi inti dari program COBOL, dimana pada divisi ini berisi semua statement instruksi program dibuat.
BUKA-FILE.
Untuk membuka file sequential yaitu BARANG.DAT
OPEN OUTPUT BARANG.
Untuk menampilkan output pada file barang.
Dalam script '===PENGIRIMAN BARANG==='.
Untuk menampilkan tulisan ===PENGIRIMAN BARANG=== pada baris 2 kolom 16.
DISPLAY INPUT-DATA.
Untuk menampilkan perintah pada INPUT-DATA.
ACCEPT INPUT-DATA.
Untuk menerima hasil dari perintah INPUT DATA.
WRITE RECBARANG.
Perintah untuk menambah record pada RECBARANG.
Script pada TAMBAH LAGI DATA [Y/T] ? ‘.
Untuk menampilkan tulisan sperti gambar diatas [Y/T] ?’ pada baris 14 kolom 8.
ACCEPT TAMBAH-DATA.
Menerima perintah untuk TAMBAH-DATA.
IF YA GO TO MULAI.
Jika iya, maka akan kembali ke perintah MULAI.
SELESAI.
Perintah untuk mengakhiri proses program.
CLOSE BARANG.
Perintah untuk menutup file data BARANG.
STOP RUN.
Perintah SELESAI untuk mengakhiri program,
STOP RUN untuk memanggil fungsi selesai
maka outputnya
0 komentar:
Posting Komentar