一:
RTVMBRD FILE(FILEA) NBRCURRCD(&RCDN)
IF COND(&RCDN > 0) THEN(GOTO CMDLBL(END))
二:
RCVF RCDFMT(FILEA)
MONMSG MSGID(CPF0864) EXEC(GOTO CMDLBL(END))
如何判断FILE有没有记录
本文提供了一个AS400系统中处理文件的具体示例代码，包括读取文件记录并进行条件判断的流程。示例展示了如何使用RTVMBRD命令获取文件中的当前记录，并通过IF语句进行条件判断，以及如何使用RCVF命令设置文件的读取格式。
扫一扫
被折叠的 条评论
为什么被折叠?
到【灌水乐园】发言
