<?php
//------------------------------------------backup de bibliotecas Z/OS - OS/390
set_time_limit(0);
//------------------------------------------biblioteca Z/OS (Particionado)
$biblioteca =  'XXXXXX.JCLLIB';
//------------------------------------------Diretorio PC
$Diretorio  =  'backup';
//------------------------------------------Dados p/ servidor FTP
$ftp_server="xxx.xxx.xxx.xxx";              // ip .servidor Z/OS
$ftp_user_name="user";                      //  user  tso
$ftp_user_pass="password";                  //  password TSO
//--------------------------------------------------------------------------
$conn_id = ftp_connect("$ftp_server");
$login_result = ftp_login($conn_id, "$ftp_user_name", "$ftp_user_pass");
// ---------------------------------------------------------verifica conexao
if ((!$conn_id) || (!$login_result)) {
        echo "Conexao Falhou!";
        echo "Conexao para $ftp_server for user $ftp_user_name";
        die;     } else {
        echo "Conectado  $ftp_server, for user $ftp_user_name"."<br>";    }
//--------------------------------------------------------- download arquivo
$handle = ftp_chdir($conn_id,"'$biblioteca'");
$workingdir = ftp_pwd($Diretorio);
$teste = ftp_nlist($conn_id,$workingdir);
$Tamanho = count($teste);

for($i=0;$i<=$Tamanho;$i++){
//------------------------------------------------------------------------------
$remote_file = "'$biblioteca($teste[$i])'";
$local_file = "c:/$Diretorio/$teste[$i].doc";
//------------------------------------------------------------------------------
$download = ftp_get($conn_id, "$local_file", "$remote_file", FTP_ASCII );
}
echo "Download Feito";
ftp_quit($conn_id);
?>