vrb arg_01  text
vrb arg_02  text
vrb parent_ text
vrb p_con   text

trap on any_error
p_con = '\'DATASERVER\''

sql.dbms = 'odbc'
sqlmessages = yes
odbc.source = &p_con
sql connect rupper identified by  123 

sql declare cursor_ cursor for -
select ID, DESCR, PARENTID -
from Trade_1C.dbo.SC12

if sqlcode ne  0 
then signal err1 'Declare cursor failed.'

sql open cursor_

if sqlcode ne  0 
then signal err2 'Cursor open failed.'

while sqlcode eq  0 
do
    sql fetch cursor_ into -
    :arg_01, -
    :arg_02, -
    :parent_

    if sqlcode eq  0 
    then  do

      maintain GOODS merge arg_01
      limit GOODS to arg_01
      &obj(property 'shortlabelvar' 'GOODS')=arg_02

      if parent_ eq '     0'
      then parent_ = NA
      else maintain GOODS merge parent_

      &obj(property 'parentrel' 'GOODS') = parent_
    doend
doend
call xp_hiermnt('CALC', 'GOODS', 'STANDARD')
sql close cursor_

if sqlcode ne  0 
then signal err4 'Cursor close failed.'

sql disconnect
update
return  0 

any_error:

sql disconnect
return - 2