Membaca Tiap Record File Pada CLP – Menggunakan Record Format

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:

  1. File harus di-declare pada awal program.
  2. Seluruh field pada file yang terdeclare otomatis akan menjadi variable pada program (tanpa harus declare variable).
  3. Dalam membaca file, dibutuhkan command RCVF dengan record format sesuai dengan file yang di-declare.
  4. Konsep membaca file sebenarnya seperti looping tiap record, jadi terdapat proses kembali ke label loop.

Output hasil:

Tinggalkan Balasan