现在的位置: 首页 > 综合 > 正文

如何重新找回物理文件中已经被删除的记录

2012年06月27日 ⁄ 综合 ⁄ 共 2243字 ⁄ 字号 评论关闭
序言:
这是一个允许查看/拷贝/找回物理文件中已经被删除的记录的工具。你可以交互地显示活动的和被删除的
记录,扫描到被删除的记录,并将它们恢复回来。此外,你还可以通过这个工具将记录拷贝并打印出来,或者
输出到一个输出文件,或者是在不显示记录的情况下,直接恢复被删除的记录。
与其他恢复被删除的记录的工具不同,UNDEL并不会把物理文件拷贝到SAVF中,而是直接在物理文件的记录
上直接操作,这对于有着很多记录的物理文件来说,速度会快很多。
UNDEL可以运行在RISC系统上:V3R7及以上版本,同时系统安全级别(系统值QSECURITY)设为40或50。

工作原理:
当一个应用程序删除了物理文件里的一条记录(例如:通过RPG语言中的DELETE代码),OS/400并不会真正
从存储介质上将其除去,而仅仅是在记录中设置一个数位来标明记录已经被删除。一旦这个数位被设置,通过
通常的数据库操作,OS/400将永远不会访问到这些记录。但是,你可以通过提交一个"通过RRN写数据"的操作,
重新使用这些记录,例如:在RPG程序中一条带RECNO参数的WRITE命令。这时,OS/400将回置标明被删除的哪
个数位,并且将新的记录覆盖在原来已经删除的这条记录的位置上。
这就是UNDEL的工作原理,其实它并不是恢复已删除的记录,而是在它之上重新写一个新的记录。重点在
于:UNDEL首先找回被删除的数据,然后将数据写回新的记录。由于OS/400拒绝回收旧记录中的数据,UNDEL就
跳过数据库的操作,它找到文件中的记录在数据库中的位置,然后通过简单的数位移动命令将记录恢复。
请注意,UNDEL并不真正修改物理文件中的内容,更新记录信息的操作是通过应用程序提交一个合法的
WRITE操作来实现的。(事实上,提交WRITE操作的是一个COBOL程序。)

内容:
UNDELRIS.ZIP文件包含以下内容:
-- README
-- UNDEL.LIB AS/400上名为UNDEL的库,SAVF格式。
-- PF528.FDF 528位物理文件RFROMPC的描述文件。
-- TOSAVF.REX 将物理文件拷贝成SAVF文件的源代码

UNDEL.LIB包含以下内容:
-- UNDEL 命令
-- UNDELR 命令调用的CPP
-- UNDELM MI层的程序
-- UNDELCB 写记录的COBOL程序
-- UNDELC CL功能
-- UNDELMC CL功能的消息处理
-- UNDELD 显示文件
-- UNDELP 打印文件
-- UNDELMF 信息文件
-- UNDELA 数据区域
-- UNDELU UNDEL命令的帮助信息
-- UNDELDU UNDELD显示文件的帮助信息

返回

安装步骤:
在AS/400上安装:
最简单的方法是通过FTP(如果你有到AS/400的FTP连接)。
A. 在AS/400上库mylib下创建一个SAVF -- mysavf;
B. 在PC端,打开FTP通讯;
C. 输入以下命令:
FTP> bin
FTP> cd mylib
FTP> put undel.lib mysavf
FTP> quit
(其中mysavf是步骤A中创建的SAVF。)
D. 直接跳到第D步;

如果你的系统上不能FTP,那么可以通过以下步骤:

A. 创建一个记录长度为528的物理文件:
CRTPF MYLIB/PF528 RCDLEN(528) SIZE(*NOMAX)

B. 将UNDEL.LIB放入长度为528的物理文件:
一种方法:
使用Client Access的程序RFROMPC将UNDEL.LIB拷贝到物理文件PF528中(指定PF528.FDF为描述文件);
另一种方法:
将UNDEL.LIB拷贝到一个共享文件夹,然后执行命令:
CPYFRMPCD FROMFLR(MYFLR) TOFILE(MYLIB/PF528)
FROMDOC(UNDEL.LIB) TRNTBL(*NONE)

C. 将528位的物理文件拷贝成SAVF:
一种方法:
使用QUSRTOOL命令CPYTOSAVF:
CPYTOSAVF FROMDBF(MYLIB/PF528) TOSAVF(MYLIB/MYSAVF)

另一种方法:
将REXX程序TOSAVF装入文件QREXSRC:
STRREXPRC SRCMBR(TOSAVF) SRCFILE(MYLIB/QREXSRC)
PARM('pf528 mylib mysavf mylib')

D. 从SAVF中恢复UNDEL库:
RSTLIB SAVLIB(UNDEL) DEV(*SAVF) SAVF(MYLIB/MYSAVF)
如果你愿意,也可以将这些对象恢复到另一个库中:
RSTLIB SAVLIB(UNDEL) DEV(*SAVF) SAVF(MYLIB/MYSAVF) RSTLIB(NOTHERLIB)
UNDEL命令中唯一对库有要求的对象是参数PRDLIB,所以你可以将该参数改为自己的库:
CHGCMD CMD(MYLIB/UNDEL) PRDLIB(NOTHERLIB)

返回

5. 执行方法:
输入UNDEL命令就会交互地进入显示物理文件的画面,记录是用字符表格显示的,你可以用F19或F20扫描
删除的记录,或者输入你所知道的相对记录号(RRN)。使用F23恢复已经删除的记录,系统会提示你再按一次
F23键来确认你的选择。
你还可以使用OUTFILE参数将恢复的记录拷贝到另一个文件中,如果你指定的OUTFILE不存在,命令会自动
创建,如果OUTFILE已存在,那该文件的记录格式必须与原来的文件相同。
此外,在显示画面中,还包含UNDEL命令的帮助信息(F1键显示帮助信息)。

抱歉!评论已关闭.