ILE-RPGで可変長変数を使う

ILE-RPGから可変長変数を使ったサンプルです。

TP02.rpgle

     H DATEDIT(*YMD/) DFTACTGRP(*NO)
     D wk1             s             10a   VARYING
     D wk2             s             20a   VARYING
      *
     C*
      /Free
           wk1 = 'MOE' ;
           wk2 = 'ABC@' + wk1 + '@DEF' ;
           dsply wk2 ;
           *inlr = *on ;
           return ;
      /End-free

実行結果

 DSPLY  ABC@MOE@DEF       
 DSPLY  ABC@MOE       @DEF

１回目のDSPLYはwk1にVARYING指定有り、２回目のDSPLYはVARYING指定なしです。