嘗試。。。

thursday

A                                      DSPSIZ(24 80 *DS3)
     A                                      INDARA
     A                                      CF03
     A                                      CF05(05 '検索')
     A                                      CF12(12 '登録')
     A*****************************************************************
     A*           PANEL01 :第１畫面                                 *
     A*****************************************************************
     A          R PANEL01                   OVERLAY
     A                                      RTNCSRLOC(&C01RCD &C01FLD &C01POS)
     A*
     A                                  1  2'HKV010'
     A                                      DSPATR(HI)
     A                                  1 27'市場買付発注登録　選択'
                                            DSPATR(HI RI)
     A                                  1 65'DATE'
     A                                  1 70DATE(*YY)
     A                                      EDTWRD('0    /  /  ')
      * LINE-3
     A                                  3  5'社員コード='
     A            D1PGCD1        7Y 0B  3 19TEXT('社員コード')
     A                                      DSPATR(UL)
     A  40                                  DSPATR(RI PC)
     A            D1PGCD2       32O  O  3 29TEXT('社員コード')
      * LINE-5
     A                                  5  5'発注予定日='
     A            D1YOTEHI       8Y 0B  5 19TEXT('発注予定日')
     A                                      DSPATR(UL)
     A  41                                  DSPATR(RI PC)
      * LINE-8
     A                                  8  5'処理內(nèi)容='
     A            D1NAIYO1       2A  B  8 17TEXT('処理內(nèi)容')
     A                                      DSPATR(UL)
     A  42                                  DSPATR(RI PC)
     A            D1NAIYO2      22O  O  8 21TEXT('処理內(nèi)容')
      *
     A            C01RCD        10A  H      TEXT('レコード')
     A            C01FLD        10A  H      TEXT('フィールド')
     A            C01POS         4S 0H
     A*****************************************************************
     A*           PANEL99 :ガイダンス畫面                           *
     A*****************************************************************
     A          R PANEL99
     A            P99MCD         6A  O 23  2TEXT('メッセージコード')
     A  50                                  DSPATR(RI) COLOR(RED)
     A N50                                  DSPATR(HI)
     A            P99MSG        70A  O 23  9TEXT('メッセージ')
     A  50                                  DSPATR(RI) COLOR(RED)
     A N50                                  DSPATR(HI)
     A                                 24  2'F3:終了'
     A                                      DSPATR(HI)
     A                                 24 12'F5:検索'
     A                                      DSPATR(HI)
     A                                 24 22'F12:登録'
     A                                      DSPATR(HI)