Procedure Division III COBOL
1
TPT1 by dna
STATEMENT LONCATAN Statement yang digunakan untuk membentuk suatu
statement yang sifatnya loncatan, meloncat menuju ke suatu proses pada suatu paragraph tertentu, yaitu GO TO verb. GO TO….DEPENDING verb. ALTER verb. PERFORM verb . EXIT verb.
2
TPT1 by dna
GO TO verb GO TO membentuk loncatan tanpa syarat, yaitu program proses
meloncat langsung tanpa syarat ke nama paragrap yang ditunjuk. GO TO nama-paragraph
Statement GO TO harus selalu diikuti oleh nama-paragraph. Contoh :
MOVE A TO 5 GO TO ALINEA-2. ALINEA-2. ADD A TO Y.
3
TPT1 by dna
GO TO …. DEPENDING verb GO TO …. DEPENDING verb akan membentuk statement
yang akan membawa proses meloncat ( GO TO ) ke suatu nama-paragraph tergantung dari (DEPENDING) nilai namadata yang ditunjukkan dalam statement ini. GO TO nama-paragraph-1, nama-paragraph-2,… nama-
paragraph-n DEPENDING ON nama-data. Contoh
GO TO TEMPAT-1, TEMPAT-2, HABIS DEPENDING ON KODE. 4
TPT1 by dna
ALTER verb Alter berguna untuk merubah arah tujuan proses dari
statement GO TO yang telah ada didalam program. Bentuk Umumnya : ALTER nama-paragraph-1 TO [ PROCEED TO] nama-paragraph-2
Contoh
5
TPT1 by dna
ALTER contoh program IDENTIFICATION DIVISION. PROGRAM-ID. CTHALTER. AUTHOR. SHAHNAZ. ENVIRONMENT DIVISION. KABINET KERJA DATA DIVISION. KABINET KERJA PROCEDURE DIVISION. TAMPILKAN. DISPLAY ‘ KABINET KERJA ‘. PARA-1. GO TO PARA-2. PARA-2. ALTER PARA-1 TO PROCEED TO SELESAI. GO TO TAMPILKAN. SELESAI. STOP RUN. 6
TPT1 by dna
PERFORM Verb PERFORM verb adalah statement yang membawa proses dari
suatu program meloncat ke suatu paragraph tertentu. Dan setelah mengerjakan seluruh isi paragraph tersebut , maka akan kembali lagi ke statement setelah statement PERFORM “ 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. “ 7
TPT1 by dna
PERFORM[1] Bentuk Umum ke-1 : THROUGH PERFORM nama-paragraph-1
nama-paragraph-2 THRU
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.
8
TPT1 by dna
PERFORM[2] Bentuk Umum ke-2 Nama-data
THROUGH nama-para-2
PERFORM nama-para-1 THRU
TIMES Numerik-integer
Statement bentuk ini akan membuat paragraph yang akan di proses
sebanyak lebih dari sekali, yang jumlah diwakili oleh nama-data ( numerik – integer). Contoh MULAI. PERFORM MENCETAK 5 TIMES STOP RUN. MENCETAK. DISPLAY ‘ INDONESIA HEBAT ‘ .
9
TPT1 by dna
INDONESIA HEBAT INDONESIA HEBAT INDONESIA HEBAT INDONESIA HEBAT INDONESIA HEBAT
PERFORM(3) Bentuk umum ke-3 THROUGH nama-paragraph-2 UNTIL kondisi
PERFORM nama-paragraph-1 THRU
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.
10
TPT1 by dna
PERFORM(4) Bentuk Umum ke-4 PERFORM nama-paragraph-1 THROUGH THRU
VARYING
nama-paragraph-2
nama-data-1 FROM nama-data-2 Nama-index-1
integer-1 Nama-index-2
BY
nama-data-3 UNTIL kondisi-1 Integer-2
AFTER
nama-data-4 FROM
nama-data-5
Nama-index-3
1integer-3
Nama-index-4
Memproses suatu paragraph berulang-kali dan akan menyebabkan ( VARYING)
nama-data-1 atau nama-index-1 yang bernilai mulai dari (FROM) nama-data-2 bertambah dengan (BY) nama-data-3 atau integer-2 sampai (UNTIL) suatu kondisi-1 terpenuhi.
11
TPT1 by dna
Contoh Perform4 MULAI.
PERFORM TAMPILKANVARYING HITUNG FROM 1 BY 1 UNTIL HITUNG = 10. STOP RUN. TAMPILKAN. DISPLAY HITUNG.
12
TPT1 by dna
EXIT verb Statement EXIT berfungsi untuk melakukan loncatan ke akhir
paragraph yang di proses oleh PERFORM verb.
13
TPT1 by dna
Buatlah program cobol menggunakan go to verb dengan output :
14
TPT1 by dna
Buatlah program cobol menggunakan perform verb dengan output :
15
TPT1 by dna
