IBM i (OS/400)如何在CL程序中显式转换十六进制字符串为数字

本示例代码展示了如何在IBM i (OS/400)的CL程序中显式转换十六进制字符串为数字。实现方式包括将十六进制字符串转换为二进制字符串，然后再将其转换为十进制。

/* 将十六进制字符串转换为二进制字符串 */
PGM
   DCL VAR(&HEXSTR) TYPE(*CHAR) LEN(8) VALUE('5D7B722D')
   DCL VAR(&BINSTR) TYPE(*CHAR) LEN(32)
   DCL VAR(&I) TYPE(*DEC) LEN(2 0)
   DCL VAR(&J) TYPE(*DEC) LEN(2 0)
   DCL VAR(&K) TYPE(*DEC) LEN(1 0)

   CHGVAR VAR(&I) VALUE(1)
   DO WHILE COND((&I * 4) <= %LEN(&BINSTR))
      CHGVAR VAR(&J) VALUE(&I * 4)
      CHGVAR VAR(&K) VALUE(%BIN(&HEXSTR:(&J - 3):4))
      CHGVAR VAR(&BINSTR) VALUE(%SST(&BINSTR:&J:4))
      CHGVAR VAR(&BINSTR) VALUE(%BIN(&K:4))
      CHGVAR VAR(&I) VALUE(&I + 1)
   ENDDO
   /* 将二进制字符串转换为十进制数字 */
   DCL VAR(&DECNUM) TYPE(*DEC) LEN(10 0)
   DCL VAR(&BASE) TYPE(*CHAR) LEN(2) VALUE('10')
   DCL VAR(&BIN) TYPE(*CHAR) LEN(32) VALUE(&BINSTR)
   DCL VAR(&POS) TYPE(*CHAR) LEN(1) VALUE('+')
   CHGVAR VAR(&DECNUM) VALUE(%BINDEC(&BIN:&BASE:&POS))

   /* 显示结果 */
   SNDPGMMSG MSG('十六进制字符串：' + &HEXSTR)
   SNDPGMMSG MSG('转换为二进制字符串：' + &BINSTR)
   SNDPGMMSG MSG('转换为十进制数字：' + %CHAR(&DECNUM))

   ENDPGM

免责申明：文章和图片全部来源于公开网络，如有侵权，请通知删除 server@dude6.com