论坛徽章:: 0

电梯直达

1楼 [收藏(0)] [报告]

发表于 2004-07-23 14:02 |只看该作者 |倒序浏览

你好.

我在一个TABLE(TEST01P)中定义了UNIQUE 如下:
TEST01P:

      ******************** 数据开始 *****************************************
0001.00    A                                     UNIQUE
0002.00    A       R CTMSITIDR
0003.00    A          TRANSID    20A       TEXT(' 交易号 ')
0004.00    A          TIMESTAMP    T       TEXT(' 时间 ')
0005.00    A          MSGCOUNT    5S
0006.00    A       K TRANSID                DESCEND
      ******************** 数据结束 *****************************************

而在程序(TEST01R)中是这样使用TEST01P的,如下:

TEST01R:
H**********************************************************************
FTEST01P O  A E          K DISK
D TPA20A       S          20
D TPS20A       S          20  0
D ID             S          20
D RETURN       S          100
D*--------------------------------------------------------------------*
C    *ENTRY       PLIST
C                PARM                   ID
C                PARM                   RETURN
C                                           :
                                             :
                                             :

C                EVAL    TRANSID=ID
C                TIME                   TIMESTAMP
C                EVAL    MSGCOUNT=0
C                WRITE    TEST01R
C
C
C                EVAL    *INLR='1'
******************** 数据结束 ********************************

这样一调用CALL这个程序TEST01R时,就会有如下:
的出错:
Open of member TEST01P was changed to SEQONLY(*NO).

我想是因为在TEST01P中有了UNIQUE的定义,才会在程序TEST01R中使用到TEST01P时才会出现上面的错误.
(F TEST01P O  A E          K DISK    )
不知有那位高手碰过这样的问题,是不是要在TEST01R中对TEST01P如何做?才不会出现报错呢?谢谢!