Koding Sequensial

 IDENTIFICATION DIVISION.
       PROGRAM-ID. SQUENANNA.
       AUTHOR.
       SECURITY. PROGRAM MEMASUKAN DATA SEQUENSIAL.
       ENVIRONMENT DIVISION.
       INPUT-OUTPUT SECTION.
       FILE-CONTROL.
           SELECT PENJUALAN ASSIGN TO DISK.
           ORGANIZATION IS SEQUENTIAL.
           ACCESS MODE IS SEQUENTIAL.
           FILE STATUS IS STATUS-SALAH.
       DATA DIVISION.
       FILE SECTION.
       FD PENJUALAN.
          LABEL RECORD IS STANDARD.
          VALUE OF FILE-ID IS JUAL.DAT.
          DATA RECORD IS RECORD-RELASI.
       01 DATA-PENJUALAN.
          02 NOMER-FAKTUR PIC X(12).
          02 NAMA-LANGGANAN PIC X(25).
          02 KODE-JUAL PIC A.
             88 TUNAI VALUE IS 'T'.
             88 KREDIT VALUE IS 'K'.
          02 NILAI-JUAL PIC 9(6).
       WORKING-STORAGE SECTION.
       77 STATUS-SALAH PIC XX.
       01 SUDAH-BENAR PIC X.
           88 BENAR VALUE 'Y','y'.
           88 BELUM VALUE 'T','t'.
       01 MASUKAN-LAGI-TIDAK PIC X.
           88 LAGI VALUE 'Y','y'.
           88 TIDAK VALUE 'T','t'.
       SCREEN SECTION.
       01 HAPUS-LAYAR.
           02 BLANK SCREEN.
       01 LAYAR-DATA.
           02 LINE 4 COLUMN 5 'NOMER FAKTUR  :'.
           02 COLUMN PLUS 1 PIC X(12) TO NOMER-FAKTUR REQUIRED.
           02 LINE 6 COLUMN 5 'NAMA LANGGANAN:'.
           02 COLUMN PLUS 1 PIC X(25) TO NAMA-LANGGANAN.
           02 LINE 8 COLUMN 5 'KODE TRANSAKSI:'.
           02 COLUMN PLUS 1 PIC A TO KODE-JUAL.
           02 LINE 10 COLUMN 5 'NILAI PENJUALAN:'.
           02 COLUMN PLUS 1 PIC 9(6) TO NILAI-JUAL.
       PROCEDURE DIVISION.
       RUTIN-UTAMA SECTION.
       BUKA-FILE.
           OPEN OUTPUT PENJUALAN.
       MULAI.
           MOVE SPACE TO SUDAH-BENAR.
           PERFORM MASUKAN-DATA UNTIL BENAR.
           PERFORM REKAM-DATA.
           PERFORM ADA-LAGI-TIDAK.
       SELEKSI-MASUKAN-LAGI-TIDAK.
           IF LAGI GO TO MULAI.
       SELESAI.
           CLOSE PENJUALAN.
           STOP ' '.
           STOP RUN.
       RUTIN-BAGIAN SECTION.
       MASUKAN-DATA.
           DISPLAY HAPUS-LAYAR.
           DISPLAY LAYAR-DATA.
           ACCEPT LAYAR-DATA.
           DISPLAY (18,5) 'SUDAH BENAR (Y/T) ?'.
           ACCEPT (,) SUDAH-BENAR.
           STOP ' '.
           STOP RUN.
       REKAM-DATA.
           MOVE '' TO STATUS-SALAH.
           WRITE DATA-PENJUALAN.
           PERFORM SELEKSI-REKAMAN.
       ADA-LAGI-TIDAK.
           DISPLAY (10,5) 'ADA LAGI DATA (Y/T) ?'.
           ACCEPT (,) MASUKAN-LAGI-TIDAK.
       SELEKSI-REKAMAN.
           IF STATUS-SALAH = '34'.
           DISPLAY (18,5) 'TIDAK TEREKAM, DISK PENUH'.
           IF STATUS-SALAH = '91'.
           DISPLAY (18,5) 'STRUKTUR FILE RUSAK'.

Flowchart Penerimaan Pegawai Perusahaan

Ini adalah bagan flowchart penerimaan pegawai perusahaan. Dibuat dengan menggunakan software yEd.
Penjelasan flowchart adalah sebagai berikut :
1. Mulai untuk memulai flowchart.
2. Pendaftar melakukan pendaftaran di bagian HRD.
3. Masukkan syarat administrasi yang diminta.
4. Jika Pria maka menjadi karyawan lapangan. Lalu lakukan tes tertulis, jika lolos maka lanjutkan ke tes kesehatan. Jika lolos maka diterima, jika tidak maka gagal alu selesai.
5. Jika bukan pria maka menjadi karyawan kantor. Lalu lakukan psikotes, jika lolos maka lanjutkan ke wawancara. Jika lolos maka diterima, jika tidak maka gagal lalu selesai.