JSMDRTEXT プログラム内で JSMCHGJOB プログラムを使って、現在のジョブのライブラリ・リストを、現在のユーザー・プロファイルのライブラリ・リストに変更できます。HTTP インスタンスのユーザー・プロファイルを構成するには、UserId %%CLIENT%% エントリーを使用するか、JSMCHGUSER プログラムを呼び出します。
DCL VAR(&STATUS) TYPE(*CHAR) LEN(7)
CALL PGM(JSMCHGJOB) PARM(&STATUS)
IF COND(&STATUS *NE OK) THEN(DO)