Identification
divison digunakan sebagai indetifikasi program yang kita buat. Program-id.
Tugas6. Digunakan untuk memberi nama program yang kita buat. Author. Anggi.
Nama pembuat program adalah anggi. . Environment division digunakan untuk
memberikan informasi peralatan yang digunakan di dalam program tersebut.
Input-output section digunakan untuk operasi file. File-control adalah sebuah
variabel. Select coba to disk, Organization is sequential, Accsess mode is
sequential digunakan untuk memasukkan coba ke dalam disk dan mendeklarasikan
file tersebut berupa file sequential. Data division digunakan untuk
menggambarkan jenis dari data input dan output. File section digunakan untuk
operasi file. Fd coba, label record is standard, value of file-id is
“gila.dat”, data record is pegawai. Digunakan untuk mendeklarasikan variabel
coba dengan memasukkan hasil nya ke folder gila yang berisi record pegawai. 01
pegawai merupakan variabel. 02 nama pic x(10). Untuk mendeklarasikan variabel
nama dengan tipe data carakter dan numerik dengan maksimal 10 karakter. 02 npm
pic(8). Digunakan untuk mendeklarasikan variabel npm dengan tipe data karaktr
dan numeric dengan maksimal 8 karakter. 02 sta pic x(10) digunakan untuk
mendeklarasikan variabel sta dengan tipe data karakter dan numerik dengan batas
maksimal 10 karakter. Gol pic x digunakan untuk mendeklarasikan variabel gol
dengan tipe data karakter dan numerik dengan maksimal satu karakter. 02 gj pic
x(10) digunakan untuk mendeklarasikan variabel gj dengan tipe data numerik dan
karakter dengan maksimal 10 karakter. Working-storage section digunakan
untuk pemesanan program di internal
memory yang diperlukan oleh pekerjaan proses program. 01 ulang untuk
mendeklarisikan variabel ulang. 02 data 1 occurs 99 times untuk mendeklarasikan
bahwa datanya dapat diulang sebanyak 99 kali. 03 napeg pic x(10) digunakan
untuk mendeklariskan variabel napeg yang bertipe data karakter dan numerik dengan maksimal 10 karakter. 03 nip pic x(8)
digunakan untuk mendek larasikan variabel nip dengan tipe data karakter dan
numerik dengan maksimal 8 karakter. 03 st pic x(10) digunakan untuk
mendeklarasikan variabel st dengan tipe data karakter dan numerik dengan
maksimal 10 karakter. 03 gol pic x untuk mendeklarasikan variabel go; dengan tipe
data karakter dan numerik. 03 gp pic z(10) digunakan untuk mendeklarasikan
variabel gp dengan tipe data numerik dengan maksimal 10 karakter. 01 seleksi
pic x digunakan untuk mendeklarasikan variabel seleksi dengan tipe data
karakter dan numerik. 88 YA value “Y”,”y” digunakan untuk memberi tahu bahwa
hasil dari YA adalah Y atau y. 88 tidak value “T”,”t”. Digunakan untuk memberi tahu bahwa
hasil dari tidak adalah T atau t. 77 pil
pic x untuk mendeklarasikan variabel pil bertipe data karakter dan numerik. 77
n pic 99 digunakan untuk mendeklarasikan variabel n bertipe data numerik dengan
maksimal 2 karakter. 77 i pic 99 digunakan untuk mendeklarasikan variabel i
dengan tipe data numerik dengan maksimal 2 karakter. 77 i1 pic zz digunakan
untuk mendekalrasikan variabel i1 bertipe data numerik. 01 judul adalah variabel. 02 filler pic x(20)
value space untuk memberikan sapsi atau jarak sebanyak x yaitu 20. 02 jdl pic
x(15) value “data pegawai” digunakan untuk mendeklarasikan variabel jdl bertipe
data karakter dan numerik yang maksimal 15 karakter yang hasilnya adalah data
pegawai. 01 garis pic x(21) value
“-------------“ digunakan untuk mendeklarasikan variabel garis dengan tipe data
karakter dan numerik yang maksimalnya 21 karakter yang akan menghasilkan --------------.
nm-kolom
digunakan sebagai variabel. 02 nmr pic x(30) value “no” digunakan untuk
mendeklarasikan variabel nmr yang bertipe data karakter dan numeric dengan
maksimal 30 karakter dan akan menghasilkan tulisan yang ada dalam tanda kutip.
02 filler pic x value spaces untuk memberikan jarak. 02 nma pic x(15) value
“nama” digunakan untuk mendeklarasikan variabel nma dengan tipe data karakter
dan numerik dengan maksimal 15 karakter yang akan menghasilkan nama. 02 filler
pic x value spaces digunakan untuk memberikan jarak. Np pic x(8) value “N.I.P”
digunakan untuk mendeklarasikan variabel np bertipe data karakter dan numerik
dengan maksimal 8 karakter dan akan menghasilkan tulisan yang ada dalma tanda
kutip. 02 Filler pic x value spaces digunakan untuk memberikan jarak. 02 stat
pic x(7) value “status” digunakan untuk mendeklarasikan variabel stat dengan
tipe data karakter dan numerik dengan maksimal 7 karakter yang akan
menghasilkan status. 02 filler pic x value spaces digunakan untuk memberi
jarak. 02 Gln pic x(10) value “golongan” digunakan untuk mendeklarasikan
variabel gln dengan tipe data karakter dan numerik dengan maksimal 10 karakter
yang akan menghasilkan tulisan yang didalam tanda kutip. 02 filler pic x value
spaces digunakan untuk memberikan jarak. 02 gpk pic x(10) value “gaji pokok”
digunakan untuk mendeklarasikan variabel gpk dengan tipe data karakter dan
numerik yang akan menghasilkan gaji pokok. 02 filler pic x value spaces
digunakan untuk memberi jarak. Screen section
digunakan untuk mengatur format layar pada saat input dan output. 01 Cls adalah perintah untuk membersihkan
layar. 02 Blank screen digunakan untuk
membersihkan layar dengan posisi kursor di kiri atas. 01 menu itu adalah
variabel. 02 line 1 column 8 value “menu pegawai :”. Digunakan untuk menampilkan tulisan yang
ada dalam tanda kutip di garis baris 1 dan kolom vertikal 8. 02 line 2 column 7
value “-------------“ digunakan untuk mencetak tulisan yang ada di dalam tanda kutip di garis baris
2 dan garis kolom 7. 02 line 3 column 7 value “1.input data “ digunakan untuk
menampilkan tulisan yang ada didalam tanda kutip di baris 3 dan kolom 7. 02
line 4 column 7 value “2.tampil” untuk menampilkan tulisan yang ada di dalam
tanda kutip di baris 4 dan kolom 7. 02 Line 5 column 7 value “3.keluar “ digunakan
untuk menampilkan tulisan yang ada di dalam tanda kutip di baris 5 dan kolom 7.
02 line 6 column 7 value “---------“ digunakan untuk menampilkan tulisan yang
ada didalam tanda kutip di baris 6 dan kolom 7. 02 line 7 column 7 value “
pilihan anda : “ digunakan untuk menampilkan tulisan yang ada didalam tanda
kutip di baris 7 dan kolom 7. 02 column plus 2 pic x using pil. Digunakan untuk
menambahkan kolom. Procedure division di digunakan untuk menggambarkan prosedur yang digunakan dalam menyelesaikan
masalah. Mulai adalah sebuag variabel. Display cls digunakan untuk membersihkan
layar output. Display menu digunakan untuk menampilkan variabel menu.accept
menu digunakan untuk menyimpan variabel menu. Display cls digunakan untuk
membersih kan layar output. If pil = 1 go to tentukan jadi juka kita memilih
pilihan satu maka program akan memproses ke variabel tentukan. If pil =2,
compute i=1 go to laporan jadi jika kita memilih 2 akan menghitung bahwa i =1
lalu akan memproses ke variabel laporan. Stop run digunakan untuk mengakhiri
program. Tentukan adalah sebuah variabel. Display cls digunakan untuk
membersihkan layar display (1, 1) “jumlah data : “ digunakan untuk mencetak
tulisan yang ada di dalam tanda petik di garis horizontal 1 dan garis vertikal
1. Accept n untuk menyimpannya pada variabel n.
compute i =1 digunakan untuk
mendeklarasikan bahwa i bernilai 1. Open output coba digunakan untuk membuka
variabel coba perform isi n times digunakan untuk perulangan variabel isi
sebanyak n. Close coba menutup variabel coba. Go to mulai perintah untuk pergi
ke variabel mulai. Isi ada lah sebuag variabel. Display cls digunakan untuk
membersihkan layar output. Display (1,1) “data ke : “, i. Digunakan untuk
mencetak tulisan yan ada didalam tanda kutip dan mencetak variabel i. Display
(3,1) ‘nama pegawai :’. Digunakan untuk
mencetak tulisan yang ada didalam tanda kutip di garis horizontan 3 dan garis
vertikal 1. Accept napeg(i) digunakan untuk menyimpan inputan diatas kedalam variabel
napeg(i). Display (4,1) “nip : “
digunakan untuk mencetak tulisan yang ada di dalam tanda kutip. Accept nip(i)
untuk menyimpan inputan diatas ke dalam variabel nip(i). Display (5,1) “status
:” digunakan untuk mencetak tulisan didalam tanda kutip. Acccept st(i)
digunakan untuk menyimpan inputan ke dalam variabel st(i). Display (6,1)
“golongan :” digunakan untuk mencetak tulisan yang ada di dalam tanda kutip.
Accept gol(i) untuk menyimpan inputan ke dalam variabel gol(i). If gol(i) = “a”
move “100000000” to gp(i) untuk merubah a menjadi 100000000 dan memasukkannya
ke dalam variabel gp(i). Else, if gol(i) = “b” move “80000 to gp(i) jika
variabel gol(i) adalah b maka b akan diganti menjadi 80000 dan dimasukkan ke
dalam variabel gp(i). Else, move “50000” to gp(i) selain golongan a dan b maka akan
di ganti dengan 500000 dan menyimpannya di variabel gp(i). write pegawai untuk
menulis variabel pegawai. Compute i = i +1 digunakan untuk menghitung variabel
i yaitu i +1. Laporan adalah sebuah variabel. Display cls untuk membersihkan
layar output. Display judul untuk menampilkan variabel judul. Display garis
,garis,garis untuk mencetak variabel garis. Display nm-kolom untuk menampilkan
variabel nm-kolom. Display garis, garis, garis untuk mencetak variabel
garis.perform hasil n times merupakan perulangan jadi dapat mengulang variabel
hasil sebanyak n. Display garis,garis,garis figunakan untuk menampilkan
variabel garis. Display ( , ) “kembali ke menu <y/t) : “ digunakan untuk
menampilkan tulisan yang ada di tanda kutip. Accept seleksi untuk menyimpan inputan
diatas kedalam variabel seleksi. If ya go to mulai jadi jika jawabanya ya kita
akan pergi ke variabel mulai. Stop run di gunakan untuk mengakhiri program.
Hasil merupakan variabel move i to i1 untuk mengganti variabel i menjadi i1.display
i1, “ “, napeg(i), “ “, nip(i), “ “, st(i), “ “, gol(i), “ “, gp(i) digunakan
untuk mencetak variabel i1, napeg(i), nip(i), st(i), gol(i) dan gp(i) tanda “ “
digunakan untuk memberi jarak. Compute i = i + 1 digunakan untuk menghitung i
yaitu i +1.
Output
Tidak ada komentar:
Posting Komentar