Pada kali ini saya akan membahas mengenai membaca tiap record pada suatu file di dalam CLP menggunakan record format pada suatu file. Untuk mengetahui record format file yang akan baca, kita dapat menggunakan command Display File Field Description (DSPFFD).
Pada CLP, untuk membaca suatu file menggunakan command DCLF terlebih dahulu. Otomatis seluruh field pada file tersebut menjadi variable pada program yang kita buat. Command DSPFFD digunakan untuk mengetahui record format dan field yang ada pada file tersebut.
Berikut contohnya:
PGM
DCLF FILE(SOOLDAT/TESTFILE)
DCL VAR(&OUTPUT) TYPE(*CHAR) LEN(50)
LOOP: RCVF RCDFMT(TESTFILE)
MONMSG MSGID(CPF0864) EXEC(GOTO CMDLBL(EOP))
CHGVAR VAR(&OUTPUT) VALUE('Name :' *CAT &NAME *TCAT +
', Address : ' *CAT &ADDRESS)
SNDPGMMSG MSG(&OUTPUT)
GOTO CMDLBL(LOOP)
EOP: ENDPGM

Beberapa catatan dalam program diatas:
- File harus di-declare pada awal program.
- Seluruh field pada file yang terdeclare otomatis akan menjadi variable pada program (tanpa harus declare variable).
- Dalam membaca file, dibutuhkan command RCVF dengan record format sesuai dengan file yang di-declare.
- Konsep membaca file sebenarnya seperti looping tiap record, jadi terdapat proses kembali ke label loop.
Output hasil:
