SUB_AC|BK_TXN_DAT|

BK_TXN_DAT|MSG_CD|

RDM_NO=SUBSTR(RIGHTSTR($BK_TXN_DAT,16),1,8) BK_DAT_LEN=STRLEN($BK_TXN_DAT) TXN_DAT_LEN=SUB($BK_DAT_LEN,16) TXN_DAT=SUBSTR($BK_TXN_DAT,1,$TXN_DAT_LEN) ADD_CHAR_LEN=SUB(16,MOD($TXN_DAT_LEN,16)) ADD_CHAR_LEN=17 ADD_CHAR=SUBSTR(#ADD_CHAR,1,$ADD_CHAR_LEN) MK_VER=01 MK_IDX=18 MK_DVS_NUM=2 MK_DVS_DAT=STRCAT($MK_VER,SUBSTR($SUB_AC,7,14)) GC_KEY_FLG=0 GC_DAT=STRCAT($RDM_NO,00000000) MAC_PAD_FLG=0 MAC_IV_DAT=$GC_DAT MAC_DAT=STRCAT($TXN_DAT,$ADD_CHAR) MAC_DAT_LEN=DIV(STRLEN($MAC_DAT),2) MAC_LEN_FLG=1 BK_TXN_DAT BK_TXN_DAT=STRCAT($TXN_DAT,$RDM_NO,$MAC)