Coding Program :
IDENTIFICATION DIVISION.
PROGRAM-ID.
KONDISI-BIODATA.
AUTHOR. Steven.
INSTALLATION. HP.
DATE-WRITTEN. 19-11-2012.
DATE-COMPILED. 19-11-2012.
SECURITY.
PRIVACY.
ENVIRONMENT
DIVISION.
CONFIGURATION SECTION.
SOURCE-COMPUTER.
OBJECT-COMPUTER.
SPECIAL-NAMES.
PRINTER
IS ALAT-CETAK.
CURRENCY
SIGN IS "F".
* DECIMAL-POINT IS COMMA.
DATA
DIVISION.
WORKING-STORAGE SECTION.
88 LAGI
VALUE 'Y', 'y'.
88 TIDAK VALUE 'T', 't'.
01
DATA-BIODATA.
02 NAMA
PIC A(20) VALUE ‘Steven Ari Febriandi’.
02 NPM
PIC 9(8) VALUE 16111901.
02 KELAS
PIC X(5) VALUE '2KA19'.
02
JURUSAN PIC A(16) VALUE 'SISTEM INFORMASI'.
02
KAMPUS PIC A(21) VALUE 'UNIVERSITAS GUNADARMA'.
02
ALAMAT PIC A(20) VALUE JAWA BARAT'.
01
PIC-EDITING.
02 NAMA1
PIC A(5).
02 NPM1
PIC Z(13).
02
KELAS1 PIC X(1).
02
JURUSAN1 PIC A(10).
02
KAMPUS1 PIC X(12).
02
ALAMAT1 PIC A(3).
77 PIL PIC
9.
SCREEN
SECTION.
01 CLS.
02 BLANK
SCREEN.
01
TAMPILAN-MENU.
02 LINE
5 COLUMN 10 VALUE ' DAFTAR MENU'.
02 LINE
4 COLUMN 10 VALUE ‘~~~~~~~~~~~~~~~~~~'.
02 LINE 6 COLUMN 10 VALUE
'~~~~~~~~~~~~~~~~~~-'.
02 LINE
7 COLUMN 10 VALUE ' '.
02 LINE
8 COLUMN 10 VALUE '1) BIODATA PROGRAMMER'.
02 LINE
9 COLUMN 10 VALUE ' '.
02 LINE 10 COLUMN 10 VALUE '2) PIC
EDITING'.
02 LINE
11 COLUMN 10 VALUE ' '.
02 LINE
12 COLUMN 10 VALUE '3) SELESAI'.
02 LINE 13 COLUMN 10 VALUE
‘~~~~~~~~~~~~~~~~~~~’.
02 LINE
15 COLUMN 10 VALUE 'MASUKKAN PILIHAN ANDA :'.
02
COLUMN PLUS 2 PIC 9 TO PIL.
PROCEDURE
DIVISION.
MULAI.
DISPLAY
CLS.
DISPLAY
TAMPILAN-MENU.
ACCEPT
TAMPILAN-MENU.
KONDISI.
IF PIL =
1
DISPLAY
CLS
PERFORM BIODATA.
IF PIL =
2
PERFORM
PINDAH.
IF PIL =
3
PERFORM
SELESAI
ELSE GO
TO KONDISI-ULANG.
BIODATA.
DISPLAY
CLS.
DISPLAY
'--------------------------------'.
DISPLAY ' BIODATA PEMBUAT PROGRAM'.
DISPLAY
'--------------------------------'.
DISPLAY
'NAMA : ', NAMA.
DISPLAY
'NPM : ', NPM.
DISPLAY
'KELAS : ', KELAS.
DISPLAY
'JURUSAN : ', JURUSAN.
DISPLAY
'KAMPUS : ', KAMPUS.
DISPLAY
'ALAMAT : ', ALAMAT.
DISPLAY
'--------------------------------'.
DISPLAY
SPACE.
STOP
"ENTER".
PINDAH.
DISPLAY
CLS.
MOVE NAMA
TO NAMA1.
DISPLAY
NAMA 'Menjadi ' NAMA1.
MOVE NPM
TO NPM1.
DISPLAY
NPM 'Menjadi ' NPM1.
MOVE
KELAS TO KELAS1.
DISPLAY
KELAS 'Menjadi ' KELAS1.
MOVE
JURUSAN TO JURUSAN1.
DISPLAY
JURUSAN 'Menjadi ' JURUSAN1.
MOVE
KAMPUS TO KAMPUS1.
DISPLAY
KAMPUS 'Menjadi ' KAMPUS1.
MOVE
ALAMAT TO ALAMAT1.
DISPLAY
ALAMAT 'Menjadi ' ALAMAT1.
DISPLAY
SPACE.
STOP
"ENTER".
KONDISI-ULANG.
DISPLAY
SPACE.
DISPLAY
'APAKAH ANDA INGIN MENGULANGINYA LAGI? Y/T'.
ACCEPT
JAWAB.
IF LAGI
GO TO MULAI.
IF TIDAK
GO TO SELESAI.
SELESAI.
STOP
RUN.
LOGIKA…
01
DATA-BIODATA.
02 NAMA
PIC A(20) VALUE ‘Steven Ari Febriandi’.
02 NPM
PIC 9(8) VALUE 16111901.
02 KELAS
PIC X(5) VALUE '2KA19'.
02
JURUSAN PIC A(16) VALUE 'SISTEM INFORMASI'.
02
KAMPUS PIC A(21) VALUE 'UNIVERSITAS GUNADARMA'.
02
ALAMAT PIC A(20) VALUE JAWA BARAT'.
01
PIC-EDITING.
02 NAMA1
PIC A(5).
02 NPM1
PIC Z(13).
02
KELAS1 PIC X(1).
02
JURUSAN1 PIC A(10).
02
KAMPUS1 PIC X(12).
02
ALAMAT1 PIC A(3).
Pada program ini saya menggunakan
picture clause dan picture editing, untuk mengetahui picture apa yang saya
pergunakan dalam program ini. Dimana data-biodata adalah record dari picture
clause dan pic-editing adalah record untuk menyimpan picture editing.
SCREEN
SECTION.
01 CLS.
02 BLANK
SCREEN.
01
TAMPILAN-MENU.
02 LINE
5 COLUMN 10 VALUE ' DAFTAR MENU'.
02 LINE
4 COLUMN 10 VALUE ‘~~~~~~~~~~~~~~~~~~'.
02 LINE 6 COLUMN 10 VALUE
'~~~~~~~~~~~~~~~~~~-'.
02 LINE
7 COLUMN 10 VALUE ' '.
02 LINE
8 COLUMN 10 VALUE '1) BIODATA PROGRAMMER'.
02 LINE
9 COLUMN 10 VALUE ' '.
02 LINE
10 COLUMN 10 VALUE '2) PIC EDITING'.
02 LINE 11 COLUMN 10 VALUE ' '.
02 LINE
12 COLUMN 10 VALUE '3) SELESAI'.
02 LINE
13 COLUMN 10 VALUE ‘~~~~~~~~~~~~~~~~~~~’.
02 LINE
15 COLUMN 10 VALUE 'MASUKKAN PILIHAN ANDA :'.
02
COLUMN PLUS 2 PIC 9 TO PIL.
Pada codingan diatas saya
menggunakan screen section untuk membuat screen cls dan screen tampilan-menu
dengan menggunakan pil untuk memasukan pilihan.
PROCEDURE DIVISION.
MULAI.
DISPLAY CLS.
DISPLAY TAMPILAN-MENU.
ACCEPT TAMPILAN-MENU.
KONDISI.
IF PIL = 1
DISPLAY CLS
PERFORM BIODATA.
IF PIL = 2
PERFORM PINDAH.
IF PIL = 3
PERFORM SELESAI
ELSE GO TO KONDISI-ULANG.
BIODATA.
DISPLAY CLS.
DISPLAY
'--------------------------------'.
DISPLAY ' BIODATA PEMBUAT PROGRAM'.
DISPLAY
'--------------------------------'.
DISPLAY 'NAMA : ', NAMA.
DISPLAY 'NPM : ', NPM.
DISPLAY 'KELAS : ', KELAS.
DISPLAY 'JURUSAN : ', JURUSAN.
DISPLAY 'KAMPUS : ', KAMPUS.
DISPLAY 'ALAMAT : ', ALAMAT.
DISPLAY
'--------------------------------'.
DISPLAY SPACE.
STOP "ENTER".
PINDAH.
DISPLAY CLS.
MOVE NAMA TO NAMA1.
DISPLAY NAMA 'Menjadi ' NAMA1.
MOVE NPM TO NPM1.
DISPLAY NPM 'Menjadi ' NPM1.
MOVE KELAS TO KELAS1.
DISPLAY KELAS 'Menjadi ' KELAS1.
MOVE JURUSAN TO JURUSAN1.
DISPLAY JURUSAN 'Menjadi ' JURUSAN1.
MOVE KAMPUS TO KAMPUS1.
DISPLAY KAMPUS 'Menjadi ' KAMPUS1.
MOVE ALAMAT TO ALAMAT1.
DISPLAY ALAMAT 'Menjadi ' ALAMAT1.
DISPLAY SPACE.
STOP "ENTER".
KONDISI-ULANG.
DISPLAY SPACE.
DISPLAY 'APAKAH ANDA INGIN
MENGULANGINYA LAGI? Y/T'.
ACCEPT JAWAB.
IF LAGI GO TO MULAI.
IF TIDAK GO TO SELESAI.
SELESAI.
STOP RUN.
Pada procedure division saya menggunakan if, go to,
perform dan display dimana if untuk
mnyeleksikan, go to untuk meloncati sebuah kondisi untuk menuju kondisi yang
kita inginkan, perform untuk menampilkan kondisi yg kita inginkan dan display
untuk menampilkan kata-kata atau screen.
 |
|||
 |
|||
Tidak ada komentar:
Posting Komentar