Penggunaan Perintah FROM, TO dan USING clause.
Perintah FROM, TO, USING clause digunakan untuk menampilkan atau menampilkan data yang bentuk data-itemnya berhubungan dengan data (nilai dari PIC clause ) pada WORKING-STORAGE SECTION. Perintah FORM digunakan untuk menampilkan / menerima data dari suatu variable.
Perintah TO digunakan untuk memasukan nilai / menyimpan nilai kedalam variable.
Perintah USING adalah pengganti perintah FORM dan TO artinya perintah ini dapat melakukan kedua hal diatas.
Contoh Program 1.
M2.COB Mon Aug 21 20:24:20 2006
Page 1 line number source line Microsoft COBOL Version 2.20
1 IDENTIFICATION DIVISION.
2 PROGRAM-ID. HARGA.
3 AUTHOR. SAYA.
4 ENVIRONMENT DIVISION.
5 DATA DIVISION.
6 WORKING-STORAGE SECTION.
7 01 DATA-MASUK.
8 02 NAMABRG PIC A(20) .
9 02 HARGA PIC 9(6) VALUE 0.
10 02 JUMLAH PIC 9(3) VALUE 0.
11 02 TOTAL PIC 9(6) VALUE 0.
12 SCREEN SECTION.
13 01 HAPUS-LAYAR.
14 02 BLANK SCREEN.
15 01 LAYAR-MASUK.
16 02 LINE 5 COLUMN 3 VALUE 'NAMA BARANG : '.
17 02 COLUMN PLUS 1 PIC A(20) TO NAMABRG.
18 02 LINE 7 COLUMN 3 VALUE 'HARGA : '.
19 02 COLUMN PLUS 1 PIC 9(6) TO HARGA.
20 02 LINE 9 COLUMN 3 VALUE 'JUMLAH : '.
21 02 COLUMN PLUS 1 PIC 9(3) TO JUMLAH.
22 01 LAYAR-TAMPIL.
23 02 LINE 13 COLUMN 3 VALUE 'TOTAL : '.
24 02 COLUMN PLUS 1 PIC 9(6) FROM TOTAL.
25 PROCEDURE DIVISION.
26 MULAI.
27 DISPLAY HAPUS-LAYAR.
28 DISPLAY LAYAR-MASUK.
29 ACCEPT LAYAR-MASUK.
30 COMPUTE TOTAL = JUMLAH * HARGA.
31 DISPLAY LAYAR-TAMPIL.
32 SELESAI.
33 STOP RUN.
34
Jumat, 12 November 2010
Penggunaan Perintah FROM, TO dan USING clause.
Penggunaan Perintah FROM, TO dan USING clause.
Perintah FROM, TO, USING clause digunakan untuk menampilkan atau menampilkan data yang bentuk data-itemnya berhubungan dengan data (nilai dari PIC clause ) pada WORKING-STORAGE SECTION. Perintah FORM digunakan untuk menampilkan / menerima data dari suatu variable.
Perintah TO digunakan untuk memasukan nilai / menyimpan nilai kedalam variable.
Perintah USING adalah pengganti perintah FORM dan TO artinya perintah ini dapat melakukan kedua hal diatas.
Contoh Program 1.
M2.COB Mon Aug 21 20:24:20 2006
Page 1 line number source line Microsoft COBOL Version 2.20
1 IDENTIFICATION DIVISION.
2 PROGRAM-ID. HARGA.
3 AUTHOR. SAYA.
4 ENVIRONMENT DIVISION.
5 DATA DIVISION.
6 WORKING-STORAGE SECTION.
7 01 DATA-MASUK.
8 02 NAMABRG PIC A(20) .
9 02 HARGA PIC 9(6) VALUE 0.
10 02 JUMLAH PIC 9(3) VALUE 0.
11 02 TOTAL PIC 9(6) VALUE 0.
12 SCREEN SECTION.
13 01 HAPUS-LAYAR.
14 02 BLANK SCREEN.
15 01 LAYAR-MASUK.
16 02 LINE 5 COLUMN 3 VALUE 'NAMA BARANG : '.
17 02 COLUMN PLUS 1 PIC A(20) TO NAMABRG.
18 02 LINE 7 COLUMN 3 VALUE 'HARGA : '.
19 02 COLUMN PLUS 1 PIC 9(6) TO HARGA.
20 02 LINE 9 COLUMN 3 VALUE 'JUMLAH : '.
21 02 COLUMN PLUS 1 PIC 9(3) TO JUMLAH.
22 01 LAYAR-TAMPIL.
23 02 LINE 13 COLUMN 3 VALUE 'TOTAL : '.
24 02 COLUMN PLUS 1 PIC 9(6) FROM TOTAL.
25 PROCEDURE DIVISION.
26 MULAI.
27 DISPLAY HAPUS-LAYAR.
28 DISPLAY LAYAR-MASUK.
29 ACCEPT LAYAR-MASUK.
30 COMPUTE TOTAL = JUMLAH * HARGA.
31 DISPLAY LAYAR-TAMPIL.
32 SELESAI.
33 STOP RUN.
34
Perintah FROM, TO, USING clause digunakan untuk menampilkan atau menampilkan data yang bentuk data-itemnya berhubungan dengan data (nilai dari PIC clause ) pada WORKING-STORAGE SECTION. Perintah FORM digunakan untuk menampilkan / menerima data dari suatu variable.
Perintah TO digunakan untuk memasukan nilai / menyimpan nilai kedalam variable.
Perintah USING adalah pengganti perintah FORM dan TO artinya perintah ini dapat melakukan kedua hal diatas.
Contoh Program 1.
M2.COB Mon Aug 21 20:24:20 2006
Page 1 line number source line Microsoft COBOL Version 2.20
1 IDENTIFICATION DIVISION.
2 PROGRAM-ID. HARGA.
3 AUTHOR. SAYA.
4 ENVIRONMENT DIVISION.
5 DATA DIVISION.
6 WORKING-STORAGE SECTION.
7 01 DATA-MASUK.
8 02 NAMABRG PIC A(20) .
9 02 HARGA PIC 9(6) VALUE 0.
10 02 JUMLAH PIC 9(3) VALUE 0.
11 02 TOTAL PIC 9(6) VALUE 0.
12 SCREEN SECTION.
13 01 HAPUS-LAYAR.
14 02 BLANK SCREEN.
15 01 LAYAR-MASUK.
16 02 LINE 5 COLUMN 3 VALUE 'NAMA BARANG : '.
17 02 COLUMN PLUS 1 PIC A(20) TO NAMABRG.
18 02 LINE 7 COLUMN 3 VALUE 'HARGA : '.
19 02 COLUMN PLUS 1 PIC 9(6) TO HARGA.
20 02 LINE 9 COLUMN 3 VALUE 'JUMLAH : '.
21 02 COLUMN PLUS 1 PIC 9(3) TO JUMLAH.
22 01 LAYAR-TAMPIL.
23 02 LINE 13 COLUMN 3 VALUE 'TOTAL : '.
24 02 COLUMN PLUS 1 PIC 9(6) FROM TOTAL.
25 PROCEDURE DIVISION.
26 MULAI.
27 DISPLAY HAPUS-LAYAR.
28 DISPLAY LAYAR-MASUK.
29 ACCEPT LAYAR-MASUK.
30 COMPUTE TOTAL = JUMLAH * HARGA.
31 DISPLAY LAYAR-TAMPIL.
32 SELESAI.
33 STOP RUN.
34
Langganan:
Posting Komentar (Atom)
0 komentar:
Posting Komentar