各位大虾，小弟给你们跪下了 关于用COBOL显示display file

fufeng713

小弟最近在研究怎么用cobol 来显示display files。写了一个小程式。
编译通过。
当我 在command line  输入
Call sjack 的时候，没有任何结果，就是一闪而过。请问是为什么？
我是不是还要set up 一些 system value？ 比如DEV 之类的

DSPF

A                                      DSPSIZ(24 80 *DS3)                     
A          R JACK                                                              
A                                      CF03(99 'EXIT PROGRAM')                 
A                                      CF05(50 'REFRESH')                     
A                                 10 32'CONTRACT NUMBER:'                     
A            NUMBERA        8N  B 10 50TEXT('CONTRACT NUMBER')                 
A                                                                              

COBOL program

IDENTIFICATION DIVISION.                        
PROGRAM-ID. SJACK.   
                  
         
ENVIRONMENT DIVISION.                           
CONFIGURATION SECTION.                           
SOURCE-COMPUTER. IBM-AS400.                     
OBJECT-COMPUTER. IBM-AS400.                     
SPECIAL-NAMES.             I-O-FEEDBACK IS IOF.

INPUT-OUTPUT SECTION.                           
FILE-CONTROL.                                    
    SELECT SJACK-DISPLAY-FILE                    
        ASSIGN TO WORKSTATION-SJACK              
        ORGANIZATION IS TRANSACTION              
        ACCESS IS SEQUENTIAL.      

              
DATA DIVISION.                           
FILE SECTION.                           
FD  SJACK-DISPLAY-FILE.                  
01  SJACK-REC.                          
    COPY DDS-ALL-FORMATS OF SJACK.      
    05  SJACK-RECORD  PIC X(10).      

  
PROCEDURE DIVISION.                    
DECLARATIVES.                          
END DECLARATIVES.   
                  
    OPEN I-O SJACK-DISPLAY-FILE.      
    WRITE SJACK-REC FORMAT IS 'JACK'     
    END-WRITE.                           
    CLOSE SJACK-DISPLAY-FILE.  
    EXIT PROGRAM.

jianzk

还要READ吧？？？

yzclxw

楼上的说的对，用read来显示画面。