先にCLPで文字列を直接印刷する方法を紹介したが
今度は文字列をIFSに直接出力する方法である。

1FSに出力するための簡単なC言語を書くのも
面倒であるし第一、C言語を知らない人も少なくはない。
そこでAIに相談して教えてもらったのが
この方法である。

             CHGVAR     VAR(&IFS) VALUE(&TODIR *TCAT '/' *CAT &TOSTMF)  
             CHGVAR     VAR(&CMDSTR) VALUE('echo "' *CAT &JSON *TCAT +  
                          ' > ' *CAT &IFS)                              
             QSH        CMD(&CMDSTR)                                    
             CHGVAR     VAR(&MSGTYPE) VALUE('*DIAG')                    
             CHGVAR     VAR(&MSG) VALUE('JSON を ' *CAT &IFS *TCAT +    
                          ' に保管しました。 ')  

[解説]

AIはJavaによる方法も教えてくれたがお奨めではないそうである。
ただしAIが教えてくれたのは QSHのCMD内部で直接演算していたが
それは文法上許されないので外部で演算するように
修正した。