!******************************************************************************************************************************** ! Created: 18-JUL-2002 12:15:51 by OpenVMS SDL EV1-60 ! Source: 16-MAR-2002 14:36:44 $1$DUA1130:[LAISHEV.WORK.TESSCO]DBL_ORAGTWY.SDL !******************************************************************************************************************************** ! *** PREDECLARED TYPES %IF %DECLARED(%BASIC$QUADWORD_DECLARED) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL(2) END RECORD %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF %IF %DECLARED(%BASIC$OCTAWORD_DECLARED) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL(4) END RECORD %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF %IF %DECLARED(%BASIC$HFLOAT_AXP_DECLARED) = 0 %THEN RECORD BASIC$HFLOAT_AXP LONG FILL(4) END RECORD %LET %BASIC$HFLOAT_AXP_DECLARED = 1 %END %IF %IF %DECLARED(%BASIC$F_FLOATING_COMPLEX_DECL) = 0 %THEN RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART SINGLE IMAGINARY_PART END RECORD %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF %IF %DECLARED(%BASIC$D_FLOATING_COMPLEX_DECL) = 0 %THEN RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART DOUBLE IMAGINARY_PART END RECORD %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF %IF %DECLARED(%BASIC$G_FLOATING_COMPLEX_DECL) = 0 %THEN RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART GFLOAT IMAGINARY_PART END RECORD %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF %IF %DECLARED(%BASIC$H_FLOAT_AXP_CMPLX_DCL) = 0 %THEN RECORD BASIC$H_FLOATING_COMPLEX_AXP BASIC$HFLOAT_AXP REAL_PART BASIC$HFLOAT_AXP IMAGINARY_PART END RECORD %LET %BASIC$H_FLOAT_AXP_CMPLX_DCL = 1 %END %IF !*** MODULE DBL_ORAGTWY IDENT DBL_ORAGTWY-1-A *** ! ! *++ ! * FACILITY: DIBOL 2 ORACLE Server 7/8/9 gateway ! * ! * MODULE DESCRIPTION: ! * ! * This is an interface module contains all routins declaration, data type definitions, ! * and so on... ! * ! * AUTHORS: ! * ! * Ruslan R. Laishev ! * ! * CREATION DATE: 9-MAR-2002 ! * ! * ! * MODIFICATION HISTORY: ! * ! * {@tbs@}... ! *-- ! EXTERNAL LONG FUNCTION dbl_oragtwy$init & ( & STRING BY DESC & ) EXTERNAL LONG FUNCTION dbl_oragtwy$shut EXTERNAL LONG FUNCTION dbl_oragtwy$getoramsg & ( & STRING BY DESC, & WORD BY REF & ) ! *++ ! * item_catlist_* ! *-- EXTERNAL LONG FUNCTION dbl_oragtwy$item_catlist_oc & ( & LONG BY REF, & WORD BY VALUE, & LONG BY REF, & WORD BY VALUE & ) EXTERNAL LONG FUNCTION dbl_oragtwy$item_catlist_cc EXTERNAL LONG FUNCTION dbl_oragtwy$item_catlist_fd & ( & LONG BY REF, & WORD BY VALUE, & LONG BY REF, & WORD BY VALUE & ) ! *++ ! * brand_catlist_* ! *-- EXTERNAL LONG FUNCTION dbl_oragtwy$brand_catlist_oc & ( & LONG BY REF, & WORD BY VALUE, & LONG BY REF, & WORD BY VALUE, & LONG BY REF, & WORD BY VALUE & ) EXTERNAL LONG FUNCTION dbl_oragtwy$brand_catlist_cc EXTERNAL LONG FUNCTION dbl_oragtwy$brand_catlist_fd & ( & LONG BY REF, & WORD BY VALUE, & LONG BY REF, & WORD BY VALUE & ) ! *++ ! * attlist_* ! *-- EXTERNAL LONG FUNCTION dbl_oragtwy$attlist_oc EXTERNAL LONG FUNCTION dbl_oragtwy$attlist_cc EXTERNAL LONG FUNCTION dbl_oragtwy$attlist_fd & ( & LONG BY REF, & WORD BY VALUE, & LONG BY REF, & WORD BY VALUE, & LONG BY REF, & WORD BY VALUE, & LONG BY REF, & WORD BY VALUE, & LONG BY REF, & WORD BY VALUE, & LONG BY REF, & WORD BY VALUE, & LONG BY REF, & WORD BY VALUE, & LONG BY REF, & WORD BY VALUE & ) ! *++ ! * hazmatlist_* ! *-- EXTERNAL LONG FUNCTION dbl_oragtwy$hazmatlist_oc & ( & LONG BY REF, & WORD BY VALUE & ) EXTERNAL LONG FUNCTION dbl_oragtwy$hazmatlist_cc EXTERNAL LONG FUNCTION dbl_oragtwy$hazmatlist_fd & ( & LONG BY REF, & WORD BY VALUE, & LONG BY REF, & WORD BY VALUE, & LONG BY REF, & WORD BY VALUE & ) ! *++ ! * sublist_* ! *-- EXTERNAL LONG FUNCTION dbl_oragtwy$sublist_oc & ( & LONG BY REF, & WORD BY VALUE & ) EXTERNAL LONG FUNCTION dbl_oragtwy$sublist_cc EXTERNAL LONG FUNCTION dbl_oragtwy$sublist_fd & ( & LONG BY REF, & WORD BY VALUE, & LONG BY REF, & WORD BY VALUE, & LONG BY REF, & WORD BY VALUE, & LONG BY REF, & WORD BY VALUE, & LONG BY REF, & WORD BY VALUE, & LONG BY REF, & WORD BY VALUE, & LONG BY REF, & WORD BY VALUE, & LONG BY REF, & WORD BY VALUE, & LONG BY REF, & WORD BY VALUE & ) ! *++ ! * sublist_* ! *-- EXTERNAL LONG FUNCTION dbl_oragtwy$item_sublist_oc & ( & LONG BY REF, & WORD BY VALUE, & LONG BY REF, & WORD BY VALUE & ) EXTERNAL LONG FUNCTION dbl_oragtwy$item_sublist_cc EXTERNAL LONG FUNCTION dbl_oragtwy$item_sublist_fd & ( & LONG BY REF, & WORD BY VALUE, & LONG BY REF, & WORD BY VALUE, & LONG BY REF, & WORD BY VALUE, & LONG BY REF, & WORD BY VALUE, & LONG BY REF, & WORD BY VALUE, & LONG BY REF, & WORD BY VALUE, & LONG BY REF, & WORD BY VALUE, & LONG BY REF, & WORD BY VALUE & ) ! *++ ! * ora_* ! *-- EXTERNAL LONG FUNCTION dbl_oragtwy$ora_rtc EXTERNAL LONG FUNCTION dbl_oragtwy$ora_ctc EXTERNAL LONG FUNCTION dbl_oragtwy$get_oracle_sku & ( & LONG BY REF, & WORD BY VALUE, & LONG BY REF, & WORD BY VALUE, & LONG BY REF & ) EXTERNAL LONG FUNCTION dbl_oragtwy$itemlist_oc & ( & LONG BY VALUE & ) EXTERNAL LONG FUNCTION dbl_oragtwy$itemlist_cc EXTERNAL LONG FUNCTION dbl_oragtwy$itemlist_fd & ( & LONG BY REF & )