Bagaimana membaca fail pelanjutan ubah dalam COBOL

Pengarang: Tamara Smith
Tarikh Penciptaan: 22 Januari 2021
Tarikh Kemas Kini: 22 November 2024
Anonim
Cara mengatasi no such file or directory pada termux
Video.: Cara mengatasi no such file or directory pada termux

Kandungan

COBOL IBM (Bahasa Berorientasikan Perniagaan Umum) membolehkan pengguna memproses pelbagai jenis data dalam aplikasi perisian perniagaan dan kewangan. COBOL menyokong jenis data rekod panjang boleh ubah untuk digunakan dalam fail pangkalan data yang disimpan pada cakera keras; pengguna menentukan panjang maksimum dan minimum rekod untuk menerangkan fail cakera dengan rekod panjang berubah. Membaca File Variasi Panjang Fail membolehkan anda memproses maklumat pangkalan data tanpa menetapkan saiz rekod tepat dalam program COBOL anda.


Arahan

Program COBOL boleh memproses rekod panjang berubah dalam fail pangkalan data (Jupiterimages / Photos.com / Getty Images)

  1. Taip "Edit" dalam konsol pengurusan sistem z / OS360 utama dan tekan kekunci "Enter" untuk mengedit program COBOL anda.

  2. Tambah kod berikut ke permulaan program anda:

    BAHAGIAN PENGENALAN. PROGRAM-ID. COBVAR. BAHAGIAN ALAM SEKITAR. SEKSYEN INPUT-OUTPUT. KAWALAN FILE. SELECT IFILE ASSIGN TO "IFILE".

    BAHAGIAN DI TARIKH. SEKSYEN FILE. Rekod IFILE FD IS VARIING DARI 10 hingga 50 DEPENDING PADA LEN. 01 IREC. 05 FILTER PIC X MELALUI 10 hingga 50 KEPUTUSAN TERHADAP LEN.

    BAHAGIAN PROSEDUR. P1. DISPLAY "CONTOH 1 KEBUTUHAN BERTANGGUNGJAWAB RENDAH" BUKA INPUT BUKA MELAKUKAN SEHINGGA LEN = -1 BACA IFILE PADA AKHIR TEMPAT -1 KE LEN TIDAK PADA TAMAT DISPLAY IREC DISPLAY LEN END-READ END-MELAKUKAN TUTUP IFILE DISPLAY SPACE


    PEPERIKSAAN "CONTOH TETAP RAPAT" BUKA INPUT BUKA IFILE MEMILIKI SEMUA "X" UNTUK MEMBUKA IREC IFILE PADA AKHIR MOVE -1 UNTUK PIHAK DISPLAY IREC DISPLAY SPACE

  3. Ketikkan "Simpan" pada konsol dan tekan kekunci "Enter" untuk membolehkan program memproses rekod panjang berubah.