TI Auditor

1. Pengertian
IT audit adalah salah satu jenis audit dimana auditor melakukan pemeriksaan terhadap efektifitas sistem pengendalian internal serta memastikan sistem IT yang dimiliki oleh perusahaan sudah sesuai dengan peraturan dan hukum yang berlaku. IT audit memastikan bahwa sistem pengendalian IT perusahaan mampu melindungi informasi terkait aset yang dimiliki oleh perusahaan, memastikan integritas data, serta sejalan dengan tujuan yang hendak dicapai oleh organisasi.
Manfaat dari dilakukannya IT audit bagi perusahaan adalah untuk memastikan bahwa sistem IT yang digunakan itu aman, handal, serta tidak rentan terhadap serangan dari pihak luar.

2. Tujuan
Tujuan dilakukannya audit IT adalah:
- Mengevaluasi keterandalan data dari sistem IT yang memiliki pengaruh terhadap laporan keuangan suatu perusahaan
- Memastikan bahwa sistem IT suatu perusahaan sudah mematuhi peraturan serta perundang-undangan yang berlaku
- Memeriksa apakah ada pemborosan penggunaan data terkait dengan pengelolaan sistem IT suatu perusahaan

3. Jenis IT Audit
Menurut Goodman, dan Lawless, IT audit dibagi menjadi:
- Technological Innovation Process Audit
Audit yang mengonstruksi profil risiko terkait proyek baru maupun proyek yang sudah ada
- Innovative Comparison Audit
Audit yang menganalisa kemampuan inovatif klien dibanding dengan kompetitornya
- Technological Position Audit
Audit yang mengkaji teknologi yang dimiliki oleh klien dan teknologi apa yang harus ditambah oleh klien


4. Prinsip IT Audit
Menurut Adams dan Kathrin (2016),  terdapat 8 prinsip dalam melaksanakan IT audit
- Timeliness
- Source Openness
- Elaborateness
- The Financial Context
- Scientific Referencing of Learning Perspectives
- Literature-inclusion
- Inclusion of User Manuals and Documentation
- Identify References to Innovations

5. Tahap Pelaksanaan IT Audit
Pelaksanaan IT audit dibagi ke dalam 5 tahap, yaitu
- Menentukan tujuan dan ruang lingkup IT audit
- Mengembangkan perencanaan IT audit
- Mengumpulkan informasi terkait pengendalian sistem IT klien untuk dievaluasi. Informasi tersebut mencakup lingkungan pengendalian, prosedur pengendalian, penilaian detection risk, penilaian resiko pengendalian, jumlah resiko yang ada dalam suatu perusahaan
- Melakukan uji audit dengan menggunakan CAATs (Computer-Assisted Audit Techniques)
- Melaporkan temuan IT audit

6. IT Auditor
IT auditor adalah orang yang melakukan IT Audit. Secara garis besar, pekerjaan seorang IT auditor yakni mengidentifikasi kelemahan yang terdapat pada sistem informasi dan jaringan suatu perusahaan serta merancang tindakan apa saja yang harus dilakukan untuk memperbaiki kelemahan tersebut sehingga sistem informasi dan jaringan perusahaan tidak mudah diretas oleh pihak lain.  IT auditor bertugas memberikan keyakinan kepada klien bahwa sistem IT perusahaan sudah terlindungi dengan baik, mampu memberikan informasi yang handal kepada pengguna, serta pengelolaan yang dilakukan sudah mampu membawa keuntungan bagi perusahaan
IT auditor tidak hanya memeriksa pengendalian IT secara fisik saja, namun juga pengendalian IT yang mencakup bisnis dan keuangan perusahaan secara keseluruhan. Oleh karena itu, seorang IT auditor juga dapat terlibat dalam penyusunan dan pelaksanaan audit internal. Sama seperti auditor di bidang keuangan, IT auditor juga bekerjasama dalam suatu tim dan klien
Untuk menjadi IT auditor, seseorang biasanya memiliki gelar dalam bidang IT, SI, Akuntansi, atau administrasi bisnis. Seorang IT auditor juga harus memiliki kemampuan berkomunikasi yang baik agar mampu memahami istilah teknis dan menerjemahkannya ke dalam keputusan bisnis untuk klien.
Ada 4 (empat) macam sertifikasi yang dapat diambil oleh IT auditor, yaitu CISA (Certified Information Systems Auditor), CISSP (Certified Information Systems Security Professional), Certified Information Security Manager serta Microsoft Certified Systems Engineer.

Sumber:
http://searchcompliance.techtarget.com/definition/IT-audit-information-technology-audit
http://resources.infosecinstitute.com/itac-planning/#gref
http://work.chron.com/description-auditor-15174.html
https://en.wikipedia.org/wiki/Information_technology_audit#cite_note-10
http://www.ago.gov.sg/docs/default-source/brochure/197b4897-87d6-477d-9bc2-d06afa225a41.pdf

Etika dan Profesionalisme Dalam Bidang Sistem Informasi

Etika

Pada pengertian yang paling dasar, etika adalah sistem nilai pribadi yang digunakan memutuskan apa yang benar, atau apa yang paling tepat, dalam suatu situasi tertentu; memutuskan apa yang konsisten dengan sistem nilai yang ada dalam organisasi dan diri pribadi. Kata etika berasal dari bahasa Yunani, ethos atau taetha yang berarti tempat tinggal, padang rumput, kebiasaan atau adat istiadat. Oleh filsuf Yunani, Aristoteles, etika digunakan untuk menunjukkan filsafat moral yang menjelaskan fakta moral tentang nilai dan norma moral, perintah, tindakan kebajikan dan suara hati.

Profesionalisme

Profesionalisme adalah kompetensi untuk melaksanakan tugas dan fungsinya secara baik dan benar dan juga komitmen dari para anggota dari sebuah profesi untuk meningkatkan kemampuan dari seorang karyawan. Profesional sendiri mempunyai arti seorang yang terampil, handal dan sangat bertanggung jawab dalam menjalankan tugas (Profesinya).

Mengapa harus ada etika dan profesionalisme?

Prinsip‐prinsip umum yang dirumuskan dalam suatu profesi akan berbeda satu dengan yang lainnya. Hal ini disebabkan perbedaan adat, kebiasaan, kebudayaan, dan peranan tenaga ahli profesi yang didefinisikan dalam suatu negar tidak sama. Adapun yang menjadi tujuan pokok dari rumusan etika yang dituangkan dalam kode etik (Code of conduct) profesi adalah:

Standar‐standar etika menjelaskan dan menetapkan tanggung jawab terhadap klien, institusi, dan masyarakat pada umumnya.

Standar‐standar etika membantu tenaga ahli profesi dalam menentukan apa yang harus mereka perbuat kalau mereka menghadapi dilema‐dilema etika dalam pekerjaan.

Standar‐standar etika membiarkan profesi menjaga reputasi atau nama dan fungsi‐fungsi profesi dalam masyarakat melawan kelakuan‐kelakuan yang jahat dari anggota‐anggota tertentu.

Standar‐standar etika mencerminkan / membayangkan pengharapan moral‐moral dari komunitas, dengan demikian standar‐standar etika menjamin bahwa para anggota profesi akan menaati kitab UU etika (kode etik) profesi dalam pelayanannya.

Standar‐standar etika merupakan dasar untuk menjaga kelakuan dan integritas atau kejujuran dari tenaga ahli profesi.

Perlu diketahui bahwa kode etik profesi adalah tidak sama dengan hukum (atau undang‐undang). Seorang ahli profesi yang melanggar kode etik profesi akan menerima sangsi atau denda dari induk organisasi profesinya.

Etika dan Profesionalisme Teknologi Sistem Informasi dibutuhkan karena :

Etika membantu manusia untuk melihat secara kritis moralitas yang dihayati masyarakat, etika juga membantu merumuskan pedoman etis yang lebih kuat dan norma-norma baru yang dibutuhkan karena adanya perubahan yang dinamis dalam tata kehidupan masyarakat.

Etika membantu untuk mengambil keputusan tentang tindakan apa yang perlu dilakukan dan yang perlu dipahami bersama bahwa etika ini dapat diterapkan dalam segala aspek atau sisi kehidupan, dengan demikian etika ini dapat dibagi menjadi beberapa bagian sesuai dengan aspek atau sisi kehidupan manusianya.

Tujuan Etika dalam Teknologi Sistem Informasi adalah :

Sebagai dasar pijakan atau patokan yang harus ditaati dalam teknologi informasi untuk melakukan proses pengembangan, adapun tujuan sebagai berikut :

Untuk memetakan permasalahan yang timbul akibat penggunaan teknologi informasi itu sendiri.

Untuk menginventarisasikan dan mengidentifikasikan etika dalam teknologi informasi.

Untuk menemukan masalah dalam penerapan etika teknologi informasi.

Penerapan Etika dan Profesionalisme Teknologi Sistem Informasi :

Etika dan profesionalisme Teknologi Sistem Informasi dapat diterapkan ketika seseorang berhadapan dan menggunakan teknologi sistem informasi. Etika dan profesionalisme sebaiknya sudah menjadi sikap dasar para pengguna Teknologi Sistem informasi setiap saat. Dengan demikian pertanggung-jawaban secara etika dan profesional menjadi nyata. 

Harus dilakukan oleh semua pihak yang terlibat dalam Teknologi Sistem Informasi seperti yang telah disebutkan sebelumnya, setiap orang yang hendak menggunakan teknologi sistem informasi tertentu harus mempertimbangkan untuk menggunakan etika dan profesionalisme Teknologi Sistem Informasi, sehingga pengguna etika dan profesionalisme Teknologi Sistem Informasi ini tentunya adalah semua elemen di dalam suatu lingkungan kerja yang akan dan telah menggunakan Teknologi Sistem Informasi untuk menghindari adanya isu-isu etika dalam pemanfaatan TI.

Sebagai seorang yang profesional, kita mempunyai tanggung jawab moral untuk mempromosikan etika penggunaan teknologi informasi di setiap kesempatan dantempat khususnya tempat kita bekerja. Hal itu termasuk melaksanakan peran kita dengan baik sebagai suatu sumber daya manusia yang penting di dalam sistem bisnis dalam organisasi.

metode pembelajaran softskill

metode yang saya pikirkan mengenai pembelajaran softskill untuk diterapkan dalam pembelajaran di kelas, disini saya mengajukan suatu metode pembelajaran softskill melalui penerapan diskusi dikelas yang dilakukan oleh setiap kelompok. dimana dalam setiap pertemuan dikelas hanya ada satu kelompok yang hadir. dan dalam pertemuan itu dimana kelompok tersebut akan melakukan sebuah simulasi seolah-olah kelompok tersebuat sedang mengerjakan suatu tugas kelompok dengan menerapkan fungsi dari setiap bagian-bagian (individu) untuk mngerjakan tugas tersebut. dan untuk para mahasiswa yang sedang berdiskusi seolah-olah mereka melakukan simulasi tersebut tanpa adanya tekanan karena sedang diawasi oleh dosen yang mengajarnya. jadi dengan begitu mahasiswa dapat memaksimalkan penerapan simulasi diskusi dengan tanpa gangguan mahasiswa lainnya dan dosen dapat dengan tenang, cermat dan tepat memperhatikan dan menilai sikap dari setiap individu bagaimana menjalani diskusi tersebut. 

Antar Muka

1. apa yang anda ketahui tentang anatar muka?
• salah satu layanan yang disediakan sistem operasi digunakan guna mendukung komunikasi pengguna dengan suatu sistem
2. sebut dan jelaskan fitur antar muka telematika!
• Head Up Display System
• merupakan sebuah tampilan transparan yang menampilkan data tanpa mengharuskan penggunanya untuk melihat ke arah yang lain dari sudut pandang biasanya. Asal nama dari alat ini yaitu pengguna dapat melihat informasi dengan kepala yang terangkat (head up) dan melihat ke arah depan daripada melihat ke arah bawah bagian instrumen.
• Tangible User Interface
• antarmuka dimana seseorang dapat berinteraksi dengan informasi digital lewat lingkungan fisik. Pandangan istimewanya untuk tangible UI disebut tangible bits, yaitu memberikan bentuk fisik kepada informasi digital sehingga membuat bit dapat dimanipulasi dan diamati secara langsung.
• Computer Vision
• merupakan ilmu pengetahuan dan teknologi dari mesin yang melihat. Computer Vision digunakan untuk membangun sistem kecerdasan buatan yang membutuhkan informasi dari citra (gambar).
• Browsing Audio Data
• kemampuan mesin untuk mencari data dengan menggunakan input audio. 
• E.Speech Recognition
• Merupakan salah satu fitur antarmuka telematika yang merubah suara menjadi tulisan. 
•  Speech Synthesis
• kecerdasan buatan dari pembicaraan manusia. Komputer yang digunakan untuk tujuan ini disebut speech syhthesizer dan dapat diterapkan pada perangkat lunak dan perangkat keras. Sebuah sistem text to speech (TTS) merubah bahasa normal menjadi pembicaraan.
3. sebut dan jelaskan teknologi antarmuka telematika!
• Head Up Display System
•  penerbangan militer, penerbangan sipil, dan kendaraang bermotor 
• Tangible User Interface
• Mouse
• Computer Vision
• Pengolahan Citra Medis
• Browsing Audio Data
• E.Speech Recognition
• Piranti pengenalan kata
• pengenalan kalimat
•  Speech Synthesis

daftar referensi

https://www.scribd.com/document/206037173/Teknologi-Yang-Terkait-Antar-Muka-Telematika

http://caralengkap.com/2012/10/definisi-interfaceantar-muka-dan-contohnya.html

https://alfianeffendi.wordpress.com/2015/11/15/fitur-pada-antarmuka-telematika/

program linier SPK

pengantar telematika

Apa yang anda ketahui tentang telematika?

            Telematika merupakan perpaduan antara kata “telemunication” dan “informatics” dan juga meliki makna konsep computing dan communication. Namun di Indonesia telematika sendiri memilki makna yang berbeda menurut kerangka kebijakan pengembangan dan pendayagunaan telematika yang sejalan dengan pemikiran pemerintah, TeleMaTika merupakan singkatan dari Tele = Telekomunikasi, Ma = Multimedia dan Tika = Informatika.

Bagaimana perkembangan telematika sampai saat ini & beberapa tahun kedepan?

            Saat ini perkembangan telematika sendiri sangatlah pesat, karena kebutuhan sarana komunikasi informasi yang sangat meningkat menajadikan telematika sendiri suatu kebutuhan hidup dikalangan masyarakat telekomunikasi (MasTel). Bahkan menjadi sebuah industri, bisnis informasi, media dan telekomunikasi. Dan untuk beberapa tahun kedepan telematika akan tetap bahkan sangat pesat perkembangannya dikarenakan kebutuhan suatu media komunikasi informasi terus meningkat seiring dengan berkembangnya waktu.

Apa yang anda ketahui dengan arsitektur client-server ? jelaskan !

            client adalah perangkat yang bisa akan menampilkan dan menjalankan sebuah program aplikasi (software komputer) dan server adalah perangkat yang menyediakan dan bertindak sebagai pengelola aplikasi, data, dan keamanannya.

https://dessymarantika7.blogspot.co.id/2015/02/teknologi-telematika.html?m=1

https://ichamuharami.blogspot.co.id/2015/01/perkembangan-telematika-di-indonesia.html?m=1

http://www.gaptekbanget.com/2012/12/apa-itu-client-server-dan-peer-to-peer.html

Program menu cobol

pas buka-buka file semester 3 ketemu file program tugas buat program pascal, dari pada hilang gak berguna mending saya bagi ilmunya siapa tau bermanfaat.

silahkan copy codingannya tapi jika ada kesalahan eror koreksi yah

itu disengaja buat jadi bahan pelajaran OKE.

      ******************************************************************

      * Author:

      * Date:

      * Purpose:

      * Tectonics: cobc

      ******************************************************************

       IDENTIFICATION DIVISION.

      *-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-

       PROGRAM-ID. YOUR-PROGRAM-NAME.

       ENVIRONMENT DIVISION.

      *-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-

       CONFIGURATION SECTION.

      *-----------------------

       INPUT-OUTPUT SECTION.

      *-----------------------

       DATA DIVISION.

      *-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-

       FILE SECTION.

      *-----------------------

       WORKING-STORAGE SECTION.

       01 MENU-PILIHAN.

           02 MENU-PROGRAM PIC 9.

       01 tanya pic x(1).

           88 lagi value 'y','y'.

           88 tidak VLUE 'b','b'.

           88 lain VALUE 'g','g'.

       PROCEDUE DIVISION.

       MAIN-PROCEDURE.

            DISPLAY "=================menu pilihan====================".

            DISPLAY "1. Harga Baju.".

            DISPLAY "2. NPM.".

            DISPLAY "3. Biodata Mahasiswa.".

            DISPLAY "4. Menentukan Bulan Masehi dan Hijriyah.".

            DISPLAY "5. Keluar.".

            DISPLAY "=================================================".

            DISPLAY SPACE

            DISPLAY "PILIH MENU PROGRAM ANDA [1,2,3,4,5] ? "

            WITH NO ADVANCING

            ACCEPT MENU-PROGRAM.    

       EVALUATE MENU-PROGRAM

            WHEN '1' CALL 'UBAH-TITIK'

            when '2' CALL 'NPM'

            WHEN '3' CALL 'BIODATA_MAHASISWA'

            WHEN '4' CALL 'Penentu-Masehi-Hijryah-2014'

            WHEN '5' Go TO SELESAI.

       SELESAI.

            STOP RUN.

      ** add other procedures here

       END PROGRAM YOUR-PROGRAM-NAME.

       IDENTIFICATION DIVISION.

      *-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-

       PROGRAM-ID. UBAH-TITIK.

       ENVIRONMENT DIVISION.

      *-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-

       CONFIGURATION SECTION.

      *-----------------------

       INPUT-OUTPUT SECTION.

      *-----------------------

       DATA DIVISION.

      *-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-

       FILE SECTION.

      *-----------------------

       WORKING-STORAGE SECTION.

       01 HARGA.

           02 HARGA-BAJU PIC 99,999,999.

       01 tanya pic x(1).

           88 lagi value 'y','y'.

           88 tidak VALUE 'b','b'.

           88 lain VALUE 'g','g'.

      *-----------------------

       PROCEDURE DIVISION.

      *-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-

       MAIN-PROCEDURE.

      **

      * The main procedure of the program

      **

       mulai.

            Display SPACE

            DISPLAY 'masukan harga baju? : ' WITH NO ADVANCING

            ACCEPT HARGA-BAJU.

            Display SPACE

            DISPLAY '===================================='.

            DISPLAY 'ANDA MEMBAYAR 'HARGA-BAJU.

            DISPLAY '===================================='.

            Display SPACE

            DISPLAY 'Input y untuk kembali pilih menu.'.

            DISPLAY 'Input b untuk Harga Baju.'WITH NO ADVANCING

            ACCEPT tanya.

            if lagi CALL 'YOUR-PROGRAM-NAME'.

                IF tidak GO TO mulai

                    ELSE GO TO SELESAI.

       selesai.

            STOP RUN.

      ** add other procedures here

       END PROGRAM UBAH-TITIK.

      ******************************************************************

      * Author:

      * Date:

      * Purpose:

      * Tectonics: cobc

      ******************************************************************

       IDENTIFICATION DIVISION.

      *-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-

       PROGRAM-ID. NPM.

       ENVIRONMENT DIVISION.

      *-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-

       CONFIGURATION SECTION.

      *-----------------------

       INPUT-OUTPUT SECTION.

      *-----------------------

       DATA DIVISION.

      *-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-

       FILE SECTION.

      *-----------------------

       WORKING-STORAGE SECTION.

       01 DATA-1.

           02 NAMA pic A(30) OCCURS 5 TIMES.

           02 NPM PIC Z99999999 OCCURS 5 TIMES.

       01 counter.

           02 Jumlah pic 9.

       01 tanya pic x(1).

           88 lagi value 'y','y'.

           88 tidak VALUE 'b','b'.

           88 lain VALUE 'g','g'.

      *----------------------

       PROCEDURE DIVISION.

      *-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-

       MAIN-PROCEDURE.

       MULAI.

           PERFORM VARYING Jumlah FROM 1 BY 1 UNTIL

                   Jumlah > 5

                   DISPLAY "+++++++++++++++++++++++++++++++++++++++++++".

                   DISPLAY "NAMA MAHASISWA1"Jumlah": "

                   ACCEPT NAMA(Jumlah)

                   DISPLAY "NPM MAHASISWA1 "Jumlah": "

                   ACCEPT NPM(Jumlah)

           END-PERFORM

           PERFORM VARYING Jumlah FROM 1 BY 1 UNTIL

                   Jumlah > 5

                   DISPLAY "~##########################################".

                   DISPLAY "NAMA          : " NAMA(Jumlah)

                   DISPLAY "NPM           : " NPM(Jumlah)

           END-PERFOrm

            Display SPACE

            DISPLAY 'Input y untuk kembali pilih menu.'.

            DISPLAY 'Input b untuk Input NPM.'.

            ACCEPT tanya.

            if lagi CALL 'YOUR-PROGRAM-NAME'.

                IF tidak GO TO mulai

                    ELSE GO TO SELESAI.

       selesai.

           stop run.

      ** add other procedures here

       END PROGRAM NPM.

      ******************************************************************

      * Author:

      * Date:

      * Purpose:

      * Tectonics: cobc

      ******************************************************************

       IDENTIFICATION DIVISION.

      *-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-

       PROGRAM-ID. BIODATA_MAHASISWA.

       ENVIRONMENT DIVISION.

      *-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-

       CONFIGURATION SECTION.

      *-----------------------

       INPUT-OUTPUT SECTION.

      *-----------------------

       DATA DIVISION.

      *-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-

       FILE SECTION.

      *-----------------------

       WORKING-STORAGE SECTION.

       01 DATA-1.

           02 NAMA pic A(30) OCCURS 5 TIMES.

           02 TGL-LHR pic 99/99/99 OCCURS 5 TIMES.

           02 NPM PIC Z99999999 OCCURS 5 TIMES.

           02 KELAS pic X(6) OCCURS 5 TIMES.

           02 IPK pic z9,99 OCCURS 5 TIMES.

       01 counter.

           02 Jumlah pic 9.

       01 tanya pic x(1).

           88 lagi value 'y','y'.

           88 tidak VALUE 'b','b'.

           88 lain VALUE 'g','g'.

      *----------------------

       PROCEDURE DIVISION.

      *-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-

       MAIN-PROCEDURE.

       MULAI.

           PERFORM VARYING Jumlah FROM 1 BY 1 UNTIL

                   Jumlah > 5

                   DISPLAY "+++++++++++++++++++++++++++++++++++++++++++".

                   DISPLAY "NAMA MAHASISWA1"Jumlah": "

                   ACCEPT NAMA(Jumlah)

                   DISPLAY "NPM MAHASISWA1 "Jumlah": "

                   ACCEPT NPM(Jumlah)

                   DISPLAY "TANGGAL LAHIR1 "Jumlah": "

                   ACCEPT TGL-LHR(Jumlah)

                   DISPLAY "KELAS          "Jumlah": "

                   ACCEPT KELAS(Jumlah)

                   DISPLAY "IPK            "Jumlah": "

                   ACCEPT IPK(Jumlah)

           END-PERFORM

           PERFORM VARYING Jumlah FROM 1 BY 1 UNTIL

                   Jumlah > 5

                   DISPLAY "~##########################################".

                   DISPLAY "NAMA          : " NAMA(Jumlah)

                   DISPLAY "NPM           : " NPM(Jumlah)

                   DISPLAY "TANGGAL LAHIR : " TGL-LHR(Jumlah)

                   DISPLAY "KELAS         : " KELAS(Jumlah)

                   DISPLAY "IPK           : " IPK(Jumlah)

           END-PERFOrm

                  Display SPACE

                  DISPLAY 'Input y untuk kembali pilih menu.'.

                  DISPLAY 'Input b untuk Input NPM.'.

                  ACCEPT tanya.

                  if lagi CALL 'YOUR-PROGRAM-NAME'.

                    IF tidak GO TO mulai

                      ELSE GO TO SELESAI.

       selesai.

           stop run.

      ** add other procedures here

       END PROGRAM BIODATA_MAHASISWA.

      * Author:

      * Date:

      * Purpose:

      * Tectonics: cobc

      ******************************************************************

       IDENTIFICATION DIVISION.

      *-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-

       PROGRAM-ID. Penentu-Masehi-Hijryah-2014.

       ENVIRONMENT DIVISION.

      *-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-

       CONFIGURATION SECTION.

      *-----------------------

       INPUT-OUTPUT SECTION.

      *-----------------------

       DATA DIVISION.

      *-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-

       FILE SECTION.

      *-----------------------

       WORKING-STORAGE SECTION.

       01 MASEHI.

           02 BULAN PIC 99/99.

           02 A PIC 9(2).

           02 B PIC 9(2).

       01 tanya pic x(1).

           88 lagi value 'y','y'.

           88 tidak VALUE 'b','b'.

           88 lain value 'g','g'.

       PROCEDURE DIVISION.

       MAIN-PROCEDURE.

       MULAI.

           DISPLAY SPACE

           DISPLAY "MASUKKAN BULAN ANDA  " WITH NO ADVANCING

           ACCEPT BULAN.

           UNSTRING BULAN

              DELIMITED BY "/"

              INTO

                 A,B

           IF (A >= '01' AND  < '03') AND (B = '01') GO TO KODE-A.

           IF (A >= '03' AND  A <= '31') AND B = '01'  GO TO KODE-B.

           IF (A = '01' OR A <= '28') AND B ='02' GO TO KODE-C.

           IF (A >= '01' AND A <= '02') AND B = '03' GO TO KODE-D.

           IF (A >= '03' AND A <= '31') AND B = '03' GO TO KODE-E.

           IF (A >='01' AND A <= '30') AND B = '04' GO TO KODE-F.

           IF (A >='01' AND A <= '29') AND B = '05' GO TO KODE-G.

           IF A = '30' AND B = '05' GO TO KODE-H.

           IF (A >= '01' AND A <= '28') AND B = '06' GO TO KODE-I.

           IF (A >= '29' AND A<= '30') AND B = '06' GO TO KODE-J.

           IF (A >= '01' AND A <= '27') AND B = '07' GO TO KODE-K.

           IF (A >= '28' AND A <= '31') AND B = '07' GO TO KODE-L.

           IF (A >='01' AND A <= '26') AND B = '08' GO TO KODE-M.

           IF (A >= '27' AND A <= '31') AND B = '08' GO TO KODE-N.

           IF (A >='01' AND A <= '25') AND B = '09' GO TO KODE-O.

           IF (A >= '26' AND A <= '30') AND B = '09' GO TO KODE-P.

           IF (A >='01' AND A <= '24') AND B = '10' GO TO KODE-Q.

           IF (A >= '25' AND A <= '31') AND B = '10' GO TO KODE-R.

           IF (A >='01' AND A <= '23') AND B = '11' GO TO KODE-S.

           IF (A >= '24' AND A <= '30') AND B = '11' GO TO KODE-T.

           IF (A >='01' AND A <= '22') AND B = '12' GO TO KODE-U.

           IF (A >= '23' AND A <= '31') AND B = '12' GO TO KODE-V.

           IF B >= '13' GO TO KODE-X.

       KODE-X.

           DISPLAY "                               ".

           DISPLAY "==================================================".

           DISPLAY "MAAF TANGGAL DAN BULAN YANG ANDA MASUKAN SALAH.".

           DISPLAY "==================================================".

           Display SPACE

           DISPLAY 'Input y untuk kembali pilih menu.'.

           DISPLAY 'Input b untuk pilih bulan.'.

           ACCEPT tanya.

            if lagi CALL 'YOUR-PROGRAM-NAME'.

                IF tidak GO TO mulai

                    ELSE GO TO SELESAI.

       KODE-A.

           DISPLAY SPACE.

           DISPLAY "==================================================".

           DISPLAY " BULAN MASEHI ANDA JANUARY 2014.".

           DISPLAY " BULAN HIJRIYAH ANDA SHOFARUL KHOIR 1435H.".

           DISPLAY "==================================================".

           Display SPACE

           DISPLAY 'Input y untuk kembali pilih menu.'.

           DISPLAY 'Input b untuk pilih bulan.'.

           ACCEPT tanya.

            if lagi CALL 'YOUR-PROGRAM-NAME'.

                IF tidak GO TO mulai

                    ELSE GO TO SELESAI.

       KODE-B.

           DISPLAY "                               ".

           DISPLAY "==================================================".

           DISPLAY " BULAN MASEHI ANDA JANUARI 2014.".

           DISPLAY " BULAN HIJRIYAH ANDA RABI'UL AWAL 1435H.".

           DISPLAY "==================================================".

           Display SPACE

           DISPLAY 'Input y untuk kembali pilih menu.'.

           DISPLAY 'Input b untuk pilih bulan.'.

           ACCEPT tanya.

            if lagi CALL 'YOUR-PROGRAM-NAME'.

                IF tidak GO TO mulai

                    ELSE GO TO SELESAI.

       KODE-C.

           DISPLAY "                               ".

           DISPLAY "==================================================".

           DISPLAY "BULAN MASEHI ANDA FEBRUARI 2014.".

           DISPLAY "BULAN HIJRIYAH ANDA RABIUL'AKHIR 1435H.".

           DISPLAY "==================================================".

           Display SPACE

           DISPLAY 'Input y untuk kembali pilih menu.'.

           DISPLAY 'Input b untuk pilih bulan.'.

           ACCEPT tanya.

            if lagi CALL 'YOUR-PROGRAM-NAME'.

                IF tidak GO TO mulai

                    ELSE GO TO SELESAI.

       KODE-D.

           DISPLAY "                               ".

           DISPLAY "==================================================".

           DISPLAY "BULAN MASEHI ANDA MARET 2014.".

           DISPLAY "BULAN HIJRIYAH ANDA RABI'UL AKHIR 1435H.".

           DISPLAY "==================================================".

           Display SPACE

           DISPLAY 'Input y untuk kembali pilih menu.'.

           DISPLAY 'Input b untuk pilih bulan.'.

           ACCEPT tanya.

            if lagi CALL 'YOUR-PROGRAM-NAME'.

                IF tidak GO TO mulai

                    ELSE GO TO SELESAI.

       KODE-E.

           DISPLAY "                               ".

           DISPLAY "==================================================".

           DISPLAY "BULAN MASEHI ANDA MARET 2014."

           DISPLAY "BULAN HIJRIYAH ANDA JUMADAL ULA 1435H."

           DISPLAY "==================================================".

           Display SPACE

           DISPLAY 'Input y untuk kembali pilih menu.'.

           DISPLAY 'Input b untuk pilih bulan.'.

           ACCEPT tanya.

            if lagi CALL 'YOUR-PROGRAM-NAME'.

                IF tidak GO TO mulai

                    ELSE GO TO SELESAI.

       KODE-F.

           DISPLAY "                               ".

           DISPLAY "==================================================".

           DISPLAY "BULAN MASEHI ANDA APRIL 2014.".

           DISPLAY "BULAN HIJRIYAH ANDA JUMADAL AKHIROH 1435H.".

           DISPLAY "==================================================".

           Display SPACE

           DISPLAY 'Input y untuk kembali pilih menu.'.

           DISPLAY 'Input b untuk pilih bulan.'.

           ACCEPT tanya.

            if lagi CALL 'YOUR-PROGRAM-NAME'.

                IF tidak GO TO mulai

                    ELSE GO TO SELESAI.

       KODE-G.

           DISPLAY "                               ".

           DISPLAY "==================================================".

           DISPLAY "BULAN MASEHI ANDA MEI 2014.".

           DISPLAY "BULAN HIJRIYAH ANDA ROJAB 1435H.".

           DISPLAY "==================================================".

           Display SPACE

           DISPLAY 'Input y untuk kembali pilih menu.'.

           DISPLAY 'Input b untuk pilih bulan.'.

           ACCEPT tanya.

            if lagi CALL 'YOUR-PROGRAM-NAME'.

                IF tidak GO TO mulai

                    ELSE GO TO SELESAI.

       KODE-H.

           DISPLAY "                               ".

           DISPLAY "==================================================".

           DISPLAY "BULAN MASEHI ANDA MEI 2014.".

           DISPLAY "BULAN HIJRIYAH ANDA SYA'BAN 1435H.".

           DISPLAY "==================================================".

           Display SPACE

           DISPLAY 'Input y untuk kembali pilih menu.'.

           DISPLAY 'Input b untuk pilih bulan.'.

           ACCEPT tanya.

            if lagi CALL 'YOUR-PROGRAM-NAME'.

                IF tidak GO TO mulai

                    ELSE GO TO SELESAI.

       KODE-I.

           DISPLAY "                               ".

           DISPLAY "==================================================".

           DISPLAY "BULAN MASEHI ANDA JUNI 2014.".

           DISPLAY "BULAN HIJRIYAH ANDA SYA'BAN 1435H.".

           DISPLAY "==================================================".

           Display SPACE

           DISPLAY 'Input y untuk kembali pilih menu.'.

           DISPLAY 'Input b untuk pilih bulan.'.

           ACCEPT tanya.

            if lagi CALL 'YOUR-PROGRAM-NAME'.

                IF tidak GO TO mulai

                    ELSE GO TO SELESAI.

       KODE-J.

           DISPLAY "                               ".

           DISPLAY "==================================================".

           DISPLAY "BULAN MASEHI ANDA JUNI 2014.".

           DISPLAY "BULAN HIJRIYAH ANDA RAMMADHAN 1435H.".

           DISPLAY "==================================================".

           Display SPACE

           DISPLAY 'Input y untuk kembali pilih menu.'.

           DISPLAY 'Input b untuk pilih bulan.'.

           ACCEPT tanya.

            if lagi CALL 'YOUR-PROGRAM-NAME'.

                IF tidak GO TO mulai

                    ELSE GO TO SELESAI.

       KODE-K.

           DISPLAY "                               ".

           DISPLAY "==================================================".

           DISPLAY "BULAN MASEHI ANDA JULI 2014.".

           DISPLAY "BULAN HIJRIYAH ANDA RAMMADHAN 1435H.".

           DISPLAY "==================================================".

           Display SPACE

           DISPLAY 'Input y untuk kembali pilih menu.'.

           DISPLAY 'Input b untuk pilih bulan.'.

           ACCEPT tanya.

            if lagi CALL 'YOUR-PROGRAM-NAME'.

                IF tidak GO TO mulai

                    ELSE GO TO SELESAI.

       KODE-L.

           DISPLAY "                               ".

           DISPLAY "==================================================".

           DISPLAY "BULAN MASEHI ANDA JULI 2014.".

           DISPLAY "BULAN HIJRIYAH ANDA SYAWAL 1435H.".

           DISPLAY "==================================================".

           Display SPACE

           DISPLAY 'Input y untuk kembali pilih menu.'.

           DISPLAY 'Input b untuk pilih bulan.'.

           ACCEPT tanya.

            if lagi CALL 'YOUR-PROGRAM-NAME'.

                IF tidak GO TO mulai

                    ELSE GO TO SELESAI.

       KODE-M.

           DISPLAY "                               ".

           DISPLAY "==================================================".

           DISPLAY "BULAN MASEHI ANDA AGUSTUS 2014.".

           DISPLAY "BULAN HIJRIYAH ANDA SYAWAL 1435H.".

           DISPLAY "==================================================".

           Display SPACE

           DISPLAY 'Input y untuk kembali pilih menu.'.

           DISPLAY 'Input b untuk pilih bulan.'.

           ACCEPT tanya.

            if lagi CALL 'YOUR-PROGRAM-NAME'.

                IF tidak GO TO mulai

                    ELSE GO TO SELESAI.

       KODE-N.

           DISPLAY "                               ".

           DISPLAY "==================================================".

           DISPLAY "BULAN MASEHI ANDA AGUSTUS 2014.".

           DISPLAY "BULAN HIJRIYAH ANDA DZUL QO'DAH 1435H.".

           DISPLAY "==================================================".

           Display SPACE

           DISPLAY 'Input y untuk kembali pilih menu.'.

           DISPLAY 'Input b untuk pilih bulan.'.

           ACCEPT tanya.

            if lagi CALL 'YOUR-PROGRAM-NAME'.

                IF tidak GO TO mulai

                    ELSE GO TO SELESAI.

       KODE-O.

           DISPLAY "                               ".

           DISPLAY "==================================================".

           DISPLAY "BULAN MASEHI ANDA SEPTEMBER 2014.".

           DISPLAY "BULAN HIJRIYAH ANDA DZUL QO'DAH 1435H.".

           DISPLAY "==================================================".

           Display SPACE

           DISPLAY 'Input y untuk kembali pilih menu.'.

           DISPLAY 'Input b untuk pilih bulan.'.

           ACCEPT tanya.

            if lagi CALL 'YOUR-PROGRAM-NAME'.

                IF tidak GO TO mulai

                    ELSE GO TO SELESAI.

       KODE-P.

           DISPLAY "                               ".

           DISPLAY "==================================================".

           DISPLAY "BULAN MASEHI ANDA SEPTEMBER 2014.".

           DISPLAY "BULAN HIJRIYAH ANDA DZULHIJJAH 1435H.".

           DISPLAY "==================================================".

           Display SPACE

           DISPLAY 'Input y untuk kembali pilih menu.'.

           DISPLAY 'Input b untuk pilih bulan.'.

           ACCEPT tanya.

            if lagi CALL 'YOUR-PROGRAM-NAME'.

                IF tidak GO TO mulai

                    ELSE GO TO SELESAI.

       KODE-Q.

           DISPLAY "                               ".

           DISPLAY "==================================================".

           DISPLAY "BULAN MASEHI ANDA OKTOBER 2014.".

           DISPLAY "BULAN HIJRIYAH ANDA DZULHIJJAH 1435H.".

           DISPLAY "==================================================".

           Display SPACE

           DISPLAY 'Input y untuk kembali pilih menu.'.

           DISPLAY 'Input b untuk pilih bulan.'.

           ACCEPT tanya.

            if lagi CALL 'YOUR-PROGRAM-NAME'.

                IF tidak GO TO mulai

                    ELSE GO TO SELESAI.

       KODE-R.

           DISPLAY "                               ".

           DISPLAY "==================================================".

           DISPLAY "BULAN MASEHI ANDA OKTOBER 2014.".

           DISPLAY "BULAN HIJRIYAH ANDA MUHARRAM 1436H.".

           DISPLAY "==================================================".

           Display SPACE

           DISPLAY 'Input y untuk kembali pilih menu.'.

           DISLAY 'Input b untuk pilih bulan.'.

           ACCEPT tanya.

            if lagi CALL 'YOUR-PROGRAM-NAME'.

                IF tidak GO TO mulai

                    ELSE GO TO SELESAI.

       KODE-S.

           DISPLAY "                               ".

           DISPLAY "==================================================".

           DISPLAY "BULAN MASEHI ANDA NOPEMBER 2014.".

           DISPLAY "BULAN HIJRIYAH ANDA MUHARRAM 1436H.".

           DISPLAY "==================================================".

           Display SPACE

           DISPLAY 'Input y untuk kembali pilih menu.'.

           DISPLAY 'Input b untuk pilih bulan.'.

           ACCEPT tanya.

            if lagi CALL 'YOUR-PROGRAM-NAME'.

                IF tidak GO TO mulai

                    ELSE GO TO SELESAI.

       KODE-T.

           DISPLAY "                               ".

           DISPLAY "==================================================".

           DISPLAY "BULAN MASEHI ANDA NOPEMBER 2014.".

           DISPLAY "BULAN HIJRIYAH ANDA SHOFARUL KHOIR 1436H.".

           DISPLAY "==================================================".

           Display SPACE

           DISPAY 'Input y untuk kembali pilih menu.'.

           DISPLAY 'Input b untuk pilih bulan.'.

           ACCEPT tanya.

            if lagi CALL 'YOUR-PROGRAM-NAME'.

                IF tidak GO TO mulai

                    ELSE GO TO SELESAI.

       KODE-U.

           DISPLAY "                               ".

           DISPLAY "==================================================".

           DISPLAY "BULAN MASEHI ANDA DESEMBER 2014.".

           DISPLAY "BULAN HIJRIYAH ANDA SHOFARUL KHOIR 1436H.".

           DISPLAY "==================================================".

           Display SPACE

           DISPLAY 'Input y untuk kembali pilih menu.'.

           DISPLAY 'Input b untuk pilih bulan.'.

           ACCEPT tanya.

            if lagi CALL 'YOUR-PROGRAM-NAME'.

                IF tidak GO TO mulai

                    ELSE GO TO SELESAI.

       KODE-V.

           DISPLAY "                               ".

           DISPLAY "==================================================".

           DISPLAY "BULAN MASEHI ANDA DESEMBER 2014.".

           DISPLAY "BULAN HIJRIYAH ANDA RABI'UL AWAL 1436H.".

           DISPLY "==================================================".\

           Display SPACE

           DISPLAY 'Input y untuk kembali pilih menu.'.

           DISPLAY 'Input b untuk pilih bulan.'.

           ACCEPT tanya.

            if lagi CALL 'YOUR-PROGRAM-NAME'.

                IF tidak GO TO mulai

                    ELSE GO TO SELESAI.

       

       selesai.

            STOP RUN.

      ** add other procedures here

       END PROGRAM Penentu-Masehi-Hijryah-2014.

output