AS/400でのメンバーのコピー方法について

質問

AS/400でのメンバーのコピー方法について

最近、AS/400を業務で使用することになり勉強中なのですが、判らない点があるので知恵をお借りできればと思い投稿させていただきます。

質問
CPYFやPDMを使用して、あるファイルの中のソースメンバーを別のファイルに移したいのですが、その際に作成日や作成時刻を変更することなくそのままコピーする方法はないでしょうか？
単純なコピーを実行してしまうと、作成日 > 変更日 となってしまい矛盾が生じてしまいます。
CPYFのオプションを1つずつ確認はしたのですが、そのようなオプションが見つからず困っております。
監査などで指摘されないため、またソースの管理のためにも作成日のパラメータを変えずにコピーしたいと考えております。
ご助力いただけると幸いです。

以上、よろしくお願いいたします。

回答No.5

nolix · ベストアンサー

ソースのコピーならそうなるとおもいます。DSPFでもCLでも概念は同じですよね。
ソースのバージョン管理は、汎用機の様にはいきません。

補足

ご回答いただきありがとうございます。
やはり実現は難しそうですね。
今後の管理方法について再検討したいと思います。

お付き合いいただきありがとうございました。

回答No.4

nolix

CHGOBJでMAX MEMBERを変更し、ADDMでMEMBERを追加後、CPYF FORM MEMBER TO MEMBER すれば良いのでは、というよりそれしか方法はないです。

補足

度々 ご助言いただきありがとうございます。
ADDM は「物理ファイル・メンバー追加」の事ですよね。
今では ADDPFM というコマンドに変更されているようです。

2点質問させていただいてよろしいでしょうか？
1.CHGOBJでMAX MEMBERを変更するのはコピー先でメンバー・サイズの制限に引っかかってコピーできなくなってしまう現象が発生しないように行うものと考えてよろしいでしょうか。
ちょっとしたDSPFのソース(30行程度)なので、今回は不要だと思うのですが、他に目的はあるのでしょうか。

2.ADDPFM でメンバーを追加後に CPYF を行うというのは、一度物理ファイルの中にレコードのないメンバーを作成し、その中に CPYF の MBROPT を *ADD で追記してコピーを行う事になると思いますが、ADDPFM でメンバーを追加すると追加したメンバー(= コピー先のメンバー)の作成日は 本日 になってしまうのですが、私の理解に抜けている部分があるでしょうか？

回答No.3

nolix

あーそういうこと・・・
じゃぁADDMでできるはずですよ。
ADDMする前に、PFの属性で*MEMBERの＊Defultを＊NOMAXとかに変更して下さいね。
CHGPFとかで出来たはずです。

回答No.2

nolix

追記です。
CPYSRCPFってなかったでした？
最近、さわっていないので

補足

ご回答いただきありがとうございます。
また、休日中は出かけておりレスが遅くなってしまいました。申し訳ございません。

CRTDUPOBJ を試してみたのですが、複製なので既に存在するファイルへの追加はできませんでした。
新しくファイルを作るのではなく、存在しているファイルにメンバーを追加するという形で実現したいのです。(コピー先のファイルにも既にメンバーが存在しているため。)
質問文に記述が抜けておりました。申し訳ございません。

また、CPYSRCPF も試しましたがこちらにもタイムスタンプを元の状態に保ってコピーするという機能は見つかりませんでした。

こちらでも社内の資料などで探しておりますが、他に方法があれば引き続きご教授いただきたいと思います。
よろしくお願いいたします。

回答No.1

nolix

CPYFで駄目なら、CRTDUPOBJでできると思いますよ。
*MBR単位のコピーならやはりCPYF
どうしてもタイムスタンプ等絡むならCRTDUPOBJ後RMVMで不要*MBRを削除する。
CRTDUPOBJ時は、*LIBLは、要注意です。
関係するLFが別LIBにある場合は、必ず*LIBLにのせること。