【食品】カレンダーマスタ更新

概要

カレンダーマスタを更新する場合、関連の日別№マスタも同時に更新作業を行う。
更新ＣＬは登録指定日から5年分のデータが作成される。

　

カレンダーマスタ更新

　最終登録日を確認する。

              
SELECT MAX(MCLHIZUKE)
FROM HKMZ002/MSCLF

　更新前バックアップを作成

              
CPYF FROMFILE(HKMZ002/MSCLF) TOFILE(HKMZ002/MSCLF@)
  MBROPT(*REPLACE) CRTFILE(*YES)

　ライブラリリストを確認

              
HKDB031
HKMZ002
HKMK001
HKSKLIB
HKDR31100
HKOLIB
HKSLIB

　カレンダーマスタ更新
パラメーターに登録開始年（最終登録日の翌年）を設定して実行する。

              
CALL PGM(HKOLIB/KTMSCL) PARM('2033')

　更新後のカレンダーマスタを確認

              
SELECT MAX(MCLHIZUKE)
FROM HKMZ002/MSCLF

　

日別№マスタ（商流）更新

　最終登録日を確認する。

              
SELECT MAX(MCNOHIZUKE)
FROM HKDB031/MSCNF
              
            
              
SELECT MAX(MCNOHIZUKE)
FROM HKDB032/MSCNF

　更新ＣＬに登録開始年（最終登録日の翌年）を設定してコンパイル

              
MSCNSET31
MSCNSET32

　更新前バックアップを作成

              
CPYF FROMFILE(HKDB031/MSCNF)                                
       TOFILE(HKDB031/MSCNF@) MBROPT(*REPLACE) CRTFILE(*YES)
              
            
              
CPYF FROMFILE(HKDB032/MSCNF)                                
       TOFILE(HKDB032/MSCNF@) MBROPT(*REPLACE) CRTFILE(*YES)

　ライブラリリストを本社に設定

              
HKDB031
HKMZ002
HKMK001
HKSKLIB
HKDR31100
HKOLIB
HKSLIB

　日別№マスタ（商流）更新
パラメーターに登録開始年（最終登録日の翌年）を設定して実行する。

              
CALL PGM(HKOLIB/MSCNSET31)

　ライブラリリストを庄内に設定

              
HKDB032
HKMZ002
HKMK001
HKSKLIB
HKDR32100
HKOLIB
HKSLIB

　日別№マスタ（商流）更新
パラメーターに登録開始年（最終登録日の翌年）を設定して実行する。

              
CALL PGM(HKOLIB/MSCNSET31)

　更新後のカレンダーマスタを確認

              
SELECT MAX(MCNOHIZUKE)
FROM HKDB031/MSCNF
              
            
              
SELECT MAX(MCNOHIZUKE)
FROM HKDB032/MSCNF

　

日別№マスタ（物流）更新

　最終登録日を確認する。

              
SELECT MCNSOKCOD,MAX(MCNHIZUKE),COUNT(MCNHIZUKE)
FROM HKDR31100/MLCNF
GROUP BY MCNSOKCOD
UNION
SELECT MCNSOKCOD,MAX(MCNHIZUKE),COUNT(MCNHIZUKE)
FROM HKDR32100/MLCNF
GROUP BY MCNSOKCOD

　更新ＣＬに登録開始年（最終登録日の翌年）を設定してコンパイル

              
MLCNSET31
MLCNSET32

　更新前バックアップを作成

              
CPYF FROMFILE(HKDR31100/MLCNF)                                
       TOFILE(HKDR31100/MLCNF@) MBROPT(*REPLACE) CRTFILE(*YES)
              
            
              
CPYF FROMFILE(HKDR32100/MLCNF)                                
       TOFILE(HKDR32100/MLCNF@) MBROPT(*REPLACE) CRTFILE(*YES)

　ライブラリリストを本社に設定

              
HKDB031
HKMZ002
HKMK001
HKSKLIB
HKDR31100
HKOLIB
HKSLIB

　日別№マスタ（物流）更新
パラメーターに登録開始年（最終登録日の翌年）を設定して実行する。

              
CALL PGM(HKOLIB/MLCNSET31)

　ライブラリリストを庄内に設定

              
HKDB032
HKMZ002
HKMK001
HKSKLIB
HKDR32100
HKOLIB
HKSLIB

　日別№マスタ（物流）更新
パラメーターに登録開始年（最終登録日の翌年）を設定して実行する。

              
CALL PGM(HKOLIB/MLCNSET32)

　更新後のカレンダーマスタを確認

              
SELECT MCNSOKCOD,MAX(MCNHIZUKE),COUNT(MCNHIZUKE)
FROM HKDR31100/MLCNF
GROUP BY MCNSOKCOD
UNION
SELECT MCNSOKCOD,MAX(MCNHIZUKE),COUNT(MCNHIZUKE)
FROM HKDR32100/MLCNF
GROUP BY MCNSOKCOD

　

事業部別日別№マスタ更新

　最終登録日を確認する。

              
SELECT MJNOJIGCOD,MAX(MJNOHIZUKE),COUNT(MJNOHIZUKE)
FROM HKMZ002/MSJNF
GROUP BY MJNOJIGCOD
ORDER BY MJNOJIGCOD

　更新ＣＬに登録開始年（最終登録日の翌年）を設定してコンパイル

              
MSJNSET02

　更新前バックアップを作成

              
CPYF FROMFILE(HKMZ002/MSJNF)                                
       TOFILE(HKMZ002/MSJNF@) MBROPT(*REPLACE) CRTFILE(*YES)

　ライブラリリストを本社に設定

              
HKDB031
HKMZ002
HKMK001
HKSKLIB
HKDR31100
HKOLIB
HKSLIB

　事業部別日別№マスタ更新
パラメーターに登録開始年（最終登録日の翌年）を設定して実行する。

              
CALL PGM(HKOLIB/MSJNSET02)

　更新後のカレンダーマスタを確認

              
SELECT MJNOJIGCOD,MAX(MJNOHIZUKE),COUNT(MJNOHIZUKE)
FROM HKMZ002/MSJNF
GROUP BY MJNOJIGCOD
ORDER BY MJNOJIGCOD