Re: display all tables in IFS directory
Thanks again.
Thanks again.
C*
C* OVRDBF FILE(INPUT) TOFILE(*LIBL/SOMEFILE)
C*
C Eval CmdString = 'OVRDBF FILE(INPUT) '
C +%Trim('TOFILE(CGI_BIN/BATCHFTPWP)') +
C %trim('~OVRSCOPE(*JOB)')
C eval CmdString = %xlate('~' : ' ' : CmdString)
C eval CmdLength = %len(%trim(CmdString))
C*
C call 'QCMDEXC' 99
C parm CmdString
C parm CmdLength
C*
C* STRTCPFTP 'ftp.code400.com'
C*
C Eval CmdString = 'FTP'
C +%Trim('@@@')
C +%Trim(Q)
C +%Trim(Address)
C +%Trim(Q)
C Eval CmdString = %xlate('@':' ':CmdString)
C eval CmdLength = %len(%trim(CmdString))
C*
C call 'QCMDEXC'
C parm CmdString
C parm CmdLength
C*
C* dltovr INPUT LVL(*JOB)
C*
C Eval CmdString = 'DLTOVR INPUT LVL(*JOB)'
C eval CmdLength = %len(%trim(CmdString))
C*
C call 'QCMDEXC'
C parm CmdString
C parm CmdLength
C*
C Endsr
Comment