midrange.com code scratchpad |
Name:
CL to execute sftp Script
|
Scriptlanguage:
Plain Text
|
Tabwidth:
4
|
Date:
06/25/2009 05:12:25 pm
|
IP:
Logged
|
|
Description:
The user was to lazy to give a description
|
Code:
- PGM
-
-
- ADDENVVAR ENVVAR(USER) VALUE('SOMEUSER') REPLACE(*YES)
- ADDENVVAR ENVVAR(SFTPHOST) VALUE('sftp.somehost.com') +
- REPLACE(*YES)
- ADDENVVAR ENVVAR(PASSWORD) VALUE('abc') REPLACE(*YES)
- ADDENVVAR ENVVAR(GETFILE) VALUE('U_DATA.txt') +
- REPLACE(*YES)
-
- CALL QP2SHELL PARM('/qopensys/usr/bin/sh' +
- '/home/palhc/sftp819.sh')
-
- DLTOVR *ALL
-
- ENDPGM
|
|
|