Translate

Rabu, 09 Oktober 2013

Artikel Level Number Cobol Untuk Mata Kuliah Teori Organisasi Umum #

18.17  fachriarif  No comments


      Mungkin kalian ada yang belum tau apa itu level number, saya akan jelaskan sedikit apa itu level number. level number adalah suatu nomer yang menunjukkan jenjang dari data item dalam suatu record. Makin besar nomer levelnya, makin rendah jenjang tingkatannya. udaah ada bayangan belom kawan2 ??? . oke langsung saja kita ke koding program Level Number .



IDENTIFICATION DIVISION.
       PROGRAM-ID. GAJI.
       AUTHOR. SAYA.
       ENVIRONMENT DIVISION.
       DATA DIVISION.
       WORKING-STORAGE SECTION.
       01 DATA-MASUK.
           02 NAMA PIC A(10).
                     02 GP PIC 9(7) VALUE 0.
                     02 TUNJANGAN PIC 9(6) VALUE 0.
           02 TG PIC 9(7) VALUE 0.
       SCREEN SECTION.
       01 HAPUS-LAYAR.
           02 BLANK SCREEN.
       01 LAYAR-MASUK.
           02 LINE 5 COLUMN 3 VALUE 'NAMA ANDA :'.
           02 COLUMN PLUS 1 PIC A(10) TO NAMA.
           02 LINE 7 COLUMN 3 VALUE 'GAJI POKOK : '.
           02 COLUMN PLUS 1 PIC 9(7) TO GP.
           02 LINE 9 COLUMN 3 VALUE 'GAJI TUNJANGAN :'.
           02 COLUMN PLUS 1 PIC 9(6) TO TUNJANGAN. 01 LAYAR-TAMPIL.
           02 LINE 3 COLUMN 3 VALUE '______________________________'.
           02 LINE 5 COLUMN 3 VALUE '|   GAJI ANDA BULAN INI      |'.
           02 LINE 7 COLUMN 3 VALUE '______________________________'.
           02 LINE 9 COLUMN 3 VALUE 'NAMA ANDA       :'.
           02 COLUMN PLUS 1 PIC A(10) FROM NAMA.
           02 LINE 11 COLUMN 3 VALUE 'GAJI POKOK ANDA :Rp. '.
           02 COLUMN PLUS 1 PIC 9(7) FROM GP.
           02 LINE 13 COLUMN 3 VALUE 'TUNJANGAN ANDA  :Rp.  '.
           02 COLUMN PLUS 1 PIC 9(6) FROM TUNJANGAN.
           02 LINE 15 COLUMN 3 VALUE 'TOTAL GAJI ANDA :Rp. '.
           02 COLUMN PLUS 1 PIC 9(7) FROM TG.
           02 LINE 17 COLUMN 3 VALUE '______________________________'.
       PROCEDURE DIVISION.
       MULAI.
           DISPLAY HAPUS-LAYAR.
           DISPLAY LAYAR-MASUK.
           ACCEPT LAYAR-MASUK.
           DISPLAY HAPUS-LAYAR.
           COMPUTE TG = GP + TUNJANGAN.
           DISPLAY LAYAR-TAMPIL.
       SELESAI.
           STOP RUN.
 Peraturan Kolom-kolom untuk penulisan coding di COBOL :
  1. Level Number 01 untuk mengawali keterangan dari record.
  2. Level number 02 – 49 à digunakan untuk mengawali keterangan dari data item.  
  3. Level number 66 untuk RENAMES
  4. Level number 77 untuk mengawali data item yang berdiri sendiri
  5. L evel number 88 untuk mengawali suatu nama kondisi 
Peraturan untuk penulisan itu harus sesuai , karena COBOL sangat jeli terhadap penulisan coding.
koding di atas adalah tugas pertama saya di mata kuliah Teknik Pemograman Tersetruktur.

semoga bermanfaat:) .

Sumber materi :
http://rani_push.staff.gunadarma.ac.id/Downloads/folder/0.1

Read More

Jumat, 04 Oktober 2013

Artikel Fungsi Laptop yang Sesungguhnya Untuk Mata Kuliah Teori Organisasi Umum #

08.46  fachriarif  No comments

      Laptop ??? ya laptop merupakan salah satu alat elektronik yang mungkin semua orang punya dan dapat menggunakannya. Disini saya ingin berbagai informasi Fungsi dari Laptop yang sesungguhnya.


      Laptop bisa membantu kita untuk mempermudah pekerjaan. itu adalah salah satu fungsi dari laptop. Namun sekarang banyak menggunakan laptop tidak sesuai dari "Fungsi Sebenarnya". Dahulu niat orang membeli laptop ialah untuk mempermudah perkerjaan dikantor namun sekarang banyak kalangan muda yang membeli laptop hanya untuk bermain game. kenapa harus laptop ?? Kenapa tidak beli Playstation saja ?? sekarang pun banyak model dan spesification laptop yang banyak ditawarkan oleh pasar sehingga konsumen dapat memilih laptop yang ekonomis dengan spesifikasi yang lumayan bagus.

       Pengguna laptop pada awal-awal nya adalah pekerja/karyawan yang bekerja diperusahaan/instansi tapi sekarang laptop banyak digunakan oleh kalangan mudah bahkan anak berumur 5 tahun sudah dapat meng-operasikan lapto. Pertanyaan yang muncul adalah apa yang dilakukan anak seumur itu menggunakan laptop ?? pasti hanya untuk bermain Game House :D. Mungkin pada sekarang sekarang ini lagi booming-booming nya game PES pada kalangan mahasiswa sehingga niat mahasiswa membawa laptop bukan untuk mempermudah tugas atau materi mereka tapi hanya untuk bermain game PES bareng dikampus. Hal itu banyak terjadi pada saat sekarang-sekarang in.

      Saran saya gunakanlah Laptop kita sebagaimana fungsi yang sesungguhnya.Jika hanya ingin bermain game janganlah diLaptop banyak alat elektronik yang menyediakan game-game yang tidak kalah dengan game pc. mungkin itu salah satu solusi agar kita dapat menggunakan laptop sebagaimana mestinya.

Read More