Chinaunix

标题: 管理员设置了东西？发不了贴了〉？ [打印本页]
作者: thursday    时间: 2007-06-09 15:07
标题: 管理员设置了东西？发不了贴了〉？
怎么办，怎么办？？？？？？？
作者: thursday    时间: 2007-06-09 15:07
  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. 
复制代码
作者: thursday    时间: 2007-06-09 15:08
代码发不上来。。。。郁闷。。。
作者: thursday    时间: 2007-06-09 15:10
WRITE  DSP-REC  FROM P99O-AREA  FORMAT IS 'PANEL99'   
                     INDICATORS PANEL99-O-INDIC        
WRITE  DSP-REC  FROM H01O-AREA  FORMAT IS 'PANEL01'   
                     INDICATORS PANEL01-O-INDIC
作者: thursday    时间: 2007-06-09 15:11
COBOL中，为什么画面入力后，执行了的WRITE，就把入力的项目清空了呢？？？？？？？？？



欢迎光临 Chinaunix (http://bbs.chinaunix.net/) Powered by Discuz! X3.2