Currently Being Moderated
Hi RP/ All .. This is the Java Code from which the procedure is being called.
public SDM_ModulSichtCT_t readModulsichtNeu( SDM_BaumFilterCT_t p_Filter ) throws DatabaseException
{
return (SDM_ModulSichtCT_t) callProcedure ( "*P_sar_amb*", "ReadModulsichtNeu", p_Filter,
new SDM_ModulSichtCT_t() );
}
=======================================The definition of the type: SDM_MCT_t=========================
create or replace TYPE "SDM_MCT_t" AS OBJECT
(
ProduktlinieCT SDM_ProduktlinieCT_t
,MengengeruestCT SDM_MengengeruestCT_t
,ProjektCT SDM_ProjektCT_t
,IsModulsichtNeu VARCHAR2(1)
,CONSTRUCTOR FUNCTION SDM_MCT_t RETURN SELF AS RESULT
)
NOT FINAL
=============================================The Entire P_sar_amb procedure
PROCEDURE P_sar_amb
(
p_StdInOut_typ IN OUT StdInOut_t,
p_StdIn_typ IN StdIn_t,
p_MainIn_typ IN SDM_BCT_t,
p_MainOut_typ OUT SDM_MCT_t
) IS
v_StdLocal_rec PsyStdImplTypes_p.StdLocal_rect := PsyStdImpl_p.GetStdLocalNormalProcedure('P_sar_amb');
v_StdIn_typ PsyStdDeclTypes_p.StdIn_typt := PsyStdImpl_p.GetStdInInternalProcedure;
BEGIN
LOG_PSYTEKKAPP_P.startproc($$PLSQL_UNIT||'.P_sar_amb',p_stdin_typ,v_leveloneid); --Added for TPA 84392
v_StdLocal_rec.PackageName := c_PackageName;
PsyStdImpl_p.InitProcedure(p_StdInOut_typ, p_StdIn_typ, v_StdLocal_rec);
IF SDM_Constants_p.c_Wartung = TRUE THEN
SDM_Wartung_p.CreateWartungInfo(v_StdLocal_rec, p_StdIn_typ, p_MainIn_typ);
END IF;
-- Procedure begin
P_sar_ambx(
p_StdInOut_typ, v_StdIn_typ,
p_MainIn_typ,
FALSE, -- Alte Modulsicht lesen
p_MainOut_typ
);
p_MainOut_typ.IsModulSichtNeu := PsyConstants_p.c_boolTrue;
-- Procedure end
PsyStdImpl_p.FinishProcedure(p_StdInOut_typ, p_StdIn_typ, v_StdLocal_rec);
LOG_PSYTEKKAPP_P.endproc($$PLSQL_UNIT||'.P_sar_amb',p_stdin_typ,v_leveloneid);
EXCEPTION
WHEN OTHERS THEN
PsyStdImpl_p.ProcessException(p_StdInOut_typ, p_StdIn_typ, v_StdLocal_rec, SQLCODE);
IF (PsyStdImpl_p.CanThrowException(p_StdIn_typ) = TRUE)
THEN
RAISE;
END IF;
END P_sar_amb;