Listing Kampus Cobol

      Listing Kampus Cobol

       IDENTIFICATION DIVISION.
       PROGRAM-ID. KAMPUS.
       ENVIRONMENT DIVISION.
       DATA DIVISION.
       WORKING-STORAGE SECTION.
       77 Jawab PIC A.
       PROCEDURE DIVISION.
       Tanya.


           DISPLAY "Masukkan Jawab berupa huruf (D/E/J/K)?".
           ACCEPT Jawab.

       SELEKSI-Jawab.

           IF Jawab = "D" GO TO Kode-D.
           IF Jawab = "E" GO TO Kode-E.
           IF Jawab = "J" GO TO Kode-J.
           IF Jawab = "K" GO TO Kode-K.

        Kode-D.
           DISPLAY "Kampus DEPOK".
           GO TO SELESAI.

        Kode-E.
           DISPLAY "Kampus KELAPA DUA".
           GO TO SELESAI.

        Kode-J.
           DISPLAY "Kampus KALIMALANG".
           GO TO SELESAI.

        Kode-K.
           DISPLAY "Kampus KEMANG".
           GO TO SELESAI.

        SELESAI.
           STOP RUN.