SELECT SUB_AC FROM LPSTCRD WHERE MBL_NO=? AND CRD_STS <> '2' MBL_NO| SELECT CRD_STS,MBL_NO,CRD_VER,USR_NO,CRD_STSW FROM LPSTCRD WHERE SUB_AC=? SUB_AC| SELECT PROV_CD FROM CMMTCCPI WHERE CITY_CD=? CITY_CD| CMD_CD=SUBSTR($PIN_DAT,1,2) CMD_VER=SUBSTR($PIN_DAT,3,2) SUB_AC|PIN_DAT|

MSG_CD|

CMD_CD|CMD_VER|SUB_AC|PIN_DAT|

PIN_DAT|MSG_CD|

CMD_CD|PIN_DAT|

MSG_CD|STK_AREA|

INP_DAT.MBLNO_OR_LOGID=$MBL_NO INP_DAT.TX_CD=$GWA.TX_CD INP_DAT

OUT_DAT|MSG_CD

RSL_CD=01 END RSL_CD=01 END RSL_CD=01 END RSL_CD=01 END CITY_CD=@O.STK_AREA.CTY_CD RSL_CD=01 END RSL_CD=01 END MERC_PROV=$PROV_CD INP_DAT_MERC.MERC_PROV=$MERC_PROV INP_DAT_MERC.MERC_CORP_ID=SUBSTR(@O.STK_AREA.CUS_DAT,5,6) RSL_CD=01 END MERC_ID=@O.OUT_DAT_MERC.MERC_ID INP_DAT_DEP.USR_NO=$USR_NO INP_DAT_DEP.MERC_ID=$MERC_ID INP_DAT_DEP.CAP_TYP1=1 INP_DAT_DEP.AMT1=@O.STK_AREA.TX_AMT RSL_CD=01 END INP_DAT_AWD.USR_NO=$USR_NO INP_DAT_AWD.APP_SEQ_NO=$SUB_AC INP_DAT_AWD.CAP_TYP=1 INP_DAT_AWD.AMT=@O.STK_AREA.TX_AMT INP_DAT_AWD.OD_LMT=@O.STK_AREA.OVR_LMT RSL_CD=01 END ETF=@O.STK_AREA[~idx] RSL_CD=01 RSL_CD=00 END CMD_CD=18 CRD_BAL=@O.STK_AREA.CRD_BAL CRD_TXN_SEQ=@O.STK_AREA.CRD_TXN_SEQ OVR_LMT=@O.STK_AREA.OVR_LMT 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 SMS_CD=LPS010