Akhirnya ada juga tentang AS400 yang bisa saya share disini, sekalian reminder juga buat sendiri… :p

klo perlu read table (PF) tapi pengen di CL kita bisa pake command RCVF (Receive File). Nah, nama file yang akan dibuka di declare dulu pake DCLF (Declare File) dibagian declare variabel. CPF0864 (End of file detected for file) bisa digunakan untuk nge-cek apakah record found or not found.

Contoh code :

* PF (SPOOL1P) :
A          R SPOOLR
A            SPOOL 133A

/*CL :*/
PGM

DCL  VAR(&STSJOB) TYPE(*CHAR) LEN(4)
DCLF FILE(SPOOL1P)

RCVF   RCDFMT(SPOOLR)
MONMSG MSGID(CPF0864) EXEC(GOTO CMDLBL(EXIT))
CHGVAR VAR(&STSJOB) VALUE(%SST(&SPOOL 111 4))

EXIT:
ENDPGM

Command ini selanjutnya saya kembangkan untuk cek status job, apakah MSGW atau tidak. Untuk bagian ini…. insya Allah saya posting lagi nanti…😉
Semoga bermanfaat…