Inovasi SI & New Technology # [PDF]

Citation preview

Mata Kuliah: Inovasi SI & New Technology # Dosen: Dina Agusten Topik Makalah: Membuat Contoh Pengiriman Barang dalam Pengerjaan COBOL & Sertifikat Seminar Teknologi Kelas: 2-KA25 Nama Penyusun: Yunus Panca Pamungkas (17116870)



Program Sarjana Sistem Informasi Universitas Gunadarma



IDENTIFICATION DIVISION. Mengawali dalam bentuk umum seperti nama program, nama progamer, nama instalasi, tanggal program dibuat, tanggal program decompile dan sifat program/security PROGRAM-ID. SQL-BARANG. Untuk mencantumkan nama program idnya dinamakan sql-barang ENVIRONMENT DIVISION. Adalah judul divisi dalam struktur program cobol INPUT-OUPUT SECTION. Orgasisasi file bersifat terurut. Data direkamkan direcord dalam file secara urut dan urutannya tidak akan berubah . organisasi file ini hanya pada disk dan printer. FILE-CONTROL. Untuk mengontrol dalam pemasukan nama file nya itu barang SELECT BARANG ASSIGN TO DISK untuk memasuki nama barang ke dalam disket DATA DIVISION adalah judul divisi dalam struktur program cobol FILE SECTION. Data yang disebutkan file section adalah data yang akan diambil dari disk-file, atau data yang akan direkamkan pada disk-file atau yang akan dicetak pada print-file. File section memiliki hubungan dengan input output dalam environment division FD BARANG untuk menandai bahwa barang tersebut ada dibagian fd barang LABEL RECORD IS STANDARD VALUE OF FILE-ID 'BARANG.DAT'. DATA RECORD IS RECBARANG. 01 RECBARANG. Untuk memanggil isi dari fd barang itu berisi label value dan data record



01 variabel untuk mengawali keterangan dari record yang dimaksud adalah variable.



02 digunakan untuk mengawali keterangan dari data item. Nilai x digunakan untuk menyimpan nilai data alphanumeric, dapat berupa gabungan angka, huruf ataupun karakter khusus. 02 NAMA-BARANG PIC X(25). Nama barang maksimal itu sebanyak 25 garis atau line 02 KODE-BARANG PIC 9(3). Kode barang maksimal itu sebanyak 3 garis atau line 02 ALAMAT-BARANG PIC X(30). Alamat barang maksimal itu sebanyak 30 garis atau line WORKING-STORAGE SECTION. Mempunyai maksud tempat di internal memori yang diperlukan oleh perkerjaan dalam proses program. Pemesanan ini biasanya digunakan dalam bentuk, nilai dan nama data yang diperlukan didalam proses yang terpisah dan belum disebutkan pada file section. TAMBAH-DATA PIC X. pic x untuk menyimpan data nilai alphanumeric yang dimaksud ialah tambah data 88 digunakan untuk mengawali suatu nama kondisi YA VALUE 'Y', 'y'. bahwa jika value ya maka akan menambahkan label pengiriman barang tersebut 88 digunakan untuk mengawali suatu nama kondisi TIDAK VALUE 'T', 't'. bahwa jika tidak value maka pengiriman barang tersebut hanya ada satu SCREEN SECTION. berguna untuk menunjukkan bentuk format dari layar terminal untuk menampilkan data 01 HAPUS-LAYAR. 02 BLANK SCREEN. Untuk mengkosongkan layar 01 INPUT-DATA. 02 LINE 5 COLUMN 8 'NAMA BARANG : '. nama barang tercetak di baris ke 5 dikolom 8 supaya tersusun rapih hasil pengeluaran outputannya 02 COLUMN PLUS 2 PIC X(25) TO NAMA-BARANG. Dalam column nama barang berisi titik titik sebanyak 25 untuk pemasukan nama barang 02 LINE 7 COLUMN 8 'KODE BARANG : '. kode barang tercetak dibaris ke 7 dikolom 8 supaya tersusun rapih hasil pengeluaran outputannya 02 COLUMN PLUS 2 PIC X(3) TO KODE-BARANG. Dalam column kode barang berisi titik titik sebanyak 3 untuk pemasukan kode



02 LINE 9 COLUMN 8 VALUE 'ALAMAT TUJUAN : '. alamat tujuan tercertak dibaris ke 9 dikolom 8 supaya tersusun rapih hasil pengeluaran outputannya 02 COLUMN PLUS 2 PIC X(25) TO ALAMAT-BARANG. Dalam column alamat barang berisi titik PROCEDURE DIVISION. Adalah judul divisi dalam struktur program cobol BUKA-FILE. Untuk mengawali penyimpanan dalam memasuki isi dari pengiriman barang ada nama barang kode barang dan alamat tujuan OPEN OUTPUT BARANG. Untuk membuka sekaligus mengeluarkan cetakan barang dalam file MULAI. DISPLAY HAPUS-LAYAR. Untuk membersihkan layar supaya muncul tampilan pengiriman barang, nama barang, kode barang, alamat tujuan DISPLAY (2, 20) '=====PENGIRIMAN BARANG====='. Untuk menampilkan cetakan pengiriman barang dalam baris 2 kolom 20 DISPLAY INPUT-DATA. Untuk masukin data pengiriman barang ACCEPT INPUT-DATA. WRITE RECBARANG. Membuat lagi rec barangnya bias lebih dari satu DISPLAY (14, 8) 'TAMBAH LAGI DATA [Y/T] ? '. jika ya maka nama barang bias kita masukan sebanyak 2 kali atau lebih ACCEPT TAMBAH-DATA. Untuk memasuki data (tambah-data) lewat layar sewaktu program tersebut dijalankan IF YA GO TO MULAI. Jika ya maka go to menujukkan suatu paragraph dalam procedure division SELESAI. STOP RUN. Untuk mengakhiri program



Sertifikat Seminar Teknologi sebagai Penggerak Perekonomiani: