LA COBOL VI

Program Menu 
    IDENTIFICATION DIVISION.
    PROGRAM-ID. TEST.
    ENVIRONMENT DIVISION.
    INPUT-OUTPUT SECTION
    FILE-control.
        SELECT COBA ASSIGN TO DISK
        ORGANIZATION IS SEQUENTIAL
        ACCESS MODE IS SEQUENTIAL.
    DATA DIVISION.
    FILE SECTION.
    FD COBA
       LABEL RECORD IS STANDARD
       VALUE OF FILE-ID IS "AA.DAT"
       DATA RECORD IS PEGAWAI.
    01 pegawai.
       02 NAMA PIC X(15).
       02 NPM PIC X(8).
       02 STA PIC X(10).
       02 GLO PIC X.
       02 GJ PIC X(10).
    WORKING-STORAGE SECTION.
    77 PIL PIC 9.
    77 N PIC 99.
    77 I PIC 99.
    77 I1 PIC ZZ.

LP COBOL V

1. Apa yang kalian ketahui tetntang menu pad cobol ?
Menu pada cobol adalah semacam tampilan muka yang ada pada output sejenis pilihan misalkan ada menu berjudul  “MENU PROGRAM”, yang dibawahnya terdapat 3 pilihan yaitu 1.perulangan, 2.kondisi, 3.exit, untuk membuat Menu pada Cobol kita bisa menggunakan kondisi, dengan IF, struktur kondisi akan membatasi dalam arti apabila kita memilih masukan pilihan dengan 1 atau 2 atau 3 maka program akan memproses dan menampilkan hanya 1 kondisi, dan tidak menampilkan semua program yang telah terbuat.

LA COBOL V

Program 1
    IDENTIFICATION DIVISION.
    PROGRAM-ID. TEST.
    ENVIRONMENT DIVISION.
    DATA DIVISION.
    WORKING-STORAGE SECTION.
    01 AWAL.
        02 NAMA PIC X(10) OCCURS 10 TIMES.
        02 KELAS PIC X(10) OCCURS 10 TIMES.
        02 NPM PIC X(10) OCCURS 10 TIMES.
    77 I PIC 99.
    77 N PIC 99.
    screen section.
    01 cls.
        02 blank screen.
    PROCEDURE DIVISION.
    MULAI.
        DISPLAY (, ) 'Input Jumlah Data : ' ACCEPT N.
        PERFORM HASIL VARYING I FROM 1 BY 1 UNTIL I=N.

Tugas Teknik Pemrog. Terstruktur 1

Program 1
    IDENTIFICATION DIVISION.
    PROGRAM-ID. BAYAR.
    ENVIRONMENT DIVISION.
    DATA DIVISION.
    WORKING-STORAGE SECTION.
    01 DATA-MASUKA.
        02 NAMA PIC A(10).
        02 GAJI.
           03 GAJI-POKOK PIC 9(6).
           03 TUNJANGAN PIC 9(6).
           03 GAJI-POKOK1 PIC Z(6).
           03 TUNJANGAN1 PIC Z(6).
        02 TOTAL-GAJI PIC Z(7).
        02 TANYA PIC A.
    SCREEN SECTION.
    01 CLS.
        49 BLANK SCREEN.
    PROCEDURE DIVISION.
    MULAI.

LP COBOL IV

Soal :
1. Apa yang dimaksud array pada cobol?
2. Sebutkan dan jelaskan macam – macam array
3. Buat program sederhana array

LA COBOL IV

Program 1 
        IDENTIFICATION DIVISION.
        PROGRAM-ID. TEST.
        AUTHOR. SHIRO.
        ENVIRONMENT DIVISION.
        DATA DIVISION.
        SCREEN SECTION.
        01 CLS.
            02 BLANK SCREEN.
        PROCEDURE DIVISION.
        MULAI.
            DISPLAY CLS.
            PERFORM PROCEDURE-A 3 TIMES.
            PERFORM PROCEDURE-B 5 TIMES.
            PERFORM PROCEDURE-A 3 TIMES.
            PROCEDURE-A.
            DISPLAY '********************'.
            DISPLAY '^^^^^^^^^^^^^^^^^^^^'.
        PROCEDURE-B.
            DISPLAY 'CIUS??? MIAPAH??? MACACIH???'.

LP COBOL III

Soal :

1. apa yang kamu ketahui tentang statement perulangan pada cobol?
2. sebutkan bentuk umum statement perulangan pada cobol!
3. sebutkan jenis2 statement perulangan pada cobol!

LA COBOL III

Program 1 :
       identification division.
       program-id. perulangan3.
       environment division.
       data division.
       screen section.
       01 cls.
           02 blank screen.
       procedure division.
       mulai.
           display cls.
           perform pro-a.
           perform pro-b 10 times.
           perform pro-a.
           DISPLAY 'ASISTEN'.
           perform pro-b.
           Display '---------------'.
           perform pro-a.
       selesai.
           stop run.
       pro-a.
           display '***************'.
       pro-b.
           display 'LABSI'.

LP COBOL II

1. Apa yang anda ketahui tentang statement kondisi pada cobol
2. Sebutkan bentuk umum statement kondisi pada cobol
3. Bagaimana cara mewarnai background, foreground dan teks pada cobol

LA COBOL II

Program 1 :
       IDENTIFICATION DIVISION.
       PROGRAM-ID. LATIH3.
       ENVIRONMENT DIVISION.
       DATA DIVISION.
       WORKING-STORAGE SECTION.
       01 VAR.
           02 NAMA PIC A(30).
           02 MID PIC 9(3).
           02 UAS PIC 9(3).
           02 FINAL PIC Z99.
       SCREEN SECTION.
       01 CLS.
           02 BLANK SCREEN.
       01 MASUKAN.
           02 LINE 9 COLUMN 9 VALUE "NAMA  :".
           02 COLUMN PLUS 2 PIC X(30) TO NAMA.
           02 LINE 10 COLUMN 9 VALUE "MID   :".
           02 COLUMN PLUS 2 PIC 9(3) TO MID.
           02 LINE 11 COLUMN 9 VALUE "UAS   :".
           02 COLUMN PLUS 2 PIC 9(3) TO UAS.
       01 KELUARAN.
           02 LINE 14 COLUMN 9 VALUE "NAMA    :".
           02 line 15 column 9 VALUE "uts     :".
           02 LINE 16 COLUMN 9 VALUE "UAS     :".
           02 LINE 17 COLUMN 9 VALUE "FINAL   :".
       PROCEDURE DIVISION.
       MULAI.
           DISPLAY CLS.
           DISPLAY MASUKAN.
           ACCEPT MASUKAN.
           COMPUTE FINAL = (0.7 * MID) + (0.3 * UAS).
           DISPLAY KELUARAN.
           DISPLAY (14, 17) NAMA.
           DISPLAY (15, 17) MID.
           DISPLAY (16, 17) UAS.
           DISPLAY (17, 17) FINAL.
       SELESAI.
           STOP RUN.

LP COBOL I

Soal :
1. Apa yang kalian ketahui tentang input output section ?
2. Jelaskan paebedaan picture clause dan editing ?
3. Sebutkan & jelaskan jenis-jenis picture clause dan editing ?
4. Buat contoh program picture clause dan editing ?

Jawaban :

1. INPUT-OUTPUT SECTION
Bila akan digunakan file dengan media simpanan sekunder,maka paragraph FILE_CONTROL
dalam seksi ini harus ditulis. FILE_CONTROL entry terdiri dari 3 bentuk, tergantung dari
organisasi file yang dipergunakan, yaitu ; Sequential file, indexed file, dan relative file.

LA COBOL I

Program 1 :
    IDENTIFICATION DIVISION.
    PROGRAM-ID. HELLO.
    ENVIRONMENT DIVISION.
    DATA DIVISION.
    SCREEN SECTION.
    01 CLS.
        02 BLANK SCREEN.
    PROCEDURE DIVISION.
    MULAI.
        DISPLAY CLS.
        DISPLAY (3, 4) 'Hello World (^o^)'.
        STOP RUN.

Edit Cobol :

Statment Kondisi COBOL

CONDITIONAL STATEMENT
Perintah kondisi dipergunakan untuk menyeleksi suatu kondisi. Perbedaan conditional statement dengan imperative statement yang sering dijumpai adalah :

• Conditional statement adalah suatu statement yang dipergunakan untuk menyeleksi suatu kondisi/syarat dan akan mengerjakan suatu operasi tergantung dari nilai kondisinya

• Imperative statement adalah statement yang langsung mengerjakan operasi tanpa ada penyeleksian suatu kondisi.

Seluruh perintah kondisi dalam COBOL diawali dengan IF Verb. Ada beberapa jenis perintah

• kondisi dalam COBOL.
• Kondisi sederhana (Simple condition)
• Kondisi tanda (Sign condition)
• Kondisi kelas (class condition)
• Kondisi bersarang (Nested condition)
• Kondisi kompleks/jamak (Complex condition/Compound condition)

COBOL

DEFINISI COBOL
COBOL atau Common Bussiness Oriented Language adalah bahasa pemrograman computer, yang dirancang untuk menyelesaikan persoalan bisnis dan merupakan program terstruktur.

PERKEMBANGAN COBOL

• Tahun 1958 : Pertama kali diciptakan oleh CODASYL
• Tahun 1960 : Versi COBOL – 60 , versi pertama
• Tahun 1968 : ANSI COBOL gunakan standart ANSI
• Tahun 1974 : ANSI COBOL 1974
• Tahun 1985 : ANSI COBOL 1985

MS.COBOL versi 2.2 mengikuti ANSI COBOL 1974
MS.COBOL versi 3.0 mengikuti ANSI COBOL 1985 di luncurkan tahun 1988.