Monday, September 28, 2009

Coding COBOL

Ini dia tugas cobol yang gue janjiin udah bisa lo upload. Hehe.
Angka pertama yang gue taruh paling depan, itu jumlah spasi sebelumnya.
kalo ada angka lagi, itu level numbernya.

8 IDENTIFICATION DIVISION.
8 PROGRAM-ID. LEVEL NUMBER.
8 DATA DIVISION.
8 ENVIRONMENT DIVISION.
8 WORKING-STORAGE-SECTION.
8 01 DATAINPUT.
12 02 NAMA PIC A(50)
12 02 GAJI.
16 03 GAJIPOKOK PIC X(6).
16 03 TUNJANGAN PIC x(6).
12 02 TOTGAJI PIC x(6).
12 02 TANYA PIC A.
16 88 LAGI VALUE IS 'Y','y'.
16 88 TIDAK VALUE IS 'T','t'.
8 SCREEN SECTION.
8 01 HAPUS-LAYAR.
12 02 BLANK SCREEN.
8 PROCEDURE DIVISION.
8 MULAI.
12 DISPLAY HAPUS-LAYAR.
12 DISPLAY (1,1) 'NAMA ANDA : '. ACCEPT NAMA.
12 DISPLAY (2,1) 'GAJI POKOK : Rp. '. ACCEPT GAJIPOKOK.
12 DISPLAY (3,1) 'BESARNYA TUNJANGAN : Rp. '. ACCEPT TUNJANGAN.
12 COMPUTE TOTGAJI=GAJIPOKOK+TUNJANGAN.
12 DISPLAY HAPUS-LAYAR.
12 DISPLAY '>>> GAJI ANDA UNTUK BULAN INI <<<'.
12 DISPLAY ' '.
12 DISPLAY 'NAMA : ', NAMA.
12 DISPLAY 'GAJI POKOK : Rp. ', GAJIPOKOK.
12 DISPLAY 'GAJI TUNJANGAN : Rp. ', TUNJANGAN.
12 DISPLAY 'TOTAL GAJI ANDA : Rp. ', TOTGAJI.
12 DISPLAY ' '.
12 DISPLAY 'INGIN MEMASUKKAN DATA LAGI? (Y/T)'. ACCEPT TANYA.
8 88 IF TANYA = 'Y' OR 'y' GO TO MULAI ELSE GO TO SELESAI.
8 SELESAI.
12 STOP RUN.

Thank you all.

1 comment:

Anonymous said...

tengkyu ya fie,,

hahaha

_brian_