AS400中的COBOL里，怎么做才能使画面在WRITE一次后，不被清空！？

thursday

DSPF如下：

1. A                                      DSPSIZ(24 80 *DS3)
   
2.      A                                      INDARA
   
3.      A                                      CF03
   
4.      A                                      CF05(05 '検索')
   
5.      A                                      CF12(12 '登録')
   
6.      A*****************************************************************
   
7.      A*           PANEL01 :第１画面                                 *
   
8.      A*****************************************************************
   
9.      A          R PANEL01                   OVERLAY
   
10.      A                                      RTNCSRLOC(&C01RCD &C01FLD &C01POS)
    
11.      A*
    
12.      A                                  1  2'HKV010'
    
13.      A                                      DSPATR(HI)
    
14.      A                                  1 27'市場買付発注登録　選択'
    
15.                                             DSPATR(HI RI)
    
16.      A                                  1 65'DATE'
    
17.      A                                  1 70DATE(*YY)
    
18.      A                                      EDTWRD('0    /  /  ')
    
19.       * LINE-3
    
20.      A                                  3  5'社員コード='
    
21.      A            D1PGCD1        7Y 0B  3 19TEXT('社員コード')
    
22.      A                                      DSPATR(UL)
    
23.      A  40                                  DSPATR(RI PC)
    
24.      A            D1PGCD2       32O  O  3 29TEXT('社員コード')
    
25.       * LINE-5
    
26.      A                                  5  5'発注予定日='
    
27.      A            D1YOTEHI       8Y 0B  5 19TEXT('発注予定日')
    
28.      A                                      DSPATR(UL)
    
29.      A  41                                  DSPATR(RI PC)
    
30.       * LINE-8
    
31.      A                                  8  5'処理内容='
    
32.      A            D1NAIYO1       2A  B  8 17TEXT('処理内容')
    
33.      A                                      DSPATR(UL)
    
34.      A  42                                  DSPATR(RI PC)
    
35.      A            D1NAIYO2      22O  O  8 21TEXT('処理内容')
    
36.       *
    
37.      A            C01RCD        10A  H      TEXT('レコード')
    
38.      A            C01FLD        10A  H      TEXT('フィールド')
    
39.      A            C01POS         4S 0H
    
40.      A*****************************************************************
    
41.      A*           PANEL99 :ガイダンス画面                           *
    
42.      A*****************************************************************
    
43.      A          R PANEL99
    
44.      A            P99MCD         6A  O 23  2TEXT('メッセージコード')
    
45.      A  50                                  DSPATR(RI) COLOR(RED)
    
46.      A N50                                  DSPATR(HI)
    
47.      A            P99MSG        70A  O 23  9TEXT('メッセージ')
    
48.      A  50                                  DSPATR(RI) COLOR(RED)
    
49.      A N50                                  DSPATR(HI)
    
50.      A                                 24  2'F3:終了'
    
51.      A                                      DSPATR(HI)
    
52.      A                                 24 12'F5:検索'
    
53.      A                                      DSPATR(HI)
    
54.      A                                 24 22'F12:登録'
    
55.      A                                      DSPATR(HI)
    
56. 

复制代码

当画面调出来后，入力[社員コード']等，然后再次执行到下面代码时，WRITE后，入力项就被清空了，如何处理能使其不清空？

1. WRITE  DSP-REC  FROM P99O-AREA  FORMAT IS 'PANEL99'     
   
2.                      INDICATORS PANEL99-O-INDIC         
   
3. WRITE  DSP-REC  FROM H01O-AREA  FORMAT IS 'PANEL01'     
   
4.                      INDICATORS PANEL01-O-INDIC         
   
5. READ  DSPFILE INTO H01I-AREA.                           

复制代码