400下COBOL大家都是怎么做画面的呀？

shalashaska

400下COBOL大家都是怎么做画面的呀？
也是像RPG那样调用DSPF文件吗？
还是用DISPLY愣写呢？
请有经验的大侠给出正解。

pl421

也是像RPG那样调用DSPF文件

huting974

定义report section 直接写不行么？

huting974

如果不行，那么请问如何调用DSPF文件？具体语句是？

shalashaska

是呀。高手给个例子吧。
DSPF怎么写，COBOL里如何调用的。

大肥肥

DSPF定义和平时一样，没什么好说的。
A                                      DSPSIZ(24 80 *DS3)
     A                                      CHGINPDFT(HI)
     A                                      PRINT
     A                                      INVITE
     A                                      INDARA
     A          R S01
     A                                      CF07(07 'EXIT')
     A                                      CF02(02 'INIT')
     A                                      CF03(03 'SET')
     A                                      SLNO(01)
     A                                      CLRL(24)
     A                                      FRCDTA
     A                                      CSRLOC(ROWNUMBER  COLNUMBER)
     A            ROWNUMBER      3S 0H
     A            COLNUMBER      3S 0H
     A                                  1  2'SYS:'
     A                                  1  9SYSNAME
     A                                      DSPATR(HI)
     A            S1WS          10A  B  1  9DSPATR(HI)
     A                                      DSPATR(PR)
     A                                  1 25'Maintenance USER File'
     A                                      DSPATR(HI)
     A                                      DSPATR(UL)
     A                                  1 65'DATE:'
     A                                  1 71DATE
     A                                      DSPATR(HI)
     A                                      EDTWRD('  /  /  ')
     A                                  2  2'USER:'
     A                                  2  9USER
     A                                      DSPATR(HI)
     A                                  2 65'TIME:'
     A                                  2 71TIME
     A                                      DSPATR(HI)
     A                                      EDTWRD('  :  :  ')
     A                                  5  3'                                  -
     A                                                                         -
     A                                             '
     A                                      DSPATR(UL)
     A                                      DSPATR(HI)
     A                                 11  5'Action(I/A/D/C)  :'
     A            S1ACT          1A  B 11 26VALUES('I' 'A' 'D' 'C')
     A                                      DSPATR(HI)
     A                                      DSPATR(UL)
     A                                 15  5'User ID   :'
。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。
。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。
A            S1COMM        10A  O 11 29
     A            S1MESS        60A  O 20  5COLOR(RED)
     A                                 22  5'F2=CLEAR'
     A                                 22 35'F7=EXIT'
     A                                 22 14'F3=SE DEFAULT VALUE '
     A                                 21  1' '
     A            FLD001         1A  B 14 26

然后cobol里面这样写：
SELECT DISPLAY-FILE
              ASSIGN TO WORKSTATION-yourdspf
              ORGANIZATION IS TRANSACTION
              ACCESS MODE IS SEQUENTIAL
              FILE STATUS IS STATUS-yourdspf
              CONTROL-AREA IS SCRN-yourdspf-CNTL.

  FD  DISPLAY-FILE
           LABEL RECORDS ARE OMITTED.
       01  yourdspf-REC.
           COPY DDS-ALL-FORMATS OF yourdspf.


01  SCRN-yourdspf-CNTL.
           02  FKEY              PIC 99.
               88  K-OK         VALUE 00.
               88  K-CALL       VALUE 01.
               88  K-INIT       VALUE 02.
               88  K-SET        VALUE 03.
               88  K-XPR        VALUE 04.
               88  CMD-5        VALUE 05.                              
               88  K-ADD        VALUE 06.
               88  K-EXT        VALUE 07.
               88  CMD-8        VALUE 08.                              
               88  K-SAV        VALUE 09.
               88  K-RCL        VALUE 10.
               88  CMD-11       VALUE 11.                              
               88  K-UND26      VALUE 24.                              

OPEN     I-O     DISPLAY-FILE
*...............................................................check file status etc.

PERFORM 100-INIT-SCREEN THRU INIT-SCREEN-EXIT.
PERFORM 200-PROC-SCREEN THRU PROC-SCREEN-EXIT UNTIL K-EXT.
           IF K-EXT
              PERFORM PROC-CLEANUP THRU CLEANUP-EXIT
           END-IF.

.................................................
100-INIT-SCREEN.
           MOVE SPACES TO S1ACT OF S01-O.
           MOVE SPACES TO S1USERCO   OF S01-O.
           .................................
          ..................
           

           WRITE yourdspf-REC FORMAT IS "S01".
           READ DISPLAY-FILE.
       INIT-SCREEN-EXIT.
           EXIT.
200-PROC-SCREEN.
           IF K-EXT
              PERFORM PROC-CLEANUP THRU CLEANUP-EXIT
           END-IF.
           IF K-INIT
              PERFORM 100-INIT-SCREEN THRU INIT-SCREEN-EXIT
              GO TO PROC-SCREEN-EXIT
           END-IF.
           IF K-SET
              PERFORM 900-SET-SCREEN THRU SET-SCREEN-EXIT
              GO TO PROC-SCREEN-EXIT
           END-IF.
           MOVE S1ACT OF S01-I TO WK-ACT.
           EVALUATE WK-ACT

           WHEN "I"
           INITIALIZE table1-REC
           MOVE "INQUIRY" TO S1COMM OF S01-O
           PERFORM 300-INQUIRY THRU INQUIRY-EXIT
           WRITE yourdspf-REC FORMAT IS "S01"

...........................................................
   END-EVALUATE.
           IF K-EXT
              PERFORM PROC-CLEANUP THRU CLEANUP-EXIT
           END-IF.
           READ DISPLAY-FILE.
       PROC-SCREEN-EXIT.
           EXIT.
...............................................
大概就是这样了，你多看看别人的程序，就明白了。

huting974

恩！谢谢