Pages

Minggu, 20 November 2011

" Coding File Sequential "


       IDENTIFICATION DIVISION.
       PROGRAM-ID. TUGAS6.
       AUTHOR. ASEP.
       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 "GILA.DAT"
           DATA RECORD IS PEGAWAI.
       01 PEGAWAI.
           02  NM PIC X(10).
           02  NPM  PIC X(8).
           02  STA  PIC X(10).
           02  GLO  PIC X.
           02  GJ   PIC X(10).
       WORKING-STORAGE SECTION.
       01 ULANG.
           02 DATA1 OCCURS 99 TIMES.
           03 NAPEG PIC X(10).
           03 NIP   PIC X(8).
           03 ST    PIC X(10).
           03 GOL   PIC X.
           03 GP    PIC X(10).
       01 SELEKSI PIC X.
         88 YA    VALUE "Y", "y".
         88 TIDAK VALUE "T", "t".
       77 PIL PIC X.
       77 N PIC 99.
       77 I PIC 99.
       77 II PIC ZZ.
       01 JUDUL.
         02 FILLER PIC X(20) VALUE SPACE.
         02 JDL PIC  X(15) VALUE "DATA PEGAWAI".
       01 GARIS PIC  X(21) VALUE "---------------------".
       01 NM-KOLOM.
         02 NMR PIC  X(3) VALUE "NO".
         02 FILLER PIC X VALUE SPACE.
         02 NAMA PIC X(15) VALUE "NAMA".
         02 FILLER PIC X VALUE SPACE.
         02 NP PIC X(8) VALUE "N.I.P".
         02 FILLER PIC X VALUE SPACE.
         02 STAT PIC X(7) VALUE "STATUS".
         02 FILLER PIC X VALUE SPACE.
         02 GLN PIC X(10) VALUE "GOLONGAN".
         02 FILLER PIC X VALUE SPACE.
         02 GPK PIC X(10) VALUE "GAJI POKOK".
         02 FILLER PIC X VALUE SPACE.
       SCREEN SECTION.
       01 CLS.
         02 BLANK SCREEN.
       01 MENU.
         02 LINE 1 COLUMN 8 VALUE " MENU PEGAWAI ".
         02 LINE 2 COLUMN 7 VALUE " ------------ ".
         02 LINE 3 COLUMN 7 VALUE " 1. INPUT DATA ".
         02 LINE 4 COLUMN 7 VALUE " 2. TAMPIL ".
         02 LINE 5 COLUMN 7 VALUE " 3. KELUAR ".
         02 LINE 6 COLUMN 7 VALUE " ------------ ".
         02 LINE 7 COLUMN 7 VALUE " PILIHAN ANDA : ".
         02 COLUMN PLUS 2 PIC X USING PIL.
       PROCEDURE DIVISION.
       MULAI.
           DISPLAY CLS.
           DISPLAY MENU.
           ACCEPT MENU.
           DISPLAY CLS.
           IF PIL = 1 GO TO TENTUKAN.
           IF PIL = 2
           COMPUTE I = 1
           GO TO LAPORAN.
           STOP RUN.
       TENTUKAN.
           DISPLAY CLS.
           DISPLAY (1, 1) "JUMLAH DATA: ".
           ACCEPT N.
           COMPUTE I = 1.
           OPEN OUTPUT COBA.
           PERFORM ISI N TIMES.
           CLOSE COBA.
           GO TO MULAI.
       ISI.
           DISPLAY CLS.
           DISPLAY (1, 1) "DATA KE : ", I.
           DISPLAY (3, 1) " NAMA PEGAWAI : ".
           ACCEPT NAPEG(I).
           DISPLAY (4, 1) " NIP : ".
           ACCEPT NIP(I).
           DISPLAY (5, 1) " STATUS : ".
           ACCEPT ST(I).
           DISPLAY (6, 1) " GOL : ".
           ACCEPT GOL(I).
           IF GOL(I) = "A" MOVE "100000000" TO GP(I)
           ELSE
           IF GOL(I) = "B" MOVE "80000000" TO GP(I)
           ELSE
           MOVE "500000" TO GP(I).
           MOVE NAPEG(I) TO NM.
           MOVE ST(I) TO STA.
           MOVE GP(I) TO GJ.
           WRITE PEGAWAI.
           COMPUTE I = I + 1.
       LAPORAN.
           DISPLAY CLS.
           DISPLAY JUDUL.
           DISPLAY GARIS, GARIS, GARIS.
           DISPLAY NM-KOLOM.
           DISPLAY GARIS, GARIS, GARIS.
           PERFORM HASIL N TIMES.
           DISPLAY GARIS, GARIS, GARIS.
           DISPLAY ( , ) " KEMBALI KE MENU [Y/T] : ".
           ACCEPT SELEKSI.
           IF YA GO TO MULAI.
       HASIL.
           MOVE I TO II.
           DISPLAY II, " ", NAPEG(I), " ", NIP(I), " ", ST(I), " ",
           GOL(I), " ", GP(I).
           COMPUTE I = I + 1

Tidak ada komentar:

Posting Komentar