Hi friends,
Thanks for your reply.
but I have the following information.
1) I am going to send the file from AlphaVMS(development server) to other side.
2)In our VMS support(admin team) have configured Tectia SSH and provided Public key.
3) what my question is :
Extracted files sent to receiver server thru NDM link, i already written.
$!===========================================================================
$! Transfer file thru NDM
$!===========================================================================
$ type/output=copy_cmds.sql sys$input:
$ deck!======================================================================
drop table tmp_ndm_cmds1
\p\g
create table tmp_ndm_cmds1
as
select num = 1,
cmd = '$ copy/log ie_acctinfo.dat '+e1.value+e2.value+'ie_acctinfo.dat'
from environment e1, environment e2
where e1.name = 'dd_node' and e2.name = 'dd_dir'
\p\g
insert into tmp_ndm_cmds1
select num = 2,
cmd = '$ copy/log nl: '+e1.value+e2.value+'ie_acctinfo.dat_ack'
from environment e1, environment e2
where e1.name = 'dd_node' and e2.name = 'dd_dir'
\p\g
select cmd, num from tmp_ndm_cmds1
order by num
\p\g
drop table tmp_ndm_cmds1
\p\g\q
$ eod!=======================================================================
$ DELETE/log dbout.txt;
$ DELETE/log acctinfo_final.sql;
$ CLOSE outf
$ UNLOCK/LOG ie_acctinfo.dat
$ P = "Client-Account:"
$ SHOW SYMBOL P
$ SHOW SYMBOL COUNT
$!===========================================================================
$! Transfer file thru NDM
$!===========================================================================
$ type/output=copy_cmds.sql sys$input:
$ deck!======================================================================
drop table tmp_ndm_cmds1
\p\g
create table tmp_ndm_cmds1
as
select num = 1,
cmd = '$ copy/log ie_acctinfo.dat '+e1.value+e2.value+'ie_acctinfo.dat'
from environment e1, environment e2
where e1.name = 'dd_node' and e2.name = 'dd_dir'
\p\g
insert into tmp_ndm_cmds1
select num = 2,
cmd = '$ copy/log nl: '+e1.value+e2.value+'ie_acctinfo.dat_ack'
from environment e1, environment e2
where e1.name = 'dd_node' and e2.name = 'dd_dir'
\p\g
select cmd, num from tmp_ndm_cmds1
order by num
\p\g
drop table tmp_ndm_cmds1
\p\g\q
$ eod!=======================================================================
$ sql custody copy_cmds.txt
$ OPEN /WRITE outf1 copy_cmds.con
$ OPEN /READ inf1 copy_cmds.txt
$ loop_cmd:
$ read /end_of_file=cmd_done inf1 line
$ IF (F$EXTRACT(0,2,line) .NES. "|$") then goto loop_cmd
$ second_bar = f$locate("|",F$EXTRACT(1,F$LEN(line)-1,line))
$ lin_out = F$EDIT(F$EXTRACT(1,second_bar,line),"TRIM")
$ WRITE/symbol outf1 lin_out
$ goto loop_cmd
$ cmd_done:
$ close inf1
$ close outf1
$!copy/log ie_acctinfo.dat MEDDEV::NDM_SEND:ie_acctinfo.dat
$!copy/log nl: MEDDEV::NDM_SEND:ie_acctinfo.dat_ack
$@copy_cmds.con
$delete/log copy_cmds.sql;
$delete/log copy_cmds.txt;
$delete/log copy_cmds.con;
$exit
This one i tested from my side thr' NDM.
but now i should send the file thr' SFTP.
I think now you can understand clearly.
please advice and help me.
i really appriciate your help.
