F* 受注見出ファイル
FF510 UF E K DISK A
F KCOMIT （１）
F* 受注明細ファイル
FF520 UF E K DISK A
F KCOMIT （１）
中 略
C* ファイル更新
+----C *IN30 IFEQ *OFF NO-ERROR
|+---C *IN29 IFEQ *OFF NO-CHANGE
|| C EXSR SBUPD FILE 更新
|| C COMIT コミット （２）
|| C Z-ADD01 W@FMT
|+---C ELSE CHANGED
|| C MOVELMSG,5 S9MSG 更新確認
|+---C ENDIF
+----C ENDIF
中 略
C SBUPD BEGSR
C*ここから明細ファイルの更新
C Z-ADD000 W@JU\ 受注額
+----C SELEC
+----C W@MOD WHEQ 02
| C* ファイルへ編集
|+---C 01 DO 99 RRN
||+--C CHG,RRN IFEQ '1' CHG
||| C RRN CHAINSFL01 30
||| C Z-ADDS1JUNO JDJUNO 受注№
||| C Z-ADDS4GYNO JDGYNO 行№
||| C KEY99A CHAINF520R 99
||| C* ________ ________
||| C* (ｻﾌﾞﾌｧｲﾙ( --> ( ﾌｧｲﾙ (
||| C* ~~~~~~~~ ~~~~~~~~
||| C MOVELS4HNNO JDHNNO 品目№
||| C Z-ADDS4JUSU JDJUSU 受注数
||| C Z-ADDS4JUTK JDTNKA 受注＠
||| C Z-ADDS4JUGK JDJUGK 受注額
||| C JDJUGK MULT 0.05 JDTXGK 受注額
||| C*
||| C ADD S4JUGK W@JU\ 受注額
|||+-C *IN99 IFEQ *OFF
|||| C UPDATF520R
|||+-C ELSE
|||| C WRITEF520R
|||+-C ENDIF
||+--C ENDIF
|+---C ENDDO
+----C W@MOD WHEQ 04
| C* 削除モードのとき明細削除
| C Z-ADDS1JUNO JDJUNO 受注№
| C KEY99 SETLLF520R
| C KEY99 READEF520R 99
|+---C *IN99 DOWEQ*OFF
|| C DELETF520R
|| C KEY99 READEF520R 99
|+---C ENDDO
| C*
+----C ENDSL
C* ここから見出しファイルの更新
C CLEARF510R
C S1JUNO CHAINF510R 98
+----C SELEC
+----C W@MOD WHEQ 02
| C* 受注見出ファイルへ編集
| C Z-ADDS1JUNO JHJUNO 受注№
| C MOVELS2TKNO JHTKNO 得意先№
| C Z-ADDW@JU\ JHJUGK 受注額計
| C S2JUDT ADD 200000000 JHJUDT 受注日
| C Z-ADDS2NODT JHNODT 納品日
| C Z-ADDS2SEDT JHSEDT 請求日
| C*
| C *IN98 IFEQ *OFF
| C UPDATF510R
| C ELSE
| C WRITEF510R
| C ENDIF
+----C W@MOD WHEQ 04
| C* 削除モードのとき見出し削除
| C DELETF510R
+----C ENDSL
C* ＊＊＊両ファイル更新の完了＊＊＊
C CLEARS2TKNO
C MOVE *ZERO CHG
C Z-ADD01 W@FMT 第一画面へ
C*
C ENDSR
|