MENDISKRIPSIKAN DATA PEGAWAI DALAM BAHASA COBOL

Mendiskripsikan DATA PEGAWAI kedalam BAHASA COBOL , NIP bertipe ALFANUMERIK , NAMA PEGAWAI bertipe ALFABETH,  ALAMAT = NAMA JALAN, KOTA, KODE POS bertipe ALFANUMERIK , mendapatkan tunjangan, TUNJANGAN= TUNJANGAN JABATAN, TUNJANGAN KESEHATAN, TUNJANGAN KELUARGA.

=>

DATA DIVISION

WORKING-STORAGE SECTION.

01 DATA-PEGAWAI

                02 NIP PIC 9(7)

                02 NAMA PEGAWAI PIC X(20)

                02 ALAMAT

                                03 NAMA JALANAN        PIC 9(15)

                                03 KOTA                              PIC X(10)

                                03 KODE POS                      PIC 9(6)

                02 TUNJANGAN

                                03 TUNJANGAN JABATAN            PIC 9(6)

                                03 TUNJANGAN KESEHATAN      PIC 9(6)

                                03 TUNJANGAN KELUARGA        PIC9(6)

                02 JABATAN       PIC X(10)

( COBOL )MERUBAH RUMUS KEDALAM BENTUK COMPUTE DAN ARITMATIC

Mengubah rumus G=((A+B):(C-D))x(E-F)  menjadi compute dan aritmatic dalam bahasa cobol

a. Mengubah menjadi compute

                G=((A+B)/(C-D))*(E-F)

b. mengubah dalam bentuk aritmatika

                ADD A TO B.

                SUB C FROM D.

                DIV D INTO B.

                MULT B BY F GIVING G.