%CHAR

数値フィールドの数値を文字フィールドに変換する：先行ゼロ無し

H DATEDIT(*YMD/) DATFMT(*ISO)
D WKNUM          S              8 0
D WKNUMCHAR      S              8A
C*
/FREE

     EVAL WKNUM = 111;                 // 数値｢00000111｣

     EVAL WKNUMCHAR = %CHAR(WKNUM);   // 文字｢111     ｣
     EVALR WKNUMCHAR = %CHAR(WKNUM);   // 文字｢     111｣

     EVAL *INLR = *ON;

/END-FREE