1 234 5 6 / 6 页下一页

RGZPFM的问题 [复制链接]

michael9406

荣誉版主

论坛徽章:: 0

21楼 [报告]

发表于 2003-10-28 21:39 |只看该作者

RGZPFM的问题

可能是版本的问题。

实战分享：从技术角度谈机器学习入门| 【大话IT】RadonDB低门槛向MySQL集群下战书 | ChinaUnix打赏功能已上线！ | 新一代分布式关系型数据库RadonDB知多少？

xuguopeng

富足长乐

论坛徽章:: 0

22楼 [报告]

发表于 2003-10-28 21:56 |只看该作者

RGZPFM的问题

晕~~~ 我再研究研究去

实战分享：从技术角度谈机器学习入门| 【大话IT】RadonDB低门槛向MySQL集群下战书 | ChinaUnix打赏功能已上线！ | 新一代分布式关系型数据库RadonDB知多少？

stephenxie2003 该用户已被删除	23楼 [报告] 发表于 2003-11-05 14:59 \|只看该作者提示: 作者被禁止或删除内容自动屏蔽
stephenxie2003 该用户已被删除	实战分享：从技术角度谈机器学习入门\| 【大话IT】RadonDB低门槛向MySQL集群下战书 \| ChinaUnix打赏功能已上线！ \| 新一代分布式关系型数据库RadonDB知多少？

stephenxie2003 该用户已被删除	24楼 [报告] 发表于 2003-11-05 16:06 \|只看该作者提示: 作者被禁止或删除内容自动屏蔽
stephenxie2003 该用户已被删除	实战分享：从技术角度谈机器学习入门\| 【大话IT】RadonDB低门槛向MySQL集群下战书 \| ChinaUnix打赏功能已上线！ \| 新一代分布式关系型数据库RadonDB知多少？

xuguopeng

富足长乐

论坛徽章:: 0

25楼 [报告]

发表于 2003-11-05 20:35 |只看该作者

RGZPFM的问题

代码没有问题的，只要先生成WORKFILE就好

实战分享：从技术角度谈机器学习入门| 【大话IT】RadonDB低门槛向MySQL集群下战书 | ChinaUnix打赏功能已上线！ | 新一代分布式关系型数据库RadonDB知多少？

stephenxie2003 该用户已被删除	26楼 [报告] 发表于 2003-11-06 13:03 \|只看该作者提示: 作者被禁止或删除内容自动屏蔽
stephenxie2003 该用户已被删除	实战分享：从技术角度谈机器学习入门\| 【大话IT】RadonDB低门槛向MySQL集群下战书 \| ChinaUnix打赏功能已上线！ \| 新一代分布式关系型数据库RadonDB知多少？

xuguopeng

富足长乐

论坛徽章:: 0

27楼 [报告]

发表于 2003-11-06 13:29 |只看该作者

RGZPFM的问题

贴出错误消息吧

实战分享：从技术角度谈机器学习入门| 【大话IT】RadonDB低门槛向MySQL集群下战书 | ChinaUnix打赏功能已上线！ | 新一代分布式关系型数据库RadonDB知多少？

vampirec

白手起家

论坛徽章:: 0

28楼 [报告]

发表于 2003-11-06 14:13 |只看该作者

RGZPFM的问题

我来解释一下程序

/* 程序入口 */
STRCLPGM: PGM PARM(&LIBRARY)

/* 以下申明变量和文件 */
DCL VAR(&LIBRARY) TYPE(*CHAR) LEN(10)
DCL VAR(&

ERCENT) TYPE(*DEC) LEN(4 3)
DCLF FILE(QTEMP/WORKFILE) RCDFMT(QWHFDMBR)

/* 通过DSPFD将LIB下所有的MEMBER属性写入QTEMP/WORKFILE */
DSPFD FILE(&LIBRARY/*ALL) TYPE(*MBR) +
OUTPUT(*OUTFILE) OUTFILE(QTEMP/WORKFILE)

/*  逐条读取记录 */
NEXT: RCVF RCDFMT(QWHFDMBR)
MONMSG MSGID(CPF0864) EXEC(GOTO CMDLBL(ENDCLPGM))

/*  如果是物理数据文件，则计算删除的空间比 */
IF COND(&MBFILA *EQ '*PHY') THEN(DO)
CHGVAR VAR(&

ERCENT) VALUE(&MBNDTR / &MBNRCD)
MONMSG MSGID(MCH1211) EXEC(GOTO CMDLBL(NEXT))

/* 如果空间比>;15%，提交JOB来RGZPFM */
IF COND(&

ERCENT *GT .15) THEN(DO)
SBMJOB CMD(RGZPFM FILE(&MBLIB/&MBFILE) MBR(&MBNAME))
ENDDO
ENDDO
GOTO CMDLBL(NEXT)
ENDCLPGM: DLTF FILE(QTEMP/WORKFILE)
ENDPGM

备注：运行程序前，现通过DSPFD来创建QTEMP/WORKFILE，&MBNDTR和&MBNRCD应该都是WORKFILE中的字段名

实战分享：从技术角度谈机器学习入门| 【大话IT】RadonDB低门槛向MySQL集群下战书 | ChinaUnix打赏功能已上线！ | 新一代分布式关系型数据库RadonDB知多少？

vampirec

白手起家

论坛徽章:: 0

29楼 [报告]

发表于 2003-11-06 14:24 |只看该作者

RGZPFM的问题

我测试了一下程序，发现无法申明QTEMP下的WORKFILE。更改LIB后编译通过！（当然事先要在其它LIB中生成好WORKFILE）

实战分享：从技术角度谈机器学习入门| 【大话IT】RadonDB低门槛向MySQL集群下战书 | ChinaUnix打赏功能已上线！ | 新一代分布式关系型数据库RadonDB知多少？

stephenxie2003 该用户已被删除	30楼 [报告] 发表于 2003-11-06 14:36 \|只看该作者提示: 作者被禁止或删除内容自动屏蔽
stephenxie2003 该用户已被删除	实战分享：从技术角度谈机器学习入门\| 【大话IT】RadonDB低门槛向MySQL集群下战书 \| ChinaUnix打赏功能已上线！ \| 新一代分布式关系型数据库RadonDB知多少？

1 234 5 6 / 6 页下一页

返回列表

Chinaunix › 论坛 › 操作系统 › AS400 › RGZPFM的问题