AS/400提供了RGZPFM来释放一个physical file的member中已被删除的记录所占有的硬盘空间，但是，
它只能一个一个文件的的释放，我的这个library中有上千个physical file需要释放空间，
那我怎么做，总不能手工执行RGZPFM命令上千次吧
其实和STRJRNPF是一样的？？如果有1000个表就要STRJRNPF1000次？？
| michael9406 回复于：2003-10-22 17:36:47 | ||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
| 以前这里有一个工具的，你找一下，可以用的。 | ||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
| zzzddd 回复于：2003-10-22 17:47:42 | ||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
| 做一个opTION吧！然后以LIBRARY为单位一下子做。 | ||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
| michael9406 回复于：2003-10-22 19:27:05 | ||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
| Auto RGZPFM
But here is an CL program to RGZPFM files that > 15% deleted records. We auto-scheduled it to run on the weekends over selected libraries. It worked well, but we never had files with millions of records either. Terry STRCLPGM: PGM PARM(&LIBRARY) DCL VAR(&LIBRARY) TYPE(*CHAR) LEN(10) DCL VAR(&PERCENT) TYPE(*DEC) LEN(4 3) DCLF FILE(QTEMP/WORKFILE) RCDFMT(QWHFDMBR) 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(&PERCENT) VALUE(&MBNDTR / &MBNRCD) MONMSG MSGID(MCH1211) EXEC(GOTO CMDLBL(NEXT)) IF COND(&PERCENT *GT .15) THEN(DO) SBMJOB CMD(RGZPFM FILE(&MBLIB/&MBFILE) MBR(&MBNAME)) ENDDO ENDDO GOTO CMDLBL(NEXT) ENDCLPGM: DLTF FILE(QTEMP/WORKFILE) ENDPGM | ||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
| xuguopeng 回复于：2003-10-22 21:02:47 | ||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
| 上面的程序我看懂了，就是把文件的描述信息写到一个文件里，然后根据文件的描述提取文件属性，如果被删除的记录数占总记录数的15%以上，就执行RZGPFM。
这个程式好象不全啊？？ 1.几个变量没有声明 2.并没有写到如何从文件中提取属性，我现在就是没搞明白如何才能在包含文 描述信息的文件中提取某些信息给变量呢？？？ 3.里面WORKFILE这个文件的格式是QWHFDMBR，这是什么格式啊？？ 为什么会提示我NOT FOUND这个文件呢？？ | ||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
| michael9406 回复于：2003-10-22 21:47:50 | ||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
| please generate QTEMP/WORKFILE) first. | ||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
| xuguopeng 回复于：2003-10-22 22:16:33 | ||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
| 对了 我就是没搞明白如何创建QWHFDMBR这种格式的文件，PF不行，所有CRT类的命令我都看了没发现有创建这种格式的文件啊？？ | ||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
| michael9406 回复于：2003-10-22 22:44:31 | ||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
| DSPFD FILE(USER) TYPE(*MBR) OUTPUT(*OUTFILE) OUTFILE(QTEMP/WORKFILE)
Output file WORKFILE created in library QTEMP. Member WORKFILE added to output file WORKFILE in library QTEMP. 1 records added to member WORKFILE in file WORKFILE in QTEMP. | ||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
| stephenxie2003 回复于：2003-10-23 10:05:05 | ||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
| 请问xuguopeng ：
你试验成功了吗？ 那几个变量如何定义（声明）啊？  | ||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
| xuguopeng 回复于：2003-10-23 10:38:51 | ||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
| 没搞明白 声明变量到是不难 就是如何把对应的值取到变量里难到我了 | ||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
| zzzddd 回复于：2003-10-23 14:16:54 | ||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
| 这个程序也只能删一个LIbrary下的阿！
没有RPG或cobol的配合，好像只能删一个library。 | ||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
| xuguopeng 回复于：2003-10-23 14:29:25 | ||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
| 可惜我一个也没搞明白~ 哎 笨死了 | ||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
| stephenxie2003 回复于：2003-10-23 16:47:40 | ||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
| 我怎么连编译都报错啊？
请问：哪几个变量需要定义？ 请成功的朋友帮忙写出来好吗？ 谢谢！ | ||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
| xuguopeng 回复于：2003-10-23 16:58:29 | ||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
| 还是根据人家的大体意思自己想办法吧 现在难就难在怎么从OUTFILE里提取需要的值赋给变量呢？？ | ||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
| stephenxie2003 回复于：2003-10-24 09:11:33 | ||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
| 是啊是啊！
请michael9406大哥帮帮忙！ 写得再详细一点好吗？ 谢谢！ | ||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
| kimdai 回复于：2003-10-25 12:46:57 | ||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
怎么上传 附件啊？这章.gif就是那个savf了
| ||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
