mybatisコール存在過程
4201 ワード
mybatis呼び出しが存在するプロセス.
Serivice
DAO
<select id=「insertTaveamt」parameterType=「cn.com.mmm.customer.domail.Taveamt」statementType=「CALLABLE」 >
{call} procmtugrant、嗳嗳(procugb)、撗(啱)、21873;(啱)、呷(proc yn)、呷(呷)、呷(呷)
は、啝{savemt}、21853;(イ)、啝(イ)、咻(expiremudiate)、jdbcType=TIMESTAMP、璣(procuid)、咻de=OUT、jdbcType=VRCHAR)}
参照
CREATE OR REPLACE PROCEURE MMM.PROC_SAVAMT_GRANT(
V MMM.MEMB_TYPE
VuMMM_PROC_INTS AVEAMT_PROC_TYPE
V MMM_PROC_IN TSAVEAMT__PROC_TYPE
VMMM.ORDERD-IN TSAVEAMT_MMM.ORDERD%TYPE
VuMMM.ORDERHuGuMM-IN TSAVEAMT HuMMM.ORDERHUGmuSEQ%TYPE
VuMMM.ORDERHuDUMMM_IN TSAVEAMT_U MMM.ORDERD_TYPE
VuMMM.ORDERHuWUMMM.IN TSAVEAMT_MMM.ORDER椆TYPE
VuMMM.SAVAMTUGB IN TSAVEAMT-SAVAMTYPE
は、VUMMM惫SAVAMT忽IN TSAVEAMT惬MMM.SAVAMT CODE%TYPE
V-M,VUSAVAMT IN TSAVEAMT_SAVAMT%TYPE
は、VUMMM_SAVEVE_IN TSAVEAMT_UMMM.SAVEVE%TYPE
は、VUMMMUEX PIREHUDATE IN TSAVEAMT_M.EXPIREHUDATE%TYPE
は、VUMMM_UUSERUID_IN TSAVEAMT_UMMM.PROC_TYPE
は、VuMMM枰C枰IN TSAVEAMT栥M.C.Cタイプです.
は、VUMMM栀SITECODE IN TSAVEAMT栭M.SITECODE%TYPE
ERRCODE OUT VRCHARR 2
ERRNO OUT NUMBER
、ERRMSG OUT VRCHARR 2)
IS
V_MMM_SAVAMT_MMM_SEQ_MMM TSAVEAMT_MMM.SAVAMT_MMM_SEQ%TYPE;
V_MMM_SYSDATETIME DATE;
V_MMM_ERRCODE VRC HAR 2(2)
V_MMM_ERRNO NUMBER
V_MMM_ERRMSG VRCHAR 2(100)
P_EXPIRE_DATE DATE;
BEGIN
IF V_MMM_PROC_GB_MMM!='1'AND V_MMM_PROC_GB_MMM!='0'AND V_MMM_PROC_YN!='1'AND V_MMM_PROC_YN!='0
THEN
V_MMM_ERRCODE:='ER';
V_MMM_ERRNO:=999
V_MMM_ERRMSG:='IT IS WRONG PARDER!PROC_GB、PROC_YN;
GOTO ERROR_ROUTINE;
END IF
IF V_MMM_PROC_YN='1'
THEN
P_EXPIRE_DATE:=V_MMM_EXPIRE_DATE;
END IF
BEGIN
SELECT LPAD(TONUMBER(NVL(MAX(SAVAMT MMMUSEQ))+1,10,'0',SYSDATE
INTO V_MMM_SAVAMT_MMM_SEQ_MMM,V_MMM_SYSDATETIME
FROM TSAVEAMT_MMM
WHERE MEMB_NO=V_MMM_CUST_NO;
EXCEPTION WHEN OTHERS THEN
V_MMM_ERRCODE:='ER';
V_MMM_ERRNO:=ABS(SQLCODE);
V_MMM_ERRMSG:=SUBSTR(SQLERRM、1、100);
GOTO ERROR_ROUTINE;
END;
BEGIN
INSERT INTO TSAVEAMT_MMM(
MEMBAU NO,SAVAMT MMM曄SEQ,SAVAMT_SEQUPRE,SAVAMT_SEQ
, PROC_GB、PROC_YN、ORGuYN、ORDER_NO、ORDERHUGuMMMuSEQ、ORDER DUMMMuSEQ、ORDERHMuSEQ
, SAVAMT GB、SAVAMTUCODE、SAVEVE NOTE、SAVAMT、PROC_ID、PROC_DATE
, EXPIREHUYN、EXPIREHUDATE、EXPIREHUDATEU、USEuYN、USEUMAMT、SITEuCODE
, INSERT__ID、INSERT_DATE、MODIFYuID、MODIFYuDATE、SAVAMTUORG、CuCODE
)
VALES
(
VuMMM、VuCUSTUNO、VMMM、VMMM、VuSAVAMT、VMMM
,VuMMM,VuPROC_gMMM,VuMMM,VuPROC_YN,'1',VuMMMuORDERDO,VuMMM,VualDERD,VuMMM,VuMMM,VuMMMuSEQ,VuMMMuORDERHuDUMM,VuMMM,VuMMMMMMM
, VuMMM_SAVAMTGB、VMMM-uSAVAMTUCODE、VuMMM_SAVERTUCODE、VuSAVEVE、VUMMM、VuSAVAMT、VuMMMUSERUID、VuMMM_SYSATETIME
, '0',DECODE(VuMMM_PROC_YN,'1',PuEXPIRE DATE,'),DECODE(VuMMM_PROC_YN,'1',PuEXPIRE DATE,')
, '0',0,V栥MM M棅SITEuCODE
, VuMMM_UUSERUID、VuMMM_SYSDATETIME、VuMMM_UUSERUID、VuMMM_SYSDATETIME、VuMMM_USAVAMT、VuMMM_MuCuCODE
);
EXCEPTION WHEN OTHERS THEN
V MMM:='ER'
V MMM ERRNO:=ABS(SQLCODE);
VUMMMUERRMSG:=SUBSTR(SQLERRM、1、100);
GOTO ERRORUROUTINE
END;
<
ERRCODE:='OK';
ERRNO := 0;
ERRMSG := V MMM_SAVAMTMMM;
GOTO ENDUROUTINE;
<
ERRCODE:=V栥MM MuERRCODE;
ERRNO := VMM MUERRNO
ERRMSG := V MMM ERRMSG;
<
dbmsuoutput.put_line(ERRCODE 124;|𞓜|𞓜𞓜𞓜TO𞓜CHAR(ERRNO)|𞓜𞓜ERRMSG);
END;
Serivice
SAICDao.insertTsaveamt(tsaveamt);
mybatisの配置によります.戻り値は自動的にtsavemtに保存されます.DAO
void insertTemploydcmSQ(Tmember tmember)throws SQLException;
参照<select id=「insertTaveamt」parameterType=「cn.com.mmm.customer.domail.Taveamt」statementType=「CALLABLE」 >
{call} procmtugrant、嗳嗳(procugb)、撗(啱)、21873;(啱)、呷(proc yn)、呷(呷)、呷(呷)
は、啝{savemt}、21853;(イ)、啝(イ)、咻(expiremudiate)、jdbcType=TIMESTAMP、璣(procuid)、咻de=OUT、jdbcType=VRCHAR)}
参照
CREATE OR REPLACE PROCEURE MMM.PROC_SAVAMT_GRANT(
V MMM.MEMB_TYPE
VuMMM_PROC_INTS AVEAMT_PROC_TYPE
V MMM_PROC_IN TSAVEAMT__PROC_TYPE
VMMM.ORDERD-IN TSAVEAMT_MMM.ORDERD%TYPE
VuMMM.ORDERHuGuMM-IN TSAVEAMT HuMMM.ORDERHUGmuSEQ%TYPE
VuMMM.ORDERHuDUMMM_IN TSAVEAMT_U MMM.ORDERD_TYPE
VuMMM.ORDERHuWUMMM.IN TSAVEAMT_MMM.ORDER椆TYPE
VuMMM.SAVAMTUGB IN TSAVEAMT-SAVAMTYPE
は、VUMMM惫SAVAMT忽IN TSAVEAMT惬MMM.SAVAMT CODE%TYPE
V-M,VUSAVAMT IN TSAVEAMT_SAVAMT%TYPE
は、VUMMM_SAVEVE_IN TSAVEAMT_UMMM.SAVEVE%TYPE
は、VUMMMUEX PIREHUDATE IN TSAVEAMT_M.EXPIREHUDATE%TYPE
は、VUMMM_UUSERUID_IN TSAVEAMT_UMMM.PROC_TYPE
は、VuMMM枰C枰IN TSAVEAMT栥M.C.Cタイプです.
は、VUMMM栀SITECODE IN TSAVEAMT栭M.SITECODE%TYPE
ERRCODE OUT VRCHARR 2
ERRNO OUT NUMBER
、ERRMSG OUT VRCHARR 2)
IS
V_MMM_SAVAMT_MMM_SEQ_MMM TSAVEAMT_MMM.SAVAMT_MMM_SEQ%TYPE;
V_MMM_SYSDATETIME DATE;
V_MMM_ERRCODE VRC HAR 2(2)
V_MMM_ERRNO NUMBER
V_MMM_ERRMSG VRCHAR 2(100)
P_EXPIRE_DATE DATE;
BEGIN
IF V_MMM_PROC_GB_MMM!='1'AND V_MMM_PROC_GB_MMM!='0'AND V_MMM_PROC_YN!='1'AND V_MMM_PROC_YN!='0
THEN
V_MMM_ERRCODE:='ER';
V_MMM_ERRNO:=999
V_MMM_ERRMSG:='IT IS WRONG PARDER!PROC_GB、PROC_YN;
GOTO ERROR_ROUTINE;
END IF
IF V_MMM_PROC_YN='1'
THEN
P_EXPIRE_DATE:=V_MMM_EXPIRE_DATE;
END IF
BEGIN
SELECT LPAD(TONUMBER(NVL(MAX(SAVAMT MMMUSEQ))+1,10,'0',SYSDATE
INTO V_MMM_SAVAMT_MMM_SEQ_MMM,V_MMM_SYSDATETIME
FROM TSAVEAMT_MMM
WHERE MEMB_NO=V_MMM_CUST_NO;
EXCEPTION WHEN OTHERS THEN
V_MMM_ERRCODE:='ER';
V_MMM_ERRNO:=ABS(SQLCODE);
V_MMM_ERRMSG:=SUBSTR(SQLERRM、1、100);
GOTO ERROR_ROUTINE;
END;
BEGIN
INSERT INTO TSAVEAMT_MMM(
MEMBAU NO,SAVAMT MMM曄SEQ,SAVAMT_SEQUPRE,SAVAMT_SEQ
, PROC_GB、PROC_YN、ORGuYN、ORDER_NO、ORDERHUGuMMMuSEQ、ORDER DUMMMuSEQ、ORDERHMuSEQ
, SAVAMT GB、SAVAMTUCODE、SAVEVE NOTE、SAVAMT、PROC_ID、PROC_DATE
, EXPIREHUYN、EXPIREHUDATE、EXPIREHUDATEU、USEuYN、USEUMAMT、SITEuCODE
, INSERT__ID、INSERT_DATE、MODIFYuID、MODIFYuDATE、SAVAMTUORG、CuCODE
)
VALES
(
VuMMM、VuCUSTUNO、VMMM、VMMM、VuSAVAMT、VMMM
,VuMMM,VuPROC_gMMM,VuMMM,VuPROC_YN,'1',VuMMMuORDERDO,VuMMM,VualDERD,VuMMM,VuMMM,VuMMMuSEQ,VuMMMuORDERHuDUMM,VuMMM,VuMMMMMMM
, VuMMM_SAVAMTGB、VMMM-uSAVAMTUCODE、VuMMM_SAVERTUCODE、VuSAVEVE、VUMMM、VuSAVAMT、VuMMMUSERUID、VuMMM_SYSATETIME
, '0',DECODE(VuMMM_PROC_YN,'1',PuEXPIRE DATE,'),DECODE(VuMMM_PROC_YN,'1',PuEXPIRE DATE,')
, '0',0,V栥MM M棅SITEuCODE
, VuMMM_UUSERUID、VuMMM_SYSDATETIME、VuMMM_UUSERUID、VuMMM_SYSDATETIME、VuMMM_USAVAMT、VuMMM_MuCuCODE
);
EXCEPTION WHEN OTHERS THEN
V MMM:='ER'
V MMM ERRNO:=ABS(SQLCODE);
VUMMMUERRMSG:=SUBSTR(SQLERRM、1、100);
GOTO ERRORUROUTINE
END;
<
ERRCODE:='OK';
ERRNO := 0;
ERRMSG := V MMM_SAVAMTMMM;
GOTO ENDUROUTINE;
<
ERRCODE:=V栥MM MuERRCODE;
ERRNO := VMM MUERRNO
ERRMSG := V MMM ERRMSG;
<
dbmsuoutput.put_line(ERRCODE 124;|𞓜|𞓜𞓜𞓜TO𞓜CHAR(ERRNO)|𞓜𞓜ERRMSG);
END;