LA COBOL 2

                                                              LOGIKA

Ø Pada baris pertama kita menggunakan statment IDENTIFICATION DIVISION yang berfungsi :pada divisi ini digunakan untuk memberi nama program,mengetahui informasi tentang program tersebut,nama pembuat,instalasi,tanggal pembuatan,dll.

Ø Pada baris kedua kita menggunakan statment PROGRAM ID PRINTER1yaitu dimana programnya bertipe perkalian,penjumlahan dan perkalian yang terbentuk dalam fungsi operasi matematika.

Ø Pada baris ketiga kita menggunakan statment ENVIRONMENT DIVISION yang berfungsi |memberikan informasi peralatan yang digunakan dalam program dan salah satunya input dan output section

Ø Pada baris keempat kita menggunakan statment DATA DIVISION yang berfungsi untuk mendeskripsikan variabel-variabel dan jenis tipe data pada cobol,pada program ini kita menggunakan tipe data fungsi.

Ø Pada baris kelima kita menggunakan statment WORKING STORAGE SECTION yang berfungsi untuk mendeklarasikan variabel dan tipe data yang digunakan pada cobol.

Ø Pada baris keenam kita menggunakan statment 77 kode pic x(6) maksud programnya adalah kalimat pada kode tidak akan diproses dalam cobol karena kode terdapat di line 77 yang itemnya berdiri sendiri dan paragraf kode menyediakan data kode sebanyak 6 baris.

Ø Pada baris ketujuh kita menggunakan statment 77 I pic 9 maksud program di samping adalah variabel I yang itemnya berdiri sendiri dan memori hanya dapat mengandung nilai-nilai numerik.

Ø 01 ULANG PIC X .

     88 LAGI VALUE ‘Y’ , ‘y’

     88 TIDAK VALUE ‘T’ , ’t’.

Maksud program di atas adalah variabel x yang ada pada kode tadi masuk ke menu Ulang di mana apabila kita ingin mengulang maka kita mengunakan huruf Y,namun apabila kita tidak ingin mengulang kita menggunakan huruf T.

Ø  01 KETR

     02 KODE-PRIN OCCURS 3 TIMES PIC X(6)

     02 KET OCCURS 3 TIMES PIC X(35).

SCREEN SECTION.

Maksud program di atas adalah menu KETR memiliki perintah mengulang kode prin sampai 3 kali apabila kode prin yang kita masukan salah dan kode print terdapat enam baris yang menujukan kode yang kita gunakan,lalu apabila kode prin sudah benar maka KET akan menggulang sampai 3x dan memiliki 35 baris yang menunjukan KET.

Ø  SCREEN SECTION

01 HAPUS.

     BLANK SCREEN

01 LAYAR MASUK

     02 LINE 4 COLUMN 30 “<<  INPUT KODE >>”

     02 LINE 6 COLUMN 15  “KODE : “.

     02 COLUMN PLUS 1 PIC X(6) TO KODE.

Ø  maksud program di atas adalah kita menggunakan statment screen section untuk mengatur bentuk format dari layar input-maupun output,ketika kita masuk ke paragraf hapus perintah yang dilakukan adalah membersihkan layar dan menempatkan kursor pada posisi kiri atas.(baris1,kolom1),dan apabila ke menu layar masuk pada baris 4 dan kolom 30 pada layar output akan mencetak INPUT KODE,sedangkan pada baris 6 kolom 15 akan akan mencetak KODE ditambah spasi lalu memberikan 6 baris untuk menentukan kode yang sudah ada.

Ø  Lalu kita gunakan statment PROCEDURE DIVISION yang berfungsi sebagai semua instruksi-instruksi yang ditulis pada program cobol.

Ø  UTAMA.

   MOVE ‘LX800’ TO KODE-PRIN(1)

   MOVE ‘EPSON’ TO KET(1)         

   MOVE ‘HP1010’ TO KODE PRIN(2)

   MOVE ‘XP’ TO KET(2)

   MOVE ‘TIDAK TERSEDIA’ TO KET(3)

   DISPLAY HAPUS.

   DISPLAY MASUK.

   PERFORM CARI  VARYING I

   FROM 1 BY 1 UNTIL I > 3

   GO TO TANYA

    STOP RUN.

Maksud program di atas adalah pada menu utama apabila kita menggunakan kode LX800 MAKA TERCETAK pada layar output PRINTER YANG ANDA GUNAKAN ADALAH EPSON dan karna kode prin dan TO KET nya menggunakan angka numerik 1, menggunakan kode LX800 MAKA TERCETAK pada layar output PRINTER YANG ANDA GUNAKAN ADALAH EPSON dan karna kode prin dan TO KET nya menggunakan angka numerik 1,sedangkan apabila apabila kita menggunakan kode HP1010 MAKA TERCETAK pada layar output PRINTER YANG ANDA GUNAKAN ADALAH XP dan karna kode prin dan TO KET nya menggunakan angka numerik 2,sedangkan apabila tidak ada kode yang sama pada program cobol maka ada paragraf TIDAK TERSEDIA,dan akan mencetak TIDAK TERSEDIA pada layar output dan angka numeriknya 3,lalu apabila salah kode maka akan kembali mengulang karena menggunakan statment display hapus,namun jika benar maka akan mencentak kode sesuai data yang sudah ada,setelah itu kita melakukan proses menu cari dengan variabel I,lalu kita menuju proses ke menu TANYA karna menggunakan statment GO TO TANYA.

Ø  MASUK

     DISPLAY LAYAR MASUK

     ACCEPT LAYAR MASUK.

Maksud program di atas adalah ketika kita masuk ke menu 01 layar masuk dan setelah melakukan proses di menu 01 layar masuk lalu kita gunakan STATMENT ACCEPT yang berfungsi memasukan kode prin pada layar output.

Ø  CARI

      IF KODE PRIN(1)=KODE

      DISPLAY (8 , 15) ‘printer  yang anda gunakan adalah ‘, KET(I)

Maksud program di atas adalah jika kode prin sama artinya kode yang akan digunakan,lalu mencentak pada baris 8 dan kolom 15 yaitu printer yang anda gunakan adalah lalu tergantung proses KET(1) yaitu memilih kode print yang ada.

Ø  TANYA

   DISPLAY (10 , 15) ‘APAKAH ADA KODE LAINNYA’

   ACCEPT ULANG

   MOVE ‘EPSON’ TO KET(1)

   MOVE ‘HP1010’ TO KET(2)

   MOVE ‘TIDAK TERSEDIA’ TO KET(3)

   DISPLAY HAPUS.

   DISPLAY MASUK.

   PERFORM CARI  VARYING I

   FROM 1 BY 1 UNTIL I > 3

   GO TO TANYA

    STOP RUN.

Maksud program di atas adalah mencetak apakah ada kode lainnya apabila kita salah memasukan kode slain yang ada pada data cobol yang dicetak pada baris 10 dan kolom 15, utama apabila kita menggunakan kode LX800 MAKA TERCETAK pada layar output PRINTER YANG ANDA GUNAKAN ADALAH EPSON dan karna kode prin dan TO KET nya menggunakan angka numerik 1, menggunakan kode LX800 MAKA TERCETAK pada layar output PRINTER YANG ANDA GUNAKAN ADALAH EPSON dan karna kode prin dan TO KET nya menggunakan angka numerik 1,sedangkan apabila apabila kita menggunakan kode HP1010 MAKA TERCETAK pada layar output PRINTER YANG ANDA GUNAKAN ADALAH XP dan karna kode prin dan TO KET nya menggunakan angka numerik 2,sedangkan apabila tidak ada kode yang sama pada program cobol maka ada paragraf TIDAK TERSEDIA,dan akan mencetak TIDAK TERSEDIA pada layar output dan angka numeriknya 3,lalu apabila salah kode maka akan kembali mengulang karena menggunakan statment display hapus,namun jika benar maka akan mencentak kode sesuai data yang sudah ada,setelah itu kita melakukan proses menu cari dengan variabel I,lalu kita menuju proses ke menu TANYA karna menggunakan statment GO TO TANYA.

Ø  MASUK

     DISPLAY LAYAR MASUK

     ACCEPT LAYAR MASUK.

Maksud program di atas adalah ketika kita masuk ke menu 01 layar masuk dan setelah melakukan proses di menu 01 layar masuk lalu kita gunakan STATMENT ACCEPT yang berfungsi memasukan kode prin pada layar output.

Ø  CARI

      IF KODE PRIN(1)=KODE

      DISPLAY (8 , 15) ‘printer  yang anda gunakan adalah ‘, KET(I)

Maksud program di atas adalah jika kode prin sama artinya kode yang akan digunakan,lalu mencentak pada baris 8 dan kolom 15 yaitu printer yang anda gunakan adalah lalu tergantung proses KET(1) yaitu memilih kode print yang ada.

Ø  TANYA

   DISPLAY (10 , 15) ‘APAKAH ADA KODE LAINNYA’

   ACCEPT ULANG

   IF LAGI GO TO UTAMA

Maksud program di atas adalah mencetak apakah ada kode lainnya pada baris 10 dan kolom 15,jika kode yang di masukan salah maka ia akan mengulang,dan apabila salah lagi maka akan menuju menu utama.