GWA|INP_DAT OUT_DAT|MSG_CD SELECT USR_NO,USR_OPR_NO,USR_OPR_LOG_ID,USR_OPR_LOG_SHOW FROM URMTOPER WHERE USR_OPR_ID=? INP_DAT.MBL_NO| SELECT USR_NO,USR_STS,MAIN_AC FROM URMTPINF WHERE USR_NO=? USR_NO| SELECT MAIN_AC,SUB_AC,TX_TYP,PROC_RSL FROM LPSTBAL WHERE MAIN_AC=? AND TX_TYP='B' AND PROC_RSL NOT IN ('S') MAIN_AC| UPDATE URMTPINF SET USR_STS='1',MBL_NO=?,CLO_DT=?,UPD_JRN=? WHERE USR_NO=? GDM_OUT.MBL_NO|GWA.CUR_AC_DT|GWA.JRN_NO|USR_NO UPDATE URMTOPER SET USR_OPR_STS='1',UPD_JRN=?,OLD_OPR_LOG_ID=USR_OPR_LOG_ID,USR_OPR_LOG_ID=?,USR_OPR_ID=? WHERE USR_NO=? GWA.JRN_NO|IN_OPR_LOG_ID|GDM_OUT.MBL_NO|USR_NO| UPDATE URMTCOMI SET USR_STS='1' WHERE USR_NO=? USR_NO| UPDATE URMTPOCH SET CLO_DT=?, CLO_TM=?,CLO_BUS_CNL=? WHERE SUB_AC=? AND SEQ_NO='1' |GWA.TX_DT|GWA.TX_TM|GWA.BUS_CNL|MAIN_AC IN_OPR_LOG_ID=STRCAT(!,$USR_OPR_NO) CMA_INP.AC_NO=$MAIN_AC CMA_INP.CLS_FUN=N GDM_OUT=VAL("@O.GDM_OUT") INP_DAT.SEQ_NO=1 INP_DAT.AC_TYP=100 INP_DAT.SUB_AC=$MAIN_AC INP_DAT.CLO_DT=$GWA.TX_DT INP_DAT.CLO_TM=$GWA.TX_TM INP_DAT.CLO_BUS_CNL=$GWA.BUS_CNL INP_DAT.USR_NO=$USR_NO TLOG_NO=$GWA.JRN_NO SEL_VAL=ADDCHAR($SEL_VAL,16,0,1) PRO_TIM=GETDATETIME() TRAN_IDO=STRCAT($PRO_TIM,$SEL_VAL) TRAN_IDH=STRCAT($PRO_TIM,$SEL_VAL) SEL_VAL=SUBSTR($SEL_VAL,11,6) OPR_LOG=STRCAT(0034BIP2B260,$PRO_TIM,$SEL_VAL) CHG_OPR=02 RetCod=~RetCod