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:
  1. PGM                                                             
  2.                                                                 
  3.                                                                 
  4.  ADDENVVAR  ENVVAR(USER) VALUE('SOMEUSER') REPLACE(*YES)    
  5.  ADDENVVAR  ENVVAR(SFTPHOST) VALUE('sftp.somehost.com') + 
  6.                              REPLACE(*YES)                      
  7.  ADDENVVAR  ENVVAR(PASSWORD) VALUE('abc') REPLACE(*YES) 
  8.  ADDENVVAR  ENVVAR(GETFILE) VALUE('U_DATA.txt')   +  
  9.                             REPLACE(*YES)                       
  10.                                                                 
  11.    CALL QP2SHELL PARM('/qopensys/usr/bin/sh' +                  
  12.                       '/home/palhc/sftp819.sh')                 
  13.                                                                 
  14.    DLTOVR *ALL                                                  
  15.                                                                 
  16. ENDPGM                                                          
© 2004-2019 by midrange.com generated in 0.006s valid xhtml & css