CRTCLPGM        ALWRTVSRC(*YES)

によってコンパイルされた CLP であれば RTVCLSRC コマンドによって、
元の原始を取り出すことができる。
例えば AS/400 のスタートアップを登録するために

RTVCLSRC        QSYS/QSTRUP        SRCFILE(QGPL/QCLSRC)

によって スタートアップ QSTRUP を取り出すことができる。
時間のないときには 良い方法だ。