IBMi(AS400)ユーザーの為の情報ページ(作成中)

%DEC

文字フィールドの数値を数値フィールドに変換。数値のみの場合

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

       //整数のみ
       EVAL  WKNUMCHAR = '111';                    //文字｢111     ｣
       EVAL  WKNUM = %DEC(WKNUMCHAR: 8: 0);        //数値｢00000111｣

       //数値の間に空白有り
       EVAL  WKNUMCHAR = '11 1';                   //文字｢11 1    ｣
       EVAL  WKNUM = %DEC(WKNUMCHAR: 8: 0);        //数値｢00000111｣

       //小数点有り
       EVAL  WKNUMCHAR2 = '111.1';                 //文字｢111.1   ｣
       EVAL  WKNUM2 = %DEC(WKNUMCHAR2: 8: 1);      //数値｢0000111.1｣

       EVAL  *INLR = *ON;

 /END-FREE