Question

easytrieve的观点是什么？

例如-DINT 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

执行代码后，我们将在假脱机中获得以下结果。

READ SUCCESS       
TEXT:SRINIVASAN J V

需要注意的要点：

Easytrieve中的POINT语句指向键控文件上的记录。
请注意带有STATUS参数的POINT语句。指定STATUS 只要有可能不成功，参数完成输入/输出请求。 STATUS检查输入/输出处理以查看它是否正确执行。 STATUS导致文件的FILE-STATUS字段用适当的返回码设置。 FILE-STATUS是Easytrieve中的只读字段。
我们评估FILE-STATUS字段以了解READ操作的状态。如果READ成功，则我们显示文本字段。

easytrieve中的点声明

1 个答案: