//-------------------------------------------------------------------
//  conexao servidor FTP - Z/OS - OS/390 
//-------------------------------------------------------------------
<?php
set_time_limit(0);
//include('server.inc');  
//---------------------------------------server.inc     ------------
$ftp_server="IP";                 //IP:SERVIDOR FTP
$ftp_user_name="USER";            //USER
$ftp_user_pass="PASSWORD";        //PASSWORD
//------------------------------------------------------------------------------
$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 "Ftp Falhou!";
        die;
}else {
        echo "Conectou  ,  user $ftp_user_name"."<br>";
}
$a2 = ftp_site($conn_id,"quote site filetype=jes");  set to JES2
//-------------------------------------------------------------------
//include('jes.inc');     
//---------------------------------------jes.inc --------------------
$a3 = ftp_site($conn_id,"quote site jesentrylimit=900");
//                                       numero de jobs a excluir
//-------------------------------------------------------------------

//-------------------------------------------------------------------
//   seleciona jobs a excluir 
//-------------------------------------------------------------------
$teste   = ftp_rawlist($conn_id,$wer);
$tam = count($teste);
for($i=0;$i<$tam;$i++) {
    //echo $teste[$i]. "<br>";
    $nj = substr($teste[$i],9,8);
    //echo $nj . "<br>";
    ftp_delete($conn_id, $nj);
}
//-------------------------------------------------------------------
//  FTP QUIT
//-------------------------------------------------------------------
ftp_quit($conn_id);

//-------------------------------------------------------------------