CRTCLPGM        ALWRTVSRC(*YES)

によってコンパイルされた CLP であれば RTVCLSRC コマンドによって、

元の原始を取り出すことができる。

例えば AS/400 のスタートアップを登録するために

RTVCLSRC        QSYS/QSTRUP        SRCFILE(QGPL/QCLSRC)

によって スタートアップ QSTRUP を取り出すことができる。

時間のないときには 良い方法だ。