PGM
DCLF FILE(QTEMP/DISK_USED)
LOOP: RCVF
MONMSG MSGID(CPF0864) EXEC(GOTO CMDLBL(EXIT))
/* do your processing */
GOTO CMDLBL(LOOP)
EXIT: ENDPGM
:em11:
xuguopeng 回复于：2006-01-09 16:58:04
CLP操作文件的功能很弱 尤其是不能控制记录指针.........这点让我很是郁闷
也就是没有 *LOVAL SETLL PF这个功能
fairyboy 回复于：2006-01-10 08:36:02
和READ做一个PF的记录遍读取
Stealer 回复于：2006-01-10 10:11:07
像CPF0864这样的监控信息，怎么才能知道不同的号代表怎样的信息？
用什么命令可以查询？
pl421 回复于：2006-01-10 10:37:49
引用：原帖由 Stealer 于 2006-1-10 10:11 发表
像CPF0864这样的监控信息，怎么才能知道不同的号代表怎样的信息？
用什么命令可以查询？
RCVF 关键字 F1查阅。
sean810 回复于：2006-03-31 13:20:50
请问有多条记录，cl怎么取第二条记录？
xuguopeng 回复于：2006-03-31 13:48:05
不是有LOOP循环么.............
liu__jiang 回复于：2006-04-03 09:19:31
引用：原帖由 Stealer 于 2006-1-10 10:11 发表
像CPF0864这样的监控信息，怎么才能知道不同的号代表怎样的信息？
用什么命令可以查询？
WRKMSGD
至尊宝宝 回复于：2006-12-06 10:49:36
引用：原帖由 xuguopeng 于 2006-1-9 16:58 发表
CLP操作文件的功能很弱 尤其是不能控制记录指针.........这点让我很是郁闷
也就是没有 *LOVAL SETLL PF这个功能
类似chain的功能也没有吗？
至尊宝宝 回复于：2006-12-06 14:33:03
引用：原帖由 xuguopeng 于 2006-1-9 16:58 发表
CLP操作文件的功能很弱 尤其是不能控制记录指针.........这点让我很是郁闷
也就是没有 *LOVAL SETLL PF这个功能
类似chain的功能也没有吗？
mhdc 回复于：2006-12-06 20:54:13
V5R3 开始有了吗? 我上次记得好像是v5r4还是r3的发布时说过,加强了CL操作文件.
qingzhou 回复于：2006-12-07 13:19:11
我补充完整Reading a Database File in CLP格式：
PGM
DCL VAR(&MSGDTA) TYPE(*CHAR) LEN(80)
DCL VAR(&MSGID) TYPE(*CHAR) LEN(7)
DCLF FILE(filename)
MONMSG MSGID(CPF0000 MCH0000) EXEC(GOTO CMDLBL (ERROR))
READ: RCVF RCDFMT (fmtname)
MONMSG MSGID(CPF0864) EXEC(GOTO CMDLBL (END))
/* Record Process Goes Here */
GOTO READ
ERROR: RCVMSG MSGTYPE(*EXCP) MSGDTA(&MSGDTA) +
MSGID(&MSGID)
MONMSG MSGID(CPF0000)
SNDPGMMSG MSGID(&MSGID) MSGF(QCPFSMG) MSGDTA(&MSGDTA) +
MSGTYPE(*ESCAPE)
MONMSG MSGID(CPF0000)
END: ENDPGM
cdgyj 回复于：2006-12-29 16:48:28
8错
至尊宝宝 回复于：2007-01-12 16:17:19
OVRDBF FILE(FILENAME) POSITION(*KEY 0 FILEFTM KEYNAME)
RCVF
上面这条语句起到chain的作用
| 