as400/cobol 文件打开问题

Question

*---< 1 >---*                                       
     SELECT   MITHP       ASSIGN TO DATABASE-MITHP            
              ORGANIZATION       IS  INDEXED                  
              ACCESS MODE        IS  DYNAMIC                  
              RECORD KEY         IS  EXTERNALLY-DESCRIBED-KEY.
*---< 2>---*                                    
     SELECT   TCTSM       ASSIGN TO DATABASE-TCTSM            
              ORGANIZATION       IS  INDEXED                  
              ACCESS MODE        IS  DYNAMIC                  
              RECORD KEY         IS  EXTERNALLY-DESCRIBED-KEY.
*---<3  >---*                                          
     SELECT   DCMKBL01    ASSIGN TO DATABASE-DCMKBL01         
              ORGANIZATION       IS  INDEXED                  
              ACCESS MODE        IS  DYNAMIC                  
              RECORD KEY         IS  EXTERNALLY-DESCRIBED-KEY  
                                     WITH  DUPLICATES.      

*---< 1>---*            
FD  MITHP.                          
01  MITHP-REC.                     
    COPY DDS-ALL-FORMATS OF MITHP.   
*---<2  >---*         
FD  TCTSM.                          
01  TCTSM-REC.                     
    COPY DDS-ALL-FORMATS OF TCTSM.   
*---< 3>---*                 
FD  DCMKBL01.                       
01  DCMKBL01-REC.                  
    COPY DDS-ALL-FORMATS OF DCMKBL01.   

     OPEN  INPUT   MITHP.   
     OPEN  INPUT   TCTSM.   
     OPEN  INPUT   DCMKBL01.

单调时MITHP可以正常打开dan后两个文件就报打开错误
下面有对后两个文件START的操作和只读操作

Answer 1

原帖由 4321258sun 于 2009-11-4 13:26 发表
是个子程序，但也可以单独运行

没有被调用，单独运行这个程序的时候有问题吗

Answer 2

OPEN  INPUT   MITHP.   
     OPEN  INPUT   TCTSM.   
     OPEN  INPUT   DCMKBL01.
改成
OPEN  INPUT   MITHP  TCTSM   DCMKBL01.
试试!

Answer 3

是个子程序，但也可以单独运行

Answer 4

这本程序是被别的程序调用的吗