mainframe - easytrieve 中的点语句

Question

easytrieve 中的重点陈述是什么？

例如- POINT DUPIN GE HD-IN-KEY STATUS

这里 DUPIN 是文件名，GE 是关系运算符，HD-IN-KEY 是字段名

Answer 1

不确定我是否可以恢复旧问题。我只是想留下一个在 Easytrieve 中使用 POINT 语句的示例。这可能对引用此线程的人有用。

在此示例中，我使用了具有以下内容的输入 VSAM 文件。

123456 SRINIVASAN J V
234567 QWERTY        
345678 SRINI         
456789 BHUTAN    

前 6 个字节是键，我想根据键显示文本字段。让我们选择显示第一条记录 123456 的文本字段。Easytrieve 代码如下：

FILE INFILE1 VS (UPDATE)             
ID                1   6    N         
NAME              8   20   A         
* WORK VARIABLES                     
WS-ID             W   6    N         
WS-NAME           W   20   A         
*                                    
JOB INPUT INFILE1                    
POINT INFILE1 EQ '123456' STATUS     
IF INFILE1:FILE-STATUS EQ 00         
    DISPLAY 'READ SUCCESS'            
    MOVE NAME TO WS-NAME              
    DISPLAY 'TEXT:' WS-NAME           
    STOP                              
ELSE                                 
    DISPLAY 'READ ERROR:' FILE-STATUS 
    STOP                              
END-IF    

执行代码后，我们将在 Spool 中得到以下结果。

READ SUCCESS       
TEXT:SRINIVASAN J V     

需要注意的点：

• Easytrieve 中的 POINT 语句指向键控文件上的记录。

• 注意带有 STATUS 参数的 POINT 语句。只要有可能无法成功完成输入/输出请求，请指定 STATUS 参数。STATUS 检查输入/输出处理是否正确执行。STATUS 使文件的 FILE-STATUS 字段设置为适当的返回码。FILE-STATUS 是 Easytrieve 中的只读字段。

• 我们评估 FILE-STATUS 字段以了解 READ 操作的状态。如果 READ 成功，则显示文本字段。