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

flag2005

1.代码如下:
       IDENTIFICATION   DIVISION.
       PROGRAM-ID.      DSPFSF01.
       ENVIRONMENT      DIVISION.
       INPUT-OUTPUT     SECTION.
       FILE-CONTROL.
           SELECT DBFILE
                 ASSIGN TO DISK-PDISK
                 ORGANIZATION IS INDEXED
                 ACCESS MODE IS DYNAMIC
                 FILE STATUS IS STATUS-FLD
                 RECORD  KEY MAIN-KEY.
       DATA            DIVISION.
       FILE            SECTION.
       FD  DBFILE
           LABEL RECORDS ARE STANDARD.
       01  DATA-REC.
           05 MAIN-KEY PIC X(10).
           05 ALT-KEY  PIC X(10).
           05 AIALCD   PIC X(10).
           05 AIAMCD   PIC X(12).
           05 AIBFIG   PIC X(12).
           05 AIAICD   PIC X(10).
           05 AIAFDT   PIC S9(.
           05 AIAATM   PIC S9(.
       WORKING-STORAGE SECTION.
       01  TEMP-REC PIC X(52).
       01  TEMP  PIC X(24).
       01  STATUS-FLD PIC X(2).
       01  STATUS-FLD2.
           05 STATUS-FLD1 PIC X(2).
           05 STATUS-FLD3 PIC X(4).
       PROCEDURE           DIVISION .
       MAIN-PROGRAM SECTION.
       MAINLINE.
           OPEN I-O DBFILE .
           MOVE "11111111" TO  MAIN-KEY.
           READ DBFILE
           END-READ.
           DISPLAY "STATUS-FLD =" STATUS-FLD.
           DISPLAY "STATUS-FLD2 = " STATUS-FLD2.
           CLOSE DBFILE.
           ACCEPT  STATUS-FLD.
           STOP RUN.
2.在执行到READ DBFILE时,发生如下错误:STATUS-FLD=92
3.文件PDISK的创建我是用命令CRTSRCPF做的,看起来是不对的,因为系统并没有把PDISK看作是INDEXED形的,而是顺序的.
4.麻烦大侠帮我看一下吧,再次谢谢了