CREATE OR ALTER PROCEDURE GLOB_WARESGROUP_IMP (
    EXTERNALCODE R_CUSTOMDATA,
    DB_CODE R_CODE)
AS
DECLARE variable DB_IP R_CUSTOMDATA;
DECLARE variable DBPATH R_FILENAME;
DECLARE variable DBLOGIN R_LONGNAME;
DECLARE variable DBPASS R_NAME;
DECLARE variable NAMEGROUP DESCRIPT;
DECLARE variable EXTERNALCODEGROUP R_CUSTOMDATA;
DECLARE variable HIGHERCODE R_CUSTOMDATA;
DECLARE variable FLAG R_CODE;
DECLARE variable DELETEMARKER R_CODE;
DECLARE variable HIGHERNAME DESCRIPT;
DECLARE variable WGID R_ID;
BEGIN
    SELECT b.db_ip, b.fullpath, b.dblogin, b.dbpass
      FROM rbs_bases b
     WHERE b.db_code = :db_code
      INTO :db_ip, :dbpath, :dblogin, :dbpass;
  HIGHERCODE = :externalcode;
  FLAG = 'A';
  DELETEMARKER = '0';
  FOR EXECUTE statement 'select w.name, w.externalcode, w2.name, w2.externalcode
        from  waresgroup w
        left join waresgroup w2 on w2.waresgrid = w.higher
        where w2.externalcode is not null and w2.higher is null'
        ON external :db_ip || ':' || :dbpath
        AS USER :dblogin PASSWORD :dbpass
        WITH COMMON TRANSACTION
        INTO :NAMEGROUP, :EXTERNALCODEGROUP, :highername, :highercode
    do
    BEGIN
        SELECT gi.waresgrid
          FROM RBS_Q_WARESGROUP_INSSEL(:namegroup, :externalcodegroup, :highercode, :flag, :deletemarker, :highername) gi
          INTO :wgid;
    END
END