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.

2. Picture clause & Picture Editing :
Picture clause
Picture clause digunakan untuk menerangkan masing-masing data-item yang digunakan,
mengenai ukuran dari field dan memberikan informasi dari nilai data tersebut, juga mengatur
bentuk data dimemori

Picture Editing
Berguna untuk perubahan bentuk data dari data yang telah tersimpan distorage
(memori).

3. Jenis-Jenis picture clause dan editing
Picture clause
Picture karakter 9
Menunjukkan bahwa posisi sebuah memori hanya dapat mengandung nilai-nilai
numerik saja. Bersifat right justified.

Picture karakter V
Menunjukkan lengkap anggapan dari titik desimal. Anggapan disini maksudnya
adalah titik desimal tersebut tidak ditulis di memori, sehingga tidak termasuk sebagai
panjang field.

Picture karakter P
Digunakan dengan gabungan Picture karakter V, yang digunakan untuk
menimbulkan angka 0.

Picture karakter S
Digunakan untuk menyimpan tanda dari nilai data, dan tidak dihitung sebagai
panjang field.

Picture karakter A
Digunakan untuk menyimpan nilai data huruf(alphabetic).Bersifat left justified.

Picture karakter X
Digunakan untuk menyimpan nilai data alphanumerik, dapat berupa gabungan
angka, huruf, ataupun karakter khusus.

Picture Editing
Picture editing Z
Digunakan untuk menggantika angka 0 diawal agar tidak tampak pada waktu
pencetakan.

Picture editing $
Pada saat pencetakan karakter $ akan tampak pada ujung paling kiri.

Picture editing “.”
Digunakan untuk menunjukkan letak posisi dari titik desimal pada pencetakan, hanya
boleh dipergunakan 1 saja.

Picture editing “,”
Digunakan untuk memberikan tanda koma pada tempat-tempat tertentu, dan boleh
digunakan lebih dari 1.

Picture editing “-“
Jika data asli bernilai minus maka penggunaan tanda minus di awal atau diakhir akan
menyebabkan tanda minus muncul pada saat pencetakan, sedangkan bila data positif
akan digantikan dengan blank.

Picture editing “+”
Jika tanda plus digunakan diawal atau diakhir data maka akan tampak pada pencetakan
bila data bernilai positif, jika data negatif akan muncul tanda minus, jika tidak bertanda
dianggap positif.

Picture editing B
Digunakan untuk mengedit nilai data bukan numerik.Blank akan disisipkan pada posisi
dinama karakter B ditempatkan.

Picture editing “*”
Digunakan untuk menggantikan nilai nol pada nilai data disebelah kanan dengan tanda *.

Picture editing 0(nol)
Digunakan untuk menyisipkan angka 0 pada posisi dimana karakter 0 ditempatkan.

Picture editing “/”
Digunakan untuk menyisipkan karakter “/” diposisi dimana karakter tersebut ditempatkan.

Picture editing DB dan CR
Sering digunakan pada aplikasi akuntansi. Ditulis mulai ujung sebelah kanan dari picture,
dan hasilnya hanya tampak pada hasil edit bila nilai datanya negatif.

4. Contoh Program :
        IDENTIFICATION DIVISION.
    PROGRAM-ID. TEST.
    ENVIRONMENT DIVISION.
    DATA DIVISION.
    WORKING-STORAGE SECTION.
    77 X PIC 9.
    77 Y PIC 09.
    77 I PIC Z9.
    77 P PIC $9.
    77 O PIC 99.9.
    SCREEN SECTION.
    01 CLS.
        02 BLANK SCREEN.
    PROCEDURE DIVISION.
    MULAI.
        DISPLAY (2, 1) 'Masukan Angka : '. ACCEPT X.
        MOVE X TO Y.
        DISPLAY Y.
        MOVE X TO I.
        DISPLAY I.
        MOVE X TO P.
        DISPLAY P.
        COMPUTE O = X + X.
        DISPLAY O.
        STOP RUN.
Output :