UPDATE LPSTSUBAC SET SUB_AC=? WHERE MBL_NO=? SUB_AC|MBL_NO| CMD_CD=SUBSTR($PIN_DAT,1,2) SUB_AC=SUBSTR($PIN_DAT,7,20) CRD_VER=00 CMD_CD|PIN_DAT|

MSG_CD|STK_AREA|

INP_DAT.MBL_NO=$MBL_NO INP_DAT.OPN_BUS_CNL=$GWA.BUS_CNL GWA|INP_DAT|

OUT_DAT|MSG_CD|

RSL_CD=00 RSL_CD=00 RSL_CD=01 CMD_CD=03 SUB_CMD_CD=@O.STK_AREA.SUB_CMD_CD CRD_JRN_NO=@O.STK_AREA.CRD_JRN_NO

BK_TXN_DAT|MSG_CD|

SUB_AC|@O.BK_TXN_DAT|

BK_TXN_DAT|MSG_CD|

BK_TXN_DAT=@O.BK_TXN_DAT SMS_CD=LPS800 INP_MKM_SUB.MBL_NO=$MBL_NO INP_MKM_SUB.USR_NO=@O.OUT_DAT.USR_NO INP_MKM_SUB.TX_CD=$GWA.TX_CD INP_MKM_SUB.BUS_CNL=$GWA.BUS_CNL INP_MKM_SUB.SYS_CNL=$GWA.SYS_CNL