TPT - Pert4. Procedure (123Kb)

  • Published on
    12-Jan-2017

  • View
    215

  • Download
    2

Embed Size (px)

Transcript

<p>Teknik Pemrograman Terstruktur 1 ( COBOL )</p> <p>Merupakan divisi ke 4 dan yang terakhir dari program COBOL. Semua instruksi-instruksi ditulis pada PROCEDURE DIVISION, sehingga divisi ini merupakan inti dari program COBOL.Statement yang ada di PROCEDURE DIVISION dibentuk dari verb (Kata kerja).</p> <p> MOVE verb</p> <p>Adalah perintah yang penting didalam program COBOL. Verb ini berguna untuk memindahkan data dari satu field ke lokasi field yang lain, sehingga input data dapat dimanipulasi untuk menghasilkan output.</p> <p>Bentuk dari statement MOVE :</p> <p>Contoh :</p> <p>01 KIRIM.</p> <p>02 UNIT PIC 9(3).</p> <p>02HARGA PIC 9(5).</p> <p>01 TERIMA.</p> <p>02 UNIT-OUT</p> <p>PIC 9(3).</p> <p>02HARGA-OUTPIC 9(7).</p> <p>Statement dalam PROCEDURE DIVISION sebagai berikut :</p> <p> MOVE UNIT TO UNIT-OUT.</p> <p> Akan memindahkan nilai data dari field UNIT ke field UNIT-OUT</p> <p> MOVE KIRIM TO TERIMA.</p> <p> Akan memindahkan 8 karakter dari field group item KIRIM ke 10 karakter secara bersamaan ke field group item TERIMA.Group item yang dipindahkan akan diperlakukan sebagai nilai alphanumerik,tidak memandang bentuk dari PICTURE masing-masing elemen data item.Sehingga bersifat Left-justified.</p> <p>Bentuk yang khusus dari MOVE verb adalah MOVE CORRSPONDING, dengan bentuk:</p> <p>MOVE CORRESPONDING digunakan untuk memindahkan data dari group data item ke group data item yang lain yang bernama sama.</p> <p>Contoh:</p> <p>Pada DATA DIVISION :</p> <p>01 RECORD-A.</p> <p>02APIC 9(3).</p> <p>02BPIC X(5).</p> <p>02CPIC A(9).</p> <p>02 DPIC 9(4).</p> <p>01 RECORD-B.</p> <p>02 A</p> <p>PIC 9(3).</p> <p>02FILLERPIC X(5).</p> <p>02 B</p> <p>PIC X(6).</p> <p>02D</p> <p>PIC 9(4).</p> <p>02E</p> <p>PIC $$$.99.</p> <p>02FILLERPIC X(5).</p> <p>Statement :</p> <p>MOVE CORRESPONDING RECORD-A TO RECORD-B.</p> <p> Artinya :</p> <p>Akan memindahkan group item RECORD-A ke group data item RECORD-B yang mempunyai nama data yang sama.</p> <p>Bentuk data yang dapat dipindahkan :</p> <p>Bentuk data pengirimBentuk data penerima</p> <p>AlphabetikAlphanumerikNumerik integer</p> <p>Numerik non integer</p> <p>Numerik yang di-edit</p> <p>AlphabetikBisaBisaTidak</p> <p>AlphanumerikBisaBisaBisa</p> <p>Numerik integerTidakBisaBisa</p> <p>Numerik non integerTidakTidakBisa</p> <p>Numerik yang di-editTidakBisaTidak</p> <p>Keterangan :</p> <p> Bila data mengandung tanda + atau - , maka tanda tersebut akan diabaikan.</p> <p> DISPLAY verb</p> <p>Dipergunakan untuk menampilkan hasil di layar ataupun di printer.</p> <p>Ada 3 bentuk statement DISPLAY :</p> <p>Bentuk Statement DISPLAY ke-1 :</p> <p>Bentuk Statement DISPLAY ke-2 :</p> <p> Nama data adalah nama dari data item yang telah disebutkan pada DATA DIVISION, yang panjang nilai datanya tidak boleh lebih dari 1920 karakter.</p> <p> Literal adalah bentuk yang akan ditampilkan, berupa bentuk yang sudah tetap, terletak diantara tanda petik dua ( ) atau terletak di antara tanda petik tunggal().</p> <p> UPON Clause dipergunakan bilamana hasil tidak ingin ditampilkan di layar, tetapi akan dicetak di printer.</p> <p> Nama-mnemonik adalah nama yang dibentuk oleh programmer sebagai penunjuk alat cetakan, yaitu printer.Nama-mnemonik ini harus sudah disebutkan pada CONFIGURATION SECTION dalam SPECIAL NAMES, PRINTER IS nama-mnemonik.</p> <p>Bentuk Statement DISPLAY ke-3 :</p> <p>-Posisi-tampilan merupakan posisi baris dan kolom tertentu dari hasil yang akan ditampilkan di layar di printer.</p> <p>Posisi tampilan ini mempunyai bentuk :</p> <p> LIN and COL adalah register khusus MS-COBOL, yang merupakan COBOL reserved words, jadi tidak disebutkan pada DATA DIVISION.</p> <p> Setelah koma , harus diikuti oleh 1 blank untuk memisahkan letak posisi baris dan posisi kolomnya.</p> <p> Contoh :</p> <p>DISPLAY (15, 5) HALLO SAYA KOMPUTER.</p> <p> ERASE adalah COBOL reserved word, yang kalau dipergunakan dalam DISPLAY dan posisi- tampilan ditentukan,maka mulai dari posisi tampilan tersebut untuk 1 baris akan dihapus dari tampilan sebelumnya.</p> <p>Contoh :</p> <p>DISPLAY (3, 10) ERASE.</p> <p> ACCEPT verb</p> <p>Digunakan untuk memasukkan data lewat layar sewaktu program tersebut dijalankan(pada waktu runtime).</p> <p>Ada 4 bentuk statement ACCEPT :</p> <p>Bentuk statement ACCEPT ke-1 :</p> <p>Data yang dimasukkan, akan ditempatkan pada nama-data setelah ACCEPT, yang bentuk, jenis dan panjangnya sudah ditentukan dalam DATA DIVISION.</p> <p>Bentuk Statement ACCEPT ke-2 :</p> <p>Apabila ON ESCAPE diikutsertakan, maka statement-imperative yang mengikutinya akan dikerjakan.</p> <p>Bentuk Statement ACCEPT yang ke-3 :</p> <p> Posisi-layar menunjukkan letak dari posisi data yang akan dimasukkan pada layar.</p> <p>Posisi-layar ini mempunyai bentuk :</p> <p> ZERO-FILL phrase</p> <p>Bila posisi-posisi field data-item penerima data tidak diisi dengan data (langsung di tekan tombol RETURN), maka akan terisi dengan nilai nol.</p> <p> SPACE FILL phrase</p> <p>Bila posisi-posisi field data-item di layar tidak diisi dengan data (langsung ditekan tombol RETURN), maka akan terisi dengan nilai nol.</p> <p> LEFT-JUSTIFY phrase</p> <p>Tidak berfungsi dalam MS-COBOL.</p> <p> RIGHT-JUSTIFY phrase</p> <p>Menyebabkan setelah data dimasukkan, hasil akhir yang tampak dilayar akan rata di sebelah kanan.</p> <p> TRAILING SIGN phrase</p> <p>Menyebabkan tanda operasi + atau tampak diposisi paling kanan dari field data input. Biasanya tanda tersebut akan menempati posisi paling kiri.</p> <p> PROMPT phrase</p> <p>Menyebabkan tampilan untuk field data-item penerima berbentuk nol untuk posisi digit,titik untuk decimal point dan spasi untuk tanda operasi + atau -.</p> <p> UPDATE phrase</p> <p>Menyebabkan tampilan untuk field data-item penerima berbentuk nilai awal dari field penerima tersebut.UPDATE phrase ini berfungsi sama dengan FORM dan TO atau USING clause pada SCREEN SECTION dalam DATA DIVISION.</p> <p> LENGTH-CHECK phrase</p> <p>Menyebabkan penekanan tombol carriage-return tidak berfungsi kalau semua posisi field penerima belum penuh semua.</p> <p>LENGTH-CHECK phrase berfungsi sama dengan FULL clause pada SCREEN SECTION dalam DATA DIVISION.</p> <p> EMPTY-CHECK phrase</p> <p>Menyebabkan penekanan tombol carriage-return tidak berfungsi kalau tidak paling sedikit sebuah karakter atau angka yang bukan sifatnya terminator sudah dimasukkan.</p> <p>EMPTY CHECK phrase berfungsi sama dengan REQUIRED clause pada SCREEN SECTION dalam DATA DIVISION.</p> <p> AUTO-SKIP phrase </p> <p>Menyebabkan proses pemasukkan data bergeser ke field penerima data lain berikutnya, bila posisi field penerima sudah penuh terisi tanpa harus ditekan tombol carriage-return atau tombol terminator yang lainnya.</p> <p>AUTO-SKIP berfungsi sama dengan AUTO clause pada SCREEN SECTION dalam DATA DIVISION.</p> <p> NO-ECHO phrase</p> <p>Menyebabkan data yang dimasukkan, tidak tampak di layar.</p> <p>NO-ECHO berfungsi sama dengan SECURE clause pada SCREEN SECTION dalam DATA DIVISION.</p> <p> BEEP phrase</p> <p>Menyebabkan bunyi bel sewaktu data dimasukkan.</p> <p>BEEP berfungsi sama dengan BELL clause pada SCREEN SECTION dalam DATA DIVISION.</p> <p>Bentuk Statement ACCEPT yang ke-4 :</p> <p> DATE, akan mendapatkan 6 digit nilai standard dengan bentuk TTBBHH ( 2 digit untuk tahun. 2 digit untuk bulan dan 2 digit untuk hari) dari system-date.</p> <p> DAY,akan mendapatkan 5 digit nilai Julian Date dengan bentuk TTJJJ ( 2 digit untuk tahun dan 3 Digit menunjukkan jumlah hari dalam setahun untuk tanggal tersebut) dari System-date.</p> <p> TIME, akan mendapatkan 8 digit nilai dengan bentuk JJMMDDSS.</p> <p>JJ menunjukkan 2 digit jam, berkisar dari nilai 00 sampai dengan bentuk 23.</p> <p>MM menunjukkan 2 digit menit, berkisar dari nilai 00 sampai dengan 59.</p> <p>DD menunjukkan 2 digit detik, berkisar dari nilai 00 sampai dengan 59.</p> <p>SS menunjukkan 2 digit seperseratus detik,berkisar dari 00 sampai dengan 99.</p> <p> ESCAPE KEY, akan mendapatkan 2 digit kode yang dihasilkan dari hasil penekanan tombol-tombol terminator.Terminator adalah tombol yang digunakan untuk mengakhiri pengerjaan statement ACCEPT.</p> <p>Contoh Program Bentuk statement ACCEPT :</p> <p>OUTPUT :</p> <p>TANGGAL ADALAH: 860807</p> <p>JULIAN ADALAH: 86219</p> <p>JAM ADALAH </p> <p>: 15305834</p> <p> STOP verb</p> <p>Digunakan untuk menghentikan program baik secara permanen maupun secara sementara saja, yang kemudian proses program dapat dianjurkan kembali.</p> <p>Bentuknya :</p> <p>STOP RUN akan menyebabkan proses program berhenti secara permanen, sedang bentuk STOP yang diikuti oleh literal proses akan berhenti secara permanen. Bila menekan sembarang tombol, maka proses dilanjutkan.</p> <p>Contoh :</p> <p>STOP TEKAN SEMBARANG TOMBOL.Pada Pokok Bahasan ini akan diterangkan tentang verb yang digunakan untuk membentuk suatu statement yang sifatnya loncatan, meloncat menuju ke suatu proses pada suatu paragraph tertentu, yaitu </p> <p>1. GO TO verb.</p> <p>2. GO TO.DEPENDING verb.</p> <p>3. ALTER verb.</p> <p>4. PERFORM verb .</p> <p>5. EXIT verb.</p> <p> GO TO verb</p> <p>GO TO membentuk loncatan tanpa syarat, yaitu program proses meloncat langsung tanpa syarat ke nama paragraph yang di tunjuk.</p> <p>Bentuk Umum nya :</p> <p>Statement GO TO harus selalu diikuti oleh nama-paragraph.</p> <p>Contoh :</p> <p>MOVE A TO B</p> <p>GO TO ALINEA-5.</p> <p>ALINEA-4.</p> <p>ADD X TO Y.</p> <p>ALINEA-5.</p> <p>MULTIPLY X BY Y.</p> <p> GO TO .. DEPENDING verb</p> <p>GO TO . DEPENDING verb akan membentuk statement yang akan membawa proses meloncat ( GO TO ) ke suatu nama-paragraph tergantung dari (DEPENDING) nilai nama-data yang ditunjukkan dalam statement ini.</p> <p>Bentuk Umumnya :</p> <p>Contoh :</p> <p>GO TO TEMPAT-1, TEMPAT-2, HABIS DEPENDING ON KODE.</p> <p>Sebenarnya statement ini menyederhanakan bentuk statement IF untuk suatu kondisi :</p> <p>IF KODE = 1 GO TO TEMPAT-1.</p> <p>IF KODE = 2 GO TO TEMPAT-2.</p> <p>IF KODE KODE = 3 GO TO HABIS.</p> <p> ALTER Verb</p> <p>Alter berguna untuk merubah arah tujuan proses dari statement GO TO yang telah ada didalam program.</p> <p>Bentuk Umumnya :</p> <p>Contoh :</p> <p>Outputnya :</p> <p>KOMPUTER</p> <p>KOMPUTER</p> <p> PERFORM Verb</p> <p> PERFORM verb adalah statement yang membawa proses dari suatu program meloncat ke suatu paragraph tertentu. Dan setelah mengerjakan seluruh isi paragraph tersebut dan setelah selesai kembali lagi ke statement setelah statement PERFORM ini.</p> <p> Perbedaan pokok dengan statement GO TO adalah dengan statement GO TO proses menuju ke suatu nama-paragraph tertentu, tidak kembali ke statemenet setelah GO TO tetapi proses dilanjutkan ke paragraph berikutnya dari paragraph yang dituju. </p> <p>Bentuk Umum ke-1 : PERFORM yang diikuti oleh THROUGH atau THRU option akan membawa proses menuju ke nama-paragraph-1 dan melanjutkan ke nama-pragraph-2, kemudian mengerjakan statement setelah statement PERFORM</p> <p>Bentuk Umum ke-2 :</p> <p>Statement bentuk ini akan membuat paragraph yang akan di proses sebanyak lebih dari sekali, yang jumlah diwakili oleh nama-data ( numerik integer).</p> <p>Contoh :</p> <p>MULAI.</p> <p>PERFORM MENCETAK 5 TIMES</p> <p>STOP RUN.</p> <p> MENCETAK.</p> <p> DISPLAY COBOL .</p> <p>OUTPUT :</p> <p>COBOL</p> <p>COBOL</p> <p>COBOL</p> <p>COBOL</p> <p>COBOL</p> <p>Bentuk Umum ke 3 :</p> <p>Perbedaan bentuk ke-3 dengan yang sebelumnya adalah terletak pada adanya kondisi sebagai akhir dari proses PERFORM atau suatu paragraph di proses berulang kali sampai suatu kondisi yang di isyaratkan di dalam statement PERFORM terpenuhi.</p> <p>Bentuk Umum ke-4 :</p> <p>Bentuk ke-4 ini agak rumit. Dengan bentuk ini memungkinkan untuk memproses suatu paragraph berulang-kali dan akan menyebabkan ( VARYING) nama-data-1 atau nama-index-1 yang bernilai mulai dari (FROM) nama-data-2 atau integer-9 atau nama-data-2 bertambah dengan (BY) nama-data-3 atau integer-2 sampai (UNTIL) suatu kondisi-1 terpenuhi.</p> <p> EXIT Verb</p> <p>Statement EXIT berfungsi untuk melakukan loncatan ke akhir paragraph yang di proses oleh PERFORM verb.</p> <p>Penyeleksian suatu kondisi dan pengambilan keputusan adalah bagian yang terpenting di dalam proses pengolahan data.</p> <p>Perbedaan antara conditional statement dengan imperative statement yang sudah sering dijumpai adalah : </p> <p> conditional statement adalah suatu statement yang dipergunakan untuk menyeleksi suatu kondisi/syarat dan akan mengerjakan suatu operasi tergantung dari nilai kondisinya.</p> <p> Imperative statement adalah statement yang langsung mengerjakan operasinya tanpa ada penyeleksian suatu kondisi.</p> <p>Semua statement kondisi didalam COBOL dimulai dan dibentuk dengan IF verb.</p> <p>Jenis-jenis dari statement kondisi yaitu :</p> <p>1. Kondisi yang sederhana (simple conditions)</p> <p>2. Kondisi tanda ( sign conditions)</p> <p>3. Kondisi kelas ( class conditions )</p> <p>4. Kondisi bercabang ( nested conditions )</p> <p>5. Kondisi dari nama-kondisi ( condition-name condition )</p> <p>6. Kondisi yang kompleks ( complex conditions ) atau Kondisi jamak ( compound conditions )</p> <p> Kondisi yang sederhana</p> <p>Dipergunakan untuk menyeleksi kondisi yang tunggal, yaitu membandingkan satu hubungan antara 2 item. Perbandingan ini ditunjukkan oleh tanda operasi hubungan ( relational operator )</p> <p>Bentuk umum :</p> <p>Contoh :</p> <p>IF A &lt; B MOVE 1 TO C</p> <p>ATAU</p> <p>IF A LESS B MOVE 1 TO C</p> <p> Kondisi Tanda</p> <p>Kondisi tanda adalah kondisi untuk menentukan apakah suatu data atau perumusan (ungkapan arithmatika ) mempunyai nilai sama dengan nol,positif ataukah negatif.</p> <p>Bentuk dari statement kondisi :</p> <p>Contoh :</p> <p>IF A<b>NOT GREATER THANLebih besar atau sama denganNOTnama-data POSITIVEIF ungkapan IS [NOT] NEGATIVE imperative statementArithmatika ZERO NUMERICIF nama-data IS [NOT] ALPHABETIC imperative statementIF kondisi statement-1 ELSE statement-2NEXT SENTENCE ELSE NEXT SENTENCEPAGE 20</b></p>