Program cobol biodata mahasiswa

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. 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.

output