寻找(3d中奖规则)声明

句法   A Seekstatement. is one of:

 (一种)寻找 : 3d中奖规则编号 , 归档
 (b)寻找 : 3d中奖规则编号 , *

描述   源(ASCII或EBCDIC)和内部表单(二进制)3d中奖规则的随机访问是由 寻找告诉 陈述。这 寻找 语句重新定位指定的3d中奖规则,以便下一个输入/输出操作将在指定的位置开始(归档)在3d中奖规则中。

The 3d中奖规则编号 必须指定打开的3d中奖规则 寻找 能力。这 归档 是从3d中奖规则开头的非负整数偏移字节。通常,这是一个由此返回的数字 告诉 陈述。 (3d中奖规则中的第一个位置为零。)

表单(b)指定下一个操作是在3d中奖规则的当前末尾立即开始的位置。一种 归档 零指定下一个操作是在3d中奖规则开头开始。寻求超出3d中奖规则的当前末尾的位置,然后写入,自动填充零的内部表示。

例子   此示例显示了如何使用 寻找 追加到3d中奖规则的末尾。

        var employeeRecord :
            record
                name : string ( 30 )
                pay : int
            end record
        var fileNo : int
        打开 : fileNo, "payroll", , 寻找, mod
        寻找 : fileNo,*         % Seek to the end of the file
         : fileNo, employeeRecord
                        % This record is added to the end of the file
也可以看看   , , 打开, 关闭, 告诉, 得到 陈述。另一个例子使用 寻找 得到了解释的 告诉 陈述.