大侠求教--AS/400 COBOL程序执行错误,急!!!!!

超越自己-勇

1.代码如下:

SEU==>                                             TESTID
FMT CB ......-A+++B+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
    *************** Beginning of data *************************************
0001.00     PROCESS OPTIONS.
0002.00     IDENTIFICATION DIVISION.
0003.00     PROGRAM-ID. VERIFY.
0004.00       AUTHOR. PROGRAMMER NAME.
0005.00       INSTALLATION. TORONTO LABORATORY.
0006.00       DATE-WRITTEN. JANUARY 1, 1988.
0007.00       DATE-COMPILED.
0008.00     ENVIRONMENT DIVISION.
0009.00     CONFIGURATION SECTION.
0010.00       SOURCE-COMPUTER. IBM-AS400.
0011.00       OBJECT-COMPUTER. IBM-AS400.
0012.00     INPUT-OUTPUT SECTION.
0013.00     FILE-CONTROL.
0014.00         SELECT FILE1 ASSIGN TO DISK-FILE2
0015.00             ORGANIZATION IS SEQUENTIAL.
0016.00     DATA DIVISION.
0017.00     FILE SECTION.
0018.00     FD FILE1
0019.00         RECORD CONTAINS 92 CHARACTERS
0020.00         LABEL RECORDS ARE OMITTED
0021.00         DATA RECORD IS REC-1.
0022.00     01 REC-1 PIC X(92).
0023.00     WORKING-STORAGE SECTION.
0024.00     01 PRINT-LINE PIC X(5 VALUE
0025.00         "INSTALLATION OF THE AS/400 COBOL/400 COMPILER IS VERIFIED."
0026.00     PROCEDURE DIVISION.
0027.00     WRITE-REC.
0028.00         OPEN OUTPUT FILE1.
0029.00         WRITE REC-1 FROM PRINT-LINE.
0030.00         DISPLAY "TEST " PRINT-LINE.
0031.00       STOP RUN.

2.在执行到OPEN OUTPUT FILE1时,发生如下错误:
Message . . . . :   I/O operation failed in program TESTID in FLAGLIB (C D F
G).                                                
Cause . . . . . :   Program TESTID in FLAGLIB issued an I/O operation on file
FILE2 at COBOL statement 27 which failed with file status 90; and no error
handler existed. When an unsuccessful file status is received from an I/O
3.请问大侠这是什么错?非常感谢!!!!!!!!!!!!!!!

大肥肥

SELECT FILE1 ASSIGN TO DISK-FILE2
file2在哪里？怎么定义的？找的到吗？
90的错误说明不是很明显：
1.file no found
2.member not found.
3. unexpected I-O exceptions

大肥肥

有人说：我是用OUTPUT方式生成一个文件所以就没有必要定义FILE2
调试一下不就出来了：
File FILE2 in library *LIBL not found.                                    
Pointer not set for location referenced.                                 
Function check. MCH3601 unmonitored by TESTID at statement 27, instruction
  X'0050'.                                                               
是否知道file-status=90的错误说明。。。。。。

lnyda

想不想考虑杭州的职位啊 杭州AS400   杭州上海日语JAVA 去日本做半年的项目
薪水福利丰厚哦 想考虑的话 记得CALL我哦 010－58613381－19或是加我MSN :lnyda2000@hotmail.com  期待ing!

hui5562lin

你的lib list中有已经编译好的FILE2么？